Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XQT4

Package: Kernel

Routine: XQT4


Information

XQT4 ;SEA/MJM - Menu template utilities ;08/27/97 14:52 [ 04/02/2003 8:29 AM ]

Source Information

Source file <XQT4.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^XQDATE  FIND^XQT  
VA Fileman 3 ^DIC  ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 XQT  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS SHO+4
^DIC RNAM+1
^DIE RNAM+2
^DIK K1+1
^XQDATE SHO+4
FIND^XQT ASKE+4, KILL+4

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
  • Prompt: "Which template? ('^' to quit) ^// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: XQUR
  • 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
  • Prompt: "Are saying you want to print out all your templates? (Y/N) Y// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: %
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Please answer 'Y' or 'N' to this question."
  • Line Location: ASK+3
Function Call: READ
  • Prompt: "Show Entry and Exit Actions? (Y/N) N// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: %
  • 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
  • Timeout: DTIME
  • Variable: X
  • Line Location: WAIT+1
Function Call: READ
  • Prompt: "Which template should be deleted ? "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: XQUR
  • 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
  • Timeout: DTIME
  • Variable: %
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • SHO+4
Routine Call
  • DIE
  • Line Location:
    • RNAM+2
Routine Call
  • DIC
  • Line Location:
    • RNAM+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] SHO1+4, SHO1+5, DEED+3, WRITE+1, WRITE+2, WRITE+5
^VA(200 - [#200] SHO+1, SHO+3, SHO+6, SHO1+1, ASKE+2, DEED+1, DEED+3, K1+1

Label References

Name Line Occurrences
ASK ASK+1, ASK+2, ASK+3, ASKE+4, ASKE+5
ASKE ASKE+1
DEED ASKE+2, ASKE+4
K1 K1
K2 K1
KIL SHO+3
KILL KILL+2, KILL+3, K1
OUT ASK+1, ASKE, ASKE+3
SHO ASK+2, KILL+3
SHO1 SHO+6
WAIT SHO1+2, ASKE+2, WRITE+6
WRITE DEED+3

Naked Globals

Name Field # of Occurrence
^(0 SHO+1, SHO1+4, SHO1+5, DEED+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KIL!, SHO1+1*, SHO1+6, OUT+2!, ASK+3*, ASKE*, ASKE+1, DEED+3*, K1*, RNAM+1!
%1 KIL!, SHO1+1*, SHO1+4, OUT+2!
%2 KIL!, SHO1+1*, SHO1+5, OUT+2!
%Y SHO+5, KIL!, RNAM+1!
CD RNAM+1!, RNAM+3!
D RNAM+3!
D0 RNAM+3!
DA K1+1*, K2!, RNAM+1!, RNAM+2*, RNAM+3!
DA(1 K1+1*, RNAM+1*
DI RNAM+3!
DIC RNAM+1*!, RNAM+2, RNAM+3!
DIC("A" RNAM+1*
DIC("P" RNAM+1*, RNAM+2
DIC(0 RNAM+1*
DIE RNAM+2*, RNAM+3!
DIE("P" RNAM+2*
DIK K1+1*, K2!
DISYS RNAM+3!
DQ RNAM+3!
DR RNAM+2*, RNAM+3!
DTIME ASK+1, ASK+3, ASKE, WAIT+1, KILL+2, K1
DUZ SHO+1, SHO+3, SHO+6, SHO1+1, ASKE+2, DEED+1, DEED+3, K1+1, RNAM+1
FUN RNAM+1!, RNAM+3!
IOF SHO+4, SHO+5, SHO1+2, DEED+2, WRITE+6
IOST SHO1+2, WRITE+6
U XQT4+3*, SHO+1, SHO+2*, SHO1+1, SHO1+4, SHO1+5, SHO1+6, OUT+1, LIST+1*, ASK+1
, ASK+3, ASKE, DEED+1, DEED+3, WRITE+1, WRITE+2, WRITE+3, WRITE+5, WAIT+1, KILL+1*
, KILL+2, K1, RNAM+1*
X OUT+2!, WAIT+1*
XQ OUT+2!, DEED+3*, KILL+4!, K2!
XQALL OUT+2!, ASK*, ASK+3*, ASKE+2, ASKE+3
>> XQDIC OUT+1*, LIST+1
XQE OUT+2!, ASK*, ASKE*, ASKE+1, WRITE+1, WRITE+2, WRITE+5
XQEX OUT+2!, DEED+3*
XQI SHO+2*, SHO+6*, KIL!, SHO1+1*, OUT+2!, DEED+3*, KILL+4!, K2!
XQII OUT+2!, ASKE+2*
XQIT SHO+2*, SHO+6, KIL!, SHO1+2, OUT+2!, ASK*, ASK+2~, ASKE+2, DEED+3, WRITE+4*
, WRITE+6, WAIT+1*
XQJ OUT+2!, DEED+1*, DEED+3, KILL+4!, K2!
XQK ASKE+4, DEED+3*, KILL+4!, K2!
XQLM OUT+2!, DEED+2*, DEED+3*, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WAIT+1*
XQLN KIL!
XQN SHO+2*, SHO+3*, SHO+6*, KIL!, SHO1+1, SHO1+3, OUT+2!, DEED+1*, DEED+3
XQTSV OUT+1, OUT+2!, LIST+1*
XQUR OUT+2!, ASK+1*, ASK+2, ASK+3, ASKE+2*, DEED+1, DEED+2, WRITE+6, KILL+2*, KILL+3
, K1, K1+1
XQUSER SHO+1*, SHO+3, SHO+5, KIL!
XQV SHO+2*, SHO+5*, KIL!, SHO1+2*, SHO1+3*, SHO1+4*, SHO1+5*, SHO1+6*, DEED+2*, WRITE+1*
, WRITE+2*, WRITE+3*, WRITE+5*, WRITE+6*
>> XQY OUT+1*, LIST+1, DEED+3*, WRITE+1, WRITE+2, WRITE+5
>> XQY0 OUT+1*, LIST+1, DEED+3*, WRITE+1, WRITE+2, WRITE+3, WRITE+5
Y OUT+2!, RNAM+1, RNAM+2
>> ZTQUEUED SHO1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All