Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDFBKS4

IBDFBKS4.m

Go to the documentation of this file.
  1. IBDFBKS4 ;ALB/AAS - Create form spec file for scanning ; 6-JUN-95
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;**3,25**;APR 24, 1997
  1. ;
  1. RECOMP ;Recompiles all form specs for paper keyboard
  1. N QZZ
  1. S QZZ=0 F S QZZ=$O(^IBD(359.2,QZZ)) Q:'QZZ D SCAN^IBDFBKS(QZZ)
  1. Q
  1. ;
  1. FIELDS ;
  1. S FLD=1 F S FLD=$O(@FIELDS@(PAGE,FLD)) Q:'FLD D
  1. .N DATATP S DATATP=$G(@FIELDS@(PAGE,FLD,"DATATYPE"))
  1. .I DATATP="" D Q
  1. ..S (LBEGIN,LEND,QUIT)=0
  1. ..S LBEGIN=FLD F S FLD=$O(@FIELDS@(PAGE,FLD)) Q:QUIT D Q:QUIT
  1. ...I LEND=0,$S(FLD="":1,1:$G(@FIELDS@(PAGE,FLD,"DATATYPE"))'="") S FLD=LBEGIN D ONEBUB S QUIT=1 Q
  1. ...I FLD="",LEND>LBEGIN D LOOP(LBEGIN,LEND) S FLD=LEND,QUIT=1 Q
  1. ...I $G(@FIELDS@(PAGE,FLD,"DATATYPE"))'="" D LOOP(LBEGIN,LEND) S FLD=LEND,QUIT=1 Q
  1. ...S LEND=FLD
  1. ...Q
  1. .;
  1. .I DATATP'="" D
  1. ..N TOSTRING
  1. ..S TOSTRING=$S($G(@FIELDS@(PAGE,FLD,"START")):"narrative",1:"str")
  1. ..;
  1. ..D BLDARY^IBDFBKS(" "_TOSTRING_"=\""\"";")
  1. ..;
  1. ..I DATATP="ALPHA" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(GETAVALUE("_FLD_"));") Q
  1. ..;
  1. ..I DATATP="FLOAT" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(FTOA(GETFVALUE("_FLD_")));") Q
  1. ..;
  1. ..I DATATP="INT" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(ITOA(GETIVALUE("_FLD_")));") Q
  1. ..;
  1. ..I DATATP="DATE" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(DTOA(GETIVALUE("_FLD_")));") Q
  1. ..;
  1. ..I DATATP="TIME" D BLDARY^IBDFBKS(" if (GETSTATUS("_FLD_")==FIELD_OK) "_TOSTRING_"=STRIP(TTOA(GETIVALUE("_FLD_")));") Q
  1. ..;
  1. ..;D BLDARY^IBDFBKS(" "_TOSTRING_"=STRFIELDS("_FLD_","_FLD_");") Q
  1. .;
  1. .I $G(@FIELDS@(PAGE,FLD,"MULT")),'$G(@FIELDS@(PAGE,FLD,"START")) D BLDARY^IBDFBKS(" if (str!=\""\"") narrative=STRIP(STRCAT(STRCAT(narrative,\"" \""),str));")
  1. .;
  1. .I '$G(@FIELDS@(PAGE,FLD,"MULT")) D
  1. ..D BLDARY^IBDFBKS(" if (str != \""\"") {")
  1. ..D BLDARY^IBDFBKS(" Data=Add;")
  1. ..I @FIELDS@(PAGE,FLD)'="" D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
  1. ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,str);")
  1. ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
  1. ..D BLDARY^IBDFBKS(" if (ddechan != 0) result=DDEEXEC(ddechan,Data);}")
  1. ..D BLDARY^IBDFBKS(" ")
  1. .;
  1. .I $G(@FIELDS@(PAGE,FLD,"END")) D
  1. ..D BLDARY^IBDFBKS(" if (narrative!=\""\"") {")
  1. ..D BLDARY^IBDFBKS(" Data=Add;")
  1. ..I @FIELDS@(PAGE,FLD)'="" D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
  1. ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,narrative);")
  1. ..I $P($G(@FIELDS@(PAGE,FLD)),":")'="H" D BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
  1. ..D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
  1. ..D BLDARY^IBDFBKS(" if (ddechan != 0) result=DDEEXEC(ddechan,Data);}")
  1. FIELDSQ Q
  1. ;
  1. ONEBUB ; -- for a single bubble field
  1. D BLDARY^IBDFBKS(" str=STRFIELDS("_FLD_","_FLD_");")
  1. D BLDARY^IBDFBKS(" if (str!=\""\"") {")
  1. I @FIELDS@(PAGE,FLD)'="" D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"""_@FIELDS@(PAGE,FLD)_"\"");")
  1. D BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
  1. D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
  1. D BLDARY^IBDFBKS(" if (ddechan != 0) result=DDEEXEC(ddechan,Data);}")
  1. Q
  1. ;
  1. LOOP(LBEGIN,LEND) ; -- Loop through fields instead of one by one
  1. D BLDARY^IBDFBKS(" ")
  1. D BLDARY^IBDFBKS(" loop="_LBEGIN_";")
  1. D BLDARY^IBDFBKS(" while (loop < "_(LEND+1)_"){")
  1. D BLDARY^IBDFBKS(" str=STRFIELDS(loop,loop);")
  1. D BLDARY^IBDFBKS(" if (str!=\""\"") {")
  1. D BLDARY^IBDFBKS(" Data=STRCAT(Add,str);")
  1. D BLDARY^IBDFBKS(" Data=STRCAT(Data,\"",\"");")
  1. D BLDARY^IBDFBKS(" if (ddechan != 0) result=DDEEXEC(ddechan,Data);}")
  1. D BLDARY^IBDFBKS(" loop=loop+1;")
  1. D BLDARY^IBDFBKS(" if (loop > "_LEND_") break;}")
  1. D BLDARY^IBDFBKS(" ")
  1. Q
  1. ;
  1. ;;loop=9;
  1. ;;while (loop < 51){
  1. ;; str=STRFIELDS(loop,loop);
  1. ;; if (str!=\"\") {
  1. ;; Data=STRCAT(Data,str);
  1. ;; Data=STRCAT(Data,RS);}
  1. ;; loop=loop+1;
  1. ;; if (loop > 51) break;
  1. ;; }
  1. ;;
  1. ;;\'SHOW(Data);
  1. DATA1 ;; Data = STRCAT(\"FORMTYPE=153\", RS);
  1. ;; Data = STRCAT(Data, \"FORMID=\");
  1. ;; Data = STRCAT(Data, ITOA(GETIVALUE(7)));
  1. ;; Data = STRCAT(Data,RS);
  1. ;; Data = STRCAT(Data,\"PAGE=1\");
  1. ;; Data = STRCAT(Data,RS);
  1. ;; Data = STRCAT(Data, \"DATA=\");
  1. ;; Data = STRCAT(Data,RS);
  1. ;;