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* |