Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: IBDFBKS1

Package: Automated Information Collection System

Routine: IBDFBKS1


Information

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

Source Information

Source file <IBDFBKS1.m>

Entry Points

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 ;;
Info |  Source |  Entry Points