Routine: LRLISTPS

Information

LRLISTPS ;JMC/DALOI Print patient LAB DATA file Summary ;09/16/15 17:12

Name	Comments	DBIA/ICR reference
EN	; Print summary report based only on entry in file #63.
DQP	; Dequeue (TaskMan ) entry point and from above
LRRAW(LRDFN,LRSS,LRIDT)	; Display raw data from LR global.
WAIT	; Check if continue display
HEAD	; Print header
CLEAN	; Clean up and quit
STARTDT()	; Prompt for start date/time
ENDDT(LRSDT)	; Prompt for end date/time
DATE(LRPROMPT,LRDEFAULT,LRFLAGS)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DQP+3
Function Call: WRITE	Prompt: ! Line Location: DQP+10
Function Call: WRITE	Prompt: !!,"Related LAB DATA file (#63) global listing",! Line Location: LRRAW+4
Function Call: WRITE	Prompt: !,LRNODE," = ",@LRNODE Line Location: LRRAW+9
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"Patient Summary Report",?25,"WORK COPY ONLY - DO NOT FILE",?58,"Printed: ",$$FMTE^XLFDT(DT,"1Z") Line Location: HEAD+4
Function Call: WRITE	Prompt: !,PNM,?30,SSN,?45," Sex: ",SEX Line Location: HEAD+5
Function Call: WRITE	Prompt: !," For date range: "_LREDAT_" to "_LRSDAT_" for "_LRSS(0) Line Location: HEAD+6
Function Call: WRITE	Prompt: @IOF Line Location: CLEAN+1