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

Package: Kernel

Routine: XQT4


Information

XQT4 ;SEA/MJM - Menu template utilities ;08/27/97 14:52

Source Information

Source file <XQT4.m>

Entry Points

Name Comments DBIA/ICR reference
SHO ;Show a user his or her template names
KIL
SHO1 ;Write out template name and the first two options in it
OUT ;Clean up and quit
LIST ;List all of the options in a particular Menu Template
ASK
ASKE
DEED ;Decode the word processing field where templates are stored
WRITE ;Write the Entry Action, Menu text, and Exit Action for an option
WAIT ;That's a screen load hold it here for a minute
KILL ;Remove a template from the New Person File
K1
K2
RNAM ;Rename an exsisting Menu Template

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,XQUSER," doesn't have any Templates stored in the New Person File."
  • Line Location: SHO+3
Function Call: WRITE
  • Prompt: @IOF,!,?10,"The menu templates of ",XQUSER," ",%Y
  • Line Location: SHO+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHO1+2
Function Call: WRITE
  • Prompt: !!,"Template name: ",XQN
  • Line Location: SHO1+3
Function Call: WRITE
  • Prompt: !,?3,"1st option: ",$S($D(^DIC(19,%1,0))#2:$P(^(0),U,2),1:"*** Missing Option ***")
  • Line Location: SHO1+4
Function Call: WRITE
  • Prompt: !,?6,"2nd option: ",$S($D(^DIC(19,%2,0))#2:$P(^(0),U,2),1:"*** Missing Option ***")
  • Line Location: SHO1+5
Function Call: WRITE
  • Prompt: !,?9,"Etc."
  • Line Location: SHO1+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Which template? ('^' to quit) ^// "
  • Variable: XQUR
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!," Enter the name of one of your templates, 'ALL' to list them all,",!?5,"or '??' to get a list of all your templates."
  • Line Location: ASK+1
Function Call: READ
  • Formatting: !
  • Prompt: "Are saying you want to print out all your templates? (Y/N) Y// "
  • Variable: %
  • Timeout: DTIME
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Please answer 'Y' or 'N' to this question."
  • Line Location: ASK+3
Function Call: READ
  • Formatting: !
  • Prompt: "Show Entry and Exit Actions? (Y/N) N// "
  • Variable: %
  • Timeout: DTIME
  • Line Location: ASKE+0
Function Call: WRITE
  • Prompt: !!,"'Y' means you'll see the MUMPS code (if any) executed",!?3,"before and after the option is run. 'N' means you won't"
  • Line Location: ASKE+1
Function Call: WRITE
  • Prompt: @IOF,!?20,"Menu Template ",XQUR,!!
  • Line Location: DEED+2
Function Call: WRITE
  • Prompt: !?XQLM,"Entry Action: ",^DIC(19,+XQY,20)
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !?XQLM,"Header: ",^DIC(19,+XQY,26)
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !?XQLM,$P(XQY0,U,2)_" ("_$P(XQY0,U)_")"
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !!?XQLM,"*** Fatal Error *** Option missing from Option File ***",!?XQLM,"This template will not run. Delete and/or rebuild it."
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !?XQLM,"Exit Action: ",^DIC(19,+XQY,15)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: @IOF,?10,"Template ",XQUR," continued..."
  • Line Location: WRITE+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WAIT+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Which template should be deleted ? "
  • Variable: XQUR
  • Timeout: DTIME
  • Line Location: KILL+2
Function Call: WRITE
  • Prompt: !,"Enter a template name, '??' to get a list of your templates",!," or '^' to quit."
  • Line Location: KILL+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: KILL+3
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: K1+0
Function Call: WRITE
  • Prompt: !,"I will remove the Menu Template ",XQUR," permanently. OK? (Y/N) N// "
  • Line Location: K1+0
Function Call: WRITE
  • Prompt: !,"Please answer 'Y' or 'N' or '^' to quit."
  • Line Location: K1+0
Info |  Source |  Entry Points |  Interaction Calls