Routine: LRSPT

Call Graph

Package	Total	Call Graph
Lab Service	9	F^LRAPF ^LRAPPOW ^LRAPT1 ^LRAPT2 EN^LRSPRPT EN^LRSPRPT2 (D,F,L,L1,S,YN)^LRU (EN2,SET)^LRUA EN1^LRUPS
VA Fileman	5	^%DT EN^DDIOL ^DIR ^DIWP ^DIWW
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Lab Service	1	LRAPPF1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Preliminary reports for ",LRO(68) Line Location: LRSPT+12
Function Call: WRITE	Prompt: !!,"Save preliminary reports for reprinting " Line Location: CH+1
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: DEV+3
Function Call: WRITE	Prompt: !,"Request Queued, #",ZTSK Condition for execution: $D(ZTSK) Line Location: DEV+7
Function Call: WRITE	Prompt: ! Line Location: DEV+7
Function Call: WRITE	Prompt: !,"ANATOMIC PATHOLOGY",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: $C(7),!!,"OK TO DELETE THE ",LRO(68)," PRELIMINARY REPORT LIST" Line Location: END+0
Function Call: WRITE	Prompt: $C(7),!,"LIST DELETED !" Line Location: END+0
Function Call: WRITE	Prompt: !!,"FINE, LET'S FORGET IT",! Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Routine Call	%ZIS Line Location: DEV+8
Routine Call	DIR Line Location: CONT+2
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	D, D+3, D+5, AU
^LRO(69.2 - [#69.2]	GETP+1, GETP+2, GETP+7, GETP+8, GETP+9, QUE+6, QUE+8, QUE+10, QUE+11, K! , K+1, D!, AU+2, AU+3, END!*
^UTILITY($J	D!, AU+1!

Name	Field # of Occurrence
^(0	GETP+8*, QUE+6

Name	Field # of Occurrence
%	CH, CH+2, K+5!, END
>> %DT	LRSPT+11*
>> %ZIS	DEV+2*
DIR	K+5!, CONT+1!
DIR(0	CONT+1*
DIRUT	K+5!
>> DIWF	AU+1*
>> DIWR	AU+1*
DTOUT	K+5!, CONT+3
DUOUT	K+5!
IO	QUE+1
IO("Q"	DEV+4, DEV+8!
IOF	K+4
IOM	CH+5, AU+1
IOSL	AU+3
IOST	QUE+12, K+2, K+4
>> LR("%"	H+1
>> LR("A"	AU+1, AU+2, AU+3
>> LR("DIWF"	QUE+8*
>> LR("DVD"	CH+4!, CH+5*, QUE+12
>> LR("F"	K+2
>> LR("Q"	QUE+10, K+2, D+2, D+3, D+6, AU, CONT+3*
>> LR("SPSM"	QUE+5*
>> LRA	QUE+6, QUE+7
>> LRAA	GETP+1, GETP+2, GETP+7, GETP+8, GETP+9, QUE+6, QUE+8, QUE+10, QUE+11, K , K+1, D, AU+2, AU+3, END
LRAN	GETP, GETP+1, GETP+7, GETP+8, QUE+10*, QUE+11, K!, D, SGL
>> LRAP	QUE+9, SGL*
>> LRAPX	LRSPT+13
>> LRAPX(1	CH*
>> LRDFN	GETP+7, QUE+9, QUE+11, D, D+3, D+5, AU, SGL
>> LRI	GETP+7, QUE+9, QUE+11, SGL
>> LRO	AU+5*
>> LRO(68	LRSPT+12, END
LRPRE	D+1~*
>> LRQ(2	QUE+6*
>> LRS(5	QUE+6*
LRSAV	CH+2, K, K+3!, SGL
>> LRSF515	QUE+3*
>> LRTOD	LRSPT+11*
>> LRZ	AU+2*, AU+4
MSG	GETP+6!
MSG(1	GETP+3, GETP+4
MSG(2	GETP+5*
P	K!
>> POP	DEV+3
S	K!
U	QUE+6, CONT+3
X	LRSPT+11, GETP+8, QUE+11, K+5!, AU+3, CONT+3
Y	LRSPT+11, K+5!
>> ZTDESC	DEV+5*
>> ZTQUEUED	K+4
>> ZTREQ	K+4*
>> ZTRTN	DEV+6*
>> ZTSAVE("LR*"	DEV+6*
ZTSK	DEV+7, DEV+8!