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

Package: Kernel

Routine: XQT3


Information

XQT3 ;SEA/MJM Create menu templates (cont.);11/20/89 11:12 AM ;01/09/2001 13:33

Source Information

Source file <XQT3.m>

Entry Points

Name Comments DBIA/ICR reference
STORE ;See if this is what the User wants and if so store it
NAM ;Get a legitimate name for this template and file it.
RPT ;Set the default for repeating the template
FIL ;File this template in the New Person File
OUT ;Clean up, restore XQY and quit
O1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"You have chosen the following options in this order:",!!
  • Line Location: STORE+1
Function Call: WRITE
  • Prompt: !,$P(XQLIST(XQN),U,4)," (",$P(XQLIST(XQN),U,3),")"
  • Line Location: STORE+2
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: STORE+3
Function Call: WRITE
  • Prompt: !!,"Are we in agreement so far? [Y/N] Y// "
  • Line Location: STORE+3
Function Call: WRITE
  • Prompt: !!,"Please answer 'Y' or 'N'",*7
  • Line Location: STORE+3
Function Call: WRITE
  • Prompt: !!,"OK, lets take it from the top...."
  • Line Location: STORE+4
Function Call: WRITE
  • Prompt: @IOF,!!,"Fine. Since all menu-type options will be processed in the background",!," you will only be asked to respond to the following:",!!
  • Line Location: STORE+5
Function Call: WRITE
  • Prompt: !,$P(XQLIST(XQN),U,4)," (",$P(XQLIST(XQN),U,3),")"
  • Line Location: STORE+6
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: STORE+7
Function Call: WRITE
  • Prompt: !!,"Are these the functions you want when you invoke this template? [Y/N] Y// "
  • Line Location: STORE+7
Function Call: WRITE
  • Prompt: !!,*7,"Please answer 'Y' or 'N'"
  • Line Location: STORE+7
Function Call: WRITE
  • Prompt: !!,"OK, lets take it from the top...."
  • Line Location: STORE+8
Function Call: READ
  • Variable: XQUR
  • Timeout: DTIME
  • Line Location: NAM+1
Function Call: READ
  • Variable: XQUR
  • Timeout: DTIME
  • Line Location: NAM+3
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: NAM+4
Function Call: WRITE
  • Prompt: *7,!!,"Six (6) characters or less, please."
  • Line Location: NAM+5
Function Call: WRITE
  • Prompt: !!,"A six character (or less) name like 'LAB', or 'E1',",!," something you will remember."
  • Line Location: NAM+6
Function Call: WRITE
  • Prompt: !!,"'",XQUR,"' it is. In the future you will start this template by typing '[",XQUR,"'"
  • Line Location: NAM+9
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !!,?5,"Please answer Yes or No."
  • Line Location: RPT+2
Function Call: READ
  • Variable: %
  • Timeout: 30
  • Line Location: FIL+4
Function Call: WRITE
  • Prompt: !,"You already have a template called ",X,". Do you want to replace it? N// "
  • Line Location: FIL+4
Info |  Source |  Entry Points |  Interaction Calls