Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Used in RPC
Print Page as PDF
Routine: MAGJUTL4

Package: Imaging

Routine: MAGJUTL4


Information

MAGJUTL4 ;WIRMFO/JHC - VistARad subroutines for RPC calls ; 10/17/2022

Source Information

Source file <MAGJUTL4.m>

Entry Points

Name Comments DBIA/ICR reference
CPTGRP(MAGGRY,DATA) ;
; FOR INPUT cpt code, return matching cpt's based on grouping criteria:
; INPUT in DATA: CPT Code ^ Criteria
; Criteria:
; 1=Matching cpt
; 2=Body Part
; 3=Body Part & Modality
; 10=Same CPT (used to return short description only)
; Return: List of CPTs with Short Name: CPT ^ Short Name
; MAGGRY holds $NA reference to ^TMP for rpc return
; all ref's to MAGGRY use subscript indirection
CPTGRPZ ;
GETCPTS(INDEX,VALUE,AND,OUT) ; return a list of CPTIENS in OUT
; if array AND is defined, reply only values contained in AND & the index
BODPART(CPTIEN,DLM) ; return DLM-delimited list of body part values for this CPT
MDLLST(CPTIEN,DLM) ; return DLM-delimited list of modality values for this CPT
DATADUMP(MAGGRY,DATA) ;
DDMPROCS ;
DDMPRCPT(CPTFILIEN) ;
DDMPVLD8() ;
STATCHK(MAGGRY,DATA) ;
; This may also be accessed by subroutine call. <*> do not change name of EP
; Exam Status check RPC and subroutine: determine if the exam has been Tech-Verified (at least).
; Images are assumed to be verified if Exam Status is Examined, or higher status.
; ; Input in DATA: RADFN^RADTI^RACNI^RARPT
; Input is either RADFN, RADTI, and RACNI; or, RARPT only may be input in piece 4
; Return: Code^Text
; 0 = Problem, or exam was cancelled
; 1 = Not yet verified
; 2 = Tech Verified
; 3 = Radiologist Verified
; 4 = User is a Radiology professional--always allow access
STATCHK2 ;
STATCHKZ ;
REMSCRN(MAGGRY,DATA) ;
; Input in DATA: 1/0 1=show remote only; 0=show all exams
; Return: Reply^Code~msg
; Reply -- 0=Problem; 1=Success
; Code -- 4=Error; 1=ok
; msg -- display text if error
REMSCRNZ ;
RPT2DPT(RARPT,RET) ; Input RARPT. Return RET containing exam ss values for ^RADPT
ERR1
ERR3
ERR
END
ZRUMAMMO(CPT) ;
ZRUMDLST(MAGS) ;
ZRUPUNCT(IN,STRIP,REPL) ;
ZRUREVAN(RADFN,RADTI,RACNI) ;

Used in RPC

RPC Name Call Tags
MAGJ RADSTATUSCHECK STATCHK
MAGJ CPTMATCH CPTGRP
MAGJ REMOTESCREEN REMSCRN
MAGJ MAGDATADUMP DATADUMP
Info |  Source |  Entry Points |  Used in RPC