BDGIMPL.m

BDGIMPL ; IHS/ANMC/LJF - ADT IMPLEMENTATION ; 

 ;;5.3;PIMS;;APR 26, 2002

 ;

 Q

 ;

EN ;EP; called by installer from programmer mode

 ; runs through items on ADT System Definition Menu after install

 ;    while users still off system

 ;

 NEW BDGDIV D VAR^BDGVAR   ;set up system wide variables

 ;

ACTION ; -- choose which action to perform

 NEW BDGACT,BDGA,X,Y,BDGQUIT

 W !!

 F X=1:1:5 S BDGA(X)=$J(X,3)_". "_$P($T(RPT+X),";;",2)

 S Y=$$READ^BDGF("NO^1:5","Choose Implementation Action","","","",.BDGA)

 Q:'Y  I Y=5 S XQH="BDG IMPLEMENT" D EN^XQH G ACTION

 S BDGACT=$P($T(RPT+Y),";;",3) X BDGACT D EN^XBVK("VALM")

 D ACTION

 Q

 ;

RPT ;;

 ;;Edit ADT Parameters;;D ^BDGPARM;;

 ;;Set Up ADT Files;;D ^BDGSYS;;

 ;;Check ADT-PCC Link;;NEW X S X=$$CHECK^BDGVAR(2);;

 ;;Initialize Census Files;;D ^BDGCENI;;

 ;;On-line Help;;

BDGIMPL   ; IHS/ANMC/LJF - ADT IMPLEMENTATION ; 

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

 +2       ;

 +3        QUIT 

 +4       ;

EN        ;EP; called by installer from programmer mode

 +1       ; runs through items on ADT System Definition Menu after install

 +2       ;    while users still off system

 +3       ;

 +4       ;set up system wide variables

           NEW BDGDIV

           DO VAR^BDGVAR

 +5       ;

ACTION    ; -- choose which action to perform

 +1        NEW BDGACT,BDGA,X,Y,BDGQUIT

 +2        WRITE !!

 +3        FOR X=1:1:5

               SET BDGA(X)=$JUSTIFY(X,3)_". "_$PIECE($TEXT(RPT+X),";;",2)

 +4        SET Y=$$READ^BDGF("NO^1:5","Choose Implementation Action","","","",.BDGA)

 +5        IF 'Y

               QUIT 

           IF Y=5

               SET XQH="BDG IMPLEMENT"

               DO EN^XQH

               GOTO ACTION

 +6        SET BDGACT=$PIECE($TEXT(RPT+Y),";;",3)

           XECUTE BDGACT

           DO EN^XBVK("VALM")

 +7        DO ACTION

 +8        QUIT 

 +9       ;

RPT       ;;

 +1       ;;Edit ADT Parameters;;D ^BDGPARM;;

 +2       ;;Set Up ADT Files;;D ^BDGSYS;;

 +3       ;;Check ADT-PCC Link;;NEW X S X=$$CHECK^BDGVAR(2);;

 +4       ;;Initialize Census Files;;D ^BDGCENI;;

 +5       ;;On-line Help;;