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 |