Routine: DGMTCOU1

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

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

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

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

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

Customize PDF page

Package: Registration

Routine: DGMTCOU1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: