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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUPS139

Package: Text Integration Utility

Routine: TIUPS139


Information

TIUPS139 ; SLC/AJB - Cleanup for TIU*1*138 ; August 2, 2002

Source Information

Source file <TIUPS139.m>

Entry Points

Name Comments DBIA/ICR reference
CLEAN ; control segment
EXIT ;
REPORT ;
;
OUTPUT ;
ASKUSER(ANS) ;
REQCOSIG(TIUTYP,TIUDA,USER) ; Evaluate whether user requires cosignature
REQCOSX
ISA(USER,CLASS,ERR) ; Boolean - Is USER a Member of CLASS?
ISAX
CURRENT(MEMBER) ; Boolean - Is Membership current?
MKWSDEV ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+4
Function Call: WRITE
  • Prompt: !,"Searching..."
  • Line Location: CLEAN+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLEAN+17
Function Call: WRITE
  • Prompt: HDR(NUM),!
  • Line Location: OUTPUT+3
Function Call: WRITE
  • Prompt: RPT(NUM),!
  • Line Location: OUTPUT+4
Function Call: WRITE
  • Prompt: NUM
  • Line Location: OUTPUT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUSER+14
Function Call: WRITE
  • Prompt: !,"TIUPS139.TXT has been deleted.",!
  • Line Location: ASKUSER+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUSER+32
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUSER+47
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUSER+61
Function Call: WRITE
  • Prompt: !,"Workstation device creation failed."
  • Line Location: MKWSDEV+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^%ZIS(2 - [#3.2] FIND1^DIC
^%ZIS(1 - [#3.5] FIND1^DIC
^TIU(8925 - [#8925] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call