Routine: MAGDRPC4

Package	Total	Call Graph
Imaging	8	FILEFIND^MAGDFB ($$GMRCACN,$$GMRCIEN,$$UP)^MAGDFCNV TIUALL^MAGDGMRC LABLKUP^MAGDIR8A SUBFILES^MAGDIR9F IENLOOK^MAGDRPC9 NEWLKUP^MAGDRPCD $$TIUIEN^MAGT7MA
Kernel	1	($$FMADD,$$NOW)^XLFDT
Radiology Nuclear Medicine	1	($$ACCFIND,$$ACCRPT)^RAAPI
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Imaging	3	MAG DICOM GET NEXT QUEUE ENTRY MAG DICOM LOOKUP STUDY MAGDQR75

Name	Comments	DBIA/ICR reference
LOOKUP(OUT,NUMBER)	; RPC = MAG DICOM LOOKUP STUDY ; Look Up for Radiology, Consults, and Lab (anatomic pathology)
RADLKUP(NOUT,OUT,ACNUMB,NUMBER)	; Radiology lookup
CONLKUP(NOUT,OUT,ACNUMB,NUMBER)	; CPRS Consult/Procedure study lookup
LABLKUP(NOUT,OUT,ACNUMB,NUMBER)	; Lab (Anatomic Pathology) study lookup
NEXTIMG(OUT,FROMS,ONLYCHECK,SENT)	; RPC = MAG DICOM GET NEXT QUEUE ENTRY ; Get next file to be DICOM transmitted
RETRYXMT(FROM,PRIORITY,OLDSTATE,TIMEOUT,DEFAULTTIMEOUT)	; retry transmission ; move images from XMIT or FAIL state to WAITING state
CLEANUP	; remove old studies
CLEAN	; remove one image entry from the queue
UPDTSTATUS	; update the status of the DICOM object - P333 PMK 07/27/2022
FIND(DATE,CASE,NUM)	; ; Use the ADC x-reference in the radiology patient file
MMDDYY(DAY)	; Convert Fileman date to mmddyy
SECOND(H)

Name	Field # of Occurrence
$$GET1^DIQ	RADLKUP+24, CONLKUP+5, CONLKUP+6, CONLKUP+9, LABLKUP+18, NEXTIMG+13, NEXTIMG+14, NEXTIMG+58, NEXTIMG+62, NEXTIMG+63 , NEXTIMG+64, NEXTIMG+65, NEXTIMG+66
FILEFIND^MAGDFB	NEXTIMG+74, NEXTIMG+77
$$GMRCACN^MAGDFCNV	CONLKUP+3
$$GMRCIEN^MAGDFCNV	CONLKUP+2
$$UP^MAGDFCNV	NEXTIMG+62
TIUALL^MAGDGMRC	CONLKUP+24
LABLKUP^MAGDIR8A	LABLKUP+2
SUBFILES^MAGDIR9F	LABLKUP+4
IENLOOK^MAGDRPC9	LOOKUP+23
NEWLKUP^MAGDRPCD	LOOKUP+40
$$TIUIEN^MAGT7MA	LABLKUP+14
$$ACCFIND^RAAPI	RADLKUP+14
$$ACCRPT^RAAPI	RADLKUP+27
$$FMADD^XLFDT	CLEANUP+2, FIND+3
$$NOW^XLFDT	CLEANUP+2

RPC Name	Call Tags
MAG DICOM GET NEXT QUEUE ENTRY	NEXTIMG
MAG DICOM LOOKUP STUDY	LOOKUP

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
^MAG(2005.2 - [#2005.2]	GET1^DIQ
^MAGV(2005.62 - [#2005.62]	GET1^DIQ
^MAG(2006.1 - [#2006.1]	GET1^DIQ
^MAGV(2006.918 - [#2006.918]	GET1^DIQ
^RA(72 - [#72]	GET1^DIQ
^TIU(8925.91 - [#8925.91]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^MAG(2005 - [#2005]	NEXTIMG+71, NEXTIMG+72, NEXTIMG+75, NEXTIMG+78
^MAG(2006.1 - [#2006.1]	NEXTIMG+12
^MAG(2006.5838 - [#2006.5838]	LABLKUP+6, LABLKUP+8
^MAG(2006.5839 - [#2006.5839]	CONLKUP+17, CONLKUP+18
^MAGDOUTP(2006.574 - [#2006.574]	NEXTIMG+8, NEXTIMG+21, NEXTIMG+30, NEXTIMG+31, NEXTIMG+36, NEXTIMG+37, NEXTIMG+40, NEXTIMG+41!, NEXTIMG+42, NEXTIMG+47 , NEXTIMG+52, NEXTIMG+84, NEXTIMG+93, RETRYXMT+9, RETRYXMT+10, RETRYXMT+11, RETRYXMT+13, RETRYXMT+14!, RETRYXMT+15, CLEANUP+3 , CLEANUP+4, CLEANUP+5, CLEAN+3, CLEAN+5, CLEAN+7, CLEAN+10!, CLEAN+11!, CLEAN+12, CLEAN+14, CLEAN+17 , CLEAN+21, CLEAN+22!, CLEAN+23!, CLEAN+24!, CLEAN+25!, CLEAN+26, CLEAN+28, UPDTSTATUS+3, UPDTSTATUS+5, UPDTSTATUS+6 , UPDTSTATUS+9, UPDTSTATUS+11!, UPDTSTATUS+12
^MAGV(2005.62 - [#2005.62]	NEXTIMG+57
^MAGV(2006.918 - [#2006.918]	NEXTIMG+61
^RADPT - [#70]	RADLKUP+8, RADLKUP+9, RADLKUP+10, RADLKUP+19, RADLKUP+20, RADLKUP+22, RADLKUP+25, RADLKUP+26
^RADPT("ADC"	FIND+4
^RADPT("C"	RADLKUP+6
^RARPT - [#74]	RADLKUP+30, RADLKUP+31
^TIU(8925.91 - [#8925.91]	LABLKUP+16

Name	Line Occurrences
$$MMDDYY	FIND+4
$$SECOND	NEXTIMG+15, RETRYXMT+8, RETRYXMT+11
CLEAN	CLEANUP+6
CLEANUP	NEXTIMG+91
CONLKUP	LOOKUP+34
LABLKUP	LOOKUP+37
RADLKUP	LOOKUP+31
RETRYXMT	NEXTIMG+22, NEXTIMG+23
UPDTSTATUS	NEXTIMG+11

Name	Field # of Occurrence
^(0	UPDTSTATUS+9*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACNUMB	LOOKUP+2~, LOOKUP+31, LOOKUP+34, LOOKUP+37, LOOKUP+40, RADLKUP~, RADLKUP+1, RADLKUP+29, RADLKUP+31, CONLKUP~ , CONLKUP+3, CONLKUP+19, LABLKUP~, LABLKUP+2, LABLKUP+10, LABLKUP+19, NEXTIMG+50, NEXTIMG+57, CLEAN+1~, CLEAN+5 , CLEAN+24
ARTIFACTINSTIX	NEXTIMG+3~, NEXTIMG+61*, NEXTIMG+62, NEXTIMG+63, NEXTIMG+65, NEXTIMG+66
ARTIFACTIX	NEXTIMG+3~, NEXTIMG+54*, NEXTIMG+61
CASE	FIND~, FIND+4
CPTCODE	LOOKUP+3~
CPTNAME	LOOKUP+4~
D0	NEXTIMG+2~, NEXTIMG+36, NEXTIMG+37, NEXTIMG+40, NEXTIMG+41, NEXTIMG+42, NEXTIMG+45, NEXTIMG+47, NEXTIMG+52, NEXTIMG+84 , RETRYXMT+2~, RETRYXMT+9, RETRYXMT+10, RETRYXMT+11, RETRYXMT+13, RETRYXMT+14, RETRYXMT+15, CLEANUP+1~, CLEANUP+4, CLEANUP+5 , CLEANUP+6, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+5, CLEAN+7, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+14 , CLEAN+17, CLEAN+21, CLEAN+22, CLEAN+23, CLEAN+24, UPDTSTATUS+1~, UPDTSTATUS+2*, UPDTSTATUS+3, UPDTSTATUS+5, UPDTSTATUS+6 , UPDTSTATUS+9, UPDTSTATUS+11, UPDTSTATUS+12
D1	NEXTIMG+2~, NEXTIMG+37, NEXTIMG+40, NEXTIMG+41, NEXTIMG+42, NEXTIMG+46, NEXTIMG+52, RETRYXMT+2~, RETRYXMT+10, RETRYXMT+11 , RETRYXMT+13, RETRYXMT+14, RETRYXMT+15, CLEANUP+1~, CLEANUP+5, CLEANUP+6, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+7 , CLEAN+10, CLEAN+11, UPDTSTATUS+1~, UPDTSTATUS+2*, UPDTSTATUS+3, UPDTSTATUS+6, UPDTSTATUS+9, UPDTSTATUS+11, UPDTSTATUS+12
DATE	FIND~, FIND+3
DAY	MMDDYY~, MMDDYY+1, MMDDYY+2
DEFAULTTIMEOUT	RETRYXMT~, RETRYXMT+4
DFN	LOOKUP+5~, LOOKUP+29!, RADLKUP+20, RADLKUP+21, RADLKUP+22, RADLKUP+25, RADLKUP+26, CONLKUP+5, CONLKUP+14, LABLKUP+1~ , LABLKUP+3, NEXTIMG+3~, NEXTIMG+58, NEXTIMG+75, NEXTIMG+82
DISKVOLUME	NEXTIMG+3~, NEXTIMG+63*, NEXTIMG+64
DUZ(2	NEXTIMG+12
EXAMSTS	LOOKUP+6~, RADLKUP+22, RADLKUP+23, RADLKUP+24, CONLKUP+6, CONLKUP+8, CONLKUP+9*, CONLKUP+10
EXAMTYPE	LOOKUP+7~, LOOKUP+26*, LOOKUP+27, LOOKUP+30, LOOKUP+33
F1	NEXTIMG+2~, NEXTIMG+62*, NEXTIMG+67, NEXTIMG+74, NEXTIMG+77, NEXTIMG+80
F2	NEXTIMG+2~, NEXTIMG+67*, NEXTIMG+74, NEXTIMG+81
F3	NEXTIMG+2~, NEXTIMG+67*, NEXTIMG+77, NEXTIMG+83
FAILTIME	NEXTIMG+2~, NEXTIMG+14*, NEXTIMG+23
FILEDATA	LABLKUP+1~
FILEPATH	NEXTIMG+3~, NEXTIMG+65*, NEXTIMG+67
FROM	NEXTIMG+2~, NEXTIMG+20, NEXTIMG+21, NEXTIMG+22, NEXTIMG+23, NEXTIMG+29, NEXTIMG+30, NEXTIMG+31, NEXTIMG+35*, NEXTIMG+36 , NEXTIMG+37, NEXTIMG+41, NEXTIMG+42, RETRYXMT~, RETRYXMT+9, RETRYXMT+10, RETRYXMT+14, RETRYXMT+15
FROM(	NEXTIMG+4, NEXTIMG+5, NEXTIMG+20, NEXTIMG+29
FROM(""	NEXTIMG+6
FROMS	NEXTIMG~, NEXTIMG+4
FROMS(	NEXTIMG+5
GMRCIEN	LOOKUP+8~, CONLKUP+2*, CONLKUP+3, CONLKUP+5, CONLKUP+6, CONLKUP+9, CONLKUP+17, CONLKUP+24
GROUP	NEXTIMG+2~, NEXTIMG+49*, NEXTIMG+53, NEXTIMG+55
H	NEXTIMG+15, RETRYXMT+2~, RETRYXMT+8, RETRYXMT+12, SECOND~
I	LOOKUP+17~, RADLKUP+30, RADLKUP+31, CONLKUP+23~, CONLKUP+25, CONLKUP+26, NEXTIMG+2~, NEXTIMG+5, NEXTIMG+11, CLEANUP+1~ , CLEANUP+6*, CLEAN+2, UPDTSTATUS+2
>> IMAGEIEN	NEXTIMG+70*, NEXTIMG+71, NEXTIMG+72, NEXTIMG+74, NEXTIMG+77, NEXTIMG+78
INFO	LOOKUP+9~, RADLKUP+27
INFO(1	RADLKUP+29
JBTOHD	NEXTIMG+2~, NEXTIMG+51*, NEXTIMG+77
LIST	LOOKUP+17~
LOC	NEXTIMG+2~, CLEAN+1~, CLEAN+5, CLEAN+11, UPDTSTATUS+1~, UPDTSTATUS+5, UPDTSTATUS+11, UPDTSTATUS+12
LRDFN	LABLKUP+1~, LABLKUP+6, LABLKUP+14
LRI	LABLKUP+1~, LABLKUP+6, LABLKUP+14
LRSS	LABLKUP+1~, LABLKUP+4, LABLKUP+14
MAGIEN	CONLKUP+1~, LABLKUP+1~, LABLKUP+18*, LABLKUP+19
MAGPTR	CONLKUP+1~, CONLKUP+16, CONLKUP+17, CONLKUP+18, LABLKUP+1~, LABLKUP+6*, LABLKUP+7, LABLKUP+8
N	NEXTIMG+2~
NDATE	FIND+2~, FIND+3*, FIND+4
NEWSTATE	UPDTSTATUS+1~, UPDTSTATUS+2*, UPDTSTATUS+8, UPDTSTATUS+9, UPDTSTATUS+12
NOUT	LOOKUP+17~, LOOKUP+19, LOOKUP+31, LOOKUP+34, LOOKUP+37, LOOKUP+40, LOOKUP+42, RADLKUP~, RADLKUP+32, CONLKUP~ , CONLKUP+20, CONLKUP+27, LABLKUP~, LABLKUP+11, LABLKUP+20
NUM	FIND~, FIND+3
NUMBER	LOOKUP~, LOOKUP+20, LOOKUP+21, LOOKUP+26, LOOKUP+27*, LOOKUP+31, LOOKUP+34, LOOKUP+37, RADLKUP~, RADLKUP+3 , RADLKUP+7, RADLKUP+8, RADLKUP+9, RADLKUP+10, RADLKUP+14, CONLKUP~, CONLKUP+2, LABLKUP~, LABLKUP+2
OLDSTATE	RETRYXMT~, RETRYXMT+9, RETRYXMT+10, RETRYXMT+14
ONLYCHECK	NEXTIMG~, NEXTIMG+18, NEXTIMG+39
OUT	LOOKUP~, LOOKUP+19!, LOOKUP+31, LOOKUP+34, LOOKUP+37, LOOKUP+40, RADLKUP~, CONLKUP~, LABLKUP~, NEXTIMG~ , NEXTIMG+34!
OUT(	RADLKUP+32, CONLKUP+20, CONLKUP+27, LABLKUP+11, LABLKUP+20*
OUT(1	LOOKUP+20, LOOKUP+28, LOOKUP+42, RADLKUP+3, RADLKUP+12, RADLKUP+19, RADLKUP+21, RADLKUP+23, RADLKUP+24, RADLKUP+28 , CONLKUP+10, CONLKUP+13, CONLKUP+14, LABLKUP+3, NEXTIMG+6, NEXTIMG+34, NEXTIMG+36, NEXTIMG+37, NEXTIMG+44, NEXTIMG+89 , NEXTIMG+90*
OUT(10	NEXTIMG+81*
OUT(11	NEXTIMG+82*
OUT(12	NEXTIMG+83*
OUT(13	NEXTIMG+85*
OUT(14	NEXTIMG+66, NEXTIMG+78
OUT(2	NEXTIMG+45*
OUT(3	NEXTIMG+46*
OUT(4	NEXTIMG+48*
OUT(5	NEXTIMG+49*
OUT(6	NEXTIMG+50*
OUT(7	NEXTIMG+52*, NEXTIMG+54, NEXTIMG+70, NEXTIMG+75
OUT(8	NEXTIMG+55, NEXTIMG+71
OUT(9	NEXTIMG+80*
PARENTFILE	LABLKUP+1~, LABLKUP+6
PHYSICALREF	NEXTIMG+3~, NEXTIMG+64*, NEXTIMG+67
PRIORITY	NEXTIMG+2~, NEXTIMG+21, NEXTIMG+22, NEXTIMG+23, NEXTIMG+30, NEXTIMG+31, NEXTIMG+34, NEXTIMG+35, NEXTIMG+36, NEXTIMG+37 , NEXTIMG+41, NEXTIMG+42, RETRYXMT~, RETRYXMT+9, RETRYXMT+10, RETRYXMT+14, RETRYXMT+15, CLEAN+1~, CLEAN+6, CLEAN+11 , UPDTSTATUS+1~, UPDTSTATUS+5*, UPDTSTATUS+11, UPDTSTATUS+12
PRIORITY(	NEXTIMG+31*, NEXTIMG+35
PRIORITY(""	NEXTIMG+34
PROCIEN	LOOKUP+10~
RAA	LOOKUP+11~, RADLKUP+14
RAA(1	RADLKUP+16
RACNI	LOOKUP+15~, RADLKUP+2, RADLKUP+3, RADLKUP+10, RADLKUP+12, RADLKUP+17*, RADLKUP+22, RADLKUP+26
RADFN	LOOKUP+13~, RADLKUP+8, RADLKUP+9, RADLKUP+10, RADLKUP+17, RADLKUP+19, RADLKUP+20
RADTI	LOOKUP+14~, RADLKUP+9, RADLKUP+10, RADLKUP+17, RADLKUP+22, RADLKUP+25, RADLKUP+26
RAIX	LOOKUP+12~, RADLKUP+5~, RADLKUP+6, RADLKUP+7, RADLKUP+8, RADLKUP+9, RADLKUP+10
RARPT	LOOKUP+16~, RADLKUP+26*, RADLKUP+27, RADLKUP+30, RADLKUP+31
REPORTF	CONLKUP+1~
REPORTI	CONLKUP+1~
REQUESTDATETIME	CLEANUP+1~, CLEANUP+2, CLEANUP+3, CLEANUP+4
REQUESTDT	CLEAN+1~, CLEAN+6*, CLEAN+23
RESULT	CONLKUP+23~, CONLKUP+24
RESULT(	CONLKUP+25, CONLKUP+26
SENT	NEXTIMG~, CLEANUP+1~
SENT(	NEXTIMG+11, CLEAN+2, UPDTSTATUS+2
SENT(1	CLEANUP+6*
SITE	NEXTIMG+2~, NEXTIMG+12*, NEXTIMG+13, NEXTIMG+14
STATE	NEXTIMG+2~, CLEAN+1~, CLEAN+7, CLEAN+11, UPDTSTATUS+1~, UPDTSTATUS+6, UPDTSTATUS+11
STUDYIX	NEXTIMG+3~, NEXTIMG+57*, NEXTIMG+58
STUID	CLEAN+1~, CLEAN+21*, CLEAN+25
TIMEOUT	RETRYXMT~, RETRYXMT+4*, RETRYXMT+6, RETRYXMT+12
TIUIEN	CONLKUP+1~, LABLKUP+1~, LABLKUP+14*, LABLKUP+15, LABLKUP+16, LABLKUP+19
TIUPTR	CONLKUP+1~
TIUXIEN	CONLKUP+1~, LABLKUP+1~, LABLKUP+16*, LABLKUP+17, LABLKUP+18
TYPE	NEXTIMG+2~, NEXTIMG+72*, NEXTIMG+74
X	LOOKUP+17~, RADLKUP+14, RADLKUP+15, RADLKUP+27, RADLKUP+28, RADLKUP+31, RADLKUP+32, CONLKUP+1~, CONLKUP+2, CONLKUP+18* , CONLKUP+19, CONLKUP+20, CONLKUP+23~, CONLKUP+26, CONLKUP+27, LABLKUP+1~, LABLKUP+8, LABLKUP+10, LABLKUP+11, LABLKUP+19* , LABLKUP+20, NEXTIMG+2~, NEXTIMG+4, NEXTIMG+5, NEXTIMG+31, NEXTIMG+47, NEXTIMG+48, NEXTIMG+49, NEXTIMG+50, NEXTIMG+51 , NEXTIMG+84, NEXTIMG+85, RETRYXMT+2~, RETRYXMT+11, RETRYXMT+12, CLEAN+1~, CLEAN+5, CLEAN+6, CLEAN+12, CLEAN+13* , CLEAN+14, CLEAN+26, CLEAN+27, CLEAN+28, UPDTSTATUS+1~, UPDTSTATUS+5*
XMITTIME	NEXTIMG+2~, NEXTIMG+13*, NEXTIMG+22
Y	LOOKUP+17~, RADLKUP+16*, RADLKUP+17
Z	LOOKUP+17~

Customize PDF page

Package: Imaging

Routine: MAGDRPC4

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: