Routine: SDECRRCLEANUP

Information

SDECRRCLEANUP ;ALB/BLB/DMR SDEC RECALL REMINDERS CLEANUP ;June 9, 2021@11:35

Name	Comments	DBIA/ICR reference
PRINT	;
GETDEFAULTDT(DEFAULTDATE)	;
WRITE	;
END	;
RRRDATELOOP	;
HASDELREASON(RRREMOVEDIEN)	; CHECK RECALL REMINDER REMOVED DELETED REASON IS 6 (OTHER) OR 7 (SCHEDULED)
GETRRRFIELDS(RRREMOVEDIEN)	; GET 403.56 (RECALL REMINDER REMOVED) FIELDS NEEDED
HASOPENAR(DFN)	;
HASOPENRECALL(DFN)	;
HASOPENCOMPAPT(DFN)	;
GETSTARTDATE(DFN)	;
ISCANCELLED(DFN)	;
ISDATEINRANGE(DFN)	;
ISSAMESTOPCODE(DFN)	;
ISSAMECLINIC(DFN)	;
ALREADYSAVED(DFN)	;
SAVETOTMP
FINDMISMATCH	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Beginning date cannot be less than "_DDATETXT Line Location: SDECRRCLEANUP+8
Function Call: WRITE	Prompt: ! Line Location: SDECRRCLEANUP+9
Function Call: WRITE	Prompt: ! Line Location: SDECRRCLEANUP+17
Function Call: WRITE	Prompt: ! Line Location: SDECRRCLEANUP+23
Function Call: WRITE	Prompt: !,"Recall Removed IEN ^ Patient Name^ Provider ^ Recall Date ^ Recall Clinic ^ Recall Type ^ Recall Appointment Date ^ Clinic ^ Comment" Line Location: WRITE+2
Function Call: WRITE	Prompt: !,"Counter: "_CCC Line Location: WRITE+7
Function Call: WRITE	Prompt: "THIS CAN TAKE A LONG TIME, PLEASE WAIT...",! Line Location: RRRDATELOOP+4