AQAOYP2.m

AQAOYP2 ; IHS/ORDC/LJF - PATCH #2 DRIVER ;

 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 ;

 W !!?20,"QAI PATCH 2 DRIVER"

 W !! K DIR S DIR(0)="Y",DIR("B")="NO"

 S DIR("A")="Are you READY to proceed with this update"

 D ^DIR G EXIT:Y'=1

 ;

START ; -- Start of process to install patch #2

 ; -- install 2 print templates & 1 input template

 W !!,"First I need to run an init to install 3 templates:"

 W !?5,"Print templates: AQAO ACTION LIST"

 W !?5,"                 AQAO FINDINGS LIST"

 W !?5,"Input template:  AQAO RATE REVIEW"

 W !,"And to install Help Frames detailing patches",!!

 D ^AQAXINIT

 ;

 ; -- delete temp entry in package file

 W !!,"I will now delete the temporary entry in the PACKAGE file"

 W !,"used to install these templates and help frames.  .  ."

 S DA=$O(^DIC(9.4,"C","AQAX",0)) I DA="" W !,"No entry to DELETE!!"

 I DA]"" S DIK="^DIC(9.4," D ^DIK W !,"Entry DELETED.",!

 K DA,DIK

 ;

 ; -- update entry/exit actions for 2 options

 D CUMP2

 ;

 ;

EXIT ; -- eoj

 Q

 ;

CUMP2 ;EP -- to be called by future patches

 ; -edit entry & exit actions for 2 options

 W !,"I will now update the Entry & Exit Actions for options:"

 W !?5,"AQAO PKGLIST ACTION & AQAO PKGLIST FINDINGS"

 F AQAXI="AQAO PKGLIST ACTION","AQAO PKGLIST FINDINGS" D

 . S DA=$O(^DIC(19,"B",AQAXI,0)) Q:DA=""

 . S DIE=19,DR="20///S AQAOINAC="""";15///K AQAOINAC D PRTOPT^AQAOVAR"

 . D ^DIE

 K AQAXI,DA,DIE,DR W !,"Options UPDATED.",!

 Q

AQAOYP2   ; IHS/ORDC/LJF - PATCH #2 DRIVER ;

 +1       ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 +2       ;

 +3        WRITE !!?20,"QAI PATCH 2 DRIVER"

 +4        WRITE !!

           KILL DIR

           SET DIR(0)="Y"

           SET DIR("B")="NO"

 +5        SET DIR("A")="Are you READY to proceed with this update"

 +6        DO ^DIR

           IF Y'=1

               GOTO EXIT

 +7       ;

START     ; -- Start of process to install patch #2

 +1       ; -- install 2 print templates & 1 input template

 +2        WRITE !!,"First I need to run an init to install 3 templates:"

 +3        WRITE !?5,"Print templates: AQAO ACTION LIST"

 +4        WRITE !?5,"                 AQAO FINDINGS LIST"

 +5        WRITE !?5,"Input template:  AQAO RATE REVIEW"

 +6        WRITE !,"And to install Help Frames detailing patches",!!

 +7        DO ^AQAXINIT

 +8       ;

 +9       ; -- delete temp entry in package file

 +10       WRITE !!,"I will now delete the temporary entry in the PACKAGE file"

 +11       WRITE !,"used to install these templates and help frames.  .  ."

 +12       SET DA=$ORDER(^DIC(9.4,"C","AQAX",0))

           IF DA=""

               WRITE !,"No entry to DELETE!!"

 +13       IF DA]""

               SET DIK="^DIC(9.4,"

               DO ^DIK

               WRITE !,"Entry DELETED.",!

 +14       KILL DA,DIK

 +15      ;

 +16      ; -- update entry/exit actions for 2 options

 +17       DO CUMP2

 +18      ;

 +19      ;

EXIT      ; -- eoj

 +1        QUIT 

 +2       ;

CUMP2     ;EP -- to be called by future patches

 +1       ; -edit entry & exit actions for 2 options

 +2        WRITE !,"I will now update the Entry & Exit Actions for options:"

 +3        WRITE !?5,"AQAO PKGLIST ACTION & AQAO PKGLIST FINDINGS"

 +4        FOR AQAXI="AQAO PKGLIST ACTION","AQAO PKGLIST FINDINGS"

               Begin DoDot:1

 +5                SET DA=$ORDER(^DIC(19,"B",AQAXI,0))

                   IF DA=""

                       QUIT 

 +6                SET DIE=19

                   SET DR="20///S AQAOINAC="""";15///K AQAOINAC D PRTOPT^AQAOVAR"

 +7                DO ^DIE

               End DoDot:1

 +8        KILL AQAXI,DA,DIE,DR

           WRITE !,"Options UPDATED.",!

 +9        QUIT