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: DGMTR

Package: Registration

Routine: DGMTR


Information

DGMTR ;ALB/RMO,CAW,SCG,AEG,SCG,AEG,LBD,BDB,HM,DSB - Check Means Test Requirements;7/8/05 2:30pm ; 18 Jan 2020 12:52 PM

Source Information

Source file <DGMTR.m>

Entry Points

Name Comments DBIA/ICR reference
EN
  • ICR #4688
    • Status: Active
    • Usage: Controlled Subscription
    DOM
  • ICR #5383
    • Status: Retired
    • Usage: Controlled Subscription
    DOM1
    SC(DFN) ;Check if patient is SC 0% non-compensable
    ; Input -- DFN Patient IEN
    ; Output -- 1=Yes and 0=No
    ; No if:
    ; No total annual VA check amount
    ; POW STATUS INDICATOR is yes
    ; Secondary Eligibility is one of the following:
    ; A&A, NSC, VA PENSION
    ; HOUSEBOUND, MEXICAN BORDER WAR, WWI, POW
  • ICR #3481
    • Status: Active
    • Usage: Controlled Subscription
    SCQ
    ADD ;Add a required means test
    REQ ;Update means test status to REQUIRED
    AUTOCOMP(DGMTI) ;
    NOL ;Update means test status to NO LONGER REQUIRED
    NOLQ
    SET ;Set Cross-reference
    KILL ;Kill Cross-reference
    QUE ;Queue means test event driver
    SELIG ;Check if secondary eligibility code missing from ELIGIBILITY CODE

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Financial query queued to be sent to HEC..."
    • Line Location: ADD+9
    Function Call: WRITE
    • Prompt: !!,"Financial query queued to be sent to HEC..."
    • Line Location: REQ+8
    Function Call: WRITE
    • Prompt: !,"MEANS TEST REQUIRED"
    • Line Location: REQ+9
    Function Call: WRITE
    • Prompt: !,"CURRENT MEANS TEST STATUS IS ",$$GETNAME^DGMTH(DGCS)
    • Line Location: REQ+10
    Function Call: WRITE
    • Prompt: !,"IVM MEANS TEST EXISTS, BUT VISTA CALCULATES 'NO LONGER REQUIRED'",!,"CONTACT IVM TO CLEAR UP THE DISCREPANCY - YOU CANNOT UPDATE AN IVM TEST"
    • Line Location: NOL+3
    Info |  Source |  Entry Points |  Interaction Calls