Routine: BAR276

Package	Total	Call Graph
IHS Accounts Receivable	2	$$Y2KD2^BARDUTL ($$INSIEN,SBR)^BARUTL
Third Party Billing	2	$$RCID^ABMERUTL ($$DOB,$$FNM,$$LNM,$$MI,$$SEX,$$SFX)^ABMUTLN
VA Fileman	2	NOW^%DTC $$GET1^DIQ
IHS Generic Interface System	1	$$TS^INHUT1
IHS Support HL7 Interfaces	1	$$276^BHLEVENT

Entry Points

Name	Comments	DBIA/ICR reference
SBR	;
TS()	;-- make a time stamp
GIS	;-- make the gis call
DEP	;2000E DEPENDENT LEVEL
ST	;TRANSACTION SET HEADER ; ST01
GEN276(BARSIEN)	; ; DUZ(2) must exist. ; BARSIEN = IEN of the Bill.
BHT	;BEGINNING OF HIERARCHICAL TRANSACTION ; BHT01

External References

Name	Field # of Occurrence
NOW^%DTC	TS+1
$$RCID^ABMERUTL	BHT+38
$$DOB^ABMUTLN	SBR+14, DEP+15
$$FNM^ABMUTLN	SBR+36, DEP+31
$$LNM^ABMUTLN	SBR+34, DEP+29
$$MI^ABMUTLN	SBR+38, DEP+33
$$SEX^ABMUTLN	SBR+19, DEP+19
$$SFX^ABMUTLN	SBR+41, DEP+36
$$Y2KD2^BARDUTL	SBR+16, SBR+93, SBR+94, DEP+17, DEP+83, DEP+84
$$INSIEN^BARUTL	BHT+36
SBR^BARUTL	BHT+104
$$276^BHLEVENT	GIS+1
$$GET1^DIQ	BHT+27, BHT+74, BHT+100
$$TS^INHUT1	TS+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SBR+74, DEP+66
^BARBL(	SBR+59, SBR+73, SBR+82, SBR+93, SBR+94, DEP+53, DEP+65, DEP+73, DEP+83, DEP+84
^BARECLST - [#90056.08]	GEN276+4, GEN276+6
^DIC(4 - [#4]	BHT+66, BHT+92

Label References

Name	Line Occurrences
$$TS	BHT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TS+2
>> ABMP("BTYP"	SBR+66, DEP+59
>> ABMP("PDFN"	SBR+74, DEP+66
>> ABMP("PNUM"	DEP+40
>> ABMP("SNUM"	SBR+45
>> ABMPDFN	SBR+31
>> ABMSBR	SBR+14, SBR+19, SBR+33, DEP+15, DEP+19, DEP+28
>> BAR	GIS+1
>> BAR("2762000AHL1"	BHT+14*
>> BAR("2762000AHL3"	BHT+17*
>> BAR("2762000AHL4"	BHT+19*
>> BAR("2762000BHL1"	BHT+52*
>> BAR("2762000BHL2"	BHT+54*
>> BAR("2762000BHL3"	BHT+56*
>> BAR("2762000BHL4"	BHT+58*
>> BAR("2762000CHL1"	BHT+78*
>> BAR("2762000CHL2"	BHT+80*
>> BAR("2762000CHL3"	BHT+82*
>> BAR("2762000CHL4"	BHT+84*
>> BAR("2762000DDMG1"	SBR+11*
>> BAR("2762000DDMG2"	SBR+14, SBR+15, SBR+16
>> BAR("2762000DDMG3"	SBR+19, SBR+20, SBR+22
>> BAR("2762000DHL1"	SBR+1*
>> BAR("2762000DHL2"	SBR+3*
>> BAR("2762000DHL3"	SBR+5*
>> BAR("2762000DHL4"	SBR+7*
>> BAR("2762000EDMG1"	DEP+13*
>> BAR("2762000EDMG2"	DEP+15, DEP+16, DEP+17
>> BAR("2762000EDMG3"	DEP+19, DEP+20
>> BAR("2762000EHL1"	DEP+3*
>> BAR("2762000EHL2"	DEP+5*
>> BAR("2762000EHL3"	DEP+7*
>> BAR("2762100ANM11"	BHT+23*
>> BAR("2762100ANM12"	BHT+25*
>> BAR("2762100ANM13"	BHT+28*
>> BAR("2762100ANM18"	BHT+34*
>> BAR("2762100ANM19"	BHT+38*
>> BAR("2762100BNM11"	BHT+62*
>> BAR("2762100BNM12"	BHT+64*
>> BAR("2762100BNM13"	BHT+66*
>> BAR("2762100BNM18"	BHT+72*
>> BAR("2762100BNM19"	BHT+74*
>> BAR("2762100CNM11"	BHT+88*
>> BAR("2762100CNM12"	BHT+90*
>> BAR("2762100CNM13"	BHT+92*
>> BAR("2762100CNM18"	BHT+98*
>> BAR("2762100CNM19"	BHT+100*
>> BAR("2762100DNM11"	SBR+26*
>> BAR("2762100DNM12"	SBR+28*
>> BAR("2762100DNM13"	SBR+34*
>> BAR("2762100DNM14"	SBR+36*
>> BAR("2762100DNM15"	SBR+38*
>> BAR("2762100DNM17"	SBR+41*
>> BAR("2762100DNM18"	SBR+43*
>> BAR("2762100DNM19"	SBR+45*
>> BAR("2762100ENM11"	DEP+24*
>> BAR("2762100ENM12"	DEP+26*
>> BAR("2762100ENM13"	DEP+29*
>> BAR("2762100ENM14"	DEP+31*
>> BAR("2762100ENM15"	DEP+33*
>> BAR("2762100ENM17"	DEP+36*
>> BAR("2762100ENM18"	DEP+38*
>> BAR("2762100ENM19"	DEP+40*
>> BAR("2762200DAMT1"	SBR+79*
>> BAR("2762200DAMT2"	SBR+82*
>> BAR("2762200DDTP1"	SBR+88*
>> BAR("2762200DDTP2"	SBR+90*
>> BAR("2762200DDTP3"	SBR+95*
>> BAR("2762200DREFA1"	SBR+56*
>> BAR("2762200DREFA2"	SBR+59*
>> BAR("2762200DREFB1"	SBR+63*
>> BAR("2762200DREFB2"	SBR+66*
>> BAR("2762200DREFC1"	SBR+70*
>> BAR("2762200DREFC2"	SBR+75*
>> BAR("2762200DTRN1"	SBR+50*
>> BAR("2762200DTRN2"	SBR+52*
>> BAR("2762200EAMT1"	DEP+71*
>> BAR("2762200EAMT2"	DEP+73*
>> BAR("2762200EDTP1"	DEP+79*
>> BAR("2762200EDTP2"	DEP+81*
>> BAR("2762200EDTP3"	DEP+85*
>> BAR("2762200EREFA1"	DEP+51*
>> BAR("2762200EREFA2"	DEP+53*
>> BAR("2762200EREFB1"	DEP+57*
>> BAR("2762200EREFB2"	DEP+59*
>> BAR("2762200EREFC1"	DEP+63*
>> BAR("2762200EREFC2"	DEP+67*
>> BAR("2762200ETRN1"	DEP+45*
>> BAR("2762200ETRN2"	DEP+47*
>> BAR("276HFBHT1"	BHT+2*
>> BAR("276HFBHT2"	BHT+4*
>> BAR("276HFBHT4"	BHT+8*
>> BAR("276HFST1"	ST+2*
>> BAR("DEP CHAR	T" , DEP+66*, DEP+67
>> BAR("DOS BEG"	, SBR+93, SBR+95, DEP+83, DEP+85
>> BAR("DOS END"	, SBR+94, SBR+95, DEP+84, DEP+85
>> BAR("INS IEN"	, BHT+36*, BHT+37, BHT+38
>> BAR("PAYER"	BHT+27*, BHT+28
>> BAR("SUB CHAR	T" , SBR+74*, SBR+75
>> BAR("VISIT LO	C" , SBR+73, SBR+74, DEP+65, DEP+66
>> BARBIEN	GEN276+4*, BHT+27, BHT+36, BHT+104, SBR+59, SBR+73, SBR+82, SBR+93, SBR+94, DEP+53 , DEP+65, DEP+73, DEP+83, DEP+84
>> BARDUZ2	GEN276+6*, BHT+27, BHT+36, BHT+66, BHT+74, BHT+92, BHT+100, BHT+104, SBR+59, SBR+73 , SBR+82, SBR+93, SBR+94, DEP+53, DEP+65, DEP+73, DEP+83, DEP+84
>> BARFILE	SBR+31, SBR+33, SBR+34, SBR+36, SBR+38, SBR+41, DEP+28*, DEP+29, DEP+31, DEP+33 , DEP+36
>> BARMSG	GIS+1*
>> BARPIEN	SBR+31, SBR+33, SBR+34, SBR+36, SBR+38, SBR+41, DEP+28*, DEP+29, DEP+31, DEP+33 , DEP+36
>> BARREL	SBR+7, SBR+11, SBR+13, SBR+18, SBR+21, SBR+26, SBR+30, SBR+32, SBR+56, SBR+58 , SBR+63, SBR+65, SBR+70, SBR+72, SBR+79, SBR+81, SBR+88, SBR+90, SBR+92, DEP+1
BARSIEN	GEN276~, GEN276+4, GEN276+6, SBR+52, DEP+47, GIS+1
U	GEN276+4, GEN276+6, BHT+66, BHT+92, SBR+59, SBR+73, SBR+74, SBR+82, SBR+93, SBR+94 , DEP+53, DEP+65, DEP+66, DEP+73, DEP+83, DEP+84

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR276

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: