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 - Means Test Utilities ; 02/08/2005 07:10 AM

Source Information

Source file <DGMTU.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 7 $$GETNAME^DGMTH  DOM^DGMTR  EN^DGMTSC  ($$LST,$$MTS)^DGMTU  ($$OLD,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: 90

Package Total Caller Graph
Registration 64 DG10  DG53285  DG53289  DG53296D  DG53358  DG53358A  DG53358D  DG53401P  
DG53426  DG53426D  DG53426M  DG53426N  DG53591A  DG53602S  DG53S451  DGA4004  
DGDIS  DGEN  DGENEGT1  DGENELA  DGENELA4  DGMT LAST MEANS TEST  DGMTA  DGMTCOR  
DGMTCOST  DGMTCOU  DGMTCOU1  DGMTDEL  DGMTDEL1  DGMTDELS  DGMTEO  DGMTH  
DGMTP  DGMTP4  DGMTR  DGMTR1  DGMTREM  DGMTREQB  DGMTSCC  DGMTU  
DGMTU2  ^DPT  DGMTDOM  DGMTE  DGMTOFA  DGMTU21  DGMTU3  DGMTU4  
DGMTUB  DGMTV  DGOINPT1  DGPTFVC1  DGPTOM2  DGPTUTL  DGREG0  DGRP9  
DGRPC2  DGRPD  DGRPDB  DGRPEIS2  DGRRLU1A  DPTLK5  DPTLK6  VAFHLZMT  
Scheduling 14 SCDXUTL0  SCRPEC  SCRPO2  SCRPW25  SCRPW81  SCUTBK10  SDAL0  SDAMEP2  
SDCLAS  SDPPAT1  SDPPMT1  SDPPRT  SDUTL2  SDWLTR  
Integrated Billing 9 IB20PT86  IB20PT87  IBAMTBU2  IBAMTED  IBCB  IBCOPV2  IBERS2  IBOBCR6  
IBOSTUS1  
Automated Information Collection System 1 IBDFN2  
Beneficiary Travel 1 DGBTE1  
IHS Electronic Health Record 1 BEHOPTC1  

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+21, QFLG+18
    EN^DGMTSC EDT+20
    $$LST^DGMTU LVMT+6, LVMT+7, DIS+7, EDT+14
    $$MTS^DGMTU NVMT+8, FUT+22, FUT+23
    $$OLD^DGMTU4 MFLG+18, QFLG+10
    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: !,?10,"Patient's Test dated "_Y_" is "_$P(DGMTDATA,U,3)_"."_" The test"
    • Line Location: MSG2+4
    Function Call: WRITE
    • Prompt: !,?10,"date is greater than 365 days old. Please update."
    • 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+23
    , MSG1+2, MSG2+2, QFLG+5, FUT+20, FUT+21
    ^DPT - [#2] MTS+5, DIS+6, CMTS+10
    ^IVM(301.5 FUT+17, FUT+19

    Label References

    Name Line Occurrences
    $$FUT MFLG+22
    $$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+22, 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+21, QFLG+18
    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+19, MFLG+20, QFLG+3~, QFLG+5*, QFLG+13, QFLG+16
    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+18, MFLG+19, MFLG+20, MSG1+2, MSG2+2, MSG2+4, QFLG~
    , QFLG+4, QFLG+5, QFLG+7, QFLG+10, QFLG+13, QFLG+16
    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+6*
    DGRETV MFLG+14~, MFLG+15*, MFLG+17*, MFLG+18*, MFLG+19*, MFLG+20*, MFLG+21*, MFLG+23*, MFLG+24, QFLG+16*
    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+6
    DTOUT EDT+19, EDTQ!
    DUOUT EDT+19, EDTQ!
    DUZ CMTS+17
    FTST MFLG+14~, MFLG+22*, MFLG+23
    IOST MSG1+5, MSG2+6
    IVMQFLG QFLG+3~, QFLG+4*, QFLG+7*, QFLG+10*, QFLG+13*, QFLG+18*, QFLG+19
    >> 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+18, MFLG+19, MFLG+20, MFLG+23, MSG1+4
    , MSG2+4, QFLG+7, QFLG+10, QFLG+13, QFLG+16, 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