MAGDQR13 ;WOIFO/EdM/MLH/JSL/SAF/BT - Imaging RPCs for Query/Retrieve - Overflow from MAGDQR03; 10 Apr 2012 2:05 PM ; 06 Aug 2012 2:42 PM
Source file <MAGDQR13.m>
| 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
|
