source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPOST.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1TIUPOST ; SLC/JER - Post-init for TIU ;2/17/95 11:15
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3MAIN ; 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
10COMPILE ; 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
Note: See TracBrowser for help on using the repository browser.