BDGH05.m

BDGH05 ; IHS/ANMC/LJF - INTRO TEXT FOR SYSTEM SETUP MENU ;

 ;;5.3;PIMS;;APR 26, 2002

 ;

 Q

 ;

EAP ;EP; intro text for Edit ADT Parameters

 NEW BDGX

 D DISPLAY(5)

 Q

 ;

ICF ;EP; intro text for Initialize Census Files option

 NEW BDGX

 D DISPLAY(3)

 Q

 ;

SAF ;EP; intro text for Setup ADT Files option

 NEW BDGX

 S BDGX(1)="Use this option to add local entries to standard ADT files"

 S BDGX(2)="and to edit local fields in those same files."

 D DISPLAY(2)

 Q

 ;

DISPLAY(N) ; -- display array with N lines

 S BDGX(1,"F")="!!!?5"

 F I=2:1:N S BDGX(I,"F")="!?5"

 S BDGX(N+1,"F")="!!"

 D EN^DDIOL(.BDGX)

 D VAR^BDGVAR      ;makes all options able to run independently

 Q

BDGH05    ; IHS/ANMC/LJF - INTRO TEXT FOR SYSTEM SETUP MENU ;

 +1       ;;5.3;PIMS;;APR 26, 2002

 +2       ;

 +3        QUIT 

 +4       ;

EAP       ;EP; intro text for Edit ADT Parameters

 +1        NEW BDGX

 +2        DO DISPLAY(5)

 +3        QUIT 

 +4       ;

ICF       ;EP; intro text for Initialize Census Files option

 +1        NEW BDGX

 +2        DO DISPLAY(3)

 +3        QUIT 

 +4       ;

SAF       ;EP; intro text for Setup ADT Files option

 +1        NEW BDGX

 +2        SET BDGX(1)="Use this option to add local entries to standard ADT files"

 +3        SET BDGX(2)="and to edit local fields in those same files."

 +4        DO DISPLAY(2)

 +5        QUIT 

 +6       ;

DISPLAY(N) ; -- display array with N lines

 +1        SET BDGX(1,"F")="!!!?5"

 +2        FOR I=2:1:N

               SET BDGX(I,"F")="!?5"

 +3        SET BDGX(N+1,"F")="!!"

 +4        DO EN^DDIOL(.BDGX)

 +5       ;makes all options able to run independently

           DO VAR^BDGVAR

 +6        QUIT