Routine: LRUCN

Package	Total	Call Graph
Lab Service	4	^LRDPA (D,L,S,V)^LRU ^LRUCNBB (BEG,END)^LRUTL
VA Fileman	2	^%DT ^DIC
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Lab Service

^LRDPA (D,L,S,V)^LRU ^LRUCNBB (BEG,END)^LRUTL

VA Fileman

^%DT ^DIC

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Lab Service	2	LRBLCN LRUCNBB

Package

Total

Caller Graph

Lab Service

LRBLCN LRUCNBB

Name	Field # of Occurrence
^%DT	QUE
^DIC	LRUCN+5, ASK+4
^LRDPA	PT
D^LRU	QUE
L^LRU	QUE
S^LRU	QUE
V^LRU	END
^LRUCNBB	QUE+1
BEG^LRUTL	PT+2
END^LRUTL	OUT
$$FMTE^XLFDT	ASK+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"CONSULTATION REPORT" Line Location: LRUCN+4
Function Call: WRITE	Prompt: $C(7),!,"Must have an accession area for ",LRL(1) Line Location: LRUCN+5
Function Call: WRITE	Prompt: !,LRL(1)," entry in LAB LETTER file (#65.9) was deleted." Line Location: QUE+0
Function Call: WRITE	Prompt: @IOF,!!!!,LR("%"),!?5,"CLINICAL RECORD ",LRL(1),?51,"\|" Line Location: H+0
Function Call: WRITE	Prompt: ?(IOM-8),"Pg:",LRQ Condition for execution: LRQ>1 Line Location: H+0
Function Call: WRITE	Prompt: !?5,LRQ(1),?51,"\|" Line Location: H+0
Function Call: WRITE	Prompt: "Specimen:",LRI(1) Condition for execution: $D(LRI) Line Location: H+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: W+0
Function Call: WRITE	Prompt: ! Line Location: F+0
Function Call: WRITE	Prompt: W Line Location: F+1
Function Call: WRITE	Prompt: !?60,"(",$S($D(LRE):"End of report",1:"See next page"),")",!,LRS,!,LRS(1),?60,LRD Line Location: F+1
Function Call: WRITE	Prompt: W Line Location: F+2
Function Call: WRITE	Prompt: !,LRP,?40,"LOC: ",LRLLOC,!,"SSN:",SSN,?16,"SEX:",SEX," DOB: ",DOB Line Location: F+2
Function Call: WRITE	Prompt: " AGE:",AGE Condition for execution: $D(AGE) Line Location: F+2
Function Call: WRITE	Prompt: ! Line Location: F+2
Function Call: WRITE	Prompt: W Line Location: F+4
Function Call: WRITE	Prompt: !,LRP,?40,"LOC: ",LRLLOC,!,"HRCN:",HRCN,?16,"SEX:",SEX," DOB: ",DOB Line Location: F+4
Function Call: WRITE	Prompt: " AGE:",AGE Condition for execution: $D(AGE) Line Location: F+4
Function Call: WRITE	Prompt: ! Line Location: F+4
Function Call: WRITE	Prompt: $C(7),!!,"There are no specimen dates for ",LRP," ",SSN Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!!,"There are no specimen dates for ",LRP," ",HRCN Line Location: ASK+2
Routine Call	DIC Line Location: LRUCN+5 ASK+4

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAB(65.9 - [#65.9]	QUE, SET, SET+1
^LR - [#63]	ASK+2
^LRO(68 - [#68]	LRUCN+6

Name	Line Occurrences
ASK	PT+1
END	LRUCN+4, LRUCN+5, PT, PT+1, PT+2, OUT
H	QUE
OUT	QUE
SET	QUE+1
W	F+1, F+4

Name	Field # of Occurrence
^(3	SET+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	QUE*
>> AGE	F+4
DIC	LRUCN+5!, ASK+4!
DIC("A"	LRUCN+5*
DIC("S"	LRUCN+5*
DIC(0	LRUCN+5, ASK+4
>> DIWF	SET*
>> DIWL	SET*
>> DIWR	SET*
>> DOB	F+4
>> HRCN	F+4, ASK+2
IO	QUE
IOF	H
IOM	H, SET
IOSL	F
>> LR("%"	H, W
>> LRAA	LRUCN+5*, LRUCN+6
>> LRADM	F+6
>> LRADX	F+6
>> LRD	QUE*, F+1
>> LRDFN	PT, ASK+2
>> LRDPAF	LRUCN+6*
>> LRE	F+1
>> LRI	PT+1, H, ASK+2, ASK+4
>> LRI(1	H, ASK+4*
>> LRL	LRUCN+5*, QUE, SET, SET+1
>> LRL(1	LRUCN+5*, PT+1, QUE, H
>> LRLLOC	F+4
>> LRMD	F+6
>> LRP	F+4, ASK+2
>> LRQ	H*
>> LRQ(1	H
>> LRS	F+1, SET+1*
>> LRS(1	F+1, SET+1*
>> LRSS	LRUCN+6*, QUE+1, ASK+2
>> POP	PT+2
>> SEX	F+4
U	LRUCN+5, LRUCN+6, SET, ASK+4
>> X	QUE, F, SET, SET+1
>> Y	LRUCN+5, QUE, ASK+4*
>> Y(0	LRUCN+5
>> ZTRTN	PT+2*
>> ZTSK	PT+2

Customize PDF page

Package: Lab Service

Routine: LRUCN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SET
END
PT
F
H
QUE
W
ASK	;I '$O(^LR(LRDFN,LRSS,0)) S LRI=-1 W $C(7),!!,"There are no specimen dates for ",LRP," ",SSN Q
OUT