Routine: XQSMD4

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

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

Customize PDF page

Package: Kernel

Routine: XQSMD4

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: