Routine: ABMRMCRD

Package	Total	Call Graph
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Kernel	2	^%ZIS ^%ZISC
Third Party Billing	1	$$SDT^ABMDUTL

Name	Comments	DBIA/ICR reference
DISP	;display list of insurers
GETMORE	;do they want more PI insurers?
RAILROAD	;
HDR	;
ELIGDT	;get list for what date-default to today
SUHDR
DETAIL	;
PRIVATE	;
CENTER(X)	;EP -
MEDICARE	;
GETINS	;loop thru insurers and get ones with MD
DETAILQ	;
COUNTIT	;do counts for selected insurers
OUTPUT	;
MESSAGE	;
INACT	;include inactive/deceased pts?

Name	Field # of Occurrence
^%ZIS	ABMRMCRD+28
^%ZISC	ABMRMCRD+32
$$SDT^ABMDUTL	DETAIL+5, DETAIL+6
^DIC	GETMORE+16
$$GET1^DIQ	GETINS+9, GETINS+12, GETINS+14, GETMORE+20
^DIR	GETMORE+4, ELIGDT+6, INACT+6, DETAILQ+6, OUTPUT+31, DETAIL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,"This option will print a list of Patients who are registered at the" Line Location: MESSAGE+1
Function Call: WRITE	Prompt: !?2,"facility you select who are currently enrolled in a Medicare Part D" Line Location: MESSAGE+2
Function Call: WRITE	Prompt: !?2,"plan." Line Location: MESSAGE+3
Function Call: WRITE	Prompt: !!?2,"You will be asked to enter an ""As of"" date to be used in determining" Line Location: MESSAGE+4
Function Call: WRITE	Prompt: !?2,"those patients who are ""actively"" enrolled in a plan." Line Location: MESSAGE+5
Function Call: WRITE	Prompt: !!?2,"The report will be sorted alphabetically by Plan Name." Line Location: MESSAGE+6
Function Call: WRITE	Prompt: !!?2 Line Location: DISP+2
Function Call: WRITE	Prompt: !! Line Location: DISP+7
Function Call: WRITE	Prompt: ! Line Location: ELIGDT+1
Function Call: WRITE	Prompt: " ("_Y(0)_")" Line Location: ELIGDT+10
Function Call: WRITE	Prompt: ! Line Location: INACT+1
Function Call: WRITE	Prompt: ! Line Location: DETAILQ+1
Function Call: WRITE	Prompt: !!,?2,"TOTAL NUMBER OF ACTIVE MEDICARE PART D ENROLLEES: " Line Location: OUTPUT+28
Function Call: WRITE	Prompt: ?63,+$G(ABMITOT("TOTAL")),! Line Location: OUTPUT+29
Function Call: WRITE	Prompt: !,"(REPORT COMPLETE)",! Line Location: OUTPUT+30
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,Y,?68,"Page ",ABMPG Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: !!?2,"Service Unit: ",ABMSU," "_$G(ABMISU(ABMSU)),! Line Location: SUHDR+0
Function Call: WRITE	Prompt: !?2,"PLAN NAME",?40,"INS TYPE",?60,"COUNT" Line Location: SUHDR+1
Function Call: WRITE	Prompt: !,ABMLINE,! Line Location: SUHDR+4
Function Call: WRITE	Prompt: ?CENTER-($L(X)/2),X Line Location: CENTER+2
Routine Call	DIC Line Location: GETMORE+16
Routine Call	DIR Line Location: GETMORE+4 ELIGDT+6 INACT+6 DETAILQ+6 OUTPUT+31 DETAIL+8
Routine Call	%ZIS Line Location: ABMRMCRD+28

FileNo	Call Tags
^AUTNINS - [#9999999.18]	Classic Fileman Calls, GET1^DIQ
^AUTTINTY - [#9999999.181]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	PRIVATE+18
^AUPNMCR - [#9000003]	MEDICARE+2, MEDICARE+4, MEDICARE+5, MEDICARE+6, MEDICARE+11, MEDICARE+12, MEDICARE+24
^AUPNPAT - [#9000001]	RAILROAD+15, RAILROAD+16, RAILROAD+23, MEDICARE+15, MEDICARE+16, MEDICARE+25, PRIVATE+11, PRIVATE+12, PRIVATE+19
^AUPNPRVT - [#9000006]	PRIVATE+2, PRIVATE+4, PRIVATE+5, PRIVATE+7, PRIVATE+8, PRIVATE+18
^AUPNRRE - [#9000005]	RAILROAD+2, RAILROAD+4, RAILROAD+5, RAILROAD+6, RAILROAD+11, RAILROAD+12, RAILROAD+22
^AUTNINS - [#9999999.18]	GETINS+6, GETINS+7, GETINS+10, GETINS+15, RAILROAD+20, MEDICARE+22, PRIVATE+16
^AUTTLOC - [#9999999.06]	RAILROAD+18, RAILROAD+19, MEDICARE+18, MEDICARE+19, MEDICARE+20, PRIVATE+14, PRIVATE+15
^AUTTSU - [#9999999.22]	RAILROAD+18, MEDICARE+18, PRIVATE+14
^DD("DD"	HDR+3, HDR+8
^DIC(5 - [#5]	RAILROAD+19, MEDICARE+21, PRIVATE+15
^DPT - [#2]	RAILROAD+9, MEDICARE+9, DETAIL+4
^TMP($J	GETINS+3!, GETINS+4!, RAILROAD+21, RAILROAD+24, RAILROAD+29, RAILROAD+31, RAILROAD+32, RAILROAD+33, MEDICARE+23, MEDICARE+26 , MEDICARE+30, MEDICARE+32, MEDICARE+33, MEDICARE+34, PRIVATE+17, PRIVATE+20*, PRIVATE+24, OUTPUT+4, OUTPUT+26, OUTPUT+37! , OUTPUT+38!, DETAIL+2, DETAIL+3, DETAIL+5, DETAIL+6, DETAIL+7

Name	Line Occurrences
CENTER	HDR+6, HDR+9
COUNTIT	ABMRMCRD+30
DETAIL	OUTPUT+24
DETAILQ	ABMRMCRD+26
DISP	ABMRMCRD+18, ABMRMCRD+21
ELIGDT	ABMRMCRD+22
GETINS	ABMRMCRD+17
GETMORE	ABMRMCRD+19
HDR	OUTPUT+13, OUTPUT+19, DETAIL+8
INACT	ABMRMCRD+24
MEDICARE	COUNTIT+2
MESSAGE	ABMRMCRD+16
OUTPUT	ABMRMCRD+31
PRIVATE	COUNTIT+3
RAILROAD	COUNTIT+1
SUHDR	OUTPUT+19, DETAIL+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABMALL	INACT+9, INACT+10, RAILROAD+9, RAILROAD+17, MEDICARE+9, MEDICARE+17, PRIVATE+13
>> ABMBTHCT(	RAILROAD+28*
>> ABMCOV	RAILROAD+5, RAILROAD+6, RAILROAD+7, RAILROAD+8, RAILROAD+20, RAILROAD+21, RAILROAD+29, RAILROAD+30, MEDICARE+5, MEDICARE+6 , MEDICARE+7, MEDICARE+8, MEDICARE+22, MEDICARE+23, MEDICARE+30, MEDICARE+31
ABMDFLG	ABMRMCRD+21, GETINS+3!, DISP+3, DISP+6, GETMORE+8*
>> ABMDTAIL	DETAILQ+9, DETAILQ+10, OUTPUT+24, SUHDR+2
ABMEDT	RAILROAD+10!, RAILROAD+12, RAILROAD+13, RAILROAD+24, MEDICARE+10!, MEDICARE+12, MEDICARE+13, MEDICARE+26, PRIVATE+8*, PRIVATE+9 , PRIVATE+20
ABMEIEN	RAILROAD+3, RAILROAD+4, RAILROAD+5, RAILROAD+6, RAILROAD+11, RAILROAD+12, RAILROAD+22, MEDICARE+3, MEDICARE+4, MEDICARE+5 , MEDICARE+6, MEDICARE+11, MEDICARE+12, MEDICARE+24, OUTPUT+34!
>> ABMHRN	RAILROAD+14, RAILROAD+15, RAILROAD+16, RAILROAD+17, RAILROAD+18, RAILROAD+19, RAILROAD+23, MEDICARE+14, MEDICARE+15, MEDICARE+16 , MEDICARE+17, MEDICARE+18, MEDICARE+19, MEDICARE+20, MEDICARE+25, PRIVATE+10, PRIVATE+11, PRIVATE+12, PRIVATE+14, PRIVATE+15 , PRIVATE+19
>> ABMHRNN	RAILROAD+23, RAILROAD+24, MEDICARE+25, MEDICARE+26, PRIVATE+19*, PRIVATE+20
>> ABMHRNS	RAILROAD+16, MEDICARE+16, PRIVATE+12*, PRIVATE+13
ABMICNT	OUTPUT+33!
ABMICNT(	RAILROAD+25, MEDICARE+27, PRIVATE+21, OUTPUT+8, OUTPUT+14, OUTPUT+16, OUTPUT+18, OUTPUT+23
ABMIDUP	GETINS+3!, RAILROAD+29, MEDICARE+30, PRIVATE+24*, OUTPUT+35!
ABMIEN	RAILROAD+1, RAILROAD+2, RAILROAD+4, RAILROAD+5, RAILROAD+6, RAILROAD+9, RAILROAD+11, RAILROAD+12, RAILROAD+15, RAILROAD+16 , RAILROAD+21, RAILROAD+22, RAILROAD+23, RAILROAD+24, RAILROAD+29, RAILROAD+31, RAILROAD+32, MEDICARE+1, MEDICARE+2, MEDICARE+4 , MEDICARE+5, MEDICARE+6, MEDICARE+9, MEDICARE+11, MEDICARE+12, MEDICARE+15, MEDICARE+16, MEDICARE+23, MEDICARE+24, MEDICARE+25 , MEDICARE+26, MEDICARE+30, MEDICARE+32, MEDICARE+33, PRIVATE+3, PRIVATE+4, PRIVATE+5, PRIVATE+7, PRIVATE+8, PRIVATE+18 , OUTPUT+34!
ABMIFLG	DISP+1!, DISP+15*, DISP+16
ABMILIST	GETINS+3!, OUTPUT+33!
ABMILIST(	GETINS+9, GETINS+14, DISP+12, GETMORE+20*, RAILROAD+8, MEDICARE+8, PRIVATE+6, OUTPUT+21
ABMINAME	GETINS+3!, RAILROAD+20, RAILROAD+25, MEDICARE+22, MEDICARE+27, PRIVATE+16*, PRIVATE+21, OUTPUT+33!, OUTPUT+34!
ABMINAME(	GETINS+10, GETINS+15, DISP+9, DISP+11, GETMORE+21*, OUTPUT+6, OUTPUT+7
>> ABMINS	GETINS+5, GETINS+6, GETINS+7, GETINS+9, GETINS+10, GETINS+12, GETINS+14, GETINS+15, DISP+11, DISP+12 , PRIVATE+5, PRIVATE+6, PRIVATE+16, PRIVATE+17, PRIVATE+20, PRIVATE+21, PRIVATE+24, OUTPUT+7, OUTPUT+8, OUTPUT+17 , OUTPUT+18*, OUTPUT+21, OUTPUT+23, DETAIL+2, DETAIL+3, DETAIL+5, DETAIL+6, DETAIL+7
>> ABMISU(	RAILROAD+19, MEDICARE+21, PRIVATE+15*, SUHDR
ABMITOT	GETINS+3!, OUTPUT+36!
ABMITOT(	RAILROAD+26, MEDICARE+28, PRIVATE+22*, OUTPUT+25
ABMITOT("TOTAL"	RAILROAD+27, MEDICARE+29, PRIVATE+23*, OUTPUT+29
ABMLINE	ABMRMCRD+15*, OUTPUT+34!, SUHDR+4
ABMNAME	DISP+8, DISP+9, DISP+10, DISP+11, OUTPUT+5, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+15, OUTPUT+16 , OUTPUT+18, OUTPUT+20, OUTPUT+23, OUTPUT+34!
>> ABMODT	ELIGDT+9*, RAILROAD+13, MEDICARE+13, PRIVATE+9, HDR+8
>> ABMPG	OUTPUT+10, OUTPUT+19, HDR+2, HDR+4
ABMPIEN	RAILROAD+6, RAILROAD+7, RAILROAD+8, RAILROAD+20, RAILROAD+21, RAILROAD+24, RAILROAD+25, RAILROAD+29, MEDICARE+6, MEDICARE+7 , MEDICARE+8, MEDICARE+22, MEDICARE+23, MEDICARE+26, MEDICARE+27, MEDICARE+30, OUTPUT+34!
>> ABMPN	RAILROAD+22, RAILROAD+24, MEDICARE+24, MEDICARE+26, PRIVATE+18*, PRIVATE+20
>> ABMPT	DETAIL+1, DETAIL+2, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+7
>> ABMPTIEN	PRIVATE+1, PRIVATE+2, PRIVATE+4, PRIVATE+5, PRIVATE+7, PRIVATE+8, PRIVATE+11, PRIVATE+12, PRIVATE+17, PRIVATE+18 , PRIVATE+19, PRIVATE+20, PRIVATE+24
ABMSDT	RAILROAD+10!, RAILROAD+11, RAILROAD+13, RAILROAD+24, MEDICARE+10!, MEDICARE+11, MEDICARE+13, MEDICARE+26, PRIVATE+7*, PRIVATE+9 , PRIVATE+20
>> ABMSU	RAILROAD+18, RAILROAD+19, RAILROAD+21, RAILROAD+24, RAILROAD+25, RAILROAD+26, RAILROAD+28, RAILROAD+29, RAILROAD+31, RAILROAD+32 , RAILROAD+33, MEDICARE+18, MEDICARE+21, MEDICARE+23, MEDICARE+26, MEDICARE+27, MEDICARE+28, MEDICARE+30, MEDICARE+32, MEDICARE+33 , MEDICARE+34, PRIVATE+14, PRIVATE+15, PRIVATE+17, PRIVATE+20, PRIVATE+21, PRIVATE+22, PRIVATE+24, OUTPUT+3, OUTPUT+4* , OUTPUT+8, OUTPUT+11, OUTPUT+14, OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+23, OUTPUT+25, OUTPUT+26, SUHDR , DETAIL+2, DETAIL+3, DETAIL+5, DETAIL+6, DETAIL+7
>> ABMSUC	MEDICARE+19*, MEDICARE+21
>> ABMSUOLD	OUTPUT+12, OUTPUT+19
>> ABMSUS	MEDICARE+20*, MEDICARE+21
>> CENTER	CENTER+1*, CENTER+2
DIC	GETMORE+11!, GETMORE+12*, ELIGDT+2!, INACT+2!, DETAILQ+2!
DIC("S"	GETMORE+15*
DIC(0	GETMORE+13*
DIE	ELIGDT+2!, INACT+2!, DETAILQ+2!
DIR	GETMORE+5!, ELIGDT+2!, ELIGDT+7!, INACT+2!, INACT+7!, DETAILQ+2!, DETAILQ+7!, OUTPUT+31!, DETAIL+8!
DIR("A"	GETMORE+2, ELIGDT+4, INACT+4, DETAILQ+4
DIR("B"	GETMORE+3, ELIGDT+5, INACT+5, DETAILQ+5
DIR(0	GETMORE+1, ELIGDT+3, INACT+3, DETAILQ+3, OUTPUT+31, DETAIL+8
>> DIROUT	ABMRMCRD+20, ABMRMCRD+23, ABMRMCRD+25, ABMRMCRD+27, GETMORE+6, ELIGDT+8, INACT+8, DETAILQ+8
>> DIRUT	ABMRMCRD+20, ABMRMCRD+23, ABMRMCRD+25, ABMRMCRD+27, GETMORE+6, ELIGDT+8, INACT+8, DETAILQ+8
DR	GETMORE+11!, ELIGDT+2!, INACT+2!, DETAILQ+2!
DT	HDR+3
>> DTOUT	ABMRMCRD+20, ABMRMCRD+23, ABMRMCRD+25, ABMRMCRD+27, GETMORE+6, ELIGDT+8, INACT+8, DETAILQ+8
>> DUOUT	ABMRMCRD+20, ABMRMCRD+23, ABMRMCRD+25, ABMRMCRD+27, GETMORE+6, ELIGDT+8, INACT+8, DETAILQ+8
>> ESCAPE	OUTPUT+2, OUTPUT+31, DETAIL+8*
IO	ABMRMCRD+29
IO("S"	OUTPUT+31, DETAIL+8
IOF	HDR+1
IOM	CENTER+1
IOSL	DETAIL+8
IOST	OUTPUT+31, DETAIL+8
IT	DISP+12, DISP+13, OUTPUT+21, OUTPUT+22, OUTPUT+34!
>> POP	ABMRMCRD+28
U	GETINS+7, GETINS+10, GETINS+15, DISP+12, GETMORE+18, GETMORE+21, RAILROAD+5, RAILROAD+6, RAILROAD+9, RAILROAD+11 , RAILROAD+12, RAILROAD+16, RAILROAD+18, RAILROAD+19, RAILROAD+20, RAILROAD+22, RAILROAD+23, RAILROAD+24, MEDICARE+5, MEDICARE+6 , MEDICARE+9, MEDICARE+11, MEDICARE+12, MEDICARE+16, MEDICARE+18, MEDICARE+19, MEDICARE+20, MEDICARE+21, MEDICARE+22, MEDICARE+24 , MEDICARE+25, MEDICARE+26, PRIVATE+5, PRIVATE+7, PRIVATE+8, PRIVATE+12, PRIVATE+14, PRIVATE+15, PRIVATE+16, PRIVATE+18 , PRIVATE+19, PRIVATE+20, OUTPUT+31, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+8
X	GETMORE+9, GETMORE+11!, ELIGDT+2!, INACT+2!, DETAILQ+2!, OUTPUT+31, CENTER~, CENTER+2, DETAIL+8
Y	GETMORE+7, GETMORE+9, GETMORE+11!, GETMORE+17, GETMORE+18, GETMORE+20, GETMORE+21, ELIGDT+2!, ELIGDT+9, INACT+2! , INACT+9, DETAILQ+2!, DETAILQ+9, HDR+3, HDR+4, HDR+8, HDR+9
Y(0	ELIGDT+10

Customize PDF page

Package: Third Party Billing

Routine: ABMRMCRD

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: