Routine: LRBLPE1

Package	Total	Call Graph
Lab Service	3	C^LRBLS (D,L,V,YN)^LRU ^LRUTL
VA Fileman	1	^%DT

Package

Total

Call Graph

Lab Service

C^LRBLS (D,L,V,YN)^LRU ^LRUTL

VA Fileman

^%DT

Package	Total	Caller Graph
Lab Service	1	LRBLPE

Package

Total

Caller Graph

Lab Service

LRBLPE

Name	Field # of Occurrence
^%DT	EN+2
C^LRBLS	EN+6
D^LRU	EN+2
L^LRU	EN+6
V^LRU	EN, END
YN^LRU	EN+2, EN+4, EN+5
^LRUTL	EN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$C(7),$P(LRP,"^"),?30,$P(LRP,"^",9),!,"Patient has positive direct AHG(BS) test MEDICATIONS:" Line Location: LRBLPE1+3
Function Call: READ	Timeout: R[U Variable: Q Line Location: LRBLPE1+5
Function Call: WRITE	Prompt: !,"OUTPATIENT PHARMACY ITEM: ",$P(^(0),"^") Line Location: LRBLPE1+5
Function Call: READ	Timeout: R[U Variable: Q Line Location: LRBLPE1+7
Function Call: WRITE	Prompt: !,"IV DRUG: ",$P(^(0),"^") Line Location: LRBLPE1+7
Function Call: READ	Timeout: R[U Variable: Q Line Location: LRBLPE1+9
Function Call: WRITE	Prompt: !,"INPATIENT PHARMACY ITEM: ",$P(^(0),"^") Line Location: LRBLPE1+9
Function Call: READ	Prompt: "'^' TO STOP " Formatting: ! Timeout: DTIME Variable: R Line Location: R+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: R+1
Function Call: WRITE	Prompt: $C(7),!!,"Enter 86250.0000 as 'Antihuman Globulin Test' in WKLD CODE file (#64)" Line Location: EN+0
Function Call: WRITE	Prompt: !!?6,"Division: ",LRAA(4),!,"Accession Area: ",LRO(68) Line Location: EN+1
Function Call: WRITE	Prompt: !!,LRAA(1)," Patient data entry for ",LRH(0)," " Line Location: EN+2
Function Call: WRITE	Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!! Line Location: EN+3
Function Call: WRITE	Prompt: !,"Enter TEST COMMENT(s) " Line Location: EN+4
Function Call: WRITE	Prompt: !,"Edit SPECIMEN COMMENT(s) " Line Location: EN+5
Function Call: WRITE	Prompt: $C(7),!!,"I can't uncount this workload now 'cause someone else is editing this record. ",!!,"Use the Workload manual input option to delete workload data ",!! Line Location: K+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	EN+6
^LAM("E"	EN
^LRO(68 - [#68]	EN+3, K, K+1!, K+2, K+3
^PS(52.6 - [#52.6]	LRBLPE1+7
^PS(55 - [#55]	LRBLPE1+4, LRBLPE1+6, LRBLPE1+8
^PSDRUG - [#50]	LRBLPE1+5, LRBLPE1+9
^PSRX - [#52]	LRBLPE1+4
^TMP($J	LRBLPE1+3!, LRBLPE1+4, LRBLPE1+5, LRBLPE1+6!, LRBLPE1+7, LRBLPE1+8!*, LRBLPE1+9
^XUSEC("LRBLSUPER"	EN+5

Name	Line Occurrences
END	EN, EN+2, EN+3, EN+4, EN+5
R	LRBLPE1+5, LRBLPE1+7, LRBLPE1+9

Name	Field # of Occurrence
^(	LRBLPE1+4, LRBLPE1+6, LRBLPE1+8
^(0	LRBLPE1+4, LRBLPE1+5, LRBLPE1+7, LRBLPE1+9, K+3*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+2, EN+4, EN+5*
%DT	EN+2*!
%DT(0	EN+2*
>> A	K+2*, K+3
>> A(1	LRBLPE1+3, LRBLPE1+5, LRBLPE1+7, LRBLPE1+9, R+1
>> DFN	LRBLPE1+4, LRBLPE1+6, LRBLPE1+8
DTIME	R
DUZ	EN+5
IOF	LRBLPE1+3
>> LRAA	EN+3, K, K+1, K+2, K+3
>> LRAA(1	EN+2, EN+3
>> LRAA(4	EN+1
>> LRAD	EN+2*, EN+3, K, K+1, K+2, K+3
>> LRAN	K, K+1, K+2, K+3
LRC	EN+4*!
LRE	EN+5*!
>> LRH(0	EN+2*, EN+3
>> LRO(68	EN+1
>> LRP	LRBLPE1+3
LRS	EN+6!*
>> LRT	K+1
>> LRW(0	EN*
>> R	LRBLPE1+3, LRBLPE1+5, LRBLPE1+6, LRBLPE1+7, LRBLPE1+8, LRBLPE1+9, R
U	LRBLPE1+5, LRBLPE1+6, LRBLPE1+7, LRBLPE1+8, LRBLPE1+9
>> X	LRBLPE1+4, LRBLPE1+5, LRBLPE1+6, LRBLPE1+7, LRBLPE1+8, LRBLPE1+9, EN, EN+6, K+3*
>> X(1	K+3*
>> Y	LRBLPE1+4, LRBLPE1+6, LRBLPE1+8, EN, EN+2, K+2

Customize PDF page

Package: Lab Service

Routine: LRBLPE1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
K
R
END
EN