Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 10449

Re: An Array's dimension must be an integer between 1 and 10000

$
0
0

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)
    );


Viewing all articles
Browse latest Browse all 10449

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>