RADD4 ;HISC/GJC-Radiology Utility Routine ; Jan 31, 2023@13:22:32
Source file <RADD4.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VALADM() | ;edit validation
|
|
| VOL() | ; Validate the format of the value input for volume.
; RAX must be a number followed by a space then text -or- ; a number followed by text ; Input Variable : 'RAX'- user's input ; Output Variable: null if 'RAX' erroneous, formatted version of 'RAX' |
|
| DD7012(RAY) | ;radiology technologist check
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RADPTN - [#70.2] | VALADM+15 |
| ^VA(200 - [#200] | VALADM+12, VALADM+16, VALADM+17, DD7012+4, DD7012+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | DD7012+5 |
| >> RAD0 | VALADM+15 |
| >> RADT | VALADM+15*, VALADM+17 |
| RAINACTIV | DD7012+4~*, DD7012+5 |
| RAPS | VALADM+12~*, VALADM+17 |
| >> RAUTH | VALADM+16, VALADM+17 |
| >> RAX | VOL+5, VOL+6 |
| RAX1 | VOL+6~*, VOL+12 |
| RAY | VOL+6~*, VOL+7*, VOL+8*, VOL+9*, VOL+10*, VOL+11, VOL+12, DD7012~, DD7012+4, DD7012+6 |
| U | DD7012+4 |
| >> Y | VALADM+12, VALADM+16, VALADM+17 |
