- 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 Mar 13, 2025@21:48:20 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
