- IBDFBKS4 ;ALB/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version) ; 6-JUN-95
- ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
- ;
- ;
- FIELDS ;
- S FLD=1 F S FLD=$O(@FIELDS@(PAGE,FLD)) Q:'FLD D
- .N DATATP S DATATP=$G(@FIELDS@(PAGE,FLD,"DATATYPE"))
- .I DATATP="" D Q
- ..S (LBEGIN,LEND,QUIT)=0
- ..S LBEGIN=FLD F S FLD=$O(@FIELDS@(PAGE,FLD)) Q:QUIT D Q:QUIT
- ...I LEND=0,$S(FLD="":1,1:$G(@FIELDS@(PAGE,FLD,"DATATYPE"))'="") S FLD=LBEGIN D ONEBUB S QUIT=1 Q
- ...I FLD="",LEND>LBEGIN D LOOP(LBEGIN,LEND) S FLD=LEND,QUIT=1 Q
- ...I $G(@FIELDS@(PAGE,FLD,"DATATYPE"))'="" D LOOP(LBEGIN,LEND) S FLD=LEND,QUIT=1 Q
- ...S LEND=FLD
- ...Q
- .;
- .I DATATP'="" D
- ..N TOSTRING
- ..S TOSTRING=$S($G(@FIELDS@(PAGE,FLD,"START")):"narrative",1:"str")
- ..;
- ..D BLDARY^IBDFBKS(" "_TOSTRING_"=\""\"";")
- ..;
- ..I DATATP="ALPHA" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(GETAVALUE("_FLD_"));") Q
- ..;
- ..I DATATP="FLOAT" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(FTOA(GETFVALUE("_FLD_")));") Q
- ..;
- ..I DATATP="INT" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(ITOA(GETIVALUE("_FLD_")));") Q
- ..;
- ..I DATATP="DATE" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(DTOA(GETIVALUE("_FLD_")));") Q
- ..;
- ..I DATATP="TIME" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(TTOA(GETIVALUE("_FLD_")));") Q
- ..;
- ..;D BLDARY^IBDFBKS(" "_TOSTRING_"=STRFIELDS("_FLD_","_FLD_");") Q
- .;
- .I $G(@FIELDS@(PAGE,FLD,"MULT")),'$G(@FIELDS@(PAGE,FLD,"START")) D BLDARY^IBDFBKS(" if (str!=\""\"") narrative=STRIP(STRCAT(STRCAT(narrative,\"" \""),str));")
- .;
- .I '$G(@FIELDS@(PAGE,FLD,"MULT")) D
- ..D BLDARY^IBDFBKS(" if (str!=\""\"") {")
- ..D BLDARY^IBDFBKS(" Data=Add;")
- ..I @FIELDS@(PAGE,FLD)'="" D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
- ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,str);")
- ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- ..D BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data);}")
- .;
- .I $G(@FIELDS@(PAGE,FLD,"END")) D
- ..D BLDARY^IBDFBKS(" if (narrative!=\""\"") {")
- ..D BLDARY^IBDFBKS(" Data=Add;")
- ..I @FIELDS@(PAGE,FLD)'="" D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
- ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,narrative);")
- ..D BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
- ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- ..D BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data);}")
- ..;D BLDARY^IBDFBKS(" Data=STRCAT(Data,RS);}")
- FIELDSQ Q
- ;
- ONEBUB ; -- for a single bubble field
- D BLDARY^IBDFBKS(" str=STRFIELDS("_FLD_","_FLD_");")
- D BLDARY^IBDFBKS(" if (str!=\""\"") {")
- I @FIELDS@(PAGE,FLD)'="" D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
- D BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
- D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- D BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data)};")
- ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,str);")
- ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,RS);}")
- Q
- ;
- LOOP(LBEGIN,LEND) ; -- Loop through fields instead of one by one
- D BLDARY^IBDFBKS(" ")
- D BLDARY^IBDFBKS(" loop="_LBEGIN_";")
- D BLDARY^IBDFBKS(" while (loop < "_(LEND+1)_"){")
- D BLDARY^IBDFBKS(" str=STRFIELDS(loop,loop);")
- D BLDARY^IBDFBKS(" if (str!=\""\"") {")
- D BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
- D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- D BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data);}")
- ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,str);")
- ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,RS);}")
- D BLDARY^IBDFBKS(" loop=loop+1;")
- D BLDARY^IBDFBKS(" if (loop > "_LEND_") break;}")
- D BLDARY^IBDFBKS(" ")
- Q
- ;
- ;;loop=9;
- ;;while (loop < 51){
- ;; str=STRFIELDS(loop,loop);
- ;; if (str!=\"\") {
- ;; Data=STRCAT(Data,str);
- ;; Data=STRCAT(Data,RS);
- ;; }
- ;; loop=loop+1;
- ;; if (loop > 51) break;
- ;; }
- ;;
- ;;\'SHOW(Data);
- DATA1 ;; Data = STRCAT(\"FORMTYPE=153\", RS);
- ;; Data = STRCAT(Data, \"FORMID=\");
- ;; Data = STRCAT(Data, ITOA(GETIVALUE(7)));
- ;; Data = STRCAT(Data,RS);
- ;; Data = STRCAT(Data,\"PAGE=1\");
- ;; Data = STRCAT(Data,RS);
- ;; Data =STRCAT(Data, \"DATA=\");
- ;; Data=STRCAT(Data,RS);
- ;;
- IBDFBKS4 ;ALB/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version) ; 6-JUN-95
- +1 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
- +2 ;
- +3 ;
- FIELDS ;
- +1 SET FLD=1
- FOR
- SET FLD=$ORDER(@FIELDS@(PAGE,FLD))
- IF 'FLD
- QUIT
- Begin DoDot:1
- +2 NEW DATATP
- SET DATATP=$GET(@FIELDS@(PAGE,FLD,"DATATYPE"))
- +3 IF DATATP=""
- Begin DoDot:2
- +4 SET (LBEGIN,LEND,QUIT)=0
- +5 SET LBEGIN=FLD
- FOR
- SET FLD=$ORDER(@FIELDS@(PAGE,FLD))
- IF QUIT
- QUIT
- Begin DoDot:3
- +6 IF LEND=0
- IF $SELECT(FLD="":1,1:$GET(@FIELDS@(PAGE,FLD,"DATATYPE"))'="")
- SET FLD=LBEGIN
- DO ONEBUB
- SET QUIT=1
- QUIT
- +7 IF FLD=""
- IF LEND>LBEGIN
- DO LOOP(LBEGIN,LEND)
- SET FLD=LEND
- SET QUIT=1
- QUIT
- +8 IF $GET(@FIELDS@(PAGE,FLD,"DATATYPE"))'=""
- DO LOOP(LBEGIN,LEND)
- SET FLD=LEND
- SET QUIT=1
- QUIT
- +9 SET LEND=FLD
- +10 QUIT
- End DoDot:3
- IF QUIT
- QUIT
- End DoDot:2
- QUIT
- +11 ;
- +12 IF DATATP'=""
- Begin DoDot:2
- +13 NEW TOSTRING
- +14 SET TOSTRING=$SELECT($GET(@FIELDS@(PAGE,FLD,"START")):"narrative",1:"str")
- +15 ;
- +16 DO BLDARY^IBDFBKS(" "_TOSTRING_"=\""\"";")
- +17 ;
- +18 IF DATATP="ALPHA"
- DO BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(GETAVALUE("_FLD_"));")
- QUIT
- +19 ;
- +20 IF DATATP="FLOAT"
- DO BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(FTOA(GETFVALUE("_FLD_")));")
- QUIT
- +21 ;
- +22 IF DATATP="INT"
- DO BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(ITOA(GETIVALUE("_FLD_")));")
- QUIT
- +23 ;
- +24 IF DATATP="DATE"
- DO BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(DTOA(GETIVALUE("_FLD_")));")
- QUIT
- +25 ;
- +26 IF DATATP="TIME"
- DO BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(TTOA(GETIVALUE("_FLD_")));")
- QUIT
- +27 ;
- +28 ;D BLDARY^IBDFBKS(" "_TOSTRING_"=STRFIELDS("_FLD_","_FLD_");") Q
- End DoDot:2
- +29 ;
- +30 IF $GET(@FIELDS@(PAGE,FLD,"MULT"))
- IF '$GET(@FIELDS@(PAGE,FLD,"START"))
- DO BLDARY^IBDFBKS(" if (str!=\""\"") narrative=STRIP(STRCAT(STRCAT(narrative,\"" \""),str));")
- +31 ;
- +32 IF '$GET(@FIELDS@(PAGE,FLD,"MULT"))
- Begin DoDot:2
- +33 DO BLDARY^IBDFBKS(" if (str!=\""\"") {")
- +34 DO BLDARY^IBDFBKS(" Data=Add;")
- +35 IF @FIELDS@(PAGE,FLD)'=""
- DO BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
- +36 DO BLDARY^IBDFBKS(" Data=STRCAT(Data,str);")
- +37 DO BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- +38 DO BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data);}")
- End DoDot:2
- +39 ;
- +40 IF $GET(@FIELDS@(PAGE,FLD,"END"))
- Begin DoDot:2
- +41 DO BLDARY^IBDFBKS(" if (narrative!=\""\"") {")
- +42 DO BLDARY^IBDFBKS(" Data=Add;")
- +43 IF @FIELDS@(PAGE,FLD)'=""
- DO BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
- +44 DO BLDARY^IBDFBKS(" Data=STRCAT(Data,narrative);")
- +45 DO BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
- +46 DO BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- +47 DO BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data);}")
- +48 ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,RS);}")
- End DoDot:2
- End DoDot:1
- FIELDSQ QUIT
- +1 ;
- ONEBUB ; -- for a single bubble field
- +1 DO BLDARY^IBDFBKS(" str=STRFIELDS("_FLD_","_FLD_");")
- +2 DO BLDARY^IBDFBKS(" if (str!=\""\"") {")
- +3 IF @FIELDS@(PAGE,FLD)'=""
- DO BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
- +4 DO BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
- +5 DO BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- +6 DO BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data)};")
- +7 ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,str);")
- +8 ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,RS);}")
- +9 QUIT
- +10 ;
- LOOP(LBEGIN,LEND) ; -- Loop through fields instead of one by one
- +1 DO BLDARY^IBDFBKS(" ")
- +2 DO BLDARY^IBDFBKS(" loop="_LBEGIN_";")
- +3 DO BLDARY^IBDFBKS(" while (loop < "_(LEND+1)_"){")
- +4 DO BLDARY^IBDFBKS(" str=STRFIELDS(loop,loop);")
- +5 DO BLDARY^IBDFBKS(" if (str!=\""\"") {")
- +6 DO BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
- +7 DO BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
- +8 DO BLDARY^IBDFBKS(" result=DDEEXEC(ddechan,Data);}")
- +9 ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,str);")
- +10 ;D BLDARY^IBDFBKS(" Data=STRCAT(Data,RS);}")
- +11 DO BLDARY^IBDFBKS(" loop=loop+1;")
- +12 DO BLDARY^IBDFBKS(" if (loop > "_LEND_") break;}")
- +13 DO BLDARY^IBDFBKS(" ")
- +14 QUIT
- +15 ;
- +16 ;;loop=9;
- +17 ;;while (loop < 51){
- +18 ;; str=STRFIELDS(loop,loop);
- +19 ;; if (str!=\"\") {
- +20 ;; Data=STRCAT(Data,str);
- +21 ;; Data=STRCAT(Data,RS);
- +22 ;; }
- +23 ;; loop=loop+1;
- +24 ;; if (loop > 51) break;
- +25 ;; }
- +26 ;;
- +27 ;;\'SHOW(Data);
- DATA1 ;; Data = STRCAT(\"FORMTYPE=153\", RS);
- +1 ;; Data = STRCAT(Data, \"FORMID=\");
- +2 ;; Data = STRCAT(Data, ITOA(GETIVALUE(7)));
- +3 ;; Data = STRCAT(Data,RS);
- +4 ;; Data = STRCAT(Data,\"PAGE=1\");
- +5 ;; Data = STRCAT(Data,RS);
- +6 ;; Data =STRCAT(Data, \"DATA=\");
- +7 ;; Data=STRCAT(Data,RS);
- +8 ;;