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 - COPAY UTILITIES;8/13/04 8:31am

Source Information

Source file <DGMTCOU1.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 5 DG10  DGREG0  DGRP  DGRPU  VAFMON  
Integrated Billing 2 IBARXEU1  IBARXEU5  
Scheduling 1 SDROUT2  

Entry Points

Name Comments DBIA/ICR reference
THRESH(DGDT) ;PRINTS THE YEAR'S COPAY THRESHOLDS
QTAUTO
DISPMAS(DFN) ; Displays Co
365(X1,DGDT) ; RETURNS 1 IF X1 IS MORE THAN 1 YEAR BEFORE DGDT
THRESHQT
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
    LST365(DFN,DGDT,DGMTYPT1) ;RETURNS CURRENT MT/CP (WITHIN 365 DAYS)
    ; 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
    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

    External References

    Name Field # of Occurrence
    DOM^DGMTR AUTOINFO+23
    $$LST^DGMTU LST+14
    $$MTS^DGMTU LST+15
    $$THRES^IBARXEU1 THRESH+8, THRESH+12
    IN5^VADPT AUTOINFO+24

    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+13
    ^DPT - [#2] AUTOINFO+11, AUTOINFO+14
    ^DPT("AEL" AUTOINFO+13

    Label References

    Name Line Occurrences
    $$365 LST365+10
    $$AUTO DISPMAS+2
    $$AUTOINFO AUTO+7
    $$LST LST365+8, LST365+9
    $$LST365 DISPMAS+6
    QTAUTO AUTOINFO+11, AUTOINFO+15, AUTOINFO+16, AUTOINFO+17, AUTOINFO+18, AUTOINFO+19, AUTOINFO+20, AUTOINFO+21, AUTOINFO+23, AUTOINFO+24
    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+11, AUTOINFO+13, AUTOINFO+14, LST~, LST+11, LST+12, LST+13
    , LST+14, LST+15, DISPMAS~, DISPMAS+2, DISPMAS+6, LST365~, LST365+8, LST365+9
    DGALLEL AUTOINFO+9~, AUTOINFO+12*, AUTOINFO+13*, AUTOINFO+15, AUTOINFO+16, AUTOINFO+17, AUTOINFO+18, AUTOINFO+19, AUTOINFO+20
    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+9~, AUTOINFO+22~, AUTOINFO+23
    DGDOM1 AUTOINFO+22~
    DGDT LST~, LST+8, THRESH~, THRESH+4*, THRESH+5*, THRESH+6, THRESH+7, THRESH+8, THRESH+12, LST365~
    , LST365+6*, LST365+8, LST365+9, LST365+10, 365~, 365+1
    DGEL AUTOINFO+9~, AUTOINFO+12*, AUTOINFO+13*
    DGEX DISPMAS+1~, DISPMAS+2*, DISPMAS+4, DISPMAS+5
    DGI AUTOINFO+9~, AUTOINFO+14*
    DGIDT LST+7~, LST+8*, LST+11, LST+12, LST+14
    DGLST LST365+5~, LST365+8*, LST365+9*, LST365+10*, LST365+11
    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+9~, THRESH+3~
    DGNODE( AUTOINFO+14*, AUTOINFO+16, AUTOINFO+17, AUTOINFO+18, AUTOINFO+19, AUTOINFO+20, AUTOINFO+21
    DGTYPE THRESH+3~, THRESH+7*, THRESH+8, THRESH+12
    DGX AUTOINFO+9~, AUTOINFO+10*, AUTOINFO+11*, AUTOINFO+15*, AUTOINFO+16*, AUTOINFO+17*, AUTOINFO+18*, AUTOINFO+19*, AUTOINFO+20*, AUTOINFO+21*
    , AUTOINFO+23*, AUTOINFO+24*, QTAUTO
    DGYR AUTOINFO+9~
    DT LST+8, THRESH+4, DISPMAS+6
    U AUTOINFO+11, AUTOINFO+12, AUTOINFO+13, AUTOINFO+15, AUTOINFO+16, AUTOINFO+17, AUTOINFO+18, AUTOINFO+19, AUTOINFO+20, AUTOINFO+21
    , AUTOINFO+23, AUTOINFO+24, DISPMAS+3, DISPMAS+6, DISPMAS+9, LST365+9, LST365+10
    VADMVT AUTOINFO+9~
    VAERR AUTOINFO+22~
    VAHOW AUTOINFO+22~
    VAINDT AUTOINFO+22~
    VAIP AUTOINFO+22~
    VAIP(1 AUTOINFO+24
    VAROOT AUTOINFO+22~
    X1 365~, 365+1
    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