TIUPS96 ; SLC/JER - Post-Install for TIU*1*96 ; 3-MAY-2001 11:21
Source file <TIUPS96.m>
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
|