Routine: ABMDREL1

Package	Total	Call Graph
Third Party Billing	2	DONE^ABMDREL0 $$EN^ABMVDF
VA Fileman	2	DD^%DT ^DIR
IHS Patient	1	$$HISTMBI^AUPNMBI

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+8, MCD+2, MCD3+1
DONE^ABMDREL0	DONE
$$EN^ABMVDF	HEAD1+1
$$HISTMBI^AUPNMBI	MCRA+11
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"TOTAL NUMBER OF ",ABMD("TITL"),": ",ABMD("TOT"),! Line Location: START+7
Function Call: WRITE	Prompt: !,"(REG) ",ABMD("PN"),?36,$J(ABMD("HRN"),6),?49,ABMD("MEDN"),?64,ABMD("OB"),!,"(MCR) ",ABMD("MN"),?64,ABMD("MDOB") Line Location: MCRA+16
Function Call: WRITE	Prompt: !,ABMD("80D") Line Location: MCRA+18
Function Call: WRITE	Prompt: !,?19,$P(ABMD("R"),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: !,ABMD("PN"),?40,ABMD("HRN"),?56,ABMD("OB") Line Location: PI+4
Function Call: WRITE	Prompt: !,ABMD("80D") Line Location: PI+6
Function Call: WRITE	Prompt: !," INSURER: ",$P(^AUTNINS($P(ABMD("R"),U,1),0),U,1) Line Location: PI2+4
Function Call: WRITE	Prompt: !," POLICY #: ",$S($P(ABMD("R"),U,8):$P($G(^AUPN3PPH($P(ABMD("R"),U,8),0)),U,4),1:""),?47,"COVERAGE TYPE: ",$E(ABMD("COVT"),1,16) Line Location: PI2+6
Function Call: WRITE	Prompt: !," INSURED: ",$P(ABMD("R"),U,4),?47,"REL: ",$S($P(ABMD("R"),U,5)]"":$P(^AUTTRLSH($P(ABMD("R"),U,5),0),U),1:"") Line Location: PI2+7
Function Call: WRITE	Prompt: !," ELIG BEG DATE: " Line Location: PI2+8
Function Call: WRITE	Prompt: Y,?47,"ELIG END DATE: " Line Location: PI2+8
Function Call: WRITE	Prompt: Y,?47,"ELIG END DATE: " Line Location: PI2+8
Function Call: WRITE	Prompt: !,"(REG) ",ABMD("PN"),?46,ABMD("HRN"),?61,ABMD("OB") Line Location: MCD+4
Function Call: WRITE	Prompt: !,ABMD("80D") Line Location: MCD+6
Function Call: WRITE	Prompt: !,"(MCD) ",ABMD("MN"),?61,ABMD("MDOB") Line Location: MCD2+4
Function Call: WRITE	Prompt: !," MEDICAID #: ",$P(ABMD("R"),U,3),?50,"STATE: ",$S($P(ABMD("R"),U,4)]"":$P(^DIC(5,$P(ABMD("R"),U,4),0),U),1:"") Line Location: MCD2+5
Function Call: WRITE	Prompt: !," NAME/INSURED: ",$P(ABMD("R"),U,5),?50,"SEX OF INSURED: ",$P(ABMD("R"),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(ABMD("NREC"),U,3),?50,"ELIG END DATE: " Line Location: MCD3+1
Function Call: WRITE	Prompt: ?20,Y,?35,"COVERAGE: ",$P(ABMD("NREC"),U,3),?50,"ELIG END DATE: " Line Location: MCD3+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: HEAD1+1
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,ABMD("SU"),0),U))/2),$P(^DIC(4,ABMD("SU"),0),U),?72,"Page ",ABMD("PG"),! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?((80-ABMD("LENG"))/2),"REGISTERED PATIENTS - ",ABMD("TITL"),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?23,"Actively enrolled as of ",ABMD("ACEY"),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ABMD("80D") 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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	PI2+6
^AUPNMCD - [#9000004]	MCD+5, MCD2+2, MCD2+3, MCD2+7
^AUPNMCR - [#9000003]	MCRA+4, MCRA+5, MCRA+14, MCRA+17
^AUPNPAT - [#9000001]	MCRA+3, PI+3, MCD+3
^AUPNPRVT - [#9000006]	PI+5, PI2+1
^AUTNINS - [#9999999.18]	PI2+4
^AUTTMCS - [#9999999.32]	MCRA+14
^AUTTPIC - [#9999999.65]	PI2+2
^AUTTRLSH - [#9999999.36]	PI2+7
^DIC(4 - [#4]	HEAD1+2
^DIC(5 - [#5]	MCD2+5
^DPT - [#2]	MCRA+2, PI+2, MCD+2
^TMP("ABMDBRH"	START+4, DFN+1, MCRA+17, PI+5, MCD+5, MCD2+7

Label References

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+3, MCD+1, MCD2+1
HEAD1	HEAD
MCD2	MCD+5
MCD3	MCD2+7
MCRA2	MCRA+17
PI2	PI+5

Naked Globals

Name	Field # of Occurrence
^(0	MCRA+14, MCRA+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABMD("$J"	START+4, DFN+1, MCRA+17, PI+5, MCD+5, MCD2+7
>> ABMD("80D"	START!*, MCRA+18, PI+6, MCD+6, HEAD1+8
>> ABMD("ACEY"	HEAD1+5
>> ABMD("COVT"	PI2+2*, PI2+6
>> ABMD("DFN"	DFN+1*, MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA+11, MCRA+14, MCRA+17, PI+2, PI+3 , PI+5, PI2+1, MCD+2, MCD+3, MCD+5, MCD2+7
>> ABMD("ET"	START+1*
>> ABMD("HRN"	MCRA+3, MCRA+16, PI+3, PI+4, MCD+3*, MCD+4
>> ABMD("LENG"	HEAD1+3*, HEAD1+4
>> ABMD("MDFN"	MCRA+17, PI+5, PI2+1, MCD+5*, MCD2+2, MCD2+3, MCD2+7
>> ABMD("MDOB"	MCRA+5, MCRA+16, MCD2+3, MCD2+4
>> ABMD("MEDN"	MCRA+10, MCRA+13, MCRA+14*, MCRA+16
>> ABMD("MN"	MCRA+4, MCRA+16, MCD2+2, MCD2+4
>> ABMD("NDFN"	MCD2+7*
>> ABMD("NREC"	MCD2+7*, MCD3+1
>> ABMD("OB"	MCRA+2, MCRA+16, PI+2, PI+4, MCD+2*, MCD+4
>> ABMD("PG"	START+2, HEAD, HEAD1+1, HEAD1+2
>> ABMD("PN"	START+3, START+4, DFN+1, MCRA+16, MCRA+17, PI+4, PI+5, MCD+4, MCD+5, MCD2+7
>> ABMD("PROC"	DFN+1, HEAD1+7
>> ABMD("Q"	START+3!, START+4, START+5, START+6, DFN+1, MCRA+1, MCRA+17, MCRA2+1, PI+1, PI+5 , PI2+3, MCD+1, MCD+5, MCD2+1, MCD2+7, HEAD+1*
>> ABMD("R"	MCRA+17, MCRA2+2, PI+5, PI2+2, PI2+4, PI2+6, PI2+7, PI2+8, MCD+5*, MCD2+5 , MCD2+6
>> ABMD("SU"	MCRA+3, PI+3, MCD+3, HEAD1+2
>> ABMD("TITL"	START+7, HEAD1+3, HEAD1+4
>> ABMD("TOT"	START+7
ABMMBI	MCRA+8!, MCRA+9, MCRA+11, MCRA+12*, MCRA+13
ABMMBI(	MCRA+13
ABMMBI(999999999	MCRA+12
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DIROUT	HEAD+1
>> DTOUT	HEAD+1
>> DUOUT	HEAD+1
IO("S"	HEAD+1
IOSL	START+6, MCRA+1, MCRA2+1, PI+1, PI2+3, MCD+1, MCD2+1
IOST	HEAD+1
U	MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA+13, MCRA+14, MCRA2+2, PI+2, PI+3, PI2+1 , PI2+2, PI2+4, PI2+6, PI2+7, PI2+8, 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+8, MCD+2, MCD3+1*

Customize PDF page

Package: Third Party Billing

Routine: ABMDREL1

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: