Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: MAGJUTL1

Package: Imaging

Routine: MAGJUTL1


Information

MAGJUTL1 ;WIRMFO/JHC VistARad subroutines for RPC calls ; 3 Jul 2013 10:48 AM

Source Information

Source file <MAGJUTL1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 3 EN1^RAO7PC1  SETDATA^RAO7PC1A  D^RAUTL  
VA FileMan 2 DT^DICRW  EN^DIQ1  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  
Imaging 1 $$USERINF^MAGJUTL3  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Imaging 15 MAGJEX1  MAGJEX2  MAGJLS3  MAGJLS3A  MAGJLS4  MAGJLST1  MAGJMN1  MAGJORD  
MAGJPRF1  MAGJRPT  MAGJRT  MAGJUPD1  MAGJUTL3  MAGNPCHE  MAGNUTL2  

Entry Points

Name Comments DBIA/ICR reference
GETEXAM2(DFN,DTI,CNI,MAGRACNT,MAGRET) ; Fetch data for one exam
RIST(RIST1,RIST2) ; return Interp Radiologist info
END
MORE1
IMGSIT(DIV,DFLT) ; Return Imaging Site code for input Division
; From 2006.1: IEN ^ Site Code ^ Parent_DIV
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
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)
TRIM(X) ; Trim trailing spaces from X

External References

Name Field # of Occurrence
DT^DICRW GETEXAM3+16
EN^DIQ1 GETEXSET+61, GETEXSET+63
$$MOD^ICPTMOD GETEXSET+36
$$USERINF^MAGJUTL3 RIST+5, RIST+6
EN1^RAO7PC1 GETEXAM3+23, MORE1+2
SETDATA^RAO7PC1A GETEXAM2+22
D^RAUTL GETEXSET+65
PID^VADPT6 GETEXSET+74

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GETEXSET+73
^MAG(2006.1 - [#2006.1] IMGSIT+3, IMGSIT+4, IMGSIT+6
^RA(72 - [#72] MORE1+1, GETEXSET+72
^RADPT - [#70] MORE1, MORE1+5, GETEXSET+22, GETEXSET+29, GETEXSET+35, GETEXSET+53, GETEXSET+55
^RAMIS(71.2 - [#71.2] GETEXSET+30
^SC - [#44] GETEXSET+59
^TMP($J GETEXAM3+23!, GETEXAM3+25, GETEXAM3+28!, GETEXAM3+32, MORE1+3, MORE1+4!, GETEXAM2+22!, GETEXAM2+26!, GETEXSET+18, GETEXSET+77!
, GETEXSET+78*, GETEXSET+79*
^VA(200 - [#200] GETEXSET+54

Label References

Name Line Occurrences
$$IMGSIT GETEXSET+79
$$RIST GETEXSET+64
$$TRIM GETEXSET+30, GETEXSET+36
GETEXSET GETEXAM3+27, GETEXAM2+24
MORE1 MORE1+5

Naked Globals

Name Field # of Occurrence
^( MORE1, GETEXSET+29, GETEXSET+35, GETEXSET+53, IMGSIT+3
^("CMOD" GETEXSET+22
^("COMP" GETEXSET+22
^("M" GETEXSET+22
^("RX" GETEXSET+22
^("TC" GETEXSET+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT GETEXAM3~, GETEXAM3+18*, GETEXAM3+21*, GETEXAM3+22, GETEXAM3+23, GETEXAM3+31
CNI GETEXAM3+30~, GETEXAM3+31*, GETEXAM3+32*, MORE1*, MORE1+5*, GETEXAM2~, GETEXAM2+24
COMPLIC GETEXSET+12~, GETEXSET+22*, GETEXSET+23*, GETEXSET+79
CPTMOD GETEXSET+13~, GETEXSET+22*, GETEXSET+33
CT GETEXSET+25~, GETEXSET+26*, GETEXSET+32*, GETEXSET+38*, GETEXSET+40
DA GETEXSET+56!, GETEXSET+61*!, GETEXSET+63*!
DAYCASE GETEXSET+12~, GETEXSET+69*, GETEXSET+70*, GETEXSET+78
DFLT IMGSIT~, IMGSIT+4
DFN GETEXAM3~, GETEXAM3+22, GETEXAM3+23, GETEXAM3+25, GETEXAM3+27, MORE1, MORE1+2, MORE1+3, MORE1+5, GETEXAM2~
, GETEXAM2+17, GETEXAM2+24, GETEXSET+74*
DIC GETEXSET+56!, GETEXSET+61*!, GETEXSET+63*!
DIQ GETEXSET+56!, GETEXSET+61*!, GETEXSET+63*!
DIQUIET GETEXAM3+16~*
DIV IMGSIT~, IMGSIT+2, IMGSIT+3
DR GETEXSET+56!, GETEXSET+61*!, GETEXSET+63*!
DT GETEXAM3+16, GETEXAM3+18
DTCHK GETEXAM3+30~, MORE1+2*
DTI GETEXAM3+30~, GETEXAM3+31*, GETEXAM3+32*, MORE1, MORE1+2, MORE1+5*, MORE1+6, GETEXAM2~, GETEXAM2+17, GETEXAM2+24
ENDT GETEXAM3~, GETEXAM3+18*, GETEXAM3+21*, GETEXAM3+22, GETEXAM3+23
EX1 GETEXAM3+24~, GETEXAM3+26*, GETEXAM3+27*
EX2 GETEXAM3+24~, GETEXAM3+26*, GETEXAM3+27*
EXID GETEXAM3+24~*, GETEXAM3+25*, GETEXSET~, GETEXSET+15, GETEXSET+18
>> I GETEXSET+40*, TRIM+2*, TRIM+3
IEN GETEXSET+25~, GETEXSET+28*, GETEXSET+29*, GETEXSET+34*, GETEXSET+35*, GETEXSET+52*, GETEXSET+53*, IMGSIT+3~*, IMGSIT+4*, IMGSIT+6
IMTYPABB GETEXSET+11~, GETEXSET+68*, GETEXSET+78
LIMEXAMS GETEXAM3~, GETEXAM3+17*, GETEXAM3+23
LONGACN GETEXSET+13~, GETEXSET+24*, GETEXSET+70
LRFLAG GETEXSET+13~, GETEXSET+39*, GETEXSET+47*, GETEXSET+48*, GETEXSET+49*, GETEXSET+79
MAGRACNT GETEXAM3~, GETEXAM3+20*, GETEXAM3+32, GETEXAM2~, GETEXAM2+21*, GETEXSET+76*, GETEXSET+77, GETEXSET+78, GETEXSET+79
MAGRET GETEXAM3~, GETEXAM3+20*, GETEXAM3+25*, GETEXAM3+31, GETEXAM2~, GETEXAM2+23*, GETEXAM2+25*, GETEXSET~, GETEXSET+15*, GETEXSET+80*
MEDS GETEXSET+14~, GETEXSET+22*, GETEXSET+79
MODS GETEXSET+25~
MODS( GETEXSET+32*, GETEXSET+38*, GETEXSET+40
MODTXT GETEXSET+13~, GETEXSET+39*, GETEXSET+45*, GETEXSET+46*, GETEXSET+79
MORE GETEXAM3~, GETEXAM3+19, GETEXAM3+20*, MORE1, MORE1+3*, MORE1+5, MORE1+6*
MORECHK GETEXAM3+19~*, GETEXAM3+29
PROCMOD GETEXSET+11~, GETEXSET+22*, GETEXSET+27
RABNOR GETEXAM2+19~
RABNORMR GETEXAM2+20~
RACN GETEXSET+10~, GETEXSET+67*, GETEXSET+69, GETEXSET+78
RACNI GETEXSET+10~, GETEXSET+15*, GETEXSET+16, GETEXSET+22, GETEXSET+29, GETEXSET+35, GETEXSET+53, GETEXSET+78
RACNT GETEXAM2+16~, GETEXAM2+17*, GETEXAM2+23
RACPT GETEXAM2+20~, GETEXSET+11~, GETEXSET+68*, GETEXSET+78
RACSE GETEXAM2+19~
RADATA GETEXSET+10~, GETEXSET+18*, GETEXSET+19, GETEXSET+20, GETEXSET+21, GETEXSET+67, GETEXSET+68
RADATE GETEXSET+10~, GETEXSET+65*, GETEXSET+78
RADFN GETEXAM2+16~, GETEXAM2+17*, GETEXSET~, GETEXSET+18, GETEXSET+22, GETEXSET+29, GETEXSET+35, GETEXSET+53, GETEXSET+55, GETEXSET+73
, GETEXSET+74, GETEXSET+78
RADIAG GETEXAM2+19~
RADIV GETEXSET+13~, GETEXSET+17*, GETEXSET+55*, GETEXSET+79
RADTE GETEXSET+10~, GETEXSET+65*, GETEXSET+69, GETEXSET+78
RADTI GETEXSET+10~, GETEXSET+15*, GETEXSET+16, GETEXSET+22, GETEXSET+29, GETEXSET+35, GETEXSET+53, GETEXSET+55, GETEXSET+65, GETEXSET+78
RADTPRT GETEXSET+10~, GETEXSET+65*, GETEXSET+66*, GETEXSET+78
RAELOC GETEXSET+10~, GETEXSET+67*, GETEXSET+78
RAEXN GETEXAM2+16~, GETEXAM2+17*
RAIBDT GETEXAM2+16~, GETEXAM2+17*
RANME GETEXSET+10~, GETEXSET+73*, GETEXSET+78
RANO GETEXAM2+19~
RAPRC GETEXAM2+19~, GETEXSET+11~, GETEXSET+67*, GETEXSET+78
RAREX GETEXAM2+19~
RARPT GETEXAM2+19~, GETEXSET+11~, GETEXSET+20*, GETEXSET+78
RARPTST GETEXAM2+19~
RASSN GETEXSET+11~, GETEXSET+74*, GETEXSET+78
RAST GETEXSET+11~, GETEXSET+23*, GETEXSET+72, GETEXSET+78
RASTCAT GETEXSET+13~, GETEXSET+71*, GETEXSET+72*, GETEXSET+79
RASTNM GETEXAM2+19~, GETEXSET+11~, GETEXSET+21*, GETEXSET+71
RASTORD GETEXSET+11~, GETEXSET+21*, GETEXSET+78
RASTP GETEXSET+11~, GETEXSET+71*, GETEXSET+78
RAXAM GETEXAM2+19~
RAXID GETEXAM2+19~
RAXIT GETEXAM2+16~, GETEXAM2+17*
RDIOPHARM GETEXSET+14~, GETEXSET+24*, GETEXSET+79
REQLOC GETEXSET+12~, GETEXSET+23*, GETEXSET+57, GETEXSET+59, GETEXSET+61, GETEXSET+62
REQLOCA GETEXSET+12~, GETEXSET+57*, GETEXSET+59*, GETEXSET+60*, GETEXSET+79
REQLOCN GETEXSET+12~, GETEXSET+57*, GETEXSET+59*, GETEXSET+60, GETEXSET+79
REQLOCT GETEXSET+12~, GETEXSET+57*, GETEXSET+62*, GETEXSET+79
REQLOCT(44 GETEXSET+62
REQWARD GETEXSET+13~, GETEXSET+24*, GETEXSET+63*, GETEXSET+79
REQWARD(42 GETEXSET+63
RIST GETEXSET+12~, GETEXSET+64*, GETEXSET+79, RIST+2~, RIST+3*, RIST+5*, RIST+7*, RIST+8*, RIST+9
RIST1 GETEXSET+12~, GETEXSET+23*, GETEXSET+64, RIST~, RIST+1*, RIST+4, RIST+5
RIST2 GETEXSET+12~, GETEXSET+23*, GETEXSET+64, RIST~, RIST+1*, RIST+4, RIST+6*, RIST+7, RIST+8
RISTISME GETEXSET+13~, GETEXSET+64*, GETEXSET+79, RIST+2~, RIST+3*, RIST+5*, RIST+6*, RIST+9
STS GETEXAM3+30~, MORE1*, MORE1+1
T GETEXSET+42*, GETEXSET+43*, GETEXSET+44*, GETEXSET+45, GETEXSET+47, GETEXSET+48, GETEXSET+52~, GETEXSET+54*
T( GETEXSET+53*, GETEXSET+54
TECH GETEXSET+13~, GETEXSET+22*, GETEXSET+50*, GETEXSET+52*, GETEXSET+54*, GETEXSET+79
TMP GETEXAM3+24~
TMP( GETEXAM3+25*, GETEXAM3+27
TT GETEXSET+25~, GETEXSET+39!
TT( GETEXSET+45*
TT(1 GETEXSET+42
TT(2 GETEXSET+43
TT(3 GETEXSET+44
U GETEXAM3+32, MORE1, MORE1+1, GETEXSET+20, GETEXSET+21, GETEXSET+23, GETEXSET+24, GETEXSET+29, GETEXSET+30, GETEXSET+35
, GETEXSET+36, GETEXSET+53, GETEXSET+54, GETEXSET+55, GETEXSET+59, GETEXSET+64, GETEXSET+67, GETEXSET+68, GETEXSET+72, GETEXSET+73
, GETEXSET+78, GETEXSET+79, RIST+9, IMGSIT+6
>> VA("BID" GETEXSET+75!
>> VA("PID" GETEXSET+74, GETEXSET+75!
VAERR GETEXSET+74, GETEXSET+75!
X GETEXAM3+21*, GETEXAM3+32*, GETEXAM2+24, GETEXAM2+25, GETEXSET+21*, GETEXSET+22*, GETEXSET+23, GETEXSET+24, GETEXSET+29*, GETEXSET+30*
, GETEXSET+31*, GETEXSET+32, GETEXSET+35*, GETEXSET+36*, GETEXSET+37*, GETEXSET+38, GETEXSET+40*, GETEXSET+42, GETEXSET+43, GETEXSET+44
, GETEXSET+45, GETEXSET+46, GETEXSET+53*, GETEXSET+54*, GETEXSET+59*, GETEXSET+64*, IMGSIT+5*, IMGSIT+6*, IMGSIT+7, TRIM~
, TRIM+1, TRIM+2, TRIM+3*, TRIM+4*, TRIM+5
>> Y GETEXSET+65*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All