Routine: RAORDP

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

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA ORDERPENDING

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	START+4
DD^%DT	WRT+1, WRT+2
$$GET1^DIQ	WRT+6, WRT+7
^DIR	RAORDP+8, RAORDP+13
CLOSE^RAUTL	KILL+5
D^RAUTL	START+4
DATE^RAUTL	RAORDP+16
ZIS^RAUTL	RAORDP+18
IPOP^RAUTL13	MORE+8, MORE2+8
OMA^RAUTL13	RAORDP+11
$$EOS^RAUTL5	EOS+1
STOPCHK^RAUTL9	HDR+10, 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: RAORDP+15
Function Call: WRITE	Prompt: !!,"This report requires a 132 column output device." Line Location: RAORDP+18
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+4
Function Call: WRITE	Prompt: !?2,"No requests "_$S(RAREQSTA=5:"pending",1:"on hold")_" for "_RAOBEG("X")_" to "_RAOEND("X")_".",! Line Location: CONT2+3
Function Call: WRITE	Prompt: !,$S($D(^DPT(RADFN,0)):$E($P(^(0),"^"),1,19),1:"Unknown"),?21,$E($P(^DPT(RADFN,0),"^",9),6,9),?27,$S($D(^RAMIS(71,RAPR,0)):$E($P(^(0),"^"),1,24),1:"Unknown"),?53,$P(RAORDT,"@") Line Location: WRT+3
Function Call: WRITE	Prompt: ?67,$P(RADD,"@") Line Location: WRT+4
Function Call: WRITE	Prompt: ?67,Y Line Location: WRT+5
Function Call: WRITE	Prompt: ?81,$S(RAREQSTA=3:RALADTX,1:$E($$GET1^DIQ(200,RAOPHY,.01),1,19)) Line Location: WRT+6
Function Call: WRITE	Prompt: ?95,$E($$GET1^DIQ(75.2,RAOREA,.01),1,28) Line Location: WRT+7
Function Call: WRITE	Prompt: ?102,$E(RALOCN,1,28) Line Location: WRT+8
Function Call: WRITE	Prompt: !?36,"Requesting Loc: ",RARLOCN Line Location: WRT+9
Function Call: WRITE	Prompt: !?(80-$L(RAHDR)/2),RAHDR Line Location: HDR+2
Function Call: WRITE	Prompt: !?19,"Includes requests from ",RAOBEG("X")," to ",RAOEND("X") Line Location: HDR+4
Function Call: WRITE	Prompt: !,"PATIENT NAME",?21,"SSN",?27,"PROCEDURE",?53,"DATE ORDERED",?67,"DATE DESIRED" Line Location: HDR+6
Function Call: WRITE	Prompt: ?81,$S(RAREQSTA=3:"HOLD DATE",1:"ORDERING PROVIDER") Line Location: HDR+7
Function Call: WRITE	Prompt: ?95,"HOLD REASON",!,QQ,!! Line Location: HDR+8
Function Call: WRITE	Prompt: ?102,"PT LOC",!,QQ,!! Line Location: HDR+9
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 RAORDP+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^RA(75.2 - [#75.2]	GET1^DIQ

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	MORE+2, MORE2+2
^(0	START+10, WRT+3, HDR+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORDP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: