Routine: MAGDRPCG

Entry Points

Name	Comments	DBIA/ICR reference
GETLRDFN(OUT,DFN,LRSSLIST)	; RPC = MAG DICOM GET LAB PAT LRDFN
GETDFN(OUT,LRDFN)	; RPC = MAG DICOM GET LAB PAT DFN
PATIENT(OUT,SORTORDER,LRDFN,LRSSLIST,BEGDATE,ENDDATE)	; RPC = MAG DICOM GET LAB BY PAT
LOOKUP(OUT,LRDFN,LRSS,LRI)	; RPC = MAG DICOM GET LAB IMAGES
LOOKUP1(LRDFN,LRSS,LRI)	; lookup an anatomic pathology image ; Images can be assocated with the TIU External Data file (#8925.91), ; or DICOM LAB TEMP LIST file (#2006.5838), or stored in the new ; SOP Class database IMAGE STUDY file (#2005.62) -- check all three
TIU(LRDFN,LRSS,LRI,ACNUMB)	; check for images assocated with the TIU External Data file (#8925.91)
LABTEMP(PARENTFILE,LRDFN,LRSS,LRI,ACNUMB)	; check for images assocated with the DICOM LAB TEMP LIST file (#2006.5838)
NEWSOP(LRSS,LRI,ACNUMB)	; check for images in the new SOP Class database IMAGE STUDY file (#2005.62)
DATE(OUT,SUBSCRIPTLEVEL,SORTORDER,LRSS,DATE,LRDFN,LRI)	; RPC = MAG DICOM GET LAB BY DATE
NXTLRDFN(OUT,SORTORDER,LRDFN,LRSSLIST)	; RPC = MAG DICOM GET LAB NEXT LRDFN
REVDATE(DATE)	; convert a LAB date to a FM date and vice versa

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ACNUMB = ",ACNUMB Line Location: LOOKUP1+8
Function Call: WRITE	Prompt: !,"LR(""",LRO,""",",DATE,",",LRDFN,",",LRI,")" Line Location: DATE+28
Function Call: WRITE	Prompt: !,"LR(""",LRO,""",",DATE,",",LRDFN,",",LRI,")" Line Location: DATE+29

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^LR - [#63]	GET1^DIQ