Routine: TIUGEDI1

Information

TIUGEDI1 ; SLC/MAM - Enter New ID Document Code; 11/14/00

Name	Comments	DBIA/ICR reference
GETRECG(DFN,TIU,TIUTYP,TIUDPRM,TIUNEW,EDIT,DADDA)	; Get record
GETX	;
EXISTLNK(DFN,TIUTYP,TIUVSTR,PERSON,DADDA)	; If a docmt PERSON
LOOP	; -- Find existing docmt for given patient, title, & visit:--
EXISTLX	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There is already a ",$P(TIUTYP(1),U,3),".",!,"Only ONE record of this type per Visit is allowed...",! Line Location: GETRECG+30
Function Call: WRITE	Prompt: !,"The note already has an ID entry you can edit with that title and visit" Line Location: GETRECG+35
Function Call: WRITE	Prompt: !,"Opening the existing entry" Line Location: GETRECG+38
Function Call: WRITE	Prompt: !,"You already have a document you can link for that patient, title, and visit." Line Location: GETRECG+41
Function Call: WRITE	Prompt: !,"Opening the existing entry" Line Location: GETRECG+47
Function Call: WRITE	Prompt: !,"No new entry created" Line Location: GETX+1