MAGJUTL1 ;WIRMFO/JHC - VistARad subroutines for RPC calls ; 10/17/2022
Source file <MAGJUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETEXAM3(DFN,BEGDT,ENDT,MAGRACNT,MAGRET,MORE,LIMEXAMS) | ; Get data for all exams for a
; pt within a date range ; limit to LIMEXAMS entries--note, only PREFETCH & Auto-route Priors use this ; Input: ; DFN -- Patient DFN ; BEGDT -- Opt, earliest date desired ; ENDT -- Opt, latest date desired ; MAGRACNT -- Opt, pass by ref to init counter to ref return data in ^TMP (see GETEXSET) ; MORE -- Opt, If True, check for additional exams for pt ; LIMEXAMS -- Opt, limit # exams to return ; Return: ; MAGRACNT -- highest counter for return data ; MAGRET -- 1/0: exam was/not found ; MORE -- more exams exist for pt on & B4 this date ; ^TMP -- data returned (see GETEXSET) |
|
| MORE1 | ||
| GETEXAM2(DFN,DTI,CNI,MAGRACNT,MAGRET) | ; Fetch data for one exam
|
|
| GETEXSET(RADFN,EXID,MAGRET) | ;
; Used by GETEXAM* subroutines above to set up rad data for vrad ; Input: ; RADFN -- Pt DFN ; EXID --- RADTI_"-"_RACNI, pointers to Rad exam ; Output: ; MAGRET- 1/0: an exam was/was not filed ; ^TMP($J,"MAGRAEX",MAGRACNT)=Data String (see code at end) ; MAGRACNT described in above subroutines |
|
| RIST(RIST1,RIST2) | ; return Interp Radiologist info
|
|
| IMGSIT(DIV,DFLT) | ; Return Imaging Site code for input Division
; From 2006.1: IEN ^ Site Code ^ Parent_DIV |
|
| TRIM(X) | ; Trim trailing spaces from X
|
|
| END |
