Routine: XMJBU

Information

XMJBU ;ISC-SF/GMB-Basket utilities ;04/06/2002 08:56

Source file <XMJBU.m>

Package	Total	Call Graph
VA Fileman	4	$$EZBLD^DIALOG (,$$FIND1)^DIC FILE^DIE ^DIR
MailMan	1	$$BMSGCT^XMXUTIL

Package	Total	Caller Graph
MailMan	12	XMJBL XMJBM XMJBN XMJMF2 XMJMLR XMJMOI XMJMOR XMJMORX XMJMSO XMVGROUP XMVVITA XMXADDR1

Name	Comments	DBIA/ICR reference
NAMEBSKT(XMDUZ,XMK,XMKN)	; Rename an existing basket (Replaces REN^XMA11) ; XMK (in) basket number ; XMKN (in/out) basket name
SELBSKT(XMDUZ,XMPROMPT,XMLAYGO,XMDIC,XMK,XMKN)	; Select a basket (Replaces S^XMA1B) ; XMPROMPT (in) Verbage for prompt ; XMLAYGO (in) "L" - the user may create a new basket ; "" - the user may not create a new basket ; XMK (out) basket number (=^ if user up-arrows out) ; XMKN (out) basket name
CHKXMKN(X)	; Input transform for file 3.7 (3.701,.01 BASKET)

Name	Field # of Occurrence
$$EZBLD^DIALOG	SELBSKT+16, SELBSKT+20, SELBSKT+21, NAMEBSKT+5, NAMEBSKT+8, NAMEBSKT+13, NAMEBSKT+17
^DIC	SELBSKT+24
$$FIND1^DIC	NAMEBSKT+15
FILE^DIE	NAMEBSKT+21
^DIR	NAMEBSKT+11
$$BMSGCT^XMXUTIL	SELBSKT+20

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$EZBLD^DIALOG(34044,$$EZBLD^DIALOG(37005)) Line Location: SELBSKT+21
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(37201.1) Line Location: NAMEBSKT+5
Function Call: WRITE	Prompt: !,$C(7),$$EZBLD^DIALOG(34048.9) Line Location: NAMEBSKT+17
Routine Call	DIC Line Location: SELBSKT+24
Routine Call	DIALOG Line Location: SELBSKT+16 SELBSKT+20 SELBSKT+21 NAMEBSKT+5 NAMEBSKT+8 NAMEBSKT+13 NAMEBSKT+17
Routine Call	DIE Line Location: NAMEBSKT+21
Routine Call	DIR Line Location: NAMEBSKT+11
Routine Call	DIC Line Location: NAMEBSKT+15

Name	Field # of Occurrence
DA	SELBSKT+6~
DA(1	SELBSKT+14*
DIC	SELBSKT+6~, SELBSKT+13*
DIC("A"	SELBSKT+16*
DIC("B"	SELBSKT+19, SELBSKT+20
DIC("S"	SELBSKT+22*
DIC("W"	SELBSKT+23*
DIC(0	SELBSKT+15*
DINUM	SELBSKT+6~, SELBSKT+9*, SELBSKT+11
DIR	NAMEBSKT+3~
DIR("A"	NAMEBSKT+8*
DIR("B"	NAMEBSKT+9*
DIR(0	NAMEBSKT+10*
>> DIRUT	NAMEBSKT+11
DUZ	CHKXMKN+1
U	SELBSKT+24, SELBSKT+25, SELBSKT+26
X	SELBSKT+6~, CHKXMKN~, CHKXMKN+1*, CHKXMKN+2!, NAMEBSKT+3~, NAMEBSKT+11, NAMEBSKT+12, NAMEBSKT+14!, NAMEBSKT+15, NAMEBSKT+18! , NAMEBSKT+19
XMDIC	SELBSKT~
XMDIC("B"	SELBSKT+18, SELBSKT+19
XMDIC("S"	SELBSKT+22
XMDIC("W"	SELBSKT+23
XMDUZ	SELBSKT~, SELBSKT+9, SELBSKT+11, SELBSKT+13, SELBSKT+14, SELBSKT+20, CHKXMKN+1, NAMEBSKT~, NAMEBSKT+4, NAMEBSKT+15 , NAMEBSKT+20
XMFDA	NAMEBSKT+3~
XMFDA(	NAMEBSKT+20*
XMK	SELBSKT~, SELBSKT+24, SELBSKT+25, NAMEBSKT~, NAMEBSKT+4, NAMEBSKT+16, NAMEBSKT+20
XMKN	SELBSKT~, SELBSKT+26, NAMEBSKT~, NAMEBSKT+9, NAMEBSKT+12, NAMEBSKT+19, NAMEBSKT+20
XMKX	NAMEBSKT+3~, NAMEBSKT+15*, NAMEBSKT+16
XMLAYGO	SELBSKT~, SELBSKT+7, SELBSKT+11*, SELBSKT+15
XMPROMPT	SELBSKT~, SELBSKT+16
Y	SELBSKT+6~, SELBSKT+24, SELBSKT+25, SELBSKT+26