VAQPST31 ;JRP/ALB - UTILITIES FOR INSTALLING EXPORTED ROUTINES;24-AUG-93
Source file <VAQPST31.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 |
Package | Total | Caller Graph |
---|---|---|
Patient Data Exchange | 2 | VAQ1 VAQPST30 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EXIST(X) | ;DETERMINE IF ROUTINE X EXISTS
|
|
LOAD(X,ARRAY) | ;LOAD ROUTINE X INTO ARRAY
|
|
COPY(OLDROU,NEWROU,XCN) | ;COPY ROUTINE OLDROU TO ROUTINE NEWROU
|
|
SECOND(ROU,STRIP) | ;RETURN SECOND LINE OF ROUTINE ROU
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("LOAD" | LOAD+13, LOAD+24 |
^%ZOSF("SAVE" | COPY+12, COPY+29 |
^%ZOSF("TEST" | EXIST+8, EXIST+10 |
Name | Line Occurrences |
---|---|
$$EXIST | COPY+14, SECOND+10 |
LOAD | COPY+21, SECOND+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | LOAD~, LOAD+10, LOAD+11, LOAD+17, LOAD+18 |
DIE | COPY+16~, COPY+28* |
DIF | LOAD+15~, LOAD+20*, LOAD+21* |
LINE2 | SECOND+13~, SECOND+19*, SECOND+21*, SECOND+23 |
NEWROU | COPY~, COPY+10, COPY+27 |
OLDROU | COPY~, COPY+9, COPY+14, COPY+21 |
ROOT | SECOND+13~, SECOND+14*, SECOND+16, SECOND+17, SECOND+19, SECOND+22 |
ROOT1 | COPY+16~, COPY+17*, COPY+19, COPY+21, COPY+22, COPY+30 |
ROOT2 | COPY+16~, COPY+18*, COPY+28 |
ROU | SECOND~, SECOND+9, SECOND+10, SECOND+16 |
STRIP | SECOND~, SECOND+11*, SECOND+21 |
TMP | LOAD+15~, LOAD+17*, LOAD+20, LOAD+21 |
TMP1 | LOAD+15~, LOAD+18*, LOAD+19 |
TMP2 | LOAD+15~, LOAD+19*, LOAD+20, LOAD+21 |
X | EXIST~, EXIST+7, LOAD~, LOAD+12, COPY+16~, COPY+27* |
XCN | COPY~, COPY+11*, COPY+25* |
XCNP | LOAD+15~, LOAD+22* |