Routine: RAORDP

Package	Total	Call Graph
Radiology Nuclear Medicine	4	(CLOSE,D,DATE,ZIS)^RAUTL (IPOP,OMA)^RAUTL13 $$EOS^RAUTL5 STOPCHK^RAUTL9
VA Fileman	2	(,DD)^%DT ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA ORDERPENDING

Entry Points

Name	Comments	DBIA/ICR reference
SETTMP	; set-up ^TMP($J
CONT	;
HDR	; header
EOS	; end of screen
START	; start report processing
WRT	;
KILL
DATE	; Output 'Desired Date'
MORE

External References

Name	Field # of Occurrence
^%DT	START+4
DD^%DT	WRT+2, DATE+1
^DIR	RAORDP+8
CLOSE^RAUTL	KILL+5
D^RAUTL	START+4
DATE^RAUTL	RAORDP+12
ZIS^RAUTL	RAORDP+13
IPOP^RAUTL13	MORE+3
OMA^RAUTL13	RAORDP+11
$$EOS^RAUTL5	EOS+1
STOPCHK^RAUTL9	HDR+6, SETTMP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will generate a list of requests for a selected date",!,"range with the status of 'PENDING' or 'HOLD'",! Line Location: RAORDP+7
Function Call: WRITE	Prompt: ! Line Location: RAORDP+10
Function Call: WRITE	Prompt: ! Line Location: KILL+0
Function Call: WRITE	Prompt: !?2,"No requests "_$S(RAREQSTA=5:"pending",1:"on hold")_" for "_RAOBEG("X")_" to "_RAOEND("X")_".",! Line Location: CONT+3
Function Call: WRITE	Prompt: !,$S($D(^DPT(RADFN,0)):$E($P(^(0),"^"),1,19)_" -"_$E($P(^(0),"^",9),6,9),1:"Unknown"),?26,$S($D(^RAMIS(71,RAPR,0)):$E($P(^(0),"^"),1,24),1:"Unknown"),?52,$E(RALOCN,1,14) Line Location: WRT+1
Function Call: WRITE	Prompt: ?67,Y Line Location: WRT+2
Function Call: WRITE	Prompt: !?36,"Requesting Loc: ",RARLOCN Line Location: WRT+3
Function Call: WRITE	Prompt: !?(80-$L(RAHDR)/2),RAHDR Line Location: HDR+2
Function Call: WRITE	Prompt: !?14,"Includes requests scheduled from ",RAOBEG("X")," to ",RAOEND("X") Line Location: HDR+3
Function Call: WRITE	Prompt: !,"PATIENT NAME",?30,"PROCEDURE",?52,"PT LOC",?67,"DATE ORDERED",!,QQ,! Line Location: HDR+5
Function Call: WRITE	Prompt: !!?(80-X/2),"Desired Date (Time optional): ",Y,!?(80-X/2) Line Location: DATE+1
Function Call: WRITE	Prompt: Y,! Line Location: DATE+1
Routine Call	DIR Line Location: RAORDP+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WRT+1
^RA(79.1 - [#79.1]	START+6, HDR+4
^RAMIS(71 - [#71]	WRT+1
^RAO(75.1 - [#75.1]	START+8, START+9, START+10, MORE+1
^SC - [#44]	HDR+4
^TMP($J	KILL+1!, CONT+5, MORE, SETTMP+2*

Label References

Name	Line Occurrences
CONT	START+15
DATE	CONT+5
EOS	CONT+1, CONT+3, WRT+5
HDR	CONT+2, WRT+5
KILL	RAORDP+9, RAORDP+11, RAORDP+12, RAORDP+13, START+13
MORE	CONT+5
SETTMP	START+11, START+12
WRT	MORE+4

Naked Globals

Name	Field # of Occurrence
^(	MORE
^(0	START+10, WRT+1, HDR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	START+4*!
BEGDATE	RAORDP+12!, KILL+3!
CNT	KILL+2!
DDH	KILL+6!
DFN	KILL+6!
DIC	KILL+2!
DIR	RAORDP+8!
DIR("A"	RAORDP+8*
DIR("B"	RAORDP+8*
DIR(0	RAORDP+8*
DIROUT	KILL+2!
DIRUT	RAORDP+9, KILL+2!
DISYS	KILL+6!
DTOUT	KILL+2!
DUOUT	KILL+2!
ENDDATE	RAORDP+12!, KILL+3!
I	KILL+2!
IO	START+1
IOF	HDR+1
IOSL	WRT+5
IOST	CONT+1, CONT+3
POP	KILL+6!
QQ	START+1*, KILL+2!, HDR+5
RA791IEN	START+6*, START+7!
RACNT	START+15, KILL+2!, MORE+1, WRT+5
RADDT	RAORDP+12*!, KILL+2!
RADFN	START+7, START+8, START+9, KILL+2!, CONT+5*, MORE, WRT+1, SETTMP+2
RADLOCS	KILL+2!
RADT	KILL+2!, CONT+5*, MORE, DATE+1
RAEOS	START+8, START+9, START+13, START+15, KILL+2!, CONT+1, CONT+2, CONT+3, CONT+5, MORE , WRT+5, HDR+6, SETTMP+1, EOS+2*
RAHDR	START+1*, KILL+2!, HDR+2
RAHDRDSH	START+1*, KILL+2!
RAILOC	START+10, START+11, START+12, START+14, START+15*, KILL+2!, CONT+1, CONT+3, CONT+4, CONT+5 , MORE, WRT+4, WRT+5, HDR+4, SETTMP+2, SETTMP+3, SETTMP+4
RAIMTYP	START+10*, START+12, KILL+2!
RALOC	KILL+2!
RALOC(	START+6
RALOC(0	RAORDP+11
RALOC1	KILL+2!
RALOC1(	START+6, START+11, START+15, CONT+3, CONT+4, WRT+5, SETTMP+4
RALOC1("UNKNOWN"	SETTMP+3*
RALOCIT	KILL+2!
RALOCIT(	START+6*, START+12
RALOCN	KILL+3!, MORE+2!, WRT+1
RALOCNM	START+1, START+6, START+7!
RALOCS	KILL+3!
RALOCSAV	KILL+3!
RAMES	KILL+4!
RANOSCRN	RAORDP+11*!
RAO	KILL+3!, MORE*, MORE+1
RAO(0	START+10*, SETTMP+2
RAOBEG	RAORDP+12*, START+2, KILL+3!, SETTMP+2
RAOBEG("X"	START+2*, CONT+3, HDR+3
RAODT	START+10*, KILL+3!, SETTMP+2
RAOEND	RAORDP+12*, START+3, KILL+3!, SETTMP+2
RAOEND("X"	START+3*, CONT+3, HDR+3
RAOIFN	START+9*, START+10, KILL+3!, SETTMP+2
RAOLOC	START+1, KILL+3!, CONT+1, CONT+4, WRT+4, WRT+5
RAOLOC(0	CONT+4!, WRT+5!
RAORD0	KILL+3!, MORE+1*
RAPOP	RAORDP+12, RAORDP+13, KILL+3!
RAPR	KILL+3!, MORE*, WRT+1
RAQUIT	RAORDP+11, KILL+3!
RARDT	KILL+3!, MORE*, WRT+2
RAREQSTA	RAORDP+10*, START+1, START+9, KILL+3!, CONT+3
RARLOCN	MORE+2!, WRT+3
RARUNDTE	START+4*, KILL+3!, HDR+4
VAERR	KILL+6!
X	START+4, KILL+4!, DATE+1, EOS+1*, EOS+2
Y	RAORDP+10, START+4, KILL+4!, WRT+2, DATE+1
ZTDESC	KILL+4!
>> ZTQUEUED	START+5, HDR+6, SETTMP+1
>> ZTREQ	START+5*
ZTRTN	RAORDP+13*, KILL+4!
ZTSAVE	KILL+4!
ZTSAVE("RALOC("	RAORDP+13*
ZTSAVE("RAOBEG"	RAORDP+13*
ZTSAVE("RAOEND"	RAORDP+13*
ZTSAVE("RAREQSTA"	RAORDP+13*
>> ZTSTOP	HDR+6, SETTMP+1

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORDP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: