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