IBDFBKS1 ;ALB/CJM/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version CONTINUATION) ; 6-JUN-95
Source file <IBDFBKS1.m>
Package | Total | Caller Graph |
---|---|---|
Automated Information Collection System | 2 | IBDFBKS IBDFBKS3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
QUIT | ;;
|
|
SAVE | ;; Save = \"SAVEFORM("\;
|
|
NAME | ;; NAME = "ENCOUNTER FORM 71";
|
|
FORM | ;;
|
|
BOTTOM | ;;
|
|
EXPORT | ;; \'if (STRFIND(Data,RS,STRLEN(Data) - 1) > 0) {;; \' Data = SUBSTR(Data,1,STRLEN(Data) - 1); }
|
|
FLDNAME | ;; NAME = "TOP OF PAGE 2";
|
|
NUMBER2 | ;;FIELD ' 49
|
|
NUMBER1 | ;;FIELD ' 49
|
|
QUIT2 | ;;
|
|
NAME2 | ;; NAME = "BOTTOM OF PAGE";
|
|
TOPOFPG | ;;
|
|
QUIT1 | ;;
|
|
PAGE2 | ;; PAGE = 1;
|
|
PGCK | ;; else if ((page!=1)&&(page!=2)){
|
|
PAGE1 | ;; PAGE = 1;
|