TIUP290 ;SLC/WAT - Install SMART Titles ;05/04/20 06:49
Source file <TIUP290.m>
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
|
FileNo | Call Tags |
---|---|
^TIU(8927 - [#8927] | FIND^DIC |
^XTV(8989.51 - [#8989.51] | FIND1^DIC |