Routine: XDRDPRE1

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$HDIFF)^XLFDT
Toolkit	2	$$FILE^XDRDPICK ^XDRDPREL
VA Fileman	2	EN^DIQ1 ^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$HDIFF)^XLFDT

Toolkit

$$FILE^XDRDPICK ^XDRDPREL

VA Fileman

EN^DIQ1 ^DIR

Name	Comments	DBIA/ICR reference
EN	;
HEADER	;
EXIT	;
DQ	;
SELECT	;
SIZE	;

Name	Field # of Occurrence
^%ZIS	EN+12
^%ZISC	DQ+24
^%ZTLOAD	EN+13
EN^DIQ1	DQ+15, SIZE+6
^DIR	DQ+10, SELECT+6
$$FILE^XDRDPICK	EN+1
^XDRDPREL	EN+9
$$FMTE^XLFDT	DQ+22
$$HDIFF^XLFDT	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There appears to be a job already running. You may either" Line Location: EN+5
Function Call: WRITE	Prompt: !,"view those data or check back in about 5 minutes.",!! Line Location: EN+6
Function Call: WRITE	Prompt: !!,$C(7),"There is no available data to generate a list from. You will need to accumulate",!,"the data.",!! Line Location: EN+8
Function Call: WRITE	Prompt: @IOF Line Location: DQ+1
Function Call: WRITE	Prompt: @IOF,!! Line Location: DQ+9
Function Call: WRITE	Prompt: ! Line Location: DQ+10
Function Call: WRITE	Prompt: !,$J(XDRDA,10) Line Location: DQ+11
Function Call: WRITE	Prompt: " ",$E(X,1,28),?40 Line Location: DQ+18
Function Call: WRITE	Prompt: $J(X,N) Line Location: DQ+22
Function Call: WRITE	Prompt: $J(X,N) Line Location: DQ+23
Function Call: WRITE	Prompt: "LISTING OF ENTRIES IN FILE ",XDRFL," WITH IDENTIFIER OR OTHER PROBLEMS" Line Location: HEADER+1
Function Call: WRITE	Prompt: ?10,"SELECTED LISTING: ",XDRSELEC Line Location: HEADER+2
Function Call: WRITE	Prompt: !!!,"DATA LISTED ACROSS THE PAGE IN THE FOLLOWING ORDER:",!!,"INTERNAL ENTRY NUMBER" Line Location: HEADER+3
Function Call: WRITE	Prompt: !! Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$P(^DD(XDRFL,I,0),U) Line Location: HEADER+5
Function Call: WRITE	Prompt: !!,"XXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXX",?40 Line Location: HEADER+6
Function Call: WRITE	Prompt: $J(X,NSIZE(I)+2) Line Location: HEADER+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+11
Function Call: WRITE	Prompt: !!,"Enter the number of the desired list to output:",! Line Location: SELECT+4
Function Call: WRITE	Prompt: !,$J(I,2)," ",XDRX(I) Line Location: SELECT+5
Function Call: WRITE	Prompt: !! Line Location: SELECT+6
Routine Call	DIR Line Location: DQ+10 SELECT+6
Routine Call	%ZIS Line Location: EN+12

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DQ+5, DQ+20, HEADER+5, HEADER+8
^DIC - [#1]	EN+1, DQ+3
^XTMP("XDRDPREL"	EN+2, EN+3, EN+4, SELECT+3

Name	Line Occurrences
EXIT	EN+1
HEADER	DQ+7
SELECT	EN+11
SIZE	DQ+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+12*
DA	DQ+14, SIZE+1~, SIZE+5
DIC	DQ+14, SIZE+1~, SIZE+5
DIQ	DQ+14, SIZE+1~, SIZE+5
DIQ(0	DQ+14, SIZE+5
DIR	SELECT+1~
DIR("A"	SELECT+6*
DIR(0	DQ+10, SELECT+6
>> DIRUT	DQ+8, DQ+9
DR	DQ+13, SIZE+1~, SIZE+4
I	DQ+19, DQ+20, DQ+21, DQ+23, SIZE+1~, SIZE+7, SIZE+8, HEADER+5, HEADER+7, HEADER+8 , HEADER+9, HEADER+10, SELECT+1~, SELECT+5*
IO	DQ+1
IO("Q"	EN+13
IOF	DQ+1, DQ+9
ION	EN+13
IOSL	DQ+9
IOST	DQ+9
L	SIZE+1~, SIZE+8*
N	DQ+22, DQ+23, SELECT+1~, SELECT+3*
NC	SIZE+1~, SIZE+2, SIZE+3, SELECT+1~, SELECT+2, SELECT+3, SELECT+6
>> NSIZE(	DQ+23, SIZE+8, HEADER+5, HEADER+7, HEADER+8, HEADER+9, HEADER+10
>> POP	EN+12
U	EN+1, DQ+20, HEADER+5, HEADER+8
>> X	DQ+16, DQ+17, DQ+18, DQ+21, DQ+22, DQ+23, HEADER+8, HEADER+9, HEADER+10
XDRDA	DQ+8, DQ+11, DQ+14, DQ+16, DQ+19, DQ+21, SIZE+1~, SIZE+3, SIZE+5, SIZE+7 , SIZE+8
>> XDRDR	DQ+4, DQ+5, DQ+13, SIZE+4
>> XDRFL	EN+1, EN+2, EN+3, EN+4, EN+7, EN+10*, DQ+3, DQ+5, DQ+14, DQ+16 , DQ+19, DQ+20, DQ+21, SIZE+5, SIZE+7, SIZE+8, HEADER+1, HEADER+5, HEADER+8, SELECT+3
>> XDRFNAM	EN+1*
>> XDRGLB	DQ+3*, SIZE+3
>> XDRI	DQ+5*
>> XDRSELEC	EN+11, DQ+6, DQ+12, HEADER+2, HEADER+4, SELECT+7, SELECT+8
>> XDRTMP	DQ+2*, DQ+8
XDRX	DQ+14!, SIZE+5!, SELECT+1~
XDRX(	DQ+16, DQ+19, DQ+21, SIZE+7, SIZE+8, SELECT+3*, SELECT+5, SELECT+8
Y	DQ+20*, DQ+22, DQ+23, SELECT+1~, SELECT+8
>> ZTDESC	EN+13*
>> ZTIO	EN+13*
>> ZTRTN	EN+13*
>> ZTSAVE("XDRFL"	EN+13*
>> ZTSAVE("XDRSELEC"	EN+13*
>> ZTSK	EN+13

Customize PDF page

Package: Toolkit

Routine: XDRDPRE1

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: