Routine: IVMRMCR1

Package	Total	Call Graph
Income Verification Match	1	PAUSE^IVMRUTL
Registration	1	PID^VADPT6

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Create ^Tmp global containing SSN, MT Copay Exempt, MT Copay Required ; GMT Copay Required, and date of means tests for years 1 and 2.
ENQ1
ENQ	; Clean up and exit.
TOTY1	; Sum total MT COPAY EXTMPT's, MT COPAY REQUIRED's and GMT COPAY REQUIRED's for year 1.
TOTY2	; Sum total Cat A's and C's for year 2.
HDR	; Report heading.
HDRPAT	; Column headings for patient data.
DSP(X)	; Return the MT category corresponding to the internal number.

External References

Name	Field # of Occurrence
PAUSE^IVMRUTL	EN+22, EN+34, ENQ1
PID^VADPT6	EN+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"No MT Copay Exempt or MT Copay Required or GMT Copay Required patients exist for years selected." Line Location: EN+13
Function Call: WRITE	Prompt: !,"SUMMARY OF MEANS TESTS FOR YEAR "_(IVMBEGYR+1700),!,$TR($J(" ",36)," ","=") Line Location: EN+35
Function Call: WRITE	Prompt: !?11,"TOTAL MT COPAY EXEMPT :",$J(IVMAYR1,5),!?11,"TOTAL MT COPAY REQUIRED :",$J(IVMCYR1,5),!?11,"TOTAL GMT COPAY REQUIRED:",$J(IVMGYR1,5),!?5,"TOTAL MEANS TESTS:",$J(IVMAYR1+IVMCYR1+IVMGYR1,5) Line Location: EN+36
Function Call: WRITE	Prompt: !!,"SUMMARY OF MEANS TESTS FOR YEAR "_(IVMENDYR+1700),!,$TR($J(" ",36)," ","=") Line Location: EN+37
Function Call: WRITE	Prompt: !?11,"TOTAL MT COPAY EXEMPT :",$J(IVMAYR2,5),!?11,"TOTAL MT COPAY REQUIRED :",$J(IVMCYR2,5),!?11,"TOTAL GMT COPAY REQUIRED:",$J(IVMGYR2,5),!?5,"TOTAL MEANS TESTS:",$J(IVMAYR2+IVMCYR2+IVMGYR2,5),! Line Location: EN+38
Function Call: WRITE	Prompt: !!?9,"TOTAL NON-RETURNS FROM "_(IVMBEGYR+1700)_" TO "_(IVMENDYR+1700)_":",$J(IVMNONRT,5) Line Location: EN+39
Function Call: WRITE	Prompt: !?5,"TOTAL NEW MEANS TESTS FROM "_(IVMBEGYR+1700)_" TO "_(IVMENDYR+1700)_":",$J(IVMNEWMT,5) Line Location: EN+40
Function Call: WRITE	Prompt: !!?5,"TOTAL PATIENTS WHOSE CATEGORY CHANGED FROM:",! Line Location: EN+41
Function Call: WRITE	Prompt: !?5,"MT COPAY EXEMPT",?27,"TO",?32,"MT COPAY REQUIRED",?52,":",?55,$J(IVMACTOT,5),!?5,"MT COPAY REQUIRED",?27,"TO",?32,"MT COPAY EXEMPT",?52,":",?55,$J(IVMCATOT,5) Line Location: EN+42
Function Call: WRITE	Prompt: !?5,"MT COPAY EXEMPT",?27,"TO",?32,"GMT COPAY REQUIRED",?52,":",?55,$J(IVMAGTOT,5),!?5,"MT COPAY REQUIRED",?27,"TO",?32,"GMT COPAY REQUIRED",?52,":",?55,$J(IVMCGTOT,5) Line Location: EN+43
Function Call: WRITE	Prompt: !?5,"GMT COPAY REQUIRED",?27,"TO",?32,"MT COPAY REQUIRED",?52,":",?55,$J(IVMGCTOT,5),!?5,"GMT COPAY REQUIRED",?27,"TO",?32,"MT COPAY EXEMPT",?52,":",?55,$J(IVMGATOT,5) Line Location: EN+44
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !?3,Y,?66,"PAGE: ",IVMPAG Line Location: HDR+3
Function Call: WRITE	Prompt: !?14,"M E A N S T E S T C O M P A R I S O N R E P O R T" Line Location: HDR+4
Function Call: WRITE	Prompt: !?28,"FOR YEARS: "_(IVMBEGYR+1700)_" AND "_(IVMENDYR+1700),!,$TR($J(" ",79)," ","="),!! Line Location: HDR+5
Function Call: WRITE	Prompt: !?5,"PATIENT",?30,"SSN",?42,"MEANS TEST",?64,"MEANS TEST",!?43,"CATEGORY",?65,"CATEGORY",!?45,(IVMBEGYR+1700),?67,(IVMENDYR+1700),!! Line Location: HDRPAT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^DGMT(408.31 - [#408.31]	EN+3, EN+5
^DPT - [#2]	EN+6
^TMP("IVMMT"	EN+2!, EN+8, EN+9*, EN+13, EN+17, ENQ+1!

Label References

Name	Line Occurrences
$$DSP	EN+23, EN+25
ENQ	EN+17, EN+34
ENQ1	EN+13
HDR	EN+12, EN+22, EN+34
HDRPAT	EN+12, EN+22
TOTY1	EN+18
TOTY2	EN+19

Naked Globals

Name	Field # of Occurrence
^(	EN+5, EN+8*, EN+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN+5*, EN+6, ENQ+4!
IOF	HDR+1
IOSL	EN+22, EN+34
IOST	HDR+1
IVMABDT	EN+4*, EN+8, EN+9, EN+20, ENQ+3!
IVMACTOT	EN+16, EN+26, EN+42, ENQ+3!
IVMAGTOT	EN+16, EN+28, EN+43, ENQ+5!
IVMAYR1	EN+16, EN+36, ENQ+3!, ENQ+4!, TOTY1+2
IVMAYR2	EN+16, EN+38, ENQ+3!, TOTY1+5, TOTY2+2*
>> IVMBEGYR	EN+3, EN+8, EN+35, EN+39, EN+40, TOTY1+2, TOTY1+3, TOTY1+4, HDR+5, HDRPAT+1
IVMCAT	EN+3*, EN+5, EN+8, EN+9, ENQ+3!
IVMCATOT	EN+16, EN+27, EN+42, ENQ+3!
IVMCATY1	ENQ+4!, TOTY1+1*, TOTY1+2, TOTY1+3, TOTY1+4, TOTY1+5, TOTY1+6, TOTY1+7
IVMCATY2	ENQ+4!, TOTY2+1*, TOTY2+2, TOTY2+3, TOTY2+4
IVMCGTOT	EN+16, EN+29, EN+43, ENQ+5!
>> IVMCURDT	EN+20, HDR+2
IVMCYR1	EN+16, EN+36, ENQ+3!, TOTY1+3
IVMCYR2	EN+16, EN+38, ENQ+3!, TOTY1+6, TOTY2+3*
IVMDA	EN+5*, ENQ+3!
IVMDT	EN+2, EN+3, EN+4, EN+5, ENQ+3!
IVMDTYR	EN+4*, EN+8, EN+9, ENQ+3!, ENQ+4!
>> IVMENDYR	EN+3, EN+9, EN+37, EN+39, EN+40, TOTY1+5, TOTY1+6, TOTY1+7, TOTY2+2, TOTY2+3 , TOTY2+4, HDR+5, HDRPAT+1
IVMGATOT	EN+16, EN+31, EN+44, ENQ+5!
IVMGCTOT	EN+16, EN+30, EN+44, ENQ+5!
IVMGYR1	EN+16, EN+36, ENQ+5!, TOTY1+4
IVMGYR2	EN+16, EN+38, ENQ+5!, TOTY1+7, TOTY2+4*
IVMI	ENQ+3!
IVMNEWMT	EN+16, EN+21, EN+40, ENQ+4!
IVMNM	EN+6*, EN+8, EN+9, ENQ+4!
IVMNONRT	EN+16, EN+20, EN+39, ENQ+4!
IVMPAG	EN+12, ENQ+4!, HDR+1, HDR+2, HDR+3
IVMPDAT	EN+17*, EN+23, ENQ+3!
>> IVMPFLAG	EN+12, EN+22, EN+23, EN+25, EN+34
IVMQUIT	EN+12*, EN+17, EN+22, EN+34, ENQ+4!
IVMS	EN+8*, ENQ+3!
IVMSCR	EN+17*, EN+18, EN+19, EN+20, EN+21, EN+23, EN+24, EN+25, EN+26, EN+27 , EN+28, EN+29, EN+30, EN+31, ENQ+3!, TOTY1+1, TOTY2+1
IVMY1	EN+18*, ENQ+4!, TOTY1+2, TOTY1+3, TOTY1+4, TOTY1+5, TOTY1+6, TOTY1+7
IVMY2	EN+19*, ENQ+4!, TOTY2+2, TOTY2+3, TOTY2+4
U	EN+2*, EN+6, EN+8, EN+9, EN+18, EN+19, EN+20, EN+21, EN+23, EN+24 , EN+25, EN+26, EN+27, EN+28, EN+29, EN+30, EN+31, TOTY1+1, TOTY2+1
>> VA("BID"	ENQ+4!
>> VA("PID"	EN+8, EN+9, ENQ+4!
X	ENQ+4!, DSP~, DSP+1
Y	ENQ+4!, HDR+2*, HDR+3
>> ZTQUEUED	ENQ+2
>> ZTREQ	ENQ+2*

Customize PDF page

Package: Income Verification Match

Routine: IVMRMCR1

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: