Routine: LRRP8A

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	DD^%DT ^DIC ^DIR
Lab Service	1	DATE^LRCAPR1A

Package	Total	Caller Graph
Lab Service	1	LRRP8

Entry Points

Name	Comments	DBIA/ICR reference
Q1
DATES	;* Query for date *
QTR	;* Query for a time range (in military format) *
REPTYP	;* Query for type of type of report *
QST	;* Query for shifts *
CAPS	;* Query for CAP codes *
DEVICE	;
QDT	;* Query for a specific date *
INST	;* Query for institution *
ACCAREA	;* Query for accession areas *
ASK	;
QUE	;
TIMES	;* Query for type of time search *

External References

Name	Field # of Occurrence
DD^%DT	QDT+4
^%ZIS	DEVICE+1
^%ZISC	QUE+3
^%ZTLOAD	QUE+3
^DIC	INST+3, ACCAREA+10, CAPS+11, QDT+2
^DIR	ACCAREA+6, DATES+3, CAPS+6, TIMES+3, REPTYP+3, QST+4, QTR+3, Q1+1
DATE^LRCAPR1A	DATES+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ENTRY POINT IS AT EN^LRRP8." Line Location: LRRP8A+4
Function Call: WRITE	Prompt: @IOF,! Line Location: INST+2
Function Call: WRITE	Prompt: !,"DATE selection:" Line Location: DATES+1
Function Call: WRITE	Prompt: ! Line Location: CAPS+9
Function Call: WRITE	Prompt: !,"TIME selection:" Line Location: TIMES+1
Function Call: WRITE	Prompt: !,"REPORT selection:" Line Location: REPTYP+1
Function Call: WRITE	Prompt: ! Line Location: QDT+1
Function Call: WRITE	Prompt: !,"How many shifts?" Line Location: QST+2
Function Call: WRITE	Prompt: !!,"For Shift # ",I3 Line Location: QST+6
Function Call: WRITE	Prompt: !,"Enter TIME RANGE in military format HHMM.SS (0.00 - 2400.00):" Line Location: QTR+1
Function Call: WRITE	Prompt: !,"Stop time should be GREATER than start time" Line Location: Q1+3
Routine Call	DIC Line Location: INST+3 ACCAREA+10 CAPS+11 QDT+2
Routine Call	DIR Line Location: ACCAREA+6 DATES+3 CAPS+6 TIMES+3 REPTYP+3 QST+4 QTR+3 Q1+1
Routine Call	%ZIS Line Location: DEVICE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAM - [#64]	Classic Fileman Calls
^LRO(64.1 - [#64.1]	Classic Fileman Calls

Label References

Name	Line Occurrences
ACCAREA	ASK+2
CAPS	ASK+4
DATES	ASK+3
DEVICE	ASK+7
INST	ASK+1
Q1	Q1+2
QDT	DATES+5
QST	TIMES+4
QTR	TIMES+5, QST+7, QTR+4, Q1+3
QUE	DEVICE+3
REPTYP	ASK+6
TIMES	ASK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+1!*
DIC	INST+1!, INST+3, ACCAREA+9!, CAPS+10, QDT+2
DIC("A"	CAPS+10*
DIC(0	INST+3, ACCAREA+9, CAPS+10, QDT+2
DIR	ACCAREA+2!, DATES+2!, CAPS+1!, TIMES+2!, TIMES+3!, REPTYP+2!, QST+3!, QST+4!, QTR+2!, QTR+3! , Q1!, Q1+1!
DIR("?"	ACCAREA+4, ACCAREA+5, CAPS+4, CAPS+5
DIR("A"	ACCAREA+3, CAPS+3, QTR+2, Q1
DIR("B"	ACCAREA+2, CAPS+2
DIR(0	ACCAREA+2, DATES+2, CAPS+2, TIMES+2, REPTYP+2, QST+3, QTR+2, Q1
>> DIRUT	DATES+4, QST+4
>> DTOUT	INST+4, ACCAREA+8, ACCAREA+12, CAPS+8, CAPS+12, TIMES+3, REPTYP+4, QTR+3, Q1+1
>> DUOUT	INST+4, ACCAREA+8, ACCAREA+12, DATES+4, CAPS+8, CAPS+12, TIMES+3, REPTYP+4, QST+4, QTR+3 , Q1+1
I	CAPS+1~, CAPS+11*
I3	QST+1~, QST+5*, QST+6, QST+8
IO("Q"	DEVICE+3
IOF	INST+2
>> LRAA	ACCAREA+1, ACCAREA+11, QUE+2
>> LRAA(	ACCAREA+11*
>> LRCAPS	CAPS+1, CAPS+11
>> LRCAPS(	CAPS+11*
>> LRDATE	QDT+4*
>> LRDR	QDT+4*
>> LRDTH	QDT+5*
>> LREND	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, INST+4, ACCAREA+8, ACCAREA+12* , DATES+4, DATES+6, CAPS+8, CAPS+12, TIMES+3, TIMES+5, REPTYP+4, DEVICE+2, DEVICE+3, QDT+3 , QST+4, QST+5, QST+7, QTR+3, Q1+1*
>> LRFR	QDT+4*
>> LRIN	INST+5*, QDT+2
>> LRNSFT	QST+4*, QST+5
>> LRRPT	REPTYP+5*
>> LRST(	QST+8*
>> LRSTFLG	QST+2*
>> LRSTOP	TIMES+5, QST+8, Q1+2*, Q1+3
>> LRSTRT	TIMES+5, QST+8, QTR+4*, Q1+3
>> LRTO	QDT+4*
POP	DEVICE+1!, DEVICE+2
U	ACCAREA+11, CAPS+11
X	ACCAREA+2!, DATES+2!, DATES+5, CAPS+1!, TIMES+4, REPTYP+5, QST+4, QTR+4, Q1+2
Y	INST+4, INST+5, ACCAREA+2!, ACCAREA+7, ACCAREA+10, ACCAREA+11, DATES+2!, DATES+6, CAPS+1!, CAPS+7 , CAPS+11, QDT+3, QDT+4, QDT+5
Y(0	ACCAREA+11
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("LR*"	QUE+1*
>> ZTSAVE("LRAA*"	QUE+2*
>> ZTSK	QUE+4

Customize PDF page

Package: Lab Service

Routine: LRRP8A

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: