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 ---[H[J[2J[HTIUPOST 1145 printed Dec 13, 2024@02:43:26 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
