Routine: TIUFLF5

Package	Total	Call Graph
Text Integration Utility	4	SETUP^TIUFL CHECK^TIUFLF3 ANCESTOR^TIUFLF4 $$UPPER^TIULS
VA Fileman	1	^DIR

Package

Total

Call Graph

Text Integration Utility

SETUP^TIUFL CHECK^TIUFLF3 ANCESTOR^TIUFLF4 $$UPPER^TIULS

VA Fileman

^DIR

Package	Total	Caller Graph
Text Integration Utility	12	TIUFC1 TIUFD2 TIUFD3 TIUFD4 TIUFHA3 TIUFHA4 TIUFLF3 TIUFLF6 TIUFLJ TIUFLJ1 TIUFT TIUFT1
IHS Mods To Text Integration Utilities	1	BTIUFD

Package

Total

Caller Graph

Text Integration Utility

TIUFC1 TIUFD2 TIUFD3 TIUFD4 TIUFHA3 TIUFHA4 TIUFLF3 TIUFLF6
TIUFLJ TIUFLJ1 TIUFT TIUFT1

IHS Mods To Text Integration Utilities

BTIUFD

Entry Points

Name	Comments	DBIA/ICR reference
ANCSX
SELSTAT(FILEDA,PFILEDA,DEFLT)	; Function Prompts for Status, Returns Selected Status: ActiveIFN^ACTIVE, InactiveIFN^INACTIVE, TestIFN^TEST, "" if nothing selected or @ entered. ; Optional FILEDA: not received for Edit Status. ; Optional PFILEDA ; Optional DEFLT = 'INACTIVE', etc. ; FILEDA, PFILEDA,DEFLT are needed when editing Status under Edit Basics
STATSCRN()	; Function returns DD Status Screen for Status Field .07:
STOKX
AGAIN
STATOK(TYPE,NEWSTAT)	; Function returns 1/0 if NEWSTAT is/isn't permissible for TYPE. ; Requires internal Type e.g. CL; Requires NEWSTAT= I, T, or A.
STATWORD(PIECE7)	; Function returns Status as a word: ACTIVE, TEST, INACTIVE or NO/BAD ; NO/BAD if no status or status is missing from 8925.6 status file, or status is not entry active, test or inactive in 8925.6. ; Requires PIECE7= fld .07 of 8925.1 entry, could be null
SELSX
STATX
POSSSTAT(TYPE)	; Function returns permissible Statuses for Type ; Permissible Statuses is string subset of ITA: (Inactive, Test, Active) ; Requires internal Type e.g. CL
ANCSTAT(FILEDA,PFILEDA)	; Function returns 1 if any Ancestor is Inactive [or has no status];
STATLIST(FILEDA,PFILEDA,NEWSTAT,STATMSG,STATLIST)	; Module sets List of possible Statuses, sets msg explaining any limitations on Status ; Requires FILEDA of 8925.1 entry whose Status is being edited, as set in ASKSTAT^TIUFLF6. ; Requires PFILEDA if FILEDA has an actual or prospective parent

Name	Field # of Occurrence
^DIR	AGAIN
SETUP^TIUFL	STATWORD+4
CHECK^TIUFLF3	STATLIST+10
ANCESTOR^TIUFLF4	ANCSTAT+5
$$UPPER^TIULS	AGAIN+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,MSG,! Line Location: STATOK+6
Function Call: WRITE	Prompt: " ?? Enter '^' to exit" Line Location: AGAIN+7
Routine Call	DIR Line Location: AGAIN

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	STATLIST+9, ANCSTAT+3, ANCSTAT+7
^TMP("TIUF"	STATOK+5, STATLIST+19, STATLIST+29, STATX+5, ANCSTAT+4, ANCSTAT+8, AGAIN+4, AGAIN+5, AGAIN+6, STATWORD+4 , STATWORD+5

Name	Line Occurrences
$$ANCSTAT	STATLIST+25
$$POSSSTAT	STATOK+3, STATLIST+9
AGAIN	AGAIN+2, AGAIN+8
ANCSX	ANCSTAT+4
SELSX	SELSTAT+15, AGAIN
STATLIST	SELSTAT+15
STATX	STATLIST+10, STATLIST+12, STATLIST+24, STATLIST+26
STOKX	STATOK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANCSTAT	STATLIST+7~, STATLIST+25*, STATLIST+26
ANS	STATOK+2~, STATOK+4, STATOK+7, STOKX
ANSTAT	ANCSTAT+1~, ANCSTAT+3, ANCSTAT+4, ANCSTAT+6, ANCSTAT+8*, ANCSX
AOK	SELSTAT+9~, SELSTAT+16, SELSTAT+17, SELSTAT+19
CHOICE	SELSTAT+9~, SELSTAT+18, SELSTAT+19, SELSTAT+20, SELSTAT+21, SELSTAT+22, SELSTAT+25, SELSTAT+26*, SELSTAT+27
DA	SELSTAT+9~
DEFLT	SELSTAT~, SELSTAT+13
DIR	SELSTAT+9~
DIR("?"	SELSTAT+12*
DIR("??"	SELSTAT+12*
DIR("A"	SELSTAT+27*
DIR("B"	SELSTAT+13*
DIR(0	SELSTAT+12*
>> DTOUT	STATLIST+10, SELSTAT+15, AGAIN, SELSX
>> DUOUT	AGAIN
FILEDA	STATLIST~, STATLIST+9, STATLIST+10, STATLIST+25, ANCSTAT~, SELSTAT~, SELSTAT+11*, SELSTAT+15, SELSTAT+23, SELSTAT+27 , AGAIN+8
INACTOK	SELSTAT+9~, SELSTAT+16, SELSTAT+17, SELSTAT+20
MSG	STATOK+2~, STATOK+5*, STATOK+6
NEWSTAT	STATOK~, STATOK+4, STATLIST~, STATLIST+17, STATLIST+22, STATLIST+29, STATX+1, STATX+2, STATX+3
NODE0	STATLIST+7~, STATLIST+9*
PANCEST	ANCSTAT+1~, ANCSTAT+5
PANCEST(	ANCSTAT+6, ANCSTAT+7
PANCSTAT	ANCSTAT+1~, ANCSTAT+3, ANCSTAT+4, ANCSTAT+7, ANCSTAT+8
PFILEDA	STATLIST~, STATLIST+8*, STATLIST+10, STATLIST+24, STATLIST+25, ANCSTAT~, ANCSTAT+3, ANCSTAT+5, SELSTAT~, SELSTAT+15
PIECE7	STATWORD~, STATWORD+5
PNODE0	ANCSTAT+1~, ANCSTAT+3*, ANCSTAT+5
POSSSTAT	STATLIST+7~, STATLIST+9, STATLIST+15, STATLIST+17, STATX+1, STATX+2, STATX+3, POSSSTAT+3~, POSSSTAT+4, POSSSTAT+5
STAT	STATOK+2~, STATOK+3*, STATOK+4, STATOK+5
STATANS	STATWORD+3~, STATWORD+5, STATWORD+6, STATWORD+7
STATLIST	STATLIST~, STATLIST+15, STATLIST+22, STATLIST+26, STATX, STATX+1, STATX+2, STATX+3, STATX+4*
STATMSG	STATLIST~, STATLIST+8, STATLIST+12, STATLIST+19, STATLIST+22, STATLIST+30, STATX+5*
STATOK	SELSTAT+10~, AGAIN+2, AGAIN+3, AGAIN+7
STATSCRN	SELSTAT+9~
STATUS	STATLIST+7~, STATLIST+29, STATLIST+30, SELSTAT+9~, AGAIN, AGAIN+1, AGAIN+4, AGAIN+5, AGAIN+6, AGAIN+7 , AGAIN+8, SELSX, SELSX+1
>> TIUFATTR	SELSTAT+25
>> TIUFAVAL	SELSTAT+25
TIUFCK	STATLIST+10~, STATLIST+12, STATLIST+17, STATLIST+20, STATLIST+22
TIUFCK("S"	STATLIST+14, STATLIST+17!, STATLIST+20!
TIUFSLST	SELSTAT+10~, SELSTAT+15, SELSTAT+17, SELSTAT+25, SELSTAT+26, AGAIN+8
TIUFSMSG	SELSTAT+9~, SELSTAT+15, SELSTAT+25*
>> TIUFXNOD	SELSTAT+12, SELSTAT+24
TIUI	ANCSTAT+1~, ANCSTAT+6*, ANCSTAT+7
TOK	SELSTAT+9~, SELSTAT+16, SELSTAT+17, SELSTAT+21
TYPE	STATOK~, STATOK+3, STATOK+5, STATLIST+7~, STATLIST+9*, STATLIST+19, STATX+5, POSSSTAT~, POSSSTAT+4
U	STATLIST+9, STATLIST+22, ANCSTAT+3, ANCSTAT+7, SELSTAT+25, AGAIN+8
X	SELSTAT+9~
Y	STATLIST+29, SELSTAT+9~, AGAIN+1

Customize PDF page

Package: Text Integration Utility

Routine: TIUFLF5

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: