Routine: QAOSPRD0

Information

QAOSPRD0 ;HISC/DAD-INTER-REVIEWER RELIABILITY ASSESSMENT REPORT ;4/30/93 09:25

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	YN^DICN ^DIR
Occurrence Screen	1	^QAOSPRD1
Quality Assurance Integration	1	(,K)^QAQDATE

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
Occurrence Screen	1	QAOS RPT RELIABILITY ASSMT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; *** Select the date range
BLANK	; *** Print blank worksheet
DEV	; *** Select output device, force queueing
ENTSK	; *** Tasked entry point
PRINT	;
EXIT	;
SET(REVIEWER)	; *** Accumulate and count reviews

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	DEV+10, EXIT+1
^%ZTLOAD	DEV+7
YN^DICN	BLANK+1
^DIR	EN+8, EN+14
^QAOSPRD1	PRINT+1
^QAQDATE	EN+2
K^QAQDATE	EXIT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select the date range that the occurrences will be chosen from." Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: !!,"Include blank worksheets" Line Location: BLANK+1
Function Call: WRITE	Prompt: !!,"Answer Y(es) to print blank worksheets in addition to the" Line Location: BLANK+3
Function Call: WRITE	Prompt: !,"worksheets that are printed with data from the previous" Line Location: BLANK+4
Function Call: WRITE	Prompt: !,"reviews. Answer N(o) to skip printing of blank worksheets." Line Location: BLANK+5
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Function Call: WRITE	Prompt: !?5,"This is a very long and time consuming" Line Location: DEV+11
Function Call: WRITE	Prompt: !?5,"report, it must be queued to print.",*7 Line Location: DEV+12
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIR Line Location: EN+8 EN+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^QA(741 - [#741]	ENTSK+5, ENTSK+6, ENTSK+7, ENTSK+10, ENTSK+11, ENTSK+12
^QA(741.1 - [#741.1]	ENTSK+8
^QA(741.2 - [#741.2]	ENTSK+2
^QA(741.6 - [#741.6]	ENTSK+3
^TMP($J	ENTSK+1!, ENTSK+18, ENTSK+20, ENTSK+21, ENTSK+22, ENTSK+23, EXIT+5!, SET+1, SET+2, SET+3

Label References

Name	Line Occurrences
BLANK	BLANK+2
DEV	DEV+9
EXIT	EN+2, EN+8, EN+14, BLANK+1, DEV+1, DEV+2
SET	ENTSK+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BLANK+1*, BLANK+2, EXIT+2!
%ZIS	DEV+1!*, EXIT+2!
%ZIS("B"	DEV+1*
DIR	EN+4!, EN+10!, EXIT+2!
DIR("?"	EN+5, EN+6, EN+7, EN+12, EN+13*
DIR("A"	EN+4, EN+11
DIR("B"	EN+8, EN+11
DIR(0	EN+4, EN+10
DIRUT	EN+8, EN+14, EXIT+2!
IO	PRINT+1
IO("Q"	DEV+2, DEV+3!
IOP	DEV+1*, EXIT+2!
POP	DEV+1, EXIT+2!
QAOBLANK	BLANK+2*, EXIT+2!
QAOSCD1	ENTSK+10*, ENTSK+11, ENTSK+13, EXIT+2!
QAOSCLIN	ENTSK+2*, ENTSK+10, EXIT+2!
QAOSCNUM	EXIT+2!
QAOSD0	ENTSK+5*, ENTSK+6, ENTSK+7, ENTSK+10, ENTSK+11, ENTSK+12, EXIT+2!, SET+3
QAOSDATA	EXIT+3!
QAOSDATE	ENTSK+3, ENTSK+5, EXIT+3!
QAOSEXCP	ENTSK+3*, ENTSK+11, EXIT+3!
QAOSHOW	EXIT+3!
QAOSNUM	EN+14*, ENTSK+19, ENTSK+20, EXIT+3!
QAOSPD1	ENTSK+12*, ENTSK+13, EXIT+3!
QAOSPEER	ENTSK+2*, ENTSK+12, EXIT+3!
QAOSPNUM	EXIT+3!
QAOSRAND	ENTSK+20*, ENTSK+21, EXIT+4!
QAOSREVR	ENTSK+16*, ENTSK+18, ENTSK+20, ENTSK+21, ENTSK+22, ENTSK+23, EXIT+4!
QAOSSCRN	ENTSK+7*, ENTSK+8, EXIT+4!
QAOSSEQ	ENTSK+19*, ENTSK+20, EXIT+4!
QAOSTOT	ENTSK+18*, ENTSK+19, ENTSK+20, EXIT+4!
QAOSTYP	ENTSK+16*, ENTSK+17, EXIT+4!
QAOSTYPE	EN+8*, ENTSK+9, ENTSK+16, ENTSK+17, EXIT+4!
QAOSTYPE(0	ENTSK+8, ENTSK+9, ENTSK+17, ENTSK+18, ENTSK+20, ENTSK+21, ENTSK+22, ENTSK+23, SET+1, SET+2 , SET+3
QAOSZERO	ENTSK+6*, EXIT+4!
QAOTODAY	EXIT+5!
>> QAQNBEG	ENTSK+3
>> QAQNEND	ENTSK+5
>> QAQQUIT	EN+2
REVIEWER	SET~, SET+1, SET+2, SET+3
X	ENTSK+20, ENTSK+22, ENTSK+23, EXIT+5!, SET+1~*, SET+2, SET+3
Y	EN+8, EN+14, EXIT+5!
ZTDESC	DEV+6*, EXIT+5!
>> ZTQUEUED	EXIT+6
>> ZTREQ	EXIT+6*
ZTRTN	DEV+4*, EXIT+5!
ZTSAVE	EXIT+5!
ZTSAVE("QAO*"	DEV+5*
ZTSAVE("QAQ*"	DEV+5*

Customize PDF page

Package: Occurrence Screen