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 - Check Means Test Requirements;7/8/05 2:30pm

Source Information

Source file <DGMTR.m>

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,GETINCOM,SAVESTAT)^DGMTU4  ADM^VADPT2  
Income Verification Match 1 ($$OPEN,$$SENT,QRYQUE2)^IVMCQ2  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 26

Package Total Caller Graph
Registration 22 ^DPT  DG10  DG53285  DG53358A  DG53401P  DG53426E  DGDIS  DGEN  
DGENELA4  DGMTA  DGMTCOR  DGMTCOU1  DGMTDOM  DGMTR1  DGMTREQB  DGMTU  
DGMTU4  DGPTFVC1  DGPTUTL  DGREG0  DGRPD  DGRPDB  
Integrated Billing 2 DISPOSITION LOG-IN DATE/TIME  PATIENT ELIGIBILITIES  
IHS Electronic Health Record 1 BEHOPTC1  
Scheduling 1 SCDXUTL0  

Entry Points

Name Comments DBIA/ICR reference
NOL ;Update means test status to NO LONGER REQUIRED
AUTOCOMP(DGMTI) ;
EN
  • ICR #4688
    • Status: Active
    • Usage: Controlled Subscription
    DOM
  • ICR #5383
    • Status: Pending
    • Usage: Controlled Subscription
    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
    NOLQ
    REQ ;Update means test status to REQUIRED
    SELIG ;Check if secondary eligibility code missing from ELIGIBILITY CODE
    ADD ;Add a required means test
    SET ;Set Cross-reference
    KILL ;Kill Cross-reference
    DOM1
    QUE ;Queue means test event driver
    SCQ

    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+36
    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+21
    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+23, EN+25, EN+27, 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+33
    DOM EN+17
    NOL EN+34
    NOLQ NOL+2
    QUE ADD+8, REQ+12, NOL+11
    REQ EN+29
    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+23, EN+25, EN+27, 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+30, EN+32, EN+33, REQ+6*
    DGCS EN~, EN+18*, EN+21, EN+29, EN+30, EN+32, EN+33, EN+34, REQ+7*, REQ+10
    DGDOM EN~, EN+17, EN+34, 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+33, EN+34
    >> 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+21, EN+30, EN+32
    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+30
    DGMTP ADD+1~, REQ+3~, NOL+7~
    DGMTYPT EN~, EN+5*, ADD+5*, REQ+11*
    >> DGNOCOPF EN+19*, EN+20*, EN+30*, EN+32*
    >> 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+23*, EN+25*, EN+27*
    , EN+29, EN+30*, EN+32*, EN+33, EN+34
    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+34
    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+21*, EN+29, EN+33
    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+23, EN+25, EN+27, EN+30, EN+32, 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