TIUPS76 ; SLC/JER - Post-install for TIU*1*76 ; 7/27/1999
Source file <TIUPS76.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ; Do it!
|
|
| RUNCHECK() | ; Check whether this code has already run
|
|
| SETROOT(SUCCESS) | ; Create the primary Root called Shared Templates
|
|
| SETITLE(SUCCESS) | ; Create Inactive Folder for Boilerplated Titles
|
|
| WRAPTTLS(TTLGRP) | ; Create Template "wrappers" for Titles w/BP text
|
|
| MAKECONT(CNTNR,TIUDA,TYPE) | ; Find/Create folder
|
|
| ADDITEM(PARENT,ITEM) | ; Add Item to Parent
|
|
| SETOBJ(SUCCESS) | ; Create Active Folder for all ACTIVE TIU OBJECTS
|
|
| WRAPOBJS(OBJGRP) | ; Create Template "wrappers" for ACTIVE Objects
|
|
| MAKEWRAP(WRAPTEMP,TIUTNM,TIUX) | ; Create a single wrapper
|
|
| BLDTREE(TREE,ROOTDA,ITMLST) | ; Add Boilerplated Titles and
; Patient Data Objects as items to ROOT |
