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 |