©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
TIUDD ; slc/KCM - Build menus in XUTL (file 8925.1) ;7/19/94 13:51 ;
Source file <TIUDD.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 1 | ($$UPPER,PARSE)^TIULS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASUBK(SUBJECT,TIUTYP,TIUSTAT,TIUIDT,DA) | ; SET logic for "ASUB" X-ref
|
|
| SET | ;From: Cross reference in file 8925.1, field 99 Entry: DA Exit: DA
|
|
| APRBK(TIUTYP,TIUSTAT,TIUIDT,DA,TIUPROB) | ; KILL logic for "APRB" X-ref
|
|
| UP(X) | ; Convert X to upper case
|
|
| TREE | ; Look back up tree to make sure item is not ancestor (input xform)
; From: 8925.14,.01 Entry: DA(1),X |
|
| TREE2 | ; Recurse one level
|
|
| KILL | ; From: File 8925.1, Field 99 Entry: DA Exit: DA
|
|
| REDOX | ; From: Subfile 8925.14, Fields .01,2,3 Entry: DA(1) Exit: DA(1)
|
|
| TREE1 | ; Traverse up tree
|
|
| ASUBS(SUBJECT,TIUTYP,TIUSTAT,TIUIDT,DA) | ; SET logic for "ASUB" X-ref
|
|
| REDO | ; Update TIMESTAMP on self & parents when Print Name Changes
; From: File 8925.1, Field .03 Entry: DA Exit: DA |
|
| APRBS(TIUTYP,TIUSTAT,TIUIDT,DA,TIUPROB) | ; SET logic for "APRB" X-ref
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925 - [#8925] | ASUBS+4*, ASUBK+4!, APRBS+5*, APRBK+5! |
| ^TIU(8925.1 - [#8925.1] | SET+2, SET+3, SET+8, SET+9, SET+10, SET+15, SET+16!*, SET+19, SET+24*, REDO+2 , REDO+3, REDO+4, REDOX+1, TREE1+1 |
| ^TIU(8925.9 - [#8925.9] | APRBS+2, APRBS+3, APRBK+2, APRBK+3 |
| ^TMP("XQORM" | SET+5!, SET+11*, SET+13, SET+14, SET+25! |
| ^XUTL("XQORM" | SET+3, SET+7*, SET+21*, SET+22*, SET+23*, SET+24*, KILL+1! |
| Name | Line Occurrences |
|---|---|
| $$UP | SET+22, SET+23 |
| KILL | SET+5 |
| TREE1 | TREE+2, TREE2+1 |
| TREE2 | TREE1+1 |
| Name | Field # of Occurrence |
|---|---|
| ^("B" | SET+16! |
| ^(99 | REDO+2*, REDO+4*, REDOX+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | SET+2, SET+3, SET+7, SET+8, SET+9, SET+15, SET+16, SET+21, SET+22, SET+23 , SET+24, KILL+1, REDO+2, REDO+3, ASUBS~, ASUBS+4, ASUBK~, ASUBK+4, APRBS~, APRBS+2 , APRBS+5, APRBK~, APRBK+2, APRBK+5 |
| DA(1 | REDOX+1, TREE+2 |
| I | REDO+2~*, REDO+3*, REDO+4 |
| S1 | SET+4~, SET+12*, SET+13*, SET+14 |
| S2 | SET+4~, SET+7*, SET+8*, SET+9, SET+11, SET+13*, SET+14*, SET+15, SET+16, SET+21 |
| SUBJECT | ASUBS~, ASUBS+2, ASUBK~, ASUBK+2 |
| TIUCCOL | SET+4~, SET+12*, SET+17*, SET+18 |
| TIUCOL | SET+4~, SET+6*, SET+7, SET+12 |
| TIUCROW | SET+4~, SET+12*, SET+17*, SET+18 |
| TIUDD | TREE+2!, TREE1+1*, TREE2+1~ |
| TIUDDA | TREE+2*!, TREE1+1, TREE2+1~* |
| TIUI | ASUBS+1~*, ASUBS+3*, ASUBS+4, ASUBK+1~*, ASUBK+3*, ASUBK+4, APRBS+1~, APRBS+2*, APRBS+3, APRBK+1~ , APRBK+2*, APRBK+3 |
| TIUIDT | ASUBS~, ASUBS+4, ASUBK~, ASUBK+4, APRBS~, APRBS+5, APRBK~, APRBK+5 |
| TIUPOS | SET+4~, SET+18*, SET+21, SET+22, SET+23 |
| TIUPROB | APRBS~, APRBS+3*, APRBS+4, APRBS+5, APRBK~, APRBK+3*, APRBK+4, APRBK+5 |
| TIUROW | SET+4~, SET+12*, SET+17 |
| TIUSTAT | ASUBS~, ASUBS+4, ASUBK~, ASUBK+4, APRBS~, APRBS+5, APRBK~, APRBK+5 |
| TIUTOT | SET+4~, SET+7*, SET+11*, SET+12 |
| TIUTYP | ASUBS~, ASUBS+4, ASUBK~, ASUBK+4, APRBS~, APRBS+5, APRBK~, APRBK+5 |
| TIUWORD | ASUBS+1~, ASUBS+2, ASUBK+1~, ASUBK+2 |
| TIUWORD( | ASUBS+3, ASUBS+4, ASUBK+3, ASUBK+4 |
| U | APRBS+3, APRBK+3 |
| X | SET+4~, SET+9*, SET+10*, SET+11, SET+15*, SET+16, SET+19, SET+21, SET+23, SET+24* , UP~, UP+1, REDO+2~*, REDO+4, TREE+2!, TREE1+1! |
| X1 | SET+4~, SET+19*, SET+20*, SET+21, SET+22 |