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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGMTA

Package: Registration

Routine: DGMTA


Information

DGMTA ;ALB/RMO/CAW/LD/SCG/AEG/PHH/HM - Add a New Means Test;2/24/10 2:58pm

Source Information

Source file <DGMTA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to add a new means test
DT
DT2
PRINT
Q
ADD ;Add means test
; Input -- DFN Patient IEN
; DGMTDT Date
; DGMTYPT Type of Test 1=MT 2=COPAY 4=LTC
; Output -- DGMTI Annual Means/Copay/LTC Test IEN
  • ICR #957
    • Status: Active
    • Usage: Private
    ADDQ
    FTST ; Build message for future tests that are added to the system, but
    ; were not performed by the VAMC trying to add a new MT.
    WHY ;Why Copay Test cannot be added

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+4
    Function Call: WRITE
    • Prompt: !,"Patient died on: ",$$FMTE^XLFDT(DGMDOD,"1D")
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !,*7,"A means test can only be added for patients who require one.",!
    • Line Location: EN+14
    Function Call: WRITE
    • Prompt: !!,*7,"A means test already exists and is in effect"
    • Line Location: EN+19
    Function Call: WRITE
    • Prompt: !!,*7,"A copay exemption test can only be added for applicable veterans.",!,I
    • Line Location: EN+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: !?3,*7,"The date of test cannot be before "_$S(DGMTYPT=1:"7/1/1986.",1:"10/29/1992.")
    • Line Location: DT+1
    Function Call: WRITE
    • Prompt: !?3,*7,"The date of test cannot be before the last date of test on "
    • Line Location: DT+2
    Function Call: WRITE
    • Prompt: Y,"."
    • Line Location: DT+2
    Function Call: WRITE
    • Prompt: Y,"."
    • Line Location: DT+4
    Function Call: WRITE
    • Prompt: Y," has a status of required."
    • Line Location: DT+21
    Function Call: WRITE
    • Prompt: !?3,"Answer 'Y'es to continue adding new test."
    • Line Location: DT2+2
    Function Call: WRITE
    • Prompt: !,"Do you wish to print the prior means test"
    • Line Location: PRINT+0
    Function Call: WRITE
    • Prompt: !!,"This will print the prior means test information.",!
    • Line Location: PRINT+0
    Function Call: WRITE
    • Prompt: !?3,*7,"A future test already exists on "
    • Line Location: FTST+6
    Function Call: WRITE
    • Prompt: Y,"."
    • Line Location: FTST+7
    Function Call: WRITE
    • Prompt: !?3,"The "_DGTTYP_"Test was conducted at Site: ",SCT
    • Line Location: FTST+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^DGMT(408.31 - [#408.31] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call