| 1 | TIUPOST ; SLC/JER - Post-init for TIU ;2/17/95 11:15
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
|
|---|
| 3 | MAIN ; Control branching
|
|---|
| 4 | D ^TIUIL ; Install List Templates
|
|---|
| 5 | D COMPILE ; Compile hidden menus
|
|---|
| 6 | D KILL^TIUDD8 ; Force recompilation of SEARCH CATEGORIES
|
|---|
| 7 | D EN^TIULEXP ; Redirect ^LEX( ptr in PROBLEM LINK file
|
|---|
| 8 | S $P(^TIU(8925.1,0),U,3)=100 ; Reset file root to fill gaps
|
|---|
| 9 | Q
|
|---|
| 10 | COMPILE ; Compile Hidden Menus
|
|---|
| 11 | N DIC,XQORM,X,Y
|
|---|
| 12 | D BMES^XPDUTL("*** COMPILING HIDDEN PROTOCOL MENUS ***")
|
|---|
| 13 | S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS" D ^DIC
|
|---|
| 14 | I +Y D
|
|---|
| 15 | . D MES^XPDUTL($P(Y,U,2)_".")
|
|---|
| 16 | . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
|
|---|
| 17 | S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS ADVANCED" D ^DIC
|
|---|
| 18 | I +Y D
|
|---|
| 19 | . D MES^XPDUTL($P(Y,U,2)_".")
|
|---|
| 20 | . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
|
|---|
| 21 | S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS OE/RR" D ^DIC
|
|---|
| 22 | I +Y D
|
|---|
| 23 | . D MES^XPDUTL($P(Y,U,2)_".")
|
|---|
| 24 | . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
|
|---|
| 25 | S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS BROWSE" D ^DIC
|
|---|
| 26 | I +Y D
|
|---|
| 27 | . D MES^XPDUTL($P(Y,U,2)_".")
|
|---|
| 28 | . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
|
|---|
| 29 | Q
|
|---|
