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

Entry Points

Name Comments DBIA/ICR reference
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
    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
    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: Controlled Subscription
    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
    DISQ
    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
    CMTS(DFN) ;Get Current MT Status - query HEC if necessary
    MFLG(DGMTDATA) ;Set up appropriate informational message flag for user's
    MSG1 ;Informational message 1
    MSG2 ;Informational message 2
    QFLG(DGMTDATA) ;
    FUT(DFN,DGDT,DGMTYPT) ; Future MT for a patient
  • ICR #3523
    • Status: Active
    • Usage: Supported

    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
    Info |  Source |  Entry Points |  Interaction Calls