Routine: TIUFLF1

Information

TIUFLF1 ; SLC/MAM - Library; File 8925.1 Related: HASITEMS(FILEDA), ASKFLDS(FILEDA,FIELDS,PFILEDA,NEWSFLG,XFLG), BADNAP(NAP,FILEDA,OBJFLG) ; 03/16/2007

Source Information

Source file <TIUFLF1.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Text Integration Utility	11	INHERIT^TIUFLD DSETSHAR^TIUFLD1 $$DDEFUSED^TIUFLF ($$BADNAP,$$HASITEMS)^TIUFLF1 ($$PERSOWNS,$$SELNAME)^TIUFLF2 ASKSTAT^TIUFLF6 ($$DUPITEM,EDTYPE,TYPELIST)^TIUFLF7 EDOWN^TIUFLF8 $$WARNOBJ^TIUFLJ PAUSE^TIUFXHLX DIRECT^TIUMAP2
VA Fileman	2	^DIE ^DIR
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 14

Package	Total	Caller Graph
Text Integration Utility	14	TIUFA1 TIUFC TIUFC1 TIUFD TIUFD2 TIUFD3 TIUFHA3 TIUFHA4 TIUFHA8 TIUFLF1 TIUFLF7 TIUFLLM TIUFT TIUFX

Entry Points

External References

Name	Field # of Occurrence
^DIE	NAME+7, ABBREV1, PRINTN1, NATL+6, SHARE+17, OKDIST, SUPVISIT+4, SUPVISIT+6
^DIR	NATL+5, SHARE+16, WARNSUP+4
INHERIT^TIUFLD	SUPVISIT+3
DSETSHAR^TIUFLD1	SHARE+18
$$DDEFUSED^TIUFLF	ASKFLDS+13
$$BADNAP^TIUFLF1	NAME+6
$$HASITEMS^TIUFLF1	SHARE+18
$$PERSOWNS^TIUFLF2	SHARE+4
$$SELNAME^TIUFLF2	NAME
ASKSTAT^TIUFLF6	STATUS+4
$$DUPITEM^TIUFLF7	NAME+1
EDTYPE^TIUFLF7	TYPE
TYPELIST^TIUFLF7	NAME+2
EDOWN^TIUFLF8	OWNER
$$WARNOBJ^TIUFLJ	ASKFLDS+18, ABBREV+1, PRINTN+1
PAUSE^TIUFXHLX	NAME+3
DIRECT^TIUMAP2	LOINC+3
FULL^VALM1	ASKFLDS+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please enter a different Name; Parent already has Item with that Name",! Line Location: NAME+1
Function Call: WRITE	Prompt: !!,TIUFTMSG("T"),!,"Can't edit Entry",! Line Location: NAME+3
Function Call: WRITE	Prompt: !!," Please enter a different Name; File already has entries of every permitted Type",!,"with that Name",! Line Location: NAME+4
Function Call: WRITE	Prompt: !!,"Please enter a different Name; File already has entry of this Type",!,"with that Name",! Line Location: NAME+5
Function Call: WRITE	Prompt: " ??",!,"Object Name must be unique among all object Names, Abbreviations,",!,"and Print Names." Line Location: NAME+6
Function Call: WRITE	Prompt: !!,"EVERY Local Title must be mapped to a VHA Enterprise Standard Title.",! Line Location: LOINC+2
Function Call: WRITE	Prompt: !!,"SHARED: Only an Owner can edit SHARED",! Line Location: SHARE+4
Function Call: WRITE	Prompt: !!,"SHARED: Subcomponent of Shared Component; Must remain Shared",! Line Location: SHARE+10
Function Call: WRITE	Prompt: !!,"SHARED: Entry is SHARED with multiple parents; Can't edit SHARED" Line Location: SHARE+19
Function Call: WRITE	Prompt: " NOT" Line Location: SUPVISIT+6
Function Call: WRITE	Prompt: " Suppressed" Line Location: SUPVISIT+7
Function Call: WRITE	Prompt: !,"STATUS: Shared Components have no Status; Can't Edit Status" Line Location: STATUS+1
Function Call: WRITE	Prompt: !,"STATUS: Orphans are Inactive; Can't Edit Status" Line Location: STATUS+2
Function Call: WRITE	Prompt: !,"STATUS: Components get their Status from their Parent; Can't Edit Status" Line Location: STATUS+3
Function Call: WRITE	Prompt: ! Line Location: WARNSUP+4
Function Call: WRITE	Prompt: " ... " Line Location: WARNSUP+4
Routine Call	DIE Line Location: NAME+7 ABBREV1 PRINTN1 NATL+6 SHARE+17 OKDIST SUPVISIT+4 SUPVISIT+6
Routine Call	DIR Line Location: NATL+5 SHARE+16 WARNSUP+4

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	BADNAP+10, BADNAP+16, BADNAP+17, HASITEMS+1, ASKFLDS+12, NAME+7, ABBREV1, PRINTN1, LOINC+3, NATL , SHARE+9, SHARE+10, SHARE+11, SHARE+13, SUPVISIT+1, SUPVISIT+5

Label References

Name	Line Occurrences
$$WARNSUP	SUPVISIT+5
ABBREV	ASKFLDS+17, ASKFLDS+18
ASKFX	ASKFLDS+18, NAME, NAME+2, NAME+3, NAME+8, ABBREV+1, ABBREV1+1, PRINTN+1, PRINTN1+1, LOINC+4 , NATL, TYPE, SHARE+13, OWNER, OKDIST, SUPVISIT, STATUS, STATUS+1, STATUS+2, STATUS+3
BADNX	BADNAP+9, BADNAP+14
LOINC	PRINTN, PRINTN+1
NAME	NAME+1, NAME+4, NAME+5, NAME+6
NATL	LOINC
OWNER	SHARE, SHARE+2, SHARE+3, SHARE+4, SHARE+10, SHARE+18
PRINTN	ABBREV, ABBREV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	ASKFLDS+9~, NATL+6, SHARE+17, SHARE+18
CONTINUE	ASKFLDS+10~, ASKFLDS+18, ABBREV+1, PRINTN+1, SUPVISIT+5, SUPVISIT+6
DA	ASKFLDS+9~, ASKFLDS+14*
DEFLT	ASKFLDS+10~, NAME*
DIE	ASKFLDS+9~, ASKFLDS+14*
DIR	ASKFLDS+9~, SHARE+1~, WARNSUP+1~
DIR("?"	NATL+3, SHARE+14
DIR("??"	NATL+3, SHARE+14
DIR("A"	NATL+4, SHARE+15, WARNSUP+2, WARNSUP+3
DIR("B"	NATL+1, SHARE+7, SHARE+10, SHARE+11, SHARE+13, WARNSUP+2*
DIR(0	NATL+3, SHARE+14, WARNSUP+2*
DIRUT	ASKFLDS+15!, ASKFLDS+18, NAME!, NAME+8, ABBREV+1, ABBREV1+1, PRINTN+1, PRINTN1+1, LOINC+4, TYPE!
DR	ASKFLDS+9~, NAME+7, ABBREV1, PRINTN1, LOINC+3, NATL+6, SHARE+17, OKDIST, SUPVISIT+4, SUPVISIT+6*
>> DTOUT	NAME+2, NAME+8, ABBREV1+1, PRINTN1+1, LOINC+4, NATL+5, SHARE+16, OKDIST, SUPVISIT+4, ASKFX
>> DUOUT	NAME+8, ABBREV1+1, PRINTN1+1, LOINC+4, NATL+5, SHARE+16, OKDIST, SUPVISIT, SUPVISIT+4, ASKFX
DUZ	SHARE+4
FIELDS	ASKFLDS~, ASKFLDS+17, ABBREV, PRINTN, LOINC, NATL, TYPE, SHARE, OWNER, OKDIST , SUPVISIT, STATUS
FILEDA	BADNAP~, BADNAP+10, BADNAP+17, HASITEMS~, HASITEMS+1, ASKFLDS~, ASKFLDS+12, ASKFLDS+13, ASKFLDS+14, ASKFLDS+18 , NAME+1, NAME+2, NAME+6, NAME+7, ABBREV+1, ABBREV1, PRINTN+1, PRINTN1, LOINC+3, NATL , TYPE, SHARE+4, SHARE+9, SHARE+13, SHARE+18, OWNER, SUPVISIT+1, SUPVISIT+3, SUPVISIT+5, STATUS+4
ITEMIFN	ASKFLDS+9~
NAME	ASKFLDS+9~, NAME*, NAME+1, NAME+2, NAME+6
NAP	BADNAP~, BADNAP+9, BADNAP+16
NAPANS	BADNAP+8~, BADNAP+9, BADNAP+15, BADNAP+16, BADNAP+17, BADNX
NEWSFLG	ASKFLDS~, ASKFLDS+12*, STATUS+4
NODE0	BADNAP+12, ASKFLDS+9~, ASKFLDS+12, ASKFLDS+13, ASKFLDS+18, NAME, NAME+5, NAME+6, NAME+7, ABBREV+1 , ABBREV1, PRINTN+1, PRINTN1, LOINC, LOINC+3, NATL, NATL+1, TYPE, SHARE+3, SHARE+5 , SHARE+13*, SUPVISIT, STATUS+1, STATUS+2, STATUS+3, STATUS+4
OBJFLG	BADNAP~, BADNAP+10, BADNAP+11, BADNAP+12, BADNAP+13, BADNAP+14
OFILEDA	BADNAP+8~, BADNAP+16*, BADNAP+17
PARENT1	SHARE+1~, SHARE+9*, SHARE+10, SHARE+11
PARENT2	SHARE+1~, SHARE+9*, SHARE+10, SHARE+19
PFDA	ASKFLDS+9~
PFILEDA	ASKFLDS~, ASKFLDS+15*, NAME+1, NAME+2, TYPE, STATUS+4
SHARE	SHARE+1~, SHARE+5*, SHARE+7, SHARE+10, SHARE+11, SHARE+18, SHARE+19
SIGNERS	ASKFLDS+10~
STATUS	SHARE+1~
SUPVISIT	ASKFLDS+11~, SUPVISIT+1, SUPVISIT+2, SUPVISIT+3*, SUPVISIT+5
SUPVISIT("E"	SUPVISIT+3
>> TIUFFULL	ASKFLDS+16*
TIUFIMSG	ASKFLDS+10~
TIUFQUIT	ASKFLDS+10~, ASKFLDS+14*
>> TIUFSTMP	STATUS+2
TIUFTLST	ASKFLDS+10~, NAME+2, NAME+4, NAME+5
>> TIUFTMPL	BADNAP+11, STATUS+2
TIUFTMSG	ASKFLDS+10~, NAME+2
TIUFTMSG("T"	NAME+3
TIUFUPP	PRINTN1~
>> TIUFWHO	NATL, SHARE+2, OKDIST
>> TIUFXNOD	BADNAP+12, STATUS+1, STATUS+3
TIUFY	ASKFLDS+10~
TIUOUT	LOINC+1~*, LOINC+4
TYPEDR	ASKFLDS+9~
U	BADNAP+12, ASKFLDS+13, ASKFLDS+18, NAME, NAME+5, NAME+6, ABBREV+1, PRINTN+1, LOINC, NATL+1 , SHARE+3, SHARE+5, SHARE+10, SHARE+11, SUPVISIT, SUPVISIT+1, SUPVISIT+5, STATUS+1, STATUS+2, STATUS+3
USED	ASKFLDS+9~, ASKFLDS+13*, TYPE
X	ASKFLDS+9~, WARNSUP+1~
XFLG	ASKFLDS~, ASKFLDS+12, NATL, NATL+5, TYPE, SHARE+13, SHARE+16, OWNER, STATUS+4, ASKFX
XREF	BADNAP+8~, BADNAP+15*, BADNAP+16
Y	ASKFLDS+9~, NAME+8, ABBREV1+1, PRINTN1+1, NATL+6, SHARE+12~, SHARE+17, OKDIST, SUPVISIT+4, WARNSUP+1~ , WARNSUP+5

Customize PDF page

Package: Text Integration Utility

Routine: TIUFLF1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
STATUS
WARNSUP()	; Function Warns user who asks to Suppress Visit, Returns 1 to Suppress, 0 to not Suppress.
BADNAP(NAP,FILEDA,OBJFLG)	; Function returns 1 if NAP is ambiguous as a
SUPVISIT
LOINC
NAME
ASKFX
TYPE
BADNX
SHARE
PRINTN1
OWNER
ABBREV
NATL
HASITEMS(FILEDA)	; Function returns 0 if FILEDA has no items, else returns 1.
OKDIST
ASKFLDS(FILEDA,FIELDS,PFILEDA,NEWSFLG,XFLG)	; Ask FIELDS (String subset of: ;.01;.02;.03;.04;.05;.06;.07;.1;.13;3.03) w ;'s on ends as well as between numbers for file entry FILEDA. ; Requires FILEDA, FIELDS. ; If field is determined, correct, and exists, module doesn't ask even if it is contained in FIELDS. ; Returns NEWSFLG=1 if ASKFIELDS has changed Status of FILEDA, else 0 ; Returns XFLG=1 if user ^exited, else 0. ; Requires PFILEDA (= Actual/Anticipated parent) if FIELDS [ .04 Type
ABBREV1
PRINTN