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 |