Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: TIUPS96

Package: Text Integration Utility

Routine: TIUPS96


Information

TIUPS96 ; SLC/JER - Post-Install for TIU*1*96 ; 3-MAY-2001 11:21

Source Information

Source file <TIUPS96.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Control unit
FIXCS ; -- Find/fix Cosigner's Comments
FIND(TIUDA,GMRLINE) ; -- Locate the Cosigner's Comments in converted note
INSERT(TIUDA,TIULI) ; -- Insert the tag for the Cosigner's Comment
REGISTER(TIUDA,GMRDA) ; -- Register activity in the ^XTMP("TIUFIXCS", array
ESGET(TIUDA,TIUSBLK) ; Get the decrypted /es/-blocks
SETXT0(TIUDA) ; Set the root node of the "TEXT" WP-field
ESPUT(DA,TIUSBLK) ; Re-file the /es/-blocks
DELPNDB ; -- Remove Progress Notes Globals, DD's, and File of File Entries
DELDSDB ; -- Remove Discharge Summary Globals, DD's, and File of File Entries
DELFUNC ; -- Remove Discharge Summary FileMan Functions
Info |  Source |  Entry Points