©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
ADGAD1 ; IHS/ADC/PDW/ENM - A&D ADMISSIONS ; [ 02/26/2004 11:24 AM ]
Source file <ADGAD1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 6 | ^ADGAD2 ^ADGAD3 ^ADGAD4 ^ADGAD5 ^ADGAD6 $$HRCN^ADGF |
| VA Fileman | 1 | (,C)^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ;--main
|
|
| Q | ;--cleanup all
|
|
| AS() | ;--admitting service (yes=1,no=0)
|
|
| LP1 | ;--loop admissions
|
|
| 1 | ||
| RPM() | ;--related mvmnt
|
|
| INI | ;--initialize variables
|
|
| AGE() | ;--age at admit
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADGTX - [#9009011.5] | Q+4 |
| ^ADGWD - [#9009011] | Q+4 |
| ^AUPNPAT - [#9000001] | 1+3 |
| ^DG(43 - [#43] | INI+1 |
| ^DGPM - [#405] | 1+1, RPM+1 |
| ^DGPM("AMV1" | LP1+1, LP1+2, LP1+3 |
| ^DGPM("APHY" | RPM+1 |
| ^DIC(42 - [#42] | INI+4 |
| ^DIC(45.7 - [#45.7] | INI+6, 1+7, 1+10, AS+1 |
| ^DPT - [#2] | 1 |
| ^TMP("DGZADS" | 1+8*, 1+11* |
| Name | Line Occurrences |
|---|---|
| $$AGE | 1 |
| $$RPM | 1+2 |
| 1 | LP1+3 |
| INI | A+1 |
| LP1 | A+1 |
| Q | A+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | ADGAD1+5~, 1*, 1+4, 1+15 |
| COM | ADGAD1+5~, 1+3*, 1+4 |
| DFN | ADGAD1+5~, LP1+2*, LP1+3, 1, 1+3 |
| DGADULT | INI+1*, 1+15, Q+2! |
| >> DGDATE | INI+1* |
| DGDT | ADGAD1+5~, LP1+1*, LP1+2, LP1+3, AGE+1 |
| DGLTSA | Q+2! |
| DGLTSA( | INI+7* |
| DGLTSP | Q+2! |
| DGLTSP( | INI+7* |
| DGLWD | Q+2! |
| DGLWD( | INI+5* |
| DGLWD("NB" | INI+5* |
| DGT10 | INI+3*, 1+12*, Q+1! |
| DGT1N | INI+3*, 1+9*, Q+1! |
| DGT2 | INI+3*, Q+1! |
| DGT30 | INI+3*, Q+1! |
| DGT3D | INI+3*, Q+1! |
| DGT3N | INI+3*, Q+1! |
| DGT6 | INI+3*, Q+1! |
| DGTSA | Q+2! |
| DGTSA( | INI+7*, 1+17* |
| DGTSI | INI+3*, Q+1! |
| DGTSP | Q+2! |
| DGTSP( | INI+7*, 1+15* |
| DGWD | Q+2! |
| DGWD( | INI+5*, 1+12* |
| DGWD("NB" | INI+5*, 1+9* |
| FAC | ADGAD1+5~, 1+1*, 1+4 |
| FR | ADGAD1+5~, INI+2*, LP1+1 |
| >> GL | 1+8, 1+11 |
| HRCN | ADGAD1+5~, 1+3*, 1+8, 1+11 |
| IFN | ADGAD1+5~, LP1+3*, 1+1, 1+8, 1+11, RPM+1 |
| N | ADGAD1+5~, 1*, 1+1*, 1+2*, AGE+1 |
| NAME | ADGAD1+5~, 1*, 1+8, 1+11 |
| PR | ADGAD1+5~, 1+2*, 1+4 |
| >> RD | INI+1, INI+2 |
| TO | ADGAD1+5~, INI+2*, LP1+1 |
| TS | ADGAD1+5~, INI+6*, INI+7, 1+2*, 1+4, 1+7, 1+10, 1+15, 1+17, AS+1 |
| U | INI+1, 1, 1+1, 1+2, 1+3, 1+4, AGE+1, AS+1 |
| UTL | ADGAD1+5~, 1+4*, 1+8, 1+11 |
| WD | ADGAD1+5~, INI+4*, INI+5, 1+1*, 1+4, 1+9, 1+12 |
| X | ADGAD1+5~, INI+2, RPM+1~*, AGE+1~ |
| X1 | ADGAD1+5~, INI+2*, AGE+1~* |
| X2 | ADGAD1+5~, INI+2*, AGE+1~* |