Routine: RAMAORPT

Information

RAMAORPT ;HISC/GJC Report on the studies overridden to 'Complete' P160 ; Aug 25, 2020@09:22:36

Name	Comments	DBIA/ICR reference
EN	;entry point
ENRPT	;report tag, not callable
OUTPUT	;output the data
LAST()	;find the last collated ^TMP("RA P160",$J) ; to decide report formatting (new page?) ; Ex: ^TMP("RA P160",$J,2980731.1925,"HHUYLYIHM,CRLY C", ; "H0956","073198-7716")=""
QEOS()	;check if the EOS should be called. if Q=1 we're ; on the last record; (don't refresh/call header)
PAUSE()	;pause if send to screen
BEGIN()	;Prompt the user for the study registration starting date
END(RAX)	;Prompt the user for the ending date report verified (no greater than a
HDR	;header for reports
EXQUE	;if queued set ZTREQ
EXIT	;kill task in task log, clean up symbol table.
DEVSCR(Y)	;device screen (either spool or home) ; input: Y = IEN of DEVICE record (#3.5) numeric

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+15
Function Call: WRITE	Prompt: !!,"There is no data to be printed!",! Line Location: ENRPT+32
Function Call: WRITE	Prompt: !!,"This report has been tasked with task number: ",ZTSK Line Location: ENRPT+39
Function Call: WRITE	Prompt: ! Line Location: BEGIN+3
Function Call: WRITE	Prompt: ! Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !?(IOM-$L(RATITLE)\2),RATITLE Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Run Date: ",RADATE,?67,"Page: ",RAPG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Facility: ",RAFAC Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"Patient",?33,"Pat ID",?40,"Exam Date/Time",?59,"Accession #" Line Location: HDR+5
Function Call: WRITE	Prompt: !?2,"Procedure",?44,"Request Status",?62,"Report Status" Line Location: HDR+6
Function Call: WRITE	Prompt: !,RALINE Line Location: HDR+7