Routine: LRBEBAO

Package	Total	Call Graph
Integrated Billing	1	$$SWSTAT^IBBAPI
Kernel	1	$$NOW^XLFDT
Lab Service	1	SVST^LRBEBA3
PCE Patient Care Encounter	1	$$DATA2PCE^PXAPI
VA FileMan	1	^DIC

Package	Total	Caller Graph
Lab Service	2	LRBEBA LRBEBA3

Entry Points

Name	Comments	DBIA/ICR reference
OPORD	; Outpatient Order Entry
EN	;
OPWRK	; More Outpatient Work
GETT(X)	; Indicators for ^TMP
OPRES(LRBEAR,LRBEAR1,LRODT,LRSN,LRBEVST)	; Outpatient Final Resulting ; Inputs: ; LRBEDN - Data Number of Test in #63 field 400 ; LRBEAR(LRBEDFN,"VST") - Patient's Encounter Number #9000010 ; LRBEAR(LRBEDFN,"LRBEDGX",LRBEDN) ; Piece Desc ; 1 - Procedure (CPT) ; 2 - Modifiers (Sub-delimited by "~") ; 3 - Diagnosis ; 4 - Diagnosis 2 ; 5 - Diagnosis 3 ; 6 - Diagnosis 4 ; 7 - Event D/T (DOS) ; 8 - Encounter Provider ; 9 - Ordering Provider ; 10 - Quantity (Number of times procedure was performed) ; 11 - Place of Service ; Output: ; LRBEAR1(VISIT,TST,LRBEPOV)=LRBEDGX ; VISIT - Pointer to VISIT (9000010) file ; TST - Ordered Test ; LRBEPOV - Pointer to V POV (#9000010.07) file ; LRBEDGX - Pointer to Diagnosis (#80)
SEND	; Send if procedure is defined
END
OPWRK2	; Outpatient Work Two
OPWRK3	;
INIT	;Setup PCE variables
PCETM(LRBETM)	;Return date/time without seconds

Name	Field # of Occurrence
^DIC	INIT+3
$$SWSTAT^IBBAPI	OPRES+26
SVST^LRBEBA3	SEND+13
$$DATA2PCE^PXAPI	SEND+9
$$NOW^XLFDT	SEND+4

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LRO(68 - [#68]	OPRES+40
^LRO(69 - [#69]	OPRES+33, OPRES+35
^TMP("LRPXAPI"	EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12, EN+13, EN+15, OPWRK+17 , OPWRK+18, OPWRK+21, OPWRK+23, OPWRK+28, OPWRK+31, OPWRK+33, SEND+2, SEND+7, SEND+12, END! , OPWRK3+6, OPWRK3+7, OPWRK3+8, OPWRK3+9, OPWRK3+12, OPWRK3+13, OPWRK3+15, OPWRK3+17, OPWRK3+19, OPWRK3+21* , OPWRK3+23, OPWRK3+27, OPWRK3+29, OPWRK3+31, OPWRK3+33, OPWRK3+35, OPWRK3+37, OPWRK3+39, OPWRK3+41, OPWRK3+43 , OPWRK3+45, OPWRK3+47, OPWRK3+48!
^XTMP("LRPCELOG"	SEND+3, SEND+4, SEND+7, SEND+8, SEND+10, SEND+11, SEND+12

Name	Line Occurrences
$$GETT	OPWRK+20, OPWRK+30
$$PCETM	EN+5, OPWRK3+26
END	SEND+2
INIT	EN+1, OPRES+24
OPWRK	EN+20
OPWRK2	OPRES+38
OPWRK3	OPWRK2+2
SEND	OPRES+40

Name	Field # of Occurrence
^(0	OPRES+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	OPWRK+1~, OPWRK+11, OPWRK+19, OPWRK+20, OPWRK+21, OPWRK+23, OPWRK+29*, OPWRK+30, OPWRK+31, OPWRK+33
BG	OPWRK+1~, OPWRK+20, OPWRK+21, OPWRK+23, OPWRK+30, OPWRK+31, OPWRK+33
DIC	INIT+3*, INIT+6!
DIC(0	INIT+3*
DT	EN+4
DUZ	INIT+5
DX	OPWRK+1~
DX(	OPWRK+10, OPWRK+12*
DX(1	OPWRK+15, OPWRK+16
DX(2	OPWRK+26, OPWRK+27
>> ERRDIS	SEND+9, INIT+5*
>> INROOT	SEND+9, INIT+1*
JJ	OPWRK3+1~, OPWRK3+6*, OPWRK3+7, OPWRK3+8, OPWRK3+9
>> LRAA	OPRES+40
>> LRACC	SEND+6
LRACCX	SEND+5~, SEND+6*, SEND+8
LRBEAR	OPRES~
LRBEAR(	EN+3, EN+8, EN+9, EN+12, EN+14, EN+15, EN+17, EN+19, OPWRK+6, OPWRK+7 , OPRES+36, OPRES+37, OPWRK2+2, OPWRK3+2
LRBEAR1	OPRES~
>> LRBECDT	EN+4
>> LRBECPT(	OPWRK+3, OPWRK+4
>> LRBEDFN	EN+3, EN+8, EN+9, EN+12, EN+14, EN+15, EN+17, EN+19, OPWRK+6, OPWRK+7 , OPRES+36, OPRES+37, OPWRK2+2, OPWRK3+2
>> LRBEDGX	OPWRK+5, OPWRK+6, OPWRK+7, OPWRK+10, OPWRK+12, OPWRK+14, OPWRK+15, OPWRK+16, OPWRK+17, OPWRK+25* , OPWRK+26*, OPWRK+27, OPWRK+28
LRBEDIA	OPWRK+1~, OPWRK+16, OPWRK+17, OPWRK+18, OPWRK+21, OPWRK+27, OPWRK+28, OPWRK+31
>> LRBEDN	OPWRK2+2*, OPWRK3+2
>> LRBEIEN	OPWRK3+10*
LRBEPTDT	OPWRK+7, OPWRK+8, OPWRK2+1!, OPWRK3+2, OPWRK3+3, OPWRK3+4, OPWRK3+5*, OPWRK3+11, OPWRK3+12, OPWRK3+14 , OPWRK3+15, OPWRK3+16, OPWRK3+17, OPWRK3+18, OPWRK3+19, OPWRK3+20, OPWRK3+21, OPWRK3+22, OPWRK3+23, OPWRK3+24 , OPWRK3+25, OPWRK3+28, OPWRK3+29, OPWRK3+30, OPWRK3+31, OPWRK3+32, OPWRK3+33, OPWRK3+34, OPWRK3+35, OPWRK3+36 , OPWRK3+37, OPWRK3+38, OPWRK3+39, OPWRK3+40, OPWRK3+41, OPWRK3+42, OPWRK3+43, OPWRK3+46, OPWRK3+47
>> LRBESMP	EN+16, EN+17, EN+19, OPWRK+6, OPWRK+7
>> LRBESPC	EN+18, EN+19, OPWRK+6, OPWRK+7
LRBETM	EN+4, EN+5, EN+6, OPWRK3+25~, OPWRK3+26, OPWRK3+27, OPWRK3+44, PCETM~, PCETM+2, PCETM+3 , PCETM+4, PCETM+9, PCETM+10
LRBETNUM	OPWRK+4, END!, OPWRK3+10, OPWRK3+12, OPWRK3+13, OPWRK3+15, OPWRK3+17, OPWRK3+19, OPWRK3+21, OPWRK3+23 , OPWRK3+27, OPWRK3+29, OPWRK3+31, OPWRK3+33, OPWRK3+35, OPWRK3+37, OPWRK3+39, OPWRK3+41, OPWRK3+43, OPWRK3+45 , OPWRK3+47, OPWRK3+48, INIT+5*
>> LRBETST	OPWRK+3*, OPWRK+4, OPWRK+6, OPWRK+7
>> LRBEVSIT	SEND+9, SEND+11, SEND+13
LRBEVST	OPRES~
>> LRCDT	EN+4
>> LRDBEDGX	OPRES+30, OPRES+32, OPRES+33, OPRES+35, OPWRK3+5, OPWRK3+7
>> LRI	OPRES+37*, OPWRK2+2, OPWRK3+2
LRLNOW	SEND+1~, SEND+4*, SEND+7, SEND+8, SEND+10, SEND+11, SEND+12
LRODT	OPRES~, OPRES+33, OPRES+35, SEND+13, OPWRK3+10
>> LROOS	EN+7
>> LRPKG	SEND+9, INIT+2, INIT+4*
LRSN	OPRES~, OPRES+33, OPRES+35, SEND+13, OPWRK3+10
LRSWDATE	OPRES+25~, OPRES+27*, OPWRK3+44
LRSWSTAT	OPRES+25~, OPRES+26, OPRES+27, OPRES+28, OPWRK3+44
>> LRUID	SEND+6
LRUIDX	SEND+5~, SEND+6*, SEND+8
LRVX	SEND+1~, SEND+9*, SEND+11
LRX	OPRES+31~, OPRES+32, OPRES+33, OPRES+35
N	OPWRK+1~, OPWRK+8*, OPWRK+10, OPWRK+12
PCETM	PCETM+1~, PCETM+4, PCETM+5, PCETM+6, PCETM+7, PCETM+8*, PCETM+9
PXALOOK	SEND+1~
PXUCV	SEND+1~
>> SRC	SEND+9, INIT+5*
>> SUB1	EN+2, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+15, OPWRK+23, OPWRK+33 , OPRES+29, OPWRK3+12, OPWRK3+13, OPWRK3+15, OPWRK3+17, OPWRK3+19, OPWRK3+21, OPWRK3+23, OPWRK3+27, OPWRK3+29 , OPWRK3+31, OPWRK3+33, OPWRK3+35, OPWRK3+37, OPWRK3+39, OPWRK3+41, OPWRK3+43, OPWRK3+47, OPWRK3+48
>> SUB2	EN+2*, OPWRK+17, OPWRK+18, OPWRK+21, OPWRK+28, OPWRK+31
>> SUB3	EN+2*, EN+12, EN+13
U	OPWRK+8, OPWRK+11, OPWRK+19, OPWRK+21, OPWRK+23, OPWRK+29, OPWRK+31, OPWRK+33, OPRES+27, OPRES+28 , OPRES+40, SEND+8, SEND+11, OPWRK3+4, OPWRK3+5, OPWRK3+11, OPWRK3+12, OPWRK3+14, OPWRK3+15, OPWRK3+16 , OPWRK3+17, OPWRK3+18, OPWRK3+19, OPWRK3+20, OPWRK3+21, OPWRK3+22, OPWRK3+23, OPWRK3+24, OPWRK3+25, OPWRK3+28 , OPWRK3+29, OPWRK3+30, OPWRK3+31, OPWRK3+32, OPWRK3+33, OPWRK3+34, OPWRK3+35, OPWRK3+36, OPWRK3+37, OPWRK3+38 , OPWRK3+39, OPWRK3+40, OPWRK3+41, OPWRK3+42, OPWRK3+43, OPWRK3+46, OPWRK3+47
>> USR	SEND+9, INIT+5*
X	OPWRK+1~, OPWRK+8, OPWRK+11, GETT~, GETT+1, GETT+2, INIT+3
XX	OPWRK+1~, OPWRK+10, OPWRK+11, OPWRK+12, OPWRK+16, OPWRK+19, OPWRK+21, OPWRK+23, OPWRK+27, OPWRK+29 , OPWRK+31, OPWRK+33
>> Y	INIT+4

Customize PDF page

Package: Lab Service

Routine: LRBEBAO

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: