Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
NOTE ; Write note re possible change in list of titles.
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.
WARNX
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.
OBJUX
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.

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
Info |  Source |  Entry Points |  Interaction Calls