Routine: ABMMUELG

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (CLOSE,OPEN)^%ZISH ^%ZTLOAD
Third Party Billing	4	$$SDT^ABMDUTL (WRTELIG,WRTPTS,WRTVSTS)^ABMMUEL1 TOTALS^ABMMUELG $$EN^ABMVDF
VA Fileman	2	NOW^%DTC ^DIR
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Third Party Billing	1	ABMMUELG

Entry Points

Name	Comments	DBIA/ICR reference
WHD	;EP for writing Report Header
WRTPTS	;^TMP($J,"ABM-MURPT","PTS",ABMP("PDFN"))
GETELIG	;
WRTVSTS	;^TMP($J,"ABM-MURPT","ENC",ABMP("VDFN"))
RTYPE	;
WRTELIG	;
TOTALS	;
XIT1	;
QUE	;QUE TO TASKMAN
GETPTS	;
XIT	;
DT	;
SEL	; ; Select device
GETVSTS	;

External References

Name	Field # of Occurrence
NOW^%DTC	WHD+3
^%ZIS	SEL+8
HOME^%ZIS	SEL+20
^%ZISC	SEL+19
CLOSE^%ZISH	SEL+43
OPEN^%ZISH	SEL+37
^%ZTLOAD	QUE+5
$$SDT^ABMDUTL	WHD+5
WRTELIG^ABMMUEL1	WRTELIG+1
WRTPTS^ABMMUEL1	WRTPTS+1
WRTVSTS^ABMMUEL1	WRTVSTS+1
TOTALS^ABMMUELG	SEL+18
$$EN^ABMVDF	WHD+1
^DIR	DT+6, DT+11, RTYPE+6, SEL+20, SEL+29, SEL+33
^XBFMK	DT+2, SEL+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The date range selected will be used for: " Line Location: ABMMUELG+8
Function Call: WRITE	Prompt: !,?3,"1. Was the patient's record active during that range" Line Location: ABMMUELG+9
Function Call: WRITE	Prompt: !,?3,"2. Did the patient have eligibility in that range" Line Location: ABMMUELG+10
Function Call: WRITE	Prompt: !,?3,"3. How many encounters they had during that time" Line Location: ABMMUELG+11
Function Call: WRITE	Prompt: !!,"Detail information will be supplied for validation purposes but once validated" Line Location: ABMMUELG+12
Function Call: WRITE	Prompt: !,"the summary option should be used." Line Location: ABMMUELG+13
Function Call: WRITE	Prompt: !!," ============ Entry of Date Range =============",! Line Location: DT+1
Function Call: WRITE	Prompt: ! Line Location: DT+9
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DT+15
Function Call: WRITE	Prompt: ! Line Location: RTYPE+1
Function Call: WRITE	Prompt: !!,"Searching...." Line Location: RTYPE+10
Function Call: WRITE	Prompt: !!,"Searching...." Line Location: SEL+10
Function Call: WRITE	Prompt: !!,"Practice Demographics" Line Location: TOTALS+13
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","PTS")),7)_" Patients" Line Location: TOTALS+14
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","ENC")),7)_" Encounters" Line Location: TOTALS+15
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","UNQ")),7)_" Unique Patients" Line Location: TOTALS+16
Function Call: WRITE	Prompt: !!,"(REPORT COMPLETE)" Line Location: TOTALS+19
Function Call: WRITE	Prompt: !!,"Patient Demographics" Line Location: TOTALS+20
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","MCD")),7)_" Patients with Medicaid ( "_$J($FN((+$G(^TMP($J,"ABM-MURPT","CNT","MCD"))/(+$G(^TMP($J,"ABM-MURPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+22
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","MCR")),7)_" Patients with Medicare ( "_$J($FN((+$G(^TMP($J,"ABM-MURPT","CNT","MCR"))/(+$G(^TMP($J,"ABM-MURPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+24
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","RR")),7)_" Patients with Railroad ( "_$J($FN((+$G(^TMP($J,"ABM-MURPT","CNT","RR"))/(+$G(^TMP($J,"ABM-MURPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+26
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","PI")),7)_" Patients with Private ( "_$J($FN((+$G(^TMP($J,"ABM-MURPT","CNT","PI"))/(+$G(^TMP($J,"ABM-MURPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+28
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","NO")),7)_" Patients Uninsured ( "_$J($FN((+$G(^TMP($J,"ABM-MURPT","CNT","NO"))/(+$G(^TMP($J,"ABM-MURPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+30
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-MURPT","CNT","VAMB")),7)_" Patients with VA Med B ( "_$J($FN((+$G(^TMP($J,"ABM-MURPT","CNT","VAMB"))/(+$G(^TMP($J,"ABM-MURPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+33
Function Call: WRITE	Prompt: !!,"(REPORT COMPLETE)" Line Location: TOTALS+35
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),! Line Location: WHD+1
Function Call: WRITE	Prompt: ABM("LINE"),! Line Location: WHD+2
Function Call: WRITE	Prompt: ABM("HD",0),?$S($D(ABM(132)):103,1:48) Line Location: WHD+4
Function Call: WRITE	Prompt: Y," Page ",ABM("PG") Line Location: WHD+4
Function Call: WRITE	Prompt: !,"Billing Location: ",$P($G(^AUTTLOC(DUZ(2),0)),U,2) Line Location: WHD+8
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: WHD+9
Routine Call	%ZIS Line Location: SEL+20
Routine Call	DIR Line Location: DT+6 DT+11 RTYPE+6 SEL+20 SEL+29 SEL+33
Routine Call	%ZIS Line Location: SEL+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDPARM(	SEL+28
^AUPNMCD - [#9000004]	GETELIG+8, GETELIG+9
^AUPNMCD("B"	GETELIG+4, GETELIG+6
^AUPNMCR - [#9000003]	GETELIG+20, GETELIG+22, GETELIG+23, GETELIG+24
^AUPNPAT - [#9000001]	GETPTS+2, GETPTS+3, GETPTS+4
^AUPNPRVT - [#9000006]	GETELIG+50, GETELIG+52, GETELIG+53, GETELIG+54
^AUPNRRE - [#9000005]	GETELIG+35, GETELIG+37, GETELIG+38, GETELIG+39
^AUPNVAMB - [#9000006.02]	GETELIG+66, GETELIG+68, GETELIG+69, GETELIG+70
^AUPNVSIT - [#9000010]	GETVSTS+6
^AUPNVSIT("B"	GETVSTS+3, GETVSTS+5
^AUTTLOC - [#9999999.06]	WHD+8
^DD("DD"	WHD+4
^TMP($J	ABMMUELG+15!, XIT+1!, GETPTS+6, GETPTS+7, GETELIG+3, GETELIG+14, GETELIG+15, GETELIG+19, GETELIG+29, GETELIG+30 , GETELIG+34, GETELIG+44, GETELIG+45, GETELIG+49, GETELIG+59, GETELIG+60, GETELIG+65, GETELIG+75, GETELIG+76, GETELIG+81 , GETELIG+82, GETELIG+83, GETELIG+84, GETVSTS+8, GETVSTS+9, GETVSTS+10, GETVSTS+11, GETVSTS+12, GETVSTS+13, TOTALS+14 , TOTALS+15, TOTALS+16, TOTALS+19, TOTALS+22, TOTALS+24, TOTALS+26, TOTALS+28, TOTALS+30, TOTALS+33

Label References

Name	Line Occurrences
DT	DT+13, DT+15
GETELIG	RTYPE+12
GETPTS	RTYPE+11
GETVSTS	RTYPE+13
WHD	TOTALS+12
WRTELIG	SEL+41
WRTPTS	SEL+40
WRTVSTS	SEL+42

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WHD+4
>> %ZIS("A"	SEL+7*
>> ABM("HD"	TOTALS+5, WHD+4, WHD+5, WHD+6, WHD+7
>> ABM("LINE"	WHD+2!*, WHD+9!
>> ABM("PG"	TOTALS+6*, WHD+4
>> ABM(132	WHD+2, WHD+4
>> ABMFN	SEL+35*, SEL+37
ABMMFLG	XIT+2!, GETELIG+7, GETELIG+8, GETELIG+12, GETELIG+13, GETELIG+21, GETELIG+22, GETELIG+27, GETELIG+28, GETELIG+36* , GETELIG+37, GETELIG+42, GETELIG+43, GETELIG+51, GETELIG+52, GETELIG+57, GETELIG+58, GETELIG+67, GETELIG+68, GETELIG+73* , GETELIG+74
ABMP	ABMMUELG+14!, XIT+2!
ABMP("EDT"	GETVSTS+2*, GETVSTS+3
ABMP("EFFDT"	GETELIG+7, GETELIG+8, GETELIG+9, GETELIG+11, GETELIG+23, GETELIG+26, GETELIG+38, GETELIG+41, GETELIG+53, GETELIG+56 , GETELIG+69, GETELIG+72
ABMP("ENDDT"	GETELIG+9, GETELIG+11, GETELIG+24, GETELIG+26, GETELIG+39, GETELIG+41, GETELIG+54, GETELIG+56, GETELIG+70*, GETELIG+72
ABMP("MDFN"	GETELIG+5, GETELIG+6, GETELIG+8, GETELIG+9, GETELIG+14, GETELIG+21, GETELIG+22, GETELIG+23, GETELIG+24, GETELIG+29 , GETELIG+36, GETELIG+37, GETELIG+38, GETELIG+39, GETELIG+44, GETELIG+51, GETELIG+52, GETELIG+53, GETELIG+54, GETELIG+59 , GETELIG+67, GETELIG+68, GETELIG+69, GETELIG+70, GETELIG+75
ABMP("PDFN"	GETPTS+1, GETPTS+2, GETPTS+3, GETPTS+4, GETPTS+6, GETELIG+2, GETELIG+3, GETELIG+4, GETELIG+6, GETELIG+14 , GETELIG+18, GETELIG+19, GETELIG+20, GETELIG+22, GETELIG+23, GETELIG+24, GETELIG+29, GETELIG+33, GETELIG+34, GETELIG+35 , GETELIG+37, GETELIG+38, GETELIG+39, GETELIG+44, GETELIG+48, GETELIG+49, GETELIG+50, GETELIG+52, GETELIG+53, GETELIG+54 , GETELIG+59, GETELIG+64, GETELIG+65, GETELIG+66, GETELIG+68, GETELIG+69, GETELIG+70, GETELIG+75, GETELIG+80, GETELIG+81 , GETELIG+82, GETELIG+84
ABMP("SDT"	GETVSTS+1, GETVSTS+3, GETVSTS+5
ABMP("VDFN"	GETVSTS+4, GETVSTS+5, GETVSTS+6, GETVSTS+9
>> ABMPATH	SEL+31*, SEL+37
ABMPT	XIT+2!, GETVSTS+6*, GETVSTS+7, GETVSTS+8, GETVSTS+11, GETVSTS+12
ABMPTINA	XIT+2!, GETPTS+4*, GETPTS+5
>> ABMSUMDT	RTYPE+8*, SEL+2, SEL+23
ABMY	ABMMUELG+14!, XIT+2!
ABMY("DT"	DT+8, DT+14, DT+15, GETPTS+5, GETELIG+11, GETELIG+26, GETELIG+41, GETELIG+56, GETELIG+72, GETVSTS+1 , GETVSTS+2, WHD+5
DA	RTYPE+2!
DIC	RTYPE+2!
DIE	RTYPE+2!
DIR	DT+12!, RTYPE+2!, RTYPE+6!, SEL+20!, SEL+29!, SEL+33!
DIR("A"	DT+3, DT+10, RTYPE+4, SEL+27, SEL+32*
DIR("B"	RTYPE+5, SEL+28
DIR(0	DT+5, RTYPE+3, SEL+20, SEL+26, SEL+32*
>> DIROUT	DT+7, RTYPE+7, SEL+30, SEL+34
>> DIRUT	DT+7, DT+13, RTYPE+7, SEL+30, SEL+34
>> DTOUT	DT+7, RTYPE+7, SEL+30, SEL+34
>> DUOUT	DT+7, RTYPE+7, SEL+30, SEL+34
DUZ(2	SEL+28, GETPTS+3, GETPTS+4, WHD+8
IO	SEL+17, SEL+39
>> POP	SEL+8, SEL+38
U	GETPTS+4, GETELIG+9, GETELIG+23, GETELIG+24, GETELIG+38, GETELIG+39, GETELIG+53, GETELIG+54, GETELIG+69, GETELIG+70 , GETVSTS+6, WHD+8
X	RTYPE+2!
Y	DT+8, DT+14, RTYPE+2!, RTYPE+8, SEL+31, SEL+35, WHD+4*
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+1*
>> ZTSAVE("ABM*"	QUE+3*
ZTSK	QUE+4!, QUE+6

Customize PDF page

Package: Third Party Billing

Routine: ABMMUELG

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: