- 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
- Q
- ;
- 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]")
- Q
- ;
- ERR ; alert the user if there is an error
- D BMES^XPDUTL("Unable to attach the menu option")
- Q
- ;
- EXIT ;
- D BMES^XPDUTL("Finished Post-installation of patch PSB*3.0*103.")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSB3P103 1117 printed Feb 18, 2025@23:06:11 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
