Routine: DGMTCOU1

Information

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

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

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