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
IHS Electronic Health Record	2	BEHODCP BEHODCS
IHS Mods To Text Integration Utilities	1	BTIUEDIT

Entry Points

Name	Comments	DBIA/ICR reference
EXIST(DFN,TIUTYPDA,TIUVSTR,REQEDIT,PERSON)	; If a docmt already
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	;
CREXIT
CREATREC(DFN,TIU,TIUTYP1)	; Create document record - Returns DA ; Receives array TIU as in GETRECNW ; Needs var TIUTYP1 as in GETRECNW
INQUIRE()	; Ask user whether to create a new note anyway
EXISTEX	;
LOOP	; -- Find existing docmt for given patient, title, & visit:--

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	DIE Line Location: CREATREC+18
Routine Call	DIC Line Location: CREATREC+9

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

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: