Routine: LRBLJLA

Package	Total	Call Graph
Lab Service	4	CK^LRBLPUS ^LRDPA (D,SSN,V,YN)^LRU (BEG,END)^LRUTL
VA Fileman	3	^%DT ^DIC ^DIE

Package

Total

Call Graph

Lab Service

CK^LRBLPUS ^LRDPA (D,SSN,V,YN)^LRU (BEG,END)^LRUTL

VA Fileman

^%DT ^DIC ^DIE

Package	Total	Caller Graph
Lab Service	2	LRBLILA LRBLPX

Package

Total

Caller Graph

Lab Service

LRBLILA LRBLPX

Entry Points

Name	Field # of Occurrence
^%DT	B+1
^DIC	C
^DIE	C+1
CK^LRBLPUS	LRBLJLA+3
^LRDPA	A+1
D^LRU	B+1
SSN^LRU	A+1
V^LRU	END
YN^LRU	LRBLJLA+5, LRBLJLA+6, LRBLJLA+7, ED, ED+1
BEG^LRUTL	ASK+3
END^LRUTL	OUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?30,"PRINT XMATCH LABELS" Line Location: LRBLJLA+4
Function Call: WRITE	Prompt: !?25,"(There ",$S(X>1:"are",1:"is")," ",X," label",$S(X>1:"s",1:"")," to print)" Condition for execution: X Line Location: LRBLJLA+4
Function Call: WRITE	Prompt: !?3,"Add labels for emergency transfusion " Line Location: LRBLJLA+5
Function Call: WRITE	Prompt: !! Line Location: LRBLJLA+6
Function Call: WRITE	Prompt: !,"Do you want to delete the list of labels " Line Location: LRBLJLA+7
Function Call: WRITE	Prompt: $C(7),!,"Are you sure " Line Location: LRBLJLA+7
Function Call: WRITE	Prompt: $C(7),!,"Are you sure " Line Location: LRBLJLA+7
Function Call: WRITE	Prompt: !,"Edit LABELS " Line Location: ED+0
Function Call: WRITE	Prompt: !!,"Save list for repeat printing " Line Location: ED+1
Function Call: WRITE	Prompt: !!?33,"REMEMBER TO",!?13,"ALIGN THE PRINT HEAD ON THE FIRST LINE OF THE LABEL" Line Location: ED+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: I+0
Function Call: WRITE	Prompt: !,$C(7),^(3) Condition for execution: $D(^DD(69.2,.07,3)) Line Location: ASK+0
Function Call: WRITE	Prompt: $P(X,"^",B),! Line Location: QUE+1
Function Call: WRITE	Prompt: ! Line Location: C+0
Function Call: WRITE	Prompt: $C(7),! Line Location: A+2
Function Call: READ	Prompt: "Enter number of crossmatch labels wanted: " Formatting: !! Timeout: DTIME Variable: LRB Line Location: B+0
Function Call: WRITE	Prompt: $C(7),!,"Enter a number from 1 to 99." Line Location: B+0
Function Call: WRITE	Prompt: $C(7),!!,"I can't make those extra labels now.",!!,"Someone else started this first",!!,"Try again later if you still need extras",!! Line Location: B+2
Routine Call	DIE Line Location: C+1
Routine Call	DIC Line Location: C

FileNo	Call Tags
^LRO(69.2 - [#69.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(69.2	ASK
^DIC - [#1]	A+1
^LR - [#63]	A+1
^LRO(69.2 - [#69.2]	LRBLJLA+3, LRBLJLA+4, LRBLJLA+6, LRBLJLA+7!, ED+3, QUE+1, OUT!, E, B+2, B+3 , B+5*, B+6

Name	Line Occurrences
A	A+2
ASK	ASK+1
B	B
C	LRBLJLA+6, ED, C+1
E	LRBLJLA+5
ED	LRBLJLA+6
END	LRBLJLA+3, LRBLJLA+6, LRBLJLA+7, ED, ED+1, I, ASK+3, OUT
I	ASK

Name	Field # of Occurrence
^(	QUE+1, A+1
^(0	LRBLJLA+3, ED+3, E, B+3*
^(3	ASK
^(4	ASK

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLJLA+5, LRBLJLA+6, LRBLJLA+7, ED, ED+1*
>> %DT	B+1*
%ZIS	OUT!
>> A	QUE+1, B+5
>> B	QUE+1*
D	C+1!
DA	C, C+1!
>> DFN	A+1*
DIC	C*!, C+1!, A+1!
DIC("A"	C*
DIC(0	C*
DIE	C+1*!
DLAYGO	C*!
DR	C+1*!
DTIME	I, B
>> HRCN	B+5
IO	QUE
>> LR("FORM"	OUT*
>> LR("LINE"	OUT*
>> LR(1	ED+3, I, ASK+2, QUE+1
>> LRAA	LRBLJLA+3, LRBLJLA+4, LRBLJLA+6, LRBLJLA+7, ED+3, QUE+1, OUT, E, B+2, B+3 , B+5, B+6
>> LRABO	A+1*, B+5
>> LRB	B*, B+3
>> LRC	B+3*, B+5
>> LRDFN	A+1
>> LRDPF	A+1*
>> LRP	A+1*, B+5
>> LRQ	ED+1*, OUT
>> LRRH	A+1*, B+5
>> POP	ASK+3
>> SSN	A+1*
U	ED+3, I, C, B
>> X	LRBLJLA+4, I, ASK, ASK+1, ASK+2, QUE+1, C, A+1, B+1, B+3*
>> Y	LRBLJLA+3, C, C+1, A+1*, B+5
>> Z	A+1, A+2, B+3, B+5
>> ZTRTN	ASK+3*
>> ZTSK	ASK+3

Customize PDF page

Package: Lab Service

Routine: LRBLJLA

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
A	;K DIC D ^LRDPA Q:LRDFN=-1 S X=^LR(LRDFN,0),Y=$P(X,"^",3),LRABO=$P(X,"^",5),LRRH=$P(X,"^",6),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),Z=$S($D(@(X_Y_",.35)")):+^(.35),1:0),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU
C
B
E
I
ED
QUE
ASK
END
OUT