- TIUPOST ; SLC/JER - Post-init for TIU ;2/17/95 11:15
- ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
- ;IHS/ITSC/LJF 02/28/2003 compile IHS hidden actions protocol
- ; 06/26/2003 list templates now exported via KIDS
- ; 07/10/2003 clean up TIU(8925.1 data item multiple
- ; 08/27/2003 run postinit for VA patch #153 seq 149
- ; 08/28/2003 fix upload error filing code
- ; 11/14/2003 add TIU to PCC file for visit merges
- ; 12/31/2003 record previous TIU patches & fix protocols
- ;
- MAIN ; Control branching
- ;D ^TIUIL ; Install List Templates;IHS/ITSC/LJF 6/26/2003 not needed
- 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
- ;
- ;IHS/ITSC/LJF 7/10/2003 clean up item data in TIU Document Definition file
- D CLEAN^BTIUPOS
- ;IHS/ITSC/LJF 8/27/2003 call postinit for patch 153 - clean sup ACLAU and ACLEC xrefs
- D BMES^XPDUTL("Post install code from VA patch 153; cleans up xrefs . . .")
- D EN^TIUPS153
- ;IHS/ITSC/LJF 8/28/2003 fix upload error filing code for progress notes and consults
- D DDMFIX^BTIUPOS
- ;IHS/ITSC/LJF 11/14/2003 add TIU to Module PCC Link Control file for visit merges
- ; and add TIU to Visit Tracking Parameters file
- D PCCLNK^BTIUPOS
- D VSTLINK^BTIUPOS
- ;IHS/ITSC/LJF 12/31/2003 record previous TIU patches that OE/RR checks for
- D PATCHES^BTIUPOS2
- ;IHS/ITSC/LJF 12/31/2003 clean up protocols previuosly sent
- D PROTCL^BTIUPOS2
- ;
- 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
- ;
- ;IHS/ITSC/LJF 02/28/2003 compile IHS hidden actions protocol
- S DIC="^ORD(101,",DIC(0)="X",X="BTIU HIDDEN ACTIONS" D ^DIC
- I +Y D
- . D MES^XPDUTL($P(Y,U,2)_".")
- . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
- ;
- ; now compile hidden menu from USr package
- S DIC="^ORD(101,",DIC(0)="X",X="USR HIDDEN ACTIONS" D ^DIC
- I +Y D
- . D MES^XPDUTL($P(Y,U,2)_".")
- . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
- ;
- ;IHS/ITSC/LJF 02/28/2003 end of new code
- Q
- TIUPOST ; SLC/JER - Post-init for TIU ;2/17/95 11:15
- +1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
- +2 ;IHS/ITSC/LJF 02/28/2003 compile IHS hidden actions protocol
- +3 ; 06/26/2003 list templates now exported via KIDS
- +4 ; 07/10/2003 clean up TIU(8925.1 data item multiple
- +5 ; 08/27/2003 run postinit for VA patch #153 seq 149
- +6 ; 08/28/2003 fix upload error filing code
- +7 ; 11/14/2003 add TIU to PCC file for visit merges
- +8 ; 12/31/2003 record previous TIU patches & fix protocols
- +9 ;
- MAIN ; Control branching
- +1 ;D ^TIUIL ; Install List Templates;IHS/ITSC/LJF 6/26/2003 not needed
- +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 ;
- +7 ;IHS/ITSC/LJF 7/10/2003 clean up item data in TIU Document Definition file
- +8 DO CLEAN^BTIUPOS
- +9 ;IHS/ITSC/LJF 8/27/2003 call postinit for patch 153 - clean sup ACLAU and ACLEC xrefs
- +10 DO BMES^XPDUTL("Post install code from VA patch 153; cleans up xrefs . . .")
- +11 DO EN^TIUPS153
- +12 ;IHS/ITSC/LJF 8/28/2003 fix upload error filing code for progress notes and consults
- +13 DO DDMFIX^BTIUPOS
- +14 ;IHS/ITSC/LJF 11/14/2003 add TIU to Module PCC Link Control file for visit merges
- +15 ; and add TIU to Visit Tracking Parameters file
- +16 DO PCCLNK^BTIUPOS
- +17 DO VSTLINK^BTIUPOS
- +18 ;IHS/ITSC/LJF 12/31/2003 record previous TIU patches that OE/RR checks for
- +19 DO PATCHES^BTIUPOS2
- +20 ;IHS/ITSC/LJF 12/31/2003 clean up protocols previuosly sent
- +21 DO PROTCL^BTIUPOS2
- +22 ;
- +23 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 ;
- +20 ;IHS/ITSC/LJF 02/28/2003 compile IHS hidden actions protocol
- +21 SET DIC="^ORD(101,"
- SET DIC(0)="X"
- SET X="BTIU HIDDEN ACTIONS"
- DO ^DIC
- +22 IF +Y
- Begin DoDot:1
- +23 DO MES^XPDUTL($PIECE(Y,U,2)_".")
- +24 SET XQORM=+Y_";ORD(101,"
- SET XQORM(0)=""
- DO ^XQORM
- End DoDot:1
- +25 ;
- +26 ; now compile hidden menu from USr package
- +27 SET DIC="^ORD(101,"
- SET DIC(0)="X"
- SET X="USR HIDDEN ACTIONS"
- DO ^DIC
- +28 IF +Y
- Begin DoDot:1
- +29 DO MES^XPDUTL($PIECE(Y,U,2)_".")
- +30 SET XQORM=+Y_";ORD(101,"
- SET XQORM(0)=""
- DO ^XQORM
- End DoDot:1
- +31 ;
- +32 ;IHS/ITSC/LJF 02/28/2003 end of new code
- +33 QUIT