Routine: MAGQE7

Information

MAGQE7 ;WOIFO/LB - Imaging Utilities to support Monthly Report ; 18 Jan 2011 5:31 PM

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$KSP^XUPARAM
Imaging	2	$$PLACE^MAGBAPI DFNIQ^MAGQBPG1
VA FileMan	1	GETS^DIQ

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

Package	Total	Caller Graph
Imaging	1	MAGLOG

Entry Points

Name	Comments	DBIA/ICR reference
ACXREF(IEN,LAST)	;
INDEX(IEN,LAST)	;
FINDSITE(USER)	;Get the user's site - covered by IA 10060
BUILD	;if sent here there was no acquisition site or user's division is not set
PRINT	;Utility to print the exceptions in setting the AC cross reference in file 2006.95.
STARTPRT	;
HDR	;
LINE	;Display output
RESTART	;
SETXTMP	;
REINDEX	;

External References

Name	Field # of Occurrence
^%ZIS	PRINT+6
^%ZISC	STARTPRT+11
^%ZTLOAD	PRINT+10, REINDEX+12
GETS^DIQ	FINDSITE+6
$$PLACE^MAGBAPI	INDEX+30
DFNIQ^MAGQBPG1	INDEX+37, INDEX+38, INDEX+39, INDEX+40
$$FMADD^XLFDT	SETXTMP+9
$$FMTE^XLFDT	INDEX+2, INDEX+34, SETXTMP+8
$$NOW^XLFDT	INDEX+2, INDEX+34, SETXTMP+8, SETXTMP+9, REINDEX+8
$$KSP^XUPARAM	INDEX+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sorry, the XTMP global has been cleared, nothing to display. Quitting" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Exception list for entries in 2006.95 where an AC cross reference could not be set." Line Location: PRINT+4
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+11
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: !?(IOM-$L(HEADING2)\2),HEADING2 Line Location: HDR+3
Function Call: WRITE	Prompt: !?(IOM-$L(HEADING3)\2),HEADING3 Line Location: HDR+3
Function Call: WRITE	Prompt: !,?10,"___________________________________",! Line Location: HDR+4
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
Function Call: WRITE	Prompt: !,"Nothing to process." Line Location: RESTART+1
Function Call: WRITE	Prompt: !,"Last entry processed was IEN: "_IEN_", and indexing did complete." Line Location: RESTART+4
Function Call: WRITE	Prompt: !,"Re-indexing scheduled TASK#: "_ZTSK Line Location: REINDEX+12
Routine Call	%ZIS Line Location: PRINT+6

FileNo	Call Tags
^VA(200 - [#200]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MAG(2005 - [#2005]	INDEX+20
^MAG(2005.1 - [#2005.1]	INDEX+21
^MAG(2006.1 - [#2006.1]	INDEX+4, INDEX+30, FINDSITE+11, FINDSITE+12
^MAG(2006.95 - [#2006.95]	ACXREF+4!, INDEX+8, INDEX+11, INDEX+12, INDEX+13, INDEX+16, INDEX+28, INDEX+31, INDEX+35, LINE+2 , SETXTMP+12*, REINDEX+2, REINDEX+3, REINDEX+5
^XMTP("MAGQE7"	RESTART+2
^XTMP("MAGQE7"	INDEX+32, BUILD+2, PRINT+3, STARTPRT+8, RESTART+1, RESTART+2, SETXTMP+10*

Label References

Name	Line Occurrences
$$FINDSITE	INDEX+25
BUILD	INDEX+26
HDR	STARTPRT+7, LINE+2
INDEX	ACXREF+4, RESTART+6
LINE	STARTPRT+9
SETXTMP	INDEX+3
STARTPRT	PRINT+7

Naked Globals

Name	Field # of Occurrence
^(100	INDEX+20, INDEX+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRINT+6*!
ANS	STARTPRT+1~, LINE+5*
BEGIN	SETXTMP+8~*, SETXTMP+12
CNT	INDEX+1~, INDEX+6, INDEX+13, INDEX+38
DT	REINDEX+1~, REINDEX+2*, REINDEX+3
DTIME	STARTPRT+2*, LINE+5
DUZ	SETXTMP+10
END	INDEX+1~, INDEX+34, INDEX+35, INDEX+39, REINDEX+1~, REINDEX+5, REINDEX+7
FSITE	FINDSITE+3~, FINDSITE+8, FINDSITE+9
HEADING	STARTPRT+1~, STARTPRT+4*, HDR+2
HEADING2	STARTPRT+1~, STARTPRT+5*, HDR+3
HEADING3	STARTPRT+1~, STARTPRT+6*, HDR+3
I	INDEX+1~, INDEX+10, INDEX+11, INDEX+12, INDEX+13, INDEX+16, INDEX+28, INDEX+31, INDEX+32, FINDSITE+3~ , FINDSITE+8, FINDSITE+9, FINDSITE+11, BUILD+2, STARTPRT+1~, STARTPRT+8, LINE+2, LINE+3
IEN	ACXREF~, ACXREF+4, INDEX~, INDEX+9, INDEX+10, RESTART+2, RESTART+3, RESTART+4, RESTART+6
IMAGE	INDEX+1~, INDEX+14, INDEX+18, INDEX+20, INDEX+21, BUILD+2, STARTPRT+1~, STARTPRT+9, LINE+3
IO	PRINT+7
IO("Q"	PRINT+7, PRINT+11!
IO(0	REINDEX+12
IOF	HDR+1
IOM	HDR+3
IOSL	LINE+2, LINE+4
IOST	LINE+4
J	INDEX+1~, INDEX+12*, INDEX+16, INDEX+31
LAST	ACXREF~, ACXREF+4, INDEX~, INDEX+1~, INDEX+8, INDEX+11, INDEX+32, RESTART+2, RESTART+3, RESTART+6
MAGARR	FINDSITE+3~
MAGARR(	FINDSITE+8, FINDSITE+9, FINDSITE+11
MAGDATE	REINDEX+6~, REINDEX+8, REINDEX+10, REINDEX+11
MAGHR	REINDEX+6~, REINDEX+8*, REINDEX+9
MAGSITE	FINDSITE+3~, FINDSITE+4, FINDSITE+8, FINDSITE+11, FINDSITE+12, FINDSITE+15, FINDSITE+16
MAGTIME	REINDEX+6~, REINDEX+8, REINDEX+9, REINDEX+10
MSG	FINDSITE+3~
MSG("DIERR"	FINDSITE+7
NODE	INDEX+1~, INDEX+13, INDEX+14, STARTPRT+1~, STARTPRT+8, STARTPRT+9
NOTSET	INDEX+1~, INDEX+6, INDEX+38, BUILD+3
PAGE	STARTPRT+1~, STARTPRT+4, HDR+1, HDR+2
PLACE	INDEX+1~, INDEX+4*, INDEX+30, INDEX+37, INDEX+38, INDEX+39, INDEX+40, FINDSITE+15
POP	PRINT+5~, PRINT+6
SITE	INDEX+1~, INDEX+14, INDEX+20, INDEX+21, INDEX+23, INDEX+25, INDEX+26, INDEX+28, INDEX+30, INDEX+31 , FINDSITE+3~, FINDSITE+9, FINDSITE+11, FINDSITE+12
START	INDEX+1~, INDEX+2, INDEX+37, REINDEX+1~, REINDEX+3, REINDEX+4*, REINDEX+7
STOP	STARTPRT+1~, STARTPRT+8, LINE+5
TCNT	INDEX+1~, INDEX+6, INDEX+31, INDEX+38
TYPE	LINE+1~, LINE+2*, LINE+3
U	INDEX+4*, INDEX+12
USER	INDEX+1~, INDEX+14, INDEX+25, FINDSITE~, FINDSITE+5, FINDSITE+6, BUILD+2, STARTPRT+1~, STARTPRT+9, LINE+3
X	SETXTMP+8~, SETXTMP+9*, SETXTMP+10
X2	SETXTMP+8~, SETXTMP+9*, SETXTMP+10
ZTDESC	PRINT+5~, PRINT+9, REINDEX+6~, REINDEX+7
ZTDTH	REINDEX+6~, REINDEX+11*
ZTIO	REINDEX+6~, REINDEX+7*
ZTREQ	STARTPRT+1~, STARTPRT+3*
ZTRTN	PRINT+5~, PRINT+9, REINDEX+6~, REINDEX+7
ZTSK	PRINT+2~, PRINT+5~, PRINT+11, REINDEX+6~, REINDEX+12

Customize PDF page

Package: Imaging