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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGMTA

Package: Registration

Routine: DGMTA


Information

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

Source Information

Source file <DGMTA.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Registration 11 $$INST^DGENU  EN^DGMTCOR  DEV^DGMTP  (DOM1,EN)^DGMTR  EN^DGMTSC  ($$FUT,$$LST)^DGMTU  $$VRCHKUP^DGMTU2  ALL^DGMTU21  
$$GETSITE^DGMTU4  ($$LOCK,ISCNVRT,UNLOCK)^DGMTUTL  CLOSE^DGUTQ  
VA Fileman 5 ^%DT  ^%DTC  ^DIC  (FILE,YN)^DICN  FILE^DIE  
Income Verification Match 1 CKUPLOAD^IVMCUPL  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 7 DG CO-PAY TEST ADD  DG MEANS TEST ADD  DGMTCOM  DGMTCOU  DGMTM  DGMTR  DGMTR1  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to add a new means test
ADDQ
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
    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.
    PRINT
    DT2
    DT
    WHY ;Why Copay Test cannot be added

    External References

    Name Field # of Occurrence
    ^%DT DT
    ^%DTC DT+3
    $$INST^DGENU FTST+3
    EN^DGMTCOR EN+22
    DEV^DGMTP PRINT+1
    DOM1^DGMTR DT+12
    EN^DGMTR EN+14
    EN^DGMTSC PRINT+3
    $$FUT^DGMTU EN+16
    $$LST^DGMTU EN+23, ADD+11
    $$VRCHKUP^DGMTU2 ADD+40, ADD+41, ADD+42
    ALL^DGMTU21 ADD+21
    $$GETSITE^DGMTU4 ADD+17
    $$LOCK^DGMTUTL EN+12, ADD+8
    ISCNVRT^DGMTUTL ADD+23
    UNLOCK^DGMTUTL EN+3, Q+3, ADD+48
    CLOSE^DGUTQ PRINT+1
    ^DIC EN+4
    FILE^DICN ADD+36
    YN^DICN DT2+1, PRINT
    FILE^DIE ADD+46
    CKUPLOAD^IVMCUPL EN+9
    $$FMTE^XLFDT EN+6

    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
    Routine Call
    • DIC
    • Line Location:
      • EN+4
    Routine Call
    • DIE
    • Line Location:
      • ADD+46

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^DGMT(408.31 - [#408.31] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" DT+2, DT+4, DT+21, FTST+7
    ^DG(408.34 - [#408.34] DT+6
    ^DGMT(408.31 - [#408.31] DT+6, ADD+15, FTST+3, FTST+4
    ^DIC(4 - [#4] FTST+17
    ^DPT - [#2] EN+5

    Label References

    Name Line Occurrences
    ADD PRINT+2
    DT DT+1, DT+2
    DT2 DT2+2
    EN EN+14, EN+16, EN+19, EN+22, DT+3, DT+12, DT+20, PRINT+2
    FTST EN+16
    PRINT DT+9, PRINT
    Q EN+4, DT, PRINT

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DT+19~, DT+20!, DT2+1*, DT2+2, DT2+4!, PRINT*, PRINT+1
    %DT DT*!
    %DT("A" DT*
    %DT("B" DT*
    %DT(0 DT*
    >> %Y PRINT
    CONVRT ADD+5~, ADD+40*, ADD+41*, ADD+42*
    CURIEN ADD+5~, ADD+11*, ADD+12, ADD+15
    D0 ADD+5~
    DA Q!, ADD+5~
    DD ADD+5~, ADD+35!
    DFN EN+4*, EN+5, EN+9, EN+12, EN+16, EN+23, Q!, ADD+8, ADD+11, ADD+21
    , ADD+31, ADD+34, ADD+48
    DGADDF EN+2*, EN+19, Q!
    DGBL Q!
    DGDOM DT+10~, DT+12!, DT+14!
    DGDOM1 EN+14~!, EN+21!, DT+10~, DT+12!, DT+14!
    DGERR ADD+43~, ADD+45*, ADD+46
    DGFL Q!
    DGFLD Q!
    >> DGINC ADD+22, ADD+23
    DGIRO Q!
    DGLD EN+23*, DT+2, DT+3, DT+4, DT+20, DT+21, PRINT+1, Q!
    DGLDT EN+23*, DT+6, DT+20, PRINT, PRINT+1, Q!
    DGLDYR EN+23*, DT+3, DT+20, Q!
    DGLNKMT ADD+5~, ADD+11*, ADD+14
    DGMDOD EN+1~*, EN+5*, EN+6
    DGMTACT PRINT+3*, Q!
    DGMTCOR EN+22, Q!
    DGMTDFN EN+3!, EN+4*, Q+3!
    DGMTDT DT*, DT+1, DT+2, DT+3, DT+11, DT+20, PRINT+1*, Q!, ADD+11, ADD+14
    , ADD+18, ADD+40, ADD+41, ADD+42
    DGMTI PRINT+1*, PRINT+2, Q!, ADD+36*, ADD+44
    DGMTROU PRINT+3*, Q!
    DGMTRT ADD+43~
    DGMTRT( ADD+44*
    DGMTYPT EN+14, EN+16, EN+21, EN+22, EN+23, DT+1, DT+5, DT+9, Q!, ADD+11
    , ADD+29, ADD+30, ADD+31, ADD+33, ADD+34, ADD+40, ADD+41, ADD+42, FTST+2~, FTST+4*
    , FTST+5
    >> DGOPT PRINT+1*
    DGREQF EN+14, Q!
    DGSITE ADD+5~, ADD+17*, ADD+30, ADD+33
    DGTTYP DT+5*, DT+6, Q!, FTST+2~, FTST+5*, FTST+10, FTST+15
    DGVI Q!
    DGVO Q!
    DGX PRINT+1*!
    DIC EN+4*!, ADD+5~, ADD+18*
    DIC("DR" ADD+30*, ADD+31*, ADD+33*, ADD+34*
    DIC(0 EN+4*, ADD+18*
    DIK ADD+5~, ADD+18*
    DINUM ADD+5~
    DLAYGO ADD+5~, ADD+18*
    DO ADD+5~, ADD+35!
    DS ADD+5~
    DT ADD+21
    DUZ ADD+17
    FUTMT EN+16~*, FTST+3, FTST+4, FTST+7, FTST+14
    >> I EN+22*
    LINK ADD+5~, ADD+11*, ADD+15*, ADD+30, ADD+33
    SCT FTST+2~, FTST+3*, FTST+9, FTST+13, FTST+15, FTST+17
    SITE FTST+2~, FTST+3*, FTST+9, FTST+13
    SRC FTST+2~, FTST+14*, FTST+17
    >> TYPE ADD+40, ADD+41, ADD+42
    U EN+5, EN+23, DT+6, PRINT, ADD+14, ADD+15, FTST+3, FTST+4, FTST+7, FTST+14
    , FTST+17
    VADMVT DT+10~, DT+12!, DT+14!
    VAINDT DT+10~, DT+11*, DT+12!, DT+14!
    X DT+3, Q!, ADD+5~, ADD+18*
    X1 DT+3*, Q!
    X2 DT+3*, Q!
    Y EN+4, DT, DT+2*, DT+4*, DT+21*, Q!, ADD+36, FTST+7*

    Marked Items

    Name Field # of Occurrence
    $T(WHY+DGWRT EN+22
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All