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
|