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

Package: Registration

Routine: DGMTCOU1


Information

DGMTCOU1 ;ALB/REW,LD,JAN,AEG,LBD,BDB,HM - COPAY UTILITIES;8/13/04 8:31am

Source Information

Source file <DGMTCOU1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 4 DOM^DGMTR  ($$LST,$$MTS)^DGMTU  $$OLDMTPF^DGMTU4  IN5^VADPT  
Integrated Billing 1 $$THRES^IBARXEU1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 26

Package Total Caller Graph
Integrated Billing 8 IB20P336  IBAMTED  IBARXEL1  IBARXEU  IBARXEU1  IBARXEU3  IBARXEU5  IBTRKR3  
Beneficiary Travel 6 DGBT1  DGBTALTI  DGBTDW  DGBTE1  DGBTUTL  DGBTUTL1  
Income Verification Match 6 IVMCQ  IVMCUC  IVMPTRN7  IVMUFNC2  IVMUFNC4  IVMYZ3  
Registration 5 DG10  DGREG0  DGRP  DGRPU  VAFMON  
Scheduling 1 SDROUT2  

Entry Points

Name Comments DBIA/ICR reference
AUTO(DFN,AUTOEX) ;
; Returns 1 if Exempt from CP w/o needing MT/CP information
; INPUT: DFN [Required]
; AUTOEX [Optional]
; RETURNS 1=Exempt 0=Not Exempt
AUTOINFO(DFN) ;
; This returns info needed to IB to see if MT information needs to be
; looked at to determine Copay Exemption Status
  • ICR #423
    • Status: Active
    • Usage: Private
    QTAUTO
    LST(DFN,DGDT,DGMTYPT1) ;Last Copay Exemption or Means Test for a patient
    ; Input -- DFN Patient IEN
    ; DGDT Date/Time (Optional- default today@2359)
    ; DGMTYPT1 (Optional (1:MT, 2:CP, Null/Default or 3:Either)
    ; Output -- MT IEN^Date of Test ^Status Name^Status Code^Type of Test
    ; Piece: 1 ^ 2 3 4 5
  • ICR #423
    • Status: Active
    • Usage: Private
  • ICR #1257
    • Status: Active
    • Usage: Private
    THRESH(DGDT) ;PRINTS THE YEAR'S COPAY THRESHOLDS
    THRESHQT
    DISPMAS(DFN) ; Displays Co
    LST365(DFN,DGDT,DGMTYPT1) ;RETURNS CURRENT MT/CP (WITHIN 1 YEAR OF VFA START DATE)
    ; Input: DGDT - IB DATE
    ; DGMTYPT1 (Optional (1:MT, 2:CP, Null/Default or 3:Either)
    ; Output -- MT IEN^Date of Test ^Status Name^Status Code^Type of Test
    ; Piece: 1 ^ 2 3 4 5

    External References

    Name Field # of Occurrence
    DOM^DGMTR AUTOINFO+27
    $$LST^DGMTU LST+14
    $$MTS^DGMTU LST+15
    $$OLDMTPF^DGMTU4 LST365+11
    $$THRES^IBARXEU1 THRESH+8, THRESH+12
    IN5^VADPT AUTOINFO+28

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,?2,"Net Annual Income Thresholds on ",Y,":"
    • Line Location: THRESH+6
    Function Call: WRITE
    • Prompt: !,"None for this date..."
    • Line Location: THRESH+9
    Function Call: WRITE
    • Prompt: !,?5,"Num. Dependents: ",?25,"0 (Self)",?42,1,?52,2,?62,3,?72,4
    • Line Location: THRESH+10
    Function Call: WRITE
    • Prompt: !,?5,"Net Income:"
    • Line Location: THRESH+11
    Function Call: WRITE
    • Prompt: ?(23+(DGDEP*10)),$J(+$$THRES^IBARXEU1(DGDT,DGTYPE,DGDEP),10)
    • Line Location: THRESH+12
    Function Call: WRITE
    • Prompt: !,"Patient is exempt from Copay."
    • Line Location: DISPMAS+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" THRESH+6, DISPMAS+8
    ^DGMT(408.31 - [#408.31] LST+11, LST+12, LST+13, LST+15
    ^DIC(8 - [#8] AUTOINFO+16
    ^DPT - [#2] AUTOINFO+14, AUTOINFO+17
    ^DPT("AEL" AUTOINFO+16

    Label References

    Name Line Occurrences
    $$AUTO DISPMAS+2
    $$AUTOINFO AUTO+7
    $$LST LST365+8, LST365+9
    $$LST365 DISPMAS+6
    QTAUTO AUTOINFO+14, AUTOINFO+18, AUTOINFO+19, AUTOINFO+20, AUTOINFO+21, AUTOINFO+22, AUTOINFO+23, AUTOINFO+24, AUTOINFO+25, AUTOINFO+27
    , AUTOINFO+28
    THRESHQT THRESH+9

    Naked Globals

    Name Field # of Occurrence
    ^(0 LST+15

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AUTOEX AUTO~, AUTO+7*, AUTO+9, DISPMAS+1~, DISPMAS+2, DISPMAS+3
    DFN AUTO~, AUTO+7, AUTOINFO~, AUTOINFO+14, AUTOINFO+16, AUTOINFO+17, LST~, LST+11, LST+12, LST+13
    , LST+14, LST+15, DISPMAS~, DISPMAS+2, DISPMAS+6, LST365~, LST365+8, LST365+9
    DGALLEL AUTOINFO+12~, AUTOINFO+15*, AUTOINFO+16*, AUTOINFO+18, AUTOINFO+19, AUTOINFO+20, AUTOINFO+21, AUTOINFO+22, AUTOINFO+23
    DGCPDT LST+7~, LST+12*, LST+13
    DGCPLEV THRESH+3~, THRESH+8*, THRESH+9
    DGCPS DISPMAS+1~, DISPMAS+6*, DISPMAS+7, DISPMAS+9
    DGDEP THRESH+3~, THRESH+12*
    DGDOM AUTOINFO+12~, AUTOINFO+26~, AUTOINFO+27
    DGDOM1 AUTOINFO+26~
    DGDT LST~, LST+8, THRESH~, THRESH+4*, THRESH+5*, THRESH+6, THRESH+7, THRESH+8, THRESH+12, LST365~
    , LST365+6*, LST365+8, LST365+9
    DGEL AUTOINFO+12~, AUTOINFO+15*, AUTOINFO+16*
    DGEX DISPMAS+1~, DISPMAS+2*, DISPMAS+4, DISPMAS+5
    DGI AUTOINFO+12~, AUTOINFO+17*
    DGIDT LST+7~, LST+8*, LST+11, LST+12, LST+14
    DGLST LST365+5~, LST365+8*, LST365+9*, LST365+11*, LST365+12
    DGMTDT LST+7~, LST+11*, LST+13
    DGMTI LST+7~, LST+14*, LST+15
    DGMTYPT1 LST~, LST+9*, LST+10, LST+13*, LST+14, LST+15, LST365~, LST365+7*, LST365+8
    DGNODE AUTOINFO+12~, THRESH+3~
    DGNODE( AUTOINFO+17*, AUTOINFO+19, AUTOINFO+20, AUTOINFO+21, AUTOINFO+22, AUTOINFO+23, AUTOINFO+24, AUTOINFO+25
    DGTYPE THRESH+3~, THRESH+7*, THRESH+8, THRESH+12
    DGX AUTOINFO+12~, AUTOINFO+13*, AUTOINFO+14*, AUTOINFO+18*, AUTOINFO+19*, AUTOINFO+20*, AUTOINFO+21*, AUTOINFO+22*, AUTOINFO+23*, AUTOINFO+24*
    , AUTOINFO+25*, AUTOINFO+27*, AUTOINFO+28*, QTAUTO
    DGYR AUTOINFO+12~
    DT LST+8, THRESH+4, DISPMAS+6
    U AUTOINFO+14, AUTOINFO+15, AUTOINFO+16, AUTOINFO+18, AUTOINFO+19, AUTOINFO+20, AUTOINFO+21, AUTOINFO+22, AUTOINFO+23, AUTOINFO+24
    , AUTOINFO+25, AUTOINFO+27, AUTOINFO+28, DISPMAS+3, DISPMAS+6, DISPMAS+9, LST365+9, LST365+11
    VADMVT AUTOINFO+12~
    VAERR AUTOINFO+26~
    VAHOW AUTOINFO+26~
    VAINDT AUTOINFO+26~
    VAIP AUTOINFO+26~
    VAIP(1 AUTOINFO+28
    VAROOT AUTOINFO+26~
    Y LST+7~, LST+15*, LST+16, THRESH+3~, THRESH+6*, DISPMAS+1~, DISPMAS+6*, DISPMAS+10
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All