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

Package: Text Integration Utility

Routine: TIUFH1


Information

TIUFH1 ; SLC/MAM - LM Template H (DDEF Hierarchy) Actions Expand/Collapse, Jump to DDEF (EXPDEF(ASK,FILEDA)), EXPAND1(EINFO), COLLAPSE(EINFO) ;10/2/97 21:44

Source Information

Source file <TIUFH1.m>

Entry Points

Name Comments DBIA/ICR reference
EXPCOLL ; Template A Action Expand/Collapse
EXPCX
EXPDEF(ASK,FILEDA) ; If ASK, Template H action Jump to Document Def; else Expand to show entry FILEDA
; Assumes Docmt Def except Shared Components have at most 1 parent
; Requires ASK=1 to ask which entry to jump to, = 0 to not ask.
; Requires FILEDA if ASK = 0.
ASK
NOASK
EXPDX
COLLAPSE(EINFO) ; Collapse ENTRYNO
; Requires EINFO array, where EINFO = ^TMP("TIUFIDX,$J,ENTRYNO), and
COLLX ;
EXPAND1(EINFO) ; Set items of List Manager array entry ENTRYNO into
EXPAX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Missing List Manager Data; See IRM",!
  • Line Location: EXPCOLL+4
Function Call: WRITE
  • Prompt: !!,MSG,!
  • Line Location: EXPCOLL+8
Function Call: WRITE
  • Prompt: !!," Can't Expand/Collapse: File Entry "_FILEDA_" Has Nonexistent Item "_MISSITEM_"; See IRM.",!
  • Line Location: EXPCOLL+9
Function Call: WRITE
  • Prompt: !!,MSG,!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: MSG1
  • Condition for execution: $D(MSG1)
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOASK+9
Function Call: WRITE
  • Prompt: $S(ASK:" Can't Jump",1:"Can't expand to show "_$P(NODE0,U)),": File Entry "_PFILEDA_" Has Nonexistent Item "_MISSITEM_"; See IRM",!
  • Line Location: NOASK+9
Info |  Source |  Entry Points |  Interaction Calls