Routine: BLRRLHL

Package	Total	Call Graph
IHS Changes To Lab	2	($$CLIENTG,DX,UPINS)^BLRRLEDI (DX2,HLSET)^BLRRLHL2
Kernel	2	$$FMTE^XLFDT $$HLNAME^XLFNAME
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Patient Registration	1	^AGINS

Package	Total	Caller Graph
IHS Changes To Lab	5	BLRRLEV2 BLRRLEVN BLRRLEVT BLRRLHL2 BLRSHPL2

Entry Points

Name	Comments	DBIA/ICR reference
INS(PAT,FLG)	;-- lets get a list of selectable insurances for the patient and if set for auto select pick the first one in sequence
HL7	;-- setup hl7 lines
SETINS
BILL	;-- this is where we ask billing type
INSTYP(TDA)	;-- get insurance type
CLIENT
PATADD(PAT)	;-- return insured address
PATBILL(TSTDA)	;-- return data for the patient bill
SEQINS(BINS,PT,RLCDT)	;-- lets go through sequencing insurers
GT1ADD(PH)	;-- return insured address
FNDSEQ(BN,PTI,POL,CDT)	;-- find the category prioritization
INSADD(INSI)	;-- return the insurance address is HL7 format
CLCNT(DZ2)	;-- get the number of client account numbers to see if we need to prompt
DX(PAT)	;-- get the diagnosis for billing

External References

Name	Field # of Occurrence
^AGINS	INS+3
$$CLIENTG^BLRRLEDI	CLIENT+1
DX^BLRRLEDI	BILL+28
UPINS^BLRRLEDI	SETINS+11
DX2^BLRRLHL2	DX+1
HLSET^BLRRLHL2	HL7+4
$$GET1^DIQ	SETINS+46
^DIR	CLIENT+13, BILL+10, INS+23
$$FMTE^XLFDT	INS+21
$$HLNAME^XLFNAME	SETINS+47, SETINS+53, SETINS+60, PATBILL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please select the appropriate account number for this accession" Line Location: CLIENT+7
Function Call: WRITE	Prompt: !,BLRRLD_") "_$G(BLRCLA(BLRRLD)) Line Location: CLIENT+10
Function Call: WRITE	Prompt: !,"You must select an ICD Diagnosis if Bill Type is Third Party" Line Location: BILL+27
Function Call: WRITE	Prompt: !,"You must select an Insurer if Bill Type is Third Party" Line Location: BILL+30
Function Call: WRITE	Prompt: !,"Patient has No Insurance on file, changing Bill Type to Client" Line Location: INS+5
Function Call: WRITE	Prompt: !,"Now applying Sequenced Insurer to Accession" Line Location: INS+11
Function Call: WRITE	Prompt: !,BLRRLCN_")"_$P(AGINS(BLRRLDA),U) Line Location: INS+19
Function Call: WRITE	Prompt: ?30,"Policy #: "_$P(AGINS(BLRRLDA),U,9) Line Location: INS+20
Function Call: WRITE	Prompt: ?50,"Elg/Exp Date: "_$S($P(AGINS(BLRRLDA),U,5)>0:$$FMTE^XLFDT($P(AGINS(BLRRLDA),U,5)),1:"")_"/"_$S($P(AGINS(BLRRLDA),U,6)>0:$$FMTE^XLFDT($P(AGINS(BLRRLDA),U,6)),1:"") Line Location: INS+21
Function Call: WRITE	Prompt: !,"Patient Insurance has not been Sequenced, changing Bill Type to Client" Line Location: SETINS+4
Function Call: WRITE	Prompt: !,"The entry for "_$G(BLRRL("INSE"))_" for this patient does not have a valid pointer to the INSURER file, this needs to be fixed to proceed" Line Location: SETINS+16
Routine Call	DIR Line Location: CLIENT+13 BILL+10 INS+23

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	SETINS+53, SETINS+55, GT1ADD+2
^AUPNICP - [#9000035]	FNDSEQ+6
^AUPNICP("EFF"	FNDSEQ+2, FNDSEQ+4
^AUTNINS - [#9999999.18]	SETINS+35, SETINS+38, SETINS+39, SETINS+42, SETINS+43, INSADD+2
^AUTTRLSH - [#9999999.36]	SETINS+22
^BLRRL - [#9009026]	CLIENT+5
^BLRRLO - [#9009026.3]	BILL+26
^BLRSITE - [#9009029]	CLIENT+4, CLCNT+3, BILL+9, INS+10
^DIC(5 - [#5]	INSADD+5, PATADD+5, GT1ADD+5
^DPT - [#2]	SETINS+47, SETINS+48, SETINS+60, SETINS+62, PATBILL+1, PATBILL+2, PATBILL+5, PATADD+2

Label References

Name	Line Occurrences
$$CLCNT	CLIENT+2
$$FNDSEQ	SEQINS+7
$$GT1ADD	SETINS+54
$$INSADD	SETINS+40
$$PATADD	SETINS+44, SETINS+45, SETINS+61, PATBILL+3, PATBILL+4
BILL	BILL+26, BILL+29
CLIENT	CLIENT+17
HL7	SETINS+50
INS	BILL+24
INSTYP	SETINS+56, SETINS+66
PATBILL	BILL+2, BILL+31
SEQINS	SETINS+2
SETINS	BILL+5, INS+13, INS+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	INSADD+1~, INSADD+7, INSADD+8, PATADD+1~, PATADD+7, PATADD+8, GT1ADD+1~, GT1ADD+7*, GT1ADD+8
AGINS	SETINS+2, SETINS+7!, SETINS+8*
AGINS(	INS+17, INS+19, INS+20, INS+21, SETINS+11, SETINS+12, SETINS+13, SETINS+14, SETINS+20, SETINS+21 , SETINS+22, SETINS+31, SETINS+32, SETINS+33, SETINS+51, HL7+2
AGINS(1	INS+4
BDA	SEQINS+2~, SEQINS+3*, SEQINS+5, SEQINS+6, SEQINS+9
BINI	SEQINS+4~, SEQINS+5*, SEQINS+7
BINS	SEQINS~
BINS(	SEQINS+3, SEQINS+5, SEQINS+6, SEQINS+9
BINS(""	SEQINS+1
>> BLRAGUI	CLIENT+1
>> BLRALTDZ	CLIENT+4, CLCNT+3, BILL+9, INS+10
>> BLRCLA(	CLIENT+9, CLIENT+10, CLIENT+15, CLCNT+5*
BLRCLC	CLCNT+1~, CLCNT+2, CLCNT+4, CLCNT+5, CLCNT+6
BLRCLCNT	CLIENT~, CLIENT+2*, CLIENT+3, CLIENT+6, CLIENT+12
>> BLRINS	INS+12, INS+14, INS+26, SETINS+10, SETINS+11, SETINS+12, SETINS+13, SETINS+14, SETINS+20, SETINS+21 , SETINS+22, SETINS+31, SETINS+32, SETINS+33, SETINS+51
>> BLRO	BILL+26
>> BLRRL(	SETINS+1, SETINS+12, SETINS+14, SETINS+15, SETINS+19, SETINS+20, SETINS+21, SETINS+22, SETINS+23, SETINS+24 , SETINS+25, SETINS+26, SETINS+27, SETINS+28, SETINS+29, SETINS+30, SETINS+31, SETINS+32, SETINS+33, SETINS+34* , SETINS+35, SETINS+36, SETINS+38, SETINS+39, SETINS+40, SETINS+41, SETINS+42, SETINS+43, SETINS+44, SETINS+45* , SETINS+46, SETINS+47, SETINS+48, SETINS+51, SETINS+52, SETINS+53, SETINS+54, SETINS+55, SETINS+57, SETINS+58* , SETINS+59, SETINS+60, SETINS+61, SETINS+62, SETINS+63, SETINS+64, SETINS+65, SETINS+67, SETINS+68, INSTYP+1 , INSTYP+2, INSTYP+3, INSTYP+4, INSTYP+5, INSTYP+6, INSTYP+7, INSTYP+8, INSTYP+9, INSTYP+10, PATBILL+1 , PATBILL+2, PATBILL+3, PATBILL+4, PATBILL+5, PATBILL+6*
>> BLRRL("BILL T	YPE" , BILL+4, BILL+14, BILL+15, BILL+18, BILL+26, BILL+29, BILL+31, BILL+33, INS+4 , INS+6, INS+7, SETINS+5, SETINS+6, SETINS+17, SETINS+18, SETINS+19
>> BLRRL("CLIENT"	CLIENT+4, CLIENT+5, CLIENT+15*, CLIENT+16, CLIENT+17
>> BLRRL("INSCOV"	INS+7, SETINS+6, SETINS+18*
>> BLRRL("INSE"	BILL+29, SETINS+13, SETINS+16, PATBILL+7
>> BLRRL("INSTYP"	INSTYP+10*
>> BLRRL("PAT"	BILL+24, PATBILL+1, PATBILL+2, PATBILL+3, PATBILL+4, PATBILL+5
>> BLRRL("RL"	CLIENT+5
>> BLRRL("RLE"	SETINS+25, SETINS+26, SETINS+27, SETINS+28, SETINS+29, SETINS+30
>> BLRRLASK	BILL+1
>> BLRRLBTP	BILL+2, BILL+3, BILL+33*
>> BLRRLCDT	SETINS+1*, SETINS+2
>> BLRRLCLA	CLIENT+18*
>> BLRRLCLT	CLIENT+16*, CLIENT+18
BLRRLCN	INS+15~, INS+16, INS+18, INS+19, INS+22
>> BLRRLCNT	BILL+1, BILL+32*
BLRRLD	CLIENT+8~, CLIENT+9*, CLIENT+10
BLRRLDA	CLCNT+1~, CLCNT+3, CLCNT+5, INS+15~, INS+17, INS+19, INS+20, INS+21
BLRSEQ	SETINS+8, SETINS+9!
BLRSEQ(	SEQINS+9*
BLRSEQ(1	SETINS+3
>> BLRTSTDA	BILL+2, BILL+31, SETINS+1, SETINS+12, SETINS+14, SETINS+15, SETINS+19, SETINS+20, SETINS+21, SETINS+22 , SETINS+23, SETINS+24, SETINS+25, SETINS+26, SETINS+27, SETINS+28, SETINS+29, SETINS+30, SETINS+31, SETINS+32 , SETINS+33, SETINS+34, SETINS+35, SETINS+36, SETINS+38, SETINS+39, SETINS+40, SETINS+41, SETINS+42, SETINS+43 , SETINS+44, SETINS+45, SETINS+46, SETINS+47, SETINS+48, SETINS+51, SETINS+52, SETINS+53, SETINS+54, SETINS+55 , SETINS+56, SETINS+57, SETINS+58, SETINS+59, SETINS+60, SETINS+61, SETINS+62, SETINS+63, SETINS+64, SETINS+65 , SETINS+66, SETINS+67, SETINS+68
BN	FNDSEQ~, FNDSEQ+11
CDT	FNDSEQ~, FNDSEQ+2
CTY	INSADD+1~, INSADD+4, INSADD+7, PATADD+1~, PATADD+4, PATADD+7, GT1ADD+1~, GT1ADD+4*, GT1ADD+7
DATA	INSADD+1~, INSADD+2, INSADD+3, INSADD+4, INSADD+5, INSADD+6, PATADD+1~, PATADD+2, PATADD+3, PATADD+4 , PATADD+5, PATADD+6, GT1ADD+1~, GT1ADD+2*, GT1ADD+3, GT1ADD+4, GT1ADD+5, GT1ADD+6
>> DFN	INS+2*, SETINS
DIR	CLIENT+11!, BILL+17!
DIR("A"	CLIENT+12, BILL+8, INS+22*
DIR("B"	BILL+9*
DIR(0	CLIENT+12, BILL+7, INS+22*
>> DIRUT	CLIENT+14, BILL+14, INS+24
DUZ(2	CLIENT+2, CLIENT+4, BILL+9, INS+10
DXCNT	BILL+19!, BILL+20*
DZ2	CLCNT~, CLCNT+3
EFF	FNDSEQ+1~, FNDSEQ+2*, FNDSEQ+3, FNDSEQ+4
FLG	INS~, INS+11, INS+14, SETINS+11
HLDA	HL7+1~, HL7+2*, HL7+4
INSCNT	BILL+19!, BILL+21*
INSI	INSADD~, INSADD+2
>> LRORD	CLIENT+1, BILL+28, SETINS+11
>> LRUID	CLIENT+1, SETINS+11
PAT	DX~, DX+1, INS~, INS+2, SETINS*, SETINS+2, SETINS+11, SETINS+44, SETINS+45, SETINS+46 , SETINS+47, SETINS+48, SETINS+60, SETINS+61, SETINS+62, PATADD~, PATADD+2
PH	GT1ADD~, GT1ADD+2
POL	FNDSEQ~, FNDSEQ+12
POLI	SEQINS+4~, SEQINS+6*, SEQINS+7
PT	SEQINS~, SEQINS+7
PTI	FNDSEQ~, FNDSEQ+2, FNDSEQ+4, FNDSEQ+10
RLCDT	SEQINS~, SEQINS+7
SEQ	SEQINS+4~, SEQINS+7*, SEQINS+8, SEQINS+9
SQDA	FNDSEQ+1~, FNDSEQ+4*, FNDSEQ+6
SQDATA	FNDSEQ+5~, FNDSEQ+6*, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13
SQINS	FNDSEQ+5~, FNDSEQ+8*, FNDSEQ+11
SQPAT	FNDSEQ+5~, FNDSEQ+7*, FNDSEQ+10
SQPOL	FNDSEQ+5~, FNDSEQ+9*, FNDSEQ+12
SQPRI	FNDSEQ+1~, FNDSEQ+4, FNDSEQ+13*, FNDSEQ+14
ST	INSADD+1~, INSADD+5, INSADD+7, PATADD+1~, PATADD+5, PATADD+7, GT1ADD+1~, GT1ADD+5*, GT1ADD+7
STR	INSADD+1~, INSADD+3, INSADD+7, PATADD+1~, PATADD+3, PATADD+7, GT1ADD+1~, GT1ADD+3*, GT1ADD+7
TDA	INSTYP~, INSTYP+1, INSTYP+2, INSTYP+3, INSTYP+4, INSTYP+5, INSTYP+6, INSTYP+7, INSTYP+8, INSTYP+9 , INSTYP+10
TSTDA	PATBILL~, PATBILL+1, PATBILL+2, PATBILL+3, PATBILL+4, PATBILL+5, PATBILL+6
U	CLIENT+5, BILL+9, INS+10, INS+19, INS+20, INS+21, SETINS+12, SETINS+13, SETINS+14, SETINS+20 , SETINS+21, SETINS+22, SETINS+31, SETINS+32, SETINS+33, SETINS+35, SETINS+38, SETINS+39, SETINS+41, SETINS+42 , SETINS+43, SETINS+45, SETINS+47, SETINS+48, SETINS+51, SETINS+53, SETINS+55, SETINS+57, SETINS+58, SETINS+60 , SETINS+62, SETINS+67, SETINS+68, PATBILL+1, PATBILL+2, PATBILL+4, PATBILL+5, INSADD+3, INSADD+4, INSADD+5 , INSADD+6, INSADD+7, PATADD+3, PATADD+4, PATADD+5, PATADD+6, PATADD+7, GT1ADD+3, GT1ADD+4, GT1ADD+5 , GT1ADD+6, GT1ADD+7, SEQINS+5, SEQINS+6, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13
>> Y	CLIENT+15, INS+25, INS+26
>> Y(0	BILL+15
ZIP	INSADD+1~, INSADD+6, INSADD+7, PATADD+1~, PATADD+6, PATADD+7, GT1ADD+1~, GT1ADD+6*, GT1ADD+7

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLHL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: