I'm not really sure what else to do with this or if I'm even doing it right.
I've made 5 tests and still get the same error message. I'm not sure at this point I have written the formula correctly. The formulas are listed below and the syntext text is attached.
Thanks again,
Jen
StringToken:
Function StringToken (string_input as string, character as string, number_of_characters as number)
dim token as number
dim incrementor as number
dim output as string
dim ender as number
ender = number_of_characters + 1
do until token = ender or incrementor = length(string_input) or incrementor = 99999
incrementor = incrementor + 1
if string_input(incrementor) = character then token= token + 1
if ender - token = 1 and string_input(incrementor) <> character then output = output + string_input(incrementor)
loop
StringToken = output
End Function
Note Date 2:
stringvar test1:= {NOTES_TEXTDATA.NOTE_TEXT};
'To: Requests, Refill'+
'> Sent: 2/22/2013 10:20 AM'+
'>'+
'I still need a copy of my last colonoscopy report. Including pathology on polyps removed.'+
'2nd request. Procedure performed 11/2011 by Dr. Peck'+
' ';
stringvar test2:= {NOTES_TEXTDATA.NOTE_TEXT};
"referring Provider: GREGORY W SCHALLFasting: NoOrder Facility: FAYETTE CO. MEM, 1430 COUMBUS AVENUE, WASHINGTON C H, OH 43160-0From: Rakesh Nanda M.D.To:Stacie BeuclerAction Date: 12/01/2009 I have reviewed the patients OARS report, and dis";
stringvar test3:= {NOTES_TEXTDATA.NOTE_TEXT};
"referring Provider: GREGORY W SCHALLFasting: NoOrder Facility: FAYETTE CO. MEM, 1430 COUMBUS AVENUE, WASHINGTON C H, OH 43160-0From: Rakesh Nanda M.D.To:Stacie BeuclerAction Date: 12/01/2009 I have reviewed the patients OARS report, and dis";
stringvar test4:= {NOTES_TEXTDATA.NOTE_TEXT};
"Billing Provider: EMILY JOHNSON MDFasting: NoOrder Facility: FAYETTE CO.MEM, 1430 COLUMBUS AVENUE, WASHINGTON C H, OH 43160-0From:ajusticeAction Date: 06/03/2010 Notified patient. She will call in the AM to schedule NV for BMP. AJUST";
stringvar test5 := {NOTES_TEXTDATA.NOTE_TEXT};
"Billing Provider: ROULAY THAMMAVONG MD Referring Provider: GREGORY W SCHALLFasting:NoOrder Facility: FAYETTE CO. MEM, 1430 COLUMBUS AVENUE, WASHINGTON C H, OH 43160-0From:ahendersonTo: Roulay Thammavong MDAction Date: 05/14/2010. F";
stringvar s:= {NOTES_TEXTDATA.NOTE_TEXT}; // please check test2 & test3 out as well and then you can replace this with your text field
s:= replace(s,' ',' ');
s:= replace(s,' ',' ');
s:= replace(s,' ',' ');
while numbervar l < length(s) do
(
numbervar x:= x + 1;
stringvar t:= stringtoken(s,' ',x);
l:= l + length(t) + 1;
if isdate(t) and length(t) > 1
then
(
if instr(stringtoken(s,' ',x-1),"Sent") > 0 then datevar sent:= date(t);
datevar array d;
numbervar dc:= dc + 1;
redim preserve d[dc];
d[dc]:= date(t);
)
);
if ubound(d) > 0
then
(
if sent > date(1900,01,01)
then sent
else maximum(d)
);
stringvar s:= {NOTES_TEXTDATA.NOTE_TEXT}; // please check test2 & test3 out as well and then you can replace this with your text field
s:= replace(s,' ',' ');
s:= replace(s,' ',' ');
s:= replace(s,' ',' ');
while numbervar l < length(s) do
(
numbervar x:= x + 1;
stringvar t:= stringtoken(s,' ',x);
l:= l + length(t) + 1;
if isdate(t) and length(t) > 1
then
(
if instr(stringtoken(s,' ',x-1),"Sent") > 0 then datevar sent:= date(t);
datevar array d;
numbervar dc:= dc + 1;
redim preserve d[dc];
d[dc]:= date(t);
)
);
if ubound(d) > 0
then
(
if sent > date(1900,01,01)
then sent
else maximum(d)
);
stringvar s:= {NOTES_TEXTDATA.NOTE_TEXT};
s:= replace(s,' ',' ');
s:= replace(s,' ',' ');
s:= replace(s,' ',' ');
while numbervar l < length(s) do
(
numbervar x:= x + 1;
stringvar t:= stringtoken(s,' ',x);
l:= l + length(t) + 1;
if isdate(t) and length(t) > 1
then
(
if instr(stringtoken(s,' ',x-1),"Sent") > 0 then datevar sent:= date(t);
datevar array d;
numbervar dc:= dc + 1;
redim preserve d[dc];
d[dc]:= date(t);
)
);
if ubound(d) > 0
then
(
if sent > date(1900,01,01)
then sent
else maximum(d)
);