Routine: ORWDRA32

Package	Total	Call Graph
Kernel	2	$$NOW^XLFDT $$ACTIVE^XUSER
Order Entry Results Reporting	2	$$IP^ORMBLD GETQLST^ORWDXQ
Radiology Nuclear Medicine	1	(EN2,EN4)^RAO7PC1
Toolkit	1	$$GET^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
SHORT	; from DEF, get short list of imaging quick orders
CATEGRY	; Get the categories of exam
IMTYPSEL(Y,DUMMY)	;return list of active imaging types
NXT()	; Increment index of LST
APPROVAL(Y,DUMMY)	; RETURNS LIST OF RADIOLOGISTS WHO MAY APPROVE A ; PROCEDURE WHEN REQUIRED
ISOLATN(Y,DFN)	;Is patient on isolation procedures?
MODIFYR	; Get the modifiers (should be by imaging type)
TRNSPRT	; Get the modes of transport
DEF(LST,PATID,EVTDIV,IMGTYP)	; Get dialog data for radiology
SUBMIT	; Get the locations to which the request may be submitted
PROCMSG(ORY,IEN)	; return order message for a procedure
LAST7	; Get exams for the last 7 days
IMTYPE(DGRP)	; return the mnemonic for the imaging type
COMMPRO	; Get the common procedures
REQDET()	; Are "broad" procedures allowed for this division?
LOCTYPE(Y,ORLOC)	; Returns type of location (C,W)
RAORDITM(Y,FROM,DIR,IMGTYP)	; Return a subset of orderable items ; .Return Array, Starting Text, Direction, Cross Reference (S.xxx)
RADSRC(Y,SRCTYPE)	; return list of available contract/sharing/research sources
REQAPPR(IEN)	; does procedure require radiologist approval?
URGENCY	; Get the allowable urgencies and default

External References

Name	Field # of Occurrence
$$IP^ORMBLD	ISOLATN+3
GETQLST^ORWDXQ	SHORT+2
EN2^RAO7PC1	LAST7+1
EN4^RAO7PC1	SUBMIT+2
$$NOW^XLFDT	RADSRC+4
$$GET^XPAR	SUBMIT+6, SUBMIT+7, REQDET+2, REQDET+3
$$ACTIVE^XUSER	APPROVAL+5

Used in RPC

RPC Name	Call Tags
ORWDRA32 DEF	DEF
ORWDRA32 PROCMSG	PROCMSG
ORWDRA32 RAORDITM	RAORDITM
ORWDRA32 ISOLATN	ISOLATN
ORWDRA32 APPROVAL	APPROVAL
ORWDRA32 IMTYPSEL	IMTYPSEL
ORWDRA32 RADSRC	RADSRC
ORWDRA32 LOCTYPE	LOCTYPE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(34 - [#34]	RADSRC+2, RADSRC+3, RADSRC+4, RADSRC+5
^ORD(100.98 - [#100.98]	IMTYPE+1, IMTYPSEL+8
^ORD(101.42 - [#101.42]	URGENCY+2, URGENCY+3, URGENCY+5
^ORD(101.43 - [#101.43]	COMMPRO+3, COMMPRO+4, COMMPRO+5, PROCMSG+2, RAORDITM+4, RAORDITM+5, RAORDITM+6, RAORDITM+7, REQAPPR+2, IMTYPSEL+4
^RA(79.2 - [#79.2]	MODIFYR+1, IMTYPSEL+3, IMTYPSEL+5, IMTYPSEL+6, IMTYPSEL+7
^RAMIS(71 - [#71]	REQAPPR+4
^RAMIS(71.2 - [#71.2]	MODIFYR+2
^SC - [#44]	LOCTYPE+3
^TMP($J	LAST7+1!, LAST7+2, LAST7+3, LAST7+4!
^VA(200 - [#200]	APPROVAL+3, APPROVAL+6, APPROVAL+7

Label References

Name	Line Occurrences
$$IMTYPE	DEF+3, RAORDITM+3
$$NXT	DEF+2, DEF+4, DEF+5, DEF+6, DEF+7, DEF+8, DEF+9, DEF+10, MODIFYR+2, SHORT+4 , COMMPRO+6, URGENCY+4, URGENCY+6, TRNSPRT+2, CATEGRY+2, SUBMIT+3, SUBMIT+4, SUBMIT+5, SUBMIT+10, LAST7+3
$$REQAPPR	COMMPRO+6, RAORDITM+10, RAORDITM+11
$$REQDET	COMMPRO+5, RAORDITM+6
CATEGRY	DEF+8
COMMPRO	DEF+4
LAST7	DEF+10
MODIFYR	DEF+5
SHORT	DEF+2
SUBMIT	DEF+9
TRNSPRT	DEF+7
URGENCY	DEF+6

Naked Globals

Name	Field # of Occurrence
^(	PROCMSG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASK	SUBMIT+1~, SUBMIT+9*, SUBMIT+10
CNT	RAORDITM+2~*, RAORDITM+4
DFN	ISOLATN~, ISOLATN+2
DGRP	IMTYPE~, IMTYPE+1, IMTYPSEL+1~, IMTYPSEL+8*, IMTYPSEL+9
DIR	RAORDITM~, RAORDITM+4
DT	RAORDITM+8, APPROVAL+6
DTXT	RAORDITM+2~
DUMMY	APPROVAL~, IMTYPSEL~
EVTDIV	DEF~, SUBMIT+6, REQDET+2
FROM	RAORDITM~, RAORDITM+4*, RAORDITM+5, RAORDITM+7
I	DEF+1~, MODIFYR+1, MODIFYR+2, SHORT+1~, SHORT+3, SHORT+4, COMMPRO+4, COMMPRO+5, COMMPRO+6, URGENCY+1 , URGENCY+3, URGENCY+4, URGENCY+5, URGENCY+6, SUBMIT+3, SUBMIT+4, LAST7+2, LAST7+3, PROCMSG+1~, PROCMSG+2 , RAORDITM+2~, RAORDITM+4, RAORDITM+9, RAORDITM+10, RAORDITM+11, APPROVAL+2~, APPROVAL+3, APPROVAL+5, APPROVAL+6, APPROVAL+7 , APPROVAL+8, IMTYPSEL+1~, IMTYPSEL+3, IMTYPSEL+9, RADSRC+2*, RADSRC+5
IEN	PROCMSG~, PROCMSG+2, RAORDITM+2~, RAORDITM+5, RAORDITM+6, RAORDITM+7, RAORDITM+10, RAORDITM+11, REQAPPR~, REQAPPR+2 , IMTYPSEL+1~, IMTYPSEL+5, IMTYPSEL+6, IMTYPSEL+7, IMTYPSEL+9
ILST	DEF+1~, NXT+1, NXT+2
IMGTYP	DEF~, DEF+3*, MODIFYR+1, SHORT+2, COMMPRO+3, COMMPRO+4, SUBMIT+2, RAORDITM~, RAORDITM+3
LST	DEF~
LST(	DEF+2, DEF+4, DEF+5, DEF+6, DEF+7, DEF+8, DEF+9, DEF+10, MODIFYR+2, SHORT+4 , COMMPRO+6, URGENCY+4, URGENCY+6, TRNSPRT+2, CATEGRY+2, SUBMIT+3, SUBMIT+4, SUBMIT+5, SUBMIT+10, LAST7+3
MNEM	IMTYPSEL+1~, IMTYPSEL+7*, IMTYPSEL+8, IMTYPSEL+9
NAME	IMTYPSEL+1~, IMTYPSEL+6*, IMTYPSEL+9
ORLOC	LOCTYPE~, LOCTYPE+2, LOCTYPE+3
ORVP	ISOLATN+1~, ISOLATN+2*
ORX	DEF+1~, MODIFYR+2, COMMPRO+1~, COMMPRO+2, COMMPRO+3, COMMPRO+4, COMMPRO+6, URGENCY+1, URGENCY+2, URGENCY+3 , URGENCY+4, TRNSPRT+1, TRNSPRT+2, CATEGRY+1, CATEGRY+2, SUBMIT+1~, SUBMIT+4, SUBMIT+6, SUBMIT+7, SUBMIT+9 , RAORDITM+2~, RAORDITM+7, RAORDITM+8, RAORDITM+10, RAORDITM+11, APPROVAL+2~, APPROVAL+7, APPROVAL+8, IMTYPSEL+1~, IMTYPSEL+2* , IMTYPSEL+3, IMTYPSEL+4, IMTYPSEL+5, RADSRC+1, RADSRC+2*, RADSRC+3, RADSRC+4, RADSRC+5
ORY	PROCMSG~
ORY(	PROCMSG+2*
PATID	DEF~, LAST7+1, LAST7+2, LAST7+3
RAIEN	REQAPPR+1~, REQAPPR+2*, REQAPPR+3, REQAPPR+4
REQAPPR	RAORDITM+2~
REQDET	RAORDITM+2~
RESULT	REQDET+1~, REQDET+2, REQDET+3, REQDET+4
SRCTYPE	RADSRC~, RADSRC+3
TMP	SHORT+1~, SHORT+2
TMP(	SHORT+3, SHORT+4
TMPLST	SUBMIT+1~, SUBMIT+4
TMPLST(	SUBMIT+3, SUBMIT+4
TMPLST(0	SUBMIT+4
U	MODIFYR+2, COMMPRO+5, COMMPRO+6, URGENCY+4, URGENCY+6, SUBMIT+4, SUBMIT+10, LAST7+3, RAORDITM+6, RAORDITM+8 , RAORDITM+10, RAORDITM+11, REQAPPR+2, REQAPPR+4, APPROVAL+6, APPROVAL+7, APPROVAL+8, IMTYPE+1, IMTYPSEL+6, IMTYPSEL+7 , IMTYPSEL+9, RADSRC+3, RADSRC+5, LOCTYPE+3
XREF	RAORDITM+2~, RAORDITM+3*, RAORDITM+4, RAORDITM+5, RAORDITM+7
Y	RAORDITM~, ISOLATN~, ISOLATN+3, APPROVAL~, IMTYPSEL~, RADSRC~, LOCTYPE~, LOCTYPE+1, LOCTYPE+3*
Y(	RAORDITM+10, RAORDITM+11, APPROVAL+8, IMTYPSEL+9, RADSRC+5*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDRA32

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: