Routine: MAGQBUT1

Information

MAGQBUT1 ;WOIFO/RP/PTW - Utilities for Background ; 23 May 2013 10:50 AM

Package	Total	Call Graph
Imaging	7	($$CWG,$$CWL,$$PLACE)^MAGBAPI (ABSNOCP,VSTNOCP)^MAGFILEB IMAGEDEL^MAGGTID ($$GRP,$$NXTGP)^MAGQBUT $$ABSOK^MAGQBUT1 ($$PLNM,ADDMG,UDMI)^MAGQBUT5 $$UPPER^MAGQE4
VA FileMan	4	$$FIND1^DIC $$GET1^DID (FILE,UPDATE)^DIE ($$GET1,GETS)^DIQ
Kernel	3	($$FMTE,$$NOW)^XLFDT $$KSP^XUPARAM $$PROD^XUPROD
MailMan	1	SENDMSG^XMXAPI

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 12

Package	Total	Caller Graph
Imaging	12	MAGDHOWA MAGGTUX MAGGTUX1 MAGQ ALL SERVER MAGQ FS UPDATE MAGQB QSL MAGQBP ALL SHARES MAGQBTM MAGQBUT MAGQBUT1 MAGQBUT5 MAGQE2

Entry Points

Name	Comments	DBIA/ICR reference
UBPW(WS,ASSIGN)	; screen for duplicate assignments
BPPS(INPUT,WS,PROCESS)	;INPUT TRANSFORM FOR FILE 2006.8
RSQUE(RESULT,IEN,QUEUE)	;[MAGQB RSQUE]
ICCL(SRVRCNT,NMESS,PLACE)	;UPDATE IMAGING DISTRIBUTION
MAILSHR(PLACE,APP,XMSUB)	;Shared Mail server code
ALLSERV(RESULT,GRP)	; BP Queue Processor ; RPC[MAGQ ALL SERVER] used for ServerSize update/display function - reports network resources ; Returns OnLine, network addressed, non-router, place related Magnetic shares ; it returns the share designated as the current Write location in the (0) indice ; it does not screen on READ-ONLY, and the list is group specific ; the function could be replaced by a fileman call from the GUI ; PHYSICAL REFERENCE^CWL or ien^FREE SPACE^TOTAL SPACE^NAME^GROUP^TYPE
ALLSHR(RESULT,TYPE)	; RPC[MAGQBP ALL SHARES] - Used by BP Purge ; screens off-line,read-only,routing share,non-mag,non-place,next group,current group,specific group(s)
FSUPDT(RESULT,IEN,SPACE,SIZE)	; File Server Update ; RPC[MAGQ FS UPDATE] ; Space is field #2 (Total Space)and is actually share size ; Size is field #4 (Free Space)
FSW(IX,SP,SZ)	;
QUEUER(QUE,FROM,TO)	;
MAPI(TYP,PARAM,CNT)	;
ABSOK(IEN)	; Verify that the Full Image Type is a supported by our ABSTRACT method
BPQSL(RESULT,TYPE)	; Called from MAGQUEMAN.PAS and MagSiteParameters.PAS ; RPC[MAGQB QSL]
CWGIC(CWG)	; Current RAID Group integrity check
GMEM(CWG,IEN)	; Update Current RAID Group

External References

Name	Field # of Occurrence
$$FIND1^DIC	UBPW+4, ICCL+17
$$GET1^DID	BPPS+9
FILE^DIE	CWGIC+6
UPDATE^DIE	GMEM+6
$$GET1^DIQ	ALLSERV+35, ALLSERV+36, QUEUER+2, QUEUER+8
GETS^DIQ	ICCL+19
$$CWG^MAGBAPI	ALLSERV+10
$$CWL^MAGBAPI	ALLSERV+12, ALLSHR+6
$$PLACE^MAGBAPI	UBPW+2, BPPS+3, RSQUE+2, ICCL+28, ALLSERV+9, ALLSHR+5, FSUPDT+6, QUEUER+8, QUEUER+11, QUEUER+12 , MAPI+2, BPQSL+3
ABSNOCP^MAGFILEB	QUEUER+17
VSTNOCP^MAGFILEB	QUEUER+16
IMAGEDEL^MAGGTID	QUEUER+18
$$GRP^MAGQBUT	ALLSHR+7
$$NXTGP^MAGQBUT	ALLSHR+8
$$ABSOK^MAGQBUT1	QUEUER+21
$$PLNM^MAGQBUT5	ICCL+6
ADDMG^MAGQBUT5	MAILSHR+4
UDMI^MAGQBUT5	ICCL+29
$$UPPER^MAGQE4	ALLSHR+19
$$FMTE^XLFDT	ICCL+2, FSUPDT+8
$$NOW^XLFDT	ICCL+2, ICCL+28, FSUPDT+8
SENDMSG^XMXAPI	MAILSHR+14
$$KSP^XUPARAM	ICCL+3
$$PROD^XUPROD	MAILSHR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must have a valid User ID (DUZ) to use this function!" Line Location: QUEUER+3
Function Call: WRITE	Prompt: !,"Only JBTOHD, PREFET, ABSTRACT, JUKEBOX, DELETE, EVAL & GCC queues are valid!" Line Location: QUEUER+6
Function Call: WRITE	Prompt: !,"Input values: ""Queue type"",""From Image IEN"",""To Image IEN""" Line Location: QUEUER+7
Function Call: WRITE	Prompt: !,"Image # "_INC Line Location: QUEUER+16
Function Call: WRITE	Prompt: !,"Image # "_INC Line Location: QUEUER+17
Function Call: WRITE	Prompt: !,CNT," TYPE: ",TYP,": ",PARAM_" QUEUE #: ",@("$$"_TYP_"^MAGBAPI(PARAM,PLACE)") Line Location: MAPI+3
Function Call: WRITE	Prompt: !,"Abstract not supported IEN/TYPE: "_IEN_"/"_TYPE Line Location: ABSOK+6
Routine Call	DIC Line Location: UBPW+4 ICCL+17
Routine Call	DIE Line Location: CWGIC+6
Routine Call	DIE Line Location: GMEM+6

Used in RPC

RPC Name	Call Tags
MAGQ FS UPDATE	FSUPDT
MAGQB QSL	BPQSL
MAGQ ALL SERVER	ALLSERV
MAGQBP ALL SHARES	ALLSHR

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^MAG(2005.2 - [#2005.2]	GET1^DIQ
^MAG(2006.1 - [#2006.1]	GET1^DIQ
^MAG(2006.8 - [#2006.8]	FIND1^DIC, GET1^DID
^XMB(3.8 - [#3.8]	FIND1^DIC, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	ALLSERV+7, ALLSHR+3, FSUPDT+5
^MAG(2005 - [#2005]	QUEUER+10, QUEUER+11, QUEUER+13, QUEUER+14, QUEUER+24, ABSOK+2
^MAG(2005.021 - [#2005.021]	ABSOK+4, ABSOK+5, ABSOK+7
^MAG(2005.1 - [#2005.1]	QUEUER+10, QUEUER+12, QUEUER+13, QUEUER+14, QUEUER+24, ABSOK+2
^MAG(2005.2 - [#2005.2]	ALLSERV+23, ALLSERV+24, ALLSHR+9, ALLSHR+10, ALLSHR+15, ALLSHR+16, ALLSHR+17, ALLSHR+18, FSUPDT+9, FSUPDT+10 , FSUPDT+12, FSW+1*, CWGIC+3, CWGIC+4, GMEM+2, GMEM+3
^MAG(2006.1 - [#2006.1]	ICCL+28*
^MAG(2006.8 - [#2006.8]	UBPW+8, UBPW+9, UBPW+10, BPPS+4, BPPS+6, BPPS+8, BPPS+11, BPPS+13, BPPS+14
^MAGQUEUE(2006.03 - [#2006.03]	BPQSL+5, BPQSL+7
^MAGQUEUE(2006.031 - [#2006.031]	RSQUE+3, RSQUE+4, RSQUE+5*, BPQSL+8
^TMP("MAGQ"	ALLSERV+38, FSUPDT+7!, FSUPDT+8*
^TMP("MAGQAS"	ALLSERV+22!, ALLSERV+39, ALLSERV+42
^TMP("XMERR"	MAILSHR+16
^TMP($J	ICCL+4, ICCL+5, ICCL+6, ICCL+7, ICCL+8, ICCL+9, ICCL+10, ICCL+11, ICCL+12, ICCL+13 , ICCL+14, ICCL+15, ICCL+16, ICCL+24, ICCL+25, ICCL+26, MAILSHR+15!
^XMB("TIMEZONE"	ICCL+5

Label References

Name	Line Occurrences
$$GMEM	ALLSERV+33
CWGIC	ALLSERV+11
FSW	FSUPDT+11, FSUPDT+14
MAILSHR	ICCL+27
MAPI	QUEUER+21, QUEUER+25, QUEUER+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APP	MAILSHR~, MAILSHR+15
AR	QUEUER+1~
ARRAY	ICCL+1~, ICCL+30!
ARRAY(	ICCL+21, ICCL+22, ICCL+23
ASSIGN	UBPW~, UBPW+5
CNT	ICCL+1~, ICCL+4, ICCL+5, ICCL+6, ICCL+7, ICCL+8, ICCL+9, ICCL+10, ICCL+11, ICCL+12* , ICCL+13, ICCL+14, ICCL+15, ICCL+16, ICCL+24, ICCL+25, ICCL+26, ALLSERV+8~, ALLSERV+21, ALLSERV+41* , ALLSERV+42, ALLSHR+2~, ALLSHR+4, ALLSHR+27, QUEUER+1~, QUEUER+8, QUEUER+21, QUEUER+25, QUEUER+27, MAPI~ , MAPI+2, MAPI+3, BPQSL+2~, BPQSL+4, BPQSL+10
CP	BPQSL+2~, BPQSL+8*, BPQSL+9
CWG	ALLSERV+8~, ALLSERV+10*, ALLSERV+11, ALLSERV+33, CWGIC~, CWGIC+3, CWGIC+4, CWGIC+5, GMEM~, GMEM+9
CWL	ALLSERV+8~, ALLSERV+12, ALLSERV+37, ALLSHR+2~, ALLSHR+6
DATA	ALLSERV+8~, ALLSERV+24, ALLSERV+25, ALLSERV+26, ALLSERV+27, ALLSERV+28, ALLSERV+29, ALLSERV+34, ALLSHR+2~, ALLSHR+10 , ALLSHR+11, ALLSHR+12, ALLSHR+13, ALLSHR+14, ALLSHR+19
DUP	UBPW+1~, UBPW+6, UBPW+8, UBPW+9, UBPW+14, UBPW+16
DUZ	MAILSHR+3, MAILSHR+6, QUEUER+2
DUZ(2	UBPW+2, BPPS+3, RSQUE+2, ICCL+28, ALLSERV+9, ALLSHR+5, FSUPDT+6, QUEUER+8, MAPI+2, BPQSL+3
FILE	ABSOK+1~, ABSOK+2*, ABSOK+3
FND	BPPS+1~, BPPS+10, BPPS+11, BPPS+16, BPPS+18
FROM	QUEUER~, QUEUER+9
GRP	ALLSERV~, ALLSERV+10, ALLSHR+2~, ALLSHR+7*, ALLSHR+8, ALLSHR+17
GVAL	GMEM+1~, GMEM+2*, GMEM+3, GMEM+5, GMEM+9
IEN	UBPW+1~, UBPW+6, UBPW+9, UBPW+10, BPPS+1~, BPPS+10, BPPS+13, BPPS+14, RSQUE~, RSQUE+5 , ICCL+1~, ICCL+17, ICCL+18, ICCL+19, FSUPDT~, FSUPDT+8, FSUPDT+9, FSUPDT+10, FSUPDT+11, FSUPDT+13 , ABSOK~, ABSOK+2, ABSOK+6, BPQSL+2~, BPQSL+7, BPQSL+9, CWGIC+1~, CWGIC+4*, CWGIC+5, GMEM~ , GMEM+2, GMEM+3, GMEM+5
IFT	ABSOK+1~, ABSOK+4*, ABSOK+5, ABSOK+7
INC	QUEUER+1~, QUEUER+9*, QUEUER+10, QUEUER+11, QUEUER+12, QUEUER+13, QUEUER+14, QUEUER+16, QUEUER+17, QUEUER+18 , QUEUER+21, QUEUER+24, QUEUER+25, QUEUER+27
INDEX	ICCL+1~, ICCL+17, FSUPDT+4~, FSUPDT+12, FSUPDT+13, FSUPDT+14
INDX	ALLSERV+8~, ALLSERV+21, ALLSERV+23, ALLSERV+24, ALLSERV+33, ALLSERV+34, ALLSERV+35, ALLSERV+36, ALLSERV+37, ALLSHR+2~ , ALLSHR+4, ALLSHR+9, ALLSHR+10, ALLSHR+15, ALLSHR+16, ALLSHR+17, ALLSHR+18, ALLSHR+25, ALLSHR+26, ALLSHR+27
INPUT	BPPS~, BPPS+5
INST	QUEUER+1~, QUEUER+8*
IX	FSW~, FSW+1
L1	MAILSHR+8~, MAILSHR+11*
L2	MAILSHR+8~, MAILSHR+9*, MAILSHR+10, MAILSHR+12
L3	MAILSHR+8~, MAILSHR+10*, MAILSHR+13
LOC	ICCL+1~, ICCL+3*, ICCL+4, ICCL+27
>> MAGDUZ	MAILSHR+5
MAGFDA	CWGIC+1~, CWGIC+7!, GMEM+4~, GMEM+7!
MAGFDA(	CWGIC+5, GMEM+5
MAGFILE	QUEUER+1~, QUEUER+16, QUEUER+17, QUEUER+18
MAGX	BPPS+1~
MAGXX	QUEUER+16~, QUEUER+17
MAGY	BPPS+1~
MSG	CWGIC+1~
NAME	ICCL+1~, ICCL+23*, ICCL+24
NG	ALLSHR+2~, ALLSHR+8*, ALLSHR+16
NMESS	ICCL~, ICCL+26
NODE	FSUPDT+4~
PARAM	MAPI~, MAPI+3
PIECE	UBPW+1~, UBPW+5, UBPW+8, UBPW+14, BPPS+1~, BPPS+9, BPPS+16
PLACE	UBPW+1~, UBPW+2, UBPW+3, UBPW+12, BPPS+1~, BPPS+3, BPPS+8, BPPS+11, BPPS+13, RSQUE+1~ , RSQUE+2, RSQUE+3, ICCL~, ICCL+4, ICCL+5, ICCL+6, ICCL+7, ICCL+8, ICCL+9, ICCL+10 , ICCL+11, ICCL+12, ICCL+13, ICCL+14, ICCL+15, ICCL+16, ICCL+24, ICCL+25, ICCL+26, ICCL+27 , ICCL+29, MAILSHR~, MAILSHR+4, MAILSHR+15, ALLSERV+8~, ALLSERV+9, ALLSERV+10, ALLSERV+12, ALLSERV+27, ALLSHR+2~ , ALLSHR+5, ALLSHR+6, ALLSHR+7, ALLSHR+8, ALLSHR+14, FSUPDT+4~, FSUPDT+6, QUEUER+1~, QUEUER+8, QUEUER+11 , QUEUER+12, MAPI+1~, MAPI+2, BPQSL+2~, BPQSL+3*, BPQSL+5, BPQSL+7, BPQSL+8
PROCESS	BPPS~, BPPS+9
PTR	RSQUE+1~, RSQUE+3*, RSQUE+4, RSQUE+5
QUE	QUEUER~, QUEUER+5, QUEUER+15, QUEUER+20, QUEUER+21, QUEUER+23, QUEUER+25, QUEUER+27
QUEUE	RSQUE~, RSQUE+3, RSQUE+4
RESULT	RSQUE~, ALLSERV~, ALLSHR~, FSUPDT~, FSUPDT+9, FSUPDT+16, BPQSL~
RESULT(	ALLSERV+41, ALLSHR+27, BPQSL+10*
RESULT(0	ALLSERV+38*
SHARE	ALLSERV+8~, ALLSERV+29, ALLSERV+30, ALLSERV+31, ALLSERV+32, ALLSERV+34, ALLSHR+2~, ALLSHR+19, ALLSHR+20, ALLSHR+21 , ALLSHR+22, ALLSHR+23
SHNAME	FSUPDT+4~, FSUPDT+10*, FSUPDT+12
SIZE	FSUPDT~, FSUPDT+8, FSUPDT+11, FSUPDT+14
SP	FSW~, FSW+1
SPACE	FSUPDT~, FSUPDT+8, FSUPDT+11, FSUPDT+14
SRVRCNT	ICCL~, ICCL+7, ICCL+8, ICCL+9, ICCL+11, ICCL+13
STATUS	BPQSL+2~, BPQSL+4, BPQSL+5, BPQSL+6, BPQSL+7, BPQSL+10
SUB1	ICCL+1~, ICCL+20, ICCL+21, ICCL+22, ICCL+23
SUB2	ICCL+1~, ICCL+20, ICCL+22, ICCL+23
SZ	FSW~, FSW+1
TMP	ALLSERV+8~, ALLSHR+2~, ALLSHR+29!, QUEUER+1~
TMP(	ALLSERV+32, ALLSHR+22, ALLSHR+23, ALLSHR+26
TO	QUEUER~, QUEUER+9
TYP	MAPI~, MAPI+3
TYPE	ALLSHR~, ALLSHR+4, ALLSHR+16, ALLSHR+17, ALLSHR+18, QUEUER+1~, QUEUER+23, QUEUER+24, QUEUER+25, ABSOK+1~ , ABSOK+3*, ABSOK+4, ABSOK+6, BPQSL~, BPQSL+5, BPQSL+7, BPQSL+8
U	UBPW+8, UBPW+11, UBPW+12, UBPW+13, UBPW+14, BPPS+2, BPPS+4, BPPS+6, ICCL+7, ICCL+8 , ICCL+9, ICCL+11, ICCL+13, ALLSERV+21, ALLSERV+25, ALLSERV+26, ALLSERV+27, ALLSERV+28, ALLSERV+29, ALLSERV+34 , ALLSERV+35, ALLSERV+36, ALLSERV+38, ALLSHR+4*, ALLSHR+11, ALLSHR+12, ALLSHR+13, ALLSHR+14, ALLSHR+15, ALLSHR+16 , ALLSHR+17, ALLSHR+18, ALLSHR+19, FSUPDT+8, FSUPDT+10, FSW+1, QUEUER+11, QUEUER+12, ABSOK+2, ABSOK+5 , ABSOK+7, CWGIC+3, GMEM+2
VALUE	UBPW+1~, UBPW+4, UBPW+8!, ALLSERV+8~, ALLSERV+34, ALLSERV+35, ALLSERV+36, ALLSERV+38, ALLSERV+39, ALLSERV+41 , ALLSERV+42, ALLSHR+2~, CWGIC+1~, CWGIC+2, CWGIC+3*, CWGIC+4
VALUE(1	UBPW+3*
VALUE(2	UBPW+3*
WS	UBPW~, UBPW+3, UBPW+13, BPPS~, BPPS+4, BPPS+6
WSIEN	UBPW+1~, UBPW+4*, UBPW+8
WSNAME	BPPS+1~, BPPS+6*, BPPS+7, BPPS+8, BPPS+12
WSNAME2	BPPS+1~, BPPS+10, BPPS+11, BPPS+12, BPPS+13
X	ALLSERV+7, ALLSHR+3, FSUPDT+4~, FSUPDT+5*
XMERR	MAILSHR+16*!
XMID	MAILSHR+1~, MAILSHR+6*, MAILSHR+7, MAILSHR+14
XMSUB	MAILSHR~, MAILSHR+4, MAILSHR+9, MAILSHR+11, MAILSHR+12, MAILSHR+13, MAILSHR+14
XMTEXT	MAILSHR+1~, MAILSHR+2*, MAILSHR+14
XMY	MAILSHR+1~, MAILSHR+4, MAILSHR+14
XMY(	MAILSHR+3, MAILSHR+5, MAILSHR+7*
XMZ	MAILSHR+1~, MAILSHR+14
Y	ICCL+1~, ICCL+2*, ICCL+5, FSUPDT+4~
ZNODE	UBPW+10, UBPW+11, UBPW+12, UBPW+13, UBPW+14, BPPS+1~, BPPS+14, BPPS+15, BPPS+16

Customize PDF page

Package: Imaging