TIUFLF8 ; SLC/MAM - Library; File 8925.1 Related: SELTYPE(FILEDA,DEFLT), EDOWN(DA,XFLG) ;7/1/97 20:39
Source file <TIUFLF8.m>
Package | Total | Call Graph |
---|---|---|
Text Integration Utility | 2 | PAUSE^TIUFXHLX $$UPPER^TIULS |
VA FileMan | 2 | ^DIE ^DIR |
List Manager | 1 | FULL^VALM1 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Text Integration Utility | 6 | TIUF SORT BY TYPE TIUFA1 TIUFC1 TIUFLF1 TIUFLF7 TIUFT |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SELTYPE(FILEDA,DEFLT) | ; Function Prompts for Type, Returns Selected Type: CL, DC, TL, CO, O, [N for NONE], "" if nothing selected or @ entered.
; Optional FILEDA: if not received, include 'NONE' as selectable Type. ; Optional DEFLT = 'CLASS', 'TITLE' etc. ; FILEDA, DEFLT are needed when editing Type; NOT needed when selecting Type for SORT. Assume for SORT if FILEDA is not received. ; If used for editing Type, requires TIUFTLST as set in TYPELIST |
|
SELTX | ||
EDOWN(DA,XFLG) | ; User edit Owner.
; Returns XFLG=1 if user ^exited, else as received. |
|
EDOWX | ||
OWNCHEC(DA) | ; Check for no owners, both owners, stuff personal owner if problem
|
|
GET(DA,NODE0,POWNER,COWNER) | ; Get Owner data
|
|
OWNCLAS(FILEDA,NODE0,POWNER,COWNER) | ; Edit Owner Class
|
|
OWNPERS(FILEDA,NODE0,POWNER,COWNER) | ; Edit Personal Owner
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TIU(8925.1 - [#8925.1] | GET+1 |
^TMP("TIUF" | OWNCLAS+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANS | OWNCLAS+1~, OWNCLAS+5*, OWNPERS+1~, OWNPERS+3* |
CHOICE | SELTYPE+5~, SELTYPE+10*, SELTYPE+12*, SELTYPE+13*, SELTYPE+14*, SELTYPE+15 |
COWNER | EDOWN+2~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, OWNCHEC+1~, OWNCHEC+2, OWNCHEC+3, OWNCHEC+4 , GET~, GET+1*, OWNCLAS~, OWNCLAS+2, OWNCLAS+7, OWNPERS~, OWNPERS+5 |
DA | EDOWN~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, EDOWX+1, OWNCHEC~, OWNCHEC+2, GET~ , GET+1, OWNCLAS+1~, OWNCLAS+3*, OWNPERS+2* |
DEFLT | SELTYPE~, SELTYPE+9 |
DIE | EDOWN+2~, EDOWN+4*, OWNCHEC+1~, OWNCHEC+2*, OWNCLAS+1~, OWNCLAS+4*, OWNPERS+1~, OWNPERS+2* |
DIR | SELTYPE+5~, OWNCLAS+1~, OWNPERS+1~ |
DIR("?" | SELTYPE+8* |
DIR("??" | SELTYPE+8* |
DIR("A" | SELTYPE+15* |
DIR("B" | SELTYPE+9*, OWNCLAS+2* |
DIR(0 | SELTYPE+8*, OWNCLAS+4*, OWNPERS+2* |
DIROUT | SELTYPE+6! |
DIRUT | SELTYPE+6! |
DR | EDOWN+2~, OWNCHEC+1~, OWNCHEC+3*, OWNCHEC+4*, OWNCLAS+1~, OWNCLAS+6*, OWNPERS+1~, OWNPERS+4* |
>> DTOUT | SELTYPE+16, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, EDOWX, OWNCHEC+3, OWNCHEC+4, OWNCLAS+4, OWNPERS+2 |
DUOUT | SELTYPE+6!, SELTYPE+16, EDOWN+4!, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, EDOWX, OWNCLAS+4, OWNPERS+2 |
FILEDA | SELTYPE~, SELTYPE+7*, SELTYPE+11, SELTYPE+13, SELTYPE+15, SELTYPE+27, SELTYPE+29, OWNCLAS~, OWNCLAS+3, OWNCLAS+7 , OWNPERS~, OWNPERS+2, OWNPERS+5 |
NODE0 | EDOWN+2~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, OWNCHEC+1~, OWNCHEC+2, GET~, GET+1* , OWNCLAS~, OWNCLAS+7, OWNPERS~, OWNPERS+5 |
POWNER | EDOWN+2~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, OWNCHEC+1~, OWNCHEC+2, OWNCHEC+3, OWNCHEC+4 , GET~, GET+1*, OWNCLAS~, OWNCLAS+7, OWNPERS~, OWNPERS+5 |
>> TIUFFULL | EDOWN+4* |
>> TIUFTLST | SELTYPE+12, SELTYPE+31 |
>> TIUFXNOD | SELTYPE+8 |
TMP | SELTYPE+5~, SELTYPE+30*, SELTYPE+31 |
TYPE | SELTYPE+5~, SELTYPE+11*, SELTYPE+12*, SELTYPE+16*, SELTYPE+17*, SELTYPE+19*, SELTYPE+20, SELTYPE+21*, SELTYPE+22, SELTYPE+23* , SELTYPE+24*, SELTYPE+25, SELTYPE+26*, SELTYPE+27*, SELTYPE+28*, SELTYPE+30, SELTYPE+31*, SELTX |
U | SELTYPE+12, SELTYPE+31, GET+1 |
X | SELTYPE+5~, EDOWN+2~, OWNCHEC+1~, OWNCLAS+1~, OWNCLAS+5, OWNPERS+1~, OWNPERS+3 |
XFLG | EDOWN~, EDOWX* |
Y | SELTYPE+5~, SELTYPE+17, EDOWN+2~, OWNCHEC+1~, OWNCLAS+1~, OWNCLAS+5*, OWNPERS+1~, OWNPERS+3* |