PSO7P507 ;BIRMINGHAM/GN-POST INSTALL TO REBUILD PARENT PROTOCOL MENU ;1/16/18 10:00am
;;7.0;OUTPATIENT PHARMACY;**507**;13 Feb 97;Build 28
;
; Routine should be deleted after install.
; Routine can be re-run as needed.
Q
EN ; ENTRY POINT
N PSOPIEN,XQORM
D MES^XPDUTL("")
D MES^XPDUTL("Rebuild Hidden Action protocols")
D MES^XPDUTL("")
; Recompile menus that contain new items
S PSOPIEN=$O(^ORD(101,"B","PSO HIDDEN ACTIONS #3",0))
S XQORM=PSOPIEN_";ORD(101," D XREF^XQORM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO7P507 502 printed Nov 22, 2024@17:33:54 Page 2
PSO7P507 ;BIRMINGHAM/GN-POST INSTALL TO REBUILD PARENT PROTOCOL MENU ;1/16/18 10:00am
+1 ;;7.0;OUTPATIENT PHARMACY;**507**;13 Feb 97;Build 28
+2 ;
+3 ; Routine should be deleted after install.
+4 ; Routine can be re-run as needed.
+5 QUIT
EN ; ENTRY POINT
+1 NEW PSOPIEN,XQORM
+2 DO MES^XPDUTL("")
+3 DO MES^XPDUTL("Rebuild Hidden Action protocols")
+4 DO MES^XPDUTL("")
+5 ; Recompile menus that contain new items
+6 SET PSOPIEN=$ORDER(^ORD(101,"B","PSO HIDDEN ACTIONS #3",0))
+7 SET XQORM=PSOPIEN_";ORD(101,"
DO XREF^XQORM
+8 QUIT
