©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
PSXCOSTU ;BIR/BAB,WPB,HTW-Cost Update ; 26 Apr 2000 10:52 AM
Source file <PSXCOSTU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| XMZ | ||
| PSX1 | ||
| GET | ||
| EXIT | ||
| QUE | ||
| EDT | ||
| BLANK | ||
| MSG | ;
|
|
| MSGEND |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | GET+5, XMZ+3 |
| ^PSDRUG - [#50] | GET+8, GET+9 |
| ^PSDRUG("AQ1" | GET+6 |
| ^PSX(552.4 | GET+1, GET+2, GET+3, GET+4, GET+5 |
| ^TMP($J | GET+7*, GET+11*, MSG+1, XMZ+6, XMZ+15, XMZ+16, PSX1, PSX1+9, PSX1+10, EXIT! |
| ^XMB(3.9 - [#3.9] | BLANK*, XMZ+4*, XMZ+7*, XMZ+9*, XMZ+12*, XMZ+16*, PSX1+1*, PSX1+3*, PSX1+6*, PSX1+10* , MSGEND* |
| Name | Line Occurrences |
|---|---|
| BLANK | XMZ+5, XMZ+11, XMZ+14, XMZ+17, PSX1+5, PSX1+8 |
| EDT | EDT+3 |
| EN | EDT+1 |
| EXIT | EN+2, EDT+2, QUE+5, MSG+1 |
| MSGEND | PSX1 |
| PSX1 | XMZ+6 |
| XMZ | XMZ+1 |
| Name | Field # of Occurrence |
|---|---|
| ^("ND" | GET+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | XMZ+3 |
| BB | EN+3*, EDT+3, EXIT! |
| BEG | EN+3*, GET+1*, EXIT! |
| >> C1 | GET*, GET+11* |
| CDT | GET+5*, GET+7, GET+11, EXIT! |
| CNT | GET*, GET+7*, EXIT! |
| COST | GET+8*, GET+11, GET+12, GET+13!, EXIT! |
| DA | GET+12*, GET+13! |
| DA(1 | GET+12*, GET+13! |
| DIE | GET+12*, GET+13! |
| DIR | EN+1!, EDT!, EDT+3! |
| DIR("?" | EN+1*!, EDT*! |
| DIR("A" | EN+1*, EDT* |
| DIR(0 | EN+1*, EDT* |
| >> DIROUT | EN+2, EDT+2 |
| >> DIRUT | EN+2, EDT+2 |
| DR | GET+12*, GET+13! |
| DT | MSGEND |
| DUZ | MSGEND+1 |
| EE | EDT+4*! |
| END | EDT+4*, GET+1, EXIT! |
| >> I | XMZ+5*, XMZ+15*, XMZ+16, XMZ+17*, PSX1+9*, PSX1+10 |
| ID | EXIT! |
| IDDRG | GET+4*, GET+6, GET+7, GET+11, GET+13!, EXIT! |
| IEN50 | GET+6*, GET+7, GET+8, GET+9, GET+13!, EXIT! |
| >> MCT | BLANK*, XMZ+2*, XMZ+7, XMZ+8*, XMZ+9, XMZ+10*, XMZ+12, XMZ+13*, XMZ+16*, PSX1+1 , PSX1+2*, PSX1+3, PSX1+4*, PSX1+6, PSX1+7*, PSX1+10*, MSGEND |
| >> TRUG | GET+10*, GET+11 |
| U | GET+2, GET+3, GET+4, GET+5, GET+8, GET+9, MSGEND |
| >> XMDUN | MSGEND* |
| >> XMDUZ | MSG+2*, MSGEND+1* |
| XMSER | EXIT+1! |
| XMSUB | MSG+2*, EXIT+1! |
| >> XMY( | MSGEND+1* |
| XMZ | BLANK, XMZ+1, XMZ+4, XMZ+7, XMZ+9, XMZ+12, XMZ+16, PSX1+1, PSX1+3, PSX1+6 , PSX1+10, MSGEND, EXIT+1! |
| XQMSG | EXIT+1! |
| XX | GET+1*, GET+2, GET+3, GET+4, GET+5, GET+12, EXIT! |
| Y | EN+3!, EDT+1, EDT+3!, EDT+4!, GET+5*!, XMZ+3*, XMZ+4! |
| YY | GET+1*, GET+2, GET+3, GET+4, GET+5, GET+12, EXIT! |
| Z1 | GET+9*, GET+10, GET+13! |
| Z2 | GET+9*, GET+10, GET+13! |
| >> ZTDESC | QUE+1* |
| >> ZTIO | QUE* |
| >> ZTREQ | EXIT+1* |
| >> ZTRTN | QUE* |
| >> ZTSAVE("BEG" | QUE* |
| >> ZTSAVE("DUZ" | QUE+1* |
| >> ZTSAVE("END" | QUE* |
| >> ZTSK | QUE+3 |
| >> ZX | GET+10* |