Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: TIUP290

Package: Text Integration Utility

Routine: TIUP290


Information

TIUP290 ;SLC/WAT - Install SMART Titles ;05/04/20 06:49

Source Information

Source file <TIUP290.m>

Call Graph

Call Graph

Call Graph Total: 11

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Marked Items

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
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All