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

Package: Kernel

Routine: XQSMD4


Information

XQSMD4 ; SEA/MJM,JLI - Edit a user's options ;01/25/2008

Source Information

Source file <XQSMD4.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 ^DIC  ^DIE  ^DIK  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 XQSMDFM  

Entry Points

Name Comments DBIA/ICR reference
NEW(XQOPT) ;
SHOWITEM ;
OLD(XQOPT) ;
CHKNAME ;
NODEL(XQOPT) ; called by ^XQSMDFM, too
EDIT(XQOPT) ;
ASKOPT(XQOPT,XQTYPE) ;
NAMESP(XQNMSP) ; Check for available namespaces. Called by ^XQSMDFM, too.
BUILD ;
HLPNAME ;
DELETE(XQOPT) ; called by ^XQSMDFM, too
ASKNAME(XQOPNM,XQNMSP,XQTYPE)
TYPE(XQT) ;
ADDFIND(X,XQOPT) ;

External References

Name Field # of Occurrence
^DIC ADDFIND+3, NEW+3, EDIT+11, EDIT+27
^DIE NEW+2, EDIT+30
^DIK EDIT+16, DELETE+3, DELETE+8, DELETE+10, DELETE+12, DELETE+13
^DIR ASKNAME+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?7,$C(7),"You haven't been delegated any options with which to build a menu."
  • Line Location: BUILD+2
Function Call: WRITE
  • Prompt: !,$C(7),"This option already exists but is not a MENU."
  • Line Location: OLD+1
Function Call: WRITE
  • Prompt: !,$C(7),"This option already exists but is not included in your delegated options.",!,"Choose another option name or get this option delegated to yourself."
  • Line Location: OLD+2
Function Call: WRITE
  • Prompt: !!,"You may only include options that have been delegated as items to you.",!
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !,$C(7),"Menu item ",XQITEM("NAME")," deleted from menu."
  • Line Location: EDIT+17
Function Call: WRITE
  • Prompt: !,"This menu contains no menu items."
  • Line Location: EDIT+19
Function Call: WRITE
  • Prompt: !,"It will be deleted if you don't add a menu item."
  • Line Location: EDIT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+27
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+31
Function Call: WRITE
  • Prompt: !,"These users now have a Primary Menu with no menu items!",$C(7)
  • Line Location: EDIT+35
Function Call: WRITE
  • Prompt: !,"Recommend you add some menu items to it."
  • Line Location: EDIT+36
Function Call: WRITE
  • Prompt: !!?7,$C(7),"Empty menu removed from option file and your delegated options.",!
  • Line Location: EDIT+38
Function Call: WRITE
  • Prompt: !,"This menu contains the following menu items. You may add a new menu item."
  • Line Location: SHOWITEM+2
Function Call: WRITE
  • Prompt: !,"If you select an existing menu item, it will be deleted from the menu.",!
  • Line Location: SHOWITEM+3
Function Call: WRITE
  • Prompt: !,?3,$P(XQREC0,U),?40,$P(XQREC,U,2),?46,$P(XQREC0,U,2)
  • Line Location: SHOWITEM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWITEM+8
Function Call: WRITE
  • Prompt: !!,"This option is used as a Primary Menu for:"
  • Line Location: NODEL+2
Function Call: WRITE
  • Prompt: !?10,$P(^VA(200,I,0),U)
  • Line Location: NODEL+4
Function Call: WRITE
  • Prompt: !,"Can't delete it while it is used as a primary menu."
  • Line Location: NODEL+5
Function Call: WRITE
  • Prompt: !!?7,$C(7),"No namespace(s) have been set up for you to build new menus.",!?7,"Contact your computer service representative."
  • Line Location: NAMESP+6
Function Call: WRITE
  • Prompt: !?7,"The options you build or edit must begin with ",$S(XQNMSP>1:"one of ",1:""),!?7,"the following namespace",$S(XQNMSP>1:"(s)",1:"")," and be no more than 30 characters long:",!
  • Line Location: HLPNAME+2
Function Call: WRITE
  • Prompt: !?35,$S($E(I,1)="A":I,1:I_"Z")
  • Line Location: HLPNAME+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HLPNAME+5
Function Call: WRITE
  • Prompt: !?7,"You have no existing delegated "_$$TYPE(XQTYPE)_" options. You may enter a new one."
  • Line Location: HLPNAME+12
Function Call: WRITE
  • Prompt: !,"The following are your existing delegated "_$$TYPE(XQTYPE)_" options:"
  • Line Location: HLPNAME+13
Function Call: WRITE
  • Prompt: !,I,?40,XQM(I)
  • Line Location: HLPNAME+14
Function Call: WRITE
  • Prompt: $C(7),!!?7,$E(X,1,4),"* is not a valid namespace for you.",!
  • Line Location: CHKNAME+7
Routine Call
  • DIE
  • Line Location:
    • NEW+2
    • EDIT+30
Routine Call
  • DIC
  • Line Location:
    • ADDFIND+3
    • NEW+3
    • EDIT+11
    • EDIT+27
Routine Call
  • DIR
  • Line Location:
    • ASKNAME+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] OLD+1, EDIT+6, EDIT+14, EDIT+16, EDIT+18, EDIT+32, SHOWITEM+5, SHOWITEM+6, DELETE+8, HLPNAME+10
^VA(200 - [#200] BUILD+2, OLD+2, EDIT+33, NODEL+4, DELETE+10, DELETE+12, NAMESP+3, NAMESP+5, HLPNAME+9

Label References

Name Line Occurrences
$$TYPE HLPNAME+12, HLPNAME+13
ADDFIND ASKOPT+3
ASKNAME ASKOPT+2
ASKOPT BUILD+4
DELETE EDIT+37
EDIT NEW+4, OLD+3
HLPNAME NAMESP+4
NAMESP BUILD+3
NEW BUILD+5
NODEL EDIT+34
OLD BUILD+6
SHOWITEM EDIT+6

Naked Globals

Name Field # of Occurrence
^( SHOWITEM+5, DELETE+8, DELETE+10, DELETE+12
^(19.6 NAMESP+5!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 EDIT+22~, EDIT+25*
DA NEW+1~, NEW+2*, EDIT+15~, EDIT+16*, EDIT+22~, EDIT+28~, EDIT+30*, DELETE+1~, DELETE+3*, DELETE+8*
, DELETE+10*, DELETE+12*, DELETE+13*
DA(1 NEW+3*, EDIT+16*, EDIT+25*, EDIT+30*, DELETE+3*, DELETE+8*, DELETE+10*, DELETE+12*
DIC ADDFIND+1~, ADDFIND+2*, NEW+1~, NEW+3*, EDIT+5~, EDIT+10*, EDIT+22~, EDIT+26*, EDIT+30
DIC("A" EDIT+7*
DIC("S" EDIT+8*
DIC(0 ADDFIND+2*, NEW+3*, EDIT+9*, EDIT+24*
DIE NEW+1~, NEW+2*, EDIT+28~, EDIT+30*
DIK EDIT+15~, EDIT+16*, DELETE+1~, DELETE+3*, DELETE+8*, DELETE+10*, DELETE+12*, DELETE+13*
DIR ASKNAME+4~
DIR("?" ASKNAME+7*
DIR("A" ASKNAME+5*
DIR("PRE" ASKNAME+6*
DIR(0 ASKNAME+8*
>> DIRUT ASKNAME+3, ASKNAME+9
DLAYGO ADDFIND+1~, ADDFIND+2*, NEW+1~, NEW+3*, EDIT+22~, EDIT+25*
DR NEW+1~, NEW+2*, EDIT+28~, EDIT+29*
>> DTOUT CHKNAME+1
DUZ BUILD+2, NEW+3, OLD+2, DELETE+3, NAMESP+3, NAMESP+5, HLPNAME+9
I SHOWITEM+1~, SHOWITEM+4*, SHOWITEM+5*, NODEL+1~, NODEL+3*, NODEL+4*, NAMESP+1~, NAMESP+2*, NAMESP+3*, HLPNAME+1~
, HLPNAME+3*, HLPNAME+4*, HLPNAME+7~, HLPNAME+8*, HLPNAME+9*, HLPNAME+10, HLPNAME+14*, CHKNAME+3~, CHKNAME+4*, CHKNAME+5*
, CHKNAME+6
U ADDFIND+4, ADDFIND+6, OLD+1, SHOWITEM+7, NODEL+4, HLPNAME+6, HLPNAME+10, HLPNAME+11, CHKNAME+1, CHKNAME+2
X ADDFIND~, NEW+1~, NEW+3*, EDIT+5~, EDIT+22~, EDIT+23*, ASKNAME+4~, CHKNAME+1, CHKNAME+2*, CHKNAME+5
, CHKNAME+7, CHKNAME+8!
XQITEM EDIT+5~
XQITEM("IEN" EDIT+12*, EDIT+14, EDIT+16
XQITEM("NAME" EDIT+13*, EDIT+17, EDIT+23
XQITEMNM EDIT+5~
XQJ DELETE+5~, DELETE+6*, DELETE+8*, DELETE+10*, DELETE+12*
XQM HLPNAME+7~, HLPNAME+12
XQM( HLPNAME+11*, HLPNAME+14
XQNMSP BUILD+1~, BUILD+3, ASKOPT+2, NAMESP~, NAMESP+3*, NAMESP+4, HLPNAME+2, ASKNAME~
XQNMSP( NAMESP+3*, HLPNAME+4, CHKNAME+5
XQOPNM ASKOPT+1~, ASKOPT+2, ASKOPT+3, ASKNAME~, ASKNAME+3, ASKNAME+10*
XQOPT BUILD+1~, BUILD+4, BUILD+5, BUILD+6, ASKOPT~, ASKOPT+3, ADDFIND~, NEW~, NEW+4, OLD~
, OLD+3, EDIT~, EDIT+34, EDIT+37, NODEL~, DELETE~
XQOPT("IEN" ADDFIND+5*, NEW+2, OLD+1, OLD+2, EDIT+6, EDIT+8, EDIT+14, EDIT+16, EDIT+18, EDIT+25
, EDIT+26, EDIT+30, EDIT+32, EDIT+33, SHOWITEM+5, NODEL+4, DELETE+3, DELETE+8, DELETE+10, DELETE+12
, DELETE+13
XQOPT("NAME" ADDFIND+4*, NEW+3
XQOPT("NEW" BUILD+5, ADDFIND+6*, EDIT+33, DELETE+2
XQOUT EDIT+1~, EDIT+3*, EDIT+4, EDIT+11*
XQREC SHOWITEM+1~, SHOWITEM+5*, SHOWITEM+6, SHOWITEM+7, HLPNAME+7~, HLPNAME+10*, HLPNAME+11
XQREC0 SHOWITEM+1~, SHOWITEM+6*, SHOWITEM+7
XQT TYPE~, TYPE+1
XQTYPE ASKOPT~, ASKOPT+2, HLPNAME+6, HLPNAME+10, HLPNAME+12, HLPNAME+13, ASKNAME~
Y ADDFIND+1~, ADDFIND+3, ADDFIND+4, ADDFIND+5, ADDFIND+6, NEW+1~, NEW+3, EDIT+5~, EDIT+11, EDIT+12
, EDIT+22~, EDIT+27, EDIT+30, ASKNAME+4~, ASKNAME+10
Y(0 EDIT+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All