Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: APSAPOST

APSAPOST.m

Go to the documentation of this file. 
  1. 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
  1. CHK W !! I $G(^DD(52,0,"VR"))<6 W !!,*7,"Version 6.0 must be installed before running this routine." G EX
  1.  W !!,"Installing APSA AWP AUTO QUEUE and APSA AWP MANUAL UPDATE options!",!!!,?30,"N O T I C E ! ! ",!!!,"OPTIONS.......",!
  1.  W !,"'APSA AWP AUTO QUEUE' will be added to the 'PSO AUTOQUEUE JOBS' option."
  1.  W !,"'APSA AWP MANUAL UPDATE' will be added to your 'PSO MAINTENANCE' menu.",! H 5
  1.  D A1,A2
  1.  D ZNDC^APSAWP2 ;RE-INDEX THE ZNDC XREF IN THE DRUG FILE
  1.  W !!,"Installation Complete!!",!
  1.  Q
  1.  ;
  1. A1 S DA=$O(^DIC(19,"B","APSA AWP AUTO QUEUE",0)) G:'DA OPTION
  1.  W !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has already been installed."
  1.  Q
  1. A2 S DA=$O(^DIC(19,"B","APSA AWP MANUAL UPDATE",0)) G:'DA OPTION1
  1.  W !,*7,*7,"The 'APSA AWP MANUAL UPDATE' option has already been installed." G EX
  1. 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"
  1.  K DD,DO D FILE^DICN K DIC
  1.  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"
  1.  S ^DIC(19,DA,1,2,0)="and automatically update your local drug file with AWP pricing data."
  1.  S ^DIC(19,DA,1,3,0)="It will also send a mail message to your pharmacy supervisor for any"
  1.  S ^DIC(19,DA,1,4,0)="active drugs that couldn't be updated."
  1.  W !,"Option 'AWP AUTO QUEUE' installed!"
  1. PATH ;SETUP OPTION IN OPTION SCHEDULING FILE 19.2
  1.  S DA=$O(^DIC(19.2,"B",APSADA,0)) G:'DA OPTX
  1.  W !,*7,*7,"The 'APSA AWP AUTO QUEUE' option has already been installed in the Opt Scheduling file."
  1.  Q
  1. OPTX ;
  1.  S DIC="^DIC(19.2,",DIC(0)="MZ",X=APSADA,DIC("DR")="6///24H"
  1.  K DD,DO D FILE^DICN K DIC
  1.  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'"
  1.  W !,"       located in the 'PSO MAINTENANCE' (Queue Background Jobs) option.",!!
  1.  H 5
  1.  K APSADA
  1.  Q
  1. 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"
  1.  K DD,DO D FILE^DICN K DIC
  1.  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"
  1.  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."
  1.  W !,"Option 'AWP MANUAL UPDATE' installed!"
  1.  D MENU
  1.  Q
  1.  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"
  1.  I  W !,"    the PSO MAINTENANCE menu then rerun this routine again." G EX
  1.  S THERE=$O(^DIC(19,DA(1),10,"B",DA,0))
  1.  I THERE W !,*7,*7,"The AWP MANUAL UPDATE option has already been added to the PSO MAINTENANCE menu.",!!,"Finished!",! G EX
  1.  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
  1.  S $P(^DIC(19,DA(1),10,+Y,0),"^",2)="AWPM" ;SET SYNONYM
  1.  W !,"Option added to PSO MAINTENANCE menu!"
  1.  Q
  1. EX K DA,THERE,X,Y Q