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: LRBEBA2

Package: Lab Service

Routine: LRBEBA2


Information

LRBEBA2 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRBEBA2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 5 SDG1^LRBEBA  $$GMOD^LRBEBA2  ($$GMOD,EN,GDGX,GOREF)^LRBEBA21  SLROT^LRBEBA3  ($$GEPRO,$$GOPRO,DEFAULT,GPRO)^LRBEBA4  
VA Fileman 3 ^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Changes To Lab 1 $$MODEXIST^BLRUTIL4  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Lab Service 12 LR7OB3  LR7OB69  LR7OF0  LR7OF1  LRBEBA  LRBEBA2  LRBEBA21  LRBEBA3  
LRBEBA31  LRCAPPH1  LRFAST  LRORDST  
IHS Changes To Lab 1 BLR7OB1  

Entry Points

Name Comments DBIA/ICR reference
SOP2 ;Process atomic test CPT code
GDG1(LRODT,SN,IFN) ; diagnosis and indicators back to CPRS
BLDAR(LRBEDFN,LRODT,LRSN,LRTN,LRBESMP,LRBESPC,LRBETST,LRBEAR) ; Build array
; with diagnosis and indicator info
STDN(LRODT,LRBESN,LRBETEST,LRBEAR1) ; Test and Data Number
SACC(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,LRBEX) ; Set Accession
SOP(LRBEDFN,LRBESB,LRBEAR1,LRBEPAN,LRBEROLL) ;Outpatient Resulting
GPOS(LRBESB,LRBEDN) ; Get the Place of Service
BLDAR2(LRBETST,XTEST,LRBESMP,LRBESPC) ;
SLROT(LRXST,LRTEST,LRBEOT) ;
GMOD(LRBEAA,LRBECPT) ; Get external service modifier
SDGX69(J,LRBEIEN) ; Set the diagnosis into #69
SDG1(IFN,CTR,LRBEMSG) ; Setup the DG1 segment For CPRS
DG1(LRBESTG) ; Set the DG1 segment into the ^TMP
CARR(LRBEAR,LRBEARR,LRBESAMP,LRBESPEC,LRTSTS) ; Change the array to only
; the specimen that needs to go
ZCL(LRBESTG) ; Set the ZCL segment into the ^TMP

External References

Name Field # of Occurrence
$$MODEXIST^BLRUTIL4 SOP+1
^DIC STDN+4
FILE^DIE SOP+23
UPDATE^DIE SDGX69+17
$$GET1^DIQ SDG1+4, CARR+4, SOP+18, SOP+19, SOP+20
$$ICDDX^ICDEX SDG1+6
SDG1^LRBEBA SACC+3
$$GMOD^LRBEBA2 SOP2+18
$$GMOD^LRBEBA21 GMOD+4
EN^LRBEBA21 SOP+12
GDGX^LRBEBA21 SOP2+20
GOREF^LRBEBA21 SOP2+8
SLROT^LRBEBA3 SLROT+1
$$GEPRO^LRBEBA4 SOP+8
$$GOPRO^LRBEBA4 SOP+8
DEFAULT^LRBEBA4 BLDAR+15
GPRO^LRBEBA4 SOP2+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] GET1^DIQ
69.03 GET1^DIQ
^ICD9 - [#80] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] BLDAR+20, BLDAR+21, BLDAR+22, BLDAR2+3, BLDAR2+4
^LR - [#63] SOP2+9, SOP2+11, SOP2+13*
^LRO(69 - [#69] SDGX69+6, GDG1+3, GDG1+4, BLDAR+4, BLDAR+6, BLDAR+7, BLDAR+14, STDN+5, STDN+6, SOP+15
^TMP("LRX" GDG1+6*, GDG1+7*, SDG1+2, SDG1+3
^TMP("OR" DG1+2, DG1+5*, ZCL+2, ZCL+4*, SDGX69+3, SDGX69+4

Label References

Name Line Occurrences
$$GPOS SOP2+19
BLDAR2 BLDAR+19, BLDAR+23
CARR SACC+2
SOP2 SOP+22

Naked Globals

Name Field # of Occurrence
^(0 BLDAR+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CTR SDG1~, SDG1+8*, SDG1+9*, SDG1+10*, SDG1+11*, SDG1+12*, SDG1+13*, SDG1+14*, SDG1+15*, SDG1+16*
>> DFN CARR+4, CARR+5
DGX BLDAR2+1~, BLDAR2+5*, BLDAR2+6, BLDAR2+8
DIC STDN+3*, STDN+4!, SOP+4~
DIC(0 STDN+3*
IFN GDG1~, GDG1+3, GDG1+4, GDG1+6, GDG1+7, SDG1~, SDG1+2, SDG1+3
J SDGX69~, SDGX69+3, SDGX69+4
>> LRAA SOP+8, SOP2+18
LRBE21 SOP+5~, SOP+10*, SOP+12, SOP+14
LRBEA STDN+1~, STDN+2*, STDN+4, STDN+7, STDN+8
LRBEAA GMOD~, GMOD+4
LRBEAR CARR~, CARR+3, BLDAR~, SOP2+20
LRBEAR( BLDAR+12*, BLDAR+17*, BLDAR2+5, BLDAR2+6, BLDAR2+8*, SOP2+26*
LRBEAR1 STDN~, SOP~, SOP2+8, SOP2+20
LRBEAR1( STDN+7, STDN+8*, SOP+9, SOP+22
LRBEARR CARR~, CARR+3*
LRBEARR( CARR+7, CARR+9!, CARR+11, CARR+13!, CARR+15, CARR+16!
LRBEB STDN+1~, STDN+5*, STDN+6, STDN+8
LRBEC STDN+1~, STDN+6*, STDN+8
>> LRBECDT SOP+20*, SOP+21, SOP2+7, SOP2+22
LRBECNT GDG1+1~, GDG1+2*, GDG1+7*
LRBECPT GMOD~, GMOD+3*, GMOD+4, SOP+7!*, SOP+23, SOP2+17*, SOP2+18, SOP2+21, SOP2+25
LRBECPT( SOP2+7, SOP2+16, SOP2+17, SOP2+25
LRBED STDN+1~, STDN+7*, STDN+8
LRBEDFN CARR+2~, CARR+4*, CARR+5*, CARR+7, CARR+9, CARR+11, CARR+13, CARR+15, CARR+16, BLDAR~
, BLDAR+12, BLDAR+17, BLDAR2+5, BLDAR2+6, BLDAR2+8, SOP~, SOP2+26
LRBEDGX DG1+1~, DG1+4*, DG1+5, SDGX69+1~, GDG1+1~, SDG1+1~, SDG1+4*, SDG1+7, BLDAR+11*, BLDAR+12
, SOP+4~, SOP2+20
LRBEDGX( SOP2+21, SOP2+22, SOP2+23, SOP2+24
LRBEDMSG BLDAR+2!, BLDAR+17
LRBEDN SOP+4~, SOP+22*, SOP2+2, SOP2+3, SOP2+4, SOP2+5, SOP2+7, SOP2+8, SOP2+9, SOP2+11
, SOP2+13, SOP2+19, SOP2+20, SOP2+26, GPOS~, GPOS+1
LRBEDX STDN+1~
LRBEEDT SOP+4~, SOP+7*
LRBEEPRO SOP+4~, SOP+7*, SOP+8*, SOP2+22
LRBEFIL SDGX69+1~, SDGX69+2*, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13, SDGX69+14
, SDGX69+15, SDGX69+16
LRBEIEN SDGX69~, SDGX69+5, SDGX69+6, SDG1+1~
LRBEIEN2 SDGX69+1~, SDGX69+5*, SDGX69+6*, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13
, SDGX69+14, SDGX69+15, SDGX69+16
LRBEIND ZCL+1~, ZCL+3*, ZCL+4
LRBEMOD GMOD+2~, GMOD+4*, GMOD+5, SOP2+18*, SOP2+21
LRBEMSG SDG1~, SDG1+8, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16
, BLDAR+2!, BLDAR+8*, BLDAR+9*, BLDAR+10*, BLDAR+12
>> LRBENO BLDAR+15
LRBEODT BLDAR+2!, BLDAR+3*
LRBEOPRO SOP+4~, SOP+7*, SOP+8*, SOP2+22
LRBEOT SLROT~, SLROT+1
LRBEPAN SOP~
LRBEPAN( SOP+12
LRBEPOS SOP+5~, SOP2+19*, SOP2+22
LRBEPTDT SDGX69+1~, SDGX69+4*, SDGX69+6, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13
, SDGX69+14, SDGX69+15, GDG1+1~, GDG1+4*, GDG1+5, GDG1+6, GDG1+7, SDG1+1~, SDG1+3*, SDG1+4
, SDG1+6, SDG1+7, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16
, BLDAR+2!, BLDAR+3*, STDN+1~
LRBEQTY SOP+4~, SOP+7*, SOP2+6*, SOP2+22
>> LRBERES SOP2+5, SOP2+11
LRBEROLL SOP~
LRBESAMP CARR~, CARR+8
LRBESB SOP~, SOP2+19, GPOS~
LRBESB( SOP2+2, SOP2+3, SOP2+4, SOP2+5, GPOS+1
LRBESEQ SDGX69+1~, SDGX69+2*, SDGX69+3*, SDGX69+4, SDGX69+5, SDGX69+7, SDGX69+16, GDG1+1~, GDG1+3*, GDG1+4
, SDG1+1~, SDG1+2*, SDG1+3, SDG1+8, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14
, SDG1+15, SDG1+16, BLDAR+2!, BLDAR+6*, BLDAR+7, BLDAR+14*
LRBESMP CARR+2~, CARR+6*, CARR+7*, CARR+8, CARR+9, CARR+11, CARR+13, CARR+15, CARR+16, BLDAR~
, BLDAR+12, BLDAR+17, BLDAR+19, BLDAR+23, BLDAR2~, BLDAR2+5, BLDAR2+6, BLDAR2+8
LRBESN STDN~, STDN+3, STDN+5, STDN+6
LRBESPC CARR+2~, CARR+10*, CARR+11*, CARR+12, CARR+13, CARR+15, CARR+16, BLDAR~, BLDAR+12, BLDAR+17
, BLDAR+19, BLDAR+23, BLDAR2~, BLDAR2+5, BLDAR2+6, BLDAR2+8
LRBESPEC CARR~, CARR+12
LRBESTG DG1~, DG1+4, ZCL~, ZCL+3, SOP+4~, SOP2+21*, SOP2+22*, SOP2+23*, SOP2+24*, SOP2+25*
, SOP2+26
LRBETEST STDN~
LRBETEST( STDN+2, STDN+4, STDN+7, STDN+8
LRBETNUM DG1+1~, DG1+2*, DG1+3*, DG1+5, ZCL+1~, ZCL+2*, ZCL+4
LRBETS CARR+2~, CARR+14*, CARR+15*, CARR+16
LRBETST BLDAR~, BLDAR+4, BLDAR+12, BLDAR+17, BLDAR+19, BLDAR+20, BLDAR+21, BLDAR+23, BLDAR2~, BLDAR2+5
, BLDAR2+6, SOP+4~, SOP+9*, SOP+12, SOP+15, SOP+22, SOP2+20, SOP2+21, SOP2+22, SOP2+23
, SOP2+24
LRBETSTX SOP2+1~, SOP2+7, SOP2+16, SOP2+17, SOP2+25
LRBEX ZCL+1~, ZCL+3*, ZCL+4, SDG1+1~, SDG1+7*, SDG1+8, SACC~, SACC+2
LRBEXMSG SDG1+1~, SDG1+6*, SDG1+7
LRBEZ SACC+1~, SACC+2, SACC+3
LRD BLDAR+2!, BLDAR+7*, BLDAR+8, BLDAR+9, BLDAR+10, BLDAR+11
LRDBEDGX BLDAR+2!, BLDAR+16, BLDAR+17
>> LRDFN CARR+4, SOP2+9, SOP2+11, SOP2+13
LRFDA SDGX69+1~
LRFDA(1 SOP+23*
LRFDA(99 SDGX69+7*, SDGX69+8*, SDGX69+9*, SDGX69+10*, SDGX69+11*, SDGX69+12*, SDGX69+13*, SDGX69+14*, SDGX69+15*, SDGX69+16*
LRFDAIEN SDGX69+1~
LRFDAIEN( SDGX69+7*
LRI BLDAR+18~, BLDAR+20*, BLDAR+21, BLDAR2+1~, BLDAR2+2*, BLDAR2+3*, BLDAR2+4, SOP2+16*, SOP2+17, SOP2+25
, SOP2+26
>> LRIDT SOP2+9, SOP2+11, SOP2+13
LRODT SDGX69+6, GDG1~, GDG1+3, GDG1+4, SACC~, SACC+3, BLDAR~, BLDAR+3, BLDAR+4, BLDAR+6
, BLDAR+7, BLDAR+14, STDN~, STDN+3, STDN+5, STDN+6, SOP+8, SOP+15, SOP+17, SOP2+8
LRORREFN SOP+5~, SOP+7*, SOP2+8, SOP2+24
LRSAMP SDGX69+3, SDGX69+4, SACC~, SACC+2, SACC+3
>> LRSDT SDGX69+3, SDGX69+4
LRSN SDGX69+6, SACC~, SACC+3, BLDAR~, BLDAR+4, BLDAR+6, BLDAR+7, BLDAR+14, SOP+8, SOP+15
, SOP+17, SOP2+8
LRSPEC SDGX69+3, SDGX69+4, SACC~, SACC+2, SACC+3, SOP2+7
>> LRSS SOP2+9, SOP2+11, SOP2+13
>> LRSX DG1+2, DG1+5, ZCL+2, ZCL+4
LRTEST SLROT~, SLROT+1
LRTN SACC~, SACC+3, BLDAR~, BLDAR+4*, BLDAR+5, BLDAR+6, BLDAR+7, BLDAR+14
LRTNX BLDAR+18~, BLDAR+21*, BLDAR+22, BLDAR+23, BLDAR2+1~, BLDAR2+4*, BLDAR2+8
LRTNXID BLDAR+18~, BLDAR+22*, BLDAR+23
LRTSTS SACC~, SACC+2, SACC+3, CARR~, CARR+16
LRX BLDAR2+1~, BLDAR2+6*, BLDAR2+7, BLDAR2+8
LRXST SLROT~, SLROT+1
>> LRXZ SDGX69+3, SDGX69+4
>> LRY SOP+15*, SOP+16, SOP+17*, SOP+18, SOP+19, SOP+20, SOP+23
>> ORIEN SOP+19
OUT SOP2+1~, SOP2+9*, SOP2+11*, SOP2+15
>> SAMP DG1+2, DG1+5, ZCL+2, ZCL+4
SN GDG1~, GDG1+3, GDG1+4
>> SPEC DG1+2, DG1+5, ZCL+2, ZCL+4
>> STARTDT DG1+2, DG1+5, ZCL+2, ZCL+4
>> TYPE DG1+2, DG1+5, ZCL+2, ZCL+4
U ZCL+4, SDGX69+6, SDGX69+7, SDGX69+8, SDGX69+9, SDGX69+10, SDGX69+11, SDGX69+12, SDGX69+13, SDGX69+14
, SDGX69+15, SDG1+4, SDG1+6, SDG1+7, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14
, SDG1+15, SDG1+16, BLDAR+8, BLDAR+9, BLDAR+10, BLDAR+22, STDN+4, STDN+7, STDN+8, SOP2+3
, SOP2+4, SOP2+5, SOP2+11, SOP2+13, SOP2+21, SOP2+22, SOP2+23, SOP2+24, SOP2+25, GPOS+1
X STDN+1~, STDN+4*
XTEST BLDAR2~, BLDAR2+3, BLDAR2+4
Y STDN+1~, STDN+4, STDN+5, STDN+6
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