Routine: LRBLPX

Package	Total	Call Graph
Lab Service	6	^LRBLJLA CK^LRBLPUS (,CK,EN,STF)^LRBLPX1 EN1^LRBLU ^LRDPA (DT,V,YN)^LRU
VA Fileman	3	^%DT ^DIE $$EXTERNAL^DILFD

Package	Total	Caller Graph
Lab Service	2	LRBLPUS2 LRBLPX

Entry Points

External References

Name	Field # of Occurrence
^%DT	E+7
^DIE	E+4, E+5, E+7
$$EXTERNAL^DILFD	LBL+3
^LRBLJLA	END
CK^LRBLPUS	LRBLPX+3
^LRBLPX1	S+1
CK^LRBLPX1	LRBLPX+6
EN^LRBLPX1	E+2
STF^LRBLPX1	E+8
EN1^LRBLU	LRBLPX+4
^LRDPA	ASK
DT^LRU	LBL
V^LRU	LRBLPX+3, END
YN^LRU	E+3, END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?28,"Enter crossmatch results",!!?28,LRAA(4) Line Location: LRBLPX+5
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH Line Location: R+0
Function Call: WRITE	Prompt: !,LRP," ",HRCN,?37,$J(LRPABO,2),?40,LRPRH Line Location: R+1
Function Call: WRITE	Prompt: $C(7),!,"No units currently selected for XMATCH",! Line Location: R+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Select units (1-",LRV,") to enter XMATCH results: " Line Location: SEL+0
Function Call: WRITE	Prompt: !,"Enter numbers from 1-",LRV,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4 )",!,"Enter 'ALL' for all units." Line Location: SEL+0
Function Call: WRITE	Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed." Line Location: SEL+2
Function Call: WRITE	Prompt: $C(7),!,"START with a NUMBER !!",! Line Location: SEL+3
Function Call: WRITE	Prompt: !! Line Location: E+0
Function Call: WRITE	Prompt: !!?4,"Sorry, must have ABO/Rh results to enter XMATCH results" Line Location: E+2
Function Call: WRITE	Prompt: $C(7),!!,"I can't finish this. Someone else is editing this record" Line Location: K+0
Function Call: WRITE	Prompt: $C(7),!!,"I won't be able to make this CAUTION TAG now. Someone else is using that function",! Line Location: EN+1
Function Call: WRITE	Prompt: $C(7),!,"SORRY YOU DO NOT HAVE THE APPROPRIATE SECURITY",!,"TO ALLOW THIS UNIT TO BE ASSIGNED",! Line Location: IG+0
Function Call: READ	Prompt: "ENTER YOUR INITIALS TO ALLOW ASSIGNING UNIT: " Formatting: !! Timeout: DTIME Variable: X(1) Line Location: IG+1
Function Call: WRITE	Prompt: $C(7),!,"NOT YOUR INITIALS !",! Line Location: IG+1
Function Call: READ	Prompt: "Press RETURN" Formatting: ! Timeout: DTIME Variable: X Line Location: M+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: M+0
Function Call: READ	Timeout: 1 Variable: S A=0 F B=0 Line Location: AB+0
Routine Call	DIE Line Location: E+4 E+5 E+7

FileNo	Call Tags
^LRD(65 - [#65]	Classic Fileman Calls
65.02	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.3 - [#61.3]	LRBLPX+4, AB
^LR - [#63]	R+1, R+2, S!, S+1, K, K+1!, AB
^LRD(65 - [#65]	E+4, E+6, E+7, K+2, LBL, LBL+3
^LRO(68 - [#68]	E+8
^LRO(69.2 - [#69.2]	EN+1, EN+2, EN+3, EN+4
^TMP($J	ASK!, SEL+4, S+1*, E, ALL
^VA(200 - [#200]	LRBLPX+5, LBL+3
^XUSEC("LRBLSUPER"	IG

Name	Field # of Occurrence
^(	R+2
^(0	S, E+4, K+1, LBL+3, EN+1
^(2	LBL

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	E+3, END
>> %DT	E+7*
>> A	AB*
>> B	R+2, S, S+1, AB
DA	E, E+4, E+5!, E+7*
DA(1	E, E+5, E+7*
DA(2	E*
DIC	ASK!
DIE	ASK!, E, E+5!, E+7*
DR	ASK!, E+1, E+5!, E+7*
DTIME	SEL, IG+1, M
DUZ	LRBLPX+5, IG
>> E	R+2*, S, S+1
F	E+2!
F(1	E+2
F(2	E+2
F(6	E+3
>> HRCN	R+1, LBL+2
>> K	EN+2*, EN+3
>> K(3	EN+2*, EN+3, EN+4
>> LRA	SEL+4*
>> LRAA	E+8, EN+1, EN+2, EN+3, EN+4
>> LRAA(4	LRBLPX+5
>> LRAD	E+4, E+8
>> LRAN	E+8*
>> LRB	LRBLPX+4*
>> LRC	E*, K+1
>> LRCAPA	LRBLPX+6, E+8
>> LRDFN	ASK, R+1, R+2, S, S+1, E, E+4, E+5, E+6, E+7 , K, K+1, K+2, LBL, LBL+3, AB
LRDPAF	LRBLPX+5!
>> LRDPF	R+1*
>> LRI	E*, E+4, E+5, E+6, E+7, K+1, K+2, LBL, LBL+3
>> LRJ	S+1, E, LBL+3
>> LRK	E+7*
>> LRP	R+1*, LBL+2
>> LRPABO	R+1*, LBL+2
>> LRPRH	R+1*, LBL+2
>> LRQ	SEL+4*
>> LRR	E, E+5, E+6, E+7, IG, IG+1*
>> LRSS	S
>> LRT	LRBLPX+6
LRV	ASK!, R+2, R+3, R+4, SEL, SEL+4, S+1, E, ALL
>> LRW	LRBLPX+5*, IG+1
LRZ	ASK!
>> PNM	R+1
R	AB!
R(	AB*
U	R+1, SEL
>> X	R+1, R+2, SEL, SEL+1, SEL+2, SEL+3, SEL+4, S, E+7, E+8 , K+1, LBL, LBL+2, LBL+3, EN+2, M, AB
>> X(1	S, K+1, IG+1*
>> Y	LRBLPX+3, E+5, E+7, LBL*, LBL+2
>> Y(1	LBL+2, LBL+3, EN+4
>> Y(5	LBL+3*
>> Y(7	LBL*, LBL+2
>> Y(8	LBL*, LBL+2

Customize PDF page

Package: Lab Service

Routine: LRBLPX

Information

Source Information

Call Graph

Call Graph Total: 9

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
ALL
EN	;from LRBLPUS2
E
K
M
S
R	;S X=^LR(LRDFN,0),LRDPF=$P(X,U,2),LRPABO=$P(X,"^",5),LRPRH=$P(X,"^",6),LRP=PNM W !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH D AB
AB
ASK
END
SEL
LBL
IG

Name	Line Occurrences
AB	R+1
ALL	SEL+1
ASK	ASK
E	R+4, SEL+4, ALL
END	LRBLPX+3, LRBLPX+6, ASK
K	E+6
LBL	K+2
M	S+1
R	ASK
S	R+2
SEL	SEL, SEL+2, SEL+3