TIUDD ; slc/KCM - Build menus in XUTL (file 8925.1) ;7/19/94 13:51 ;
Source file <TIUDD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;From: Cross reference in file 8925.1, field 99 Entry: DA Exit: DA
|
|
| UP(X) | ; Convert X to upper case
|
|
| KILL | ; From: File 8925.1, Field 99 Entry: DA Exit: DA
|
|
| REDO | ; Update TIMESTAMP on self & parents when Print Name Changes
; From: File 8925.1, Field .03 Entry: DA Exit: DA |
|
| REDOX | ; From: Subfile 8925.14, Fields .01,2,3 Entry: DA(1) Exit: DA(1)
|
|
| TREE | ; Look back up tree to make sure item is not ancestor (input xform)
; From: 8925.14,.01 Entry: DA(1),X |
|
| TREE1 | ; Traverse up tree
|
|
| TREE2 | ; Recurse one level
|
|
| ASUBS(SUBJECT,TIUTYP,TIUSTAT,TIUIDT,DA) | ; SET logic for "ASUB" X-ref
|
|
| ASUBK(SUBJECT,TIUTYP,TIUSTAT,TIUIDT,DA) | ; SET logic for "ASUB" X-ref
|
|
| APRBS(TIUTYP,TIUSTAT,TIUIDT,DA,TIUPROB) | ; SET logic for "APRB" X-ref
|
|
| APRBK(TIUTYP,TIUSTAT,TIUIDT,DA,TIUPROB) | ; KILL logic for "APRB" X-ref
|
