Routine: EASMTRP3

Information

EASMTRP3 ; ALB/GAH - MEANS TEST ANV DATES BY APPT DATE ; 10/10/2006

Name	Comments	DBIA/ICR reference
QUE	; Que off the appointment list search by MT anniversary date
EN	; Main entry point for appointment list by MT anniversary date
LOOP	; Loop through a clinic's appointment list
PRINT	; Print Report
HDR(EASCLN)	; Report Header
PAUSE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"No MT Anniversary dates found for this appointment date." Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+7
Function Call: WRITE	Prompt: !,^TMP("EASAP",$J,"CLN",EACLN) Line Location: PRINT+11
Function Call: WRITE	Prompt: !?3,$$GET1^DIQ(2,DFN,.01) Line Location: PRINT+16
Function Call: WRITE	Prompt: ?30,VA("BID") Line Location: PRINT+18
Function Call: WRITE	Prompt: ?38,$S(ANVDT>0:$$FMTE^XLFDT(ANVDT),1:"") Line Location: PRINT+19
Function Call: WRITE	Prompt: ?55,$$FMTE^XLFDT(APDT,"2P"),! Line Location: PRINT+22
Function Call: WRITE	Prompt: @IOF Line Location: HDR+9
Function Call: WRITE	Prompt: "Means Test Expiration Report by Appt Date "_$S(CLINIC]"":"for "_CLINIC,1:"") Line Location: HDR+11
Function Call: WRITE	Prompt: !!,"For Appointment Date: ",$$FMTE^XLFDT(^TMP("EASAP",$J,"APDT")) Line Location: HDR+12
Function Call: WRITE	Prompt: !,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT) Line Location: HDR+13
Function Call: WRITE	Prompt: ?TAB,"Page "_PAGE Line Location: HDR+15
Function Call: WRITE	Prompt: !!?30,"Last",?38,"Anniversary",?55,"Appointment" Line Location: HDR+18
Function Call: WRITE	Prompt: !?3,"Name",?30,"Four",?38,"Date",?55,"Time" Line Location: HDR+19
Function Call: WRITE	Prompt: !,LINE,! Line Location: HDR+20