Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: TIUFLJ

Package: Text Integration Utility

Routine: TIUFLJ


Information

TIUFLJ ;SLC/MAM - NOTE, WARNOBJ(NAP,OBJECTDA,NODE0), HASIT(OBJECTDA,ONODE0,FILEDA,NAP,HASIT), DHASIT(OBJECTDA,ONODE0,FILEDA,NAP,DHASIT), EMBED(OBJECTDA,ONODE0,NAP,ALLSUB), OBJUSED(FILEDA) ;;4/23/97

Source Information

Source file <TIUFLJ.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Text Integration Utility 5 $$MISSITEM^TIUFLF4  $$STATWORD^TIUFLF5  ITEMS^TIUFLT  PAUSE^TIUFXHLX  $$UPPER^TIULS  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Text Integration Utility 5 TIUFD1  TIUFD4  TIUFHA1  TIUFHA3  TIUFLF1  

Entry Points

Name Comments DBIA/ICR reference
WARNX
EMBED(OBJECTDA,ONODE0,NAP,ALLSUBS) ; Sets ^TMP("TIUFEMBED",$J,OBJECTDA,SUBSCPT,NAP,FILEDA); See top of routine.
; Sets ^TMP("TIUFEMBED",$J,OBJECTDA,"TIUFTL",NAP,FILEDA) = status of FILEDA for Titles only: ACTIVE or TEST or INACTIVE or "".
; If ALLSUBS=1, sets array for subscripts TIUFTL, TIUFCO and TIUFORPHAN. Otherwise, just sets TIUFTL.
HASIT(OBJECTDA,ONODE0,FILEDA,NAP,HASIT) ; Passes back HASIT=1 if title/
DHASIT(OBJECTDA,ONODE0,FILEDA,NAP,DHASIT) ; Does HASIT for FILEDA descendants
DHASX
OBJUSED(FILEDA) ; Function returns 1 if FILEDA is embedded in boilerplate text of a Title or component; 1A if any of these titles is active; else 0.
WARNOBJ(NAP,OBJECTDA,NODE0) ; Function writes warning re edit object Name, Abbrev or Print Name. Returns CONTINUE = 1 or 0.
; Needs OBJECTDA. Needs NAP = N or A or P. Needs ^TMP("TIUFEMBED,$J,OBJECTDA,"TIUFTL",NAP). Needs NODE0.
NOTE ; Write note re possible change in list of titles.
OBJUX

External References

Name Field # of Occurrence
$$MISSITEM^TIUFLF4 DHASIT+2
$$STATWORD^TIUFLF5 EMBED+13
ITEMS^TIUFLT DHASIT+4
PAUSE^TIUFXHLX NOTE+5, WARNOBJ+18, DHASIT+3
$$UPPER^TIULS WARNOBJ+10, HASIT+12
FULL^VALM1 WARNOBJ+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NAME: Since objects are embedded by name, abbreviation or print name, NOT by"
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: !,"file number, your edit of name, abbreviation or print name may affect which"
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: !,"titles have the object embedded in them. You may want to note the list of",!,"these titles from the Detailed Display screen NOW before it changes."
  • Line Location: NOTE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WARNOBJ+9
Function Call: WRITE
  • Prompt: !,"Can't edit ",$$UPPER^TIULS(ATTR),": Object ",ATTR," is embedded in the boilerplate text"
  • Line Location: WARNOBJ+10
Function Call: WRITE
  • Prompt: !,"of the following active title(s). If you wish to edit object ",ATTR,", you"
  • Line Location: WARNOBJ+11
Function Call: WRITE
  • Prompt: !,"must first inactivate these titles. Then, after editing the object, you will"
  • Line Location: WARNOBJ+12
Function Call: WRITE
  • Prompt: !,"need to update the boilerplate text of these titles and then reactivate them."
  • Line Location: WARNOBJ+13
Function Call: WRITE
  • Prompt: !,"If you wish to edit ",ATTR," please note this list NOW and save it until all"
  • Line Location: WARNOBJ+14
Function Call: WRITE
  • Prompt: !,"titles are reactivated.",!
  • Line Location: WARNOBJ+15
Function Call: WRITE
  • Prompt: ^TMP("TIUF3",$J,LINENO,0),!
  • Line Location: WARNOBJ+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: WARNOBJ+18
Function Call: WRITE
  • Prompt: !!," Corrupt Database: File Entry "_FILEDA_" Has Nonexistent Item "_MISSITEM_" ; See IRM",!,"Can't tell whether or not "_FILEDA_" has object.",!
  • Line Location: DHASIT+3
Function Call: WRITE
  • Prompt: !!,"Title ",FILEDA," from the AT cross reference does not exist; see IRM",!
  • Line Location: EMBED+7
Function Call: WRITE
  • Prompt: !!,"Component ",FILEDA," from the AT cross reference does not exist; see IRM",!
  • Line Location: EMBED+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] HASIT+8, HASIT+9, DHASIT+8, OBJUSED+2, EMBED+6, EMBED+7, EMBED+13, EMBED+16, EMBED+17, EMBED+18
^TMP("TIUF3" NOTE+1, WARNOBJ+16
^TMP("TIUF3IDX" WARNOBJ+7
^TMP("TIUFEMBED" WARNOBJ+5!, WARNOBJ+6, OBJUSED+3!, OBJUSED+4, OBJUSED+5, EMBED+4!, EMBED+12*, EMBED+14*, EMBED+23*

Label References

Name Line Occurrences
DHASIT DHASIT+10, EMBED+10, EMBED+21
DHASX DHASIT+3
EMBED WARNOBJ+5, OBJUSED+3
HASIT DHASIT+9, EMBED+9, EMBED+20
NOTE WARNOBJ+17
OBJUX OBJUSED+4, OBJUSED+5
WARNX WARNOBJ+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABBREV HASIT+6~, HASIT+7*, HASIT+13
ALLSUBS EMBED~, EMBED+5*, EMBED+15
ATTR WARNOBJ+2~, WARNOBJ+3*, WARNOBJ+10, WARNOBJ+11, WARNOBJ+14
CONODE0 EMBED+3~, EMBED+17*
CONTINUE WARNOBJ+2~, WARNOBJ+4*, WARNOBJ+8*, WARNOBJ+17, WARNOBJ+18, WARNX
DHASIT DHASIT~, DHASIT+9, DHASIT+10, EMBED+8*, EMBED+10, EMBED+11, EMBED+12, EMBED+19*, EMBED+21, EMBED+22
EMBEDNM HASIT+6~, HASIT+10*, HASIT+11, HASIT+12, HASIT+13, HASIT+14
FILEDA HASIT~, HASIT+8, HASIT+9, DHASIT~, DHASIT+2, DHASIT+3, DHASIT+4, DHASIT+8, OBJUSED~, OBJUSED+2
, OBJUSED+3, OBJUSED+4, OBJUSED+5, EMBED+3~, EMBED+6*, EMBED+7, EMBED+9, EMBED+10, EMBED+12, EMBED+13
, EMBED+14, EMBED+16*, EMBED+17, EMBED+18, EMBED+20, EMBED+21, EMBED+23
HASIT HASIT~, HASIT+12*, HASIT+13*, HASIT+14*, EMBED+8*, EMBED+9, EMBED+11, EMBED+19*, EMBED+20, EMBED+22
IFILEDA DHASIT+1~, DHASIT+8*, DHASIT+9, DHASIT+10
ITENDA DHASIT+1~, DHASIT+7*, DHASIT+8
LINE HASIT+6~, HASIT+9*, HASIT+10
LINENO WARNOBJ+2~, WARNOBJ+7*, WARNOBJ+16
MISSITEM DHASIT+1~, DHASIT+2*, DHASIT+3
NAME HASIT+6~, HASIT+7*, HASIT+12
NAP WARNOBJ~, WARNOBJ+3, WARNOBJ+5, WARNOBJ+6, WARNOBJ+17, HASIT~, HASIT+12, HASIT+13, HASIT+14, DHASIT~
, DHASIT+9, DHASIT+10, EMBED~, EMBED+9, EMBED+10, EMBED+12, EMBED+14, EMBED+20, EMBED+21, EMBED+23
NODE0 WARNOBJ~, WARNOBJ+5, OBJUSED+1~, OBJUSED+2*, OBJUSED+3
OBJECTDA WARNOBJ~, WARNOBJ+5, WARNOBJ+6, HASIT~, DHASIT~, DHASIT+9, DHASIT+10, EMBED~, EMBED+4, EMBED+9
, EMBED+10, EMBED+12, EMBED+14, EMBED+20, EMBED+21, EMBED+23
ONODE0 HASIT~, HASIT+7, DHASIT~, DHASIT+9, DHASIT+10, EMBED~, EMBED+9, EMBED+10, EMBED+20, EMBED+21
PARENT EMBED+3~
PNAME HASIT+6~, HASIT+7*, HASIT+14
STATUS EMBED+3~, EMBED+13*, EMBED+14
TITLEDA WARNOBJ+2~, WARNOBJ+6*, WARNOBJ+7, OBJUSED+1~, OBJUSED+5*
>> TIUFELIN NOTE+1
>> TIUFFULL WARNOBJ+9*
TIUFI DHASIT+1~, DHASIT+5*, DHASIT+6*, DHASIT+7
TIUFITEM DHASIT+1~
TIUFITEM( DHASIT+6, DHASIT+7
TIUFJ HASIT+6~, HASIT+8*, HASIT+9
TIUFK HASIT+6~, HASIT+10*
TNODE0 EMBED+3~, EMBED+7*, EMBED+13*
U HASIT+7, DHASIT+7, EMBED+13
USEDANS OBJUSED+1~, OBJUSED+4*, OBJUSED+5*, OBJUX
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All