Routine: MAGDQR21

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

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 ; "S" - Include Series Description for DICOM Q/R ;
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,INCSERD)	; Generate output in ^TMP based on STUDY array
STUDY(UID,IEN,REQDFN,IMGLESS,INCDEL,INCSERD)	; 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)

Name	Field # of Occurrence
$$GET1^DIQ	CPTCODE+5
$$CPT^ICPTCOD	CPTCODE+8
WRTIMG^MAGDQR20	STUDY+34
$$CPTCODE^MAGDQR21	WRTIEN+6
$$GETGPDIM^MAGDQR21	GETPAT+30
$$GETGPIM^MAGDQR21	GETPAT+25
$$GETSITE1^MAGDQR21	WRTIEN+6
$$GETSNUM^MAGDQR21	GETSITE1+11
$$INTEGDFN^MAGDQR21	STUDY+24
$$ISGRP^MAGDQR21	GETPAT+22
$$ONEGROUP^MAGDQR21	WRTIEN+5
$$TMPOUT^MAGDQR21	STUDY2+17
$$VALPAT^MAGDQR21	STUDY+19
$$WRTIEN^MAGDQR21	STUDY+22
APDOUT^MAGDQR21	INTEGDFN+7
CNVGRP^MAGDQR21	STUDY2+20
GENOUT^MAGDQR21	STUDY2+24
GETGPIEN^MAGDQR21	STUDY+15
GETGPUID^MAGDQR21	STUDY+14
GETPAT^MAGDQR21	STUDY+18
GETSTUDY^MAGDQR21	STUDY2+22
SRTUID^MAGDQR21	GETSTUDY+6
SRTUID2^MAGDQR21	GETSTUDY+7
STUDY^MAGDQR21	GENOUT+8, GENOUT+11
WRTMOD^MAGDQR21	STUDY+35
WRTOUT^MAGDQR21	STUDY+12, STUDY+26, 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+26
GETICN^MPIF001	STUDY+26
$$NS^XUAF4	GETSNUM+6
$$RTRNFMT^XWBLIB	TMPOUT+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	STUDY+26
^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+33, STUDY+34 , 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+13, STUDY2+15
GATEWAY	GET~, GET+9, GET+13, SET~, SET+15, SET+19, SET+20
GROUP	ONEGROUP~, ONEGROUP+3, ONEGROUP+5, ONEGROUP+9
GROUPS	STUDY2~, STUDY2+20, STUDY2+22, 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+21, STUDY+22, STUDY+24, 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+7, GENOUT+8* , STUDY~, STUDY+12, STUDY+15, 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+16*, STUDY2+24, GENOUT~, GENOUT+8, GENOUT+11, STUDY~, STUDY+30
INCDEL	STUDY2+10~, STUDY2+13*, STUDY2+22, STUDY2+24, GETSTUDY~, GETSTUDY+6, GETSTUDY+7, GENOUT~, GENOUT+8, GENOUT+11 , STUDY~, STUDY+14, STUDY+15, STUDY+18, STUDY+24, STUDY+34, GETGPUID~, GETGPUID+7, GETGPIEN~, GETGPIEN+3 , GETPAT~, GETPAT+22, GETPAT+29, ISGRP~, ISGRP+3, ISGRP+4, INTEGDFN~
INCSERD	STUDY2+10~, STUDY2+15, STUDY2+24, GENOUT~, GENOUT+2, GENOUT+8, GENOUT+11, STUDY~, STUDY+10*, STUDY+34
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+17, STUDY2+18, STUDY2+27
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+18, STUDY+19, GETPAT~, VALPAT~
PAT(	STUDY+21, STUDY+34, GETPAT+19*, VALPAT+9
PATCOUNT	STUDY+5~, STUDY+18, STUDY+19, 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+12*, STUDY2+24, GENOUT~, GENOUT+8, GENOUT+11, STUDY~, STUDY+18, STUDY+19, STUDY+21 , STUDY+22, STUDY+24, STUDY+26, STUDY+34, 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+34
SITEIEN	GETSITE1+3~, GETSNUM+3~, GETSNUM+4*, GETSNUM+5, GETSNUM+6
SITENUM	GETSITE1+3~, GETSNUM+3~, GETSNUM+6*, GETSNUM+7
STUDY	STUDY2+10~, STUDY2+22, STUDY2+24, GETSTUDY~, GETSTUDY+6, GETSTUDY+7, SRTUID~, SRTUID2~, GENOUT~, STUDY+1~ , STUDY+14, STUDY+15, STUDY+18, GETGPUID~, GETGPIEN~, GETPAT~
STUDY(	SRTUID+7, SRTUID2+10, GENOUT+5, GENOUT+8, GETGPUID+4, GETGPUID+11, GETGPIEN+1, GETGPIEN+4, GETPAT+15, GETPAT+16
STUDY(""	STUDY+16
STUMO	STUDY+8~, STUDY+34, STUDY+35, 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+18, STUDY+22, GETPAT~, GETPAT+12, GETPAT+27, GETPAT+32*, WRTIEN~, WRTIEN+6
TMP	GETSITE1+2~, GETSITE1+8*, GETSITE1+9
TOTIMAGES	STUDY+3~, STUDY+18, STUDY+22, 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+4, GENOUT+5* , GENOUT+6, GENOUT+8, GENOUT+11, STUDY~, STUDY+12, STUDY+14, STUDY+19, STUDY+22, 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

Customize PDF page

Package: Imaging

Routine: MAGDQR21

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Local Variables

Legend:

Marked Items