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 |
