Routine: MAGDQR13

Package	Total	Call Graph
Imaging	1	($$ACCNTAG,$$HDRTAG,$$MODTAG,$$NSRITAG,$$NSRSTAG,$$PTNAMTAG,$$STDESTAG,$$STUIDTAG)^MAGDQR00

Package	Total	Caller Graph
Imaging	1	MAGDQR03

Entry Points

Name	Comments	DBIA/ICR reference
SAVRSLT(RESULT,MAGDFN,MAGIEN,V)	;
GETPRSLT(MAGDFN,STUDYUID,ACCN,PATNAM)	; Get pointer (RESULT) for the given STUDYUID in file 2006.5732 ; Return 0 - Study UID not found ; Record Number - Study UID found ; -1 - Study UID found but has different patient id, patient name or accession number
MERGEREC(PRVRSLT,V)	; Merge record to previous record with the same UID ; Merge Modalities
MRGONMOD(PRVRSLT,V)	; Merge modalities from old and new db ; V(MODTAG) must have value before calling this procedure
MERGEMOD(PREVMOD,NEWMOD)	; return the merged modalities
MRGONIMG(PRVRSLT,V,NIMGTAG)	; Sum Number of NIMGTAG values from old and new db ; NIMGTAG is either ; $$NSRSTAG (Number of Study Related Series TAG) or ; $$NSRITAG (Number of Study Related Instances TAG)
UPDSTDES(PRVRSLT,V)	; Update Study Description
SAVREC(RESULT,MAGDFN,MAGIEN,UID,ACCN,PATNAM,V)	; save record (V) to file 2006.5732 ; save header
SAVHDR(RESULT)	; Save header
SAVIMGDT(RESULT,MAGDFN,MAGIEN,STUDYUID)	; Save Image Saved Date
GETIMGDT(MAGIEN)	; Return Image Saved date ; MAGIEN must exist. ; Caller validates the existence of the image in either file 2005 or 2005.64
SAVTAG(RESULT,V,TAG)	; Save TAG^TAG_VALUE pair
GTAGVAL(V,TAG)	; Get Tag Value ; Values of V(TAG) and V(TAG,SEQ) will be saved as one record using delimiter "\"
GTAGRECN(RESULT,TAG,STUDYUID)	; Return Sub Index for Sub File (2006.57321) for the TAG within RESULT records with STUDYUID
ADDTAGFL(RESULT,TAG,TAGVAL)	; Add entry to Sub File (2006.57321)
GTAGPAIR(RESULT,RECNO)	; Given Result and RecNo, Get Tag pair value from File 2006.5732
UTAGPAIR(RESULT,RECNO,TAGPAIR)	; Update Result, RecNo of File 2006.5732 with Tag Pair Value

Name	Field # of Occurrence
$$ACCNTAG^MAGDQR00	SAVRSLT+5
$$HDRTAG^MAGDQR00	SAVHDR+4, GTAGRECN+3
$$MODTAG^MAGDQR00	SAVRSLT+12, MERGEREC+2, MRGONMOD+3
$$NSRITAG^MAGDQR00	MERGEREC+6
$$NSRSTAG^MAGDQR00	MERGEREC+6
$$PTNAMTAG^MAGDQR00	SAVRSLT+7
$$STDESTAG^MAGDQR00	MERGEREC+9, UPDSTDES+2
$$STUIDTAG^MAGDQR00	SAVRSLT+4, MRGONMOD+7, MRGONIMG+7, UPDSTDES+6, GTAGRECN+2

Name	Line Occurrences (* Changed, ! Killed)
^MAG(2005 - [#2005]	GETIMGDT+3
^MAGDQR(2006.5732 - [#2006.5732]	SAVIMGDT+3, GTAGRECN+9, GTAGRECN+11, GTAGRECN+13, GTAGRECN+18, ADDTAGFL+2, ADDTAGFL+5, ADDTAGFL+9, ADDTAGFL+11, ADDTAGFL+12* , GTAGPAIR+2, UTAGPAIR+1*
^MAGV(2005.64 - [#2005.64]	GETIMGDT+4
^TMP("MAG"	GETPRSLT+8, GETPRSLT+9, GETPRSLT+10, SAVREC+15, SAVREC+16, SAVHDR+2, SAVHDR+3, SAVIMGDT+4

Name	Line Occurrences
$$GETIMGDT	SAVIMGDT+2
$$GETPRSLT	SAVRSLT+16
$$GTAGPAIR	MRGONMOD+15, MRGONIMG+15, UPDSTDES+14
$$GTAGRECN	MRGONMOD+8, MRGONIMG+8, UPDSTDES+7
$$GTAGVAL	SAVTAG+2
$$MERGEMOD	MRGONMOD+20
ADDTAGFL	MRGONMOD+11, MRGONIMG+11, UPDSTDES+10, SAVHDR+4, SAVTAG+3, SAVTAG+14
MERGEREC	SAVRSLT+18
MRGONIMG	MERGEREC+6
MRGONMOD	MERGEREC+2
SAVHDR	SAVREC+2
SAVIMGDT	SAVREC+4
SAVREC	SAVRSLT+20
SAVTAG	SAVREC+10
UPDSTDES	MERGEREC+9
UTAGPAIR	MRGONMOD+21, MRGONIMG+20, UPDSTDES+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACCN	SAVRSLT+1~, SAVRSLT+5, SAVRSLT+6, SAVRSLT+16, SAVRSLT+20, GETPRSLT~, GETPRSLT+9, SAVREC~, SAVREC+16
FOUND	GTAGRECN+6~, GTAGRECN+7, GTAGRECN+9, GTAGRECN+13, GTAGRECN+18
HDR	ADDTAGFL+4~, ADDTAGFL+5, ADDTAGFL+6, ADDTAGFL+7, ADDTAGFL+8, ADDTAGFL+9
HDRRECNO	GTAGRECN+6~, GTAGRECN+8, GTAGRECN+9, GTAGRECN+11, GTAGRECN+18
HDRTAG	GTAGRECN+1~, GTAGRECN+3*, GTAGRECN+9
I	MERGEMOD+3~, MERGEMOD+6*, MERGEMOD+7
IMGSAVDT	SAVIMGDT+1~, SAVIMGDT+2*, SAVIMGDT+4
LSTRECNO	ADDTAGFL+1~, ADDTAGFL+2*, ADDTAGFL+7, ADDTAGFL+11, ADDTAGFL+12
MAGDFN	SAVRSLT~, SAVRSLT+16, SAVRSLT+20, GETPRSLT~, GETPRSLT+9, SAVREC~, SAVREC+4, SAVREC+16, SAVIMGDT~, SAVIMGDT+4
MAGIEN	SAVRSLT~, SAVRSLT+20, SAVREC~, SAVREC+4, SAVIMGDT~, SAVIMGDT+2, SAVIMGDT+4, GETIMGDT~, GETIMGDT+3, GETIMGDT+4
MERGE	MRGONMOD+14~, MRGONMOD+20, MRGONMOD+21, MERGEMOD+3~, MERGEMOD+4, MERGEMOD+10*, MERGEMOD+12
MOD	MERGEMOD+3~, MERGEMOD+7*, MERGEMOD+8, MERGEMOD+9
MODRECNO	MRGONMOD+6~, MRGONMOD+8*, MRGONMOD+11, MRGONMOD+15, MRGONMOD+21
MODTAG	SAVRSLT+11~, SAVRSLT+12, SAVRSLT+13, MRGONMOD+2~, MRGONMOD+3, MRGONMOD+8, MRGONMOD+11, MRGONMOD+17, MRGONMOD+20, MRGONMOD+21
NEWMOD	MERGEMOD~, MERGEMOD+1, MERGEMOD+6, MERGEMOD+7
NIMGTAG	MERGEREC+5~, MERGEREC+6*, MRGONIMG~, MRGONIMG+8, MRGONIMG+11, MRGONIMG+17, MRGONIMG+19
PAIR	MRGONMOD+14~, MRGONMOD+15, MRGONMOD+16, MRGONMOD+19, MRGONIMG+14~, MRGONIMG+15, MRGONIMG+16, MRGONIMG+19, MRGONIMG+20, UPDSTDES+13~ , UPDSTDES+14, UPDSTDES+15, UPDSTDES+18, UPDSTDES+19*, UPDSTDES+20
PATNAM	SAVRSLT+7, SAVRSLT+8, SAVRSLT+16, SAVRSLT+20, GETPRSLT~, GETPRSLT+9, SAVREC~, SAVREC+16
PATNAME	SAVRSLT+1~
PREVMOD	MRGONMOD+14~, MRGONMOD+19, MRGONMOD+20, MRGONMOD+21, MERGEMOD~, MERGEMOD+1, MERGEMOD+8, MERGEMOD+9*
PRVRSLT	SAVRSLT+1~, SAVRSLT+16*, SAVRSLT+18, SAVRSLT+20, MERGEREC~, MERGEREC+2, MERGEREC+6, MERGEREC+9, MRGONMOD~, MRGONMOD+8 , MRGONMOD+11, MRGONMOD+15, MRGONMOD+21, MRGONIMG~, MRGONIMG+8, MRGONIMG+11, MRGONIMG+15, MRGONIMG+20, UPDSTDES~, UPDSTDES+7 , UPDSTDES+10, UPDSTDES+14, UPDSTDES+20
RECNO	MRGONIMG+6~, MRGONIMG+8, MRGONIMG+11, MRGONIMG+15, MRGONIMG+20, UPDSTDES+5~, UPDSTDES+7, UPDSTDES+10, UPDSTDES+14, UPDSTDES+20 , SAVIMGDT+1~, SAVIMGDT+3, SAVIMGDT+4, GTAGRECN+16~, GTAGRECN+17, GTAGRECN+18*, GTAGRECN+19, GTAGPAIR~, GTAGPAIR+2, UTAGPAIR~ , UTAGPAIR+1
RESULT	SAVRSLT~, SAVRSLT+20, SAVREC~, SAVREC+2, SAVREC+4, SAVREC+10, SAVREC+15, SAVHDR~, SAVHDR+4, SAVIMGDT~ , SAVIMGDT+3, SAVTAG~, SAVTAG+3, SAVTAG+14, GTAGRECN~, GTAGRECN+9, GTAGRECN+11, GTAGRECN+13, GTAGRECN+18, ADDTAGFL~ , ADDTAGFL+2, ADDTAGFL+5, ADDTAGFL+9, ADDTAGFL+11, ADDTAGFL+12, GTAGPAIR~, GTAGPAIR+2, UTAGPAIR~, UTAGPAIR+1
SEQ	SAVTAG+8~, SAVTAG+9, SAVTAG+12, SAVTAG+13, GTAGVAL+2~, GTAGVAL+4, GTAGVAL+6, GTAGVAL+7, GTAGVAL+9
STDESTAG	UPDSTDES+1~, UPDSTDES+2*, UPDSTDES+7, UPDSTDES+10, UPDSTDES+16, UPDSTDES+19
STUDYTA	MRGONMOD+6~
STUDYUID	SAVRSLT+1~, SAVRSLT+4, SAVRSLT+16, SAVRSLT+20, GETPRSLT~, GETPRSLT+8, GETPRSLT+10, MRGONMOD+6~, MRGONMOD+7, MRGONMOD+8 , MRGONIMG+6~, MRGONIMG+7, MRGONIMG+8, UPDSTDES+5~, UPDSTDES+6, UPDSTDES+7, SAVIMGDT~, SAVIMGDT+4, GTAGRECN~, GTAGRECN+13
STUIDRCN	GTAGRECN+10~, GTAGRECN+11*, GTAGRECN+12, GTAGRECN+13
STUIDTAG	GTAGRECN+1~, GTAGRECN+2*, GTAGRECN+11
TAG	MRGONMOD+14~, MRGONMOD+16, MRGONMOD+17, MRGONIMG+14~, MRGONIMG+16, MRGONIMG+17, UPDSTDES+13~, UPDSTDES+15, UPDSTDES+16, SAVREC+7~ , SAVREC+8, SAVREC+9*, SAVREC+10, SAVTAG~, SAVTAG+2, SAVTAG+3, SAVTAG+5, SAVTAG+11, SAVTAG+12, SAVTAG+13 , SAVTAG+14, GTAGVAL~, GTAGVAL+3, GTAGVAL+6, GTAGVAL+7, GTAGVAL+9, GTAGRECN~, GTAGRECN+18, ADDTAGFL~, ADDTAGFL+11 , ADDTAGFL+12
TAGPAIR	GTAGPAIR+1~, GTAGPAIR+2*, GTAGPAIR+3, UTAGPAIR~, UTAGPAIR+1
TAGRECNO	SAVTAG+8~, SAVTAG+9, SAVTAG+11, SAVTAG+12, SAVTAG+13
TAGVAL	SAVHDR+1~, SAVHDR+3, SAVHDR+4, SAVTAG+1~, SAVTAG+2, SAVTAG+3, SAVTAG+13, SAVTAG+14, GTAGVAL+2~, GTAGVAL+3 , GTAGVAL+8, GTAGVAL+9, GTAGVAL+11, ADDTAGFL~, ADDTAGFL+11
U	MRGONMOD+16, MRGONMOD+19, MRGONMOD+21, MRGONIMG+16, MRGONIMG+19, UPDSTDES+15, UPDSTDES+18, UPDSTDES+19, GTAGRECN+13, ADDTAGFL+6 , ADDTAGFL+7, ADDTAGFL+8, ADDTAGFL+11
UID	SAVREC~, SAVREC+4, SAVREC+15
V	SAVRSLT~, SAVRSLT+18, SAVRSLT+20, MERGEREC~, MERGEREC+2, MERGEREC+6, MERGEREC+9, MRGONMOD~, MRGONIMG~, UPDSTDES~ , SAVREC~, SAVREC+10, SAVTAG~, SAVTAG+2, GTAGVAL~
V(	SAVRSLT+4, SAVRSLT+5, SAVRSLT+7, SAVRSLT+13*, MERGEREC+2, MERGEREC+6, MERGEREC+9, MRGONMOD+7, MRGONMOD+11, MRGONMOD+20 , MRGONIMG+7, MRGONIMG+11, MRGONIMG+19, UPDSTDES+6, UPDSTDES+10, UPDSTDES+19, SAVREC+9, SAVTAG+5, SAVTAG+11, SAVTAG+12 , SAVTAG+13, GTAGVAL+3, GTAGVAL+6, GTAGVAL+7, GTAGVAL+9

Customize PDF page

Package: Imaging

Routine: MAGDQR13

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: