Routine: PSB3P103

PSB3P103 ;AITC/CR - POST INIT FOR PATCH PSB*3*103 ;2/27/18 9:18am

 ;;3.0;BAR CODE MED ADMIN;**103**;Mar 2004;Build 21

 ;Per VA Directive 6402, this routine should not be modified

 ; call to: $$ADD^XPDMENU - supported by ICR #1157

 ;          BMES^XPDUTL   - supported by ICR #10141

POST ; set up the new option for the report 'Report for Respiratory Therapists',

 ; the option name is [PSB RPT RESP THERAPY MEDS] and the menu receiving it is

 ; [PSB PHARMACY]

 D BMES^XPDUTL("Starting Post-installation operations for patch PSB*3.0*103...")

 D ADD1

 D EXIT

ADD1 ; update menu [PSB PHARMACY]

 N PSBOK,PSBSYN

 S PSBSYN=12

 S PSBOK=$$ADD^XPDMENU("PSB PHARMACY","PSB RPT RESP THERAPY MEDS",PSBSYN)

 I PSBOK=1 D

 . D BMES^XPDUTL("[PSB RPT RESP THERAPY MEDS] Option is part of [PSB PHARMACY]")

 E  D  G ERR

 . D BMES^XPDUTL("Couldn't add option [PSB RPT RESP THERAPY MEDS] to [PSB PHARMACY]")

ERR ; alert the user if there is an error

 D BMES^XPDUTL("Unable to attach the menu option")

EXIT ;

 D BMES^XPDUTL("Finished Post-installation of patch PSB*3.0*103.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSB3P103   1117     printed  Apr 09, 2024@20:45:23                                                                                                                                                                                                    Page 2

PSB3P103  ;AITC/CR - POST INIT FOR PATCH PSB*3*103 ;2/27/18 9:18am

 +1       ;;3.0;BAR CODE MED ADMIN;**103**;Mar 2004;Build 21

 +2       ;Per VA Directive 6402, this routine should not be modified

 +3       ;

 +4       ; call to: $$ADD^XPDMENU - supported by ICR #1157

 +5       ;          BMES^XPDUTL   - supported by ICR #10141

 +6       ;

POST      ; set up the new option for the report 'Report for Respiratory Therapists',

 +1       ; the option name is [PSB RPT RESP THERAPY MEDS] and the menu receiving it is

 +2       ; [PSB PHARMACY]

 +3       ;

 +4        DO BMES^XPDUTL("Starting Post-installation operations for patch PSB*3.0*103...")

 +5        DO ADD1

 +6        DO EXIT

 +7        QUIT

 +8       ;

ADD1      ; update menu [PSB PHARMACY]

 +1        NEW PSBOK,PSBSYN

 +2        SET PSBSYN=12

 +3        SET PSBOK=$$ADD^XPDMENU("PSB PHARMACY","PSB RPT RESP THERAPY MEDS",PSBSYN)

 +4        IF PSBOK=1

               Begin DoDot:1

 +5                DO BMES^XPDUTL("[PSB RPT RESP THERAPY MEDS] Option is part of [PSB PHARMACY]")

               End DoDot:1

 +6       IF '$TEST

               Begin DoDot:1

 +7                DO BMES^XPDUTL("Couldn't add option [PSB RPT RESP THERAPY MEDS] to [PSB PHARMACY]")

               End DoDot:1

               GOTO ERR

 +8        QUIT

 +9       ;

ERR       ; alert the user if there is an error

 +1        DO BMES^XPDUTL("Unable to attach the menu option")

 +2        QUIT

 +3       ;

EXIT      ;

 +1        DO BMES^XPDUTL("Finished Post-installation of patch PSB*3.0*103.")

 +2        QUIT

PSB3P103.m