Routine: LRCAPBV

Information

LRCAPBV ;VA/DALOI/FHS - PROCESS VBECS WORKLOAD API ; 13-Aug-2013 09:15 ; MKK

Source Information

Source file <LRCAPBV.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	4	$$FIND1^DIC FILE^DID FILE^DIE GETS^DIQ
Lab Service	3	INIT^LRCAPBB ($$NLT,EN)^LRCAPBV1 ^LRCAPV3
Kernel	2	$$NOW^XLFDT $$GET^XUA4A72
VBECS	1	($$WKLDCAP,UPDTWKLD)^VBECA7

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRCAPBV1

Entry Points

External References

Name	Field # of Occurrence
$$FIND1^DIC	LK1+1, LK1+3, LK1+5, LK1+6, TST+1, TST+2, TST+3
FILE^DID	DPF+2
FILE^DIE	BBDIQ+8, BBDIQ+17, EUPDATE+7
GETS^DIQ	DLOC+1, BBDIQ+5, SUF+3, LRAA+4, AA+5, AA+8, AA+11, AA+12, AA+13, LRAA1+3 , ACCES+9
INIT^LRCAPBB	ERR+2
$$NLT^LRCAPBV1	SUF+2
EN^LRCAPBV1	PCEFILE+3
^LRCAPV3	BBDIQ+14
$$WKLDCAP^VBECA7	GET+1
UPDTWKLD^VBECA7	END+3
$$NOW^XLFDT	BBDIQ+16
$$GET^XUA4A72	DLOC+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRIEN Line Location: BBDIQ+1
Function Call: WRITE	Prompt: !,ERR Line Location: EUPDATE+1
Routine Call	DIC Line Location: LK1+1 LK1+3 LK1+5 LK1+6 TST+1 TST+2 TST+3
Routine Call	DIE Line Location: BBDIQ+8 BBDIQ+17 EUPDATE+7

FileNo	Call Tags
^SC - [#44]	GETS^DIQ
^LAB(60 - [#60]	FIND1^DIC
^LR - [#63]	GETS^DIQ
^LAB(64.2 - [#64.2]	FIND1^DIC, GETS^DIQ
^LRD(65 - [#65]	FIND1^DIC
^LRO(68 - [#68]	FIND1^DIC, GETS^DIQ
68.02	GETS^DIQ
68.04	GETS^DIQ
68.05	GETS^DIQ
^LAB(69.9 - [#69.9]	GETS^DIQ
^DIC(9.4 - [#9.4]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DIV+1
^DPT - [#2]	DFN+3
^LAM - [#64]	NLT+1
^LRO(68 - [#68]	UID+2, UID+3, UID+4, UID+5, AA+3, LRAA1+1
^VA(200 - [#200]	TEC+1
^VBEC(6002.01	EN+1, LOOP+1, BBDIQ+3!, EUPDATE+3
^XTMP("BVEC WKLD"	LOCK, LOCK+1*, END+1

Name	Line Occurrences
BBDIQ	LOOP+1
END	GET+2, DLOC+4, LK1+7, TST+4
ERR	BBDIQ+6
EUPDATE	LK1+8, TST+5, ERR+1, TYPE+1, DIV+1, ADT+1, NLT+1, DFN, TEC+1, UID+6 , UNIT+1
LOCK	LOCK
LRAA	BBDIQ+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	LOCK+2~, GET+1*, GET+2, BBDIQ+2!
ANS(	DLOC+2, DLOC+3, BBDIQ+12, BBDIQ+13, TYPE, DIV, ADT, NLT, SUF, SUF+4 , SUF+5, DFN, TEC, UID, TS+1, UNIT, LRDAA, LRAA+1
ANX	LOCK+2~, BBDIQ+2!, LRAA+3!
ANX(	LRAA1+2, ACCES, ACCES+1, ACCES+2, ACCES+3, ACCES+4, ACCES+5, ACCES+6, ACCES+7, ACCES+8 , URG
ANX("GLOBAL N	AME" , DPF+3
ANX(44	AA+9, ACCES+10, ACCES+11
ANX(63	DPF, DPF+1
ANX(68	LRAA+5, AA+6
D1	LOCK+3~
D2	LOCK+3~
DFN	LOCK+3~, PCEFILE+2, PCEFILE+3, DFN, DFN+3, FILE+2, DPF+1, DPF+3
ERR	LOCK+3~, LK1+2, LK1+8, TST+5, BBDIQ+2!, BBDIQ+6, BBDIQ+10, ERR+1, ERR+3, TYPE , TYPE+1, DIV, DIV+1, ADT, ADT+1, NLT, NLT+1, SUF, DFN, TEC , TEC+1, UID, UID+5, UID+6, TS+7, TS+8, UNIT, UNIT+1, EUPDATE+1, EUPDATE+5 , EUPDATE+6
ERX	LRAA+3!
FILE	LOCK+3~, BBDIQ+2!, BBDIQ+4*, BBDIQ+5
>> FLD	AA+10*, AA+11
IEN	LOCK+3~, BBDIQ+4, BBDIQ+5, TYPE, DIV, ADT, NLT, SUF, SUF+5, DFN , TEC, UID, TS+1, UNIT, LRDAA, AA+4, AA+11, AA+12, AA+13, LRAA1+2 , ACCES, ACCES+1, ACCES+2, ACCES+3, ACCES+4, ACCES+5, ACCES+6, ACCES+7, ACCES+8, URG
LRAA	LOCK+3~, TEC+2, UID+2, UID+3, UID+4, UID+5, LRAA+1, LRAA+2, LRAA+4, LRAA+5 , AA+1, AA+2, AA+3, AA+4, AA+5, AA+6, LRAA1+1
LRACC	LOCK+3~, ACCES+7*
LRACPABV	LOCK+3~
LRADT	LOCK+3~, PCEFILE+3, ADT*, ADT+1, ADT+2
LRAN	LOCK+3~, TEC+2, UID+4, UID+5, AA+2, AA+3, AA+4, LRAA1+1
LRCAPBV	LOCK+9~, GET+3*
LRCC	LOCK+3~, SUF+2*
LRCDT	LOCK+4~, BBDIQ+12, ADT+2, UID+3*, UID+4, UID+5, AA+2, AA+3, AA+4, LRAA1+1
LRCNT	LOCK+4~, PCEFILE+3, SUF+5*
LRCTM	LOCK+4~, BBDIQ+13, ADT+2
LRD65	LOCK+4~, LK1+5*, LK1+7, FILE, UNIT+1
LRDAA	LOCK+4~, LK1+3, LK1+4, TEC+2, LRAA+2
>> LRDBUG	TST+6, LOOP+2, BBDIQ+1, EUPDATE+1
LRDFN	LOCK+4~, DFN+1, DFN+3, LRAA1+2*, LRAA1+3, DPF, DPF+1, DPF+3
LRDIV	LOCK+4~, DIV*, DIV+1, DIV+2
LRDLOC	LOCK+4~, DLOC+2*, AA+7
LRDPF	LOCK+9~, DPF*
LRDPRO	LOCK+4~, DLOC+3*, DLOC+4
>> LRDSSID	PCEFILE+3, AA+9*
>> LRDSSLOC	PCEFILE+3, AA+6, AA+7, AA+8, AA+9
LRDSUF	LOCK+4~, LK1+6*, SUF+1
LRE655	LOCK+5~, FILE+1
LREDT	LOCK+5~, ADT*
LRERR	LOCK+5~, LK1+7, ERR+1
LRESCPT	LOCK+5~, GET+3*
LRFDA	LOCK+5~, BBDIQ+2!, BBDIQ+15!
LRFDA(	BBDIQ+7, BBDIQ+15, BBDIQ+16*
LRFDA(1	EUPDATE+2!, EUPDATE+4, EUPDATE+5, EUPDATE+6*
LRFILE	LOCK+5~, FILE, FILE+1, FILE+2, UNIT+1, LRAA1+1, DPF+2, DPF+3
LRFNUM	LOCK+5~
LRIDT	LOCK+5~, ACCES+12*
LRIEN	DLOC+5, LOOP+1, END+4!, BBDIQ+1, BBDIQ+3, BBDIQ+4, BBDIQ+7, BBDIQ+12, BBDIQ+13, BBDIQ+15 , BBDIQ+16, EUPDATE+3*, EUPDATE+4, EUPDATE+5, EUPDATE+6, LRAA+1
LRII	LOCK+6~
LRIN	LOCK+6~, PCEFILE+3, DIV+2*
LRLD	LOCK+6~, ERR+2, LRAA+5
LRLOG	LOCK+6~
LRLSS	LOCK+6~, BBDIQ+11, AA+1
LRMA	LOCK+6~, BBDIQ+11, AA+1
LRNLT	LOCK+6~, NLT*, NLT+1, SUF+2
LRNP	LOCK+9~
LROA	LOCK+6~
LROAD	LOCK+6~, ACCES*
LROAD1	LOCK+6~, ACCES+1*
LROAD2	LOCK+6~, ACCES+2*
LROL	LOCK+7~, ACCES+8*, ACCES+9, ACCES+10, ACCES+11
LRPKG	LOCK+7~, LK1+1*, LK1+2
>> LRPRO	PCEFILE+3, ACCES+5*
LRREC	LOCK+7~
LRRRL	LOCK+7~, ACCES+4*
LRRRL1	LOCK+7~, ACCES+5*
LRRRL2	LOCK+9~, ACCES+10*
LRRRL3	LOCK+7~, ACCES+6*
LRRRL4	LOCK+7~, PCEFILE+1, ACCES+11*
LRSN	LOCK+9~, ACCES+2*
LRSPEC	LOCK+9~, ACCES+3*
LRSTATUS	LOCK+9~, LK1+7, ERR+1
LRSUF	LOCK+7~, SUF, SUF+1, SUF+2, SUF+3, SUF+4*
LRTEC	LOCK+7~, PCEFILE+3, TEC*, TEC+1
LRTS	LOCK+7~, TS!, TS+1, TS+2, TS+3, TS+4, TS+5*, AA+13, URG
LRTSQA	LOCK+10~
LRTST	LOCK+8~, PCEFILE+3, TS!, TS+1, TS+3, TS+4, TS+5
LRTSTD	LOCK+10~, TST+3*, TST+4, TS+5
LRTSTP	LOCK+8~, TS!, TS+1, TS+3, TS+4, TS+5
>> LRTSTQA	TST+1*, TST+4, TST+5, TS+4
LRTSTU	LOCK+10~, TST+2*, TST+4, TST+5, TS+3
LRTYPE	LOCK+8~, TYPE*, TYPE+1, DFN+2, FILE, FILE+1, FILE+2, TS+3, TS+4, TS+5 , UNIT+1
LRUA	LOCK+9~
LRUG	LOCK+8~, AA+1, URG
LRUID	LOCK+8~, UID*, UID+1, UID+2, UID+3, UID+4
LRUNIT	LOCK+8~, UNIT*, UNIT+1
LRVSITN	LOCK+9~
LRWA	LOCK+8~, BBDIQ+11, AA+1
LRWKLAA	LOCK+8~, BBDIQ+11, LRDAA*
LRZCNT	LOCK+8~
U	LRAA1+1, DPF+3
X	LOCK+8~
Y	LOCK+8~
>> ZTQUEUED	LOOP+3
>> ZTREQ	LOOP+3*

Customize PDF page

Package: Lab Service

Routine: LRCAPBV

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SUF
TEC
DPROV	;Set default PCE Provider
ERR	;Check entry for critical data
EUPDATE	;Set error codes into entry
DPF
URG
FILE
DIV
TST	;Get default tests names
NLT
GET	;Call VBECS 6002.01 data populating API
BBLOOK	;
LRAA	;Get accession data
TS
AA	;Accession Area Information
ADT
EN	;Will only run if VBECS BUNDLE 1.0 is installed.
END	;
LOCK
LRAA1
PCEFILE	;File PCE if outpatient location
DFN
LRDAA
UNIT
UID
DLOC	;Get default location and provider
BBDIQ	;Gather entry info
ACCES
TYPE
LOOP	;Find entries with the status of pending.
LK1	;Set default values