Routine: EASMTRP1

Information

EASMTRP1 ;ALB/GAH - MEANS TEST DAILY EXPIRATION REPORT ; 10/10/2006

Name	Comments	DBIA/ICR reference
EN	; Interactive report generation, select date range
QUE	; Queued report generation
BLD	; Build the list of MT expirations to TMP global
BLDSD	;
PRT(EASTMP,EASDT)	;
PRTLINE(EASANV,EASDAT)	; Format and print report line
GETAPT(DFN,EASAPT)	; Get future appointments for patient
HDR(EASDT)	; Print report header

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !,$CHAR(7),"Enter date range for anniversary date search" Line Location: EN+7
Function Call: WRITE	Prompt: !!?3,">> No Means Test expirations for the selected date range." Line Location: PRT+7
Function Call: WRITE	Prompt: !,$E(EASNAME,1,20) Line Location: PRTLINE+5
Function Call: WRITE	Prompt: ?22,VA("PID") Line Location: PRTLINE+8
Function Call: WRITE	Prompt: ?35,$TR($$FMTE^XLFDT($$FMADD^XLFDT(EASANV,365),"2F")," ","0") Line Location: PRTLINE+10
Function Call: WRITE	Prompt: ?46,$S(EASTAT="C":"MT CPR",EASTAT="A":"MT CPE",EASTAT="R":"REQD",EASTAT="N":"NA",EASTAT="P":"PEND",EASTAT="G":"GMT CPR",1:"") Line Location: PRTLINE+12
Function Call: WRITE	Prompt: ?55,$E($$GET1^DIQ(44,EACL,.01),1,15)," ",$$FMTE^XLFDT(EASAPT(EACL),"2D") Line Location: PRTLINE+19
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,HDR Line Location: HDR+7
Function Call: WRITE	Prompt: !,HDR Line Location: HDR+12
Function Call: WRITE	Prompt: !!,"Printed: "_$$FMTE^XLFDT($$NOW^XLFDT) Line Location: HDR+14
Function Call: WRITE	Prompt: ?TAB,"Page "_PAGE Line Location: HDR+17
Function Call: WRITE	Prompt: !,"Patient",?25,"SSN",?35,"MT Expired",?46,"Status",?57,"Future Appts" Line Location: HDR+21
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+22