SR182UTL ;BIR/SJA - SR*3*182 UTILITY ROUTINE ;11/21/2013
Source file <SR182UTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; pre-install process for SR*3*182
; delete data from file #136.5 and re-initialize file |
|
POST | ; post-install process for SR*3*182
|
|
DEL | ; delete routines SR182UT0, SR182UT1, SR182UT2, and SR182UT3
|
|
INT | ||
ADDIS | ; inactivate existing SURGERY DISPOSITION file (#131.6) entries and add new ones
|
|
TXTCAN | ; new surgery cancellation reasons
|
|
TXTDIS | ; new surgery disposition entries
|
FileNo | Call Tags |
---|---|
^SRO(131.6 - [#131.6] | Classic Fileman Calls |
^SRO(135 - [#135] | Classic Fileman Calls |
^SRO(137 - [#137] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("DEL" | DEL+3 |
^%ZOSF("TEST" | DEL+1 |
^DD(131.6 | ADDIS+7* |
^ICPT("B" | INT |
^SRO(131.6 - [#131.6] | ADDIS+1, ADDIS+3!, ADDIS+4, ADDIS+5* |
^SRO(135 - [#135] | POST+5, POST+7!, POST+9* |
^SRO(136.5 - [#136.5] | PRE+2!* |
^SRO(137 - [#137] | POST+17!, POST+18* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | PRE+4*!, POST+5*!, DEL+4!, INT+1!, ADDIS+1*! |
DA(1 | PRE+4* |
DD | DEL+4!, INT+1! |
DIC | DEL+4!, INT+1!* |
DIC(0 | INT+1* |
DIE | POST+5*!, ADDIS+1*! |
DIK | PRE+4*!, POST+10*, ADDIS+6*, ADDIS+7! |
DIK(1 | POST+10*, ADDIS+6* |
DINUM | DEL+4!, INT+1!* |
DO | DEL+4!, INT+1! |
DR | POST+5*!, ADDIS+1*! |
SREF | POST+1~, POST+10*, ADDIS+6* |
SRI | POST+1~, POST+8*, POST+9, ADDIS+4*, ADDIS+5 |
SRIEN | POST+1~, POST+9*, ADDIS+5* |
>> SRMAX | ADDIS+4*, ADDIS+5 |
SRTXT | POST+1~, POST+8*, POST+9 |
SRX | POST+1~, POST+8*, INT, ADDIS+4*, ADDIS+5 |
SRY | POST+1~, INT*, INT+1 |
SRZ | POST+1~, POST+5*, ADDIS+1* |
X | POST+1~, DEL+1*, DEL+2, DEL+4!, INT+1* |