Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRBEBAO

Package: Lab Service

Routine: LRBEBAO


Information

LRBEBAO ;DALOI/JAH/FHS - ORDERING AND RESULTING FOR OUTPATIENTS ;8/10/04

Source Information

Source file <LRBEBAO.m>

Call Graph

Call Graph

Call Graph Total: 5

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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*

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All