Routine: TIUEDI3

Package	Total	Call Graph
Text Integration Utility	6	$$STATUS^TIULC $$DOCCLASS^TIULC1 $$CANDO^TIULP $$ISPFTTL^TIUPRFL $$READ^TIUU DEFER^TIUVSIT
VA FileMan	2	^DIC ^DIE
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Text Integration Utility	17	TIUCPFIX TIUEDI1 TIUEDIM TIUEDIT TIUEDITR TIUFIX1 TIUGEDI1 TIUGEDIT TIUHL7P3 TIUPEFIX TIUPUTCN TIUPUTCP TIUPUTPF TIUPUTPN TIUPUTU TIURC1 TIUSRVA

Entry Points

Name	Comments	DBIA/ICR reference
GETRECNW(DFN,TIU,TIUTYP1,TIUNEW,TIUDPRM,TIUINQ,PERSON,EDIT)	; New GETREC. ; Code rewritten from the old GETREC^TIUEDI1. ; GETREC^TIUEDI1 now calls this code. ; New parameters: Left out TIUCREAT since we always used it as 1. ; Added PERSON and EDIT. ; Can be called directly, or via GETREC^TIUEDI1 for
GETNWX	;
EXIST(DFN,TIUTYPDA,TIUVSTR,REQEDIT,PERSON)	; If a docmt already
LOOP	; -- Find existing docmt for given patient, title, & visit:--
EXISTEX	;
CREATREC(DFN,TIU,TIUTYP1)	; Create document record - Returns DA ; Receives array TIU as in GETRECNW ; Needs var TIUTYP1 as in GETRECNW
CREXIT
INQUIRE()	; Ask user whether to create a new note anyway

External References

Name	Field # of Occurrence
^DIC	CREATREC+9
^DIE	CREATREC+18
$$STATUS^TIULC	CREATREC+17
$$DOCCLASS^TIULC1	CREATREC+17
$$CANDO^TIULP	LOOP+17
$$ISPFTTL^TIUPRFL	EXIST+14
$$READ^TIUU	GETRECNW+85, INQUIRE+3
DEFER^TIUVSIT	CREATREC+20
$$UP^XLFSTR	CREATREC+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There is already a ",TIUTYPNM,".",! Line Location: GETRECNW+83
Function Call: WRITE	Prompt: "Only ONE record of this type per Visit is allowed...",! Line Location: GETRECNW+84
Function Call: WRITE	Prompt: !!,"There is already a ",TIUTYPNM," which you may edit." Line Location: GETRECNW+95
Function Call: WRITE	Prompt: !,"Only ONE record of this type per Visit is allowed...",! Line Location: GETRECNW+96
Function Call: WRITE	Prompt: "Opening the existing record" Line Location: GETRECNW+97
Function Call: WRITE	Prompt: !!,"There is already a ",TIUTYPNM," which you may edit." Line Location: GETRECNW+101
Function Call: WRITE	Prompt: !!,"Okay, I'll open the existing record then!" Line Location: GETRECNW+105
Function Call: WRITE	Prompt: !,TIUTYPNM," record could not be created.",! Line Location: CREATREC+10
Routine Call	DIC Line Location: CREATREC+9
Routine Call	DIE Line Location: CREATREC+18

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$CREATREC	GETRECNW+64, GETRECNW+81, GETRECNW+104
$$EXIST	GETRECNW+73, GETRECNW+76
$$INQUIRE	GETRECNW+102
CREXIT	CREATREC+10
EXISTEX	EXIST+14
GETNWX	GETRECNW+64, GETRECNW+80, GETRECNW+93
LOOP	LOOP+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CANEDIT	LOOP+17~*, LOOP+18
DA	GETRECNW+57~, GETRECNW+64, GETRECNW+71, GETRECNW+81, GETRECNW+86, GETRECNW+87, GETRECNW+94, GETRECNW+100, GETRECNW+104, GETRECNW+106* , GETNWX+1, GETNWX+2, EXIST+10~, EXIST+13, LOOP+1, LOOP+14, LOOP+18, LOOP+22, EXISTEX+1, CREATREC+3~ , CREATREC+7, CREATREC+13*, CREATREC+17, CREATREC+20, CREXIT
DFN	GETRECNW~, GETRECNW+64, GETRECNW+73, GETRECNW+76, GETRECNW+81, GETRECNW+104, EXIST~, LOOP+1, LOOP+4, CREATREC~ , CREATREC+17
DIC	CREATREC+3~, CREATREC+8*
DIC(0	CREATREC+8*
DIE	CREATREC+14~*
>> DIROUT	GETRECNW+103
DLAYGO	CREATREC+3~, CREATREC+8*
DR	CREATREC+14~, CREATREC+17*
>> DTOUT	GETRECNW+103
>> DUOUT	GETRECNW+103
DUZ	GETRECNW+60, EXIST+12
EDABLEDA	GETRECNW+58~, GETRECNW+71, GETRECNW+76, GETRECNW+80, GETRECNW+93, GETRECNW+94, GETRECNW+100, GETRECNW+106
EDIT	GETRECNW~, GETRECNW+71, GETRECNW+94, GETRECNW+100, GETRECNW+106
MULTOK	GETRECNW+57~, GETRECNW+69, GETRECNW+70, GETRECNW+74
>> NOSAVE	GETRECNW+64
PERSON	GETRECNW~, GETRECNW+60, GETRECNW+76, EXIST~, EXIST+12, LOOP+17
REQEDIT	EXIST~, EXIST+11*, LOOP+14
REQUEST	EXIST+10~, EXIST+13, LOOP+1, LOOP+7
RETRY	EXIST+10~, LOOP+22, LOOP+23*, CREATREC+3~
STATUS	EXIST+10~, LOOP+10*, LOOP+11
TIU	GETRECNW~, GETRECNW+64, GETRECNW+81, GETRECNW+104, CREATREC~
TIU("INST"	CREATREC+17
TIU("LOC"	CREATREC+17
TIU("STOP"	CREATREC+20
TIU("VISIT"	CREATREC+16
TIU("VLOC"	CREATREC+17
TIU("VSTR"	GETRECNW+61, CREATREC+6
>> TIUCHNG("EXIST"	GETRECNW+98, GETRECNW+106
TIUDPRM	GETRECNW~
TIUDPRM(0	GETRECNW+69, GETRECNW+70
TIUFPRIV	CREATREC+3~, CREATREC+7*
TIUI	EXIST+10~, EXIST+13, LOOP+1, LOOP+3, LOOP+4, LOOP+7, LOOP+10, LOOP+14, LOOP+17, LOOP+18
TIUINQ	GETRECNW~, GETRECNW+82, GETRECNW+87, GETRECNW+94, GETRECNW+100
TIUNEW	GETRECNW~, GETRECNW+64, GETRECNW+71, GETRECNW+81, GETRECNW+104, GETNWX+1*
TIUPRMT	INQUIRE+1~, INQUIRE+2*, INQUIRE+3
TIUTYP1	GETRECNW~, GETRECNW+64, GETRECNW+72, GETRECNW+81, GETRECNW+104, CREATREC~, CREATREC+5
TIUTYPDA	GETRECNW+59~, GETRECNW+72, GETRECNW+73, GETRECNW+76, EXIST~, EXIST+14, LOOP+1, LOOP+4, CREATREC+4~, CREATREC+5 , CREATREC+9
TIUTYPNM	GETRECNW+59~, GETRECNW+72, GETRECNW+83, GETRECNW+95, GETRECNW+101, CREATREC+4~, CREATREC+5, CREATREC+10
TIUVISIT	CREATREC+3~, CREATREC+16*, CREATREC+17
TIUVSTR	GETRECNW+57~, GETRECNW+61, GETRECNW+73, GETRECNW+76, EXIST~, LOOP+1, LOOP+4, LOOP+22, LOOP+23, CREATREC+3~ , CREATREC+6*, CREATREC+15
TIUVTYP	CREATREC+3~, CREATREC+15*, CREATREC+17
TIUY	INQUIRE+1~, INQUIRE+2, INQUIRE+3, INQUIRE+4
TLFULL	GETRECNW+57~, GETRECNW+71, GETRECNW+74, GETRECNW+81, GETRECNW+94, GETRECNW+99
U	GETRECNW+70, GETRECNW+72, LOOP+7, LOOP+10, CREATREC+5, CREATREC+17
X	CREATREC+3~, CREATREC+9*
XISONE	GETRECNW+57~, GETRECNW+73*, GETRECNW+74, GETRECNW+86, GETRECNW+87
Y	CREATREC+3~, CREATREC+10, CREATREC+13, CREATREC+17
YESDOIT	GETRECNW+58~, GETRECNW+85, GETRECNW+86, GETRECNW+102, GETRECNW+104

Customize PDF page

Package: Text Integration Utility

Routine: TIUEDI3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: