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] ;Oct 19, 2020@08:05:39

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

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

Caller Graph

Caller Graph Total: 14

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