IBDFBKS1 ;ALB/CJM/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version CONTINUATION) ; 6-JUN-95
Source file <IBDFBKS1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDFBKS IBDFBKS3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FORM | ;;
|
|
| SITE | ;;'VA SITE NAME
|
|
| NAME | ;; NAME = "ENCOUNTER FORM 71";
|
|
| PGCK | ;; else if ((page!=1)&&(page!=2)){
|
|
| QUIT | ;;
|
|
| TOPOFPG | ;;
|
|
| NUMBER1 | ;;FIELD ' 49
|
|
| FLDNAME | ;; NAME = "TOP OF PAGE 2";
|
|
| PAGE1 | ;; PAGE = 1;
|
|
| QUIT1 | ;;
|
|
| BOTTOM | ;;
|
|
| NUMBER2 | ;;FIELD ' 49
|
|
| NAME2 | ;; NAME = "BOTTOM OF PAGE";
|
|
| PAGE2 | ;; PAGE = 1;
|
|
| SAVE | ;; Save = \"SAVEFORM("\;
|
|
| EXPORT | ;; \'if (STRFIND(Data,RS,STRLEN(Data) - 1) > 0) {;; \' Data = SUBSTR(Data,1,STRLEN(Data) - 1); }
|
|
| QUIT2 | ;;
|
