©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
BDGAD1 ; IHS/ANMC/LJF - A&D ADMISSIONS ; [ 01/07/2004 1:05 PM ]
Source file <BDGAD1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 6 | ^BDGAD2 ^BDGAD3 ^BDGAD4 ^BDGAD5 ($$ADMPRV,$$ADMSRV,$$ADMSRVN)^BDGF1 $$ADULT^BDGPAR |
| VA Fileman | 2 | ^%DTC $$GET1^DIQ |
| IHS Patient | 1 | $$AGE^AUPNPAT |
| Patient Care Component Reports | 1 | $$DEMO^APCLUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ; -- main driver
|
|
| QUIT | ;--cleanup all
|
|
| GATHER | ; gather info on admission and put counts into arrays
|
|
| INIT | ;--initialize variables
|
|
| AGE() | ;--age at admit
|
|
| LOOP | ;--loop admissions
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DIC(45.7 - [#45.7] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BDGCTX - [#9009016.6] | INIT+22, INIT+23*, INIT+26*, INIT+27*, INIT+28*, GATHER+38*, GATHER+42* |
| ^BDGCTX("B" | INIT+23* |
| ^BDGCTX(0 | INIT+24* |
| ^BDGCWD - [#9009016.2] | QUIT+1, INIT+10, INIT+11*, INIT+14*, INIT+15*, INIT+16*, INIT+17*, GATHER+29*, GATHER+32, GATHER+33* , GATHER+34*, GATHER+37*, GATHER+41* |
| ^BDGCWD("B" | INIT+11* |
| ^BDGCWD(0 | INIT+12* |
| ^BDGWD - [#9009016.5] | INIT+8 |
| ^DGPM - [#405] | GATHER+3, GATHER+15 |
| ^DGPM("AMV1" | LOOP+3, LOOP+4, LOOP+5 |
| ^DIC(42 - [#42] | INIT+7 |
| ^DIC(45.7 - [#45.7] | INIT+19 |
| ^DPT - [#2] | AGE+2 |
| ^TMP("BDGAD" | INIT+3!, GATHER+22*, GATHER+24* |
| Name | Line Occurrences |
|---|---|
| $$AGE | GATHER+4 |
| GATHER | LOOP+5 |
| INIT | A+1 |
| LOOP | A+1 |
| QUIT | A+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADULT | GATHER+1~, GATHER+4*, GATHER+36, GATHER+40 |
| >> BDGFRM | INIT+1*, GATHER+15 |
| >> BDGREP | A+5, INIT+5, GATHER+26 |
| BDGT | BDGAD1+15~, INIT+1*, INIT+15, INIT+16, INIT+17, INIT+27, INIT+28, GATHER+29, GATHER+32, GATHER+33 , GATHER+34, GATHER+37, GATHER+38, GATHER+41, GATHER+42 |
| DATA | GATHER+1~, GATHER+12*, GATHER+15*, GATHER+22, GATHER+24 |
| DFN | LOOP+1~, LOOP+4*, LOOP+5, GATHER+5, GATHER+6, GATHER+9, GATHER+10, GATHER+15, GATHER+22, GATHER+24 , AGE+2 |
| DGBEG | BDGAD1+15~, INIT+2*, LOOP+2 |
| DGDT | LOOP+1~, LOOP+2*, LOOP+3*, LOOP+4, LOOP+5, AGE+2 |
| DGEND | BDGAD1+15~, INIT+2*, LOOP+3 |
| IFN | LOOP+1~, LOOP+5*, GATHER+3, GATHER+5, GATHER+6, GATHER+15, GATHER+22, GATHER+24 |
| NAME | GATHER+1~, GATHER+9*, GATHER+22, GATHER+24 |
| >> RD | INIT+1, INIT+2 |
| SERV | GATHER+1~, GATHER+5*, GATHER+12, GATHER+31, GATHER+32, GATHER+33, GATHER+34, GATHER+37, GATHER+38, GATHER+41 , GATHER+42 |
| SERVN | GATHER+1~, GATHER+6*, GATHER+8, GATHER+20 |
| >> TS | INIT+19*, INIT+20, INIT+22, INIT+23, INIT+24, INIT+26, INIT+27, INIT+28 |
| TYPE | GATHER+1~, GATHER+8*, GATHER+24 |
| U | INIT+12, INIT+15, INIT+24, INIT+27, GATHER+3, GATHER+12, GATHER+15, GATHER+29, GATHER+34, GATHER+37 , GATHER+38, GATHER+41, GATHER+42, AGE+2 |
| WARD | GATHER+1~, GATHER+3*, GATHER+12, GATHER+29, GATHER+32, GATHER+33, GATHER+34, GATHER+37, GATHER+41 |
| >> WD | INIT+7*, INIT+8, INIT+10, INIT+11, INIT+12, INIT+14, INIT+15, INIT+16, INIT+17 |
| X | AGE+1~, AGE+3 |
| X1 | AGE+1~, AGE+2* |
| X2 | AGE+1~, AGE+2* |