Routine: ZIBER

Package	Total	Call Graph
IHS VA %Utilities	1	(DAT,DCHK,DELETE,NPAGE,PRINT,QUE,TMD2,WF)^ZIBER1
Uncategorized	1	^%GUCI
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
OPT
SET	;
PMODE
DINFO
ERR
PACKAGE
LIST
L1
DAT1
NE
LIST1
DAT
WRT
ERROR
EXIT
DINFO1
KILL
E1
L2
E2

External References

Name	Field # of Occurrence
^%GUCI	ZIBER+5, PACKAGE
^DIC	PACKAGE
DAT^ZIBER1	DAT1+1, DINFO1+3
DCHK^ZIBER1	DAT
DELETE^ZIBER1	OPT+8, OPT+9
NPAGE^ZIBER1	L1+2
PRINT^ZIBER1	OPT+6, OPT+7
QUE^ZIBER1	OPT+3, DINFO+3, DINFO1+3, ERR+1, WRT+1
TMD2^ZIBER1	L1+1, L2+1
WF^ZIBER1	WRT+2, WRT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,$P($P($ZV,","),"-")," - Error Report Utility" Line Location: ZIBER+3
Function Call: WRITE	Prompt: !!,"NO ERRORS HAVE BEEN LOGGED" Line Location: ZIBER+4
Function Call: WRITE	Prompt: !!,?5,"1 - Display errors",!,?5,"2 - Print errors",!,?5,"3 - Erase errors",!,?5,"4 - Summarize errors" Line Location: OPT+1
Function Call: READ	Prompt: "Enter option: " Formatting: !! Timeout: "^Q"=%X!("^"[%X) Variable: %X G EXIT Line Location: OPT+2
Function Call: WRITE	Prompt: $E("Display",$L(%X)+1,99) Line Location: OPT+4
Function Call: WRITE	Prompt: " - Display" Line Location: OPT+5
Function Call: WRITE	Prompt: $E("Print",$L(%X)+1,99) Line Location: OPT+6
Function Call: WRITE	Prompt: " - Print" Line Location: OPT+7
Function Call: WRITE	Prompt: $E("Erase",$L(%X)+1,99) Line Location: OPT+8
Function Call: WRITE	Prompt: " - Erase" Line Location: OPT+9
Function Call: WRITE	Prompt: $E("Summarize",$L(%X)+1,99) Line Location: OPT+10
Function Call: WRITE	Prompt: " - Summarize" Line Location: OPT+11
Function Call: WRITE	Prompt: *7," ..Invalid" Line Location: OPT+12
Function Call: WRITE	Prompt: ! Line Location: PACKAGE+0
Function Call: READ	Prompt: "Enter date > " Formatting: !! Timeout: "^"[%X,EXIT:%X="^Q",DINFO:%X="?" Variable: %X G OPT Line Location: DAT+0
Function Call: WRITE	Prompt: !!,"No errors have been logged for this UCI" Line Location: DINFO+0
Function Call: WRITE	Prompt: !!,"Errors have been logged for the following days: " Line Location: DINFO+1
Function Call: WRITE	Prompt: "T",$P(",-",",",%I<+$H+1) Line Location: DINFO+2
Function Call: WRITE	Prompt: +$H-%I,"," Condition for execution: +$H-%I Line Location: DINFO+2
Function Call: WRITE	Prompt: !!,"No errors have been logged for this UCI" Line Location: DINFO1+0
Function Call: WRITE	Prompt: !!,"Errors have been logged for the following days: " Line Location: DINFO1+1
Function Call: WRITE	Prompt: "T",$P(",-",",",%I<+$H+1) Line Location: DINFO1+2
Function Call: WRITE	Prompt: +$H-%I,"," Condition for execution: +$H-%I Line Location: DINFO1+2
Function Call: READ	Prompt: "Error # > " Formatting: !! Timeout: "^"[%X,EXIT:%X="^Q" Variable: %X G DAT Line Location: ERR+0
Function Call: WRITE	Prompt: *7," ..Invalid" Line Location: ERR+2
Function Call: WRITE	Prompt: !!,"Error not on file" Line Location: ERR+4
Function Call: WRITE	Prompt: " LOGGED ON ",$ZD(%DAT) Line Location: E1+0
Function Call: WRITE	Prompt: !!,"No errors logged between ",$ZD(%DAT)," and " Line Location: E2+0
Function Call: WRITE	Prompt: $ZD(%DAT) Line Location: E2+1
Function Call: WRITE	Prompt: ! Line Location: LIST+0
Function Call: WRITE	Prompt: %J,") ",^(0),!! Line Location: L1+2
Function Call: WRITE	Prompt: ! Line Location: LIST1+0
Function Call: WRITE	Prompt: %J,") ",^(0),!! Line Location: L2+2
Function Call: WRITE	Prompt: !!,"...Aborted." Line Location: ERROR+1
Routine Call	DIC Line Location: PACKAGE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	PACKAGE
^UTILITY("%ER"	ZIBER+4, DINFO, DINFO+2, DINFO1, DINFO1+2, NE, ERR+4, L1+2, L2+2, SET+3 , SET+4

Label References

Name	Line Occurrences
DAT	OPT+4, OPT+5, DAT, DINFO+3, NE, ERR
DAT1	OPT+10, OPT+11, PACKAGE, DINFO1+3, NE
DINFO	DAT
E1	NE, NE+1, ERR, ERR+1
ERR	ERR, ERR+1, ERR+2, ERR+4, WRT, L1, L1+2
EXIT	ZIBER+4, OPT+2, PACKAGE, DAT, DINFO, DINFO1, ERR, WRT, ERROR+1
L1	L1+1, L1+2
L2	L2+1, L2+2
LIST	ERR
NE	DAT
OPT	OPT+3, OPT+12, DAT
PACKAGE	ZIBER+6, OPT
PMODE	WRT
SET	PMODE
WRT	WRT+1

Naked Globals

Name	Field # of Occurrence
^(	DINFO+2, DINFO1+2, PMODE, SET+1, SET+2, SET+3
^(0	NE+1, L1+2, L2+2, PMODE+1
^(100	PMODE
^(7	PMODE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ZIBER+5!, PACKAGE!, PMODE, PMODE+1!, PMODE+2!, SET+1, SET+2, SET+3, SET+4
%(1	PMODE*, SET+3, SET+4
%(2	PMODE*, SET+3, SET+4
%(3	SET+3*, SET+4
%(4	SET+3*
%A	E1*, KILL!
%AZ	OPT!, KILL!
%AZ("P"	L1+1, L2+1
%AZ("PACKAGE"	OPT, PACKAGE*, L1+1, L2+1
%AZ("PHIT"	L1+1, L2+1
%B	KILL!
%CASE	KILL!
%D	KILL!
%D1	KILL!
%D2	E2+1, KILL!
%DAT	NE, ERR+4, E1, E2, E2+1*, KILL!, L1+2, L2+2, PMODE
%DEL	DAT1*, KILL!
%DEV	ZIBER+2*, EXIT, KILL!
%DIS	DAT, DAT1, KILL!
%DUM	KILL!
%FND	WRT+2*, KILL!
%I	DINFO+2, DINFO1+2, KILL!
%J	DINFO, DINFO+2, DINFO1, DINFO1+2, KILL!, LIST, L1, L1+1, L1+2, LIST1 , L2, L2+1, L2+2
%K	KILL!
%L	KILL!
%LIST	ERR!, KILL!, LIST, LIST1
%M	KILL!
%NE	NE, NE+1, ERR, ERR+2, E1, KILL!, L1, L2
%NE1	KILL!
%NUM	ERR+3*, ERR+4, KILL!, PMODE
%PG	KILL!
%Q	WRT+2*, KILL!
%QF	DAT, KILL!
%RDTE	KILL!
%RTME	KILL!
%SUM	OPT+4, OPT+5, DAT1*, DINFO1+3, NE, KILL!
%SYM	WRT+2, WRT+3, KILL!
%TAG	KILL!
%UCI	KILL!
%UCN	ZIBER+5!, PACKAGE!
%X	OPT+2, OPT+3, OPT+4, OPT+5, OPT+6, OPT+7, OPT+8, OPT+9, OPT+10, OPT+11 , DAT, ERR, ERR+1, ERR+2, ERR+3, WRT, WRT+1, WRT+2, WRT+3, KILL!
%XQF	OPT+3, DINFO+3, DINFO1+3, ERR+1, WRT+1*, KILL!
%Y	KILL!
%Z	KILL!
DIC	PACKAGE!*
DIC(0	PACKAGE*
>> DTOUT	PACKAGE
>> DUOUT	PACKAGE
FLG	DAT, KILL!, LIST, L1+2
U	PACKAGE
X	KILL!
>> Y	PACKAGE

Customize PDF page

Package: IHS VA %Utilities

Routine: ZIBER

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: