Routine: ZIBRPI

Package	Total	Call Graph
VA Fileman	4	^%DTC FILE^DICN ^DIE ^DIR
Kernel	3	^%ZIS ^%ZISC $$UP^XLFSTR
IHS VA %Utilities	1	OPT^ZIBRPI1
MailMan	1	^XMD

Package	Total	Caller Graph
IHS VA %Utilities	1	ZIBRPI1

Entry Points

Name	Comments	DBIA/ICR reference
DTC
DIE
HFS	; ; F I=0:0 S I=$O(^%ZIS(1,I)) Q:'I I ^(I,"TYPE")="HFS" S IOP=$P(^%ZIS(1,I,0),U),%ZIS("IOPAR")="(""/usr/spool/uucpublic/work.zib"":""W"")" D ZIS Q:'POP ; XB31 IHS/ADC/GTH 03-07-97 Correct spelling of uucppublic.
RTN(%)
SYTM	;;dpssyg
FILE
JDT	;
DIR
WORK	;;ZIBRPI.WRK
PATTERN	;;2.4L.2"_"4N1"."1.2N1"p"; XB32 IHS/ADC/GTH 04-21-97 Correct patch file pattern match.
NS	;;ZIB_P
ENDMAIN	;
ZIS
HC(%)
XMD
Q	;
START	;EP - From TaskMan.
OPT	;EP - Set option in OPTION file. Called by a programmer.
PUB	;;/usr/spool/uucppublic/
MAIN	;
OS	; The "IN" directory is retrieved from the OPTION entry.
ZISC

External References

Name	Field # of Occurrence
^%DTC	DTC
^%ZIS	ZIS
^%ZISC	ZISC
FILE^DICN	FILE
^DIE	DIE
^DIR	DIR
$$UP^XLFSTR	MAIN+2
^XMD	XMD
OPT^ZIBRPI1	OPT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: = Line Location: ZIBRPI+19
Function Call: WRITE	Prompt: !!,"EXECUTION UNAUTHORIZED.",! Line Location: ZIBRPI+21
Function Call: READ	Timeout: 300 Variable: % Line Location: START+13
Function Call: READ	Timeout: 300 Variable: % Line Location: START+23
Function Call: READ	Timeout: 300 Variable: % Line Location: MAIN+15
Function Call: WRITE	Prompt: L,U,F,U,^(F),U,DT,! Line Location: ENDMAIN+4
Routine Call	DIE Line Location: DIE
Routine Call	DIR Line Location: DIR
Routine Call	%ZIS Line Location: ZIS

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	HFS+2, HFS+5
^%ZOSF("OS"	OS+1
^AUTTLOC - [#9999999.06]	START+7
^AUTTSITE(1	START+7, ENDMAIN+11, OS+4
^DIC(19 - [#19]	START+16, ENDMAIN+8
^DIC(9.4 - [#9.4]	MAIN+3, MAIN+4, MAIN+6, MAIN+8, MAIN+16, MAIN+17, MAIN+18
^TMP($J	START+5!, START+23, START+25!, MAIN+1, MAIN+15*, ENDMAIN+4, ENDMAIN+15, ENDMAIN+16!

Label References

Name	Line Occurrences
@(	RTN
DTC	JDT+3
FILE	MAIN+21
HC	START+8, START+13, START+14, START+18, START+25, MAIN+1, ENDMAIN+6, ENDMAIN+10, ENDMAIN+11
HFS	START+2
JDT	START+10
NS	OS+2
OS	START+4, ENDMAIN+1
PATTERN	OS+1
PUB	OS+3
RTN	ENDMAIN+15
SYTM	ENDMAIN+10
WORK	OS+2
XMD	ENDMAIN+14
ZIBRPI	ENDMAIN+13
ZIS	START+10, START+20, HFS+2
ZISC	START+25, ENDMAIN+6

Naked Globals

Name	Field # of Occurrence
^(	ENDMAIN+4, HFS+2
^("VERSION"	MAIN+8
^(0	MAIN+18*
^(20	START+16, ENDMAIN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+13, START+16, START+23, MAIN+1, MAIN+3, MAIN+5, MAIN+6, MAIN+8, MAIN+12, MAIN+13* , MAIN+15, MAIN+22, ENDMAIN+2, ENDMAIN+4, ENDMAIN+8, ENDMAIN+10, ENDMAIN+11, ENDMAIN+15, HC~, RTN~ , OS+4
%ZIS	START+1~
%ZIS("IOPAR"	START+9, START+19, HFS+2*
D	START+1~, START+16, START+17, START+18, MAIN+1, ENDMAIN+2*, ENDMAIN+10, ENDMAIN+11, DIE~, DIR~ , DTC~, FILE~, HC~, RTN~, XMD~, ZIS~, ZISC~
D("IN"	OS+3, OS+4
D("OUT"	START+8, START+13, ENDMAIN+2, OS+3, OS+4
DA	START+1~
DA(1	MAIN+16, MAIN+17, MAIN+18, MAIN+20
DA(2	MAIN+20*
DD	FILE!
DIC	START+1~, MAIN+20*
DIC("DR"	MAIN+20*
DIC(0	MAIN+20*
DO	FILE!
DT	MAIN+20, ENDMAIN+4, JDT+2
E	START+1~, MAIN+10, MAIN+15, ENDMAIN+8, ENDMAIN+15, DIE~, DIR~, DTC~, FILE~, HC~ , RTN~, XMD~, ZIS~, ZISC~
F	START+1~, START+24, MAIN+1, MAIN+2, MAIN+7, MAIN+10, MAIN+20, ENDMAIN+2, ENDMAIN+4, DIE~ , DIR~, DTC~, FILE~, HC~, RTN~, XMD~, ZIS~, ZISC~
I	START+1~, START+9, START+19, DIE~, DIR~, DTC~, FILE~, HC~, RTN~, XMD~ , ZIS~, ZISC~, HFS+2, HFS+3, HFS+5
IO	START+11, START+21, MAIN+11, ENDMAIN+3, ENDMAIN+5
>> IOP	START+9, START+19, HFS+2*
J	START+1~, START+13, ENDMAIN+2, DIE~, DIR~, DTC~, FILE~, HC~, RTN~, XMD~ , ZIS~, ZISC~, JDT+4*
L	START+1~, START+7*, START+8, START+13, ENDMAIN+2, ENDMAIN+4, DIE~, DIR~, DTC~, FILE~ , HC~, RTN~, XMD~, ZIS~, ZISC~
N	START+1~, MAIN+2*, MAIN+3, MAIN+4, MAIN+5, MAIN+8, MAIN+10, MAIN+20, DIE~, DIR~ , DTC~, FILE~, HC~, RTN~, XMD~, ZIS~, ZISC~
O	START+1~, START+17, ENDMAIN+9, DIE~, DIR~, DTC~, FILE~, HC~, RTN~, XMD~ , ZIS~, ZISC~, OS+1*, OS+3
O("LS"	START+8, START+18, OS+3, OS+4
O("NS"	START+8, START+13, ENDMAIN+2, OS+2*
O("PF"	START+23, OS+1*
O("RM"	START+13, START+14, START+25, MAIN+1, ENDMAIN+6, OS+3, OS+4
P	START+1~, MAIN+4*, MAIN+5, MAIN+6, MAIN+8, MAIN+16, MAIN+17, MAIN+18, MAIN+20, DIE~ , DIR~, DTC~, FILE~, HC~, RTN~, XMD~, ZIS~, ZISC~
POP	START+1~, START+3, HFS+2, HFS+3*, HFS+4
U	START+7, START+16, MAIN+17, ENDMAIN+4, ENDMAIN+8, ENDMAIN+11, ENDMAIN+15, HFS+2, HFS+5, OS+4
V	START+1~, MAIN+7*, MAIN+8, MAIN+20, DIE~, DIR~, DTC~, FILE~, HC~, RTN~ , XMD~, ZIS~, ZISC~
W	START+1~, START+8, START+9, START+14, START+18, START+19, START+25, ENDMAIN+6, DIE~, DIR~ , DTC~, FILE~, HC~, RTN~, XMD~, ZIS~, ZISC~, OS+2, OS+3
>> X	START+13, MAIN+2, MAIN+20, JDT+4
X1	JDT+1~, JDT+2*
X2	JDT+1~, JDT+2*
XMSUB	START+1~, ENDMAIN+13*
XMTEXT	START+1~, ENDMAIN+13*
XMTEXT(	ENDMAIN+4*
XMY	START+1~
XMY(1	ENDMAIN+13*
>> ZTQUEUED	START+25
>> ZTREQ	START+25, ENDMAIN+17

Marked Items

Name	Field # of Occurrence
$T(NS	OS+2
$T(PATTERN	OS+1
$T(PUB	OS+3
$T(SYTM	ENDMAIN+10
$T(WORK	OS+2
$T(ZIBRPI	ENDMAIN+13

Customize PDF page

Package: IHS VA %Utilities

Routine: ZIBRPI

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items