Routine: LRBLPCSS

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC ^DIC
Lab Service	2	DEL^LRBLPCS (D,YN)^LRU
DRG Grouper	1	($$CPT,$$CPTD)^ICPTCOD

Package

Total

Call Graph

VA Fileman

^%DT C^%DTC ^DIC

Lab Service

DEL^LRBLPCS (D,YN)^LRU

DRG Grouper

($$CPT,$$CPTD)^ICPTCOD

Package	Total	Caller Graph
Lab Service	2	LRBLPCS LRBLS

Package

Total

Caller Graph

Lab Service

LRBLPCS LRBLS

Name	Field # of Occurrence
^%DT	LRBLPCSS+12
C^%DTC	LRBLPCSS+12
^DIC	A
$$CPT^ICPTCOD	EN+6
$$CPTD^ICPTCOD	B+2, A+4
DEL^LRBLPCS	EN+3
D^LRU	LRBLPCSS+13
YN^LRU	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " * No operation schedule file *" Line Location: LRBLPCSS+10
Function Call: WRITE	Prompt: !!,LRP," not in operation schedule file." Line Location: LRBLPCSS+11
Function Call: WRITE	Prompt: !!,"No operations pending." Line Location: LRBLPCSS+14
Function Call: WRITE	Prompt: !!,"Operation scheduled: " Line Location: LRBLPCSS+15
Function Call: WRITE	Prompt: !,$J(A,2),") ",$P(A(A),"^")," ",$P(A(A),"^",2) Line Location: LRBLPCSS+16
Function Call: READ	Timeout: DTIME Variable: X Line Location: P+0
Function Call: WRITE	Prompt: $C(7),!,"Select a number from 1 to ",B Line Location: P+0
Function Call: WRITE	Prompt: " ",$P(A(X),"^"),!,$P(A(X),"^",2) Line Location: B+0
Function Call: WRITE	Prompt: !,"CPT file number: ",X Line Location: B+4
Function Call: WRITE	Prompt: !,LRX(I) Line Location: B+5
Function Call: WRITE	Prompt: Q Line Location: B+7
Function Call: WRITE	Prompt: !,"Component: ",$S($D(^LAB(66,X,0)):$P(^(0),"^"),1:""),?52,"MSBOS:",$P(X(1),"^",2) Line Location: C+0
Function Call: WRITE	Prompt: ! Line Location: A+0
Function Call: WRITE	Prompt: Q Line Location: A+1
Function Call: WRITE	Prompt: !,"CPT file number: ",X Line Location: A+2
Function Call: WRITE	Prompt: !,LRX(I) Line Location: A+5
Function Call: WRITE	Prompt: !!,"No maximum surgical blood order entered in file 66.5 for this component.",!,"No maximum surgical blood order criteria checking can be done.",! Line Location: EN+1
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!,"No maximum surgical blood orders for this operation.",!,"No maximum surgical blood order criteria checking can be done.",! Line Location: W+0
Routine Call	DIC Line Location: A

FileNo	Call Tags
^ICPT - [#81]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(66.5	SET+1
^ICPT(0	A
^LAB(66 - [#66]	C
^LAB(66.5 - [#66.5]	B+7, A+1, SET+1*, EN+1, EN+2
^SRF - [#130]	LRBLPCSS+10, LRBLPCSS+13
^SRF("ADT"	LRBLPCSS+11, LRBLPCSS+13

Name	Line Occurrences
A	LRBLPCSS+10, LRBLPCSS+11, LRBLPCSS+14
B	LRBLPCSS+15, P+1
C	A+6
P	P
SET	A+1
W	B+7, A+1

Name	Field # of Occurrence
^(	C
^("OP"	LRBLPCSS+13
^(0	C, SET+1*
^(1	SET+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+3*
>> %DT	LRBLPCSS+12*
A	LRBLPCSS+12!, LRBLPCSS+13, LRBLPCSS+16, EN+2*, EN+3, EN+5
A(	LRBLPCSS+13*, LRBLPCSS+16, B
>> B	LRBLPCSS+13, LRBLPCSS+16, P
>> B(1	LRBLPCSS+13*
>> C	LRBLPCSS+13*, LRBLPCSS+14, LRBLPCSS+15, EN+1, EN+2, EN+5, EN+6
>> DA	SET+1*
>> DFN	LRBLPCSS+11, LRBLPCSS+13
DIC	A*!
DIC("A"	A*
DIC("S"	A*
DIC(0	A*
DTIME	P
>> I	B+5, A+5
>> LRCPT	B+7, C, A+6, EN+1, EN+2, EN+6
>> LRK(	EN+5, EN+6
>> LRP	LRBLPCSS+11
>> LRR	EN+3*, EN+4
LRX	B+1~, B+2, B+3, B+5, A+3~, A+4, A+5
LRX(	B+5, A+5
>> X	LRBLPCSS+12, LRBLPCSS+13, LRBLPCSS+15, P, B, B+2, B+4, B+7, C, A , A+1, A+2, A+4, A+6, SET+1, EN+3
>> X(1	C*
>> X1	LRBLPCSS+12*
>> X2	LRBLPCSS+12*
>> Y	LRBLPCSS+12, LRBLPCSS+13, A, A+1, EN+3*
>> Z	SET+1*

Customize PDF page

Package: Lab Service

Routine: LRBLPCSS

Information

Source Information

Call Graph

Call Graph Total: 6

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
C
B
W
P
SET	; also from MSB^LRBLS
EN	;