Routine: MAGDMEDJ

Information

MAGDMEDJ ;WOIFO/LB,RRB,MLH - Routine to fix failed DICOM entries ; 11 Apr 2012 1:01 PM

Name	Comments	DBIA/ICR reference
L	;Loop thru the entire file for entries that need processing
DISPLAY	;
NEWCASE	;
CHK	;remove any punctuation before doing comparison on SSN
NEWDIS	;
UPDT	;
SETDEL	;Entry to be deleted
ASKWHCH	;More than one patient found with same name

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Nothing to process!" Line Location: L+8
Function Call: WRITE	Prompt: !," Lookup patient name",! Line Location: L+32
Function Call: WRITE	Prompt: !,"Cannot update if patient cannot be identified.",$C(7) Line Location: L+35
Function Call: WRITE	Prompt: !,"No specialty selected" Line Location: L+41
Function Call: WRITE	Prompt: !,"No entries were found for the selected specialty." Line Location: L+45
Function Call: WRITE	Prompt: !,"No Medicine file entries found for this patient" Line Location: L+49
Function Call: WRITE	Prompt: !,"on the date/time the image was captured." Line Location: L+50
Function Call: WRITE	Prompt: !,"Cannot update if Medicine file entry cannot be found.",$C(7) Line Location: L+53
Function Call: WRITE	Prompt: !,"Are you sure you want to CORRECT?" Line Location: UPDT+2
Function Call: WRITE	Prompt: !,"Updating the file." Line Location: UPDT+4
Function Call: WRITE	Prompt: "." Line Location: UPDT+5
Function Call: WRITE	Prompt: "." Line Location: UPDT+6
Function Call: WRITE	Prompt: "." Line Location: UPDT+8
Function Call: WRITE	Prompt: "." Line Location: UPDT+12
Function Call: WRITE	Prompt: "." Line Location: UPDT+13
Function Call: WRITE	Prompt: "." Line Location: UPDT+14