TIUPOST.m

TIUPOST ; SLC/JER - Post-init for TIU ;2/17/95  11:15

 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997

MAIN ; Control branching

 D ^TIUIL        ;   Install List Templates

 D COMPILE       ;   Compile hidden menus

 D KILL^TIUDD8   ;   Force recompilation of SEARCH CATEGORIES

 D EN^TIULEXP    ;   Redirect ^LEX( ptr in PROBLEM LINK file

 S $P(^TIU(8925.1,0),U,3)=100  ; Reset file root to fill gaps

 Q

COMPILE ; Compile Hidden Menus

 N DIC,XQORM,X,Y

 D BMES^XPDUTL("*** COMPILING HIDDEN PROTOCOL MENUS ***")

 S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS" D ^DIC

 I +Y D

 . D MES^XPDUTL($P(Y,U,2)_".")

 . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM

 S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS ADVANCED" D ^DIC

 I +Y D

 . D MES^XPDUTL($P(Y,U,2)_".")

 . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM

 S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS OE/RR" D ^DIC

 I +Y D

 . D MES^XPDUTL($P(Y,U,2)_".")

 . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM

 S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS BROWSE" D ^DIC

 I +Y D

 . D MES^XPDUTL($P(Y,U,2)_".")

 . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUPOST   1145     printed  Apr 09, 2024@21:41:23                                                                                                                                                                                                     Page 2

TIUPOST   ; SLC/JER - Post-init for TIU ;2/17/95  11:15

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997

MAIN      ; Control branching

 +1       ;   Install List Templates

           DO ^TIUIL

 +2       ;   Compile hidden menus

           DO COMPILE

 +3       ;   Force recompilation of SEARCH CATEGORIES

           DO KILL^TIUDD8

 +4       ;   Redirect ^LEX( ptr in PROBLEM LINK file

           DO EN^TIULEXP

 +5       ; Reset file root to fill gaps

           SET $PIECE(^TIU(8925.1,0),U,3)=100

 +6        QUIT 

COMPILE   ; Compile Hidden Menus

 +1        NEW DIC,XQORM,X,Y

 +2        DO BMES^XPDUTL("*** COMPILING HIDDEN PROTOCOL MENUS ***")

 +3        SET DIC="^ORD(101,"

           SET DIC(0)="X"

           SET X="TIU HIDDEN ACTIONS"

           DO ^DIC

 +4        IF +Y

               Begin DoDot:1

 +5                DO MES^XPDUTL($PIECE(Y,U,2)_".")

 +6                SET XQORM=+Y_";ORD(101,"

                   SET XQORM(0)=""

                   DO ^XQORM

               End DoDot:1

 +7        SET DIC="^ORD(101,"

           SET DIC(0)="X"

           SET X="TIU HIDDEN ACTIONS ADVANCED"

           DO ^DIC

 +8        IF +Y

               Begin DoDot:1

 +9                DO MES^XPDUTL($PIECE(Y,U,2)_".")

 +10               SET XQORM=+Y_";ORD(101,"

                   SET XQORM(0)=""

                   DO ^XQORM

               End DoDot:1

 +11       SET DIC="^ORD(101,"

           SET DIC(0)="X"

           SET X="TIU HIDDEN ACTIONS OE/RR"

           DO ^DIC

 +12       IF +Y

               Begin DoDot:1

 +13               DO MES^XPDUTL($PIECE(Y,U,2)_".")

 +14               SET XQORM=+Y_";ORD(101,"

                   SET XQORM(0)=""

                   DO ^XQORM

               End DoDot:1

 +15       SET DIC="^ORD(101,"

           SET DIC(0)="X"

           SET X="TIU HIDDEN ACTIONS BROWSE"

           DO ^DIC

 +16       IF +Y

               Begin DoDot:1

 +17               DO MES^XPDUTL($PIECE(Y,U,2)_".")

 +18               SET XQORM=+Y_";ORD(101,"

                   SET XQORM(0)=""

                   DO ^XQORM

               End DoDot:1

 +19       QUIT