Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IVMRMCR1

Package: Income Verification Match

Routine: IVMRMCR1


Information

IVMRMCR1 ;ALB/ESD/CKN - Means Test Comparison Report ; 3 May 93 ; 07/22/02 9:40am

Source Information

Source file <IVMRMCR1.m>

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.

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
Info |  Source |  Entry Points |  Interaction Calls