APSAPOS.m

APSAPOS ;IHS/DSD/ENM - NDC FLD 31 PARTIAL FOR ZNDC [ 01/12/2000  10:15 AM ]

 ;;6.1;IHS PHARMACY AWP;**6**;12/02/99

 S APSTEST=0

 S X="APSAWP2" X ^%ZOSF("TEST") I $T S APSTEST=1 D  ;CHECK IF RTN EXIST ON SYS

 .W !!!,?10,">>>>HOLD ON WHILE I RE-INDEX YOUR 'ZNDC' CROSS-REFERENCE<<<<",!!!

 .D ZNDC^APSAWP2

 .W !!!,?10,">>>>NOW, I WILL RE-RUN YOUR AVERAGE WHOLESALE PRICE UPDATE<<<<",!!!

 .D MANU^APSAWP2

 .W !!!,?10,"OK I'M DONE..............",!! H 2 W !,"NOTE: A MAIL MESSAGE WILL BE SENT TO ALL PHARMACY USERS WITH THE 'PSOMCORE' KEY",!,?6,"CONTAINING AWP UPDATE INFORMATION !!!!",!!

 .Q

EMT I APSTEST=0 D  ;IF AWP ROUTINES DON'T EXIST

 .W !!,*7,"YOUR SYSTEM IS NOT RUNNING THE AVERAGE WHOLESALE PRICE PACKAGE!!",!,"THEREFORE, NO UPDATING WILL OCCUR!!",!!

 .W !!,"I'M DONE...............",!

 .Q

 K APSTEST

 Q

APSAPOS   ;IHS/DSD/ENM - NDC FLD 31 PARTIAL FOR ZNDC [ 01/12/2000  10:15 AM ]

 +1       ;;6.1;IHS PHARMACY AWP;**6**;12/02/99

 +2        SET APSTEST=0

 +3       ;CHECK IF RTN EXIST ON SYS

           SET X="APSAWP2"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               SET APSTEST=1

               Begin DoDot:1

 +4                WRITE !!!,?10,">>>>HOLD ON WHILE I RE-INDEX YOUR 'ZNDC' CROSS-REFERENCE<<<<",!!!

 +5                DO ZNDC^APSAWP2

 +6                WRITE !!!,?10,">>>>NOW, I WILL RE-RUN YOUR AVERAGE WHOLESALE PRICE UPDATE<<<<",!!!

 +7                DO MANU^APSAWP2

 +8                WRITE !!!,?10,"OK I'M DONE..............",!!

                   HANG 2

                   WRITE !,"NOTE: A MAIL MESSAGE WILL BE SENT TO ALL PHARMACY USERS WITH THE 'PSOMCORE' KEY",!,?6,"CONTAINING AWP UPDATE INFORMATION !!!!",!!

 +9                QUIT 

               End DoDot:1

EMT       ;IF AWP ROUTINES DON'T EXIST

           IF APSTEST=0

               Begin DoDot:1

 +1                WRITE !!,*7,"YOUR SYSTEM IS NOT RUNNING THE AVERAGE WHOLESALE PRICE PACKAGE!!",!,"THEREFORE, NO UPDATING WILL OCCUR!!",!!

 +2                WRITE !!,"I'M DONE...............",!

 +3                QUIT 

               End DoDot:1

 +4        KILL APSTEST

 +5        QUIT