Routine: IBDFBKS1

IBDFBKS1 ;ALB/CJM/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version CONTINUATION) ; 6-JUN-95

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

FORM ;;

 ;;'Paper Keyboard FormSpec

 ;;'VERSION = 2.53

 ;;'AICS Version 3.0

 ;;INT hasprint;

 ;;INT check;

 ;;INT pfid;

 ;;INT page;

 ;;INT saveunrf;

 ;;ALPHA narrative;

;;

 ;;FORM

NAME ;;  NAME = "ENCOUNTER FORM 71";

 ;;  AREA =  0 0 2810 2150;

 ;;  PAGESIZE = " 2810 2150";

 ;;  ANCHOR1 = NONE;

 ;;  ANCHOR2 = NONE;

 ;;  POINTS = 0 0 0 0;

 ;;  CONFIDENCE = " 9";

 ;;  DATEFORMAT = "6";

 ;;  TIMEFORMAT = "5";

 ;;  EXFORMAT = "STRIP";

 ;;  FS = ",";

 ;;  Recognition = "hasprint=0;";

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

 ;;FIELD ' 1

 ;;  NAME = "ANCHOR 3";

 ;;  ELEMTYPE = CROSSHAIR;

 ;;  METRIC = 3 2 20 50 0 0 90 100;

 ;;  DATATYPE =INT;

 ;;  LENGTH = 1;

 ;;  POINTS = 65 2056;

 ;;  PAGE = 0;

 ;;  ANCHOR = "1";

 ;;  HIDDEN = "1";

 ;;  REQUIRED = "1";

 ;;FIELD ' 2

 ;;  NAME = "ANCHOR 6";

 ;;  ELEMTYPE = CROSSHAIR;

 ;;  METRIC = 3 4 20 50 0 0 90 100;

 ;;  DATATYPE =INT;

 ;;  LENGTH = 1;

 ;;  POINTS = 2729 2056;

 ;;  PAGE = 0;

 ;;  ANCHOR = "1";

 ;;  HIDDEN = "1";

 ;;  REQUIRED = "1";

 ;;FIELD ' 3

 ;;  NAME = "ANCHOR 1";

 ;;  ELEMTYPE = CROSSHAIR;

 ;;  METRIC = 3 1 20 50 0 0 90 100;

 ;;  DATATYPE =INT;

 ;;  LENGTH = 1;

 ;;  POINTS = 65 65;

 ;;  PAGE = 0;

 ;;  ANCHOR = "1";

 ;;  HIDDEN = "1";

 ;;  REQUIRED = "1";

 ;;FIELD ' 4

 ;;  NAME = "ANCHOR 4";

 ;;  ELEMTYPE = CROSSHAIR;

 ;;  METRIC = 3 3 20 50 0 0 90 80;

 ;;  DATATYPE =INT;

 ;;  LENGTH = 1;

 ;;  POINTS = 2729 65;

 ;;  PAGE = 0;

 ;;  ANCHOR = "1";

 ;;  HIDDEN = "1";

 ;;  REQUIRED = "1";

 ;;FIELD ' 5

 ;;NAME = "SCANPAGE?";

 ;;ELEMTYPE = RECT;

 ;;METRIC = 30 30 0 0 0 0 90 0 1;

 ;;DATATYPE =INT;

 ;;LENGTH = 1;

 ;;POINTS = 2710 1273;

 ;;PAGE = 0;

 ;; HIDDEN = "1";

 ;;EXFORMAT="NOEXPORT";

 ;;MAP = "PAGE HAS NO DATA,PAGE HAS DATA";

 ;;XMAP = "0,1";

 ;;FIELD ' 6

 ;;  NAME = "FORM ID CHECK";

 ;;  ELEMTYPE = ELEM_OCR;

 ;;  DATATYPE =INT;

 ;;  LENGTH = 3;

 ;;  POINTS = 60 1422 120 1530;

 ;;  PAGE = 0;

 ;;  CONFIDENCE = " 10";

 ;;  CHARFORMAT = "NOSPACES";

 ;;  END = {

 ;;  check=GETIVALUE(FIELDNAME);};

 ;;  HIDDEN = "1";

 ;;  REQUIRED = "1";

 ;;FIELD ' 7

 ;;  NAME = "FORM ID";

 ;;  ELEMTYPE = ELEM_OCR;

 ;;  DATATYPE =INT;

 ;;  LENGTH = 9;

 ;;  POINTS = 60 652 120 910;

 ;;  PAGE = 0;

 ;;  CONFIDENCE = " 10";

 ;;  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 = 60 1600 120 1700;

 ;;  PAGE = 0;

 ;;  CHARFORMAT = "NOSPACES";

 ;;  END = {

 ;;  check=GETIVALUE(FIELDNAME);};

 ;;  HIDDEN = "1";

 ;;  REQUIRED = "1";

 ;;FIELD ' 9

 ;;  NAME = "PAGE";

 ;;  ELEMTYPE = ELEM_OCR;

 ;;  DATATYPE =INT;

 ;;  LENGTH = 1;

 ;;  POINTS = 60 1858 120 1934;

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

 ;;INT loop;

 ;;ALPHA Data;

 ;;ALPHA str;

 ;;ALPHA  RS;

 ;;ALPHA Save;

 ;;ALPHA New;

 ;;ALPHA Add;

 ;;ALPHA End;

;;

 ;;New=\"$$NEW$$("\;

 ;;Add=\"$$ADD$$("\;

 ;;End=\"$$END$$("\;

 ;;RS=STRCAT(",",ITOC(13));

;;

 ;;if (BATCH&&(saveunrf>0)){

SAVE ;;  Save = \"SAVEFORM("\;

 ;;  ddechan = DDEINIT(\"IBDSCAN\",\"DdeServerConv\");

 ;;    if (ddechan==0) {

 ;;       DIALOG(\"\", \"OK\", \"\",\"Unable to Open Channel to AICS to Export Data!\");

 ;;       CHAIN(\"AICSMSTR.FS\",1);

 ;;       }

 ;;  else {

 ;;    result = DDEEXEC(ddechan,Save);

 ;;    if (result==0) {

 ;;       DIALOG(\"\", \"OK\", \"\", \"Warning: Saving of Unrecognized form in AICS has Failed!\");}

 ;;     else {

 ;;          DDEPOKE(ddechan,\"DdeServerItem\",\"Operator Verification Needed\");}

 ;;    DDETERM(ddechan);

 ;;    }

 ;;  CHAIN(\"AICSMSTR.FS\",1);}

;;

 ;;    ddechan=DDEINIT(\"IBDSCAN\",\"DdeServerConv\");

 ;;    if (ddechan==0) {

 ;;       DIALOG(\"\", \"OK\", \"\",\"Unable to Open Channel to AICS to Export Data!\");

 ;;       CHAIN(\"AICSMSTR.FS\",1);

 ;;       }

 ;;  else {

EXPORT ;;      \'if (STRFIND(Data,RS,STRLEN(Data) - 1) > 0) {;;      \'    Data = SUBSTR(Data,1,STRLEN(Data) - 1); }

 ;;       result=DDEPOKE(ddechan,\"DdeServerItem\",End);

;;

 ;;  DDETERM(ddechan);

 ;;  }

 ;;CHAIN(\"AICSMSTR.FS\",1);

 ;;};

 ;;EXFORMAT="NOEXPORT";

QUIT2 ;;

IBDFBKS1  ;ALB/CJM/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version CONTINUATION) ; 6-JUN-95

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

 +3       ;

FORM      ;;

 +1       ;;'Paper Keyboard FormSpec

 +2       ;;'VERSION = 2.53

 +3       ;;'AICS Version 3.0

 +4       ;;INT hasprint;

 +5       ;;INT check;

 +6       ;;INT pfid;

 +7       ;;INT page;

 +8       ;;INT saveunrf;

 +9       ;;ALPHA narrative;

 +10      ;;

 +11      ;;FORM

NAME      ;;  NAME = "ENCOUNTER FORM 71";

 +1       ;;  AREA =  0 0 2810 2150;

 +2       ;;  PAGESIZE = " 2810 2150";

 +3       ;;  ANCHOR1 = NONE;

 +4       ;;  ANCHOR2 = NONE;

 +5       ;;  POINTS = 0 0 0 0;

 +6       ;;  CONFIDENCE = " 9";

 +7       ;;  DATEFORMAT = "6";

 +8       ;;  TIMEFORMAT = "5";

 +9       ;;  EXFORMAT = "STRIP";

 +10      ;;  FS = ",";

 +11      ;;  Recognition = "hasprint=0;";

 +12      ;;  QUOTABLE = "\\n";

 +13      ;;  ImageProcessing = {

 +14      ;;     IMAGEPROC=1

 +15      ;;     AUTO_ALIGN=0

 +16      ;;     ALIGN_TEXT=0

 +17      ;;     ALIGN_ORIENT=0

 +18      ;;     DESKEW=0

 +19      ;;     DESHADE=0

 +20      ;;     SMOOTH=0

 +21      ;;     REMOVE_BORDER=1

 +22      ;;     REMOVE_NOISE=0

 +23      ;;     PROC_MIN_VERT_LINE_LEN=0

 +24      ;;     PROC_MIN_HORZ_LINE_LEN=0

 +25      ;;     FATTYPE=0

 +26      ;;     FATTEN=0};

 +27      ;;FIELD ' 1

 +28      ;;  NAME = "ANCHOR 3";

 +29      ;;  ELEMTYPE = CROSSHAIR;

 +30      ;;  METRIC = 3 2 20 50 0 0 90 100;

 +31      ;;  DATATYPE =INT;

 +32      ;;  LENGTH = 1;

 +33      ;;  POINTS = 65 2056;

 +34      ;;  PAGE = 0;

 +35      ;;  ANCHOR = "1";

 +36      ;;  HIDDEN = "1";

 +37      ;;  REQUIRED = "1";

 +38      ;;FIELD ' 2

 +39      ;;  NAME = "ANCHOR 6";

 +40      ;;  ELEMTYPE = CROSSHAIR;

 +41      ;;  METRIC = 3 4 20 50 0 0 90 100;

 +42      ;;  DATATYPE =INT;

 +43      ;;  LENGTH = 1;

 +44      ;;  POINTS = 2729 2056;

 +45      ;;  PAGE = 0;

 +46      ;;  ANCHOR = "1";

 +47      ;;  HIDDEN = "1";

 +48      ;;  REQUIRED = "1";

 +49      ;;FIELD ' 3

 +50      ;;  NAME = "ANCHOR 1";

 +51      ;;  ELEMTYPE = CROSSHAIR;

 +52      ;;  METRIC = 3 1 20 50 0 0 90 100;

 +53      ;;  DATATYPE =INT;

 +54      ;;  LENGTH = 1;

 +55      ;;  POINTS = 65 65;

 +56      ;;  PAGE = 0;

 +57      ;;  ANCHOR = "1";

 +58      ;;  HIDDEN = "1";

 +59      ;;  REQUIRED = "1";

 +60      ;;FIELD ' 4

 +61      ;;  NAME = "ANCHOR 4";

 +62      ;;  ELEMTYPE = CROSSHAIR;

 +63      ;;  METRIC = 3 3 20 50 0 0 90 80;

 +64      ;;  DATATYPE =INT;

 +65      ;;  LENGTH = 1;

 +66      ;;  POINTS = 2729 65;

 +67      ;;  PAGE = 0;

 +68      ;;  ANCHOR = "1";

 +69      ;;  HIDDEN = "1";

 +70      ;;  REQUIRED = "1";

 +71      ;;FIELD ' 5

 +72      ;;NAME = "SCANPAGE?";

 +73      ;;ELEMTYPE = RECT;

 +74      ;;METRIC = 30 30 0 0 0 0 90 0 1;

 +75      ;;DATATYPE =INT;

 +76      ;;LENGTH = 1;

 +77      ;;POINTS = 2710 1273;

 +78      ;;PAGE = 0;

 +79      ;; HIDDEN = "1";

 +80      ;;EXFORMAT="NOEXPORT";

 +81      ;;MAP = "PAGE HAS NO DATA,PAGE HAS DATA";

 +82      ;;XMAP = "0,1";

 +83      ;;FIELD ' 6

 +84      ;;  NAME = "FORM ID CHECK";

 +85      ;;  ELEMTYPE = ELEM_OCR;

 +86      ;;  DATATYPE =INT;

 +87      ;;  LENGTH = 3;

 +88      ;;  POINTS = 60 1422 120 1530;

 +89      ;;  PAGE = 0;

 +90      ;;  CONFIDENCE = " 10";

 +91      ;;  CHARFORMAT = "NOSPACES";

 +92      ;;  END = {

 +93      ;;  check=GETIVALUE(FIELDNAME);};

 +94      ;;  HIDDEN = "1";

 +95      ;;  REQUIRED = "1";

 +96      ;;FIELD ' 7

 +97      ;;  NAME = "FORM ID";

 +98      ;;  ELEMTYPE = ELEM_OCR;

 +99      ;;  DATATYPE =INT;

 +100     ;;  LENGTH = 9;

 +101     ;;  POINTS = 60 652 120 910;

 +102     ;;  PAGE = 0;

 +103     ;;  CONFIDENCE = " 10";

 +104     ;;  CHARFORMAT = "NOSPACES";

 +105     ;;  END = {

 +106     ;;  INT checksum;

 +107     ;;  INT div;

 +108     ;;

 +109     ;;  pfid=GETIVALUE(FIELDNAME);

 +110     ;;  checksum=3*pfid;

 +111     ;;  div=checksum/997;

 +112     ;;  checksum=checksum-(div*997);

 +113     ;;  if ((checksum!=check)&&(FIELDACCEPTED!=1)) {

 +114     ;;  FIELDSTATUS=FIELD_BAD;

 +115     ;;  }

 +116     ;;};

 +117     ;;FIELD ' 8

 +118     ;;  NAME = "PAGE CHECK";

 +119     ;;  ELEMTYPE = ELEM_OCR;

 +120     ;;  DATATYPE =INT;

 +121     ;;  LENGTH = 3;

 +122     ;;  POINTS = 60 1600 120 1700;

 +123     ;;  PAGE = 0;

 +124     ;;  CHARFORMAT = "NOSPACES";

 +125     ;;  END = {

 +126     ;;  check=GETIVALUE(FIELDNAME);};

 +127     ;;  HIDDEN = "1";

 +128     ;;  REQUIRED = "1";

 +129     ;;FIELD ' 9

 +130     ;;  NAME = "PAGE";

 +131     ;;  ELEMTYPE = ELEM_OCR;

 +132     ;;  DATATYPE =INT;

 +133     ;;  LENGTH = 1;

 +134     ;;  POINTS = 60 1858 120 1934;

 +135     ;;  PAGE = 0;

 +136     ;;  CHARFORMAT = "NOSPACES";

 +137     ;;  END = {INT  checksum;

 +138     ;;  INT div;

 +139     ;;  ALPHA next;

 +140     ;;

 +141     ;;  page=GETIVALUE(FIELDNAME);

 +142     ;;  next=STRCAT("TOP OF PAGE ",ITOA(page));

 +143     ;;  checksum=3*page;

 +144     ;;  div=checksum/997;

 +145     ;;  checksum=checksum-(div*997);

 +146     ;;

 +147     ;;  if ((checksum!=check)&&(FIELDACCEPTED!=1)) {

 +148     ;;  FIELDSTATUS=FIELD_BAD;

 +149     ;;  }

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

 +4       ;;INT loop;

 +5       ;;ALPHA Data;

 +6       ;;ALPHA str;

 +7       ;;ALPHA  RS;

 +8       ;;ALPHA Save;

 +9       ;;ALPHA New;

 +10      ;;ALPHA Add;

 +11      ;;ALPHA End;

 +12      ;;

 +13      ;;New=\"$$NEW$$("\;

 +14      ;;Add=\"$$ADD$$("\;

 +15      ;;End=\"$$END$$("\;

 +16      ;;RS=STRCAT(",",ITOC(13));

 +17      ;;

 +18      ;;if (BATCH&&(saveunrf>0)){

SAVE      ;;  Save = \"SAVEFORM("\;

 +1       ;;  ddechan = DDEINIT(\"IBDSCAN\",\"DdeServerConv\");

 +2       ;;    if (ddechan==0) {

 +3       ;;       DIALOG(\"\", \"OK\", \"\",\"Unable to Open Channel to AICS to Export Data!\");

 +4       ;;       CHAIN(\"AICSMSTR.FS\",1);

 +5       ;;       }

 +6       ;;  else {

 +7       ;;    result = DDEEXEC(ddechan,Save);

 +8       ;;    if (result==0) {

 +9       ;;       DIALOG(\"\", \"OK\", \"\", \"Warning: Saving of Unrecognized form in AICS has Failed!\");}

 +10      ;;     else {

 +11      ;;          DDEPOKE(ddechan,\"DdeServerItem\",\"Operator Verification Needed\");}

 +12      ;;    DDETERM(ddechan);

 +13      ;;    }

 +14      ;;  CHAIN(\"AICSMSTR.FS\",1);}

 +15      ;;

 +16      ;;    ddechan=DDEINIT(\"IBDSCAN\",\"DdeServerConv\");

 +17      ;;    if (ddechan==0) {

 +18      ;;       DIALOG(\"\", \"OK\", \"\",\"Unable to Open Channel to AICS to Export Data!\");

 +19      ;;       CHAIN(\"AICSMSTR.FS\",1);

 +20      ;;       }

 +21      ;;  else {

EXPORT    ;;      \'if (STRFIND(Data,RS,STRLEN(Data) - 1) > 0) {;;      \'    Data = SUBSTR(Data,1,STRLEN(Data) - 1); }

 +1       ;;       result=DDEPOKE(ddechan,\"DdeServerItem\",End);

 +2       ;;

 +3       ;;  DDETERM(ddechan);

 +4       ;;  }

 +5       ;;CHAIN(\"AICSMSTR.FS\",1);

 +6       ;;};

 +7       ;;EXFORMAT="NOEXPORT";

QUIT2     ;;

IBDFBKS1.m