Routine: TIUGEDI1

Information

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

Package	Total	Call Graph
Text Integration Utility	4	($$CREATREC,$$EXIST)^TIUEDI3 DOCPRM^TIULC1 $$CANDO^TIULP $$READ^TIUU

Package	Total	Caller Graph
Text Integration Utility	1	TIUGEDIT

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

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

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	GETRECG+34, LOOP+1, LOOP+3, LOOP+4!, LOOP+7, LOOP+12

Name	Line Occurrences
$$EXISTLNK	GETRECG+25
GETX	GETRECG+28, GETRECG+34, GETRECG+43, GETRECG+44, GETRECG+47, GETRECG+49

Name	Field # of Occurrence
CANDO	GETRECG+46~*, GETRECG+47, GETRECG+49
CANLINK	EXISTLNK+6~, LOOP+8~*, LOOP+10
DA	GETRECG+16~, GETRECG+29, GETRECG+37, GETRECG+38, GETRECG+44, GETRECG+47, GETRECG+50, GETX+1, GETX+2, EXISTLNK+6~ , EXISTLNK+8, LOOP+1, LOOP+17, LOOP+19*, EXISTLX+1
DADDA	GETRECG~, GETRECG+25, GETRECG+34, EXISTLNK~, LOOP+13
DALKABLE	GETRECG+16~, GETRECG+25*, GETRECG+28, GETRECG+34, GETRECG+38, GETRECG+46, GETRECG+47, GETRECG+50
DALKDAD	EXISTLNK+6~, LOOP+12*, LOOP+13, LOOP+15, LOOP+17
DFN	GETRECG~, GETRECG+22, GETRECG+25, GETRECG+29, GETRECG+37, GETRECG+44, EXISTLNK~, LOOP+1, LOOP+4
>> DIROUT	GETRECG+43
>> DTOUT	GETRECG+43
>> DUOUT	GETRECG+43
DUZ	GETRECG+25, EXISTLNK+7
EDIT	GETRECG~, GETRECG+21, GETRECG+38, GETRECG+47*
MULTOK	GETRECG+16~, GETRECG+20*, GETRECG+22
PERSON	EXISTLNK~, EXISTLNK+7*, LOOP+8
REQUEST	EXISTLNK+6~, EXISTLNK+8, LOOP+1, LOOP+7
TIU	GETRECG~, GETRECG+29, GETRECG+37, GETRECG+44
TIU("VSTR"	GETRECG+22, GETRECG+25
TIUDPRM	GETRECG~, GETRECG+20
TIUDPRM(0	GETRECG+20
TIUI	EXISTLNK+6~, EXISTLNK+8, LOOP+1, LOOP+3, LOOP+4, LOOP+7, LOOP+8, LOOP+12, LOOP+15, LOOP+17 , LOOP+19
TIUNEW	GETRECG~, GETRECG+21, GETRECG+29, GETRECG+37, GETRECG+44, GETX+1*
TIUTYP	GETRECG~, GETRECG+20, GETRECG+22, GETRECG+25, EXISTLNK~, LOOP+1, LOOP+4
TIUTYP(1	GETRECG+29, GETRECG+30, GETRECG+37, GETRECG+44
TIUVSTR	EXISTLNK~, LOOP+1, LOOP+4
TLFULL	GETRECG+16~, GETRECG+21, GETRECG+22, GETRECG+29, GETRECG+30
U	GETRECG+20, GETRECG+30, LOOP+7
YESDOIT	GETRECG+16~, GETRECG+36, GETRECG+37, GETRECG+42, GETRECG+44