Routine: TIUPUTU

Package	Total	Call Graph
Text Integration Utility	11	SENDADD^TIUALRT UPDTIRT^TIUDIRT AUDIT^TIUEDI1 $$GETRECNW^TIUEDI3 ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$DIVISION,$$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1 GETTIU^TIULD $$REQCOSIG^TIULP $$DATE^TIULS MAIN^TIUMOVE RELEASE^TIUT
IHS Mods To Text Integration Utilities	2	VNOTE^BTIUPCC ($$IPAT,$$IVST)^BTIUU1
Kernel	2	$$FMADD^XLFDT $$STRIP^XLFSTR
VA Fileman	2	^DIC (,FILE)^DIE

Package	Total	Caller Graph
Text Integration Utility	15	TIUCPFIX TIUDSCNV TIUFIX1 TIUHL7U2 TIUPEFIX TIUPEVNT TIUPNAPI TIUPNCV1 TIUPUTA TIUPUTC1 TIUPUTCN TIUPUTCP TIUPUTS TIUSRVP1 TIUSRVP2
Surgery	5	SR100UTL SROESX SROESXA SROESXP SROHIS
Adverse Reaction Tracking	1	GMRAPET0

Entry Points

Name	Comments	DBIA/ICR reference
DELTEXT(DA)	; Delete existing text in preparation for replacement
LOOKUPX
CANEDIT(DA)	; Check whether or not document is released
WHATYPE(X)	; Identify document type ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
WHATYPE2(X)	; Identify document type ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
FOLLOWUP(TIUDA)	; Post-filing code for Discharge Summaries
LOOKUP	; Look-up code used by router/filer ; Required: TIUSSN, TIUADT
WHATITLE(X)	; Identify document type ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
STUFREC(DA,PARENT)	; Stuff fixed field data
MAKEADD()	; Create an addendum record

External References

Name	Field # of Occurrence
VNOTE^BTIUPCC	FOLLOWUP+12
$$IPAT^BTIUU1	FOLLOWUP+12
$$IVST^BTIUU1	FOLLOWUP+12
^DIC	MAKEADD+4, WHATYPE+6, WHATYPE2+6, WHATITLE+6
^DIE	MAKEADD+6, DELTEXT+2
FILE^DIE	STUFREC+25, FOLLOWUP+7, FOLLOWUP+10
SENDADD^TIUALRT	LOOKUP+30
UPDTIRT^TIUDIRT	FOLLOWUP+13
AUDIT^TIUEDI1	FOLLOWUP+14
$$GETRECNW^TIUEDI3	LOOKUP+17
$$CHKSUM^TIULC	FOLLOWUP+14
$$IDATE^TIULC	LOOKUP+8, LOOKUP+13, LOOKUP+14, STUFREC+20
$$NOW^TIULC	STUFREC+8, STUFREC+15, STUFREC+21
$$DIVISION^TIULC1	LOOKUP+12
$$DOCCLASS^TIULC1	MAKEADD+6
$$PNAME^TIULC1	LOOKUP+16
$$WHOCOSIG^TIULC1	FOLLOWUP+6
$$WHOSIGNS^TIULC1	FOLLOWUP+5
DOCPRM^TIULC1	LOOKUP+15
GETTIU^TIULD	FOLLOWUP+3
$$REQCOSIG^TIULP	FOLLOWUP+9
$$DATE^TIULS	STUFREC+22
MAIN^TIUMOVE	LOOKUP+10
RELEASE^TIUT	FOLLOWUP+13
$$FMADD^XLFDT	LOOKUP+8
$$STRIP^XLFSTR	LOOKUP+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	LOOKUP+24, CANEDIT+1, STUFREC+10, STUFREC+11, STUFREC+13, STUFREC+14, FOLLOWUP+8, FOLLOWUP+9

Label References

Name	Line Occurrences
$$CANEDIT	LOOKUP+19
$$MAKEADD	LOOKUP+24
$$WHATITLE	MAKEADD+2
LOOKUPX	LOOKUP+4, LOOKUP+7, LOOKUP+11, LOOKUP+13, LOOKUP+18, LOOKUP+27
STUFREC	LOOKUP+29

Naked Globals

Name	Field # of Occurrence
^(12	FOLLOWUP+8, FOLLOWUP+9
^(13	CANEDIT+1
^(15	CANEDIT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+5*, MAKEADD+6, MAKEADD+7, STUFREC~, STUFREC+2, DELTEXT~ , FOLLOWUP+9
DFN	LOOKUP+2~, LOOKUP+10, LOOKUP+11, LOOKUP+17, STUFREC+4
DIC	MAKEADD+1~, MAKEADD+3, MAKEADD+6, WHATYPE+3~, WHATYPE+4, WHATYPE2+3~, WHATYPE2+4, WHATITLE+3~, WHATITLE+4
DIC("S"	WHATYPE+5, WHATYPE+6!, WHATYPE2+5, WHATYPE2+6!, WHATITLE+5*, WHATITLE+6!
DIC(0	MAKEADD+3, WHATYPE+4, WHATYPE2+4, WHATITLE+4
DIE	MAKEADD+1~, MAKEADD+6, DELTEXT+1~, DELTEXT+2
DLAYGO	MAKEADD+1~, MAKEADD+3*
DR	MAKEADD+1~, MAKEADD+6, DELTEXT+1~, DELTEXT+2
FDA	STUFREC+1~, FOLLOWUP+1~
FDARR	STUFREC+1~, STUFREC+2, STUFREC+4, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+10, STUFREC+11, STUFREC+12 , STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+23, STUFREC+24, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+4 , FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+10
FLAGS	STUFREC+1~, STUFREC+2, STUFREC+25, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+7, FOLLOWUP+10
IENS	STUFREC+1~, STUFREC+2, FOLLOWUP+1~, FOLLOWUP+2
PARENT	STUFREC~, STUFREC+3, STUFREC+9, STUFREC+10, STUFREC+11, STUFREC+12, STUFREC+13, STUFREC+14
>> RECORD("TYPE"	LOOKUP+15, LOOKUP+16
TIU	LOOKUP+2~, LOOKUP+10, LOOKUP+11, LOOKUP+17, FOLLOWUP+1~, FOLLOWUP+3, FOLLOWUP+13
TIU("AD#"	STUFREC+7
TIU("EDT"	LOOKUP+13, STUFREC+6, FOLLOWUP+4
TIU("INST"	STUFREC+17
TIU("LDT"	LOOKUP+14, STUFREC+7, STUFREC+12, STUFREC+18, STUFREC+19, STUFREC+22*
TIU("LOC"	LOOKUP+12, STUFREC+16
TIU("TS"	STUFREC+8
TIU("VISIT"	STUFREC+4
>> TIUADT	LOOKUP+4, LOOKUP+8, LOOKUP+13
TIUATYP	MAKEADD+1~, MAKEADD+2*, MAKEADD+3, MAKEADD+6
TIUDA	FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+8, FOLLOWUP+12, FOLLOWUP+13, FOLLOWUP+14
TIUDAD	LOOKUP+2~, LOOKUP+24*, LOOKUP+29, LOOKUP+30
>> TIUDICDT	LOOKUP+14, STUFREC+20*, STUFREC+21
TIUDPRM	LOOKUP+2~, LOOKUP+15, LOOKUP+17
TIUEDIT	LOOKUP+2~, LOOKUP+19*
TIUEDT	LOOKUP+2~, LOOKUP+8*, LOOKUP+9, LOOKUP+10
TIUFPRIV	MAKEADD+1~, WHATYPE+3~, WHATYPE2+3~, WHATITLE+3~
>> TIUHDR(	LOOKUP+28!
>> TIUINST	LOOKUP+12*
TIULDT	LOOKUP+2~, LOOKUP+8*, LOOKUP+10
TIUMSG	STUFREC+1~, FOLLOWUP+1~
>> TIUNEW	LOOKUP+17
TIURDT	STUFREC+1~, STUFREC+18, STUFREC+21, STUFREC+22, STUFREC+24
>> TIUSSN	LOOKUP+4, LOOKUP+5, LOOKUP+6, LOOKUP+7, LOOKUP+10
>> TIUTYP(1	LOOKUP+16*, LOOKUP+17
TIUXCRP	LOOKUP+2~*
U	LOOKUP+16, CANEDIT+1, STUFREC+4, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+10, STUFREC+11, STUFREC+12, STUFREC+13 , STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+22, FOLLOWUP+4, FOLLOWUP+8, FOLLOWUP+9
X	MAKEADD+1~, MAKEADD+3*, DELTEXT+1~, WHATYPE~, WHATYPE2~, WHATITLE~
Y	LOOKUP+4, LOOKUP+7, LOOKUP+9, LOOKUP+11, LOOKUP+13, LOOKUP+14, LOOKUP+17, LOOKUP+18, LOOKUP+19, LOOKUP+24 , LOOKUP+27, LOOKUP+29, LOOKUP+30, MAKEADD+1~, MAKEADD+5, DELTEXT+1~, WHATYPE+3~, WHATYPE+7, WHATYPE2+3~, WHATYPE2+7 , WHATITLE+3~, WHATITLE+7

Customize PDF page

Package: Text Integration Utility

Routine: TIUPUTU

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 21

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: