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

APSPOST9.m

Go to the documentation of this file. 
  1. APSPOST9 ; IHS/DSD/ENM - ADD APSP OPTIONS TO PSO MENU'S ;  [ 09/03/97   1:30 PM ]
  1.  ;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97
  1. EP ;
  1.  W !!,"Now, I'm going to add your 'APSP' menu options to the 'PSO'",!,"menu options........One moment please!",!! H 3
  1.  S M1="PSO MANAGER"
  1.  ;APSP CHRONIC MED PROFILE
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP CHRONIC MED PROFILE",0)) ;item rec nbr
  1.  S DIC("DR")="2///CMP" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP PREPACK MAIN MENU
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP PREPACK MAIN MENU",0)) ;item rec nbr
  1.  S DIC("DR")="2///PREP" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP B LABEL/PRO MONITOR REPRINT (SLAVE PRINTERS)
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP B",0)) ;item rec nbr
  1.  S DIC("DR")="2///LMRS" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP PHAMACY QA MAIN MENU
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP QA MAIN MENU",0)) ;item rec nbr
  1.  S DIC("DR")="2///QAMM" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
  1.  D PT1
  1.  S M1="PSO OUTPUTS"
  1.  ;APSP CONTROLLED DRUG USE
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP CONTROLLED DRUG USE",0)) ;item rec nbr
  1.  S DIC("DR")="2///CDUR" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP DAILY PRESCRIPTION LOG
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP DAILY PRESCRIPTION LOG",0)) ;item rec nbr
  1.  S DIC("DR")="2///DPL" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP DRUG RECALL
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP DRUG RECALL",0)) ;item rec nbr
  1.  S DIC("DR")="2///DRRR" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP DUE
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP DUE",0)) ;item rec nbr
  1.  S DIC("DR")="2///DUER" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP TOTAL DRUGS DISPENSED
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP TOTAL DRUGS DISPENSED",0)) ;item rec nbr
  1.  S DIC("DR")="2///TDDR" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
  1.  D PT1
  1.  S M1="PSO RX"
  1.  ;APSP PATIENT INSTRUCTIONS
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP PATIENT INSTRUCTIONS",0)) ;item rec nbr
  1.  S DIC("DR")="2///MEDI" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP INFORMATION MENU
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP INFORMATION MENU",0)) ;item rec nbr
  1.  S DIC("DR")="2///MIME" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP OUTSIDE RX MENU
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP OUTSIDE RX MENU",0)) ;item rec nbr
  1.  S DIC("DR")="2///ORX" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP SUMMARY LABEL
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP SUMMARY LABEL",0)) ;item rec nbr
  1.  S DIC("DR")="2///SUM" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
  1.  D PT1
  1.  S M1="PSO SUPERVISOR"
  1.  ;APSP INVENTORY BY LOCATION
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP INVENTORY BY LOCATION",0)) ;item rec nbr
  1.  S DIC("DR")="2///DSLL" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO SUPERVISOR",0)) ;main option nbr
  1.  D PT1
  1.  ;APSP INVENTORY LIST
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP INVENTORY LIST",0)) ;item rec nbr
  1.  S DIC("DR")="2///INLI" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSO SUPERVISOR",0)) ;main option nbr
  1.  D PT1
  1.  S M1="PSOZ SITE PARAMETER"
  1.  ;APSP IHS CONTROL
  1.  S DIC("P")=$P(^DD(19,10,0),"^",2)
  1.  S DA=$O(^DIC(19,"B","APSP IHS CONTROL",0)) ;item rec nbr
  1.  S DIC("DR")="2///IHSP" ;synonym
  1.  S DA(1)=$O(^DIC(19,"B","PSOZ SITE PARAMETER",0)) ;main option nbr
  1.  D PT1
  1.  W !!,"OK, I'm done!",!!
  1.  Q
  1. PT1 S APSPN=$P(^DIC(19,DA,0),"^",1) ;name of item option
  1.  I 'DA(1) W !!,*7,*7,"*** The "_APSPN_" option has not been added to vthe"_M1_" menu",!,"    because the "_M1_" menu does not exist on your system. Install"
  1.  I  W !,"    the "_M1_" 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 "_APSPN_" option has already been added to the "_M1_" menu.",!! G EX
  1.  S X=DA,DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMZ" K DD,DO D FILE^DICN K DIC
  1.  W !,APSPN_" Option added to "_M1_" menu!"
  1. EX K DA,THERE,X,Y,APSPN Q
  1.  Q