Routine: LRCAPED1

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Lab Service	2	^LRCAPED2 (DASH,EQUALS)^LRX
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

VA Fileman

^DIC YN^DICN ^DIE

Lab Service

^LRCAPED2 (DASH,EQUALS)^LRX

Kernel

^%ZTLOAD

Package	Total	Caller Graph
Lab Service	1	LRCAPED

Package

Total

Caller Graph

Lab Service

LRCAPED

Name	Field # of Occurrence
^%ZTLOAD	LRCAPED1+4
^DIC	A
YN^DICN	ASK, LIST, CT
^DIE	A+6, A1+3
^LRCAPED2	ASK
DASH^LRX	HEAD+1
EQUALS^LRX	LIST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"WORKLOAD entries will be added as a background task later tonight." Line Location: LRCAPED1+4
Function Call: WRITE	Prompt: !!,"Are you finished viewing the workload data for this CAP code." Line Location: ASK+0
Function Call: WRITE	Prompt: *7,!,"THIS IS NOT A QC ENTRY" Line Location: A+2
Function Call: WRITE	Prompt: *7,!,"THIS ENTRY DOES NOT HAVE ANY REPEATS!" Line Location: A+3
Function Call: WRITE	Prompt: !?5,"'*' MEANS THAT DATE HAS REPEATS",?40,"'#' MEANS THAT DATE IS FOR QC" Line Location: LIST+2
Function Call: READ	Prompt: "Press Return .. or '^' to Escape " Formatting: ! Timeout: DTIME Variable: X Line Location: J+0
Function Call: WRITE	Prompt: !,Y,?18,$E($S($P(XX,"^",3):$P(^LAB(60,$P(XX,"^",3),.1),"^",1),1:$P(XX,"^",3)),1,20),?38,$E($P(XX,"^",4),1,17),?55 Line Location: J+2
Function Call: WRITE	Prompt: $S($D(^LAB(62.05,+$P(XX,U,7),0)):$E($P(^(0),U),1,9),1:$P(XX,U,7)),?65,$P(XX,"^",8),?72,$P(XX,"^",9) Line Location: J+3
Function Call: WRITE	Prompt: ?77,"*" Condition for execution: $P(XX,"^",14) Line Location: J+3
Function Call: WRITE	Prompt: ?78,"#" Condition for execution: $P(XX,"^",13)=62.3 Line Location: J+3
Function Call: WRITE	Prompt: @IOF,!,"Listed below are the dates' WORKLOAD file entries for this CAP code.",! Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"REPORT DATE",?18,"TEST NAME",?38,"LOCATION",?55,"URGENCY",?65,"TECH",?72,"ORDER #" Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"Current workload count for next date is ",LRA,". Do you wish to change it" Line Location: CT+0
Function Call: WRITE	Prompt: !,"Enter the positive or negative amount you want entered for the next WORKLOAD." Line Location: CT+1
Routine Call	DIE Line Location: A+6 A1+3
Routine Call	DIC Line Location: A

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	DQ!
^DD("DD"	J+2
^DIC(3 - [#3]	B1
^LAB(60 - [#60]	J+2
^LAB(62.05 - [#62.05]	J+3
^LRO(67.9 - [#67.9]	AD1, AD2, A+5, A+6, LIST+1, B, B1, B1+1

Name	Line Occurrences
A	A+2, A+3
AD1	LRCAPED1+5, ASK, DQ
AD2	AD2
ADD	LRCAPED1+5, ASK
ASK	LRCAPED1+4, ASK
B	AD2
B1	B1
C	A+5
CT	ASK, CT+1
HEAD	LIST, J+1
J	LIST+1
LIST	ASK

Name	Field # of Occurrence
^(0	J+3, B1, B1+1*
^(1	B1+1*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK, ASK+1!, LIST, CT*, CT+1
>> A	LIST+1*
>> DA	A+1*
DIC	LRCAPED1+4!, ASK+1!, AD1, A, A+1
DIC("S"	A*!
DIC(0	A*
DIE	A+1*, A+6!, A1+3!
>> DR	A+6, A1+2, C*
>> DR(1	A1, A1+1
DT	LRCAPED1+4
DTIME	J, CT
DUZ	B1
>> I	LIST+1*
>> II	LRCAPED1+3*, LRCAPED1+5, DQ
IOF	HEAD
JJ	LRCAPED1+5, ASK+1!, DQ
KK	ASK+1!
>> LRA	LRCAPED1+3, LRCAPED1+4, LRCAPED1+5, ADD, AD2, A, A+3, A+4, A1+2, CT* , DQ
>> LRCAP	LIST+1, C, B1+1
>> LREND	LRCAPED1+2, LRCAPED1+5, A, A+4, LIST, LIST+1, J*
>> LRIFN	B, B1, B1+1
>> LRIN	A1+1, B1
>> LRLOCAB	AD1*, B1
>> LRM	B1
>> LRSB	B1, B1+1
>> LRTIM	LRCAPED1+2, ADD, AD2*, LIST+1, B1, B1+1
>> LRTIME	LRCAPED1+2*, ADD
>> LRTS	AD1*, B1
>> LRTSA	AD1*, B1
>> LRTST	LRCAPED1+2*, C, B1
>> LRURG	AD1*, B1
>> LRX	LRCAPED1+4, ASK, ADD, AD2, A+2, A+3, A+4, A1, A1+2, B1
U	A+4, J+3, B1, B1+1
>> X	J*
XX	ASK+1!, LIST+1*, J+2, J+3
>> Y	AD1, A, A+1, A+5, A+6, J+2
>> Y(0	A+2, A+3, A+4
>> ZTDESC	LRCAPED1+4*
>> ZTDTH	LRCAPED1+4*
>> ZTIO	LRCAPED1+4*
ZTRTN	LRCAPED1+4*!
ZTSAVE	LRCAPED1+4!
ZTSAVE("II"	LRCAPED1+4*
ZTSAVE("L*"	LRCAPED1+4*
ZTSK	LRCAPED1+4!, DQ, DQ+1!

Customize PDF page

Package: Lab Service

Routine: LRCAPED1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: