Routine: ECXPROEL

Information

ECXPROEL ;ALB/DAN - Print Prosthetics Extract Edit Log; 11/2/06 8:54am ;4/5/16 12:53

Name	Comments	DBIA/ICR reference
EN	;entry point from option
GETSORT	;Prompt for sorting order for report
PRINT	;Print report using fileman EN1^DIP for IVP
EXTNOI	;Extract Number
RPTHDR	;report header
DTRNG	;report date range
DTREP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option prints a log of the changes made to the Prosthetics" Line Location: EN+5
Function Call: WRITE	Prompt: !,"Extracts.",! Line Location: EN+6
Function Call: WRITE	Prompt: !!," REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY " Line Location: EN+10
Function Call: WRITE	Prompt: $P($G(^ECX(ECXFIL,+X,0)),"^",3) Line Location: EXTNOI+1
Function Call: WRITE	Prompt: "PROSTHETICS EXTRACT EDIT LOG",?115,"Page ",PG,! Line Location: RPTHDR+3
Function Call: WRITE	Prompt: "Printed on ",$$HTE^XLFDT($H)," for ",ECSD," to ",ECED,! Line Location: RPTHDR+4
Function Call: WRITE	Prompt: "USER NAME",?24,"DATE/TIME CHANGED",?46,"SEQUENCE #",?61 Line Location: RPTHDR+5
Function Call: WRITE	Prompt: "EXTRACT #",?73,"FIELD NAME",?89,"OLD VALUE",?109,"NEW VALUE",! Line Location: RPTHDR+6
Function Call: WRITE	Prompt: LN,! Line Location: RPTHDR+7