Routine: DVBC251P

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

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

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBC251P   2138     printed  Apr 23, 2025@17:57:43                                                                                                                                                                                                    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

DVBC251P.m