Routine: TIUP290

Package	Total	Call Graph
Kernel	5	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL $$RES^XUDHSET $$PROD^XUPROD
VA FileMan	3	($$FIND1,FIND)^DIC (,FILE,UPDATE)^DIE (,EN,ENALL,ENALL2)^DIK
Text Integration Utility	2	(EN,TEMPLATE)^TIUP290A GETBOIL^TIUSRVT
Toolkit	1	(EN,GETLST)^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
MKOBJS	; install objects manually into 8925.1
OBJECTS	; install objects manually instead of via DD w/data screen - ajb
PRE	;pre-init
POST	;post-init
PREPARE	; disable items from previous installs
RMVOLD	;Remove any old Copy/Paste related components which are no longer used
DISABLE(TIUDA,TIUNM)	; Disable a document definition
LU(FILE,NAME,FLAGS,SCREEN,INDEXES)	; call FileMan Finder to look up file entry
CRE8DC	;create doc class if not already on system
CRE8TITL(DOCLAS)	;will loop thru TITLES to Create and Install new titles
CREATE(TIUNAME,TIUABB,TIUPNAME,TIUTYPE,TIUSTAT,TIUERR)	;creates/update entry; returns IEN of entry
INSTALL(TIUDNM,TIUPRNT,TIUMNTXT)	; Install document definition
UPDATE(TIUDA,TIUREC,TIUERR)	; call FileMan Filer to update record
MAP	; Map HT Titles to appropriate VHA Enterprise Standard Titles
REINDEX	; Re-index entries
RMVTSK	;Task clean-up of 8928 file if greater than 500 entries
RMV8928	;Clean-up 8928 file entries in contain fields .13 or .14 data
SETCNLK	;set TIU TEMPLATE CONSULT LOCK param vals on post-init
SETPAR(TIUNAME,TIUINST)	;set it
ERROR	; show it
CHEKPAR(TIUNAME)	;check for param value
SETTLOCK(IEN)	;set template lock
SETFLOCK(IEN)	;set template field lock
FLD	;build list of template fields
BLD(TIUIEN,TIUARY)	; Build array of templates.
TITLES	;TITLE ^ VHA ENT STD TITLE ^ MENU TEXT ^ PARENT DOC CLASS TYPE
DOCCLASS	;CLASS NAME ^ IEN VARIABLE NAME

Name	Field # of Occurrence
^%ZTLOAD	RMVTSK+6
$$FIND1^DIC	RMVOLD+24, LU+2
FIND^DIC	SETCNLK+2
^DIE	SETTLOCK+7, SETFLOCK+9
FILE^DIE	UPDATE+6, MAP+14, MAP+23
UPDATE^DIE	MKOBJS+15, CREATE+13, INSTALL+5
^DIK	MKOBJS+4, RMVOLD+13, RMVOLD+21, RMVOLD+34, RMVOLD+37
EN^DIK	MAP+31
ENALL^DIK	REINDEX+6
ENALL2^DIK	REINDEX+4
EN^TIUP290A	POST+16
TEMPLATE^TIUP290A	POST+18
GETBOIL^TIUSRVT	FLD+5
$$FMTE^XLFDT	MAP+11
$$NOW^XLFDT	MAP+11
EN^XPAR	SETPAR+2
GETLST^XPAR	CHEKPAR+4
BMES^XPDUTL	POST+9, POST+15, POST+17, PREPARE+3, PREPARE+14, RMVOLD+2, RMVOLD+4, RMVOLD+38, CRE8DC+7, CRE8DC+10 , CRE8TITL+8, CRE8TITL+14, CRE8TITL+15, INSTALL+7, MAP+2, MAP+8, MAP+17, MAP+26, REINDEX+2, SETCNLK+4 , SETCNLK+11, SETCNLK+18, SETCNLK+22, SETPAR+3, ERROR+1
MES^XPDUTL	POST+12, POST+13, POST+14, RMVOLD+15, RMVOLD+26, DISABLE+2, DISABLE+6, DISABLE+7, CRE8DC+8, CRE8TITL+9 , INSTALL+8, MAP+18, MAP+19, MAP+27, RMVTSK+7, RMVTSK+8, SETCNLK+5, SETCNLK+6, SETCNLK+7, SETCNLK+8 , SETCNLK+9, SETCNLK+23, ERROR+2
$$RES^XUDHSET	POST+10
$$PROD^XUPROD	MAP+3

FileNo	Call Tags
^TIU(8927 - [#8927]	FIND^DIC
^XTV(8989.51 - [#8989.51]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	PREPARE+12, MAP+30
^TIU(8925.99 - [#8925.99]	RMVOLD+6, RMVOLD+7, RMVOLD+8*
^TIU(8927 - [#8927]	SETCNLK+14, SETTLOCK+6, SETTLOCK+7, BLD+5, BLD+6
^TIU(8927.1 - [#8927.1]	SETFLOCK+7, SETFLOCK+8, SETFLOCK+9
^TIUP(8928 - [#8928]	RMVOLD+16, RMVOLD+17, RMV8928+3, RMV8928+4, RMV8928+6*
^TMP("TIU F"	SETFLOCK+2!, SETFLOCK+6, SETFLOCK+7, SETFLOCK+10!, FLD+8!, FLD+19, FLD+21, FLD+22*
^TMP("TIU FIELDS"	FLD+2!, FLD+7*, FLD+9, FLD+10, FLD+24!
^XTV(8989.5 - [#8989.5]	RMVOLD+28, RMVOLD+30, RMVOLD+32

Name	Line Occurrences
$$CHEKPAR	SETCNLK+17
$$CREATE	CRE8DC+4, CRE8TITL+5
$$INSTALL	CRE8DC+9, CRE8TITL+11, CRE8TITL+12, CRE8TITL+13
$$LU	MKOBJS+3, MKOBJS+9, POST+3, POST+4, POST+5, POST+6, POST+7, PREPARE+7, PREPARE+13, MAP+7
BLD	SETTLOCK+2, SETFLOCK+3, BLD+6
CRE8DC	POST+8
CRE8TITL	POST+8
DISABLE	PREPARE+8, PREPARE+13
ERROR	SETPAR+3
FLD	SETFLOCK+4
MAP	POST+8
MKOBJS	PRE+2
PREPARE	PRE+1
REINDEX	POST+8
RMV8928	RMVOLD+16
RMVOLD	PRE+1
RMVTSK	RMVOLD+17
SETCNLK	POST+18
SETFLOCK	SETCNLK+21
SETPAR	SETCNLK+19
SETTLOCK	SETCNLK+20
UPDATE	DISABLE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEG	FLD+8~, FLD+13*, FLD+14, FLD+17
CNT	FLD+3~, FLD+4, FLD+5, FLD+9*, FLD+10
CNT2	FLD+3~, FLD+6, FLD+7
CNT3	FLD+3~, FLD+7
DA	MKOBJS+2~, MKOBJS+3, RMVOLD+1~, RMVOLD+11, RMVOLD+14!, RMVOLD+18, RMVOLD+22!, RMVOLD+31, RMVOLD+32, RMVOLD+36 , MAP+31~, SETTLOCK+3~, SETTLOCK+5, SETTLOCK+6, SETTLOCK+7, SETFLOCK+1~, SETFLOCK+7*, SETFLOCK+8, SETFLOCK+9
DA(1	RMVOLD+12, RMVOLD+20
DIE	SETTLOCK+3~, SETFLOCK+1~, SETFLOCK+5
DIK	MKOBJS+4~, RMVOLD+1~, RMVOLD+10, RMVOLD+14!, RMVOLD+19, RMVOLD+22!, RMVOLD+33, RMVOLD+35, MAP+31~, REINDEX+1~ , REINDEX+3, REINDEX+5
DIK(1	MAP+31, REINDEX+3, REINDEX+5*
>> DILOCKTM	SETTLOCK+6, SETFLOCK+8
DOCLAS	CRE8TITL~
DR	SETTLOCK+3~, SETFLOCK+1~, SETFLOCK+5
DUZ	MAP+12
END	FLD+8~, FLD+12, FLD+13, FLD+14, FLD+15, FLD+16, FLD+17, FLD+23
ENT	RMVOLD+1~, RMVOLD+27, RMVOLD+28, RMVOLD+30, RMVOLD+32
ERR	MKOBJS+2~
FIELD	FLD+8~, FLD+17*, FLD+20, FLD+21, FLD+22
FILE	LU~, LU+2
FLAGS	LU~, LU+2
I	FLD+8~, FLD+18, FLD+19*, FLD+21
IDX	CHEKPAR+2~, CHEKPAR+3, CHEKPAR+6, CHEKPAR+7
IEN	RMVOLD+1~, SETTLOCK~, SETTLOCK+2, SETFLOCK~, SETFLOCK+3
INDEX	SETCNLK+1~, SETCNLK+10, SETCNLK+12, SETCNLK+13, SETCNLK+19
INDEXES	LU~, LU+2
INS	RMVOLD+1~, RMVOLD+29, RMVOLD+30, RMVOLD+32
ISPAR	CHEKPAR+2~, CHEKPAR+3, CHEKPAR+5, CHEKPAR+6, CHEKPAR+7, CHEKPAR+8
LINE	FLD+8~, FLD+10, FLD+11, FLD+13, FLD+14, FLD+15, FLD+17, FLD+23*
LNCNT	FLD+8~, FLD+22
LNWRAP	FLD+8~, FLD+11, FLD+15*
MSGERR	LU+1~
NAME	LU~, LU+2
OK	FLD+8~, FLD+18, FLD+19, FLD+20, FLD+21, FLD+22
SCREEN	LU~, LU+2
SRVCNT	SETCNLK+1~, SETCNLK+10*
TITLESTR	PREPARE+1~, PREPARE+5, PREPARE+6, PREPARE+10, PREPARE+11, CRE8DC+1~, CRE8DC+2, CRE8DC+3, CRE8TITL+1~, CRE8TITL+3 , CRE8TITL+4, MAP+1~, MAP+4*, MAP+6, MAP+9
TIU	MKOBJS+2~, INSTALL+2~
TIU(	MKOBJS+5, MKOBJS+6, MKOBJS+7, MKOBJS+8, MKOBJS+9, MKOBJS+10, MKOBJS+11, MKOBJS+12, MKOBJS+13, MKOBJS+14 , INSTALL+3, INSTALL+4
TIU0	SETCNLK+1~, SETCNLK+14*, SETCNLK+15, SETCNLK+16
TIU01	CRE8TITL+1~, CRE8TITL+4, CRE8TITL+5, CRE8TITL+14, CRE8TITL+15, SETCNLK+1~, SETCNLK+16, SETCNLK+17, SETCNLK+18, SETCNLK+19 , SETCNLK+23
TIU04	CRE8TITL+1~, CRE8TITL+2*, CRE8TITL+5
TIU07	CRE8TITL+1~, CRE8TITL+2*, CRE8TITL+5
TIU3	CRE8TITL+1~, CRE8TITL+4*, CRE8TITL+11, CRE8TITL+12, CRE8TITL+13
TIU4	CRE8TITL+1~, CRE8TITL+4*, CRE8TITL+11, CRE8TITL+12, CRE8TITL+13
TIUABB	CREATE~, CREATE+5
TIUARY	SETTLOCK+1~, SETTLOCK+2, SETFLOCK+1~, SETFLOCK+3, BLD~, BLD+6
TIUARY(	SETTLOCK+4, SETTLOCK+5, FLD+4, FLD+5, BLD+3*
TIUARY(" "	BLD+2
TIUCLCOR	POST+1~, POST+4*, CREATE+8
TIUCNT	SETTLOCK+1~, SETTLOCK+4, SETTLOCK+5, SETFLOCK+1~, SETFLOCK+5, SETFLOCK+6*, SETFLOCK+7
TIUD0	PREPARE+1~
TIUDA	MKOBJS+2~, PREPARE+1~, PREPARE+7, PREPARE+8, DISABLE~, DISABLE+4, CRE8DC+1~, CRE8DC+4, CRE8DC+9, CREATE+1~ , UPDATE~, UPDATE+2, MAP+5~, MAP+7*, MAP+8, MAP+9, MAP+31
TIUDA(1	CREATE+14
TIUDC	PREPARE+1~, PREPARE+6, PREPARE+7, PREPARE+8, CRE8DC+1~, CRE8DC+3, CRE8DC+4, CRE8DC+10
TIUDNM	INSTALL~, INSTALL+3
TIUERR	DISABLE+1~, DISABLE+4, DISABLE+5, CRE8DC+1~, CRE8DC+2, CRE8DC+4, CRE8DC+5, CRE8TITL+1~, CRE8TITL+5, CRE8TITL+6 , CREATE~, UPDATE~, MAP+1~, MAP+5~, MAP+16, MAP+25, SETCNLK+1~, SETPAR+1~, SETPAR+2, SETPAR+3 , ERROR+1, ERROR+2, CHEKPAR+2~
TIUERR("DIERR"	DISABLE+7, CRE8DC+8, CRE8TITL+9, MAP+19, MAP+27
TIUETTL	MAP+5~, MAP+9*, MAP+10, MAP+18
TIUFDA	UPDATE+1~, MAP+1~
TIUFDA(	UPDATE+4, MAP+10, MAP+11, MAP+12, MAP+20!, MAP+22*, MAP+28!
TIUFI	UPDATE+1~, UPDATE+2, UPDATE+3, UPDATE+4
TIUFLAGS	UPDATE+1~, UPDATE+5, UPDATE+6, MAP+1~, MAP+13, MAP+14, MAP+23
TIUFLD	FLD+3~
TIUFPRIV	MKOBJS+1~, POST+1~, POST+2, PREPARE+1~, PREPARE+2, CREATE+1~, CREATE+3, UPDATE+1~, UPDATE+2, MAP+1~ , MAP+3
TIUFWHO	PREPARE+1~, PREPARE+2, CREATE+1~, CREATE+3, UPDATE+1~, UPDATE+2, MAP+1~, MAP+3
TIUI	PREPARE+1~, PREPARE+5, PREPARE+10, CRE8DC+1~, CRE8DC+2, CRE8TITL+1~, CRE8TITL+3, CRE8TITL+7~, CRE8TITL+9, MAP+1~ , MAP+4
TIUIDX	BLD+1~, BLD+2, BLD+3, BLD+4, BLD+5*, BLD+6
TIUIEN	RMVOLD+1~, RMVOLD+5, RMVOLD+6, RMVOLD+7, RMVOLD+8, INSTALL+2~, RMV8928+1~, RMV8928+2, RMV8928+3, RMV8928+4 , RMV8928+6, SETCNLK+1~, SETCNLK+13*, SETCNLK+14, SETCNLK+20, SETCNLK+21, BLD~, BLD+3, BLD+5, BLD+6
TIUIEN(1	INSTALL+9
TIUIENS	UPDATE+1~, UPDATE+2, UPDATE+4, MAP+1~, MAP+9, MAP+10, MAP+11, MAP+12, MAP+20, MAP+22 , MAP+28
TIUINMSG	CRE8DC+1~, CRE8DC+9*, CRE8DC+10
TIUINST	SETPAR~, SETPAR+2
TIUJ	CRE8DC+6~, CRE8DC+8, INSTALL+2~, INSTALL+8
TIUMNTXT	INSTALL~, INSTALL+4
TIUMSG	INSTALL+2~, INSTALL+6
TIUMSG("DIERR"	CRE8DC+8, CRE8TITL+9, INSTALL+8
TIUNAME	CREATE~, CREATE+4, SETPAR~, SETPAR+2, SETPAR+3, CHEKPAR~, CHEKPAR+7
TIUNATTL	CREATE+1~, CREATE+2*, CREATE+10
TIUNM	DISABLE~, DISABLE+2, DISABLE+6
TIUNMIEN	RMVOLD+1~, RMVOLD+24*, RMVOLD+25, RMVOLD+28, RMVOLD+30, RMVOLD+32, RMVOLD+36
TIUOUT	SETCNLK+1~
TIUOUT("DILIST"	SETCNLK+3, SETCNLK+10, SETCNLK+12, SETCNLK+13
TIUP0	RMVOLD+1~, RMV8928+1~, RMV8928+4*, RMV8928+5, RMV8928+6
TIUPGNTS	POST+1~, POST+3*, CRE8DC+9
TIUPNAME	CREATE~, CREATE+6
TIUPRNT	INSTALL~, INSTALL+3, INSTALL+4
TIUPROD	MAP+1~, MAP+3*, MAP+17, MAP+18, MAP+19, MAP+25
TIUREC	DISABLE+1~, DISABLE+4, CREATE+1~, UPDATE~, MAP+5~
TIUREC(	DISABLE+3, CREATE+4, CREATE+5, CREATE+6, CREATE+7, CREATE+8, CREATE+9, CREATE+10, CREATE+11, CREATE+12 , UPDATE+3, UPDATE+4
TIURET	POST+1~, POST+10*, POST+11, POST+12, POST+13, POST+14
TIUSCMSG	POST+1~, POST+5*, CRE8TITL+11
TIUSMTDC	POST+1~, POST+7*, CRE8TITL+13
TIUSTAT	CREATE~, CREATE+9
TIUTTL0	PREPARE+1~, PREPARE+11*, PREPARE+12, PREPARE+13
TIUTTL1	MAP+5~, MAP+6*, MAP+7, MAP+8, MAP+17, MAP+26, MAP+30
TIUTYPE	CREATE~, CREATE+7
TIUVNAME	CRE8DC+1~, CRE8DC+3*, CRE8DC+11
TIUWHNDC	POST+1~, POST+6*, CRE8TITL+12
TIUX290	CRE8TITL+1~, CRE8TITL+5, CRE8TITL+10, CRE8TITL+11, CRE8TITL+12, CRE8TITL+13
TIUY	CHEKPAR+2~, CHEKPAR+4, CHEKPAR+5, FLD+3~, FLD+5, FLD+6, FLD+7
TIUY(	CHEKPAR+6, CHEKPAR+7
TTL0DA	PREPARE+1~, PREPARE+12*, PREPARE+13
U	MKOBJS+3, MKOBJS+5, MKOBJS+6, MKOBJS+7, POST+11, POST+12, POST+13, POST+14, PREPARE+6, PREPARE+11 , RMVOLD+7, RMVOLD+8, RMVOLD+16, RMVOLD+17, CRE8DC+3, CRE8TITL+4, MAP+6, MAP+9, RMV8928+5, RMV8928+6 , SETCNLK+10, SETCNLK+15, SETCNLK+16, ERROR+1, ERROR+2, CHEKPAR+7, BLD+6
X	MKOBJS+1~*, MKOBJS+4~
Y	MKOBJS+1~*, MKOBJS+3, MKOBJS+4~, MKOBJS+5, MKOBJS+6, MKOBJS+7, MKOBJS+13
ZTDESC	RMVTSK+1~, RMVTSK+3*
ZTDTH	RMVTSK+1~, RMVTSK+4*
ZTIO	RMVTSK+1~, RMVTSK+5*
ZTRTN	RMVTSK+1~, RMVTSK+2*
ZTSK	RMVTSK+1~, RMVTSK+7, RMVTSK+8

Name	Field # of Occurrence
$T(DOCCLASS+TIUI	PREPARE+5, CRE8DC+2
$T(OBJECTS+X	MKOBJS+1
$T(TITLES+TIUI	PREPARE+10, CRE8TITL+3, MAP+4

Customize PDF page

Package: Text Integration Utility

Routine: TIUP290

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items