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

IBDFBKS1.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ;
  1. FORM ;;
  1. ;;'Paper Keyboard FormSpec
  1. ;;'VERSION = 2.53
  1. ;;'AICS Version 3.0;**7,3,25**
  1. SITE ;;'VA SITE NAME
  1. ;;INT anchorcnt;
  1. ;;INT hasprint;
  1. ;;INT check;
  1. ;;INT firstanchor;
  1. ;;INT pfid;
  1. ;;INT page;
  1. ;;INT saveunrf;
  1. ;;INT ddechan;
  1. ;;ALPHA narrative;
  1. ;;
  1. ;;FORM
  1. NAME ;; NAME = "ENCOUNTER FORM 71";
  1. ;; AREA = 0 0 2770 2150;
  1. ;; PAGESIZE = " 2770 2150";
  1. ;; ANCHOR1 = NONE;
  1. ;; ANCHOR2 = NONE;
  1. ;; POINTS = 0 0 0 0;
  1. ;; CONFIDENCE = " 9";
  1. ;; CLOSEFORMSPEC = {DDETERM(ddechan);
  1. ;; LOG(\"AICS #52/DDE channel is closed\"); };
  1. ;; DATEFORMAT = "6";
  1. ;; TIMEFORMAT = "5";
  1. ;; EXFORMAT = "STRIP";
  1. ;; EXPORT = "\'SHOW(\"DO NOT EXPORT - NOT SCANNABLE\");";
  1. ;; FS = ",";
  1. ;; QUOTABLE = "\\n";
  1. ;; ImageProcessing = {
  1. ;; IMAGEPROC=1
  1. ;; AUTO_ALIGN=0
  1. ;; ALIGN_TEXT=0
  1. ;; ALIGN_ORIENT=0
  1. ;; DESKEW=0
  1. ;; DESHADE=0
  1. ;; SMOOTH=0
  1. ;; REMOVE_BORDER=1
  1. ;; REMOVE_NOISE=0
  1. ;; PROC_MIN_VERT_LINE_LEN=0
  1. ;; PROC_MIN_HORZ_LINE_LEN=0
  1. ;; FATTYPE=0
  1. ;; FATTEN=0};
  1. ;; POSITION = "60,60";
  1. ;; OPENFORMSPEC = {ddechan=DDEINIT(\"IBDSCAN\",\"DdeServerConv\");
  1. ;; if (ddechan == 0) LOG(\"AICS #54/Unable to Open Channel to AICS.\");
  1. ;; \' if (ddechan == 0) SHOW(\"Unable to Open Channel to AICS to send data.\");
  1. ;; anchorcnt = 4;
  1. ;; };
  1. ;;FIELD ' 1
  1. ;; NAME = "TOP LEFT ANCHOR";
  1. ;; ELEMTYPE = ELEM_PAT;
  1. ;; METRIC = 17 120 120;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 2;
  1. ;; POINTS = 65 70 120 130;
  1. ;; PAGE = 0;
  1. ;; CONFIDENCE = " 6";
  1. ;; HIDDEN = "1";
  1. ;; END = {if (anchorcnt == 2){
  1. ;; firstanchor = 1;
  1. ;; if (FIELDSTATUS != FIELD_OK) firstanchor = 0;}
  1. ;; };
  1. ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
  1. ;; REQUIRED = "1";
  1. ;;FIELD ' 2
  1. ;; NAME = "BOTTOM LEFT ANCHOR";
  1. ;; ELEMTYPE = ELEM_PAT;
  1. ;; METRIC = 17 120 120;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 2;
  1. ;; POINTS = 2690 70 2745 130;
  1. ;; PAGE = 0;
  1. ;; CONFIDENCE = " 6";
  1. ;; HIDDEN = "1";
  1. ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
  1. ;; REQUIRED = "1";
  1. ;; END = {INT aset;
  1. ;; if (anchorcnt == 2){
  1. ;; if ((firstanchor == 1) && (FIELDSTATUS == FIELD_OK))
  1. ;; aset = ANCHORSET(1,2);
  1. ;; else aset = 0;
  1. ;; if (aset == 0) {NEXTFIELD = 3;}
  1. ;; else NEXTFIELD = 5;}
  1. ;; };
  1. ;;FIELD ' 3
  1. ;; NAME = "TOP RIGHT ANCHOR";
  1. ;; ELEMTYPE = ELEM_PAT;
  1. ;; METRIC = 17 120 120;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 2;
  1. ;; POINTS = 65 2015 120 2075;
  1. ;; PAGE = 0;
  1. ;; CONFIDENCE = " 6";
  1. ;; END = {if (anchorcnt == 2) {
  1. ;; firstanchor = 1;
  1. ;; if (FIELDSTATUS != FIELD_OK) firstanchor = 0;}
  1. ;; };
  1. ;; HIDDEN = "1";
  1. ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
  1. ;; REQUIRED = "1";
  1. ;;FIELD ' 4
  1. ;; NAME = "BOTTOM RIGHT ANCHOR";
  1. ;; ELEMTYPE = ELEM_PAT;
  1. ;; METRIC = 17 120 120;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 2;
  1. ;; POINTS = 2690 2015 2745 2075;
  1. ;; PAGE = 0;
  1. ;; CONFIDENCE = " 6";
  1. ;; HIDDEN = "1";
  1. ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
  1. ;; REQUIRED = "1";
  1. ;; END={INT aset;
  1. ;;INT result;
  1. ;; if (anchorcnt == 2){
  1. ;; if ((firstanchor == 1) && (FIELDSTATUS == FIELD_OK))
  1. ;; aset = ANCHORSET(3,4);
  1. ;; else aset =0;
  1. ;; if (aset == 0) {
  1. ;; if (ddechan == 0) SHOW(\"Anchors not found, recognition stopping!\");
  1. ;; if (ddechan != 0) {
  1. ;; result = DDEEXEC(ddechan,\"SAVEFORM(0,0,0,U"\);
  1. ;; DDEPOKE(ddechan,\"DdeServerItem\",\"Anchors not found\");}
  1. ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}}
  1. ;;
  1. ;; if (anchorcnt == 4){
  1. ;; aset = ANCHORSET(1,4);
  1. ;; if (aset == 0) {
  1. ;; if (ddechan == 0) SHOW(\"Anchors not found, recognition stopping!\");
  1. ;; if (ddechan != 0) {
  1. ;; result = DDEEXEC(ddechan,\"SAVEFORM(0,0,0,U"\);
  1. ;; DDEPOKE(ddechan,\"DdeServerItem\",\"Anchors not found\");}
  1. ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}}
  1. ;; };
  1. ;;FIELD ' 5
  1. ;;NAME = "SCANPAGE?";
  1. ;; ELEMTYPE = ELEM_PAT;
  1. ;; METRIC = 17 120 120;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 2;
  1. ;; POINTS = 2669 1264 2734 1344;
  1. ;; PAGE = 0;
  1. ;; CONFIDENCE = " 7";
  1. ;; HIDDEN = "1";
  1. ;; Pattern = "PATTERN=C:\\VISTA\\AICS\\FORMSPEC\\AICSLOGO.BMP";
  1. ;; REQUIRED = "1";
  1. ;;FIELD ' 6
  1. ;; NAME = "FORM ID CHECK";
  1. ;; ELEMTYPE = ELEM_OCR;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 3;
  1. ;; POINTS = 50 1412 150 1545;
  1. ;; PAGE = 0;
  1. ;; CHARFORMAT = "NOSPACES";
  1. ;; END = {
  1. ;; check=GETIVALUE(FIELDNAME);
  1. ;; if (check < 1) FIELDSTATUS = FIELD_BAD;
  1. ;; if (GETSTATUS(FIELDNAME) == FIELD_BLANK) FIELDSTATUS = FIELD_BAD;};
  1. ;; REQUIRED = "1";
  1. ;;FIELD ' 7
  1. ;; NAME = "FORM ID";
  1. ;; ELEMTYPE = ELEM_OCR;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 9;
  1. ;; POINTS = 50 635 150 910;
  1. ;; PAGE = 0;
  1. ;; CHARFORMAT = "NOSPACES";
  1. ;; END = {
  1. ;; INT checksum;
  1. ;; INT div;
  1. ;;
  1. ;; pfid=GETIVALUE(FIELDNAME);
  1. ;; checksum=3*pfid;
  1. ;; div=checksum/997;
  1. ;; checksum=checksum-(div*997);
  1. ;; if ((checksum!=check)&&(FIELDACCEPTED!=1)) {
  1. ;; FIELDSTATUS=FIELD_BAD;
  1. ;; }
  1. ;;};
  1. ;;FIELD ' 8
  1. ;; NAME = "PAGE CHECK";
  1. ;; ELEMTYPE = ELEM_OCR;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 3;
  1. ;; POINTS = 50 1590 150 1700;
  1. ;; PAGE = 0;
  1. ;; CHARFORMAT = "NOSPACES";
  1. ;; END = {
  1. ;; check=GETIVALUE(FIELDNAME);
  1. ;; if (check < 1) FIELDSTATUS = FIELD_BAD;
  1. ;; if (GETSTATUS(FIELDNAME) == FIELD_BLANK) FIELDSTATUS = FIELD_BAD;};
  1. ;; REQUIRED = "1";
  1. ;;FIELD ' 9
  1. ;; NAME = "PAGE";
  1. ;; ELEMTYPE = ELEM_OCR;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 1;
  1. ;; POINTS = 50 1860 150 1950;
  1. ;; PAGE = 0;
  1. ;; CHARFORMAT = "NOSPACES";
  1. ;; END = {INT checksum;
  1. ;; INT div;
  1. ;; ALPHA next;
  1. ;;
  1. ;; page=GETIVALUE(FIELDNAME);
  1. ;; next=STRCAT("TOP OF PAGE ",ITOA(page));
  1. ;; checksum=3*page;
  1. ;; div=checksum/997;
  1. ;; checksum=checksum-(div*997);
  1. ;;
  1. ;; if ((checksum!=check)&&(FIELDACCEPTED!=1)) {
  1. ;; FIELDSTATUS=FIELD_BAD;
  1. ;; }
  1. PGCK ;; else if ((page!=1)&&(page!=2)){
  1. ;; FIELDSTATUS=FIELD_BAD;
  1. ;; }
  1. ;; else if (page>1) {NEXTFIELD=GETNUM(next); }
  1. ;;};
  1. QUIT ;;
  1. ;;
  1. ;;
  1. TOPOFPG ;;
  1. NUMBER1 ;;FIELD ' 49
  1. FLDNAME ;; NAME = "TOP OF PAGE 2";
  1. ;; ELEMTYPE = RECT;
  1. ;; METRIC = 2 2 0 0 0 0 0 0 0;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 1;
  1. ;; POINTS = 100 2040;
  1. PAGE1 ;; PAGE = 1;
  1. ;; HIDDEN="1";
  1. ;; EXFORMAT="NOEXPORT";
  1. QUIT1 ;;
  1. ;;
  1. BOTTOM ;;
  1. NUMBER2 ;;FIELD ' 49
  1. NAME2 ;; NAME = "BOTTOM OF PAGE";
  1. ;; ELEMTYPE = RECT;
  1. ;; METRIC = 2 2 0 0 0 0 0 0 0;
  1. ;; DATATYPE =INT;
  1. ;; LENGTH = 1;
  1. ;; POINTS = 100 2040;
  1. PAGE2 ;; PAGE = 1;
  1. ;; HIDDEN="1";
  1. ;;END = {INT result;
  1. ;;INT loop;
  1. ;;ALPHA Data;
  1. ;;ALPHA str;
  1. ;;ALPHA RS;
  1. ;;ALPHA Save;
  1. ;;ALPHA New;
  1. ;;ALPHA Add;
  1. ;;ALPHA End;
  1. ;;
  1. ;;if (ddechan == 0) {
  1. ;; SHOW(\"AICS is not connected, no data exported!\");
  1. ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}
  1. ;;
  1. ;;New=\"$$NEW$$("\;
  1. ;;Add=\"$$ADD$$("\;
  1. ;;End=\"$$END$$("\;
  1. ;;RS=STRCAT(",",ITOC(13));
  1. ;;
  1. ;;if (BATCH&&(saveunrf>0)){
  1. SAVE ;; Save = \"SAVEFORM("\;
  1. ;; if (ddechan != 0) result = DDEEXEC(ddechan,Save);
  1. ;; if (result==0) SHOW(\"Warning: Saving of Unrecognized form in AICS has Failed!\");
  1. ;; else DDEPOKE(ddechan,\"DdeServerItem\",\"Operator Verification Needed\");
  1. ;; CHAIN(\"C:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);}
  1. ;;
  1. ;; if (ddechan != 0) {
  1. EXPORT ;; \'if (STRFIND(Data,RS,STRLEN(Data) - 1) > 0) {;; \' Data = SUBSTR(Data,1,STRLEN(Data) - 1); }
  1. ;;
  1. ;; result=DDEPOKE(ddechan,\"DdeServerItem\",End);}
  1. ;;CHAIN(\"c:\\\\vista\\\\aics\\\\formspec\\\\AICSMSTR.FS\",1);
  1. ;;};
  1. ;;EXFORMAT="NOEXPORT";
  1. QUIT2 ;;