Routine: LRAPT

Package	Total	Call Graph
Lab Service	8	^LRAP ^LRAPS (,H)^LRAPT1 ^LRAPT2 (D,F,L,M,S,SSN,V)^LRU EN^LRUA (,R)^LRUL (BEG,END)^LRUTL
Kernel	2	^%ZIS $$DTIME^XUP
VA Fileman	1	^%DT

Package

Total

Call Graph

^LRAP ^LRAPS (,H)^LRAPT1 ^LRAPT2 (D,F,L,M,S,SSN,V)^LRU EN^LRUA (,R)^LRUL (BEG,END)^LRUTL

^%ZIS $$DTIME^XUP

^%DT

Package	Total	Caller Graph
Lab Service	4	LRAPT LRAPT2 LRAPT3 LRSPRPT1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?28,"Cum path data summaries" Line Location: LRAPT+12
Function Call: WRITE	Prompt: !!?14,"1. DISPLAY cum path data summary for A patient" Line Location: ASK+0
Function Call: WRITE	Prompt: !?14,"2. PRINT cum path data summary for patient(s)",! Line Location: ASK+1
Function Call: READ	Prompt: "Select (1-2): " Timeout: DTIME Variable: X Line Location: ASK+2
Function Call: WRITE	Prompt: $C(7),!!,"Answer 1 or 2",! Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"NO PATHOLOGY ENTRIES IN LAB FILE !",! Line Location: AU+1
Function Call: WRITE	Prompt: !,"ANATOMIC PATHOLOGY" Line Location: H+2
Function Call: WRITE	Prompt: !,LRAA(1)," QA from ",LRSTR," to ",LRLST Condition for execution: $D(LR("W")) Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !,LRP,?32,SSN,?52,"DOB:",DOB Line Location: H1+0
Function Call: WRITE	Prompt: !,LRP,?32,$G(HRCN),?52,"DOB:",DOB Line Location: H1+1
Routine Call	%ZIS Line Location: LRAPT+11

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	LOOP+4
^LR - [#63]	LOOP+4, LOOP+5, LOOP+9, LOOP+11, AU
^LRO(69.2 - [#69.2]	ASK+6, QUE+2, QUE+3, LOOP!, LOOP+1, LOOP+2, LOOP+3

Name	Field # of Occurrence
>> %DT	LRAPT+10*
>> DFN	LOOP+5*, LOOP+6, LOOP+9
DIC	ASK+7!
DIE	ASK+7!
>> DOB	LOOP+7*, H1+1
DR	ASK+7!, LOOP+4*
DTIME	LRAPT+13*, ASK+2
DUZ	LRAPT+13, ASK+6, QUE+2, QUE+3, LOOP, LOOP+1, LOOP+2, LOOP+3
>> HRCN	H1+1
IO	QUE
IOF	LRAPT+12, QUE+6
>> IOP	LRAPT+11*
IOST	QUE+6, H+1
>> LR("%"	H+2
>> LR("F"	H+1
>> LR("FORM"	QUE+6
>> LR("Q"	QUE+2, QUE+3, AU, AU+1, H+1, H1+1
>> LR("W"	H+2
>> LRAA	ASK+6, QUE+2, QUE+3, LOOP, LOOP+1, LOOP+2, LOOP+3
>> LRAA(1	H+2
>> LRADM	LOOP+8, LOOP+10
>> LRADX	LOOP+8, LOOP+10
LRAU	QUE+5!
>> LRDFN	QUE+3*, LOOP, LOOP+4, LOOP+5, LOOP+9, LOOP+11, AU
>> LRDICS	ASK+5*
>> LRDICS(1	ASK+5*
>> LRDICS(2	ASK+5*
>> LRDPF	LOOP+4*
>> LRFLN	LOOP+5*
>> LRLLOC	LOOP+9*
>> LRLST	H+2
>> LRP	LOOP+7*, H1+1
>> LRPF	LOOP+4*, LOOP+5, LOOP+6, LOOP+9, LOOP+10
>> LRPPT	LOOP+6*, LOOP+7
>> LRQ	LOOP+4*
>> LRQ(9	QUE*
>> LRS(5	QUE*
>> LRSTR	H+2
>> LRT	LRAPT+10*
>> LRTOD	LRAPT+10*
>> LRV(1	LOOP+12, AU, AU+1
>> PNM	QUE+1, QUE+2, QUE+3, LOOP
>> PNM(1	QUE+2*
>> POP	ASK+8
>> SEX	LOOP+7*
>> SSN	LOOP+7*
U	LRAPT+13*, ASK+2, LOOP+4, LOOP+10
>> VAIN	LOOP+10
>> VAIN(7	LOOP+10
>> VAIN(9	LOOP+10
>> X	LRAPT+10, ASK+2, ASK+3, ASK+4, LOOP+2*
>> X(1	LOOP+2*
>> Y	LRAPT+10, ASK+5, LOOP+7*
>> ZTRTN	ASK+7*
>> ZTSK	ASK+8

Information