Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUPOST

TIUPOST.m

Go to the documentation of this file.
  1. TIUPOST ; SLC/JER - Post-init for TIU ;2/17/95 11:15
  1. ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
  1. ;IHS/ITSC/LJF 02/28/2003 compile IHS hidden actions protocol
  1. ; 06/26/2003 list templates now exported via KIDS
  1. ; 07/10/2003 clean up TIU(8925.1 data item multiple
  1. ; 08/27/2003 run postinit for VA patch #153 seq 149
  1. ; 08/28/2003 fix upload error filing code
  1. ; 11/14/2003 add TIU to PCC file for visit merges
  1. ; 12/31/2003 record previous TIU patches & fix protocols
  1. ;
  1. MAIN ; Control branching
  1. ;D ^TIUIL ; Install List Templates;IHS/ITSC/LJF 6/26/2003 not needed
  1. D COMPILE ; Compile hidden menus
  1. D KILL^TIUDD8 ; Force recompilation of SEARCH CATEGORIES
  1. D EN^TIULEXP ; Redirect ^LEX( ptr in PROBLEM LINK file
  1. S $P(^TIU(8925.1,0),U,3)=100 ; Reset file root to fill gaps
  1. ;
  1. ;IHS/ITSC/LJF 7/10/2003 clean up item data in TIU Document Definition file
  1. D CLEAN^BTIUPOS
  1. ;IHS/ITSC/LJF 8/27/2003 call postinit for patch 153 - clean sup ACLAU and ACLEC xrefs
  1. D BMES^XPDUTL("Post install code from VA patch 153; cleans up xrefs . . .")
  1. D EN^TIUPS153
  1. ;IHS/ITSC/LJF 8/28/2003 fix upload error filing code for progress notes and consults
  1. D DDMFIX^BTIUPOS
  1. ;IHS/ITSC/LJF 11/14/2003 add TIU to Module PCC Link Control file for visit merges
  1. ; and add TIU to Visit Tracking Parameters file
  1. D PCCLNK^BTIUPOS
  1. D VSTLINK^BTIUPOS
  1. ;IHS/ITSC/LJF 12/31/2003 record previous TIU patches that OE/RR checks for
  1. D PATCHES^BTIUPOS2
  1. ;IHS/ITSC/LJF 12/31/2003 clean up protocols previuosly sent
  1. D PROTCL^BTIUPOS2
  1. ;
  1. Q
  1. COMPILE ; Compile Hidden Menus
  1. N DIC,XQORM,X,Y
  1. D BMES^XPDUTL("*** COMPILING HIDDEN PROTOCOL MENUS ***")
  1. S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS" D ^DIC
  1. I +Y D
  1. . D MES^XPDUTL($P(Y,U,2)_".")
  1. . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
  1. S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS ADVANCED" D ^DIC
  1. I +Y D
  1. . D MES^XPDUTL($P(Y,U,2)_".")
  1. . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
  1. S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS OE/RR" D ^DIC
  1. I +Y D
  1. . D MES^XPDUTL($P(Y,U,2)_".")
  1. . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
  1. S DIC="^ORD(101,",DIC(0)="X",X="TIU HIDDEN ACTIONS BROWSE" D ^DIC
  1. I +Y D
  1. . D MES^XPDUTL($P(Y,U,2)_".")
  1. . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
  1. ;
  1. ;IHS/ITSC/LJF 02/28/2003 compile IHS hidden actions protocol
  1. S DIC="^ORD(101,",DIC(0)="X",X="BTIU HIDDEN ACTIONS" D ^DIC
  1. I +Y D
  1. . D MES^XPDUTL($P(Y,U,2)_".")
  1. . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
  1. ;
  1. ; now compile hidden menu from USr package
  1. S DIC="^ORD(101,",DIC(0)="X",X="USR HIDDEN ACTIONS" D ^DIC
  1. I +Y D
  1. . D MES^XPDUTL($P(Y,U,2)_".")
  1. . S XQORM=+Y_";ORD(101,",XQORM(0)="" D ^XQORM
  1. ;
  1. ;IHS/ITSC/LJF 02/28/2003 end of new code
  1. Q