©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
APCLPLCV ; IHS/CMI/LAB - PRINTS A PATIENT'S LAST CLINIC VISIT ;
Source file <APCLPLCV.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| Patient Care Component | 1 | ^APCDVDSP |
| VA Fileman | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ;
|
||
| START | ;
|
|
| ZTM | ;ENTRY FOR TASK MANAGER
|
|
| TSKMN | ;
|
|
| EOJ | ;ENTRY POINT
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | START+15 |
| ^AUPNVSIT("AA" | START+10, START+13, START+14 |
| ^DIC(40.7 - [#40.7] | APCLPLCV+7 |
| ^DPT - [#2] | START+4 |
| Name | Line Occurrences |
|---|---|
| EOJ | APCLPLCV+6, APCLPLCV+7, APCLPLCV+9, APCLPLCV+10, APCLPLCV+13 |
| APCLPLCV+8 | |
| START | APCLPLCV+5, START+8 |
| TSKMN | APCLPLCV+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | PRINT+1* |
| APCDVDSP | START+18*, EOJ+2! |
| APCLCL | APCLPLCV+7, START+8*, START+15, EOJ+2! |
| >> APCLDATE | START+11*, START+13*, START+14 |
| APCLFLAG | APCLPLCV+6, START+1*, START+2*, START+10*, EOJ+2! |
| APCLFOUN | APCLPLCV+7, START+12*, START+13, START+14, START+16*, START+18, EOJ+2! |
| APCLLAST | EOJ+2! |
| APCLVDFN | START+14*, START+15, START+16, EOJ+2! |
| AUPNDAYS | EOJ+2! |
| AUPNDOB | EOJ+2! |
| AUPNDOD | EOJ+2! |
| AUPNPAT | START+4, START+10, START+13, START+14, EOJ+2! |
| AUPNSEX | EOJ+2! |
| DA | EOJ+3! |
| DIC | START+2*!, START+6!*, EOJ+3! |
| DIC("A" | START+6* |
| DIC(0 | START+2*, START+6* |
| IO | APCLPLCV+11, ZTM+2 |
| IO("Q" | APCLPLCV+10, PRINT+1! |
| ION | TSKMN+1 |
| IOP | PRINT+1! |
| >> POP | APCLPLCV+9 |
| U | APCLPLCV+7, START+4, START+15 |
| X | EOJ+3! |
| Y | START+2, START+8, EOJ+3! |
| >> ZTDESC | TSKMN+1* |
| >> ZTDTH | TSKMN+1* |
| >> ZTIO | TSKMN+1* |
| ZTQUEUED | ZTM+1, EOJ+3! |
| >> ZTREQ | ZTM+1* |
| >> ZTRTN | TSKMN+1* |
| ZTSAVE | TSKMN+1! |
| ZTSAVE("APCDVDSP" | TSKMN+1* |
| ZTSK | EOJ+3! |