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

Package: Text Integration Utility

Routine: TIUFLF6


Information

TIUFLF6 ; SLC/MAM - Library; File 8925.1 Related: ASKSTAT(FILEDA,NODE0,PFILEDA,NEWFLAG,XFLG), AUTOSTAT(FILEDA,NODE0,STAT),DESCSTAT(FILEDA,NEWSTAT) ; 03/16/2007

Source Information

Source file <TIUFLF6.m>

Entry Points

Name Comments DBIA/ICR reference
ASKSTAT(FILEDA,NODE0,PFILEDA,NEWFLAG,XFLG) ; User edit FILEDA Status. Does AUTOSTAT.
; Requires FILEDA,NODE0
; Requires PFILEDA if FILEDA has an actual/prospective parent.
; Returns NEWFLAG=0 if Status unchanged, = 1^ExternalNewStatus if changed, e.g. 1^ACTIVE
; Returns XFLG=1 if user ^exited or timed out, else as received.
READST
ASKSX
AUTOSTAT(FILEDA,NODE0,STAT) ; Auto edit FILEDA to Status STAT; Auto edit FILEDA descendants
DESCSTAT(FILEDA,NEWSTAT) ; Edits Status of all descendants of FILEDA
DESCX
CANEDIT(FILEDA) ; Function returns 1 if Shared Component can be edited, else 0
; Can be edited if all parent Titles are Inactive. Ignores parents which don't exist or have no Status.
CANEX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ?? Enter appropriate Status or '^' to exit",!
  • Line Location: READST+2
Function Call: WRITE
  • Prompt: !!,$C(7),"You MUST first map ",$P(NODE0,U),!
  • Line Location: AUTOSTAT+14
Function Call: WRITE
  • Prompt: $C(7)," Status Unchanged...",!
  • Line Location: AUTOSTAT+16
Function Call: WRITE
  • Prompt: " Entry Activated.",!
  • Line Location: AUTOSTAT+18
Function Call: WRITE
  • Prompt: !!," File Entry "_FILEDA_" has Nonexistent item "_IFILEDA_"; See IRM",!
  • Line Location: DESCSTAT+10
Function Call: WRITE
  • Prompt: " File Entry "_PFILEDA_" from AD XREF is missing from the file: See IRM"
  • Line Location: CANEDIT+5
Function Call: WRITE
  • Prompt: " File Entry "_PFILEDA_" has No Status/Bad Status"
  • Line Location: CANEDIT+7
Info |  Source |  Entry Points |  Interaction Calls