30 lines
1.1 KiB
Mathematica
30 lines
1.1 KiB
Mathematica
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
|