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
|
Name | Field # of Occurrence |
---|---|
^DIC | DELFUNC+7 |
^DIE | ESPUT+6, ESPUT+10 |
^DIK | DELFUNC+9 |
EN^DIU2 | DELPNDB+6, DELDSDB+6 |
$$CHKSUM^TIULC | ESGET+3 |
$$DECRYPT^TIULC1 | ESGET+5, ESGET+6, ESGET+8, ESGET+9 |
$$STRIP^TIULS | FIXCS+13 |
$$FMADD^XLFDT | FIXCS+6 |
$$NOW^XLFDT | FIXCS+7, FIXCS+19 |
UPDATE^XPDID | FIXCS+4, REGISTER+5, DELPNDB+3, DELPNDB+7, DELDSDB+3, DELDSDB+7, DELFUNC+4, DELFUNC+10 |
BMES^XPDUTL | FIXCS+2, DELPNDB+2, DELDSDB+2, DELFUNC+2 |
MES^XPDUTL | DELFUNC+3, DELFUNC+8 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^GMR(121 | MAIN+1, FIXCS+3, FIXCS+8, FIXCS+10, FIXCS+12, FIXCS+16 |
^TIU(8925 - [#8925] | FIND+2, FIND+3, INSERT+5, INSERT+6, INSERT+7*, INSERT+9*, INSERT+10*, INSERT+11*, ESGET+2, SETXT0+2 , SETXT0+3, SETXT0+4* |
^XTMP("TIUFIXCS" | MAIN+1, FIXCS+1, FIXCS+6*, FIXCS+7*, FIXCS+19*, REGISTER+2*, REGISTER+3*, REGISTER+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | ESPUT~, DELFUNC+6~, DELFUNC+9* |
DIC | DELFUNC+6~, DELFUNC+7*, DELFUNC+9 |
DIC(0 | DELFUNC+7* |
DIDEL | DELFUNC+6~, DELFUNC+9* |
DIE | ESPUT+1~, ESPUT+2* |
DIK | DELFUNC+6~, DELFUNC+9* |
DIU | DELPNDB+5~, DELPNDB+6*, DELDSDB+5~, DELDSDB+6* |
DIU(0 | DELPNDB+6*, DELDSDB+6* |
DR | ESPUT+1~, ESPUT+5*, ESPUT+9* |
DT | FIXCS+6, SETXT0+4 |
GMRDA | FIXCS+1~*, FIXCS+8*, FIXCS+10, FIXCS+12, FIXCS+16, FIXCS+18, REGISTER~, REGISTER+3, REGISTER+4 |
GMRLI | FIXCS+9~*, FIXCS+10*, FIXCS+12 |
GMRLINE | FIXCS+9~, FIXCS+10, FIXCS+12*, FIXCS+13, FIXCS+14*, FIXCS+15, FIXCS+17, FIND~, FIND+3 |
GMRLN | FIXCS+11~, FIXCS+13*, FIXCS+14 |
TIUC | SETXT0+1~*, SETXT0+3*, SETXT0+4 |
TIUCHK | ESGET+1~, ESGET+3*, ESGET+5, ESGET+6, ESGET+8, ESGET+9 |
TIUCNT | REGISTER+1~, REGISTER+2*, REGISTER+5, DELPNDB+1~*, DELPNDB+7*, DELDSDB+1~*, DELDSDB+7*, DELFUNC+1~*, DELFUNC+10* |
TIUD15 | ESGET+1~, ESGET+2*, ESGET+4, ESGET+5, ESGET+6, ESGET+7, ESGET+8, ESGET+9 |
TIUDA | FIXCS+9~, FIXCS+16*, FIXCS+17, FIXCS+18, FIND~, FIND+2, FIND+3, INSERT~, INSERT+3, INSERT+5 , INSERT+6, INSERT+7, INSERT+9, INSERT+10, INSERT+11, INSERT+13, INSERT+15, REGISTER~, REGISTER+4, ESGET~ , ESGET+2, ESGET+3, SETXT0~, SETXT0+2, SETXT0+3, SETXT0+4 |
TIUHIT | FIND+1~*, FIND+2, FIND+3* |
TIUI | SETXT0+1~*, SETXT0+2*, SETXT0+3 |
TIULI | FIXCS+9~, FIXCS+17*, FIXCS+18, FIND+1~*, FIND+2*, FIND+3, FIND+4, INSERT~, INSERT+5, INSERT+9 , INSERT+10, INSERT+11 |
TIULINE | INSERT+6~*, INSERT+7 |
TIULJ | INSERT+1~*, INSERT+5*, INSERT+6, INSERT+7 |
TIUS1 | DELPNDB+1~, DELPNDB+4*, DELPNDB+6, DELDSDB+1~, DELDSDB+4*, DELDSDB+6, DELFUNC+1~, DELFUNC+5*, DELFUNC+7 |
TIUSBLK | INSERT+1~, INSERT+3, INSERT+15, ESGET~, ESPUT~ |
TIUSBLK(1 | ESGET+5*, ESGET+6*, ESPUT+4 |
TIUSBLK(2 | ESGET+8*, ESGET+9*, ESPUT+8 |
U | FIXCS+3, FIXCS+6, ESGET+4, ESGET+5, ESGET+6, ESGET+7, ESGET+8, ESGET+9, SETXT0+4, DELFUNC+8 |
X | DELFUNC+6~, DELFUNC+7* |
XPDIDTOT | FIXCS+1~, FIXCS+3*, DELPNDB+1~, DELPNDB+3*, DELDSDB+1~, DELDSDB+3*, DELFUNC+1~, DELFUNC+4* |
>> XPDIDVT | FIXCS+3*, DELPNDB+1*, DELDSDB+1*, DELFUNC+1* |
>> XPDQUES("POS001" | MAIN+2 |
>> XPDQUES("POS002" | MAIN+3 |
Y | DELFUNC+6~, DELFUNC+7, DELFUNC+8, DELFUNC+9 |