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 |  Used in RPC |  Global Variables Directly Accessed |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: MAGDQR21

Package: Imaging

Routine: MAGDQR21


Information

MAGDQR21 ;WOIFO/EdM,NST,MLH,JSL,SAF,BT - RPCs for Query/Retrieve SetUp ; 16 JUL,2018@4:27 PM

Source Information

Source file <MAGDQR21.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Imaging 5 WRTIMG^MAGDQR20  ($$CPTCODE,$$GETGPDIM,$$GETGPIM,$$GETSITE1,$$GETSNUM,$$INTEGDFN,$$ISGRP,$$ONEGROUP,$$TMPOUT,$$VALPAT,$$WRTIEN,APDOUT,CNVGRP,GENOUT,GETGPIEN,GETGPUID,GETPAT,GETSTUDY,SRTUID,SRTUID2,STUDY,WRTMOD,WRTOUT)^MAGDQR21  ($$FILE,$$ISDEL,$$NODE)^MAGGI11  CHK^MAGGSQI  NETPLCS^MAGGTU6  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 $$NS^XUAF4  
Master Patient Index VistA 1 ($$GETICN,GETICN)^MPIF001  
RPC Broker 1 $$RTRNFMT^XWBLIB  
VA FileMan 1 $$GET1^DIQ  

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: 9

Package Total Caller Graph
Imaging 9 MAG DOD GET STUDIES IEN  MAG DOD GET STUDIES UID  MAGDQR20  MAGDQR21  MAGJUTL2  MAGNTRAI  MAGNVQ04  MAGNVQ06  
MAGSIXG3  

Entry Points

Name Comments DBIA/ICR reference
GET(OUT,DEST,GATEWAY) ; RPC = MAG GET DICOM DEST
SET(OUT,DATA,DEST,GATEWAY) ; RPC = MAG SET DICOM DEST
TMPOUT(NAME) ; Return name of the temp
STUDY2(OUT,GROUPS,REQDFN,IMGLESS,FLAGS) ; RPC = MAG DOD GET STUDIES IEN
; CR, 5-28-09
; IMGLESS is a new flag to speed up queries: if=1 (true), just get study-level
; data, if null or zero get everything. This new flag is optional.
; BT, 01-06-12
; FLAGS is "" - Exclude Deleted records (default)
; "D" - Include Deleted records
;
CNVGRP(GROUPS) ; Add top level GROUPS value to GROUPS array
; GROUPS=10, GROUPS(1)=11, GROUPS(2)=12 becomes GROUPS(1)=11, GROUPS(2)=12, GROUPS(3)=10
GETSTUDY(GROUPS,STUDY,INCDEL) ; Read IENS in GROUPS and sort into STUDY by UID,IEN
SRTUID(IEN,STUDY) ; Sort group by UID, IEN
SRTUID2(IEN,STUDY) ; Sort group by UID, IEN (include Deleted Images)
GENOUT(STUDY,REQDFN,IMGLESS,INCDEL) ; Generate output in ^TMP based on STUDY array
STUDY(UID,IEN,REQDFN,IMGLESS,INCDEL) ; Generate output in ^TMP based on parameters
GETGPUID(UID,STUDY,INCDEL) ; Given UID, populate STUDY array with Image IEN
GETGPIEN(IEN,STUDY,INCDEL) ; Add IEN into STUDY (include deleted images)
GETPAT(STUDY,PAT,PATCOUNT,TOTIMAGES,TDCMIMG,REQDFN,INCDEL) ; Get Total Images count and fill Patient array based on STUDY
ISGRP(D0,INCDEL) ; return 1 if D0 is a group IEN, 0 otherwise
GETGPIM(D0,REQDFN,PATCOUNT) ; return total images in the group and PATCOUNT array for patient validation
GETGPDIM(D0,REQDFN,PATCOUNT) ; return total images in the group and PATCOUNT array for patient validation
VALPAT(UID,PAT,PATCOUNT,REQDFN) ; Validate - should only have one patient
WRTIEN(UID,I0,TOTIMAGES,TDCMIMG,REQDFN) ; Output STUDY UID and IEN line
INTEGDFN(I0,REQDFN,INCDEL) ; check integrity of study record
WRTMOD(STUMO) ; Output STUDY_MODALITY line
ONEGROUP(GROUP) ; Get the first IMAGE_IEN for this group in IMAGE file (#2005)
; or IMAGE AUDIT file (#2005.1)
WRTOUT(S) ; Write a new line
APDOUT(S) ; Append to last line
CPTCODE(MAGIEN) ; Returns CPT code by IEN (image pointer) in IMAGE file (#2005)
; or IMAGE AUDIT file (#2005.1)
; MAGIEN = IEN in IMAGE file (#2005) or IMAGE AUDIT file (#2005.1)
GETSITE1(MAGIEN) ; Returns STATION NUMBER where the image is stored
; MAGIEN = IEN in IMAGE file (#2005)
GETSNUM(MAGPLC) ; Returns STATION NUMBER by Image Site Parameters IEN
; MAGPLC - IEN in IMAGING SITE PARAMETERS file (#2006.1)

External References

Name Field # of Occurrence
$$GET1^DIQ CPTCODE+5
$$CPT^ICPTCOD CPTCODE+8
WRTIMG^MAGDQR20 STUDY+33
$$CPTCODE^MAGDQR21 WRTIEN+6
$$GETGPDIM^MAGDQR21 GETPAT+30
$$GETGPIM^MAGDQR21 GETPAT+25
$$GETSITE1^MAGDQR21 WRTIEN+6
$$GETSNUM^MAGDQR21 GETSITE1+11
$$INTEGDFN^MAGDQR21 STUDY+23
$$ISGRP^MAGDQR21 GETPAT+22
$$ONEGROUP^MAGDQR21 WRTIEN+5
$$TMPOUT^MAGDQR21 STUDY2+14
$$VALPAT^MAGDQR21 STUDY+18
$$WRTIEN^MAGDQR21 STUDY+21
APDOUT^MAGDQR21 INTEGDFN+7
CNVGRP^MAGDQR21 STUDY2+17
GENOUT^MAGDQR21 STUDY2+21
GETGPIEN^MAGDQR21 STUDY+14
GETGPUID^MAGDQR21 STUDY+13
GETPAT^MAGDQR21 STUDY+17
GETSTUDY^MAGDQR21 STUDY2+19
SRTUID^MAGDQR21 GETSTUDY+6
SRTUID2^MAGDQR21 GETSTUDY+7
STUDY^MAGDQR21 GENOUT+7, GENOUT+10
WRTMOD^MAGDQR21 STUDY+34
WRTOUT^MAGDQR21 STUDY+11, STUDY+25, VALPAT+8, WRTIEN+3, WRTIEN+4, WRTIEN+6, WRTMOD+4
$$FILE^MAGGI11 SRTUID2+7, INTEGDFN+13, CPTCODE+4
$$ISDEL^MAGGI11 GETGPUID+10, GETGPIEN+3
$$NODE^MAGGI11 ONEGROUP+3, GETSITE1+6
CHK^MAGGSQI INTEGDFN+5
NETPLCS^MAGGTU6 GETSITE1+5
$$GETICN^MPIF001 STUDY+25
GETICN^MPIF001 STUDY+25
$$NS^XUAF4 GETSNUM+6
$$RTRNFMT^XWBLIB TMPOUT+2

Used in RPC

RPC Name Call Tags
MAG DOD GET STUDIES IEN STUDY2
MAG DOD GET STUDIES UID STUDY1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] STUDY+25
^MAG( SRTUID2+8, GETPAT+17, INTEGDFN+15
^MAG(2005 - [#2005] SRTUID+3, SRTUID+6, SRTUID2+3, GETGPUID+3, GETGPUID+4, GETGPIEN+1, ISGRP+3, ISGRP+4, GETGPIM+4, GETGPIM+5
, GETGPIM+6, GETGPIM+11
^MAG(2005.1 - [#2005.1] SRTUID2+4, GETGPUID+9, GETGPUID+11, GETGPIEN+4, ISGRP+4, GETGPDIM+4, GETGPDIM+5, GETGPDIM+10, ONEGROUP+9
^MAG(2006.1 - [#2006.1] GETSNUM+4
^MAG(2006.587 - [#2006.587] GET+4, GET+5, GET+10, GET+11, GET+20, GET+21, SET+16, SET+17, SET+21!, SET+22!
, SET+25*, SET+26*, SET+27*, SET+28!, SET+30*, SET+31*, SET+33*
^RAMIS(71 - [#71] CPTCODE+6
^TMP("MAG" TMPOUT+3, WRTOUT+2, WRTOUT+3*, WRTOUT+4*, APDOUT+2, APDOUT+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT GETPAT+11~, GETPAT+25*, GETPAT+26, GETPAT+27, GETPAT+30*, GETPAT+31, GETPAT+32, WRTOUT+1~, WRTOUT+2*, WRTOUT+3
, WRTOUT+4, APDOUT+1~, APDOUT+2*, APDOUT+3
CONT VALPAT+1~, VALPAT+3*, VALPAT+9*, VALPAT+12, INTEGDFN+3~, INTEGDFN+8*, INTEGDFN+12*, INTEGDFN+14*, INTEGDFN+15*, INTEGDFN+18
CPTCODE CPTCODE+3~, CPTCODE+6*, CPTCODE+7, CPTCODE+8*, CPTCODE+9
D0 GET+1~, GET+10*, GET+11, GET+20, GET+21, SET+1~, SET+16*, SET+17, SET+21, SET+22
, SET+25, SET+26, SET+27, SET+28, SET+30, SET+31, SET+33, STUDY+7~, STUDY+32*, STUDY+33*
, GETGPUID+1~, GETGPUID+2*, GETGPUID+3*, GETGPUID+4, GETGPUID+8*, GETGPUID+9*, GETGPUID+10, GETGPUID+11, GETPAT+11~, GETPAT+13*
, GETPAT+15*, GETPAT+16, GETPAT+17, GETPAT+19, GETPAT+22, GETPAT+25, GETPAT+30, ISGRP~, ISGRP+3, ISGRP+4
, GETGPIM~, GETGPIM+4, GETGPIM+5, GETGPDIM~, GETGPDIM+4
D1 GET+1~, GET+20*, GET+21, SET+1~, SET+29*, SET+30*, SET+31, SET+33, GETGPIM+1~, GETGPIM+3*
, GETGPIM+4*, GETGPIM+5, ONEGROUP+2~, ONEGROUP+7*, ONEGROUP+8
DATA SET~
DATA( SET+4, SET+5
DEST GET~, GET+2, GET+12, SET~, SET+2, SET+18
DFN GETPAT+11~, GETPAT+17*, GETPAT+18, GETPAT+19, GETPAT+23, GETGPIM+1~, GETGPIM+6*, GETGPIM+7, GETGPIM+9, GETGPDIM+1~
, GETGPDIM+5*, GETGPDIM+6, GETGPDIM+8, VALPAT+1~, VALPAT+4*
FLAGS STUDY2~, STUDY2+12
GATEWAY GET~, GET+9*, GET+13, SET~, SET+15*, SET+19, SET+20
GROUP ONEGROUP~, ONEGROUP+3, ONEGROUP+5, ONEGROUP+9
GROUPS STUDY2~, STUDY2+17, STUDY2+19, CNVGRP~, CNVGRP+4, GETSTUDY~
GROUPS( CNVGRP+4*, GETSTUDY+3, GETSTUDY+4
GROUPS("" CNVGRP+3
I SET+1~, SET+4*, SET+5, SET+23*, SET+29*, SET+30, SET+31, GETSTUDY+1~, GETSTUDY+2*, GETSTUDY+3*
, GETSTUDY+4
I0 STUDY+6~, STUDY+20*, STUDY+21, STUDY+23, GETGPIM+1~, GETGPIM+5*, GETGPIM+6, GETGPIM+11, GETGPDIM+1~, GETGPDIM+3*
, GETGPDIM+4*, GETGPDIM+5, GETGPDIM+10, WRTIEN~, WRTIEN+4, WRTIEN+5, WRTIEN+6, INTEGDFN~, INTEGDFN+5, INTEGDFN+13
, INTEGDFN+15
IEN GETSTUDY+1~, GETSTUDY+4*, GETSTUDY+5, GETSTUDY+6, GETSTUDY+7, SRTUID~, SRTUID+3, SRTUID+4*, SRTUID+6, SRTUID+7
, SRTUID2~, SRTUID2+3, SRTUID2+4, SRTUID2+5*, SRTUID2+7, SRTUID2+8, SRTUID2+10, GENOUT+1~, GENOUT+6*, GENOUT+7*
, STUDY~, STUDY+11, STUDY+14, GETGPIEN~, GETGPIEN+1, GETGPIEN+3, GETGPIEN+4
IMGCNT GETGPIM+1~, GETGPIM+2*, GETGPIM+10*, GETGPIM+14, GETGPDIM+1~, GETGPDIM+2*, GETGPDIM+9*, GETGPDIM+13
IMGCNTOT GETGPIM+1~, GETGPIM+2*, GETGPIM+12*, GETGPIM+14, GETGPDIM+1~, GETGPDIM+2*, GETGPDIM+11*, GETGPDIM+13
IMGIEN ONEGROUP+2~, ONEGROUP+6*, ONEGROUP+8*, ONEGROUP+9*, ONEGROUP+10*, ONEGROUP+11
IMGLESS STUDY2~, STUDY2+13*, STUDY2+21, GENOUT~, GENOUT+7, GENOUT+10, STUDY~, STUDY+29
INCDEL STUDY2+9~, STUDY2+12*, STUDY2+19, STUDY2+21, GETSTUDY~, GETSTUDY+6, GETSTUDY+7, GENOUT~, GENOUT+7, GENOUT+10
, STUDY~, STUDY+13, STUDY+14, STUDY+17, STUDY+23, STUDY+33, GETGPUID~, GETGPUID+7, GETGPIEN~, GETGPIEN+3
, GETPAT~, GETPAT+22, GETPAT+29, ISGRP~, ISGRP+3, ISGRP+4, INTEGDFN~
ISGRP GETPAT+11~, GETPAT+22*, GETPAT+23, ISGRP+1~, ISGRP+2*, ISGRP+3*, ISGRP+4*, ISGRP+5
LAST CNVGRP+2~, CNVGRP+3*, CNVGRP+4
M WRTMOD+1~, WRTMOD+2*, WRTMOD+3*
MAGFIL SRTUID2+1~, SRTUID2+7*, SRTUID2+8, GETPAT+11~, GETPAT+16*, GETPAT+17, GETPAT+24, INTEGDFN+3~, INTEGDFN+13*, INTEGDFN+14
, INTEGDFN+15
MAGFILE CPTCODE+3~, CPTCODE+4*, CPTCODE+5
MAGIEN CPTCODE~, CPTCODE+4, CPTCODE+5, GETSITE1~, GETSITE1+4, GETSITE1+6
>> MAGJOB("NETPLC" GETSITE1+5, GETSITE1+10
MAGNODE ONEGROUP+2~, ONEGROUP+3*, ONEGROUP+4, ONEGROUP+5, ONEGROUP+7, ONEGROUP+8, GETSITE1+2~, GETSITE1+6*, GETSITE1+7, GETSITE1+8
MAGOBJTP GETGPIM+1~, GETGPIM+11*, GETGPIM+12, GETGPDIM+1~, GETGPDIM+10*, GETGPDIM+11
MAGPLC GETSNUM~, GETSNUM+2, GETSNUM+4
N GET+1~, GET+3*, GET+4*, GET+5*, GET+6, GET+14*, GET+22*, GET+25, SET+1~
NAME TMPOUT~, TMPOUT+3
NLOCIEN GETSITE1+2~, GETSITE1+9*, GETSITE1+10
O1 SET+1~, SET+17*, SET+18, SET+21, SET+26
O5 SET+1~, SET+17*, SET+19, SET+21, SET+22, SET+26, SET+27
O7 SET+1~, SET+17*, SET+21, SET+22, SET+24*, SET+26, SET+27
OBJGRP WRTIEN+1~, WRTIEN+5*, WRTIEN+6
OK GET+1~, GET+10*, GET+14*, SET+1~, SET+16*, SET+20*
OUT GET~, SET~, SET+2*, SET+14*, SET+20*, STUDY2~, STUDY2+14*, STUDY2+15, STUDY2+24
OUT( GET+4*, GET+5*, GET+22*
OUT(1 GET+6*, GET+25*
OUT(2 GET+15*
OUT(3 GET+16*
OUT(4 GET+17*
OUT(5 GET+18*
OUT(6 GET+19*
P SET+1~
P( SET+23
P(2 SET+6*
P(3 SET+7*
P(4 SET+8*
P(6 SET+9*
P(7 SET+10*, SET+24
PARENT SRTUID+1~, SRTUID+3*, SRTUID+4, SRTUID2+1~, SRTUID2+3*, SRTUID2+4*, SRTUID2+5
PAT STUDY+4~, STUDY+17, STUDY+18, GETPAT~, VALPAT~
PAT( STUDY+20, STUDY+33, GETPAT+19*, VALPAT+9
PATCOUNT STUDY+5~, STUDY+17, STUDY+18, GETPAT~, GETPAT+25, GETPAT+30, GETGPIM~, GETGPDIM~, VALPAT~, VALPAT+3*
, VALPAT+4*, VALPAT+6, VALPAT+8
PATCOUNT( GETPAT+18*, GETGPIM+7*, GETGPDIM+6*, VALPAT+4
PLC GETSITE1+2~, GETSITE1+10*, GETSITE1+11
Q SET+1~
Q( SET+11*, SET+29, SET+30
QINTEG INTEGDFN+3~, INTEGDFN+6*, INTEGDFN+7, INTEGDFN+11
RAIEN CPTCODE+3~, CPTCODE+5*, CPTCODE+6
REQDFN STUDY2~, STUDY2+11*, STUDY2+21, GENOUT~, GENOUT+7, GENOUT+10, STUDY~, STUDY+17, STUDY+18, STUDY+20
, STUDY+21, STUDY+23, STUDY+25, STUDY+33, GETPAT~, GETPAT+19, GETPAT+23, GETPAT+25, GETPAT+30, GETGPIM~
, GETGPIM+9, GETGPDIM~, GETGPDIM+8, VALPAT~, VALPAT+9, WRTIEN~, WRTIEN+4, INTEGDFN~, INTEGDFN+12, INTEGDFN+15
S WRTOUT~, WRTOUT+4, APDOUT~, APDOUT+3
SERIESARRAY STUDY+2~, STUDY+33
SITEIEN GETSITE1+3~, GETSNUM+3~, GETSNUM+4*, GETSNUM+5, GETSNUM+6
SITENUM GETSITE1+3~, GETSNUM+3~, GETSNUM+6*, GETSNUM+7
STUDY STUDY2+9~, STUDY2+19, STUDY2+21, GETSTUDY~, GETSTUDY+6, GETSTUDY+7, SRTUID~, SRTUID2~, GENOUT~, STUDY+1~
, STUDY+13, STUDY+14, STUDY+17, GETGPUID~, GETGPIEN~, GETPAT~
STUDY( SRTUID+7*, SRTUID2+10*, GENOUT+4, GENOUT+7, GETGPUID+4*, GETGPUID+11*, GETGPIEN+1*, GETGPIEN+4*, GETPAT+15, GETPAT+16
STUDY("" STUDY+15
STUMO STUDY+8~, STUDY+33, STUDY+34, WRTMOD~
STUMO( WRTMOD+3
T SET+1~, SET+5*, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11
TDCMIMG STUDY+9~, STUDY+17, STUDY+21, GETPAT~, GETPAT+12*, GETPAT+27*, GETPAT+32*, WRTIEN~, WRTIEN+6
TMP GETSITE1+2~, GETSITE1+8*, GETSITE1+9
TOTIMAGES STUDY+3~, STUDY+17, STUDY+21, GETPAT~, GETPAT+12*, GETPAT+23*, GETPAT+26*, GETPAT+31*, WRTIEN~, WRTIEN+6
U GETSITE1+9, GETSITE1+10, GETSNUM+4, GETSNUM+6
UID SRTUID+1~, SRTUID+6*, SRTUID+7, SRTUID2+1~, SRTUID2+8*, SRTUID2+9*, SRTUID2+10, GENOUT+1~, GENOUT+3*, GENOUT+4*
, GENOUT+5, GENOUT+7, GENOUT+10, STUDY~, STUDY+11, STUDY+13, STUDY+18, STUDY+21, GETGPUID~, GETGPUID+3
, GETGPUID+9, VALPAT~, VALPAT+8, WRTIEN~, WRTIEN+3, WRTIEN+4
X GET+1~, GET+4*, GET+5*, GET+11*, GET+12, GET+13, GET+15, GET+16, GET+17, GET+18
, GET+19, GET+21*, GET+22, SET+1~, SET+17*, SET+23*, SET+25, TMPOUT+1~, TMPOUT+2*, TMPOUT+3*
, TMPOUT+4, TMPOUT+5, INTEGDFN+3~, INTEGDFN+5, WRTMOD+1~, WRTMOD+2*, WRTMOD+3*, WRTMOD+4
X(0 INTEGDFN+6, INTEGDFN+7

Marked Items

Name Field # of Occurrence
$T(GETICN^MPIF001 STUDY+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Local Variables |  Marked Items |  All