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

Package	Total	Caller Graph
Order Entry Results Reporting	13	ITEMS ORCACT01 ORCSAVE2 ORWDRA32 APPROVAL ORWDRA32 DEF ORWDRA32 IMTYPSEL ORWDRA32 ISOLATN ORWDRA32 LOCTYPE ORWDRA32 PROCMSG ORWDRA32 RADLONG ORWDRA32 RADSRC ORWDRA32 RAORDITM ORWDXM3
Enterprise Health Management Platform	1	HMPCORD4

Entry Points

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

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
ORWDRA32 RADLONG	RADLONG

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+3, URGENCY+4, URGENCY+6, RADURG+2
^ORD(101.43 - [#101.43]	COMMPRO+3, COMMPRO+4, COMMPRO+5, PROCMSG+2, RADLONG+3, RADLONG+4, RADLONG+5, RADLONG+6, 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, RADLONG+2, 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+7, TRNSPRT+2, CATEGRY+2, SUBMIT+3, SUBMIT+4, SUBMIT+5, SUBMIT+10, LAST7+3
$$RADCOUNT	RADLONG+2, RAORDITM+3
$$RADURG	URGENCY+5
$$REQAPPR	COMMPRO+6, RAORDITM+10, RAORDITM+11
$$REQDET	COMMPRO+5, RADLONG+2, RAORDITM+3
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
A	URGENCY+1~, RADURG+2*
ASK	SUBMIT+1~, SUBMIT+9*, SUBMIT+10
CNT	RADLONG+1~, RADLONG+2, RADLONG+3, RADLONG+8, RADLONG+9, RAORDITM+2~, RAORDITM+3*, RAORDITM+4
DFN	ISOLATN~, ISOLATN+2
DGRP	IMTYPE~, IMTYPE+1, IMTYPSEL+1~, IMTYPSEL+8*, IMTYPSEL+9
DIR	RAORDITM~, RAORDITM+4
DT	RADLONG+7, 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+2 , URGENCY+6, URGENCY+7, SUBMIT+3, SUBMIT+4, LAST7+2, LAST7+3, PROCMSG+1~, PROCMSG+2, RAORDITM+2~, RAORDITM+3 , 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
IDX	RADLONG+1~, RADLONG+2, RADLONG+3, RADLONG+4, RADLONG+6
IEN	PROCMSG~, PROCMSG+2, RADLONG+1~, RADLONG+4, RADLONG+5, RADLONG+6, 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, RADLONG~, RADLONG+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+7, TRNSPRT+2, CATEGRY+2, SUBMIT+3, SUBMIT+4, SUBMIT+5, SUBMIT+10, LAST7+3*
MAX	RADLONG+1~, RADLONG+2*, RADLONG+3, RADLONG+9
MNEM	IMTYPSEL+1~, IMTYPSEL+7*, IMTYPSEL+8, IMTYPSEL+9
NAME	IMTYPSEL+1~, IMTYPSEL+6*, IMTYPSEL+9
ORLOC	LOCTYPE~, LOCTYPE+2, LOCTYPE+3
ORUIEN	URGENCY+2~, URGENCY+3, URGENCY+4, URGENCY+5
ORVP	ISOLATN+1~, ISOLATN+2*
ORX	DEF+1~, MODIFYR+2, COMMPRO+1~, COMMPRO+2, COMMPRO+3, COMMPRO+4, COMMPRO+6, URGENCY+2, URGENCY+3, URGENCY+4 , URGENCY+6, URGENCY+7, TRNSPRT+1, TRNSPRT+2, CATEGRY+1, CATEGRY+2, SUBMIT+1~, SUBMIT+4, SUBMIT+6, SUBMIT+7 , SUBMIT+9, RADLONG+1~, RADLONG+6, RADLONG+7, 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
REQ	RADLONG+1~, RADLONG+2, RADLONG+5, RAORDITM+2~, RAORDITM+3, RAORDITM+6
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+7, SUBMIT+4, SUBMIT+10, LAST7+3, RADLONG+5, RADLONG+7, 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
URGIEN	RADURG~, RADURG+1, RADURG+2
XREF	RADLONG+1~, RADLONG+2, RADLONG+3, RADLONG+4, RADLONG+6, RAORDITM+2~, RAORDITM+3, RAORDITM+4, RAORDITM+5, RAORDITM+7
Y	RADLONG~, RADLONG+2, RADLONG+9, 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

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: