TIUDDT ; SLC/JM - XRef & Input Transform code for Template File #8927;8/23/2001
Source file <TIUDDT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BADTYPE(X,DA) | ;Input Transform for .03 TYPE field
|
|
| BADSTS(X,DA) | ;Input Transform for .04 STATUS Field
|
|
| BADOWNER(X,DA) | ;Input Transform for .06 PERSONAL OWNER Field
|
|
| BADITEM(X,DA1) | ;Input Transform for ITEMS .02 ITEM Field
|
|
| TYPESETR(X,DA) | ; .03 TYPE Field "AROOT" and "AP" XRef Set Logic
|
|
| TYPEKILR(X,DA) | ; .03 TYPE Field "AROOT" and "AP" XRef Kill Logic
|
|
| STSSETR(X,DA) | ; .04 STATUS Field "AROOT" and "AP" XRef Set Logic
|
|
| STSKILLR(X,DA) | ; .04 STATUS Field "AROOT" XRef Kill Logic
|
|
| OWNRSETR(X,DA) | ; .06 OWNER Field "AROOT" XRef Set Logic
|
|
| OWNRKILR(X,DA) | ; .06 OWNER Field "AROOT" XRef Kill Logic
|
|
| BADLINK(X,DA) | ;Input Transform for .19 LINK field
|
|
| GETNODE() | ; Sets NODE variable
|
|
| BADROOT(DA,TIUTYPE) | ; Returns True if there is another root
|
|
| BADPROOT(DA,OWNER) | ; Returns True if there is another personal root
|
|
| PARENTOK(PARENT,ITEM) | ; Returns True if ITEM is not in it's own parent list
|
|
| ISROOT(TYPE) | ; Returns TRUE if TYPE is a valid root folder type
|
|
| ROOTIDX(TYPE) | ; Returns "AROOT" Index value for root types
|
