DVBC251P ;ALB/BG - PATCH DVBA*2.7*251 POST-INSTALL ROUTINE; SEP 20, 2023@10:20 ; 11/17/23 10:08am
;;2.7;AMIE;**251**;Apr 10, 1995;Build 8
; Per VHA Directive 6402 this routine should not be modified
Q
;
OPEN ;
N DVBCT,DVBOPT
F DVBCT=1:1 S DVBOPT=$T(OPT+DVBCT) Q:DVBOPT'[";;" S DVBOPT=$P(DVBOPT,";;",2) D
.S DIC="^DIC(19,",DIC(0)="MZ",X=DVBOPT
.D ^DIC K DIC
.I Y<0 D BMES^XPDUTL(" "_DVBOPT_" option update failed") Q
.I Y>0 D
..S DIE="^DIC(19,",DIC(0)="MZ",DA=+Y,DR="2///@"
..D ^DIE
..D BMES^XPDUTL(" "_DVBOPT_" option updated")
..K DIE,DIC,DR
..Q
.Q
K DIC,DIE,X,Y,DVBCT,DVBOPT,DA,DR
D POST
Q
OPT ;
;;DVBA HRC MENU PHARMACY
;;DVBA HRC MENU PHARMACY CC
;
POST ;
;Pharmacy menu
D BMES^XPDUTL("-> Adding options to HRC Pharmacy Customer Care Menu <-")
D ADDMNU("DVBA HRC MENU PHARMACY CC","DVBA HRC MENU","HRC",5)
D ADDMNU("DVBA HRC MENU PHARMACY CC","PSO P","MP",15)
D ADDMNU("DVBA HRC MENU PHARMACY CC","PSO VIEW","VW",20)
D ADDMNU("DVBA HRC MENU PHARMACY CC","OR MAIN MENU WARD CLERK","WC",25)
D ADDMNU("DVBA HRC MENU PHARMACY CC","PSO HRC PROFILE/REFILL","PPR",30)
D ADDMNU("DVBA HRC MENU PHARMACY CC","PRCA FP VETERAN CHRG RPT","VCR",35)
;
D BMES^XPDUTL("-> Adding options to HRC Pharmacy Menu <-")
D ADDMNU("DVBA HRC MENU PHARMACY","DVBA HRC MENU","HRC",1)
D ADDMNU("DVBA HRC MENU PHARMACY","PSOCP RESET COPAY STATUS","RC",5)
D ADDMNU("DVBA HRC MENU PHARMACY","PSO P","MP",10)
D ADDMNU("DVBA HRC MENU PHARMACY","PSO VIEW","VW",15)
D ADDMNU("DVBA HRC MENU PHARMACY","PSO LM BACKDOOR ORDERS","PP",7)
D ADDMNU("DVBA HRC MENU PHARMACY","OR MAIN MENU WARD CLERK","WC",20)
D ADDMNU("DVBA HRC MENU PHARMACY","PSO HRC PROFILE/REFILL","PPR",30)
D ADDMNU("DVBA HRC MENU PHARMACY","PSOCP RESET COPAY STATUS LM","RCL",6)
D ADDMNU("DVBA HRC MENU PHARMACY","PRCA FP VETERAN CHRG RPT","VCR",35)
;
ADDMNU(DVB1,DVB2,DVB3,DVB4) ;
;Adds Items to Menu (#19.01) subfile in Option (#19) file
N DVOK
S DVOK=$$ADD^XPDMENU(DVB1,DVB2,DVB3,DVB4)
I 'DVOK D Q
.D MES^XPDUTL(" Could not add "_DVB2_" to "_DVB1)
D MES^XPDUTL(" "_DVB2_" added to "_DVB1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBC251P 2138 printed Nov 22, 2024@16:53:29 Page 2
DVBC251P ;ALB/BG - PATCH DVBA*2.7*251 POST-INSTALL ROUTINE; SEP 20, 2023@10:20 ; 11/17/23 10:08am
+1 ;;2.7;AMIE;**251**;Apr 10, 1995;Build 8
+2 ; Per VHA Directive 6402 this routine should not be modified
+3 QUIT
+4 ;
OPEN ;
+1 NEW DVBCT,DVBOPT
+2 FOR DVBCT=1:1
SET DVBOPT=$TEXT(OPT+DVBCT)
if DVBOPT'[";;"
QUIT
SET DVBOPT=$PIECE(DVBOPT,";;",2)
Begin DoDot:1
+3 SET DIC="^DIC(19,"
SET DIC(0)="MZ"
SET X=DVBOPT
+4 DO ^DIC
KILL DIC
+5 IF Y<0
DO BMES^XPDUTL(" "_DVBOPT_" option update failed")
QUIT
+6 IF Y>0
Begin DoDot:2
+7 SET DIE="^DIC(19,"
SET DIC(0)="MZ"
SET DA=+Y
SET DR="2///@"
+8 DO ^DIE
+9 DO BMES^XPDUTL(" "_DVBOPT_" option updated")
+10 KILL DIE,DIC,DR
+11 QUIT
End DoDot:2
+12 QUIT
End DoDot:1
+13 KILL DIC,DIE,X,Y,DVBCT,DVBOPT,DA,DR
+14 DO POST
+15 QUIT
OPT ;
+1 ;;DVBA HRC MENU PHARMACY
+2 ;;DVBA HRC MENU PHARMACY CC
+3 ;
POST ;
+1 ;Pharmacy menu
+2 DO BMES^XPDUTL("-> Adding options to HRC Pharmacy Customer Care Menu <-")
+3 DO ADDMNU("DVBA HRC MENU PHARMACY CC","DVBA HRC MENU","HRC",5)
+4 DO ADDMNU("DVBA HRC MENU PHARMACY CC","PSO P","MP",15)
+5 DO ADDMNU("DVBA HRC MENU PHARMACY CC","PSO VIEW","VW",20)
+6 DO ADDMNU("DVBA HRC MENU PHARMACY CC","OR MAIN MENU WARD CLERK","WC",25)
+7 DO ADDMNU("DVBA HRC MENU PHARMACY CC","PSO HRC PROFILE/REFILL","PPR",30)
+8 DO ADDMNU("DVBA HRC MENU PHARMACY CC","PRCA FP VETERAN CHRG RPT","VCR",35)
+9 ;
+10 DO BMES^XPDUTL("-> Adding options to HRC Pharmacy Menu <-")
+11 DO ADDMNU("DVBA HRC MENU PHARMACY","DVBA HRC MENU","HRC",1)
+12 DO ADDMNU("DVBA HRC MENU PHARMACY","PSOCP RESET COPAY STATUS","RC",5)
+13 DO ADDMNU("DVBA HRC MENU PHARMACY","PSO P","MP",10)
+14 DO ADDMNU("DVBA HRC MENU PHARMACY","PSO VIEW","VW",15)
+15 DO ADDMNU("DVBA HRC MENU PHARMACY","PSO LM BACKDOOR ORDERS","PP",7)
+16 DO ADDMNU("DVBA HRC MENU PHARMACY","OR MAIN MENU WARD CLERK","WC",20)
+17 DO ADDMNU("DVBA HRC MENU PHARMACY","PSO HRC PROFILE/REFILL","PPR",30)
+18 DO ADDMNU("DVBA HRC MENU PHARMACY","PSOCP RESET COPAY STATUS LM","RCL",6)
+19 DO ADDMNU("DVBA HRC MENU PHARMACY","PRCA FP VETERAN CHRG RPT","VCR",35)
+20 ;
ADDMNU(DVB1,DVB2,DVB3,DVB4) ;
+1 ;Adds Items to Menu (#19.01) subfile in Option (#19) file
+2 NEW DVOK
+3 SET DVOK=$$ADD^XPDMENU(DVB1,DVB2,DVB3,DVB4)
+4 IF 'DVOK
Begin DoDot:1
+5 DO MES^XPDUTL(" Could not add "_DVB2_" to "_DVB1)
End DoDot:1
QUIT
+6 DO MES^XPDUTL(" "_DVB2_" added to "_DVB1)
+7 QUIT
