Routine: MAGDIR8R

Information

MAGDIR8R ;WOIFO/PMK - Automatic Import Reconciliation Workflow ; 27 Sep 2010 1:00 PM

Name	Comments	DBIA/ICR reference
DISPLAY	;Display a study
DISPLAY1	; Display for one machine
HEADING	; output the heading
NAME(NAME)	; convert person name from DICOM format to displayable one
DATE(YYYYMMDD,FORMAT)	; convert date from DICOM format to displayable one ; FORMAT: B for birthday mm/dd/yyyy, S for short mm/dd/yy, L for long
CONTINUE	; prompt
BUILD()	;
GETDATA(I,MODE,DATA)	; get the data from the I-th entry in the DATAFILE ; if MODE="LIST", then I is the index into the LIST ; if MODE="IEN", then I is the actual internal entry number
STORE	; store an entry
DELETE(IMAGEUID,MACHID,OLDPATH)	; remove an entry
DELETE1(IMAGEUID,MACHID,OLDPATH)	; remove the single entry ; Note: ^MAGD(2006.5752,0) must be locked prior to invocation

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No images to correct" Line Location: DISPLAY+20
Function Call: WRITE	Prompt: !,$J(I,3),")" Line Location: DISPLAY1+7
Function Call: WRITE	Prompt: ?5,$J(DATA("PID"),14) Line Location: DISPLAY1+8
Function Call: WRITE	Prompt: ?20,$E($$NAME(DATA("PNAMEDCM")),1,25) Line Location: DISPLAY1+9
Function Call: WRITE	Prompt: ?47,DATA("ACNUMB"),?64,$$DATE(DATA("STUDYDAT"),"S") Line Location: DISPLAY1+10
Function Call: WRITE	Prompt: ?72 Line Location: DISPLAY1+11
Function Call: WRITE	Prompt: " ",MODALITY,"=",^TMP("MAG",$J,"IRWF",MACHID,I,"MOD",MODALITY) Line Location: DISPLAY1+14
Function Call: WRITE	Prompt: @IOF,?TAB,X Line Location: HEADING+4
Function Call: WRITE	Prompt: !?TAB,$TR($J("",$L(X))," ","-") Line Location: HEADING+5
Function Call: WRITE	Prompt: !!," #",?7,"Patient ID",?22,"DICOM Patient Name" Line Location: HEADING+6
Function Call: WRITE	Prompt: ?49,"Accession #",?66,"Date",?73,"Images" Line Location: HEADING+7
Function Call: WRITE	Prompt: !,"----",?5,"--------------",?20,"-------------------------",?47,"----------------" Line Location: HEADING+8
Function Call: WRITE	Prompt: ?64,"--------",?73,"------" Line Location: HEADING+9