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

Package: Registration

Routine: DGMTU


Information

DGMTU ;ALB/RMO,LBD,BRM,EG,BDB - Means Test Utilities ; 02/08/2005 07:10 AM

Source Information

Source file <DGMTU.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 7 $$GETNAME^DGMTH  DOM^DGMTR  EN^DGMTSC  ($$LST,$$MTS)^DGMTU  ($$OLDMTPF,CHKPT)^DGMTU4  ($$LOCK,$$PA,UNLOCK)^DGMTUTL  $$SITE^VASITE  
Income Verification Match 1 ($$OPEN,$$SENT,QRYQUE2)^IVMCQ2  
VA FileMan 1 ^DIR  

Caller Graph

Caller Graph Total: 140

Package Total Caller Graph
Registration 58 DG10  DG53141P  DG53285  DG53289  DG53358  DG53358D  DG53401P  DG53426  
DG53602S  DG53S451  DGA4004  DGDIS  DGEN  DGENEGT1  DGENELA  DGENELA4  
DGMTA  DGMTCOR  DGMTCOST  DGMTCOU  DGMTCOU1  DGMTDEL  DGMTDEL1  DGMTDELS  
DGMTDOM  DGMTE  DGMTEO  DGMTH  DGMTOFA  DGMTP  DGMTP4  DGMTR  
DGMTR1  DGMTREM  DGMTREQB  DGMTSCC  DGMTU  DGMTU2  DGMTU21  DGMTU3  
DGMTU4  DGMTUB  DGMTV  DGOINPT1  DGPMV1  DGPTFVC1  DGPTOM2  DGPTUTL  
DGREG0  DGRP9  DGRPC2  DGRPD  DGRPDB  DGRPEIS2  DGRRLU1A  DPTLK5  
DPTLK6  VAFHLZMT  
Income Verification Match 22 IVM2071A  IVM2B102  IVMCM  IVMCM1  IVMCM6  IVMCMD  IVMCMFB  IVMCZMT  
IVMPINS  IVMPREC7  IVMPTRN  IVMPTRN5  IVMPTRN7  IVMPTRN8  IVMPTRN9  IVMRNQ  
IVMUFNC  IVMUFNC1  IVMUFNC4  IVMUM1  IVMUM6  IVMZ07C  
Enrollment Application System 21 EAS122PT  EASAILK  EASCM  EASECMT  EASEZF2  EASEZPVU  EASMTCHK  EASMTL2  
EASMTL6  EASMTRP1  EASMTRP3  EASMTUTL  EASPREC6  EASPREC7  EASPTRN1  EASPTRN5  
EASUER  EASUFNC3  EASUM1  EASUM6  EASXDRPT  
Integrated Billing 18 IB20P202  IB20PT86  IB20PT87  IBAMTBU2  IBAMTED  IBAMTV3  IBARXEPS  IBARXEPV  
IBATOP  IBCB  IBCNBLL  IBCOMC1  IBCOPV2  IBJDF41  IBJTEA  IBJTLA1  
IBOBCR6  IBOSTUS1  
Scheduling 15 SCDXUTL0  SCMCMHP2  SCRPEC  SCRPO2  SCRPW25  SCRPW81  SCUTBK10  SDAL0  
SDAMEP2  SDCLAS  SDPPAT1  SDPPMT1  SDPPRT  SDUTL2  SDWLTR  
Accounts Receivable 2 RCDPEAA2  RCDPEWL1  
Beneficiary Travel 2 DGBTEF  DGBTUTL  
Automated Information Collection System 1 IBDFN2  
Patient Data Exchange 1 VAQDBIM  

Entry Points

Name Comments DBIA/ICR reference
DISQ
MTS(DFN,DGMTS) ;MT status -- default current
; Input -- DFN Patient IEN
; DGMTS Means Test Status IEN (Optional)
; Output -- Status Name^Status Code
  • ICR #642
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #974
    • Status: Active
    • Usage: Private
    DIS(DFN) ;Display patients current MT status,
    ; eligibility for care, deductible information,
    ; date of test and date of completion
    ; Input -- DFN Patient IEN
    ; Output -- None
  • ICR #420
    • Status: Active
    • Usage: Private
  • ICR #3789
    • Status: Active
    • Usage: Controlled Subscription
    MFLG(DGMTDATA) ;Set up appropriate informational message flag for user's
    EDT(DFN,DGDT) ;Display patients current MT information and provide
    ; the user with the option of proceeding with a required
    ; MT or editing an existing means test
    ; Input -- DFN Patient IEN
    ; DGDT Date/Time
    ; Output -- None
    EDTQ
    MSG2 ;Informational message 2
    CMTS(DFN) ;Get Current MT Status - query HEC if necessary
    QFLG(DGMTDATA) ;
    FUT(DFN,DGDT,DGMTYPT) ; Future MT for a patient
  • ICR #3523
    • Status: Active
    • Usage: Supported
    LST(DFN,DGDT,DGMTYPT) ;Last MT for a patient
    ; Input -- DFN Patient IEN
    ; DGDT Date/Time (Optional- default today@2359)
    ; DGMTYPT Type of Test (Optional - if not defined
    ; Means Test will be assumed)
    ; Output -- Annual Means Test IEN^Date of Test
    ; ^Status Name^Status Code^Source of Test
  • ICR #642
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #701
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #761
    • Status: Active
    • Usage: Private
  • ICR #3326
    • Status: Active
    • Usage: Private
    MSG1 ;Informational message 1
    LVMT(DFN,DGDT) ;Last valid MT (status other than required)
    ; Input -- DFN Patient IEN
    ; DGDT Date (Optional - default today)
    ; Output -- Annual Means Test IEN^Date of Test^Status Name
    ; ^Status Code
    NVMT(DFN,DGDT) ;Next valid MT (status other than required)
    ; Input -- DFN Patient IEN
    ; DGDT Date (Required)
    ; Output -- Annual Means Test IEN^Date of Test^Status Name
    ; ^Status Code

    External References

    Name Field # of Occurrence
    $$GETNAME^DGMTH DIS+13
    DOM^DGMTR MFLG+22, QFLG+19
    EN^DGMTSC EDT+20
    $$LST^DGMTU LVMT+6, LVMT+7, DIS+7, EDT+14
    $$MTS^DGMTU NVMT+8, FUT+22, FUT+23
    $$OLDMTPF^DGMTU4 MFLG+19, QFLG+11
    CHKPT^DGMTU4 CMTS+7
    $$LOCK^DGMTUTL EDT+10, CMTS+16
    $$PA^DGMTUTL DIS+11
    UNLOCK^DGMTUTL EDTQ+3, CMTS+19
    ^DIR EDT+19
    $$OPEN^IVMCQ2 CMTS+15
    $$SENT^IVMCQ2 CMTS+15
    QRYQUE2^IVMCQ2 CMTS+17
    $$SITE^VASITE EDT+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Means Test Signed?: ",$S(MTSIG=1:"YES",MTSIG=0:"NO",MTSIG=9:"DELETED",1:"")
    • Line Location: DIS+9
    Function Call: WRITE
    • Prompt: !!,"Patient Requires a Means Test"
    • Line Location: DIS+10
    Function Call: WRITE
    • Prompt: !!,"Patient's Means Test is Pending Adjudication for "_$$PA^DGMTUTL(DGMTI)
    • Line Location: DIS+11
    Function Call: WRITE
    • Prompt: !!,"Means Test Not Required"
    • Line Location: DIS+12
    Function Call: WRITE
    • Prompt: !!,"Patient's status is ",$$GETNAME^DGMTH(DGCS)," based on primary means test"
    • Line Location: DIS+13
    Function Call: WRITE
    • Prompt: !,^("MSG")
    • Line Location: DIS+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: DIS+15
    Function Call: WRITE
    • Prompt: "Has",$S(DGDED:"",1:" not")," agreed to pay the deductible"
    • Condition for execution: DGDED]""
    • Line Location: DIS+15
    Function Call: WRITE
    • Prompt: !,"Primary Means Test ",$S(DGCS=1:"Required from",1:"Last Applied")," '",Y,"'"
    • Line Location: DIS+16
    Function Call: WRITE
    • Prompt: " (COMPLETED: ",Y,")"
    • Line Location: DIS+17
    Function Call: WRITE
    • Prompt: " (NO LONGER REQUIRED: ",Y,")"
    • Line Location: DIS+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDT+19
    Function Call: WRITE
    • Prompt: !!,"Financial query queued to be sent to HEC...",!
    • Line Location: CMTS+18
    Function Call: WRITE
    • Prompt: !!,$C(7),?15,"*** Patient Requires a Means Test ***",!
    • Line Location: MSG1+3
    Function Call: WRITE
    • Prompt: !,?14,"Primary Means Test Required from "_Y,!
    • Line Location: MSG1+4
    Function Call: WRITE
    • Prompt: !!,$C(7),?17,"*** Patient Requires a Means Test ***",!
    • Line Location: MSG2+3
    Function Call: WRITE
    • Prompt: !,?25,"*** Please update ***",!
    • Line Location: MSG2+4
    Function Call: WRITE
    • Prompt: !,?10,"Patient's Test dated "_Y_" is "_$P(DGMTDATA,U,3)_"."_" The test"
    • Line Location: MSG2+5
    Routine Call
    • DIR
    • Line Location:
      • EDT+19

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" DIS+16, DIS+17, DIS+18, MSG1+4, MSG2+4
    ^DG(408.32 - [#408.32] MTS+6, DIS+14
    ^DGMT(408.31 - [#408.31] LST+9, LST+10, LST+11, NVMT+7, NVMT+8, DIS+7, EDT+15, EDT+16, MFLG+16, MFLG+24
    , MSG1+2, MSG2+2, QFLG+5, FUT+20, FUT+21
    ^DPT - [#2] MTS+5, DIS+6, CMTS+10
    ^IVM(301.5 - [#301.5] FUT+17, FUT+19

    Label References

    Name Line Occurrences
    $$FUT MFLG+23
    $$LST EDT+13, CMTS+8, CMTS+20
    $$MFLG CMTS+21, CMTS+22
    $$MTS LST+11
    $$QFLG CMTS+14
    @( CMTS+24
    DIS EDT+12
    DISQ DIS+6
    EDTQ EDT+14, EDT+15, EDT+19

    Naked Globals

    Name Field # of Occurrence
    ^("MSG" DIS+14
    ^("PRIM" LST+11, NVMT+8
    ^(0 LST+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARR FUT+9~, FUT+15*
    ARR( FUT+23*, FUT+24
    ARR("" FUT+24
    DFN LST~, LST+9, LST+10, LST+11, LVMT~, LVMT+6, LVMT+7, NVMT~, NVMT+7, NVMT+8
    , MTS~, MTS+5, DIS~, DIS+6, DIS+7, EDT~, EDT+10, EDT+12, EDT+13, EDT+14
    , EDTQ+3, CMTS~, CMTS+7, CMTS+8, CMTS+10, CMTS+15, CMTS+16, CMTS+17, CMTS+19, CMTS+20
    , MFLG+23, FUT~, FUT+17, FUT+19, FUT+22, FUT+23
    DGCS DIS+5~, DIS+6*, DIS+10, DIS+11, DIS+12, DIS+13, DIS+14, DIS+15, DIS+16, DIS+17
    , DIS+18
    DGDED DIS+5~, DIS+15*
    DGDOD CMTS+6~, CMTS+10*, CMTS+11
    >> DGDOM MFLG+22, QFLG+19
    DGDT LST~, LST+8, LVMT~, LVMT+6*, LVMT+7*, NVMT~, NVMT+6, EDT~, EDT+13, FUT~
    , FUT+14
    DGDTE NVMT+5~, NVMT+6*, NVMT+7*, NVMT+8
    DGIDT LST+7~, LST+8*, LST+9*, LST+10, FUT+9~, FUT+14*, FUT+16*, FUT+17*, FUT+19
    DGMFLG CMTS+6~, CMTS+15, CMTS+22*, CMTS+23
    >> DGMSGF CMTS+18, CMTS+24
    DGMT LVMT+5~, LVMT+7*, LVMT+8, NVMT+5~, NVMT+7, NVMT+8*, NVMT+9
    DGMT0 NVMT+5~, NVMT+8*, DIS+5~, DIS+7*, DIS+8, DIS+15, DIS+16, DIS+17, DIS+18, EDT+16*
    , EDTQ!, MFLG+14~, MFLG+16*, MFLG+20, MFLG+21, QFLG+3~, QFLG+5*, QFLG+14, QFLG+17
    DGMTACT EDT+20*, EDTQ!
    DGMTDATA CMTS+6~, CMTS+8*, CMTS+11, CMTS+13, CMTS+14, CMTS+20*, CMTS+21, CMTS+22, CMTS+25, MFLG~
    , MFLG+15, MFLG+16, MFLG+17, MFLG+19, MFLG+20, MFLG+21, MSG1+2, MSG2+2, QFLG~, QFLG+4
    , QFLG+5, QFLG+7, QFLG+11, QFLG+14, QFLG+17
    DGMTDT EDT+16*, EDTQ!
    DGMTFL1 LST+7~, LST+9, LST+10, LST+11*
    DGMTI LST+7~, LST+10*, LST+11, NVMT+5~, NVMT+8*, DIS+5~, DIS+7*, DIS+11, EDT+13*, EDT+14
    , EDT+15, EDT+16, EDTQ!
    DGMTL LVMT+5~, LVMT+6*, LVMT+7, LVMT+8
    DGMTPR NVMT+5~, NVMT+8*
    DGMTROU EDT+20*, EDTQ!
    DGMTS NVMT+5~, NVMT+8*, MTS~, MTS+5*, MTS+6, EDT+16*, EDT+17, EDT+18, EDTQ!
    DGMTYPT LST~, LST+7*, LST+9, LST+10, LST+11, EDT+20*, CMTS+6~, CMTS+8*, CMTS+20, FUT~
    , FUT+10*, FUT+12, FUT+13
    DGNOD LST+7~, LST+11*
    >> DGPRFLG EDT+18
    DGQSENT CMTS+6~, CMTS+17*, CMTS+18
    DGRET CMTS+6~, MSG1+5*, MSG2+7*
    DGRETV MFLG+14~, MFLG+15*, MFLG+17*, MFLG+19*, MFLG+20*, MFLG+21*, MFLG+22*, MFLG+24*, MFLG+25, QFLG+17*
    DGTAG CMTS+6~, CMTS+23*, CMTS+24
    DIR EDTQ!
    DIR("A" EDT+17*
    DIR("B" EDT+18*
    DIR(0 EDT+18*
    DONE FUT+9~, FUT+14*, FUT+17, FUT+19, FUT+22*, FUT+23, FUT+24
    DT LST+8, LVMT+6, FUT+14
    DTIME MSG1+5, MSG2+7
    DTOUT EDT+19, EDTQ!
    DUOUT EDT+19, EDTQ!
    DUZ CMTS+17
    FTST MFLG+14~, MFLG+23*, MFLG+24
    IOST MSG1+5, MSG2+7
    IVMQFLG QFLG+3~, QFLG+4*, QFLG+7*, QFLG+11*, QFLG+14*, QFLG+19*, QFLG+20
    >> IVMZ10 CMTS+15
    LAST FUT+9~, FUT+15*, FUT+24*
    MTIEN FUT+9~, FUT+18*, FUT+19*, FUT+20, FUT+21, FUT+22, FUT+23
    MTNOD FUT+9~, FUT+21*, FUT+22, FUT+23
    >> MTSIG DIS+8*, DIS+9
    NODE0 CMTS+6~, MSG1+1~, MSG1+2*, MSG1+4, MSG2+1~, MSG2+2*, MSG2+4
    SRCE FUT+9~, FUT+21*, FUT+22
    TYPTST FUT+9~, FUT+13*, FUT+17, FUT+19
    U LVMT+7, EDT+13, EDT+15, CMTS+10, MFLG+17, MFLG+19, MFLG+20, MFLG+21, MFLG+24, MSG1+4
    , MSG2+4, QFLG+7, QFLG+11, QFLG+14, QFLG+17, FUT+21, FUT+22, FUT+23
    VSITE EDT+9~, EDT+13*, EDT+15
    X CMTS+6~
    >> XQY CMTS+17
    Y LST+7~, LST+11*, LST+12, MTS+4~, MTS+6*, MTS+7, DIS+16*, DIS+17*, DIS+18*, EDT+20
    , EDTQ!, CMTS+6~, MSG1+1~, MSG1+4*, MSG2+1~, MSG2+4*, FUT+9~, FUT+15*, FUT+22*, FUT+24*
    , FUT+25
    >> ZTQUEUED CMTS+18
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All