- IBDFBKS1 ;ALB/CJM/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version CONTINUATION) ; 6-JUN-95
- ;;3.0;AUTOMATED INFO COLLECTION SYS;**3,25**;APR 24, 1997
- ;
- ;
- FORM ;;
- ;;'Paper Keyboard FormSpec
- ;;'VERSION = 2.53
- ;;'AICS Version 3.0;**7,3,25**
- SITE ;;'VA SITE NAME
- ;;INT anchorcnt;
- ;;INT hasprint;
- ;;INT check;
- ;;INT firstanchor;
- ;;INT pfid;
- ;;INT page;
- ;;INT saveunrf;
- ;;INT ddechan;
- ;;ALPHA narrative;
- ;;
- ;;FORM
- NAME ;; NAME = "ENCOUNTER FORM 71";
- ;; AREA = 0 0 2770 2150;
- ;; PAGESIZE = " 2770 2150";
- ;; ANCHOR1 = NONE;
- ;; ANCHOR2 = NONE;
- ;; POINTS = 0 0 0 0;
- ;; CONFIDENCE = " 9";
- ;; CLOSEFORMSPEC = {DDETERM(ddechan);
- ;; LOG(\"AICS #52/DDE channel is closed\"); };
- ;; DATEFORMAT = "6";
- ;; TIMEFORMAT = "5";
- ;; EXFORMAT = "STRIP";
- ;; EXPORT = "\'SHOW(\"DO NOT EXPORT - NOT SCANNABLE\");";
- ;; FS = ",";
- ;; QUOTABLE = "\\n";
- ;; ImageProcessing = {
- ;; IMAGEPROC=1
- ;; AUTO_ALIGN=0
- ;; ALIGN_TEXT=0
- ;; ALIGN_ORIENT=0
- ;; DESKEW=0
- ;; DESHADE=0
- ;; SMOOTH=0
- ;; REMOVE_BORDER=1
- ;; REMOVE_NOISE=0
- ;; PROC_MIN_VERT_LINE_LEN=0
- ;; PROC_MIN_HORZ_LINE_LEN=0
- ;; FATTYPE=0
- ;; FATTEN=0};
- ;; POSITION = "60,60";
- ;; OPENFORMSPEC = {ddechan=DDEINIT(\"IBDSCAN\",\"DdeServerConv\");
- ;; if (ddechan == 0) LOG(\"AICS #54/Unable to Open Channel to AICS.\");
- ;; \' if (ddechan == 0) SHOW(\"Unable to Open Channel to AICS to send data.\");
- ;; anchorcnt = 4;
- ;; };
- ;;FIELD ' 1
- ;; NAME = "TOP LEFT ANCHOR";
- ;; ELEMTYPE = ELEM_PAT;
- ;; METRIC = 17 120 120;
- ;; DATATYPE =INT;
- ;; LENGTH = 2;
- ;; POINTS = 65 70 120 130;
- ;; PAGE = 0;
- ;; CONFIDENCE = " 6";
- ;; HIDDEN = "1";
- ;; END = {if (anchorcnt == 2){
- ;; firstanchor = 1;
- ;; if (FIELDSTATUS != FIELD_OK) firstanchor = 0;}
- ;; };
- ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- ;; REQUIRED = "1";
- ;;FIELD ' 2
- ;; NAME = "BOTTOM LEFT ANCHOR";
- ;; ELEMTYPE = ELEM_PAT;
- ;; METRIC = 17 120 120;
- ;; DATATYPE =INT;
- ;; LENGTH = 2;
- ;; POINTS = 2690 70 2745 130;
- ;; PAGE = 0;
- ;; CONFIDENCE = " 6";
- ;; HIDDEN = "1";
- ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- ;; REQUIRED = "1";
- ;; END = {INT aset;
- ;; if (anchorcnt == 2){
- ;; if ((firstanchor == 1) && (FIELDSTATUS == FIELD_OK))
- ;; aset = ANCHORSET(1,2);
- ;; else aset = 0;
- ;; if (aset == 0) {NEXTFIELD = 3;}
- ;; else NEXTFIELD = 5;}
- ;; };
- ;;FIELD ' 3
- ;; NAME = "TOP RIGHT ANCHOR";
- ;; ELEMTYPE = ELEM_PAT;
- ;; METRIC = 17 120 120;
- ;; DATATYPE =INT;
- ;; LENGTH = 2;
- ;; POINTS = 65 2015 120 2075;
- ;; PAGE = 0;
- ;; CONFIDENCE = " 6";
- ;; END = {if (anchorcnt == 2) {
- ;; firstanchor = 1;
- ;; if (FIELDSTATUS != FIELD_OK) firstanchor = 0;}
- ;; };
- ;; HIDDEN = "1";
- ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- ;; REQUIRED = "1";
- ;;FIELD ' 4
- ;; NAME = "BOTTOM RIGHT ANCHOR";
- ;; ELEMTYPE = ELEM_PAT;
- ;; METRIC = 17 120 120;
- ;; DATATYPE =INT;
- ;; LENGTH = 2;
- ;; POINTS = 2690 2015 2745 2075;
- ;; PAGE = 0;
- ;; CONFIDENCE = " 6";
- ;; HIDDEN = "1";
- ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- ;; REQUIRED = "1";
- ;; END={INT aset;
- ;;INT result;
- ;; if (anchorcnt == 2){
- ;; if ((firstanchor == 1) && (FIELDSTATUS == FIELD_OK))
- ;; aset = ANCHORSET(3,4);
- ;; else aset =0;
- ;; if (aset == 0) {
- ;; if (ddechan == 0) SHOW(\"Anchors not found, recognition stopping!\");
- ;; if (ddechan != 0) {
- ;; result = DDEEXEC(ddechan,\"SAVEFORM(0,0,0,U"\);
- ;; DDEPOKE(ddechan,\"DdeServerItem\",\"Anchors not found\");}
- ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}}
- ;;
- ;; if (anchorcnt == 4){
- ;; aset = ANCHORSET(1,4);
- ;; if (aset == 0) {
- ;; if (ddechan == 0) SHOW(\"Anchors not found, recognition stopping!\");
- ;; if (ddechan != 0) {
- ;; result = DDEEXEC(ddechan,\"SAVEFORM(0,0,0,U"\);
- ;; DDEPOKE(ddechan,\"DdeServerItem\",\"Anchors not found\");}
- ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}}
- ;; };
- ;;FIELD ' 5
- ;;NAME = "SCANPAGE?";
- ;; ELEMTYPE = ELEM_PAT;
- ;; METRIC = 17 120 120;
- ;; DATATYPE =INT;
- ;; LENGTH = 2;
- ;; POINTS = 2669 1264 2734 1344;
- ;; PAGE = 0;
- ;; CONFIDENCE = " 7";
- ;; HIDDEN = "1";
- ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- ;; REQUIRED = "1";
- ;;FIELD ' 6
- ;; NAME = "FORM ID CHECK";
- ;; ELEMTYPE = ELEM_OCR;
- ;; DATATYPE =INT;
- ;; LENGTH = 3;
- ;; POINTS = 50 1412 150 1545;
- ;; PAGE = 0;
- ;; CHARFORMAT = "NOSPACES";
- ;; END = {
- ;; check=GETIVALUE(FIELDNAME);
- ;; if (check < 1) FIELDSTATUS = FIELD_BAD;
- ;; if (GETSTATUS(FIELDNAME) == FIELD_BLANK) FIELDSTATUS = FIELD_BAD;};
- ;; REQUIRED = "1";
- ;;FIELD ' 7
- ;; NAME = "FORM ID";
- ;; ELEMTYPE = ELEM_OCR;
- ;; DATATYPE =INT;
- ;; LENGTH = 9;
- ;; POINTS = 50 635 150 910;
- ;; PAGE = 0;
- ;; CHARFORMAT = "NOSPACES";
- ;; END = {
- ;; INT checksum;
- ;; INT div;
- ;;
- ;; pfid=GETIVALUE(FIELDNAME);
- ;; checksum=3*pfid;
- ;; div=checksum/997;
- ;; checksum=checksum-(div*997);
- ;; if ((checksum!=check)&&(FIELDACCEPTED!=1)) {
- ;; FIELDSTATUS=FIELD_BAD;
- ;; }
- ;;};
- ;;FIELD ' 8
- ;; NAME = "PAGE CHECK";
- ;; ELEMTYPE = ELEM_OCR;
- ;; DATATYPE =INT;
- ;; LENGTH = 3;
- ;; POINTS = 50 1590 150 1700;
- ;; PAGE = 0;
- ;; CHARFORMAT = "NOSPACES";
- ;; END = {
- ;; check=GETIVALUE(FIELDNAME);
- ;; if (check < 1) FIELDSTATUS = FIELD_BAD;
- ;; if (GETSTATUS(FIELDNAME) == FIELD_BLANK) FIELDSTATUS = FIELD_BAD;};
- ;; REQUIRED = "1";
- ;;FIELD ' 9
- ;; NAME = "PAGE";
- ;; ELEMTYPE = ELEM_OCR;
- ;; DATATYPE =INT;
- ;; LENGTH = 1;
- ;; POINTS = 50 1860 150 1950;
- ;; PAGE = 0;
- ;; CHARFORMAT = "NOSPACES";
- ;; END = {INT checksum;
- ;; INT div;
- ;; ALPHA next;
- ;;
- ;; page=GETIVALUE(FIELDNAME);
- ;; next=STRCAT("TOP OF PAGE ",ITOA(page));
- ;; checksum=3*page;
- ;; div=checksum/997;
- ;; checksum=checksum-(div*997);
- ;;
- ;; if ((checksum!=check)&&(FIELDACCEPTED!=1)) {
- ;; FIELDSTATUS=FIELD_BAD;
- ;; }
- PGCK ;; else if ((page!=1)&&(page!=2)){
- ;; FIELDSTATUS=FIELD_BAD;
- ;; }
- ;; else if (page>1) {NEXTFIELD=GETNUM(next); }
- ;;};
- QUIT ;;
- ;;
- ;;
- TOPOFPG ;;
- NUMBER1 ;;FIELD ' 49
- FLDNAME ;; NAME = "TOP OF PAGE 2";
- ;; ELEMTYPE = RECT;
- ;; METRIC = 2 2 0 0 0 0 0 0 0;
- ;; DATATYPE =INT;
- ;; LENGTH = 1;
- ;; POINTS = 100 2040;
- PAGE1 ;; PAGE = 1;
- ;; HIDDEN="1";
- ;; EXFORMAT="NOEXPORT";
- QUIT1 ;;
- ;;
- BOTTOM ;;
- NUMBER2 ;;FIELD ' 49
- NAME2 ;; NAME = "BOTTOM OF PAGE";
- ;; ELEMTYPE = RECT;
- ;; METRIC = 2 2 0 0 0 0 0 0 0;
- ;; DATATYPE =INT;
- ;; LENGTH = 1;
- ;; POINTS = 100 2040;
- PAGE2 ;; PAGE = 1;
- ;; HIDDEN="1";
- ;;END = {INT result;
- ;;INT loop;
- ;;ALPHA Data;
- ;;ALPHA str;
- ;;ALPHA RS;
- ;;ALPHA Save;
- ;;ALPHA New;
- ;;ALPHA Add;
- ;;ALPHA End;
- ;;
- ;;if (ddechan == 0) {
- ;; SHOW(\"AICS is not connected, no data exported!\");
- ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}
- ;;
- ;;New=\"$$NEW$$("\;
- ;;Add=\"$$ADD$$("\;
- ;;End=\"$$END$$("\;
- ;;RS=STRCAT(",",ITOC(13));
- ;;
- ;;if (BATCH&&(saveunrf>0)){
- SAVE ;; Save = \"SAVEFORM("\;
- ;; if (ddechan != 0) result = DDEEXEC(ddechan,Save);
- ;; if (result==0) SHOW(\"Warning: Saving of Unrecognized form in AICS has Failed!\");
- ;; else DDEPOKE(ddechan,\"DdeServerItem\",\"Operator Verification Needed\");
- ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}
- ;;
- ;; if (ddechan != 0) {
- EXPORT ;; \'if (STRFIND(Data,RS,STRLEN(Data) - 1) > 0) {;; \' Data = SUBSTR(Data,1,STRLEN(Data) - 1); }
- ;;
- ;; result=DDEPOKE(ddechan,\"DdeServerItem\",End);}
- ;;CHAIN(\"c:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);
- ;;};
- ;;EXFORMAT="NOEXPORT";
- QUIT2 ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFBKS1 8087 printed Feb 19, 2025@00:18:20 Page 2
- IBDFBKS1 ;ALB/CJM/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version CONTINUATION) ; 6-JUN-95
- +1 ;;3.0;AUTOMATED INFO COLLECTION SYS;**3,25**;APR 24, 1997
- +2 ;
- +3 ;
- FORM ;;
- +1 ;;'Paper Keyboard FormSpec
- +2 ;;'VERSION = 2.53
- +3 ;;'AICS Version 3.0;**7,3,25**
- SITE ;;'VA SITE NAME
- +1 ;;INT anchorcnt;
- +2 ;;INT hasprint;
- +3 ;;INT check;
- +4 ;;INT firstanchor;
- +5 ;;INT pfid;
- +6 ;;INT page;
- +7 ;;INT saveunrf;
- +8 ;;INT ddechan;
- +9 ;;ALPHA narrative;
- +10 ;;
- +11 ;;FORM
- NAME ;; NAME = "ENCOUNTER FORM 71";
- +1 ;; AREA = 0 0 2770 2150;
- +2 ;; PAGESIZE = " 2770 2150";
- +3 ;; ANCHOR1 = NONE;
- +4 ;; ANCHOR2 = NONE;
- +5 ;; POINTS = 0 0 0 0;
- +6 ;; CONFIDENCE = " 9";
- +7 ;; CLOSEFORMSPEC = {DDETERM(ddechan);
- +8 ;; LOG(\"AICS #52/DDE channel is closed\"); };
- +9 ;; DATEFORMAT = "6";
- +10 ;; TIMEFORMAT = "5";
- +11 ;; EXFORMAT = "STRIP";
- +12 ;; EXPORT = "\'SHOW(\"DO NOT EXPORT - NOT SCANNABLE\");";
- +13 ;; FS = ",";
- +14 ;; QUOTABLE = "\\n";
- +15 ;; ImageProcessing = {
- +16 ;; IMAGEPROC=1
- +17 ;; AUTO_ALIGN=0
- +18 ;; ALIGN_TEXT=0
- +19 ;; ALIGN_ORIENT=0
- +20 ;; DESKEW=0
- +21 ;; DESHADE=0
- +22 ;; SMOOTH=0
- +23 ;; REMOVE_BORDER=1
- +24 ;; REMOVE_NOISE=0
- +25 ;; PROC_MIN_VERT_LINE_LEN=0
- +26 ;; PROC_MIN_HORZ_LINE_LEN=0
- +27 ;; FATTYPE=0
- +28 ;; FATTEN=0};
- +29 ;; POSITION = "60,60";
- +30 ;; OPENFORMSPEC = {ddechan=DDEINIT(\"IBDSCAN\",\"DdeServerConv\");
- +31 ;; if (ddechan == 0) LOG(\"AICS #54/Unable to Open Channel to AICS.\");
- +32 ;; \' if (ddechan == 0) SHOW(\"Unable to Open Channel to AICS to send data.\");
- +33 ;; anchorcnt = 4;
- +34 ;; };
- +35 ;;FIELD ' 1
- +36 ;; NAME = "TOP LEFT ANCHOR";
- +37 ;; ELEMTYPE = ELEM_PAT;
- +38 ;; METRIC = 17 120 120;
- +39 ;; DATATYPE =INT;
- +40 ;; LENGTH = 2;
- +41 ;; POINTS = 65 70 120 130;
- +42 ;; PAGE = 0;
- +43 ;; CONFIDENCE = " 6";
- +44 ;; HIDDEN = "1";
- +45 ;; END = {if (anchorcnt == 2){
- +46 ;; firstanchor = 1;
- +47 ;; if (FIELDSTATUS != FIELD_OK) firstanchor = 0;}
- +48 ;; };
- +49 ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- +50 ;; REQUIRED = "1";
- +51 ;;FIELD ' 2
- +52 ;; NAME = "BOTTOM LEFT ANCHOR";
- +53 ;; ELEMTYPE = ELEM_PAT;
- +54 ;; METRIC = 17 120 120;
- +55 ;; DATATYPE =INT;
- +56 ;; LENGTH = 2;
- +57 ;; POINTS = 2690 70 2745 130;
- +58 ;; PAGE = 0;
- +59 ;; CONFIDENCE = " 6";
- +60 ;; HIDDEN = "1";
- +61 ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- +62 ;; REQUIRED = "1";
- +63 ;; END = {INT aset;
- +64 ;; if (anchorcnt == 2){
- +65 ;; if ((firstanchor == 1) && (FIELDSTATUS == FIELD_OK))
- +66 ;; aset = ANCHORSET(1,2);
- +67 ;; else aset = 0;
- +68 ;; if (aset == 0) {NEXTFIELD = 3;}
- +69 ;; else NEXTFIELD = 5;}
- +70 ;; };
- +71 ;;FIELD ' 3
- +72 ;; NAME = "TOP RIGHT ANCHOR";
- +73 ;; ELEMTYPE = ELEM_PAT;
- +74 ;; METRIC = 17 120 120;
- +75 ;; DATATYPE =INT;
- +76 ;; LENGTH = 2;
- +77 ;; POINTS = 65 2015 120 2075;
- +78 ;; PAGE = 0;
- +79 ;; CONFIDENCE = " 6";
- +80 ;; END = {if (anchorcnt == 2) {
- +81 ;; firstanchor = 1;
- +82 ;; if (FIELDSTATUS != FIELD_OK) firstanchor = 0;}
- +83 ;; };
- +84 ;; HIDDEN = "1";
- +85 ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- +86 ;; REQUIRED = "1";
- +87 ;;FIELD ' 4
- +88 ;; NAME = "BOTTOM RIGHT ANCHOR";
- +89 ;; ELEMTYPE = ELEM_PAT;
- +90 ;; METRIC = 17 120 120;
- +91 ;; DATATYPE =INT;
- +92 ;; LENGTH = 2;
- +93 ;; POINTS = 2690 2015 2745 2075;
- +94 ;; PAGE = 0;
- +95 ;; CONFIDENCE = " 6";
- +96 ;; HIDDEN = "1";
- +97 ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- +98 ;; REQUIRED = "1";
- +99 ;; END={INT aset;
- +100 ;;INT result;
- +101 ;; if (anchorcnt == 2){
- +102 ;; if ((firstanchor == 1) && (FIELDSTATUS == FIELD_OK))
- +103 ;; aset = ANCHORSET(3,4);
- +104 ;; else aset =0;
- +105 ;; if (aset == 0) {
- +106 ;; if (ddechan == 0) SHOW(\"Anchors not found, recognition stopping!\");
- +107 ;; if (ddechan != 0) {
- +108 ;; result = DDEEXEC(ddechan,\"SAVEFORM(0,0,0,U"\);
- +109 ;; DDEPOKE(ddechan,\"DdeServerItem\",\"Anchors not found\");}
- +110 ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}}
- +111 ;;
- +112 ;; if (anchorcnt == 4){
- +113 ;; aset = ANCHORSET(1,4);
- +114 ;; if (aset == 0) {
- +115 ;; if (ddechan == 0) SHOW(\"Anchors not found, recognition stopping!\");
- +116 ;; if (ddechan != 0) {
- +117 ;; result = DDEEXEC(ddechan,\"SAVEFORM(0,0,0,U"\);
- +118 ;; DDEPOKE(ddechan,\"DdeServerItem\",\"Anchors not found\");}
- +119 ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}}
- +120 ;; };
- +121 ;;FIELD ' 5
- +122 ;;NAME = "SCANPAGE?";
- +123 ;; ELEMTYPE = ELEM_PAT;
- +124 ;; METRIC = 17 120 120;
- +125 ;; DATATYPE =INT;
- +126 ;; LENGTH = 2;
- +127 ;; POINTS = 2669 1264 2734 1344;
- +128 ;; PAGE = 0;
- +129 ;; CONFIDENCE = " 7";
- +130 ;; HIDDEN = "1";
- +131 ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
- +132 ;; REQUIRED = "1";
- +133 ;;FIELD ' 6
- +134 ;; NAME = "FORM ID CHECK";
- +135 ;; ELEMTYPE = ELEM_OCR;
- +136 ;; DATATYPE =INT;
- +137 ;; LENGTH = 3;
- +138 ;; POINTS = 50 1412 150 1545;
- +139 ;; PAGE = 0;
- +140 ;; CHARFORMAT = "NOSPACES";
- +141 ;; END = {
- +142 ;; check=GETIVALUE(FIELDNAME);
- +143 ;; if (check < 1) FIELDSTATUS = FIELD_BAD;
- +144 ;; if (GETSTATUS(FIELDNAME) == FIELD_BLANK) FIELDSTATUS = FIELD_BAD;};
- +145 ;; REQUIRED = "1";
- +146 ;;FIELD ' 7
- +147 ;; NAME = "FORM ID";
- +148 ;; ELEMTYPE = ELEM_OCR;
- +149 ;; DATATYPE =INT;
- +150 ;; LENGTH = 9;
- +151 ;; POINTS = 50 635 150 910;
- +152 ;; PAGE = 0;
- +153 ;; CHARFORMAT = "NOSPACES";
- +154 ;; END = {
- +155 ;; INT checksum;
- +156 ;; INT div;
- +157 ;;
- +158 ;; pfid=GETIVALUE(FIELDNAME);
- +159 ;; checksum=3*pfid;
- +160 ;; div=checksum/997;
- +161 ;; checksum=checksum-(div*997);
- +162 ;; if ((checksum!=check)&&(FIELDACCEPTED!=1)) {
- +163 ;; FIELDSTATUS=FIELD_BAD;
- +164 ;; }
- +165 ;;};
- +166 ;;FIELD ' 8
- +167 ;; NAME = "PAGE CHECK";
- +168 ;; ELEMTYPE = ELEM_OCR;
- +169 ;; DATATYPE =INT;
- +170 ;; LENGTH = 3;
- +171 ;; POINTS = 50 1590 150 1700;
- +172 ;; PAGE = 0;
- +173 ;; CHARFORMAT = "NOSPACES";
- +174 ;; END = {
- +175 ;; check=GETIVALUE(FIELDNAME);
- +176 ;; if (check < 1) FIELDSTATUS = FIELD_BAD;
- +177 ;; if (GETSTATUS(FIELDNAME) == FIELD_BLANK) FIELDSTATUS = FIELD_BAD;};
- +178 ;; REQUIRED = "1";
- +179 ;;FIELD ' 9
- +180 ;; NAME = "PAGE";
- +181 ;; ELEMTYPE = ELEM_OCR;
- +182 ;; DATATYPE =INT;
- +183 ;; LENGTH = 1;
- +184 ;; POINTS = 50 1860 150 1950;
- +185 ;; PAGE = 0;
- +186 ;; CHARFORMAT = "NOSPACES";
- +187 ;; END = {INT checksum;
- +188 ;; INT div;
- +189 ;; ALPHA next;
- +190 ;;
- +191 ;; page=GETIVALUE(FIELDNAME);
- +192 ;; next=STRCAT("TOP OF PAGE ",ITOA(page));
- +193 ;; checksum=3*page;
- +194 ;; div=checksum/997;
- +195 ;; checksum=checksum-(div*997);
- +196 ;;
- +197 ;; if ((checksum!=check)&&(FIELDACCEPTED!=1)) {
- +198 ;; FIELDSTATUS=FIELD_BAD;
- +199 ;; }
- PGCK ;; else if ((page!=1)&&(page!=2)){
- +1 ;; FIELDSTATUS=FIELD_BAD;
- +2 ;; }
- +3 ;; else if (page>1) {NEXTFIELD=GETNUM(next); }
- +4 ;;};
- QUIT ;;
- +1 ;;
- +2 ;;
- TOPOFPG ;;
- NUMBER1 ;;FIELD ' 49
- FLDNAME ;; NAME = "TOP OF PAGE 2";
- +1 ;; ELEMTYPE = RECT;
- +2 ;; METRIC = 2 2 0 0 0 0 0 0 0;
- +3 ;; DATATYPE =INT;
- +4 ;; LENGTH = 1;
- +5 ;; POINTS = 100 2040;
- PAGE1 ;; PAGE = 1;
- +1 ;; HIDDEN="1";
- +2 ;; EXFORMAT="NOEXPORT";
- QUIT1 ;;
- +1 ;;
- BOTTOM ;;
- NUMBER2 ;;FIELD ' 49
- NAME2 ;; NAME = "BOTTOM OF PAGE";
- +1 ;; ELEMTYPE = RECT;
- +2 ;; METRIC = 2 2 0 0 0 0 0 0 0;
- +3 ;; DATATYPE =INT;
- +4 ;; LENGTH = 1;
- +5 ;; POINTS = 100 2040;
- PAGE2 ;; PAGE = 1;
- +1 ;; HIDDEN="1";
- +2 ;;END = {INT result;
- +3 ;;INT loop;
- +4 ;;ALPHA Data;
- +5 ;;ALPHA str;
- +6 ;;ALPHA RS;
- +7 ;;ALPHA Save;
- +8 ;;ALPHA New;
- +9 ;;ALPHA Add;
- +10 ;;ALPHA End;
- +11 ;;
- +12 ;;if (ddechan == 0) {
- +13 ;; SHOW(\"AICS is not connected, no data exported!\");
- +14 ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}
- +15 ;;
- +16 ;;New=\"$$NEW$$("\;
- +17 ;;Add=\"$$ADD$$("\;
- +18 ;;End=\"$$END$$("\;
- +19 ;;RS=STRCAT(",",ITOC(13));
- +20 ;;
- +21 ;;if (BATCH&&(saveunrf>0)){
- SAVE ;; Save = \"SAVEFORM("\;
- +1 ;; if (ddechan != 0) result = DDEEXEC(ddechan,Save);
- +2 ;; if (result==0) SHOW(\"Warning: Saving of Unrecognized form in AICS has Failed!\");
- +3 ;; else DDEPOKE(ddechan,\"DdeServerItem\",\"Operator Verification Needed\");
- +4 ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}
- +5 ;;
- +6 ;; if (ddechan != 0) {
- EXPORT ;; \'if (STRFIND(Data,RS,STRLEN(Data) - 1) > 0) {;; \' Data = SUBSTR(Data,1,STRLEN(Data) - 1); }
- +1 ;;
- +2 ;; result=DDEPOKE(ddechan,\"DdeServerItem\",End);}
- +3 ;;CHAIN(\"c:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);
- +4 ;;};
- +5 ;;EXFORMAT="NOEXPORT";
- QUIT2 ;;