Routine: BHLPV1I

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
FileMan Files Accessed Via FileMan Db Call
Global Variables Directly Accessed
Label References
Local Variables

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

Package

Total

Call Graph

Patient Care Component

^APCDALV ^APCDALVR

VA Fileman

^%DT ^DIK

IHS Patient

DEL^AUPNVSIT

IHS Support HL7 Interfaces

(FILE,VF)^BHLZV1I

IHS VA Utilities

$$VAL^XBDIQ1

Entry Points

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

Name	Field # of Occurrence
^%DT	FILE+19, FILE+21
^APCDALV	UP+3
^APCDALVR	A03+10, UPV+4
DEL^AUPNVSIT	A11+6
FILE^BHLZV1I	FILE+28
VF^BHLZV1I	FILE+42
^DIK	A11+5
$$VAL^XBDIQ1	FILE+17, FILE+24, FILE+27, CHKV+2

FileNo	Call Tags
^AUPNVPRV - [#9000010.06]	Classic Fileman Calls

Global Variables Directly Accessed

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLPV1I

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: