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

Package: Kernel

Routine: XQ11


Information

XQ11 ;SEA/MJM - Menu Utilities ;1/08/2006

Source Information

Source file <XQ11.m>

Entry Points

Name Comments DBIA/ICR reference
COPY ;Make a copy of a menu-type option
ASK
REP
TXT ;Get the new menu text
FIL ;Get FileMan to put this all in.
OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry. You need to be assigned a valid name space to proceed."
  • Line Location: COPY+3
Function Call: WRITE
  • Prompt: !!,"WARNING ** Option names must be carefully named to avoid system damage!!",!?5,"Do you want more information? Yes// "
  • Line Location: COPY+7
Function Call: READ
  • Variable: XQUR
  • Timeout: DTIME
  • Line Location: COPY+8
Function Call: READ
  • Variable: XQUR
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?5,"Sorry. Your new option must begin with: "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $S(XQI=1:"",1:" or "),%
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!?5,"Sorry, this option name is already in use."
  • Line Location: ASK+5
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: REP+0
Function Call: WRITE
  • Prompt: !!?5,"If you answer 'Y' the existing option will be replaced by the one you're creating."
  • Line Location: REP+0
Function Call: WRITE
  • Prompt: *7,!!?5,"3 to 30 uppercase characters, please."
  • Line Location: REP+2
Function Call: WRITE
  • Prompt: !!,"The old menu text is ","""",$P(^DIC(19,+XQYO,0),U,2),"""",!
  • Line Location: TXT+1
Function Call: WRITE
  • Prompt: !!?5,"Please enter 10 to 50 characters describing what the new option does."
  • Line Location: TXT+4
Info |  Source |  Entry Points |  Interaction Calls