Routine: RAMAORPT

Information

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

Package	Total	Call Graph
Kernel	6	$$S^%ZTLOAD ($$DT,$$FMTE)^XLFDT $$PATCH^XPDUTL $$NAME^XUAF4 $$KSP^XUPARAM EN^XUTMDEVQ
VA FileMan	3	WAIT^DICD GETS^DIQ ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA OVERRIDE REPORT

Entry Points

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

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	OUTPUT+42
WAIT^DICD	EN+15
GETS^DIQ	ENRPT+9, OUTPUT+22, OUTPUT+28, DEVSCR+5
^DIR	PAUSE+3, BEGIN+11, END+14
$$DT^XLFDT	OUTPUT+4
$$FMTE^XLFDT	OUTPUT+4, OUTPUT+15, BEGIN+9, BEGIN+11, END+7, END+8
$$PATCH^XPDUTL	EN+1
$$NAME^XUAF4	OUTPUT+2
$$KSP^XUPARAM	OUTPUT+2
EN^XUTMDEVQ	ENRPT+38

Interaction Calls

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
Routine Call	DIR Line Location: PAUSE+3 BEGIN+11 END+14

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ
^%ZIS(1 - [#3.5]	GETS^DIQ
^RARPT - [#74]	GETS^DIQ
^RAO(75.1 - [#75.1]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RADPT - [#70]	ENRPT+8, ENRPT+19, OUTPUT+14, OUTPUT+16
^RADPT("ATO"	EN+5, ENRPT+3
^RAMIS(71 - [#71]	OUTPUT+17
^TMP("RA P160"	ENRPT+2!, ENRPT+24*, OUTPUT+7, LAST+9, LAST+11, EXIT+4!

Label References

Name	Line Occurrences
$$BEGIN	EN+9
$$END	EN+12
$$LAST	ENRPT+31
$$PAUSE	OUTPUT+38
$$QEOS	OUTPUT+36
EXIT	ENRPT+32
EXQUE	OUTPUT+46
HDR	OUTPUT+4, OUTPUT+39

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ENRPT+38, ENRPT+40!
%ZIS("S"	ENRPT+37*
CNT	ENRPT+2~, ENRPT+22
DIR	PAUSE+2~, BEGIN+3!, BEGIN+13!, END+5!, END+14!, END+16!
DIR("?"	BEGIN+8, BEGIN+9, BEGIN+10, END+11, END+12, END+13
DIR("A"	BEGIN+6, BEGIN+7, END+10*
DIR("B"	BEGIN+11, END+14
DIR(0	PAUSE+3, BEGIN+5, END+9*
DIROUT	PAUSE+2~, BEGIN+3!, BEGIN+13!, END+5!, END+16!
DIRUT	PAUSE+2~, BEGIN+3!, BEGIN+12, BEGIN+13!, END+5!, END+15, END+16!
DTOUT	PAUSE+2~, BEGIN+3!, BEGIN+13!, END+5!, END+16!
DUOUT	PAUSE+2~, BEGIN+3!, BEGIN+13!, END+5!, END+16!
IOF	HDR+1
IOM	HDR+2
IOSL	OUTPUT+35
IOST	OUTPUT+38, HDR+1
PP	LAST+10~, LAST+12*, LAST+13, LAST+14, LAST+15, LAST+16
Q	QEOS+8~, QEOS+9, QEOS+10
QQ	LAST+10~, LAST+13*, LAST+14, LAST+15, LAST+16
RA1	BEGIN+4~, BEGIN+5, BEGIN+11, END+6~, END+7, END+8, END+9
RA1X	END+6~, END+8*, END+12
RA2	BEGIN+4~, BEGIN+5, BEGIN+9, END+6~, END+7, END+9
RA2X	END+6~, END+7*, END+12, END+14
RA74	OUTPUT+28~
RA74(74	OUTPUT+29
RA751	OUTPUT+22~
RA751(	OUTPUT+23
RABEGIN	EN+9~*, EN+10, EN+12, ENRPT+3
RABEGIN(0	EN+10*
RAC	ENRPT+3*, ENRPT+7, ENRPT+40!
RACCNUM	ENRPT+20, ENRPT+24, ENRPT+40!, OUTPUT+11, OUTPUT+12*, OUTPUT+13, OUTPUT+33, QEOS+9, EXIT+1!
RACNI	ENRPT+17, ENRPT+18, ENRPT+19, ENRPT+24, ENRPT+40!, OUTPUT+14*, OUTPUT+16, EXIT+1!
RACNT	OUTPUT+1, OUTPUT+41, OUTPUT+42, EXIT+1!
RADATE	OUTPUT+4*, HDR+3, EXIT+1!
RADESC	ENRPT+35*, ENRPT+38, ENRPT+40!
RADFN	ENRPT+5, ENRPT+6, ENRPT+8, ENRPT+9, ENRPT+10, ENRPT+11, ENRPT+12, ENRPT+18, ENRPT+19, ENRPT+24 , ENRPT+40!, OUTPUT+13*, OUTPUT+14, OUTPUT+16, EXIT+1!
RADTE	ENRPT+3, ENRPT+4, ENRPT+6, ENRPT+7, ENRPT+18, ENRPT+24, ENRPT+40!, OUTPUT+7, OUTPUT+8, OUTPUT+9 , OUTPUT+10, OUTPUT+12, OUTPUT+13, QEOS+9, EXIT+1!
RADTI	ENRPT+7, ENRPT+8, ENRPT+19, ENRPT+24, ENRPT+40!, OUTPUT+14, OUTPUT+16, EXIT+1!
RAEND	EN+12~*, EN+13, ENRPT+4
RAEND(0	EN+13*
RAEXAMDT	OUTPUT+15*, OUTPUT+33, EXIT+1!
RAFAC	OUTPUT+2*, HDR+4, EXIT+1!
RAILOC	EXIT+1!
RALAST	ENRPT+31*, ENRPT+32, QEOS+9, EXIT+1!
RALINE	OUTPUT+1*, HDR+7, EXIT+2!
RAOIFN	OUTPUT+18*, OUTPUT+21, OUTPUT+22, OUTPUT+23, EXIT+2!
RAOSTS	OUTPUT+18, OUTPUT+23, OUTPUT+24*, OUTPUT+34, EXIT+2!
RAPAT	ENRPT+10, ENRPT+11, ENRPT+24, ENRPT+40!, OUTPUT+9*, OUTPUT+10, OUTPUT+12, OUTPUT+13, OUTPUT+33, QEOS+9 , EXIT+2!
RAPG	OUTPUT+1, HDR+1, HDR+2, HDR+3, EXIT+2!
RAPID	ENRPT+12, ENRPT+13, ENRPT+24, ENRPT+40!, OUTPUT+10*, OUTPUT+12, OUTPUT+13, OUTPUT+33, QEOS+9, EXIT+2!
RAPROC	OUTPUT+17*, OUTPUT+34, EXIT+2!
RAR	ENRPT+3, ENRPT+4, ENRPT+6, ENRPT+18, ENRPT+40!, LAST+10~, LAST+11, LAST+12, LAST+13, LAST+14 , LAST+15
RARPT	OUTPUT+19*, OUTPUT+27, OUTPUT+28, OUTPUT+29, EXIT+2!
RARPTSTS	OUTPUT+19, OUTPUT+29, OUTPUT+30*, OUTPUT+34, EXIT+2!
RARSLT	BEGIN+4~, BEGIN+12, BEGIN+14, END+6~, END+15, END+17
RARY	ENRPT+9!, ENRPT+14!
RARY(2	ENRPT+10, ENRPT+12
RASSAN	ENRPT+41!
RASSN	ENRPT+41!
RASTYP	DEVSCR+4~, DEVSCR+7*, DEVSCR+8
RATITLE	OUTPUT+3*, HDR+2, EXIT+2!
RATMP	OUTPUT+7*, OUTPUT+8, OUTPUT+9, OUTPUT+10, OUTPUT+12, OUTPUT+13, EXIT+2!
RATYP	DEVSCR+4~, DEVSCR+6*, DEVSCR+8
RAX	OUTPUT+13*, OUTPUT+14, END~, END+7, EXIT+3!, DEVSCR+4~
RAX(	DEVSCR+6, DEVSCR+7
RAXIT	OUTPUT+1, OUTPUT+8, OUTPUT+9, OUTPUT+10, OUTPUT+12, OUTPUT+35, OUTPUT+38, OUTPUT+39, OUTPUT+42*, EXIT+3!
RAY2	ENRPT+8, ENRPT+20, ENRPT+41!, OUTPUT+14, OUTPUT+15, EXIT+3!
RAY3	ENRPT+19, ENRPT+20, ENRPT+41!, OUTPUT+16, OUTPUT+17, OUTPUT+18, OUTPUT+19, EXIT+3!
RR	LAST+10~, LAST+14*, LAST+15, LAST+16
U	EN+10, EN+13, ENRPT+24, OUTPUT+13, OUTPUT+14, OUTPUT+17, OUTPUT+18, OUTPUT+19, LAST+16, QEOS+9 , BEGIN+12, END+7, END+15
VV	LAST+10~, LAST+15*, LAST+16
X	ENRPT+41!, PAUSE+2~, BEGIN+3!, BEGIN+13!, END+5!, END+16!, EXIT+3!
Y	ENRPT+41!, PAUSE+2~, PAUSE+4, BEGIN+3!, BEGIN+12, BEGIN+13!, END+5!, END+15, END+16!, EXIT+3! , DEVSCR~, DEVSCR+5, DEVSCR+6, DEVSCR+7
Y(0	BEGIN+12, END+15
>> ZTQUEUED	EXQUE+1
>> ZTREQ	EXQUE+1*
ZTSAVE	ENRPT+38, ENRPT+41!
ZTSAVE("RALAST"	ENRPT+34*
ZTSAVE("^TMP(	""RA P160"", $J)" , ENRPT+34*
ZTSK	ENRPT+39, ENRPT+41!
>> ZTSTOP	OUTPUT+42*

Customize PDF page

Package: Radiology Nuclear Medicine