©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
BHLPV1I ; cmi/flag/maw - BHL Process Inbound PV1 Segment ;
Source file <BHLPV1I.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component | 2 | ^APCDALV ^APCDALVR |
| VA Fileman | 2 | ^%DT ^DIK |
| IHS Patient | 1 | DEL^AUPNVSIT |
| IHS Support HL7 Interfaces | 1 | (FILE,VF)^BHLZV1I |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A08 | ;-- just in case they update the patient
|
|
| A11 | ;-- cancel admit for a patient
|
|
| VSTCHK(VIEN) | ||
| PP | ;-- get the primary provider
|
|
| A03 | ;-- add v hosp
|
|
| CHKV | ;-- check the v provider file
|
|
| A01 | ;-- this is an A01 event, we need to update as current patient
|
|
| A06 | ;-- create a hospitalization visit from A06
|
|
| UP | ;-- this is for an all events except for the A03 event
|
|
| PRV | ;-- let's set up the v provider file
|
|
| FILE | ;-- get the data and file it
|
|
| EOJ | ;-- kill variables and quit
|
|
| UPV | ;-- create the v provider file entry if none exists
|
|
| MAIN | ;-- this is the main routine driver
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVPRV - [#9000010.06] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVPRV - [#9000010.06] | CHKV+2 |
| ^AUPNVPRV("AD" | A11+3, CHKV+1 |
| ^AUPNVSIT - [#9000010] | VSTCHK+1, VSTCHK+2, VSTCHK+3, VSTCHK+4 |
| ^AUPNVSIT("AXT" | A11+1 |
| ^AUTTLOC("B" | FILE+4 |
| ^DIC(40.7 - [#40.7] | A01+8, A06+6, A08+3 |
| ^DIC(45.7 - [#45.7] | FILE+23, FILE+26 |
| Name | Line Occurrences |
|---|---|
| $$VSTCHK | FILE+14 |
| @( | FILE+30, FILE+31, FILE+32, FILE+33, FILE+34 |
| CHKV | PRV+3 |
| EOJ | MAIN+1 |
| FILE | MAIN+1 |
| PP | PRV+1 |
| PRV | FILE+43 |
| UP | FILE+40 |
| UPV | PRV+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | FILE+19*, FILE+21* |
| >> APCDAFLG("ERR" | UP+4 |
| >> APCDALVR("APCDAFLG" | A03+11, UPV+5 |
| >> APCDALVR("APCDATMP" | A03+5*, UPV+1* |
| >> APCDALVR("APCDCAT" | UP+2* |
| >> APCDALVR("APCDCLN" | FILE+39* |
| >> APCDALVR("APCDDATE" | FILE+36* |
| >> APCDALVR("APCDLOC" | FILE+38* |
| >> APCDALVR("APCDLOOK" | A03+4* |
| >> APCDALVR("APCDPAT" | FILE+37*, A03+3* |
| >> APCDALVR("APCDTADS" | A03+6* |
| >> APCDALVR("APCDTAT" | A03+8* |
| >> APCDALVR("APCDTDCS" | A03+7* |
| >> APCDALVR("APCDTDT" | A03+9* |
| >> APCDALVR("APCDTPRO" | UPV+2* |
| >> APCDALVR("APCDTPS" | UPV+3* |
| >> APCDALVR("APCDTYPE" | UP+1* |
| >> APCDALVR("APCDVSIT" | A03+2, UP+5 |
| >> AUPNVSIT | A11+1*, A11+2, A11+3 |
| >> BHL("ZV1" | FILE+28, FILE+42 |
| BHLAB | EOJ+3! |
| >> BHLACCT | A11+1, UP+6 |
| BHLACT | EOJ+5! |
| BHLADMT | FILE+6*, A03+8, EOJ+2! |
| BHLADS | EOJ+3! |
| BHLADTM | FILE+18*, FILE+19*, FILE+36, EOJ+2! |
| BHLAF | EOJ+4! |
| BHLAN | EOJ+4! |
| BHLAOB | EOJ+4! |
| BHLAPL | EOJ+2! |
| >> BHLAPLL | FILE+2*, FILE+3*, FILE+4*, FILE+35*, FILE+38 |
| BHLATD | FILE+8*, PP+1, UPV+2, EOJ+2! |
| BHLCDT | FILE+11*, EOJ+2! |
| BHLCL | EOJ+3! |
| BHLCLN | FILE+5*, FILE+39, A01+1*, A01+8*, A06+1*, A06+6*, A08+3*, VSTCHK+4, EOJ+5! |
| >> BHLDA | FILE+1*, FILE+2, FILE+3, FILE+5, FILE+8, FILE+11, FILE+12, FILE+16, FILE+18, FILE+20 , FILE+22, FILE+25, A01+6, A03+1, A06+4, A08+1 |
| >> BHLDADS | FILE+22*, FILE+23*, FILE+24*, A03+6 |
| BHLDD | FILE+16*, FILE+17*, A03+9, EOJ+2! |
| >> BHLDDDS | FILE+25*, FILE+26*, FILE+27*, A03+7 |
| BHLDDS | EOJ+3! |
| BHLDDTM | FILE+20*, FILE+21*, A03+4, EOJ+2! |
| >> BHLDIE | A01+2, A03+12, A06+2, UP+6 |
| >> BHLDSC | A01+3*, A01+7*, A06+3*, A06+5*, A08+2*, UP+2 |
| BHLDTL | EOJ+2! |
| >> BHLDVT | UP+1 |
| >> BHLDWRD | A01+2, A06+2 |
| BHLELG | EOJ+3! |
| >> BHLERCD | FILE+15*, A03+11*, UP+4*, UPV+5* |
| >> BHLERR | FILE+15, A03+11, UP+4, UPV+5 |
| >> BHLERR("FATAL" | FILE+29, FILE+41 |
| >> BHLET | FILE+30, FILE+31, FILE+32, FILE+33, FILE+34 |
| >> BHLEXVDT | VSTCHK+3 |
| >> BHLFL | A01+2*, A03+12*, A06+2*, UP+6* |
| >> BHLFLD | A01+2*, A03+12*, A06+2*, UP+6* |
| BHLHVN | EOJ+4! |
| BHLLVOS | EOJ+3! |
| BHLMREL | EOJ+4! |
| BHLMTCH | PRV+4, PP+2!, CHKV+1, CHKV+3*, CHKV+4 |
| BHLNOC | EOJ+3! |
| BHLNOV | EOJ+4! |
| >> BHLOI | FILE+5* |
| BHLOL | EOJ+3! |
| >> BHLPAT | FILE+37, A01+2, A03+3, A03+12, A06+2, VSTCHK+2 |
| BHLPDA | EOJ+5! |
| >> BHLPRIEN | A11+3*, A11+4, A11+5 |
| BHLPRV | PRV+2, PP+1*, CHKV+3, EOJ+5! |
| BHLPYS | EOJ+5! |
| BHLSB | EOJ+4! |
| BHLTC | EOJ+4! |
| BHLTM | EOJ+5! |
| >> BHLTMP | FILE+1, FILE+2, FILE+3, FILE+5, FILE+8, FILE+11, FILE+12, FILE+16, FILE+18, FILE+20 , FILE+22, FILE+25, A01+6, A03+1, A06+4, A08+1, EOJ+1 |
| BHLTPB | EOJ+2! |
| >> BHLTVIEN | FILE+12*, FILE+13, FILE+14 |
| >> BHLVAL | A01+2*, A03+12*, A06+2*, UP+6* |
| BHLVDA | CHKV+1*, CHKV+2, EOJ+5! |
| >> BHLVERR | FILE+14*, FILE+15 |
| BHLVNDR | EOJ+4! |
| BHLVPRV | CHKV+2*, CHKV+3, EOJ+5! |
| >> BHLVSIT | UP+5*, UP+6, CHKV+1 |
| BHLWIA | EOJ+3! |
| >> BHLX | A01+2*, A03+12*, A06+2*, UP+6* |
| >> CS | FILE+2, FILE+5, FILE+8 |
| >> DA | A11+5* |
| >> DIK | A11+5* |
| DUZ(2 | FILE+35 |
| P | EOJ+5! |
| U | CHKV+2, VSTCHK+2, VSTCHK+3, VSTCHK+4 |
| VIEN | VSTCHK~, VSTCHK+1, VSTCHK+2, VSTCHK+3, VSTCHK+4 |
| >> X | FILE+19*, FILE+21* |
| >> Y | FILE+19, FILE+21 |