Routine: TIUFLF8

Information

TIUFLF8 ; SLC/MAM - Library; File 8925.1 Related: SELTYPE(FILEDA,DEFLT), EDOWN(DA,XFLG) ;7/1/97 20:39

Source Information

Source file <TIUFLF8.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Text Integration Utility	2	PAUSE^TIUFXHLX $$UPPER^TIULS
VA Fileman	2	^DIE ^DIR
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Text Integration Utility	5	TIUFA1 TIUFC1 TIUFLF1 TIUFLF7 TIUFT

Entry Points

Name	Comments	DBIA/ICR reference
GET(DA,NODE0,POWNER,COWNER)	; Get Owner data
OWNPERS(FILEDA,NODE0,POWNER,COWNER)	; Edit Personal Owner
OWNCLAS(FILEDA,NODE0,POWNER,COWNER)	; Edit Owner Class
SELTX
EDOWX
EDOWN(DA,XFLG)	; User edit Owner. ; Returns XFLG=1 if user ^exited, else as received.
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
OWNCHEC(DA)	; Check for no owners, both owners, stuff personal owner if problem

External References

Name	Field # of Occurrence
^DIE	OWNCHEC+3, OWNCHEC+4, OWNCLAS+6, OWNPERS+4
^DIR	SELTYPE+16, OWNCLAS+4, OWNPERS+2
PAUSE^TIUFXHLX	OWNCHEC+3, OWNCHEC+4
$$UPPER^TIULS	SELTYPE+17
FULL^VALM1	EDOWN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " DOCUMENT CLASS" Line Location: SELTYPE+20
Function Call: WRITE	Prompt: " TITLE" Line Location: SELTYPE+22
Function Call: WRITE	Prompt: " OBJECT" Line Location: SELTYPE+25
Routine Call	DIE Line Location: OWNCHEC+3 OWNCHEC+4 OWNCLAS+6 OWNPERS+4
Routine Call	DIR Line Location: SELTYPE+16 OWNCLAS+4 OWNPERS+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	GET+1
^TMP("TIUF"	OWNCLAS+2

Label References

Name	Line Occurrences
EDOWX	EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8
GET	EDOWN+3, OWNCHEC+2, OWNCLAS+7, OWNPERS+5
OWNCHEC	EDOWX+1
OWNCLAS	EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8
OWNPERS	EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8
SELTX	SELTYPE+16

Local Variables

Legend:

>>	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

Customize PDF page

Package: Text Integration Utility

Routine: TIUFLF8

Call Graph Total: 5

Caller Graph Total: 5