Routine: ABMM2ELG

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

Package	Total	Caller Graph
Third Party Billing	1	ABMM2ELG

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

Name	Field # of Occurrence
NOW^%DTC	WHD+3
^%ZIS	SEL+8, SEL+12
HOME^%ZIS	SEL+11, SEL+14
^%ZISC	SEL+13
CLOSE^%ZISH	SEL+36
OPEN^%ZISH	SEL+30
^%ZTLOAD	QUE+5
$$SDT^ABMDUTL	WRTPTS+5, WHD+5
QUE^ABMM2ELG	SEL+11
$$EN^ABMVDF	WHD+1
^DIR	DT+5, DT+10, RTYPE+6, SEL+10, SEL+11, SEL+22, SEL+26
^XBFMK	DT+2, SEL+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The date range selected will be used for: " Line Location: ABMM2ELG+3
Function Call: WRITE	Prompt: !,?3,"1. Was the patient's record active during that range" Line Location: ABMM2ELG+4
Function Call: WRITE	Prompt: !,?3,"2. Did the patient have eligibility in that range" Line Location: ABMM2ELG+5
Function Call: WRITE	Prompt: !,?3,"3. How many encounters they had during that time" Line Location: ABMM2ELG+6
Function Call: WRITE	Prompt: !!,"Detail information will be supplied for validation purposes but once validated" Line Location: ABMM2ELG+7
Function Call: WRITE	Prompt: !,"the summary option should be used." Line Location: ABMM2ELG+8
Function Call: WRITE	Prompt: !!," ============ Entry of Date Range =============",! Line Location: DT+1
Function Call: WRITE	Prompt: ! Line Location: DT+8
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DT+14
Function Call: WRITE	Prompt: ! Line Location: RTYPE+1
Function Call: WRITE	Prompt: !!,"Searching...." Line Location: SEL+9
Function Call: WRITE	Prompt: !!,"Practice Demographics" Line Location: TOTALS+11
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","PTS")),7)_" Patients" Line Location: TOTALS+12
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","ENC")),7)_" Encounters" Line Location: TOTALS+13
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","UNQ")),7)_" Unique Patients" Line Location: TOTALS+14
Function Call: WRITE	Prompt: !!,"(REPORT COMPLETE)" Line Location: TOTALS+22
Function Call: WRITE	Prompt: !!,"Patient Demographics" Line Location: TOTALS+23
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","MCD")),7)_" Patients with Medicaid ( "_$J($FN((+$G(^TMP($J,"ABM-M2RPT","CNT","MCD"))/(+$G(^TMP($J,"ABM-M2RPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+25
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","MCR")),7)_" Patients with Medicare ( "_$J($FN((+$G(^TMP($J,"ABM-M2RPT","CNT","MCR"))/(+$G(^TMP($J,"ABM-M2RPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+27
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","RR")),7)_" Patients with Railroad ( "_$J($FN((+$G(^TMP($J,"ABM-M2RPT","CNT","RR"))/(+$G(^TMP($J,"ABM-M2RPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+29
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","PI")),7)_" Patients with Private ( "_$J($FN((+$G(^TMP($J,"ABM-M2RPT","CNT","PI"))/(+$G(^TMP($J,"ABM-M2RPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+31
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","NO")),7)_" Patients Uninsured ( "_$J($FN((+$G(^TMP($J,"ABM-M2RPT","CNT","NO"))/(+$G(^TMP($J,"ABM-M2RPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+33
Function Call: WRITE	Prompt: !?2,$J(+$G(^TMP($J,"ABM-M2RPT","CNT","VMBP")),7)_" Patients with VA Med B ( "_$J($FN((+$G(^TMP($J,"ABM-M2RPT","CNT","VMBP"))/(+$G(^TMP($J,"ABM-M2RPT","CNT","PTS")))*100),",",2),5)_"% )" Line Location: TOTALS+36
Function Call: WRITE	Prompt: !!,"(REPORT COMPLETE)" Line Location: TOTALS+38
Function Call: WRITE	Prompt: !!!,"PATIENTS PATIENTS PATIENTS PATIENTS PATIENTS" Line Location: WRTPTS+1
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME",?50,"HRN",?60,"DATE INACTIVE" Line Location: WRTPTS+2
Function Call: WRITE	Prompt: !!!,"UNIQUE PATIENTS UNIQUE PATIENTS UNIQUE PATIENTS UNIQUE PATIENTS UNIQUE PATIENTS" Line Location: WRTPTS+8
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME",?50,"HRN" Line Location: WRTPTS+9
Function Call: WRITE	Prompt: !!!,"MEDICAID MEDICAID MEDICAID MEDICAID MEDICAID MEDICAID MEDICAID " Line Location: WRTELIG+2
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME",?50,"MCD#",?62,"PLAN" Line Location: WRTELIG+3
Function Call: WRITE	Prompt: !!!,"MEDICARE MEDICARE MEDICARE MEDICARE MEDICARE MEDICARE MEDICARE MEDICARE " Line Location: WRTELIG+11
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME",?50,"MCR#" Line Location: WRTELIG+12
Function Call: WRITE	Prompt: !!!,"RAILROAD RAILROAD RAILROAD RAILROAD RAILROAD RAILROAD RAILROAD RAILROAD " Line Location: WRTELIG+20
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME",?50,"RR#" Line Location: WRTELIG+21
Function Call: WRITE	Prompt: !!!,"VMBP VMBP VMBP VMBP VMBP VMBP VMBP VMBP VMBP VMBP VMBP VMBP VMBP VMBP " Line Location: WRTELIG+30
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME",?50,"HRN" Line Location: WRTELIG+31
Function Call: WRITE	Prompt: !!!,"PRIVATE PRIVATE PRIVATE PRIVATE PRIVATE PRIVATE PRIVATE PRIVATE PRIVATE " Line Location: WRTELIG+35
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME",?50,"INS",?62,"MEM#" Line Location: WRTELIG+36
Function Call: WRITE	Prompt: !!!,"NOT INSURED NOT INSURED NOT INSURED NOT INSURED NOT INSURED NOT INSURED " Line Location: WRTELIG+44
Function Call: WRITE	Prompt: !?3,"PDFN",?15,"NAME" Line Location: WRTELIG+45
Function Call: WRITE	Prompt: !!!,"VISITS VISITS VISITS VISITS VISITS VISITS VISITS VISITS VISITS " Line Location: WRTVSTS+1
Function Call: WRITE	Prompt: !?3,"VDFN",?13,"VISIT",?30,"PDFN",?40,"PATIENT" Line Location: WRTVSTS+2
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+11 SEL+14
Routine Call	DIR Line Location: DT+5 DT+10 RTYPE+6 SEL+10 SEL+11 SEL+22 SEL+26
Routine Call	%ZIS Line Location: SEL+8 SEL+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDPARM(	SEL+21
^AUPNMCD - [#9000004]	GETELIG+8, GETELIG+9, WRTELIG+8
^AUPNMCD("B"	GETELIG+4, GETELIG+6
^AUPNMCR - [#9000003]	GETELIG+20, GETELIG+22, GETELIG+23, GETELIG+24, WRTELIG+17
^AUPNPAT - [#9000001]	GETPTS+2, GETPTS+3, GETPTS+4, WRTPTS+5, WRTPTS+12
^AUPNPRVT - [#9000006]	GETELIG+50, GETELIG+52, GETELIG+53, GETELIG+54, WRTELIG+41
^AUPNRRE - [#9000005]	GETELIG+35, GETELIG+37, GETELIG+38, GETELIG+39, WRTELIG+26
^AUPNVSIT - [#9000010]	GETVSTS+6, WRTVSTS+5
^AUPNVSIT("B"	GETVSTS+3, GETVSTS+5
^AUTTLOC - [#9999999.06]	WHD+8
^DD("DD"	WHD+4
^DPT - [#2]	WRTPTS+5, WRTPTS+12, WRTELIG+8, WRTELIG+17, WRTELIG+26, WRTELIG+41, WRTELIG+48, WRTVSTS+5
^TMP($J	ABMM2ELG+11!, 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+64, GETELIG+65, GETELIG+66, GETELIG+67 , GETVSTS+8, GETVSTS+9, GETVSTS+10, GETVSTS+11, GETVSTS+12, GETVSTS+13, TOTALS+12, TOTALS+13, TOTALS+14, TOTALS+22 , TOTALS+25, TOTALS+27, TOTALS+29, TOTALS+31, TOTALS+33, TOTALS+36, WRTPTS+4, WRTPTS+11, WRTELIG+5, WRTELIG+7 , WRTELIG+14, WRTELIG+16, WRTELIG+23, WRTELIG+25, WRTELIG+38, WRTELIG+40, WRTELIG+47, WRTVSTS+4

Label References

Name	Line Occurrences
DT	DT+12, DT+14
GETELIG	TOTALS+8
GETPTS	TOTALS+7
GETVSTS	TOTALS+9
TOTALS	SEL+10
WHD	TOTALS+10
WRTELIG	SEL+34
WRTPTS	SEL+33
WRTVSTS	SEL+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WHD+4
>> %ZIS	SEL+6*
>> %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+28*, SEL+30
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
ABMP	ABMM2ELG+10!, 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
ABMP("ENDDT"	GETELIG+9, GETELIG+11, GETELIG+24, GETELIG+26, GETELIG+39, GETELIG+41, GETELIG+54, GETELIG+56
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 , WRTELIG+6, WRTELIG+7, WRTELIG+8, WRTELIG+15, WRTELIG+16, WRTELIG+24, WRTELIG+25, WRTELIG+39, WRTELIG+40, WRTELIG+41
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+63, GETELIG+64, GETELIG+65, GETELIG+67, WRTPTS+3, WRTPTS+4, WRTPTS+5, WRTPTS+10, WRTPTS+11 , WRTPTS+12, WRTELIG+4, WRTELIG+5, WRTELIG+7, WRTELIG+8, WRTELIG+13, WRTELIG+14, WRTELIG+16, WRTELIG+17, WRTELIG+22* , WRTELIG+23, WRTELIG+25, WRTELIG+26, WRTELIG+37, WRTELIG+38, WRTELIG+40, WRTELIG+41, WRTELIG+46, WRTELIG+47*, WRTELIG+48
ABMP("SDT"	GETVSTS+1, GETVSTS+3, GETVSTS+5
ABMP("VDFN"	GETVSTS+4, GETVSTS+5, GETVSTS+6, GETVSTS+9, WRTVSTS+3, WRTVSTS+4, WRTVSTS+5
>> ABMPATH	SEL+24*, SEL+30
ABMPT	XIT+2!, GETVSTS+6*, GETVSTS+7, GETVSTS+8, GETVSTS+11, GETVSTS+12
ABMPTINA	XIT+2!, GETPTS+4*, GETPTS+5
>> ABMSUMDT	RTYPE+7*, SEL+2, SEL+16
ABMY	ABMM2ELG+10!, XIT+2!
ABMY("DT"	DT+7, DT+13, DT+14, GETPTS+5, GETELIG+11, GETELIG+26, GETELIG+41, GETELIG+56, GETVSTS+1, GETVSTS+2 , WHD+5
DA	RTYPE+2!
DIC	RTYPE+2!
DIE	RTYPE+2!
DIR	DT+11!, RTYPE+2!, RTYPE+6!, SEL+10!, SEL+11!, SEL+22!, SEL+26!
DIR("A"	DT+3, DT+9, RTYPE+4, SEL+20, SEL+25*
DIR("B"	RTYPE+5, SEL+21
DIR(0	DT+4, RTYPE+3, SEL+10, SEL+11, SEL+19, SEL+25
>> DIROUT	DT+6, SEL+23, SEL+27
>> DIRUT	DT+6, DT+12, SEL+23, SEL+27
>> DTOUT	DT+6, SEL+23, SEL+27
>> DUOUT	DT+6, SEL+23, SEL+27
DUZ(2	SEL+21, GETPTS+3, GETPTS+4, WRTPTS+5, WRTPTS+12, WHD+8
IO	SEL+10, SEL+11, SEL+32
IO("S"	SEL+12
IO(0	SEL+9, SEL+10, SEL+11
ION	SEL+12
>> IOP	SEL+12*
>> POP	SEL+8, SEL+31
U	GETPTS+4, GETELIG+9, GETELIG+23, GETELIG+24, GETELIG+38, GETELIG+39, GETELIG+53, GETELIG+54, GETVSTS+6, WRTPTS+5 , WRTPTS+12, WRTELIG+8, WRTELIG+17, WRTELIG+26, WRTELIG+41, WRTELIG+48, WRTVSTS+5, WHD+8
X	RTYPE+2!
Y	DT+7, DT+13, RTYPE+2!, RTYPE+7, SEL+24, SEL+28, 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: ABMM2ELG

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: