PSJ5P353 ;BIRMINGHAM/GN-POST INSTALL TO REBUILD PARENT PROTOCOL MENU ;1/16/18 10:00am
;;5.0;INPATIENT MEDICATIONS ;**353**;16 DEC 97;Build 49
;
; Routine should be deleted after install.
; Routine can be re-run as needed.
Q
EN ; ENTRY POINT
N PSJPIEN,XQORM
D MES^XPDUTL("")
D MES^XPDUTL("Rebuild Hidden Action protocols")
D MES^XPDUTL("")
; Recompile menus that contain new items
S PSJPIEN=$O(^ORD(101,"B","PSJ LM ORDER VIEW HIDDEN ACTIONS",0))
S XQORM=PSJPIEN_";ORD(101," D XREF^XQORM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ5P353 516 printed Sep 15, 2024@21:30:13 Page 2
PSJ5P353 ;BIRMINGHAM/GN-POST INSTALL TO REBUILD PARENT PROTOCOL MENU ;1/16/18 10:00am
+1 ;;5.0;INPATIENT MEDICATIONS ;**353**;16 DEC 97;Build 49
+2 ;
+3 ; Routine should be deleted after install.
+4 ; Routine can be re-run as needed.
+5 QUIT
EN ; ENTRY POINT
+1 NEW PSJPIEN,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 PSJPIEN=$ORDER(^ORD(101,"B","PSJ LM ORDER VIEW HIDDEN ACTIONS",0))
+7 SET XQORM=PSJPIEN_";ORD(101,"
DO XREF^XQORM
+8 QUIT
