APSAPOST.m

APSAPOST ;IHS/DSD/ENM - ADD AWP OPTIONS ; 5/6/94 [ 03/13/98  8:58 AM ]

 ;;6.1;IHS PHARMACY AWP;;03/13/98

CHK W !! I $G(^DD(52,0,"VR"))<6 W !!,*7,"Version 6.0 must be installed before running this routine." G EX

 W !!,"Installing APSA AWP AUTO QUEUE and APSA AWP MANUAL UPDATE options!",!!!,?30,"N O T I C E ! ! ",!!!,"OPTIONS.......",!

 W !,"'APSA AWP AUTO QUEUE' will be added to the 'PSO AUTOQUEUE JOBS' option."

 W !,"'APSA AWP MANUAL UPDATE' will be added to your 'PSO MAINTENANCE' menu.",! H 5

 D A1,A2

 D ZNDC^APSAWP2 ;RE-INDEX THE ZNDC XREF IN THE DRUG FILE

 W !!,"Installation Complete!!",!

 Q

 ;

A1 S DA=$O(^DIC(19,"B","APSA AWP AUTO QUEUE",0)) G:'DA OPTION

 W !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has already been installed."

 Q

A2 S DA=$O(^DIC(19,"B","APSA AWP MANUAL UPDATE",0)) G:'DA OPTION1

 W !,*7,*7,"The 'APSA AWP MANUAL UPDATE' option has already been installed." G EX

OPTION S DIC="^DIC(19,",DIC(0)="MZ",X="APSA AWP AUTO QUEUE",DIC("DR")="1///AWP Auto Queue;4///R;25///EP^APSAWP2;1.1///AWP AUTO QUEUE"

 K DD,DO D FILE^DICN K DIC

 S DA=+Y,APSADA=+Y,^DIC(19,DA,1,0)="^^4^4^2980122^^^^",^DIC(19,DA,1,1,0)="This option will check for new Medi-Span AWP data in your AWP Med-Trans File"

 S ^DIC(19,DA,1,2,0)="and automatically update your local drug file with AWP pricing data."

 S ^DIC(19,DA,1,3,0)="It will also send a mail message to your pharmacy supervisor for any"

 S ^DIC(19,DA,1,4,0)="active drugs that couldn't be updated."

 W !,"Option 'AWP AUTO QUEUE' installed!"

PATH ;SETUP OPTION IN OPTION SCHEDULING FILE 19.2

 S DA=$O(^DIC(19.2,"B",APSADA,0)) G:'DA OPTX

 W !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has already been installed in the Opt Scheduling file."

 Q

OPTX ;

 S DIC="^DIC(19.2,",DIC(0)="MZ",X=APSADA,DIC("DR")="6///24H"

 K DD,DO D FILE^DICN K DIC

 W !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has been added to the OPTION SCHEDULING FILE.",!!,"Note: Please advise the Pharmacy Manager to set the 'Queued to Run Time'"

 W !,"       located in the 'PSO MAINTENANCE' (Queue Background Jobs) option.",!!

 H 5

 K APSADA

 Q

OPTION1 S DIC="^DIC(19,",DIC(0)="MZ",X="APSA AWP MANUAL UPDATE",DIC("DR")="1///AWP Manual Update;4///R;25///MANU^APSAWP2;1.1///AWP MANUAL UPDATE"

 K DD,DO D FILE^DICN K DIC

 S DA=+Y,^DIC(19,DA,1,0)="^^3^3^2980122^^^^",^DIC(19,DA,1,1,0)="This option will allow you to manually rerun the Medi-Span AWP update"

 S ^DIC(19,DA,1,2,0)="and automatically update your local drug file with AWP pricing data.",^DIC(19,DA,1,3,0)="It will also send a mail message to your pharmacy supervisor for any active drugs that couldn't be updated."

 W !,"Option 'AWP MANUAL UPDATE' installed!"

 D MENU

 Q

MENU S DA(1)=$O(^DIC(19,"B","PSO MAINTENANCE",0))

 I 'DA(1) W !!,*7,*7,"*** The 'APSA AWP AUTO QUEUE' option has not been added to the PSO MAINTENANCE menu",!,"    because the PSO MAINTENANCE menu does not exist on your system. Install"

 I  W !,"    the PSO MAINTENANCE menu then rerun this routine again." G EX

 S THERE=$O(^DIC(19,DA(1),10,"B",DA,0))

 I THERE W !,*7,*7,"The AWP MANUAL UPDATE option has already been added to the PSO MAINTENANCE menu.",!!,"Finished!",! G EX

 S X=DA,DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="MZ" S:'$D(^DIC(19,DA(1),10,0)) ^DIC(19,DA(1),10,0)="^19.01IP^^" K DD,DO D FILE^DICN K DIC

 S $P(^DIC(19,DA(1),10,+Y,0),"^",2)="AWPM" ;SET SYNONYM

 W !,"Option added to PSO MAINTENANCE menu!"

 Q

EX K DA,THERE,X,Y Q

APSAPOST  ;IHS/DSD/ENM - ADD AWP OPTIONS ; 5/6/94 [ 03/13/98  8:58 AM ]

 +1       ;;6.1;IHS PHARMACY AWP;;03/13/98

CHK        WRITE !!

           IF $GET(^DD(52,0,"VR"))<6

               WRITE !!,*7,"Version 6.0 must be installed before running this routine."

               GOTO EX

 +1        WRITE !!,"Installing APSA AWP AUTO QUEUE and APSA AWP MANUAL UPDATE options!",!!!,?30,"N O T I C E ! ! ",!!!,"OPTIONS.......",!

 +2        WRITE !,"'APSA AWP AUTO QUEUE' will be added to the 'PSO AUTOQUEUE JOBS' option."

 +3        WRITE !,"'APSA AWP MANUAL UPDATE' will be added to your 'PSO MAINTENANCE' menu.",!

           HANG 5

 +4        DO A1

           DO A2

 +5       ;RE-INDEX THE ZNDC XREF IN THE DRUG FILE

           DO ZNDC^APSAWP2

 +6        WRITE !!,"Installation Complete!!",!

 +7        QUIT 

 +8       ;

A1         SET DA=$ORDER(^DIC(19,"B","APSA AWP AUTO QUEUE",0))

           IF 'DA

               GOTO OPTION

 +1        WRITE !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has already been installed."

 +2        QUIT 

A2         SET DA=$ORDER(^DIC(19,"B","APSA AWP MANUAL UPDATE",0))

           IF 'DA

               GOTO OPTION1

 +1        WRITE !,*7,*7,"The 'APSA AWP MANUAL UPDATE' option has already been installed."

           GOTO EX

OPTION     SET DIC="^DIC(19,"

           SET DIC(0)="MZ"

           SET X="APSA AWP AUTO QUEUE"

           SET DIC("DR")="1///AWP Auto Queue;4///R;25///EP^APSAWP2;1.1///AWP AUTO QUEUE"

 +1        KILL DD,DO

           DO FILE^DICN

           KILL DIC

 +2        SET DA=+Y

           SET APSADA=+Y

           SET ^DIC(19,DA,1,0)="^^4^4^2980122^^^^"

           SET ^DIC(19,DA,1,1,0)="This option will check for new Medi-Span AWP data in your AWP Med-Trans File"

 +3        SET ^DIC(19,DA,1,2,0)="and automatically update your local drug file with AWP pricing data."

 +4        SET ^DIC(19,DA,1,3,0)="It will also send a mail message to your pharmacy supervisor for any"

 +5        SET ^DIC(19,DA,1,4,0)="active drugs that couldn't be updated."

 +6        WRITE !,"Option 'AWP AUTO QUEUE' installed!"

PATH      ;SETUP OPTION IN OPTION SCHEDULING FILE 19.2

 +1        SET DA=$ORDER(^DIC(19.2,"B",APSADA,0))

           IF 'DA

               GOTO OPTX

 +2        WRITE !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has already been installed in the Opt Scheduling file."

 +3        QUIT 

OPTX      ;

 +1        SET DIC="^DIC(19.2,"

           SET DIC(0)="MZ"

           SET X=APSADA

           SET DIC("DR")="6///24H"

 +2        KILL DD,DO

           DO FILE^DICN

           KILL DIC

 +3        WRITE !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has been added to the OPTION SCHEDULING FILE.",!!,"Note: Please advise the Pharmacy Manager to set the 'Queued to Run Time'"

 +4        WRITE !,"       located in the 'PSO MAINTENANCE' (Queue Background Jobs) option.",!!

 +5        HANG 5

 +6        KILL APSADA

 +7        QUIT 

OPTION1    SET DIC="^DIC(19,"

           SET DIC(0)="MZ"

           SET X="APSA AWP MANUAL UPDATE"

           SET DIC("DR")="1///AWP Manual Update;4///R;25///MANU^APSAWP2;1.1///AWP MANUAL UPDATE"

 +1        KILL DD,DO

           DO FILE^DICN

           KILL DIC

 +2        SET DA=+Y

           SET ^DIC(19,DA,1,0)="^^3^3^2980122^^^^"

           SET ^DIC(19,DA,1,1,0)="This option will allow you to manually rerun the Medi-Span AWP update"

 +3        SET ^DIC(19,DA,1,2,0)="and automatically update your local drug file with AWP pricing data."

           SET ^DIC(19,DA,1,3,0)="It will also send a mail message to your pharmacy supervisor for any active drugs that couldn't be updated."

 +4        WRITE !,"Option 'AWP MANUAL UPDATE' installed!"

 +5        DO MENU

 +6        QUIT 

MENU       SET DA(1)=$ORDER(^DIC(19,"B","PSO MAINTENANCE",0))

 +1        IF 'DA(1)

               WRITE !!,*7,*7,"*** The 'APSA AWP AUTO QUEUE' option has not been added to the PSO MAINTENANCE menu",!,"    because the PSO MAINTENANCE menu does not exist on your system. Install"

 +2       IF $TEST

               WRITE !,"    the PSO MAINTENANCE menu then rerun this routine again."

               GOTO EX

 +3        SET THERE=$ORDER(^DIC(19,DA(1),10,"B",DA,0))

 +4        IF THERE

               WRITE !,*7,*7,"The AWP MANUAL UPDATE option has already been added to the PSO MAINTENANCE menu.",!!,"Finished!",!

               GOTO EX

 +5        SET X=DA

           SET DIC="^DIC(19,"_DA(1)_",10,"

           SET DIC(0)="MZ"

           IF '$DATA(^DIC(19,DA(1),10,0))

               SET ^DIC(19,DA(1),10,0)="^19.01IP^^"

           KILL DD,DO

           DO FILE^DICN

           KILL DIC

 +6       ;SET SYNONYM

           SET $PIECE(^DIC(19,DA(1),10,+Y,0),"^",2)="AWPM"

 +7        WRITE !,"Option added to PSO MAINTENANCE menu!"

 +8        QUIT 

EX         KILL DA,THERE,X,Y

           QUIT