APSPOST9 ; IHS/DSD/ENM - ADD APSP OPTIONS TO PSO MENU'S ; [ 09/03/97 1:30 PM ]
;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97
EP ;
W !!,"Now, I'm going to add your 'APSP' menu options to the 'PSO'",!,"menu options........One moment please!",!! H 3
S M1="PSO MANAGER"
;APSP CHRONIC MED PROFILE
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP CHRONIC MED PROFILE",0)) ;item rec nbr
S DIC("DR")="2///CMP" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
D PT1
;APSP PREPACK MAIN MENU
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP PREPACK MAIN MENU",0)) ;item rec nbr
S DIC("DR")="2///PREP" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
D PT1
;APSP B LABEL/PRO MONITOR REPRINT (SLAVE PRINTERS)
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP B",0)) ;item rec nbr
S DIC("DR")="2///LMRS" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
D PT1
;APSP PHAMACY QA MAIN MENU
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP QA MAIN MENU",0)) ;item rec nbr
S DIC("DR")="2///QAMM" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO MANAGER",0)) ;main option nbr
D PT1
S M1="PSO OUTPUTS"
;APSP CONTROLLED DRUG USE
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP CONTROLLED DRUG USE",0)) ;item rec nbr
S DIC("DR")="2///CDUR" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
D PT1
;APSP DAILY PRESCRIPTION LOG
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP DAILY PRESCRIPTION LOG",0)) ;item rec nbr
S DIC("DR")="2///DPL" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
D PT1
;APSP DRUG RECALL
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP DRUG RECALL",0)) ;item rec nbr
S DIC("DR")="2///DRRR" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
D PT1
;APSP DUE
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP DUE",0)) ;item rec nbr
S DIC("DR")="2///DUER" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
D PT1
;APSP TOTAL DRUGS DISPENSED
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP TOTAL DRUGS DISPENSED",0)) ;item rec nbr
S DIC("DR")="2///TDDR" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO OUTPUTS",0)) ;main option nbr
D PT1
S M1="PSO RX"
;APSP PATIENT INSTRUCTIONS
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP PATIENT INSTRUCTIONS",0)) ;item rec nbr
S DIC("DR")="2///MEDI" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
D PT1
;APSP INFORMATION MENU
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP INFORMATION MENU",0)) ;item rec nbr
S DIC("DR")="2///MIME" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
D PT1
;APSP OUTSIDE RX MENU
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP OUTSIDE RX MENU",0)) ;item rec nbr
S DIC("DR")="2///ORX" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
D PT1
;APSP SUMMARY LABEL
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP SUMMARY LABEL",0)) ;item rec nbr
S DIC("DR")="2///SUM" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
D PT1
S M1="PSO SUPERVISOR"
;APSP INVENTORY BY LOCATION
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP INVENTORY BY LOCATION",0)) ;item rec nbr
S DIC("DR")="2///DSLL" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO SUPERVISOR",0)) ;main option nbr
D PT1
;APSP INVENTORY LIST
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP INVENTORY LIST",0)) ;item rec nbr
S DIC("DR")="2///INLI" ;synonym
S DA(1)=$O(^DIC(19,"B","PSO SUPERVISOR",0)) ;main option nbr
D PT1
S M1="PSOZ SITE PARAMETER"
;APSP IHS CONTROL
S DIC("P")=$P(^DD(19,10,0),"^",2)
S DA=$O(^DIC(19,"B","APSP IHS CONTROL",0)) ;item rec nbr
S DIC("DR")="2///IHSP" ;synonym
S DA(1)=$O(^DIC(19,"B","PSOZ SITE PARAMETER",0)) ;main option nbr
D PT1
W !!,"OK, I'm done!",!!
Q
PT1 S APSPN=$P(^DIC(19,DA,0),"^",1) ;name of item option
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"
I W !," the "_M1_" 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 "_APSPN_" option has already been added to the "_M1_" menu.",!! G EX
S X=DA,DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMZ" K DD,DO D FILE^DICN K DIC
W !,APSPN_" Option added to "_M1_" menu!"
EX K DA,THERE,X,Y,APSPN Q
Q
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
EP ;
+1 WRITE !!,"Now, I'm going to add your 'APSP' menu options to the 'PSO'",!,"menu options........One moment please!",!!
HANG 3
+2 SET M1="PSO MANAGER"
+3 ;APSP CHRONIC MED PROFILE
+4 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+5 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP CHRONIC MED PROFILE",0))
+6 ;synonym
SET DIC("DR")="2///CMP"
+7 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO MANAGER",0))
+8 DO PT1
+9 ;APSP PREPACK MAIN MENU
+10 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+11 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP PREPACK MAIN MENU",0))
+12 ;synonym
SET DIC("DR")="2///PREP"
+13 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO MANAGER",0))
+14 DO PT1
+15 ;APSP B LABEL/PRO MONITOR REPRINT (SLAVE PRINTERS)
+16 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+17 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP B",0))
+18 ;synonym
SET DIC("DR")="2///LMRS"
+19 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO MANAGER",0))
+20 DO PT1
+21 ;APSP PHAMACY QA MAIN MENU
+22 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+23 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP QA MAIN MENU",0))
+24 ;synonym
SET DIC("DR")="2///QAMM"
+25 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO MANAGER",0))
+26 DO PT1
+27 SET M1="PSO OUTPUTS"
+28 ;APSP CONTROLLED DRUG USE
+29 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+30 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP CONTROLLED DRUG USE",0))
+31 ;synonym
SET DIC("DR")="2///CDUR"
+32 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO OUTPUTS",0))
+33 DO PT1
+34 ;APSP DAILY PRESCRIPTION LOG
+35 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+36 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP DAILY PRESCRIPTION LOG",0))
+37 ;synonym
SET DIC("DR")="2///DPL"
+38 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO OUTPUTS",0))
+39 DO PT1
+40 ;APSP DRUG RECALL
+41 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+42 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP DRUG RECALL",0))
+43 ;synonym
SET DIC("DR")="2///DRRR"
+44 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO OUTPUTS",0))
+45 DO PT1
+46 ;APSP DUE
+47 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+48 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP DUE",0))
+49 ;synonym
SET DIC("DR")="2///DUER"
+50 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO OUTPUTS",0))
+51 DO PT1
+52 ;APSP TOTAL DRUGS DISPENSED
+53 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+54 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP TOTAL DRUGS DISPENSED",0))
+55 ;synonym
SET DIC("DR")="2///TDDR"
+56 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO OUTPUTS",0))
+57 DO PT1
+58 SET M1="PSO RX"
+59 ;APSP PATIENT INSTRUCTIONS
+60 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+61 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP PATIENT INSTRUCTIONS",0))
+62 ;synonym
SET DIC("DR")="2///MEDI"
+63 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO RX",0))
+64 DO PT1
+65 ;APSP INFORMATION MENU
+66 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+67 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP INFORMATION MENU",0))
+68 ;synonym
SET DIC("DR")="2///MIME"
+69 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO RX",0))
+70 DO PT1
+71 ;APSP OUTSIDE RX MENU
+72 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+73 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP OUTSIDE RX MENU",0))
+74 ;synonym
SET DIC("DR")="2///ORX"
+75 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO RX",0))
+76 DO PT1
+77 ;APSP SUMMARY LABEL
+78 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+79 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP SUMMARY LABEL",0))
+80 ;synonym
SET DIC("DR")="2///SUM"
+81 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO RX",0))
+82 DO PT1
+83 SET M1="PSO SUPERVISOR"
+84 ;APSP INVENTORY BY LOCATION
+85 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+86 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP INVENTORY BY LOCATION",0))
+87 ;synonym
SET DIC("DR")="2///DSLL"
+88 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO SUPERVISOR",0))
+89 DO PT1
+90 ;APSP INVENTORY LIST
+91 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+92 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP INVENTORY LIST",0))
+93 ;synonym
SET DIC("DR")="2///INLI"
+94 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSO SUPERVISOR",0))
+95 DO PT1
+96 SET M1="PSOZ SITE PARAMETER"
+97 ;APSP IHS CONTROL
+98 SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)
+99 ;item rec nbr
SET DA=$ORDER(^DIC(19,"B","APSP IHS CONTROL",0))
+100 ;synonym
SET DIC("DR")="2///IHSP"
+101 ;main option nbr
SET DA(1)=$ORDER(^DIC(19,"B","PSOZ SITE PARAMETER",0))
+102 DO PT1
+103 WRITE !!,"OK, I'm done!",!!
+104 QUIT
PT1 ;name of item option
SET APSPN=$PIECE(^DIC(19,DA,0),"^",1)
+1 IF 'DA(1)
WRITE !!,*7,*7,"*** The "_APSPN_" option has not been added to vthe"_M1_" menu",!," because the "_M1_" menu does not exist on your system. Install"
+2 IF $TEST
WRITE !," the "_M1_" 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 "_APSPN_" option has already been added to the "_M1_" menu.",!!
GOTO EX
+5 SET X=DA
SET DIC="^DIC(19,"_DA(1)_",10,"
SET DIC(0)="LMZ"
KILL DD,DO
DO FILE^DICN
KILL DIC
+6 WRITE !,APSPN_" Option added to "_M1_" menu!"
EX KILL DA,THERE,X,Y,APSPN
QUIT
+1 QUIT
