PSO7P507.m

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 ---PSO7P507   502     printed  Apr 09, 2024@21:32:25                                                                                                                                                                                                     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