MAGJUTL4 ;WIRMFO/JHC - VistARad subroutines for RPC calls ; 10/17/2022
Source file <MAGJUTL4.m>
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) | ;
|
RPC Name | Call Tags |
---|---|
MAGJ RADSTATUSCHECK | STATCHK |
MAGJ CPTMATCH | CPTGRP |
MAGJ REMOTESCREEN | REMSCRN |
MAGJ MAGDATADUMP | DATADUMP |