©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
TIUDDT ; SLC/JM - XRef & Input Transform code for Template File #8927;8/23/2001
Source file <TIUDDT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETNODE() | ; Sets NODE variable
|
|
| ROOTIDX(TYPE) | ; Returns "AROOT" Index value for root types
|
|
| BADROOT(DA,TIUTYPE) | ; Returns True if there is another root
|
|
| BADLINK(X,DA) | ;Input Transform for .19 LINK field
|
|
| OWNRSETR(X,DA) | ; .06 OWNER Field "AROOT" XRef Set Logic
|
|
| BADITEM(X,DA1) | ;Input Transform for ITEMS .02 ITEM Field
|
|
| BADSTS(X,DA) | ;Input Transform for .04 STATUS Field
|
|
| TYPESETR(X,DA) | ; .03 TYPE Field "AROOT" and "AP" XRef Set Logic
|
|
| OWNRKILR(X,DA) | ; .06 OWNER Field "AROOT" XRef Kill Logic
|
|
| STSSETR(X,DA) | ; .04 STATUS Field "AROOT" and "AP" XRef Set Logic
|
|
| TYPEKILR(X,DA) | ; .03 TYPE Field "AROOT" and "AP" XRef Kill Logic
|
|
| PARENTOK(PARENT,ITEM) | ; Returns True if ITEM is not in it's own parent list
|
|
| BADPROOT(DA,OWNER) | ; Returns True if there is another personal root
|
|
| BADTYPE(X,DA) | ;Input Transform for .03 TYPE field
|
|
| BADOWNER(X,DA) | ;Input Transform for .06 PERSONAL OWNER Field
|
|
| STSKILLR(X,DA) | ; .04 STATUS Field "AROOT" XRef Kill Logic
|
|
| ISROOT(TYPE) | ; Returns TRUE if TYPE is a valid root folder type
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8927 - [#8927] | BADOWNER+8, TYPESETR+5*, TYPESETR+9*, TYPEKILR+2!, TYPEKILR+6!, STSSETR+6*, STSSETR+10*, STSKILLR+4!, STSKILLR+7!, OWNRSETR+5* , OWNRKILR+1!, BADLINK+3, GETNODE+1, BADROOT+3, BADPROOT+4, PARENTOK+3 |
| Name | Line Occurrences |
|---|---|
| $$BADPROOT | BADTYPE+5, BADSTS+7, BADOWNER+5, TYPESETR+8, STSSETR+9, OWNRSETR+4 |
| $$BADROOT | BADTYPE+4, BADSTS+6, TYPESETR+4, STSSETR+5 |
| $$GETNODE | BADTYPE+2, BADSTS+4, BADOWNER+4, TYPESETR+2, TYPEKILR+4, STSSETR+3, STSKILLR+2, OWNRSETR+3 |
| $$ISROOT | BADTYPE+4, BADSTS+6, TYPESETR+4, TYPEKILR+2, STSSETR+5, STSKILLR+4 |
| $$PARENTOK | BADOWNER+9, BADITEM+1, PARENTOK+5 |
| $$ROOTIDX | BADOWNER+8, TYPESETR+5, TYPEKILR+2, STSSETR+6, STSKILLR+4, BADROOT+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BAD | BADTYPE+1~, BADTYPE+2*, BADTYPE+4*, BADTYPE+5*, BADTYPE+6, BADSTS+1~, BADSTS+2*, BADSTS+6*, BADSTS+7*, BADSTS+8 , BADOWNER+1~, BADOWNER+2*, BADOWNER+5*, BADOWNER+6, BADOWNER+7, BADOWNER+9*, BADOWNER+10, BADLINK+1~, BADLINK+2*, BADLINK+4* , BADLINK+5, BADROOT+1~, BADROOT+2*, BADROOT+4*, BADROOT+5, BADPROOT+1~, BADPROOT+2*, BADPROOT+5*, BADPROOT+6 |
| CURROOT | BADROOT+1~, BADROOT+3*, BADROOT+4, BADPROOT+1~, BADPROOT+4*, BADPROOT+5 |
| DA | BADTYPE~, BADTYPE+4, BADTYPE+5, BADSTS~, BADSTS+6, BADSTS+7, BADOWNER~, BADOWNER+5, BADOWNER+9, TYPESETR~ , TYPESETR+4, TYPESETR+5, TYPESETR+8, TYPESETR+9, TYPEKILR~, TYPEKILR+2, TYPEKILR+6, STSSETR~, STSSETR+5, STSSETR+6 , STSSETR+9, STSSETR+10, STSKILLR~, STSKILLR+4, STSKILLR+7, OWNRSETR~, OWNRSETR+4, OWNRSETR+5, OWNRKILR~, OWNRKILR+1 , BADLINK~, BADLINK+4, GETNODE+1, BADROOT~, BADROOT+4, BADPROOT~, BADPROOT+5 |
| DA1 | BADITEM~, BADITEM+1 |
| IDX | BADLINK+1~, BADLINK+3*, BADLINK+4, PARENTOK+1~, PARENTOK+2*, PARENTOK+3*, PARENTOK+4, PARENTOK+5 |
| ITEM | PARENTOK~, PARENTOK+4, PARENTOK+5 |
| NODE | BADTYPE+1~, BADTYPE+2*, BADTYPE+3, BADTYPE+5, BADSTS+1~, BADSTS+4*, BADSTS+5, BADSTS+7, BADOWNER+1~, BADOWNER+4* , BADOWNER+5, TYPESETR+1~, TYPESETR+2*, TYPESETR+3, TYPESETR+7, TYPEKILR+1~, TYPEKILR+4*, TYPEKILR+5, STSSETR+1~, STSSETR+3* , STSSETR+4, STSSETR+8, STSKILLR+1~, STSKILLR+2*, STSKILLR+3, STSKILLR+6, OWNRSETR+1~, OWNRSETR+3*, OWNRSETR+4 |
| OK | PARENTOK+1~, PARENTOK+2*, PARENTOK+3, PARENTOK+4*, PARENTOK+5*, PARENTOK+6 |
| OWNER | TYPESETR+1~, TYPESETR+7*, TYPESETR+8, TYPESETR+9, TYPEKILR+1~, TYPEKILR+5*, TYPEKILR+6, STSSETR+1~, STSSETR+8*, STSSETR+9 , STSSETR+10, STSKILLR+1~, STSKILLR+6*, STSKILLR+7, BADPROOT~, BADPROOT+3, BADPROOT+4 |
| PARENT | PARENTOK~, PARENTOK+3 |
| ROOT | BADOWNER+1~, BADOWNER+8*, BADOWNER+9 |
| TIUTYPE | BADROOT~, BADROOT+3 |
| TYPE | BADSTS+1~, BADSTS+5*, BADSTS+6, BADSTS+7, BADOWNER+1~, BADOWNER+7*, BADOWNER+8, STSSETR+1~, STSSETR+4*, STSSETR+5 , STSSETR+6, STSSETR+7, STSKILLR+1~, STSKILLR+3*, STSKILLR+4, STSKILLR+5, ISROOT~, ISROOT+1, ROOTIDX~, ROOTIDX+1 |
| U | BADTYPE+3, BADTYPE+5, BADSTS+5, BADSTS+7, BADOWNER+5, TYPESETR+3, TYPESETR+7, TYPEKILR+5, STSSETR+4, STSSETR+8 , STSKILLR+3, STSKILLR+6, OWNRSETR+4 |
| X | BADTYPE~, BADTYPE+4, BADTYPE+5, BADSTS~, BADSTS+3, BADOWNER~, BADOWNER+3, BADOWNER+5, BADITEM~, BADITEM+1 , TYPESETR~, TYPESETR+4, TYPESETR+5, TYPESETR+6, TYPEKILR~, TYPEKILR+2, TYPEKILR+3, STSSETR~, STSSETR+2, STSKILLR~ , OWNRSETR~, OWNRSETR+2, OWNRSETR+4, OWNRSETR+5, OWNRKILR~, OWNRKILR+1, BADLINK~, BADLINK+3 |