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 |
Name | Field # of Occurrence |
---|---|
$$MIXED^TIULS | WRAPTTLS+13, MAKECONT+4, WRAPOBJS+8 |
SETITEMS^TIUSRVT | WRAPOBJS+16, BLDTREE+2 |
SETTMPLT^TIUSRVT | SETROOT+6, SETITLE+5, MAKECONT+12, SETOBJ+5, MAKEWRAP+5 |
$$CLPAC^TIUSRVT1 | SETROOT+5 |
UPDATE^TIUSRVT1 | ADDITEM+5 |
$$UP^XLFSTR | WRAPOBJS+10 |
BMES^XPDUTL | MAIN+4, MAIN+11, SETROOT+7, SETROOT+8, SETITLE+6, SETITLE+7, MAKECONT+13, SETOBJ+6, SETOBJ+7, MAKEWRAP+6 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TIU(8925.1 - [#8925.1] | WRAPTTLS+2, WRAPTTLS+4, WRAPTTLS+9, WRAPTTLS+12, MAKECONT+2, MAKECONT+3, WRAPOBJS+2, WRAPOBJS+4 |
^TIU(8927 - [#8927] | MAIN+14*, RUNCHECK+1, RUNCHECK+2, RUNCHECK+3, RUNCHECK+4, RUNCHECK+5, RUNCHECK+6, SETROOT+1, SETITLE+1, MAKECONT+5 , MAKECONT+7, ADDITEM+2, ADDITEM+3, SETOBJ+1, MAKEWRAP+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNTNR | WRAPTTLS+3~, WRAPTTLS+10, WRAPTTLS+15, WRAPTTLS+16, MAKECONT~, MAKECONT+7*, MAKECONT+12, MAKECONT+13 |
DCINDX | WRAPTTLS+1~ |
DCTREE | WRAPTTLS+1~ |
ITEM | ADDITEM~, ADDITEM+2, ADDITEM+4 |
ITMLST | MAIN+1~, MAIN+13, WRAPOBJS+1~, WRAPOBJS+16, BLDTREE~, BLDTREE+2 |
ITMLST( | WRAPOBJS+10*, WRAPOBJS+12, WRAPOBJS+14*, WRAPOBJS+15! |
ITMLST(0 | WRAPOBJS+16 |
ITMLST(1 | MAIN+12* |
ITMLST(2 | MAIN+12* |
ITMSEQ | WRAPTTLS+1~, WRAPOBJS+1~*, WRAPOBJS+13*, WRAPOBJS+14 |
MOMD0 | MAKECONT+1~, MAKECONT+3*, MAKECONT+4 |
MOMDA | MAKECONT+1~, MAKECONT+2*, MAKECONT+3 |
MOMNM | MAKECONT+1~, MAKECONT+4*, MAKECONT+5, MAKECONT+9, MAKECONT+13 |
>> MOMTDA | MAKECONT+5*, MAKECONT+7, MAKECONT+12 |
MOMTTYPE | MAKECONT+1~, MAKECONT+4*, MAKECONT+7, MAKECONT+10 |
OBJDA | MAIN+1~, MAIN+8, MAIN+9, MAIN+12 |
OBJECTS | WRAPOBJS+1~, WRAPOBJS+16 |
OBJGRP | WRAPOBJS~, WRAPOBJS+16 |
OBJTMP | WRAPOBJS+3~, WRAPOBJS+8, WRAPOBJS+9, WRAPOBJS+10 |
PARENT | ADDITEM~, ADDITEM+2, ADDITEM+3, ADDITEM+5 |
ROOTDA | MAIN+1~, MAIN+5, MAIN+13, BLDTREE~, BLDTREE+2 |
SUCCESS | SETROOT~, SETROOT+6, SETROOT+7, SETITLE~, SETITLE+5, SETITLE+6, SETOBJ~, SETOBJ+5, SETOBJ+6 |
TITLDA | MAIN+1~, MAIN+6, MAIN+7, MAIN+12 |
TIUD0 | WRAPTTLS+3~, WRAPTTLS+4*, WRAPTTLS+5, WRAPTTLS+7, WRAPTTLS+10, WRAPTTLS+11 |
TIUDA | SETROOT+1~*, SETROOT+6, SETITLE+1~*, SETITLE+5, WRAPTTLS+1~*, WRAPTTLS+2*, WRAPTTLS+4, WRAPTTLS+9, WRAPTTLS+10, WRAPTTLS+12 , MAKECONT~, MAKECONT+2, SETOBJ+1~*, SETOBJ+5, WRAPOBJS+1~*, WRAPOBJS+2*, WRAPOBJS+4, MAKEWRAP+1~*, MAKEWRAP+5 |
TIUI | ADDITEM+1~, ADDITEM+3*, ADDITEM+4, ADDITEM+5 |
TIUITEM | ADDITEM+1~, ADDITEM+5 |
TIUITEM( | ADDITEM+4* |
TIUOD0 | WRAPOBJS+3~, WRAPOBJS+4*, WRAPOBJS+5, WRAPOBJS+6 |
TIUONM | WRAPOBJS+1~, WRAPOBJS+11*, WRAPOBJS+12*, WRAPOBJS+14, WRAPOBJS+15 |
>> TIUPOP | MAIN+2*, MAIN+3 |
TIUSUCC | ADDITEM+1~, ADDITEM+5 |
TIUTNM | WRAPTTLS+3~, WRAPTTLS+11*, WRAPTTLS+13, WRAPOBJS+3~, WRAPOBJS+6*, WRAPOBJS+7, WRAPOBJS+8, WRAPOBJS+10, MAKEWRAP~, MAKEWRAP+1 , MAKEWRAP+2, MAKEWRAP+6 |
TIUX | SETROOT+1~, SETROOT+6, SETITLE+1~, SETITLE+5, WRAPTTLS+3~, WRAPTTLS+13, MAKECONT+12, SETOBJ+1~, SETOBJ+5, WRAPOBJS+3~ , WRAPOBJS+8, MAKEWRAP~, MAKEWRAP+5 |
TIUX( | SETROOT+2*, SETROOT+3*, SETROOT+4*, SETROOT+5*, SETITLE+2*, SETITLE+3*, SETITLE+4*, MAKECONT+9*, MAKECONT+10*, MAKECONT+11* , SETOBJ+2*, SETOBJ+3*, SETOBJ+4*, MAKEWRAP+2*, MAKEWRAP+3*, MAKEWRAP+4* |
TIUX(2 | WRAPTTLS+12*, WRAPOBJS+7* |
TREE | MAIN+1~, MAIN+13, BLDTREE~, BLDTREE+2 |
TTLGRP | WRAPTTLS~, WRAPTTLS+15, WRAPTTLS+16 |
>> TTLSEQ | WRAPTTLS+1* |
TTLTMP | WRAPTTLS+3~, WRAPTTLS+13, WRAPTTLS+14, WRAPTTLS+15, WRAPTTLS+16 |
TYPE | MAKECONT~, MAKECONT+4 |
U | SETROOT+7, SETITLE+6, WRAPTTLS+5, WRAPTTLS+7, WRAPTTLS+10, WRAPTTLS+11, MAKECONT+4, MAKECONT+7, ADDITEM+3, SETOBJ+6 , WRAPOBJS+5, WRAPOBJS+6 |
WRAPTEMP | MAKEWRAP~, MAKEWRAP+5, MAKEWRAP+6 |