Routine: MAGDRPCB

Information

MAGDRPCB ;WOIFO/PMK/MLS/SG - Imaging RPCs for Importer ; 16 Jan 2013 4:41 PM

Name	Comments	DBIA/ICR reference
FILM(RESULTS,FILM)	; RPC = MAG DICOM GET RAD FILM
DXCODE(RESULTS,DXCODE)	; RPC = MAG DICOM GET RAD DIAGNOSTIC CODE
CAMERA(RESULTS,CAMERA)	; RPC = MAG DICOM GET RAD CAMERA
CPTMOD(RESULTS,CPTMOD,MAGDT)	; RPC = MAG DICOM GET RAD CPT MOD ; CPTMOD = partial CPT modifier match
LOOKUP(RESULTS,SRCHVAL,FILE,XREF,FIELDS,SCREEN,MAX)	; search file
RADLST(RESULTS,MAGRADCLASS,NAME)	;
SCRUSR(IEN)	;
GETLOC(RESULTS,LOCATION)	; RPC = MAG DICOM GET HOSP LOCATION
USERNAME(RESULT)	; RPC = MAG DICOM GET USERNAME
ORDERS(ARRAY,DFN)	; RPC = MAG DICOM GET RAD ORDERS ; look up radiology orders
ORDERERR(ARRAY,MSG,ERRNUMB)	; handle FilMan errors in ORDER subroutine
IMAGELOC(RESULT,RAOIEN,RAMLC)	; RPC = MAG DICOM SET IMAGING LOCATION
ADDROOM(RETURN,RAEXAM)	; RPC = MAG DICOM ADD CAMERA EQUIP RM

RPC Name	Call Tags
MAG DICOM ADD CAMERA EQUIP RM	ADDROOM
MAG DICOM GET HOSP LOCATION	GETLOC
MAG DICOM GET RAD CAMERA	CAMERA
MAG DICOM GET RAD CPT MOD	CPTMOD
MAG DICOM GET RAD DX CODE	DXCODE
MAG DICOM GET RAD FILM	FILM
MAG DICOM GET RAD ORDERS	ORDERS
MAG DICOM GET RAD PERSON	RADLST
MAG DICOM GET USERNAME	USERNAME
MAG DICOM SET IMAGING LOCATION	IMAGELOC