©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCMSPU2 ;ALB/JRP - UTILITIES FOR INSTALLING EXPORTED ROUTINES;24-AUG-93
Source file <SCMSPU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SECOND(ROU,STRIP) | ;RETURN SECOND LINE OF ROUTINE ROU
|
|
| LOAD(X,ARRAY) | ;LOAD ROUTINE X INTO ARRAY
|
|
| EXIST(X) | ;DETERMINE IF ROUTINE X EXISTS
|
|
| COPY(OLDROU,NEWROU,XCN) | ;COPY ROUTINE OLDROU TO ROUTINE NEWROU
|
| 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* |