Routine: ORCDRA1

Information

ORCDRA1 ;SLC/MKB-Utility functions for RA dialogs ; 08 May 2002 2:12 PM

Package	Total	Call Graph
Order Entry Results Reporting	2	($$PTR,$$VAL)^ORCD $$DIV^OREVNTX
Radiology Nuclear Medicine	1	EN4^RAO7PC1
Registration	1	$$SITE^VASITE
VA FileMan	1	^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: 3

Package	Total	Caller Graph
Order Entry Results Reporting	3	ITEMS ORCDRA ORWDXM2

Entry Points

Name	Comments	DBIA/ICR reference
DIV()	; -- Returns division of ordering location
DIVQ
CKPTYPE	; -- Check procedure for Series type
VALIDWP(ROOT)	; -- Validate wp field (borrowed from VALWP^RAUTL5) ; Pass back '1' is data is valid, '0' if not valid.
CHNGCAT	; -- Kill dependent values if Category changes
MATCH(CATG)	; -- Category match pt location type?
SCHEDULD()	; -- Returns 1 or 0, if patient is scheduled for pre-op
MODE()	; -- Returns default mode of transport
ILOC	; -- Get allowable imaging locations
DEFLOC()	; -- Returns default imaging location

External References

Name	Field # of Occurrence
^DIR	SCHEDULD+4
$$PTR^ORCD	MATCH+5
$$VAL^ORCD	CKPTYPE+1
$$DIV^OREVNTX	DIV+2
EN4^RAO7PC1	ILOC+2
$$SITE^VASITE	DIV+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"This procedure modifier may not be selected with a procedure series!",! Line Location: CKPTYPE+3
Routine Call	DIR Line Location: SCHEDULD+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.41 - [#101.41]	CHNGCAT+3, MODE+2
^ORD(101.43 - [#101.43]	CKPTYPE+1
^RAMIS(71.2 - [#71.2]	CKPTYPE+2, MODE+3
^SC - [#44]	DIV+1, MATCH+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CATG	MATCH~, MATCH+3, MATCH+4
CHAR	VALIDWP+3~, VALIDWP+10*, VALIDWP+11
CNT	VALIDWP+3~, VALIDWP+6, VALIDWP+10, VALIDWP+11, ILOC+1~, ILOC+3, ILOC+4*, ILOC+6
DIR	SCHEDULD+1~
DIR("A"	SCHEDULD+3*
DIR("B"	SCHEDULD+4*
DIR(0	SCHEDULD+3*
DIROUT	SCHEDULD+1~
DIRUT	SCHEDULD+1~
DONE	CKPTYPE+4!
DT	DIV+1
DTOUT	SCHEDULD+1~, SCHEDULD+4
DUOUT	SCHEDULD+1~, SCHEDULD+4
DUZ(2	DIV+3
I	MODE+1~, MODE+2, MODE+4, DEFLOC+1~, DEFLOC+2*
IFN	ILOC+1~, ILOC+3*, ILOC+4, ILOC+5
ITYPE	ILOC+1~, ILOC+2*
M	MODE+1~, MODE+2*, MODE+4
>> ORDG	ILOC+2
>> ORDIALOG(	CKPTYPE+4!, CHNGCAT+4!, MATCH+5, SCHEDULD+2, MODE+4, ILOC+1!, ILOC+4, ILOC+5, ILOC+6, DEFLOC+1 , DEFLOC+2
>> ORDIV	DEFLOC+2
>> OREVENT	DIV+1, DIV+2, MATCH+1
>> ORI	CKPTYPE+4
>> ORL	DIV+1, MATCH+2
>> ORQUIT	SCHEDULD+4*
>> ORTYPE	MODE+1
>> ORWARD	MODE+5
ORY	ILOC+1~
ORY(	ILOC+3, ILOC+4, ILOC+5
P	CHNGCAT+1~, CHNGCAT+2, CHNGCAT+3, MODE+1~, MODE+3, MODE+4
>> PROMPT	CKPTYPE+4, SCHEDULD+2, ILOC+1, ILOC+4, ILOC+5, ILOC+6, DEFLOC+1, DEFLOC+2
PTR	CHNGCAT+1~, CHNGCAT+3*, CHNGCAT+4
PTYPE	CKPTYPE+1~*, CKPTYPE+2
ROOT	VALIDWP~, VALIDWP+2, VALIDWP+5, VALIDWP+7
SCREEN	MATCH+2~, MATCH+3, MATCH+4, MATCH+5
TYPE	MATCH+2~*, MATCH+3, MATCH+4
U	DIV+1, CKPTYPE+1, CKPTYPE+2, MATCH+2, ILOC+2, ILOC+4, ILOC+5, DEFLOC+2
WL	VALIDWP+3~, VALIDWP+6, VALIDWP+8, VALIDWP+9
WPFLG	VALIDWP+3~, VALIDWP+4, VALIDWP+5, VALIDWP+9, VALIDWP+11, VALIDWP+12
X	VALIDWP+3~, VALIDWP+4, VALIDWP+5, VALIDWP+7, SCHEDULD+1~, DEFLOC+1~, DEFLOC+2, DEFLOC+3
Y	DIV+1~, DIV+2, DIV+3, DIVQ, CKPTYPE+2, VALIDWP+3~, VALIDWP+7, VALIDWP+8, VALIDWP+10, MATCH+2~* , MATCH+5, MATCH+6, SCHEDULD+1~, SCHEDULD+5, MODE+4, MODE+5, MODE+6, ILOC+6
Z	VALIDWP+3~, VALIDWP+9*, VALIDWP+10

Customize PDF page

Package: Order Entry Results Reporting