Routine: TIUPS225

Package	Total	Call Graph
VA FileMan	4	FILESEC^DDMOD $$FIND1^DIC UPDATE^DIE EN1^DIK
Kernel	2	UPDATE^XPDID (BMES,MES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; control subroutine
SETID	; Create "Write identifier" for file 8925.1
BALOINC	; Build "ALOINC" x-ref on file 8925.1
SETSEC	; set file security on 8926.1
SETMGS	; set mail groups for TIU ENTERPRISE STANDARD TITLES bulletin

Name	Field # of Occurrence
FILESEC^DDMOD	SETSEC+2
$$FIND1^DIC	SETMGS+6, SETMGS+14
UPDATE^DIE	SETMGS+24
EN1^DIK	BALOINC+7
UPDATE^XPDID	BALOINC+9
BMES^XPDUTL	SETID+2, BALOINC+2, SETMGS+4
MES^XPDUTL	SETMGS+11, SETMGS+19, SETMGS+29, SETMGS+33, SETMGS+38

Name	Line Occurrences (* Changed, ! Killed)
^DD(8925.1	SETID+4*
^TIU(8925.1 - [#8925.1]	BALOINC+4!, BALOINC+6

Name	Field # of Occurrence
DA	BALOINC+1~, BALOINC+5, BALOINC+6
DIK	BALOINC+1~, BALOINC+5*
DIK(1	BALOINC+5*
TIUBIEN	SETMGS+1~, SETMGS+6*, SETMGS+8, SETMGS+23
TIUBNM	SETMGS+1~, SETMGS+5*, SETMGS+6, SETMGS+10, SETMGS+28, SETMGS+32
TIUCNT	BALOINC+1~, BALOINC+5, BALOINC+8, BALOINC+9
TIUERRF	SETMGS+1~, SETMGS+12, SETMGS+13, SETMGS+20, SETMGS+30*, SETMGS+35
TIUFDA	SETMGS+1~, SETMGS+22~
TIUFDA(	SETMGS+23*
TIUGIEN	SETMGS+1~, SETMGS+14*, SETMGS+16, SETMGS+23
TIUGNM	SETMGS+1~, SETMGS+13*, SETMGS+14, SETMGS+18, SETMGS+28, SETMGS+32
TIUID	SETID+1~, SETID+3*, SETID+4
TIUIEN	SETMGS+22~
TIUIEN(2	SETMGS+32
TIULNE	SETMGS+1~
TIUMSG	SETMGS+2~, SETMGS+3!, SETMGS+11!, SETMGS+19!, SETMGS+22~, SETMGS+29!, SETMGS+33!, SETMGS+38!
TIUMSG("DIERR"	SETMGS+26
TIUMSG(1	SETMGS+9, SETMGS+17, SETMGS+27, SETMGS+31, SETMGS+36*
TIUMSG(2	SETMGS+10, SETMGS+18, SETMGS+28, SETMGS+32, SETMGS+37*
TIUSC	SETSEC+1~, SETSEC+2
TIUSC("RD"	SETSEC+1*
TIUTXT	SETMGS+2~