Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ORWDRA32

Package: Order Entry Results Reporting

Routine: ORWDRA32


Information

ORWDRA32 ; SLC/KCM/REV/JDL - Radiology calls to support windows [6/28/02] ;04/13/10 12:43

Source Information

Source file <ORWDRA32.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Order Entry Results Reporting 8 ORWDRA32 APPROVAL  ORWDRA32 DEF  ORWDRA32 IMTYPSEL  ORWDRA32 ISOLATN  ORWDRA32 LOCTYPE  ORWDRA32 PROCMSG  ORWDRA32 RADSRC  ORWDRA32 RAORDITM  
Enterprise Health Management Platform 1 HMPCORD4  

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All