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
|
