©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
ADGIP0 ; IHS/ADC/PDW/ENM - INPATIENT LIST ; [ 03/25/1999 11:48 AM ]
Source file <ADGIP0.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
| IHS Changes To ADT | 2 | $$HRCN^ADGF ^ADGIP1 |
| VA Fileman | 1 | EN^DIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ; -- driver
|
|
| 1 | ;
|
|
| LPWD | ;--loop ward
|
|
| DEV | ;--device selection
|
|
| Q | ; -- cleanup
|
|
| QUE | ;--queued output
|
|
| AGE() | ; -- age
|
|
| MCR() | ; -- medicare number & suffix
|
|
| MCD() | ; -- medicaid #
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNMCD - [#9000004] | MCD+1 |
| ^AUPNMCD("B" | MCD+1 |
| ^AUPNMCR - [#9000003] | MCR+1 |
| ^AUPNPAT - [#9000001] | 1+4 |
| ^AUTTMCS - [#9999999.32] | MCR+1 |
| ^DGPM - [#405] | 1+2 |
| ^DPT - [#2] | 1+3 |
| ^DPT("CN" | LPWD+3, LPWD+4, 1+2 |
| ^TMP("DGZINP" | LPWD+2!, 1+7* |
| ^UTILITY("DIQ1" | AGE+1!, AGE+2! |
| Name | Line Occurrences |
|---|---|
| $$AGE | 1+6 |
| $$MCD | 1+6 |
| $$MCR | 1+6 |
| 1 | LPWD+4 |
| DEV | A+1 |
| LPWD | A+3 |
| Q | A+1, A+2, A+3 |
| QUE | A+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | 1+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEV+1* |
| COM | 1+1~, 1+4*, 1+6 |
| DA | Q+1!, AGE+1* |
| DFN | LPWD+1~, LPWD+4*, 1+2, 1+3, 1+4, 1+7, MCR+1, MCD+1, AGE+1, AGE+2 |
| >> DGCNT | LPWD+3*, 1+7* |
| DGDT | Q+1!, 1+2*, 1+6 |
| >> DIC | AGE+1* |
| DIR | Q+1! |
| DR | Q+1!, AGE+1* |
| IFN | 1+1~, 1+2* |
| IO("Q" | A+2, QUE+1! |
| NAME | 1+1~, 1+3*, 1+7 |
| >> POP | A+1 |
| TS | 1+1~, 1+3*, 1+6 |
| U | 1+2, 1+3, 1+4, 1+6, MCR+1, MCD+1 |
| UTL | 1+1~, 1+6*, 1+7 |
| WARD | LPWD+1~, LPWD+3*, LPWD+4, 1+2, 1+6 |
| X | Q+1!, MCR+1~*, AGE+2*, AGE+3 |
| Y | Q+1! |
| >> ZTDESC | QUE+1* |
| >> ZTRTN | QUE+1* |
| ZTSK | QUE+2!, Q+1! |