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

Package: Kernel

Routine: XQT3


Information

XQT3 ;SEA/MJM Create menu templates (cont.);11/20/89 11:12 AM ;01/09/2001 13:33 [ 04/02/2003 8:29 AM ]

Source Information

Source file <XQT3.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 $$UP^XLFSTR  EN^XQH  EN^XQT2  
VA Fileman 3 FILE^DICN  ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 XQT2  

Entry Points

Name Comments DBIA/ICR reference
RPT ;Set the default for repeating the template
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.
FIL ;File this template in the New Person File
O1
OUT ;Clean up, restore XQY and quit

External References

Name Field # of Occurrence
FILE^DICN FIL+5
^DIE FIL+8
^DIK FIL+4
$$UP^XLFSTR NAM+7
EN^XQH NAM+2, RPT+3
EN^XQT2 STORE+4, STORE+8

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
  • Timeout: DTIME
  • Variable: %
  • 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
  • Timeout: DTIME
  • Variable: %
  • 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
  • Timeout: DTIME
  • Variable: XQUR
  • Line Location: NAM+1
Function Call: READ
  • Timeout: DTIME
  • Variable: XQUR
  • 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
  • Timeout: DTIME
  • Variable: %
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !!,?5,"Please answer Yes or No."
  • Line Location: RPT+2
Function Call: READ
  • Timeout: 30
  • Variable: %
  • 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
Routine Call
  • DIE
  • Line Location:
    • FIL+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] FIL+3, FIL+4, FIL+5, FIL+6
^XUTL("XQ" OUT+3

Label References

Name Line Occurrences
NAM NAM+2, NAM+3, NAM+4, NAM+5, NAM+6, FIL+4
O1 STORE+4, STORE+8
OUT STORE+3, STORE+7, NAM+1, NAM+3, RPT+1, FIL+4
RPT RPT+3
STORE STORE+3, STORE+7

Naked Globals

Name Field # of Occurrence
^( FIL+4, OUT+3
^(0 FIL+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% STORE+3*, STORE+4, STORE+7*, STORE+8, RPT+1*, RPT+2, RPT+3, RPT+4, FIL+4*, O1!
D0 O1!
DA FIL+1!, FIL+2*, FIL+4*, FIL+6*, O1!
DA(1 FIL+2*
DI O1!
DIC FIL+1!, FIL+2*, FIL+4, FIL+7, O1!
DIC(0 FIL+2*
DIE FIL+1!, FIL+7*
>> DIK FIL+4*
DQ O1!
DR FIL+1!, FIL+8*, O1!
DTIME STORE+3, STORE+7, NAM+1, NAM+3, RPT+1
DUZ FIL+2, FIL+3, FIL+4, FIL+5, FIL+6
IOF STORE+1, STORE+5
U STORE+2, STORE+3, STORE+6, STORE+7, NAM+1, NAM+3, RPT+1, RPT+8, RPT+9, FIL+2*
, FIL+4, OUT+2, OUT+3
>> X FIL+2*, FIL+4*, FIL+5, FIL+6
XQA O1!
XQAA O1!
>> XQDIC OUT+2*, OUT+3*
XQDR O1!
XQDR( RPT+9*, FIL+8
XQDR(0 RPT+8*
XQFLAG O1+1!
XQFLG O1+1!
XQH NAM+2*, RPT+3*, O1!
XQH1 O1!
XQH2 O1!
XQI STORE+2*, STORE+6*, RPT+9*, FIL+8*, O1!
XQJ RPT+8*, RPT+9*, FIL+8, O1!
XQK O1!
XQL O1+1!
XQLIST O1!
XQLIST( STORE+2, STORE+6, RPT+9
XQLK O1!
XQLN O1+1!
XQN STORE+2*, STORE+6*, O1!
XQNM O1!
XQOO O1!
XQOPN RPT+9, O1!
XQRD O1!
XQRL O1!
XQSAV O1!
XQSAVE O1+1!
XQSN O1!
XQT O1+1!
XQT1 O1+1!
XQTF O1!
XQTF1 O1!
XQTM O1!
XQTRPT RPT+4*, RPT+8, O1!
XQTSAV O1+1!
XQTSV OUT+2, OUT+3, OUT+4!
XQTT O1!
XQTXT O1!
XQUP NAM+7*, NAM+8, O1+1!
XQUR NAM+1*, NAM+2*, NAM+3*, NAM+4, NAM+5, NAM+6*, NAM+7, NAM+8*, NAM+9, RPT+1
, FIL+2, FIL+4, O1!
XQX O1+1!
>> XQY OUT+2*, OUT+3*
>> XQY0 OUT+2*, OUT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All