APSPRE.m

APSPRE ; IHS/ITSC/ENM - PSO PATCH 4 ENVIRONMENT CHECK [ 01/22/2003  3:47 PM ]

 ;;6.0;IHS PHARMACY MODIFICATIONS;**4**;01/22/03

 S X="APSQUTL" X ^%ZOSF("TEST")

 I '$T S APSPMSG="Outpatient Pharmacy v6.0 Patch 'pso_0600.03k' MUST be be installed!" D GETUP(APSPMSG,1)

 Q

GETUP(APSPMSG,APSPACT)       ;NOTE APSPACT IS THE XPDQUIT VALUE OF 1

 ;

 K DIFQ

 S XPDQUIT=APSPACT

 I $T W !,$$CJ^XLFSTR(APSPMSG,IOM)

 W *7,!,$$CJ^XLFSTR("Sorry.....",IOM),$$DIR^XBDIR("E","Press Return")

 Q

APSPRE    ; IHS/ITSC/ENM - PSO PATCH 4 ENVIRONMENT CHECK [ 01/22/2003  3:47 PM ]

 +1       ;;6.0;IHS PHARMACY MODIFICATIONS;**4**;01/22/03

 +2        SET X="APSQUTL"

           XECUTE ^%ZOSF("TEST")

 +3        IF '$TEST

               SET APSPMSG="Outpatient Pharmacy v6.0 Patch 'pso_0600.03k' MUST be be installed!"

               DO GETUP(APSPMSG,1)

 +4        QUIT 

GETUP(APSPMSG,APSPACT) ;NOTE APSPACT IS THE XPDQUIT VALUE OF 1

 +1       ;

 +2        KILL DIFQ

 +3        SET XPDQUIT=APSPACT

 +4        IF $TEST

               WRITE !,$$CJ^XLFSTR(APSPMSG,IOM)

 +5        WRITE *7,!,$$CJ^XLFSTR("Sorry.....",IOM),$$DIR^XBDIR("E","Press Return")

 +6        QUIT