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 |
