Routine: BLRSHPL2

Package	Total	Call Graph
IHS Changes To Lab	1	($$GT1ADD,$$INSADD,$$PATADD)^BLRRLHL
Kernel	1	$$HLNAME^XLFNAME

Package

Total

Call Graph

IHS Changes To Lab

($$GT1ADD,$$INSADD,$$PATADD)^BLRRLHL

Kernel

$$HLNAME^XLFNAME

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRSHPML

Package

Total

Caller Graph

IHS Changes To Lab

BLRSHPML

Name	Comments	DBIA/ICR reference
PRTSECI(SEC,PT)	;-- print the secondary insurance
WA	;-- print labcorp written authorization

Name	Field # of Occurrence
$$GT1ADD^BLRRLHL	PRTSECI+22
$$INSADD^BLRRLHL	PRTSECI+16
$$PATADD^BLRRLHL	PRTSECI+14, PRTSECI+15, PRTSECI+29
$$HLNAME^XLFNAME	PRTSECI+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: WA+1
Function Call: WRITE	Prompt: "I hereby authorize the release of medical information related to the services" Line Location: WA+2
Function Call: WRITE	Prompt: !,"described herein and authorize payment directly to Laboratory Corporation of" Line Location: WA+3
Function Call: WRITE	Prompt: !,"America. I agree to assume responsibility for payment of charges for" Line Location: WA+4
Function Call: WRITE	Prompt: !,"laboratory services that are not covered by any healthcare insurer." Line Location: WA+5
Function Call: WRITE	Prompt: !!! Line Location: WA+6
Function Call: WRITE	Prompt: "____________________ __________",?40,"___________________ __________" Line Location: WA+7
Function Call: WRITE	Prompt: !,"Patient Signature Date",?40,"Physician Signature Date" Line Location: WA+8
Function Call: WRITE	Prompt: !!,"SECONDARY INSURANCE" Line Location: PRTSECI+39
Function Call: WRITE	Prompt: !,"Ins Carrier Code: "_$G(ICC),?40,"Insured Name: "_$E($P($G(^DPT(PT,0)),U),1,26) Line Location: PRTSECI+40
Function Call: WRITE	Prompt: !,?40,"Relationship: "_$G(IRE) Line Location: PRTSECI+41
Function Call: WRITE	Prompt: !,"Insurer Name: ",$E($G(INRN),1,30),?40,"Insured Add: "_$P(INRAE,"~") Line Location: PRTSECI+42
Function Call: WRITE	Prompt: !,"Insurer Add: ",?54,$P(INRAE,"~",2) Line Location: PRTSECI+43
Function Call: WRITE	Prompt: !,$P($G(INSADE),"~"),?40,"Guarantor: "_$E($G(GUARE),1,25) Line Location: PRTSECI+44
Function Call: WRITE	Prompt: !,$P($G(INSADE),"~",2),?40,"Guar Add: "_$P($G(GUARAE),"~") Line Location: PRTSECI+45
Function Call: WRITE	Prompt: !,"Insurer Group: "_$G(ING),?50,$P($G(GUARE),"~",2) Line Location: PRTSECI+46
Function Call: WRITE	Prompt: !,"Insured ID: "_$G(INID),?40,"Guarantor Phone: "_$G(GUARPH) Line Location: PRTSECI+47

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	PRTSECI+21, PRTSECI+23
^AUTNINS - [#9999999.18]	PRTSECI+4, PRTSECI+13, PRTSECI+19
^AUTTRLSH - [#9999999.36]	PRTSECI+5
^DPT - [#2]	PRTSECI+28, PRTSECI+30, PRTSECI+32, PRTSECI+40

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
GUAR	PRTSECI+1~, PRTSECI+21, PRTSECI+26, PRTSECI+28, PRTSECI+31, PRTSECI+32*, PRTSECI+36
GUARA	PRTSECI+1~, PRTSECI+25, PRTSECI+29, PRTSECI+33, PRTSECI+35
>> GUARAD	PRTSECI+22*
GUARAE	PRTSECI+1~, PRTSECI+25, PRTSECI+35, PRTSECI+45
>> GUARE	PRTSECI+26, PRTSECI+36, PRTSECI+44, PRTSECI+46
GUARI	PRTSECI+1~, PRTSECI+18*, PRTSECI+20, PRTSECI+21, PRTSECI+22, PRTSECI+23, PRTSECI+27
GUARP	PRTSECI+1~
GUARPH	PRTSECI+1~, PRTSECI+23, PRTSECI+30, PRTSECI+47
ICC	PRTSECI+1~, PRTSECI+4*, PRTSECI+40
IN	PRTSECI+1~
ING	PRTSECI+1~, PRTSECI+37*, PRTSECI+46
INID	PRTSECI+1~, PRTSECI+38*, PRTSECI+47
INRA	PRTSECI+1~, PRTSECI+14*
INRAE	PRTSECI+1~, PRTSECI+15*, PRTSECI+33, PRTSECI+42, PRTSECI+43
INRN	PRTSECI+1~, PRTSECI+13*, PRTSECI+42
INSAD	PRTSECI+1~, PRTSECI+16*, PRTSECI+17
INSADE	PRTSECI+1~, PRTSECI+17*, PRTSECI+44, PRTSECI+45
INSI	PRTSECI+1~, PRTSECI+3*, PRTSECI+4, PRTSECI+13, PRTSECI+16, PRTSECI+19
INST	PRTSECI+2~, PRTSECI+19*
IR	PRTSECI+1~, PRTSECI+5, PRTSECI+6, PRTSECI+7, PRTSECI+8, PRTSECI+9, PRTSECI+10, PRTSECI+11, PRTSECI+12*
IRE	PRTSECI+1~, PRTSECI+8, PRTSECI+9, PRTSECI+10, PRTSECI+11, PRTSECI+12*, PRTSECI+41
PT	PRTSECI~, PRTSECI+14, PRTSECI+15, PRTSECI+28, PRTSECI+29, PRTSECI+30, PRTSECI+32, PRTSECI+40
SEC	PRTSECI~, PRTSECI+3, PRTSECI+5, PRTSECI+18, PRTSECI+37, PRTSECI+38
U	PRTSECI+3, PRTSECI+4, PRTSECI+5, PRTSECI+13, PRTSECI+15, PRTSECI+17, PRTSECI+18, PRTSECI+19, PRTSECI+21, PRTSECI+23 , PRTSECI+25, PRTSECI+26, PRTSECI+28, PRTSECI+30, PRTSECI+32, PRTSECI+35, PRTSECI+36, PRTSECI+37, PRTSECI+38, PRTSECI+40

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSHPL2

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: