Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGMTR

Package: Registration

Routine: DGMTR


Information

DGMTR ;ALB/RMO,CAW,SCG,AEG,SCG,AEG,LBD,BDB - Check Means Test Requirements;7/8/05 2:30pm

Source Information

Source file <DGMTR.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 10 $$UPD^DGENDBS  ADD^DGMTA  ($$IVMCVT,EN)^DGMTCOR  (AFTER,PRIOR)^DGMTEVT  ($$GETCODE,$$GETNAME,$$GETSTAT)^DGMTH  (COPYRX,MAIL)^DGMTR1  $$LST^DGMTU  $$VRCHKUP^DGMTU2  
($$OLD,$$OLDMTPF,GETINCOM,SAVESTAT)^DGMTU4  ADM^VADPT2  
Income Verification Match 1 ($$OPEN,$$SENT,QRYQUE2)^IVMCQ2  
Kernel 1 ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 28

Package Total Caller Graph
Registration 22 DG10  DG5300PT  DG53130P  DG53285  DG53401P  DGDIS  DGEN  DGENELA4  
DGMTA  DGMTCOR  DGMTCOU1  DGMTDOM  DGMTR1  DGMTREQB  DGMTU  DGMTU4  
DGPMV1  DGPTFVC1  DGPTUTL  DGREG0  DGRPD  DGRPDB  
Income Verification Match 3 IVMCM6  IVMCMD1  IVMCQ  
Enrollment Application System 2 EASECMT  EASMTRP3  
Scheduling 1 SCDXUTL0  

Entry Points

Name Comments DBIA/ICR reference
EN
  • ICR #4688
    • Status: Active
    • Usage: Controlled Subscription
    DOM
  • ICR #5383
    • Status: Pending
    • 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

    External References

    Name Field # of Occurrence
    ^%ZTLOAD QUE+7
    $$UPD^DGENDBS ADD+6, AUTOCOMP+42, AUTOCOMP+50, NOL+10
    ADD^DGMTA ADD+4
    $$IVMCVT^DGMTCOR NOL+2
    EN^DGMTCOR EN+15, EN+39
    AFTER^DGMTEVT QUE+1
    PRIOR^DGMTEVT ADD+3, REQ+3, NOL+7
    $$GETCODE^DGMTH AUTOCOMP+18
    $$GETNAME^DGMTH REQ+10
    $$GETSTAT^DGMTH ADD+6, AUTOCOMP+21, AUTOCOMP+27, AUTOCOMP+34
    COPYRX^DGMTR1 NOL+13
    MAIL^DGMTR1 SELIG+7, SELIG+12
    $$LST^DGMTU EN+10
    $$VRCHKUP^DGMTU2 AUTOCOMP+30, AUTOCOMP+40
    $$OLD^DGMTU4 EN+31, EN+32
    $$OLDMTPF^DGMTU4 EN+22
    GETINCOM^DGMTU4 ADD+7, AUTOCOMP+51
    SAVESTAT^DGMTU4 NOL+9
    $$OPEN^IVMCQ2 ADD+9, REQ+8
    $$SENT^IVMCQ2 ADD+9, REQ+8
    QRYQUE2^IVMCQ2 ADD+9, REQ+8
    ADM^VADPT2 DOM1

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( SET+3, KILL+3
    ^DG(43 - [#43] DOM1+1
    ^DGMT(408.22 - [#408.22] AUTOCOMP+47
    ^DGMT(408.31 - [#408.31] EN+11, REQ+7, AUTOCOMP+11, AUTOCOMP+16
    ^DGPM - [#405] DOM1+1
    ^DIC(42 - [#42] DOM1+1
    ^DIC(8 - [#8] EN+7, SC+12, SELIG+4
    ^DIC(8.1 - [#8.1] SELIG+9
    ^DPT - [#2] EN+6, EN+14, EN+16, EN+24, EN+26, SC+12, SC+15, SC+17, SC+19, SC+21
    , SC+24

    Label References

    Name Line Occurrences
    $$AUTOCOMP REQ+4
    $$SC EN+7
    ADD EN+31, EN+36
    DOM EN+17
    NOL EN+37
    NOLQ NOL+2
    QUE ADD+8, REQ+12, NOL+11
    REQ EN+32
    SCQ SC+13, SC+15, SC+17, SC+19, SC+21
    SELIG SC+24

    Naked Globals

    Name Field # of Occurrence
    ^( EN+6, SC+12, SET+3, KILL+3
    ^(0 DOM1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AUTOCOMP REQ+1~, REQ+4*, REQ+6, REQ+7, REQ+8, REQ+9, REQ+10
    CODE AUTOCOMP+8~, AUTOCOMP+18*, AUTOCOMP+22, AUTOCOMP+27, AUTOCOMP+28, AUTOCOMP+35, AUTOCOMP+38
    >> CONVRT AUTOCOMP+30*, AUTOCOMP+40*
    D0 SET+1~, KILL+1~
    DA SET+1~, SET+2*, KILL+1~, KILL+2*
    DATA ADD+6~, AUTOCOMP+8~, AUTOCOMP+42, AUTOCOMP+48!, AUTOCOMP+50, NOL+1~, NOL+10
    DATA( ADD+6*, AUTOCOMP+21*, AUTOCOMP+24*, AUTOCOMP+27*, AUTOCOMP+31*, AUTOCOMP+34*, AUTOCOMP+37*, AUTOCOMP+41*, NOL+10*
    DATA(31 AUTOCOMP+49*
    DFN EN+6, EN+7, EN+10, EN+14, EN+16, EN+24, EN+26, SC~, SC+12, SC+15
    , SC+17, SC+19, SC+21, SC+24, ADD+7, ADD+9, REQ+8, AUTOCOMP+8~, AUTOCOMP+14*, AUTOCOMP+47
    , AUTOCOMP+51, NOL+13
    DG SC+9~, SC+23*, SC+24*, SELIG+4, SELIG+5, SELIG+10
    >> DGADDF EN+33, EN+35, EN+36, REQ+6*
    DGCS EN~, EN+18*, EN+22, EN+31, EN+32, EN+33, EN+35, EN+36, EN+37, REQ+7*
    , REQ+10
    DGDOM EN~, EN+17, EN+37, DOM1+1*
    >> DGDOM1 DOM1+1*
    DGE SC+9~
    DGE( SC+23*, SC+24
    >> DGENUPLD QUE+6
    DGF SC+9~, SC+24, SELIG+4*, SELIG+9*, SELIG+13*
    >> DGFL SET+3, KILL+3
    >> DGFLD SET+3, KILL+3
    >> DGIEN SET+2, KILL+2
    DGINI AUTOCOMP+8~, AUTOCOMP+47*, NOL+1~
    DGINR AUTOCOMP+8~, AUTOCOMP+47*, AUTOCOMP+50, NOL+1~
    DGIX SET+1~, SET+2*, SET+3*, KILL+1~, KILL+2*, KILL+3*
    DGMDOD EN~, EN+14*, EN+15, EN+20, EN+36, EN+37
    >> DGMSGF ADD+2, ADD+9, REQ+8, REQ+9, REQ+10, AUTOCOMP+42, NOL+5
    DGMT0 EN~, EN+10*, EN+11*, EN+13, EN+18, EN+19, EN+22, EN+31, EN+32, EN+33
    , EN+35
    DGMTA ADD+1~, REQ+1~, NOL+1~
    DGMTACT ADD+1~, ADD+3*, REQ+3~*, NOL+7~*
    DGMTCOR EN+4~
    DGMTDT EN~, EN+13*, ADD+1~, ADD+4*, NOL+1~
    DGMTE REQ+1~
    DGMTI EN~, EN+10*, EN+11, EN+13, EN+15, ADD+1~, ADD+5, ADD+6, REQ+4, REQ+7
    , AUTOCOMP~, AUTOCOMP+10, AUTOCOMP+11, AUTOCOMP+16, AUTOCOMP+42, AUTOCOMP+49, NOL+2, NOL+9, NOL+10, NOL+13
    DGMTLTD EN~, EN+19*, EN+33
    DGMTP ADD+1~, REQ+3~, NOL+7~
    DGMTYPT EN~, EN+5*, ADD+5*, REQ+11*
    >> DGNOCOPF EN+19*, EN+20*, EN+33*, EN+35*
    >> DGNOIVMUPD NOL+2, NOL+4*
    DGQSENT EN~, EN+5*, ADD+9*, REQ+8*
    >> DGREQF EN+5*, EN+7*, EN+8*, EN+9*, EN+15*, EN+16*, EN+17*, EN+24*, EN+26*, EN+31
    , EN+32, EN+33*, EN+35*, EN+36, EN+37
    DGRGAUTO EN~
    DGTXT SELIG+3~
    DGTXT(4 SELIG+5*, SELIG+10*
    DGTXT(5 SELIG+6*, SELIG+11*
    >> DGVAL SET+2, SET+3, KILL+2, KILL+3
    DIV SET+1~, KILL+1~
    DT ADD+4, ADD+7, NOL+10
    DUZ ADD+9, REQ+8
    ERROR ADD+1~, REQ+1~, AUTOCOMP+8~, AUTOCOMP+42
    >> I QUE+3*
    >> IVMZ10 ADD+9, REQ+8, QUE+5
    >> IVMZ10F EN+37
    LINKIEN AUTOCOMP+8~, AUTOCOMP+45*, AUTOCOMP+46, AUTOCOMP+47
    >> MTPRIME REQ+3, NOL+7
    NODE0 AUTOCOMP+8~, AUTOCOMP+11*, AUTOCOMP+12, AUTOCOMP+13, AUTOCOMP+14, AUTOCOMP+15, AUTOCOMP+26, AUTOCOMP+27
    NODE2 AUTOCOMP+8~, AUTOCOMP+16*, AUTOCOMP+18, AUTOCOMP+24, AUTOCOMP+37, AUTOCOMP+45
    OLD EN~, EN+5*, EN+22*, EN+36
    RET AUTOCOMP+8~, AUTOCOMP+9*, AUTOCOMP+10, AUTOCOMP+12, AUTOCOMP+23*, AUTOCOMP+36*, AUTOCOMP+52
    >> RXPRIME EN+4
    TDATE AUTOCOMP+8~, AUTOCOMP+15*, AUTOCOMP+30, AUTOCOMP+40, AUTOCOMP+51
    TYPE AUTOCOMP+8~, AUTOCOMP+13*, AUTOCOMP+20, AUTOCOMP+33
    U EN+13, EN+14, EN+24, EN+26, EN+33, EN+35, AUTOCOMP+27
    VADMVT DOM~, DOM1+1
    >> VAFCA08 EN+2
    VAINDT DOM~
    X EN+6*, EN+7, EN+8, EN+9, SET+1~, SET+2*, SET+3*, KILL+1~, KILL+2*, KILL+3*
    >> XQY ADD+9, REQ+8
    Y SC+9~, SC+10*, SC+12*, SC+13, SC+15*, SC+17*, SC+19*, SC+21*, SC+24*, SCQ
    ZTDESC QUE+2*, QUE+8!
    ZTDTH QUE+2*, QUE+8!
    ZTIO QUE+7*, QUE+8!
    >> ZTQUEUED ADD+9, REQ+8
    ZTRTN QUE+2*, QUE+8!
    ZTSAVE QUE+8!
    ZTSAVE( QUE+3*
    ZTSAVE("DGENUPLD" QUE+6*
    ZTSAVE("DGMTINF" QUE+4*
    ZTSAVE("IVMZ10" QUE+5*
    ZTSK QUE+8!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All