PSO767POST ;AITC/MRD - Post-install routine for PSO*7.0*767; 06/04/2025
;;7.0;OUTPATIENT PHARMACY;**767**;DEC 1997;Build 11
;
; MCCF VHA DSO EPHARMACY 29 - PSO*7.0*767 patch post-install
;
Q
;
POST ; Entry Point for post-install
;
D MES^XPDUTL(" Starting post-install of PSO*7.0*767")
;
; Recompile two menu protocols.
;
N XQORM
;
D MES^XPDUTL(" - Recompile Menu Protocol PSO REJECT DISPLAY HIDDEN MENU")
;
S XQORM=$O(^ORD(101,"B","PSO REJECT DISPLAY HIDDEN MENU",0))_";ORD(101,"
D XREF^XQORM
;
D MES^XPDUTL(" - Recompile Menu Protocol PSO REJECT TRICARE HIDDEN MENU")
;
S XQORM=$O(^ORD(101,"B","PSO REJECT TRICARE HIDDEN MENU",0))_";ORD(101,"
D XREF^XQORM
;
D MES^XPDUTL(" Finished post-install of PSO*7.0*767")
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO767POST 779 printed Jan 29, 2026@15:22:14 Page 2
PSO767POST ;AITC/MRD - Post-install routine for PSO*7.0*767; 06/04/2025
+1 ;;7.0;OUTPATIENT PHARMACY;**767**;DEC 1997;Build 11
+2 ;
+3 ; MCCF VHA DSO EPHARMACY 29 - PSO*7.0*767 patch post-install
+4 ;
+5 QUIT
+6 ;
POST ; Entry Point for post-install
+1 ;
+2 DO MES^XPDUTL(" Starting post-install of PSO*7.0*767")
+3 ;
+4 ; Recompile two menu protocols.
+5 ;
+6 NEW XQORM
+7 ;
+8 DO MES^XPDUTL(" - Recompile Menu Protocol PSO REJECT DISPLAY HIDDEN MENU")
+9 ;
+10 SET XQORM=$ORDER(^ORD(101,"B","PSO REJECT DISPLAY HIDDEN MENU",0))_";ORD(101,"
+11 DO XREF^XQORM
+12 ;
+13 DO MES^XPDUTL(" - Recompile Menu Protocol PSO REJECT TRICARE HIDDEN MENU")
+14 ;
+15 SET XQORM=$ORDER(^ORD(101,"B","PSO REJECT TRICARE HIDDEN MENU",0))_";ORD(101,"
+16 DO XREF^XQORM
+17 ;
+18 DO MES^XPDUTL(" Finished post-install of PSO*7.0*767")
+19 ;
+20 QUIT
+21 ;
