Routine: RAORDU1

Information

RAORDU1 ;HISC/CAH - AISC/SAW-Utility for Rad/NM Orders Module ;05/15/09 12:56

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Radiology Nuclear Medicine	3	BADISP^RABWORD1 $$ORVR^RAORDU ASK^RAUTL4
VA FileMan	3	^DIR ^DIWP ^DIWW

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: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA CREATE OE/RR PROTOCOL RAORD1

Entry Points

Name	Comments	DBIA/ICR reference
CP	;Create protocols for Rad/Nuc Med in OE/RR Protocol file (#100)
CP1
Q
CP2
DISP	;Display request with defaults
BADISP
DISREA(X)	;this function formats and displays the reason for study for this

External References

Name	Field # of Occurrence
^DIR	CP+11, BADISP+4
^DIWP	BADISP+2, DISREA+6
^DIWW	BADISP+3
BADISP^RABWORD1	BADISP
$$ORVR^RAORDU	CP+3, DISP+10
ASK^RAUTL4	CP+9, CP+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"In order to use this option, your site must be running version 2.5 of the",!,"Order Entry/Results Reporting package." Line Location: CP+3
Function Call: WRITE	Prompt: !,$C(7),"There is no entry for the Radiology/Nuclear Medicine package in your Package",!,"file (#9.4), unable to proceed. Contact your site manager." Line Location: CP+6
Function Call: WRITE	Prompt: !,$C(7),"You do not have a default Radiology/Nuclear Medicine protocol in your",!,"Protocol file (#101), unable to continue. Contact your site manager." Line Location: CP+7
Function Call: WRITE	Prompt: !!?10,"Create an OE/RR Protocol from a Radiology/Nuclear Medicine",!?10,"Common Procedure",! Line Location: CP+8
Function Call: WRITE	Prompt: !,$C(7),"The Common Procedures file does not have any entries from which to choose." Line Location: CP+10
Function Call: WRITE	Prompt: !!,"Processing the ",$P(^RAMIS(71,+Y,0),"^")," procedure.",! Line Location: CP1+0
Function Call: WRITE	Prompt: !,$C(7),"You must enter an 'Imaging Location' before this procedure can be processed",!,"as an orderable item in OE/RR." Line Location: CP2+0
Function Call: WRITE	Prompt: !,$C(7),"You must enter a 'Name of Ordeable Item' before this procedure can be processed",!,"as an orderable item in OE/RR." Line Location: CP2+1
Function Call: WRITE	Prompt: !!,J Line Location: DISP+2
Function Call: WRITE	Prompt: !?10,"Patient: ",RANME Line Location: DISP+4
Function Call: WRITE	Prompt: " Pregnant at time of order entry: ",$S(RAPREG="y":"YES",RAPREG="u":"UNKNOWN",RAPREG="n":"NO",1:"") Line Location: DISP+4
Function Call: WRITE	Prompt: !?8,"Procedure: ",$S($D(^RAMIS(71,RAPRI,0)):$P(^(0),"^"),1:"UNKNOWN"),!?2,"Proc. Modifiers: ",RAMOD Line Location: DISP+5
Function Call: WRITE	Prompt: !?9,"Category: ",RACAT,?49,"Mode of Transport: ",$P(RAMT,"^",2) Line Location: DISP+6
Function Call: WRITE	Prompt: !," Desired Date: ",RAWHEN,?46,"Isolation Procedures: ",$S(RAIP="y":"YES",1:"NO") Line Location: DISP+7
Function Call: WRITE	Prompt: !," Request Urgency: ",$S($D(RARU):$P($P(^DD(75.1,6,0),RARU_":",2),";"),1:"ROUTINE"),?46,"Scheduled for Pre-op: ",$S($D(RAPREOP1):"YES",1:"NO") Line Location: DISP+8
Function Call: WRITE	Prompt: !,"Submit Request To: ",$S($D(^RA(79.1,+RAILOC,0)):$S($D(^SC(+$P(^(0),"^"),0)):$P(^(0),"^"),1:"Unknown"),1:"Unknown") Line Location: DISP+9
Function Call: WRITE	Prompt: ?46,"Nature of order: SVC CORRECTION" Line Location: DISP+10
Function Call: WRITE	Prompt: !,J Line Location: BADISP+3
Function Call: WRITE	Prompt: !," Reason for Study: " Line Location: DISREA+7
Routine Call	DIR Line Location: CP+11 BADISP+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(75.1	DISP+6, DISP+8
^DIC(9.4 - [#9.4]	CP+6, CP2+7
^ORD(101 - [#101]	CP+7, CP2+7
^RA(79.1 - [#79.1]	CP2, DISP+9
^RAMIS(71 - [#71]	CP+9, CP1, DISP+5
^RAMIS(71.2 - [#71.2]	CP2+5, DISP+3
^RAMIS(71.3 - [#71.3]	CP+9, CP2+5
^SC - [#44]	DISP+9, DISP+10
^TMP($J	CP+8!, CP+9*, CP1, Q!, BADISP+2
^UTILITY($J	BADISP+2!, DISREA+7, DISREA+9, DISREA+10!

Label References

Name	Line Occurrences
CP1	CP+11
CP2	CP1
DISREA	DISP+11
Q	CP+3, CP+6, CP+7, CP+10, CP+11, CP+12

Naked Globals

Name	Field # of Occurrence
^(	CP+9, CP2, CP2+5, BADISP+2, DISREA+9
^(0	CP+9, CP2+5, CP2+7, DISP+5, DISP+9
^(1	BADISP+2!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DISREA+4~
%1	Q!
D	Q!
D0	Q!
DA	CP1*, Q!, CP2+5
DI	Q+1!
DIC	Q!
DIE	Q!
DIG	Q+1!
DIH	Q+1!
DIR	Q!, BADISP+4!
DIR("A"	CP+11, BADISP+4
DIR("B"	BADISP+4*
DIR(0	CP+11, BADISP+4
DIU	Q+1!
DIV	Q+1!
DIW	DISREA+4~
DIWF	BADISP+2, DISREA+4~, DISREA+6
DIWI	DISREA+4~
DIWL	BADISP+2, DISREA+4~, DISREA+6, DISREA+7, DISREA+9, DISREA+10
DIWR	BADISP+2*, DISREA+4~
DIWT	DISREA+4~
DIWTC	DISREA+4~
DIWX	DISREA+4~
DN	DISREA+4~
DQ	Q+1!
DR	Q!
>> DTOUT	BADISP+4
>> DUOUT	BADISP+4
I	CP+8, CP+9, Q!, DISP+3, BADISP+2, DISREA+4~, DISREA+7, DISREA+9
J	Q!, CP2+5, DISP+2, BADISP+3
K	Q!, CP2+5*
LINES	DISREA+4~, DISREA+7*, DISREA+9
>> ORDA	CP2+7*
ORDEF	CP+7*, Q!
OREA	Q!, CP2+3, CP2+4, CP2+5, CP2+6
ORFL	Q!, CP2+3*, CP2+7
ORPKG	CP+6*, Q!, CP2+7
ORTXT	Q!, CP2+1*, CP2+2!, CP2+7
RA1	CP2+7~*
>> RAACI	DISP+3*, DISP+6
>> RABWDX	BADISP
>> RABWDX(1	BADISP
>> RACAT	DISP+6
RACNT	CP+8, CP+9, CP+10, CP+11, CP+12, Q!
>> RADR1	BADISP+4*
>> RADR2	BADISP+4*
RADUP	CP+12, Q!
RADUP(	CP1
RADUP(1	CP+11*
RAERR	Q!, CP2, CP2+1, CP2+2
RAF1	CP+8*, Q!
RAI	CP1, Q!, DISP+3
RAILOC	Q!, CP2*!, CP2+2!, CP2+3, DISP+9
>> RAIP	DISP+7*
>> RALIFN	DISP+10
>> RAMOD	DISP+1, DISP+3, DISP+5
>> RAMOD(	DISP+3
>> RAMT	DISP+6*
>> RANME	DISP+4
>> RAOUT	BADISP+4*
RAPAR	Q!
>> RAPREG	DISP+4*
>> RAPREOP1	DISP+8
>> RAPRI	DISP+5
>> RAREAST	DISP+11
>> RARU	DISP+8*
RASEL	Q!
>> RASEX	DISP+4
>> RASTOP	BADISP+4*
>> RAWHEN	DISP+7
U	DISP+3, DISP+10, BADISP
X	CP+8, CP+9, CP+10, CP+12, Q!, CP2+4, CP2+5, BADISP+2, DISREA~
Y	CP+9, CP+11, CP1, Q!, CP2, CP2+1, CP2+3, CP2+4, BADISP+4
Z	Q!, CP2+4*, DISREA+4~

Customize PDF page

Package: Radiology Nuclear Medicine