Routine: TIUPS120

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT UPDATE^XPDID BMES^XPDUTL
Text Integration Utility	1	$$ISDS^TIULX
VA Fileman	1	^DIE

Package

Total

Call Graph

$$FMADD^XLFDT UPDATE^XPDID BMES^XPDUTL

$$ISDS^TIULX

^DIE

Name	Comments	DBIA/ICR reference
MAIN	; Control Subroutine
GETSTX
FIX(TIUDAD,TIUDA)	; Make TIUDA an addendum of TIUDAD
ADDLIST(TIUDA)	; If Multiple Discharge Summaries are present, add to list
COUNT(DFN,TTL,VSTR)	; How many are there
GETSTART()	; Find out when Patch TIU1100 was installed
GATHER(TIUIDT)	; Fetch list of summaries to fix

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	GATHER+2, GATHER+4, GATHER+5, ADDLIST+2, ADDLIST+9, ADDLIST+10, COUNT+2, COUNT+3
^XPD(9.7 - [#9.7]	GETSTART+4, GETSTART+5
^XTMP("TIUPS120"	MAIN+4, MAIN+7, MAIN+8, MAIN+11, MAIN+13, GATHER+10, ADDLIST+15, ADDLIST+16, ADDLIST+17, GETSTART+2

Name	Field # of Occurrence
^(12	ADDLIST+2

Name	Field # of Occurrence
COUNT	ADDLIST+1~, ADDLIST+5*, ADDLIST+6
DA	FIX+1~, FIX+2*
DFN	COUNT~, COUNT+2
DIE	FIX+1~, FIX+2*
DR	FIX+1~, FIX+2*
DT	MAIN+4
INSTDA	GETSTART+1~, GETSTART+4, GETSTART+5
TIUCNT	MAIN+1~, MAIN+14, MAIN+15, ADDLIST+1~, ADDLIST+8, ADDLIST+13, ADDLIST+14
TIUD0	GATHER+5~, GATHER+7, ADDLIST+1~, ADDLIST+2, ADDLIST+3, ADDLIST+5, ADDLIST+9, COUNT+3~*, COUNT+5
TIUD01	ADDLIST+1~, ADDLIST+10~*, ADDLIST+12
TIUD12	ADDLIST+1~, ADDLIST+2*, ADDLIST+3
TIUDA	MAIN+12~, MAIN+13, MAIN+14, GATHER+3~, GATHER+4, GATHER+5, GATHER+9, ADDLIST~, ADDLIST+2, COUNT+1~* , COUNT+2*, COUNT+3, FIX~, FIX+2
TIUDA1	ADDLIST+1~, ADDLIST+8, ADDLIST+9, ADDLIST+10, ADDLIST+14, ADDLIST+15, ADDLIST+16
TIUDAD	MAIN+1~, MAIN+10, MAIN+11, MAIN+13, MAIN+14, ADDLIST+14*, ADDLIST+15, ADDLIST+16, FIX~
TIUDT	MAIN+1, GATHER+1~, GATHER+2*, GATHER+4, GATHER+10
TIUIDT	MAIN+1~, MAIN+5*, MAIN+6, GATHER~, GATHER+2
TIUVSTR	ADDLIST+1~, ADDLIST+3*, ADDLIST+5, ADDLIST+9
TIUY	COUNT+1~, COUNT+6, COUNT+7, GETSTART+1~, GETSTART+2, GETSTART+3, GETSTART+5, GETSTX
TTL	COUNT~, COUNT+2
U	MAIN+4, MAIN+8, ADDLIST+3, ADDLIST+5, ADDLIST+9, ADDLIST+12, COUNT+5, GETSTART+5
VSTR	COUNT~, COUNT+2
XPDIDTOT	MAIN+1~, MAIN+8*
XPDIDVT	MAIN+1~, MAIN+2, MAIN+8

Information