PSJ5P353.m

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 ---PSJ5P353   516     printed  Feb 18, 2025@23:32:26                                                                                                                                                                                                     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