©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
ADGCEN1 ; IHS/ADC/PDW/ENM - CENSUS AID-LIST BY WARD & TX ; [ 03/25/1999 11:48 AM ]
Source file <ADGCEN1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
| VA Fileman | 2 | ^%DT ^DIR |
| IHS Changes To ADT | 1 | ^ADGCEN10 |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 1 | DG IHS CEN LIST WARD/SERVICE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BDATE | ||
| END | ||
| AGE | ||
| QUE | ||
| SRV | ||
| WARD | ||
| EDATE |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| END | WARD+1, SRV+1, BDATE+1, EDATE+1, EDATE+3 |
| QUE | EDATE+3 |
| SRV | SRV+1, AGE+3 |
| WARD | WARD+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | BDATE*, EDATE* |
| >> %DT("A" | BDATE*, EDATE* |
| >> %ZIS | EDATE+3* |
| DGAGE | AGE+4*, END! |
| DGBDT | BDATE+1*, END! |
| DGEDT | EDATE+1*, END! |
| DGI | QUE+1*, END! |
| DGSRV | SRV+1*, END! |
| DGWD | WARD+1*, END! |
| DIR | WARD!, SRV!, AGE!, END! |
| DIR("?" | AGE+1*, AGE+2* |
| DIR("A" | AGE* |
| DIR(0 | WARD*, SRV*, AGE+3* |
| >> DIRUT | WARD+1, SRV+1, AGE+3 |
| IO | EDATE+3 |
| IO("Q" | EDATE+3, QUE! |
| IOF | ADGCEN1+6 |
| >> POP | EDATE+3 |
| >> X | BDATE*, EDATE* |
| Y | WARD+1, SRV+1, AGE+3, AGE+4, BDATE+1, EDATE+1, END! |
| >> ZTDESC | QUE* |
| >> ZTRTN | QUE* |
| >> ZTSAVE( | QUE+1* |
| ZTSK | QUE+2! |