BHLDG1I ; cmi/sitka/maw - BHL File Inbound DG1 segment ;
Source file <BHLDG1I.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS Support HL7 Interfaces | 1 | FILE^BHLZDXI | 
| Patient Care Component | 1 | ^APCDALVR | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PV | ;-- purpose of visit | |
| AD | ;-- admitting dx | |
| DH | ;death dx | |
| EOJ | ;-- kill variables and quit | |
| NB | ;-- newborn diagnosis | |
| FILE | ;-- get the data and file it | |
| MAIN | ;-- this is the main routine driver | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVCHS("AD" | NB+1 | 
| ^AUPNVINP("AD" | AD+1 | 
| ^AUPNVPOV - [#9000010.07] | PV+3 | 
| ^AUPNVPOV("AD" | PV+2 | 
| ^ICD9("BA" | FILE+5 | 
| Name | Line Occurrences | 
|---|---|
| @( | FILE+11 | 
| EOJ | MAIN+2 | 
| FILE | MAIN+2 | 
| PV | FILE+10, FILE+11 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> APCDALVR("APCDAFLG" | PV+16 | 
| >> APCDALVR("APCDATMP" | PV+6* | 
| >> APCDALVR("APCDTCD" | PV+11* | 
| >> APCDALVR("APCDTCI" | PV+13* | 
| >> APCDALVR("APCDTFR" | PV+12* | 
| >> APCDALVR("APCDTMOD" | PV+10* | 
| >> APCDALVR("APCDTNQ" | PV+8* | 
| >> APCDALVR("APCDTPOV" | PV+7* | 
| >> APCDALVR("APCDTPS" | PV+14* | 
| >> APCDALVR("APCDTSTG" | PV+9* | 
| >> APCDALVR("APCDVSIT" | DH+1, AD+1, NB+1 | 
| >> BHL("ZDX" | FILE+8 | 
| BHLCAU | PV+11, EOJ+2! | 
| BHLCOI | PV+13, EOJ+2! | 
| BHLDA | FILE+2*, FILE+3, FILE+6, FILE+7, EOJ+1! | 
| BHLDC | FILE+3*, FILE+4, FILE+5, DH+1, AD+3, NB+3, PV+7, EOJ+1! | 
| >> BHLDCI | FILE+5*, PV+3 | 
| BHLDCL | FILE+7*, PV+14, EOJ+1!, EOJ+2! | 
| >> BHLDGC( | FILE+1*, FILE+9 | 
| >> BHLDIE | DH+2, AD+3, NB+3 | 
| BHLDTP | FILE+6*, FILE+9, FILE+10, FILE+11, EOJ+1! | 
| >> BHLERCD | FILE+9*, AD+2*, NB+2*, PV+16* | 
| >> BHLERR | FILE+9, AD+2, NB+2, PV+16 | 
| BHLFL | DH+1*, AD+3*, NB+3*, EOJ+1! | 
| BHLFLD | DH+1*, AD+3*, NB+3*, EOJ+1! | 
| BHLFR | PV+12, EOJ+2! | 
| >> BHLKSV | PV+5 | 
| BHLMOD | PV+10, EOJ+2! | 
| >> BHLPDA | PV+2*, PV+3 | 
| BHLPOVE | PV+1!, PV+2, PV+3*, PV+4 | 
| BHLPVN | PV+8, EOJ+1! | 
| BHLSTG | PV+9, EOJ+2! | 
| >> BHLTMP | FILE+2, FILE+3, FILE+6, FILE+7 | 
| BHLVAL | DH+1*, AD+3*, NB+3*, EOJ+1! | 
| BHLVIEN | AD+1*, AD+2, AD+3, NB+1*, NB+2, NB+3, EOJ+1! | 
| >> BHLVSIT | MAIN+1, PV+2 | 
| BHLX | DH+1*, AD+3*, NB+3*, EOJ+1! | 
| >> CS | FILE+3 | 
| >> M | FILE+1* | 
| U | PV+3 |