©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
ADGSTAW ; IHS/ADC/PDW/ENM - INPATIENT STATISTICS BY WARD ; [ 03/25/1999 11:48 AM ]
Source file <ADGSTAW.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
| IHS Changes To ADT | 1 | ^ADGSTAW1 |
| VA Fileman | 1 | ^%DT |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 1 | DG IHS CEN STATS BY WARD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ; -- driver
|
|
| BD | ; -- beginning date
|
|
| EN | ;EP; -- queued entry point
|
|
| ZIS | ; -- select device
|
|
| I | ; -- init
|
|
| ED | ; -- ending date
|
|
| L | ; -- loop adt census-ward file (W)ard/(D)ate
|
|
| Q | ; -- cleanup
|
|
| AW() | ; -- admitting ward
|
|
| 1 | ; -- total fields
|
|
| QUE | ||
| D | ; -- driver
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADGWD - [#9009011] | I+1, L+1, L+2, 1+1 |
| ^DIC(42 - [#42] | AW+1 |
| Name | Line Occurrences |
|---|---|
| $$AW | I+1, L+2 |
| 1 | L+2 |
| BD | A+1, ED+2 |
| D | EN+1 |
| ED | A+2 |
| I | D+1 |
| L | D+1 |
| Q | A+1, A+2, A+3, A+4, EN+1 |
| QUE | A+4 |
| ZIS | A+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | BD+1*, ED+1* |
| >> %DT("A" | BD+1*, ED+1* |
| >> %ZIS | ZIS+1* |
| D | Q+1!, L+2*, 1+1 |
| DGBD | BD+1*, ED+2, Q+1!, L+2 |
| DGED | ED+1*, Q+1!, L+2 |
| >> DGWD( | I+1*, 1+2* |
| IO("Q" | A+4, QUE! |
| IOF | ADGSTAW+3 |
| N | Q+1!, 1+1*, 1+2 |
| P | Q+1!, 1+2* |
| >> POP | A+3 |
| U | 1+2 |
| W | Q+1!, I+1*, L+1*, L+2, 1+1, 1+2, AW+1 |
| X | BD+1*, ED+1*, Q+1! |
| Y | A+1, A+2, BD+1, ED+1, ED+2, Q+1! |
| >> ZTDESC | QUE* |
| >> ZTRTN | QUE* |
| >> ZTSAVE("DGBD" | QUE+1* |
| >> ZTSAVE("DGED" | QUE+1* |
| ZTSK | QUE+1! |