©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
ADGDSPC ; IHS/ADC/PDW/ENM - PRINT DAY SURGERY VISITS W/ ICD CODES ; [ 03/25/1999 11:48 AM ]
Source file <ADGDSPC.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
| VA Fileman | 2 | ^%DT ^DIC |
| IHS Changes To ADT | 1 | APCLYV3^ADGCALLS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BDATE | ||
| END | ||
| QUE | ||
| DEVICE | ||
| EDATE | ||
| SETVAR | ;***> set variables for ^APCLYV3
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| END | BDATE+1, EDATE+1, SETVAR+3, DEVICE |
| QUE | DEVICE |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | BDATE*, EDATE* |
| >> %DT("A" | BDATE*, EDATE* |
| >> %ZIS | DEVICE* |
| APCLBD | BDATE+1*, END! |
| APCLBICD | SETVAR+4*, END! |
| APCLCL | SETVAR+4*, END! |
| APCLED | EDATE+1*, END! |
| APCLEICD | SETVAR+4*, END! |
| APCLICD | SETVAR+4*, END! |
| APCLLOC | SETVAR+1*, END! |
| APCLPROV | SETVAR+1*, END! |
| >> APCLSD | BDATE+1* |
| DGX | QUE+1*, END! |
| DIC | SETVAR+2!* |
| DIC(0 | SETVAR+2* |
| DUZ(2 | SETVAR+1 |
| IO | DEVICE+1 |
| IO("Q" | DEVICE, QUE! |
| IOF | ADGDSPC+4 |
| >> POP | DEVICE |
| >> X | BDATE*, EDATE*, SETVAR+2* |
| >> Y | BDATE+1, EDATE+1, SETVAR+3, SETVAR+4 |
| >> ZTDESC | QUE* |
| >> ZTRTN | QUE* |
| >> ZTSAVE( | QUE+1* |
| ZTSK | QUE+2! |