Routine: APCLBRH1

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
IHS Patient Registration	1	$$GETMCR^AGUTL
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
PIH
HEAD
HEAD1	;
MCRA2	;
MCD	;
MCD2	;
MCD3	;
START	;
DFN	;
DONE
MCDH	;
PI2	;
PI	;
MCRAH	;
MCRA	;

External References

Name	Field # of Occurrence
DD^%DT	MCRA+2, MCRA+5, MCRA2+2, PI+2, PI2+5, MCD+2, MCD3+1
$$GETMCR^AGUTL	MCRA+7
DONE^APCLOSUT	DONE
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"TOTAL NUMBER OF ",APCLTITL,": ",APCLTOT,! Line Location: START+7
Function Call: WRITE	Prompt: !,"(REG) ",APCLPN,?36,$J(APCLHRN,6),?49,APCLMEDN,?64,DOB Line Location: MCRA+8
Function Call: WRITE	Prompt: !,"(MCR) ",APCLMN,?64,APCLMDOB Line Location: MCRA+9
Function Call: WRITE	Prompt: !,APCL80D Line Location: MCRA+11
Function Call: WRITE	Prompt: !?19,$P(APCLR,U,3) Line Location: MCRA2+2
Function Call: WRITE	Prompt: ?32,Y Line Location: MCRA2+2
Function Call: WRITE	Prompt: ?32,Y Line Location: MCRA2+2
Function Call: WRITE	Prompt: !,APCLPN,?40,APCLHRN,?56,DOB Line Location: PI+4
Function Call: WRITE	Prompt: !,APCL80D Line Location: PI+6
Function Call: WRITE	Prompt: !," INSURER: ",$P(^AUTNINS($P(APCLR,U),0),U) Line Location: PI2+2
Function Call: WRITE	Prompt: !," POLICY #: ",$S($P($G(^AUPNPRVT(DFN,11,APCLMDFN,2)),U,1)]"":$P(^AUPNPRVT(DFN,11,APCLMDFN,2),U,1),$P(APCLR,U,8):$P(^AUPN3PPH($P(APCLR,U,8),0),U,4),1:$P(APCLR,U,2)),?47,"COVERAGE TYPE: ",$P(APCLR,U,3) Line Location: PI2+3
Function Call: WRITE	Prompt: !," INSURED: ",$P(APCLR,U,4),?47,"REL: ",$S($P(APCLR,U,5)]"":$P(^AUTTRLSH($P(APCLR,U,5),0),U),1:"") Line Location: PI2+4
Function Call: WRITE	Prompt: !," ELIG BEG DATE: " Line Location: PI2+5
Function Call: WRITE	Prompt: Y,?47,"ELIG END DATE: " Line Location: PI2+5
Function Call: WRITE	Prompt: Y,?47,"ELIG END DATE: " Line Location: PI2+5
Function Call: WRITE	Prompt: !,"(REG) ",APCLPN,?46,APCLHRN,?61,DOB Line Location: MCD+4
Function Call: WRITE	Prompt: !,APCL80D Line Location: MCD+6
Function Call: WRITE	Prompt: !,"(MCD) ",APCLMN,?61,APCLMDOB Line Location: MCD2+4
Function Call: WRITE	Prompt: !," MEDICAID #: ",$P(APCLR,U,3),?50,"STATE: ",$S($P(APCLR,U,4)]"":$P(^DIC(5,$P(APCLR,U,4),0),U),1:"") Line Location: MCD2+5
Function Call: WRITE	Prompt: !," NAME/INSURED: ",$P(APCLR,U,5),?50,"SEX OF INSURED: ",$P(APCLR,U,7) Line Location: MCD2+6
Function Call: WRITE	Prompt: !," ELIG BEG DATE: " Line Location: MCD3+1
Function Call: WRITE	Prompt: ?20,Y,?35,"COVERAGE: ",$P(APCLNREC,U,3),?50,"ELIG END DATE: " Line Location: MCD3+1
Function Call: WRITE	Prompt: ?20,Y,?35,"COVERAGE: ",$P(APCLNREC,U,3),?50,"ELIG END DATE: " Line Location: MCD3+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,APCLSU,0),U))/2),$P(^DIC(4,APCLSU,0),U),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?((80-APCLLENG)/2),"REGISTERED PATIENTS - ",APCLTITL,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?23,"Actively enrolled as of ",APCLACEY,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ! Line Location: HEAD1+6
Function Call: WRITE	Prompt: APCL80D Line Location: HEAD1+8
Function Call: WRITE	Prompt: !," NAME",?36,"CHART #",?49,"MEDICARE #",!,"(TYPE)",?14,"COVERAGE",?32,"ELIG BEG DATE",?49,"ELIG END DATE",?64,"DATE OF BIRTH",! Line Location: MCRAH+1
Function Call: WRITE	Prompt: !,"PATIENT NAME",?40,"CHART #",?55,"DATE OF BIRTH",! Line Location: PIH+0
Function Call: WRITE	Prompt: !,"PATIENT NAME",?40,"CHART #",?55,"DATE OF BIRTH",! Line Location: MCDH+1
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	PI2+3
^AUPNMCD - [#9000004]	MCD+5, MCD2+2, MCD2+3, MCD2+7
^AUPNMCR - [#9000003]	MCRA+4, MCRA+5, MCRA+10
^AUPNPAT - [#9000001]	MCRA+3, PI+3, MCD+3
^AUPNPRVT - [#9000006]	PI+5, PI2+3
^AUTNINS - [#9999999.18]	PI2+2
^AUTTRLSH - [#9999999.36]	PI2+4
^DIC(4 - [#4]	HEAD1+2
^DIC(5 - [#5]	MCD2+5
^DPT - [#2]	MCRA+2, PI+2, MCD+2
^XTMP("APCLBRH"	START+4, DONE+1!, DFN+1, MCRA+10, PI+5, MCD+5, MCD2+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL80D	START+1*, MCRA+11, PI+6, MCD+6, HEAD1+8
>> APCLACEY	HEAD1+5
>> APCLBT	START+4, DONE+1, DFN+1, MCRA+10, PI+5, MCD+5, MCD2+7
>> APCLHRN	MCRA+3, MCRA+8, PI+3, PI+4, MCD+3*, MCD+4
>> APCLJOB	START+4, DONE+1, DFN+1, MCRA+10, PI+5, MCD+5, MCD2+7
>> APCLLENG	HEAD1+3*, HEAD1+4
>> APCLMDFN	MCRA+10, PI+5, PI2+3, MCD+5*, MCD2+2, MCD2+3, MCD2+7
>> APCLMDOB	MCRA+5, MCRA+9, MCD2+3, MCD2+4
>> APCLMEDN	MCRA+7*, MCRA+8
>> APCLMN	MCRA+4, MCRA+9, MCD2+2, MCD2+4
>> APCLNDFN	MCD2+7*
>> APCLNREC	MCD2+7*, MCD3+1
>> APCLPG	START+2, HEAD, HEAD1+1, HEAD1+2
>> APCLPN	START+3, START+4, DFN+1, MCRA+8, MCRA+10, PI+4, PI+5, MCD+4, MCD+5, MCD2+7
>> APCLPROC	DFN+1, HEAD1+7
APCLQ	START+3!, START+4, START+5, START+6, DFN+1, MCRA+1, MCRA+10, MCRA2+1, PI+1, PI+5 , PI2+1, MCD+1, MCD+5, MCD2+1, MCD2+7, HEAD+1*
>> APCLR	MCRA+10, MCRA2+2, PI+5, PI2+2, PI2+3, PI2+4, PI2+5, MCD+5*, MCD2+5, MCD2+6
>> APCLSU	MCRA+3, PI+3, MCD+3, HEAD1+2
>> APCLTITL	START+7, HEAD1+3, HEAD1+4
>> APCLTOT	START+7
>> DFN	DFN+1*, MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA+7, MCRA+10, PI+2, PI+3, PI+5 , PI2+3, MCD+2, MCD+3, MCD+5, MCD2+7
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DOB	MCRA+2, MCRA+8, PI+2, PI+4, MCD+2*, MCD+4
>> DTOUT	HEAD+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+6, MCRA+1, MCRA2+1, PI+1, PI2+1, MCD+1, MCD2+1
IOST	HEAD+1
U	MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA2+2, PI+2, PI+3, PI2+2, PI2+3, PI2+4 , PI2+5, MCD+2, MCD+3, MCD2+2, MCD2+3, MCD2+5, MCD2+6, MCD3+1, HEAD1+2
>> Y	MCRA+2, MCRA+5, MCRA2+2, PI+2, PI2+5, MCD+2, MCD3+1*, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLBRH1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
@(	DFN+1, HEAD1+7
DFN	START+4
DONE	START+5, START+6
HEAD	START+2, START+6, MCRA+1, MCRA2+1, PI+1, PI2+1, MCD+1, MCD2+1
HEAD1	HEAD
MCD2	MCD+5
MCD3	MCD2+7
MCRA2	MCRA+10
PI2	PI+5