Routine: MAGNU003

Information

MAGNU003 ;WOIFO/NST - Misc fuctions for image list ; 16 Jan 2018 3:42 AM

Name	Comments	DBIA/ICR reference
STDINFO(IMGIEN,REFTYPE,REFIEN,MAGNCXT)	; Get study info by image IEN in file #2005 or #2005.1 ; IMGIEN -- Image IEN ; REFTYPE = "RAD", "TIU" ; REFIEN = IEN in respective file of REFTYPE ; MAGNCXT = CPRS Context ID
INSFIMG(DATA,MAGNCNT,OUT)	; Append First Image Info from 2005 image structure
ACCNUM(REFTYPE,REFIEN,MAGNCXT)
ACNRAD(RARPT,MAGNCXT)	; Get Accession number by RAD report IEN
ACNTIU(MAGTIUDA)	; Get Accession number by TIU Note IEN
CPRSCTX(REFTYPE,REFIEN)
REFBYACN(REFTYPE,REFIEN,ACNUMB)	; Get report by accession number
GMRCIEN(ACNUMB)	; return the GMRC IEN, given a consult/procedure accession number ; ACNUMB is the accession number for a consult/procedure request ; OLD Format: GMRC-<gmrcien>, where <gmrcien>is the internal entry number of the request ; New Format: <sss>-GMR-<gmrcien>, where <sss> is station number, and <gmrcien> ; is the internal entry number of the request, up to 8 digits (100 million)
RACPRS(REFIEN)	; Return Radiology CRPS context by Report IEN in file #74 ; REFIEN - Radiology report IEN in file #74
TIUCPRS(REFIEN)	; Return TIU CRPS context by TIU note IEN in file #8925 ; REFIEN - TIU note IEN in file #8925