ORWDRA32 ; SLC/KCM/REV/JDL - Radiology calls to support windows [6/28/02] ;Oct 19, 2020@08:05:39
Source file <ORWDRA32.m>
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) | ;
|
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 |