Routine: BHLX277

Package	Total	Call Graph
IHS VA Utilities	1	EN^XBVK
VA Fileman	1	FILE^DICN

Entry Points

Name	Comments	DBIA/ICR reference
STC(DAT,SDA,LDA,CDA)
NM1(DAT,SDA,LDA,CDA)	;-- n1
FH(USDA,ULDA,UPD)	;-- file into holding
EOJ	;-- kill vars
UPD	;-- update the holding file
L2(USDA,ULDA)
PER(DAT,SDA,LDA,CDA)
BHT(DAT,SDA,LDA,CDA)	;-- trn
TRN(DAT,SDA,LDA,CDA)	;-- trn
PRS	;-- parse the message
MAIN	;EP - this is the main routine driver
FL	;-- loop through bhlx277 and get data
L1(USDA)	;-- setup lev 1 vars for filing

External References

Name	Field # of Occurrence
FILE^DICN	FH+33
EN^XBVK	EOJ+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARECLST - [#90056.08]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARECLST("B"	FH+3
^BHLX277($J	MAIN+1!, PRS+12*, FL+2, FL+4, FL+5, FL+6, FL+8, EOJ+1!
^BHLX277V($J	BHT+1, TRN+1, NM1+2, PER+1, PER+2, PER+3, PER+4, PER+5, PER+6, PER+7 , STC+1, STC+2, STC+3, STC+4, STC+5, STC+6, STC+7, STC+8, STC+9, STC+11 , STC+12, STC+13, STC+15, STC+16, STC+17*, UPD+1, UPD+3, L1+1, L1+2, L1+3 , L1+4, L1+11, L1+12, L1+15, L1+16, L2+2, L2+3, L2+4, L2+5, L2+6 , L2+7, L2+8, L2+9, L2+10, L2+11, L2+12, L2+13, L2+14, L2+15, L2+16 , L2+17, EOJ+2!
^INTHU - [#4001]	PRS+4, PRS+5

Label References

Name	Line Occurrences
BHT	FL+12
EOJ	MAIN+7
FH	UPD+5
FL	MAIN+5
L1	UPD+2
L2	UPD+4
NM1	FL+10
PER	FL+11
PRS	MAIN+4
STC	FL+13
TRN	FL+9
UPD	MAIN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BHLXCDA	FL+5*, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXDA	PRS+4*, PRS+5
>> BHLXDAT	FL+8*, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXHIEN	FH+34*
>> BHLXIEN	FH+3*, FH+4, FH+8
>> BHLXLDA	FL+4*, FL+5, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXSDA	FL+2*, FL+4, FL+5, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXSEG	FL+6*, FL+7, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXUIF	PRS+2*, PRS+3, PRS+4, PRS+5
>> BHLXULDA	UPD+3*, UPD+4, UPD+5
>> BHLXUPD	UPD+5
>> BHLXUPD("CHK	#" , L2+17, DT" , L2+15
>> BHLXUPD("CLST1"	L2+3*
>> BHLXUPD("CLST2"	L2+6*
>> BHLXUPD("CLST3"	L2+9*
>> BHLXUPD("CLSTC1"	L2+2*
>> BHLXUPD("CLSTC2"	L2+5*
>> BHLXUPD("CLSTC3"	L2+8*
>> BHLXUPD("DT P	D" , L2+13*
>> BHLXUPD("EID1"	L2+4*
>> BHLXUPD("EID2"	L2+7*
>> BHLXUPD("EID3"	L2+10*
>> BHLXUPD("PAY	METH" , L2+14*
>> BHLXUPD("PAYO	R 302" , L1+6, R 303" , L1+8, R 304" , L1+10, R 305" , L1+14, R 306" , L1+18* , R 307" , L1+20, R CI" , L1+4, L1+6, L1+8, L1+10, R CN" , L1+2, R CT" , L1+3, L1+5, L1+7, L1+9, R CTE" , L1+11, L1+13, R CTE2" , L1+15, L1+17 , L1+19, R EXT" , L1+12, L1+14, R EXT2" , L1+16, L1+18, L1+20, R ID" , L1+1*
>> BHLXUPD("PD A	MT" , L2+12*
>> BHLXUPD("RES	EFDT" , L2+11*
>> BHLXUPD("TRAC	E #" , L2+16*
>> BHLXUSDA	UPD+1*, UPD+2, UPD+3, UPD+4, UPD+5
CDA	BHT~, TRN~, NM1~, PER~, STC~
CNT	PRS+1, PRS+8, PRS+12, PRS+13!
>> CS	MAIN+3*, STC+1, STC+2, STC+3, STC+11, STC+12, STC+13, STC+15, STC+16, STC+17
DA	FH+8*, FH+35!
DAT	BHT~, BHT+1, TRN~, TRN+1, NM1~, NM1+1, NM1+2, PER~, PER+1, PER+2 , PER+3, PER+4, PER+5, PER+6, PER+7, STC~, STC+1, STC+2, STC+3, STC+4 , STC+5, STC+6, STC+7, STC+8, STC+9, STC+10, STC+11, STC+12, STC+13, STC+14 , STC+15, STC+16, STC+17
DATA	PRS+5*, PRS+6, PRS+11, PRS+13!
DD	FH+7!
DIC	FH+35!
>> DIE	FH+8*
DO	FH+7!
DR	FH+9, FH+10, FH+11, FH+12, FH+13, FH+14, FH+15, FH+16, FH+17, FH+18 , FH+19, FH+20, FH+21, FH+22, FH+23, FH+24, FH+25, FH+26, FH+27, FH+28 , FH+29, FH+30, FH+31*, FH+35!
>> FS	MAIN+2*, PRS+6, PRS+11, BHT+1, TRN+1, NM1+1, NM1+2, PER+1, PER+2, PER+3 , PER+4, PER+5, PER+6, PER+7, STC+1, STC+2, STC+3, STC+4, STC+5, STC+6 , STC+7, STC+8, STC+9, STC+10, STC+11, STC+12, STC+13, STC+14, STC+15, STC+16 , STC+17
LCNT	PRS+1, PRS+9, PRS+12, PRS+13!
LDA	BHT~, TRN~, TRN+1, NM1~, PER~, STC~, STC+1, STC+2, STC+3, STC+4 , STC+5, STC+6, STC+7, STC+8, STC+9, STC+11, STC+12, STC+13, STC+15, STC+16 , STC+17
SCNT	PRS+1, PRS+8, PRS+10*, PRS+12, PRS+13!
SDA	BHT~, BHT+1, TRN~, TRN+1, NM1~, NM1+2, PER~, PER+1, PER+2, PER+3 , PER+4, PER+5, PER+6, PER+7, STC~, STC+1, STC+2, STC+3, STC+4, STC+5 , STC+6, STC+7, STC+8, STC+9, STC+11, STC+12, STC+13, STC+15, STC+16, STC+17
SEG	PRS+6*, PRS+7, PRS+8, PRS+9, PRS+12, PRS+13!
SEGDATA	PRS+11*, PRS+12, PRS+13!
>> UIF	PRS+2
ULDA	L2~, L2+1, L2+2, L2+3, L2+4, L2+5, L2+6, L2+7, L2+8, L2+9 , L2+10, L2+11, L2+12, L2+13, L2+14, L2+15, L2+16, L2+17, FH~, FH+6
UPD	UPD+6!, FH~, FH+32~
UPD("CHK #"	FH+15
UPD("CHK DT"	FH+14
UPD("CLST1"	FH+17
UPD("CLST2"	FH+20
UPD("CLST3"	FH+23
UPD("CLSTC1"	FH+16
UPD("CLSTC2"	FH+19
UPD("CLSTC3"	FH+22
UPD("DT PD"	FH+12
UPD("EID1"	FH+18
UPD("EID2"	FH+21
UPD("EID3"	FH+24
UPD("PAY METH	" , FH+13
UPD("PAYOR 30	2" , FH+26, 3" , FH+27, 4" , FH+28, 5" , FH+29, 6" , FH+30 , 7" , FH+31
UPD("PAYOR CN	" , FH+25
UPD("PAYOR ID	" , FH+9
UPD("PD AMT"	FH+11
UPD("RES EFDT	" , FH+10
UPD("RESP DT"	, FH+9
UPD("TRACE #"	, FH+2, FH+3
USDA	L1~, L1+1, L1+2, L1+3, L1+4, L1+11, L1+12, L1+15, L1+16, L2~ , L2+2, L2+3, L2+4, L2+5, L2+6, L2+7, L2+8, L2+9, L2+10, L2+11 , L2+12, L2+13, L2+14, L2+15, L2+16, L2+17, FH~, FH+5
>> XCNT	FL+1, FL+3
>> Y	FH+34

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLX277

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: