©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
APCHSM ; IHS/CMI/LAB - HEALTH SUMMARY (MULTIPLE PATIENTS) ;
Source file <APCHSM.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| VA Fileman | 2 | ^DIC ^DIR |
| Patient Care Component | 1 | (EN,EOJ)^APCHS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUMLOOP | ;ENTRY POINT
|
|
| LIST | ;"??" help list
|
|
| SELTYP | ||
| SELDEV | ; SELECT OUTPUT DEVICE
|
|
| QUE | ;
|
|
| SELPT | ;
|
|
| END |
| 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 |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | APCHSM+6, SELDEV+2 |
| ^APCHSCTL - [#9001015] | SELTYP+2 |
| ^AUPNPAT - [#9000001] | LIST+1 |
| ^DIBT( | SELPT+13 |
| ^DISV( | SELTYP+2 |
| ^DISV($I | APCHSM+6*, SELDEV+2* |
| Name | Line Occurrences |
|---|---|
| END | SELTYP+5 |
| QUE | SELPT+21 |
| SELDEV | SELPT+20 |
| SELPT | SELTYP+4 |
| SELTYP | SELTYP+4 |
| Name | Field # of Occurrence |
|---|---|
| ^("^APCHSCTL(" | SELTYP+2 |
| ^(0 | SELTYP+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | SELDEV+1!* |
| APCHMJ | SELPT+13*, SELPT+14, END!, LIST+1*, LIST+2*, LIST+3* |
| APCHMK | LIST+1*, LIST+5! |
| APCHSALL | END+1! |
| APCHSM | END! |
| APCHSMF | SELPT+20, SELPT+21, END!, SELDEV+1*, SELDEV+2 |
| APCHSMI | SELTYP+4*, SELPT+13*, SELPT+16*, SUMLOOP+1*, END! |
| APCHSMK | END! |
| APCHSMQ | SUMLOOP+1*, END! |
| APCHSPAT | SELTYP+4!, SELPT+13*, SELPT+16*, SELPT+18!, SUMLOOP+1*, END!, LIST+1* |
| APCHSPAT( | SELPT+13*, SELPT+16*, SUMLOOP+1, LIST+1 |
| APCHSPAT("" | SELPT+19 |
| APCHSTAT | END+1! |
| APCHSTYP | SELTYP+4*, END! |
| AUPNDAYS | END+3! |
| AUPNDOB | END+3! |
| AUPNDOD | END+3! |
| AUPNPAT | END+3! |
| AUPNSEX | END+3! |
| DIC | SELTYP!*, SELPT+11!*, SELPT+15!*, END+4! |
| DIC("A" | SELTYP* |
| DIC("B" | SELTYP+3* |
| DIC("S" | SELPT+11* |
| DIC(0 | SELTYP*, SELPT+11*, SELPT+15* |
| DIR | SELPT+6!, LIST+3!, LIST+4! |
| DIR("?" | SELPT+3*, SELPT+4*, SELPT+5* |
| DIR("??" | SELPT+5* |
| DIR("A" | SELPT+2* |
| DIR(0 | SELPT+2*, LIST+3* |
| DIRUT | LIST+3! |
| DTOUT | LIST+3! |
| DUOUT | LIST+3! |
| DUZ | SELTYP+2 |
| G | END+1!, QUE+1* |
| IO | SELPT+20*, SELDEV+2 |
| IO("Q" | SELDEV+1 |
| IO(0 | SELPT+20 |
| ION | QUE+2 |
| IOP | SELDEV+1! |
| IOSL | LIST+1, LIST+2 |
| >> POP | SELDEV+1 |
| U | SELTYP+2, SELPT+1, SELPT+7, SELPT+18, LIST+1 |
| X | SELTYP+1*, SELTYP+2*, SELTYP+3, SELPT+1, SELPT+7*, SELPT+8, SELPT+9*, SELPT+11, SELPT+18, END+1! , LIST+1*, LIST+4* |
| Y | SELTYP+2*, SELTYP+4, SELPT+12, SELPT+13*, SELPT+16, END+1!, LIST+3 |
| ZTDESC | QUE+2*, QUE+4! |
| ZTDTH | QUE+2*, QUE+4! |
| ZTIO | QUE+2*, QUE+4! |
| ZTRTN | QUE+2*, QUE+4! |
| ZTSAVE | QUE+1!, QUE+4! |
| ZTSAVE( | QUE+1* |
| ZTSK | SELPT+22!, QUE+4! |