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

Package: Text Integration Utility

Routine: TIUSRVT5


Information

TIUSRVT5 ;SP/WAT - Set/Remove consult lock values for templates and fields ;05/04/20 06:49

Source Information

Source file <TIUSRVT5.m>

Entry Points

Name Comments DBIA/ICR reference
SETCNLOK ;set param value for TIU TEMPLATE CONSULT LOCK and CONSULT LOCK fields in 8927 & 8927.1
ADD
PAR
FLD ;build list of template fields
SCREEN ;screen it
CHOOSE(TIUY) ;get item to delete
ERROR ; show it
BLD(TIUIEN,TIUARY) ; Build array of templates.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SETCNLOK+7
Function Call: WRITE
  • Prompt: !!,"**TIU TEMPLATE CONSULT LOCK parameter not found!**"
  • Line Location: SETCNLOK+9
Function Call: WRITE
  • Prompt: !,?5,"NUMBER",?20,"TEMPLATE"
  • Line Location: SETCNLOK+15
Function Call: WRITE
  • Prompt: !,?5,"======",?20,"========"
  • Line Location: SETCNLOK+16
Function Call: WRITE
  • Prompt: !,?5,TIUCNT,?20,$P(TIUY(TIUCNT),U,2)
  • Line Location: SETCNLOK+18
Function Call: WRITE
  • Prompt: !
  • Line Location: SETCNLOK+20
Function Call: WRITE
  • Prompt: !,"... Deleted."
  • Line Location: SETCNLOK+29
Function Call: WRITE
  • Prompt: !,"ERROR #"_$P(TIUERR,U)
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !,"TEXT: "_$P(TIUERR,U,2),!
  • Line Location: ERROR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8927 - [#8927] Classic Fileman Calls
^TIU(8927.1 - [#8927.1] Classic Fileman Calls
^XTV(8989.51 - [#8989.51] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call