Routine: LRAPV

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Lab Service	2	^LRAP (B,D,L,S,SSN,V,XR)^LRU
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Lab Service	1	LRAPV

Entry Points

Name	Comments	DBIA/ICR reference
A	;Initialize some variables
END	;
RPT	;Unverified reports
I	;Order through the cross reference
SUPP	;Unverified Supplementary Reports
H	;Header
H1	; ; D H Q:LR("Q") W !?19,$J($P(LRDATE,"^",6),5),?32,LRP,?63,SSN
DEV	;Get Device Info
N	;
Y	;Get patient info
QUE	;
W	;Write the report
SNO	;Missing SNOMED
ASK	;Ask which option to run
SEL	;

External References

Name	Field # of Occurrence
^%DT	H+6
^%ZIS	DEV+2
HOME^%ZIS	DEV+8
^%ZISC	END+1
^%ZTLOAD	DEV+7
^DIR	H+3
^LRAP	A+2
B^LRU	ASK+10
D^LRU	H+6
L^LRU	QUE+3
S^LRU	QUE+3
SSN^LRU	Y+4
V^LRU	END+3
XR^LRU	QUE+3
$$FMTE^XLFDT	W+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"1) List of Unverified ",LRO(68)," Reports" Line Location: ASK+1
Function Call: WRITE	Prompt: !?3,"2) List of Unverified ",LRO(68)," Supplementary Reports" Line Location: ASK+2
Function Call: WRITE	Prompt: !?3,"3) List of ",LRO(68)," Reports Missing SNOMED Codes" Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"Select 1,2 or 3: " Line Location: ASK+4
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: !,$$FMTE^XLFDT(LRDATE,"D"),?19,$J($P(LRDATE,"^",6),5),?32,LRP Line Location: W+1
Function Call: WRITE	Prompt: ?63,SSN Line Location: W+2
Function Call: WRITE	Prompt: ?63,$G(HRCN) Line Location: W+3
Function Call: WRITE	Prompt: !?3,B Line Location: W+7
Function Call: WRITE	Prompt: ! Line Location: H+3
Function Call: WRITE	Prompt: !,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ Line Location: H+7
Function Call: WRITE	Prompt: !,LRO(68)," (",LRABV,") " Line Location: H+8
Function Call: WRITE	Prompt: "UNVERIFIED" Line Location: H+9
Function Call: WRITE	Prompt: " SUPPLEMENTARY" Condition for execution: LRB=2 Line Location: H+9
Function Call: WRITE	Prompt: " REPORTS" Line Location: H+9
Function Call: WRITE	Prompt: !,"BY DATE SPECIMEN TAKEN FROM ",LRSTR," TO ",LRLST Line Location: H+11
Function Call: WRITE	Prompt: !,"DATE",?15,"Accession number",?32,"Patient",?66,"SSN",!,LR("%") Line Location: H+12
Function Call: WRITE	Prompt: !,"DATE",?15,"Accession number",?32,"Patient",?66,"HRCN",!,LR("%") Line Location: H+13
Function Call: WRITE	Prompt: !?19,$J($P(LRDATE,"^",6),5),?32,LRP,?63,SSN Line Location: H1+1
Function Call: WRITE	Prompt: !?19,$J($P(LRDATE,"^",6),5),?32,LRP,?63,$G(HRCN) Line Location: H1+2
Routine Call	%ZIS Line Location: DEV+8
Routine Call	DIR Line Location: H+3
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	Y+3
^LR - [#63]	QUE+4, Y+1, Y+2, I+1, W+5, W+6

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+2!
>> %DT	H+6*
>> %ZIS	DEV+2*
>> B	W+6*, W+7
DIR	H+2!, END+2!
DIR(0	H+2*
DIRUT	END+2!
DTIME	ASK+5
DTOUT	H+4, END+2!
DUOUT	END+2!
>> HRCN	W+3, H1+2
IO	QUE+1
IO("Q"	DEV+4, DEV+8!
IOF	QUE+1, H+5, END+1
IOM	H+7
IOSL	I+2, W+7
IOST	QUE+1, H+1, END+1
>> LR("%"	H+13
>> LR("AU1"	A+3*, A+4, A+5, Y+5, Y+6, I+3, RPT+1, RPT+2, RPT+3, SUPP+8 , SNO+2, SNO+3, SNO+7, W+4
>> LR("F"	QUE+3*
>> LR("Q"	QUE+4, Y+1, I+1, I+2, W+5, W+7, H+1, H+4*, H1+2
LRA	A+1~, SUPP+3, W+5, W+6
>> LRABV	I+3, H+8
>> LRB	ASK+10*, SEL+1, SEL+2, SEL+3, H+9, H+10
>> LRC	SUPP+3, SUPP+4, SUPP+6, SUPP+7, SNO+1, SNO+4, SNO+5, SNO+6
>> LRDATE	RPT+3, SUPP+8, SNO+7*, W+1, H1+2
>> LRDPF	Y+2*
LRFILE	A+1~, A+4, A+5, I+3, RPT+1, RPT+3, SUPP+8, SNO+2, SNO+7
LRFILE1	A+1~, A+4, A+5, SUPP+3, SUPP+4, SUPP+6
LRFILE2	A+1~, SNO+2, SNO+3, SNO+4, SNO+5
LRI	A+1~, I+1*, W+5, W+6
>> LRLDT	QUE+2*, QUE+4
>> LRLST	H+11
>> LRO(68	ASK+1, ASK+2, ASK+3, H+8
>> LRP	Y+3*, W+1, H1+2
LRPD	A+1~, Y+1*, Y+2, I+1, W+5, W+6
>> LRQ	H+1, H+5*, H+7
>> LRQ(1	H+7
>> LRSDT	QUE+2, QUE+4, Y+1, I+1
>> LRSS	A+3, W+5, W+6
>> LRSTR	H+11
>> LRXR	QUE+4, Y+1, I+1
>> POP	DEV+3
>> SSN	Y+3*
U	ASK+6, H+4
X	ASK+5, ASK+6, ASK+7, ASK+10, Y+2, Y+3, RPT+1, RPT+2, H+4, H+6* , END+2!
Y	A+2, ASK+11, Y+2*, Y+3, H+7, END+2!
>> ZTDESC	DEV+5*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+6*
>> ZTSAVE("LR*"	DEV+6*
ZTSK	DEV+7, DEV+8!

Customize PDF page

Package: Lab Service

Routine: LRAPV

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
ASK	ASK+7
END	A+2, ASK+6, ASK+11, DEV+3, DEV+9, QUE+5
H	QUE+3, I+2, H1+2
H1	W+7
I	Y+5
RPT	SEL+1
SEL	Y+6, I+4
SNO	SEL+3
SUPP	SEL+2
W	RPT+4, SUPP+9, SNO+8
Y	QUE+4