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

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

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
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
  • ICR #7404
    • Status: Active
    • Usage: Private
    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

    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