Routine: MAGQBU6A

Information

MAGQBU6A ;WIOFO/RMP Utility to find possible incorrect Image issues with the Import Queue File. ; 14 Oct 2010 10:12 AM

Package	Total	Call Graph
Kernel	7	^%ZIS ^%ZISC $$EC^%ZOSV ^%ZTER ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT ^XUSCLEAN
Imaging	3	$$CWL^MAGBAPI ($$GRP,$$NXTGP,$$SPARM,$$VALRD,FSP,SCWL)^MAGQBUT (PMSG,RSREF)^MAGQBUT6
VA FileMan	2	UPDATE^DIE ^DIK

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

Package	Total	Caller Graph
Imaging	3	MAGIP39B MAGQ DEL NLOC MAGQBUT6

Entry Points

Name	Comments	DBIA/ICR reference
GETRL(LIST)	; Get Redundant List (of shares)
DSPNL	; Display the original Network Location file
REPNAM	;Report residual duplicate names
RLOC(LIST,RESULT)	; Delete Network Location file entry
GRP(GRPIEN,PLACE,RESULT)	;
GRPEN(DUPIEN)	;
RLOCA(RESULT,RLOC)	; Delete Network Location file entry ; [RPC:MAGQ DEL NLOC ]
REQDUP	; Are there duplicate .01 entries? If so rename by adding A,B, etc.
RESTART	;
PRINT	;Print out the entries in files 2005 and 2005.1 whose fields were modified by the redundant share job
STARTPRT	;
HDR	;
LINE	;Display output
ERR	;

External References

Name	Field # of Occurrence
^%ZIS	PRINT+5
^%ZISC	STARTPRT+14
$$EC^%ZOSV	ERR+2
^%ZTER	ERR+3
^%ZTLOAD	PRINT+9
UPDATE^DIE	REQDUP+22
^DIK	RLOC+28, GRPEN+12
$$CWL^MAGBAPI	RLOC+10
$$GRP^MAGQBUT	RLOC+14, GRP+3
$$NXTGP^MAGQBUT	GRP+4
$$SPARM^MAGQBUT	RLOC+13
$$VALRD^MAGQBUT	RLOC+17
FSP^MAGQBUT	RLOC+15
SCWL^MAGQBUT	RLOC+19, GRP+9
PMSG^MAGQBUT6	DSPNL+3, DSPNL+4, DSPNL+5, DSPNL+7, DSPNL+9, REPNAM+11, REPNAM+15, REQDUP+25
RSREF^MAGQBUT6	RESTART+20
$$FMADD^XLFDT	GETRL+41
$$NOW^XLFDT	GETRL+41
^XUSCLEAN	ERR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Nothing to process, global does not exist." Line Location: RESTART+9
Function Call: WRITE	Prompt: !,"No duplicate shares information available." Line Location: RESTART+12
Function Call: WRITE	Prompt: !,"Sorry, the XTMP global has been cleared, nothing to display. Quitting" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Image files 2005, 2005.1 & 2006.035 whose network location was reset as a result of redundant network location entries." Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,$S(+$D(ZTSK):">>> Job has been queued. The task number is "_ZTSK_".",1:">>> Unable to queue this job.") Line Location: PRINT+10
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !?2,HEADING," Page: ",PAGE Line Location: HDR+2
Function Call: WRITE	Prompt: !,?10,"___________________________________",! Line Location: HDR+3
Function Call: WRITE	Prompt: !,"File: "_FILE_" entry: "_IEN_" was modified by changing "_TEXT Line Location: LINE+2
Function Call: WRITE	Prompt: !,"Press RETURN to continue or '^' to exit: " Line Location: LINE+4
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: LINE+5
Routine Call	%ZIS Line Location: PRINT+5
Routine Call	DIE Line Location: REQDUP+22

Used in RPC

RPC Name	Call Tags
MAGQ DEL NLOC	RLOCA

FileNo	Call Tags
^MAG(2005.2 - [#2005.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	RLOC+2
^MAG(2005 - [#2005]	GETRL+8
^MAG(2005.2 - [#2005.2]	GETRL+7, GETRL+8, GETRL+24, GETRL+25, DSPNL+6, DSPNL+7, REPNAM+3, REPNAM+4, REPNAM+5, REPNAM+6 , REPNAM+14, RLOC+7, RLOC+8, RLOC+9, GRP+6, GRP+13, GRP+14*, GRPEN+6, GRPEN+7, GRPEN+8 , GRPEN+9, GRPEN+11, REQDUP+2, REQDUP+3, REQDUP+5, REQDUP+21
^MAG(2006.1 - [#2006.1]	REPNAM+14
^XMTP("MAGP39"	RESTART+9, RESTART+11, RESTART+14, RESTART+15, RESTART+16
^XTMP("MAGP39"	GETRL+42, GETRL+45, REQDUP+23*, RESTART+19, PRINT+2, STARTPRT+7, STARTPRT+8, STARTPRT+9, STARTPRT+10
^XUSEC("MAG SYSTEM"	RLOCA+2

Label References

Name	Line Occurrences
$$GRP	RLOC+9
GRPEN	RLOC+26
HDR	STARTPRT+5, LINE+1
LINE	STARTPRT+10
RLOC	RLOCA+5
STARTPRT	PRINT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRINT+5*!
ANS	STARTPRT+1~, LINE+5*
APP	RLOC+1~, RLOC+18, RLOC+19, GRP+1~, GRP+8, GRP+9
ARRAY	REPNAM+1~, REPNAM+2*, REPNAM+18!, REQDUP+1~, RESTART+8~, RESTART+20
ARRAY(	REPNAM+7, REPNAM+12, REPNAM+13, REQDUP+12, REQDUP+16, REQDUP+18, REQDUP+19, RESTART+16*
ARRAY(""	REPNAM+9
CHAR	REQDUP+1~, REQDUP+19, REQDUP+20, REQDUP+26
CNT	RLOC+12, REQDUP+1~, REQDUP+3, REQDUP+12*
CWL	GRP+1~, GRP+6*, GRP+7, GRP+9
DA	RLOC+1~, RLOC+6, RLOC+7, RLOC+8, RLOC+9, RLOC+10, RLOC+15, RLOC+26, RLOC+29!, GRPEN+4~ , GRPEN+10~, GRPEN+11, GRPEN+12!
DA(1	GRPEN+12*
DATA	DSPNL+1~
DIK	RLOC+1~, RLOC+27, RLOC+29!, GRPEN+4~, GRPEN+10~, GRPEN+12!
DSITE	REPNAM+1~, REPNAM+6*
DTIME	STARTPRT+3*, LINE+5
DUPIEN	GRPEN~, GRPEN+5, GRPEN+9, GRPEN+11
DUZ	RLOC+19, GRP+9, RLOCA+2
EN	GETRL+22, GETRL+23, GETRL+25, GETRL+29, GETRL+31, GETRL+32, GETRL+33, GETRL+34, GETRL+36, GETRL+37 , DSPNL+1~, DSPNL+2, DSPNL+6, DSPNL+7, REPNAM+1~, REPNAM+4, REPNAM+5, REPNAM+7, REPNAM+13, REPNAM+14 , REPNAM+15, RLOC+1~, RLOC+4, RLOC+5, RLOC+6
EN1	REPNAM+1~, REPNAM+4, REPNAM+5, REPNAM+6, REPNAM+7
ENTRY	GETRL+40~, GETRL+44, GETRL+45, RESTART+8~, RESTART+14, RESTART+15, RESTART+16, RESTART+19*, RESTART+20
ERRXX	ERR+1~, ERR+2*
FDA	REQDUP+22~
FDA(	REQDUP+22*
FIELD	STARTPRT+1~, STARTPRT+9*, STARTPRT+10
FILE	STARTPRT+1~, STARTPRT+6, STARTPRT+7, STARTPRT+8, STARTPRT+9, STARTPRT+10, LINE+2
GROUP	GRP+1~, GRP+4*, GRP+5, GRP+6, GRP+9
GRP	RLOC+11~, RLOC+14*, RLOC+15, RLOC+17, RLOC+19
GRPIEN	GRP~, GRP+3, GRP+4, GRP+5, GRP+13
HASH	GETRL+1~, GETRL+9*, GETRL+11, GETRL+12, GETRL+14
HEADING	STARTPRT+1~, STARTPRT+4*, HDR+2
IEN	GETRL+1~, GETRL+7, GETRL+8, GETRL+12, GETRL+14, GETRL+23, GETRL+24, GETRL+25, RLOC+11~, RLOC+12* , RLOC+15, RLOC+16, RLOC+17, RLOC+19, RLOC+20, RLOC+22, REQDUP+1~, REQDUP+3, REQDUP+5, REQDUP+12 , REQDUP+18, REQDUP+19, REQDUP+21, REQDUP+22, REQDUP+23, STARTPRT+1~, STARTPRT+8*, STARTPRT+9, STARTPRT+10, LINE+2
ILIST	GETRL+40~, GETRL+44*, GETRL+45
INDX	GRP+12~, GRP+13*, GRP+14
IO	PRINT+6
IO("Q"	PRINT+6, PRINT+10!
IOF	HDR+1
IOSL	LINE+1, LINE+3
IOST	LINE+3
LIST	GETRL~, GETRL+5!, RLOC~
LIST(	GETRL+11, GETRL+12, GETRL+14, GETRL+16, GETRL+17!, GETRL+22, GETRL+23, GETRL+31, GETRL+32, GETRL+36 , GETRL+37*, GETRL+43, GETRL+44, RLOC+4, RLOC+5, RLOC+6
LST	RLOCA+3~, RLOCA+5, RLOCA+7!
LST(1	RLOCA+4*
MAGIEN	GRPEN+4~, GRPEN+8*, GRPEN+9, GRPEN+11, GRPEN+12
MIN	RLOC+11~, RLOC+13*, RLOC+15
MSG	REQDUP+1~, REQDUP+24*, REQDUP+25
NAME	REQDUP+1~, REQDUP+2, REQDUP+3, REQDUP+9, REQDUP+11, REQDUP+12, REQDUP+16, REQDUP+17, REQDUP+18, REQDUP+19 , REQDUP+20, REQDUP+23, REQDUP+24
NEW	GETRL+21~
NEW(	GETRL+25, GETRL+29, GETRL+31, GETRL+32, GETRL+33, GETRL+34, GETRL+37
NME	REQDUP+1~
NME(	REQDUP+11*, REQDUP+17
NNAME	REQDUP+1~, REQDUP+20, REQDUP+22, REQDUP+23, REQDUP+24, REQDUP+26
NODE	GETRL+1~, GETRL+8, GETRL+9, REQDUP+1~, REQDUP+5, REQDUP+6
NODE2	GETRL+1~, GETRL+8*
NODE3	GETRL+1~, GETRL+8*
OLD	GETRL+21~, GETRL+31*, GETRL+34
ON	GETRL+21~, GETRL+23, GETRL+24, GETRL+25*
ONLINE	DSPNL+1~
PAGE	STARTPRT+1~, STARTPRT+4, HDR+1, HDR+2
PATH	GETRL+1~, GETRL+9, GETRL+11, GETRL+12, GETRL+14, GETRL+16, GETRL+17, GETRL+43*, GETRL+44, GETRL+45
PC	GETRL+21~, GETRL+23, GETRL+24, GETRL+25, RLOC+1~, RLOC+5, RLOC+6
PLACE	GETRL+1~, GETRL+9, GETRL+11, GETRL+12, GETRL+14, RLOC+1~, RLOC+7, RLOC+9, RLOC+10, RLOC+14 , RLOC+15, RLOC+17, RLOC+19, GRP~, GRP+3, GRP+4, GRP+9
POP	PRINT+4~, PRINT+5
PRIME	GETRL+21~, GETRL+31*, GETRL+33
PSITE	REPNAM+1~, REPNAM+4*, REPNAM+6
RES	GRP+1~, GRP+2, GRP+5, GRP+7, GRP+11, GRP+17, RLOCA+3~, RLOCA+4, RLOCA+5, RLOCA+6
RESULT	RLOC~, RLOC+3, RLOC+8, RLOC+9, RLOC+20, RLOC+22, RLOC+23, RLOC+25, GRP~, GRP+5 , GRP+7, RLOCA~, RLOCA+6
RLOC	RLOCA~, RLOCA+4
ROUTE	REQDUP+1~, REQDUP+6*, REQDUP+8
ROUTER	DSPNL+1~
SHAREDIR	RESTART+8~, RESTART+15*, RESTART+16
SITE	REPNAM+14, REPNAM+15, GRPEN+4~, GRPEN+6, GRPEN+7, GRPEN+8, REQDUP+1~, REQDUP+5, REQDUP+11, REQDUP+12 , REQDUP+16, REQDUP+17, REQDUP+18, REQDUP+19
SIZE	RLOC+11~, RLOC+12*, RLOC+15
SPACE	RLOC+11~, RLOC+12*, RLOC+15
STOP	STARTPRT+1~, STARTPRT+6, STARTPRT+7, STARTPRT+8, STARTPRT+9, LINE+5
TEXT	STARTPRT+1~, STARTPRT+10*, LINE+2
TMP	REPNAM+1~, REPNAM+2, REPNAM+3, REPNAM+4, REPNAM+5, REPNAM+7, REPNAM+10, REPNAM+12, REPNAM+13, REPNAM+15
TSIZE	RLOC+11~, RLOC+12*, RLOC+15
TSPACE	RLOC+11~, RLOC+12*, RLOC+15
TYPE	GETRL+1~, GETRL+9, GETRL+10, REQDUP+1~, REQDUP+5, REQDUP+10
U	GETRL+6*, GETRL+9, GETRL+11, GETRL+12, GETRL+14, GETRL+23, GETRL+24, GETRL+25, GETRL+31, GETRL+33 , GETRL+34, REPNAM+4, REPNAM+6, REPNAM+14, RLOC+5, RLOC+6, RLOC+7, RLOC+9, RLOC+25, GRP+14 , RLOCA+4, REQDUP+23
X	GETRL+40~, GETRL+41, GETRL+42, RLOC+2
X2	GETRL+40~, GETRL+41*, GETRL+42
ZTDESC	PRINT+4~, PRINT+8*
ZTREQ	STARTPRT+1~, STARTPRT+2*
ZTRTN	PRINT+4~, PRINT+8*
ZTSK	PRINT+4~, PRINT+10

Customize PDF page

Package: Imaging