Routine: DGMTHL1

Information

DGMTHL1 ;ALB/CJM/TDM,LBD,HM - Hardship Determinations - Build List Area;13 JUN 1997 08:00 am ;4/27/20 8:41am

Source file <DGMTHL1.m>

Name	Comments	DBIA/ICR reference
EN(DGARY,HARDSHIP,DGCNT)	;Entry point to build list area ; Input; ; DGARY Global array subscript ; HARDSHIP - hardship array (pass by reference) ; Output -- DGCNT Number of lines in the list
SET(DGARY,HARDSHIP,DGLINE,DGCNT)	;
CHKADD(HARDSHIP)	;
ADD(HARDSHIP)	;
EDIT(HARDSHIP)	;
CHKDEL(HARDSHIP)	;
DELETE(HARDSHIP)	;
GETSTAT(HARDSHIP,EDITFLG)	;
GETEFF(HARDSHIP)	;
GETREV(HARDSHIP)	;
GETREAS(HARDSHIP)	;
PRIOR(HARDSHIP)	;set up for means test event driver
AFTER(HARDSHIP)	;calls means test event driver
COMMENTS(HARDSHIP)	;
RUSURE()	;
EXSURE()	;
SETREV(HARDSHIP)	;SET REVIEW DATE TO DEC 31 OF CURRENT YEAR SO THAT HARDSHIP WILL EXPIRE DECEMBER 31 11:59 PM OF CURRENT YEAR
SETREVEX(HARDSHIP)	;SET REVIEW DATE TO HARDSHIP EXPIRATION DATE ENTERED IN
GETSRC(MTIEN)	; GET SOURCE OF TEST DATA TO DETERMINE IF FROM DCD ;DG5.3996
HRDSHPR	; RESPONSE FOR HARDSHIP EDIT OR DELETE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOUR DUZ IS NOT DEFINED!" Line Location: ADD+9
Function Call: WRITE	Prompt: !,"PATIENT NOT CURRENTLY RESPONSIBLE FOR COPAYMENT CHARGES!" Line Location: ADD+12
Function Call: WRITE	Prompt: !,$G(ERROR) Line Location: ADD+33
Function Call: WRITE	Prompt: !,$G(ERROR) Line Location: EDIT+24
Function Call: WRITE	Prompt: !,"AN ERROR OCCURRED - "_$G(ERROR) Line Location: DELETE+12
Function Call: WRITE	Prompt: !,DIR("?") Line Location: GETREV+24
Function Call: WRITE	Prompt: !,"YOUR DUZ IS NOT DEFINED!" Line Location: COMMENTS+9