Routine: DGENRPD2

Information

DGENRPD2 ;ALB/CJM/EG -Veteran with Future Appts and no Enrollment App Report - Continue 01/19/2005 ; 1/20/05 1:27pm

Name	Comments	DBIA/ICR reference
PRINT	;
LINE(LINE)	;
GETPAT	; ; Description: Gets patients to include in the report
ERR	;
VALREC(CLINIC,DFN)	;
SETTMP(CLINIC,DFN,APPT)	; ; NOENREC is for patients without enrollment records ; SITE2 is for other excluded enrollment records
HEADER	;
PAUSE	;
PATIENTS(SUBSCRPT)	;
DATE(DATE)	;
LJ(STRING,LENGTH)	;
FAPCHK()	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+9
Function Call: WRITE	Prompt: !,LINE Line Location: LINE+15
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Appointments for Veterans with no Enrollment Application" Line Location: HEADER+5
Function Call: WRITE	Prompt: ?120,"Page ",PAGE Line Location: HEADER+7
Function Call: WRITE	Prompt: ! Line Location: HEADER+9
Function Call: WRITE	Prompt: ?70," Run Date: "_$$FMTE^XLFDT(DT) Line Location: HEADER+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+11
Function Call: WRITE	Prompt: !,"Name",?39,"PatientID",?57,"DOB",?70,"Appt Dt/Tm",?90,"EnrollStatus",?121,"Enroll Cat" Line Location: HEADER+13
Function Call: WRITE	Prompt: !,LINE,! Line Location: HEADER+15
Function Call: WRITE	Prompt: ! Line Location: PAUSE+4