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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBEBA3

Package: Lab Service

Routine: LRBEBA3


Information

LRBEBA3 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ;8/10/04

Source Information

Source file <LRBEBA3.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 7 (BLDAR,SACC)^LRBEBA2  ($$FINAL,SLROT)^LRBEBA3  $$SBA^LRBEBA31  ($$GEPRO,$$GOPRO)^LRBEBA4  $$PCETM^LRBEBAO  $$NLT^LRVER1  DT^LRX  
IHS Changes To Lab 1 $$MODEXIST^BLRUTIL4  
Integrated Billing 1 $$CIDC^IBBAPI  
Registration 1 ELIG^VADPT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Lab Service 10 LRBEBA  LRBEBA2  LRBEBA3  LRBEBA31  LRBEBAO  LRCAPPH1  LRFAST  LRORD1  
LROW  LROW2A  

Entry Points

Name Comments DBIA/ICR reference
BALROW(LRODT,LRSN,LRTEST) ; CIDC LROW
BLDAR(LRBEDFN,LRODT,LRSN,LRBEAR,LRBEY,LRBETEST,LRBEPAN,LRBEDEL) ; Build LRBEAR array with
AQ1 ; Ask question from LRORD1
AQ2 ; from LROW2A
FINAL(LRODT,LRSN,LRTST) ;is microbiology test complete/final?
MICRO1(LRODT,LRSN,LRTST,LRCNT) ;get CIDC data for microbiology
PARRAY(XTEST,PTEST,P) ;
BALROR(LRORD) ; CIDC LRORD
SLROT(LRXST,LRTEST,LRBEOT) ;LROT array
ELIG(DFN) ; Display eligibility and disabilities
MICRO2(LRODT,LRSN) ;setup more CIDC data for microbiology
QRYADD(LRODT,LRSN,LRTS,LRBEDFN,LRBESMP,LRBESPC,LRBETS,LRBEX,LRBEXD) ; Query #69 for
SVST(ENUM,ETYP,LRODT,LRSN) ; Set the Encounter # in #69

External References

Name Field # of Occurrence
$$MODEXIST^BLRUTIL4 BLDAR+1, QRYADD+1, ELIG+1, BALROW+1, AQ1+1, AQ2+1, BALROR+1
$$GET1^DIQ BLDAR+13, BLDAR+14, BALROW+6, BALROR+7
$$CIDC^IBBAPI BALROW+5, AQ1+5, AQ2+4, BALROR+6
BLDAR^LRBEBA2 BLDAR+42
SACC^LRBEBA2 AQ2+5
$$FINAL^LRBEBA3 MICRO1+4
SLROT^LRBEBA3 BALROW+8
$$SBA^LRBEBA31 BALROW+9, AQ1+8, BALROR+8
$$GEPRO^LRBEBA4 MICRO1+13
$$GOPRO^LRBEBA4 MICRO1+12
$$PCETM^LRBEBAO MICRO1+9
$$NLT^LRVER1 BLDAR+22
DT^LRX AQ1+6
ELIG^VADPT ELIG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"")
  • Line Location: ELIG+3
Function Call: WRITE
  • Prompt: ?15,LRDIS_" - "_LRCNT_"%("_$S($P(I1,"^",3):"SC",1:"NSC")_")",!
  • Line Location: ELIG+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] GET1^DIQ
69.01 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(31 - [#31] ELIG+5
^DPT - [#2] ELIG+4
^LAB(60 - [#60] BLDAR+20, BLDAR+22, BLDAR+23, BLDAR+24, BLDAR+25, PARRAY+2, PARRAY+3, PARRAY+4
^LRO(68 - [#68] BLDAR+34, FINAL+8, FINAL+16
^LRO(69 - [#69] BLDAR+16, BLDAR+17, BLDAR+18, BLDAR+19, QRYADD+6, QRYADD+8, SVST+1*, MICRO1+8, MICRO1+21, MICRO1+22
, FINAL+6, FINAL+12*, FINAL+14, FINAL+15, FINAL+17*
^TMP("LRBEDX" MICRO1+7, MICRO1+20*, MICRO1+23*, MICRO2+3, MICRO2+5, MICRO2+7, MICRO2+8
^TMP("LRPXAPI" MICRO1+5!, MICRO1+10*, MICRO1+14*, MICRO1+15*, MICRO1+16*, MICRO1+17*, MICRO1+19*, MICRO1+24*, MICRO1+25*, MICRO2+9*
, MICRO2+10*, MICRO2+11*, MICRO2+12*, MICRO2+13*, MICRO2+14*, MICRO2+15*, MICRO2+16*, MICRO2+17*, MICRO2+18*, MICRO2+21*
^XUSEC("PROVIDER" BALROW+4, AQ1+4, BALROR+5

Label References

Name Line Occurrences
PARRAY BLDAR+29

Naked Globals

Name Field # of Occurrence
^(0 BLDAR+25, PARRAY+4, ELIG+4, ELIG+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AQ1+6
AA MICRO1+3~, MICRO1+11*, MICRO1+13, FINAL+4~, FINAL+7*, FINAL+8, FINAL+15*, FINAL+16
AI FINAL+4~, FINAL+7*, FINAL+8
AY FINAL+4~, FINAL+7*, FINAL+8
DFN ELIG~, ELIG+4, BALROW+5, BALROW+6, AQ1+5, AQ2+4, BALROR+6, BALROR+7
DUZ BLDAR+11, BALROW+4, AQ1+4, BALROR+5
DX MICRO1+3~
DXCNT MICRO1+3~, MICRO1+7*, MICRO1+23*, MICRO2+2~, MICRO2+5*, MICRO2+6, MICRO2+7*, MICRO2+8, MICRO2+9, MICRO2+10
, MICRO2+11, MICRO2+12, MICRO2+13, MICRO2+14, MICRO2+15, MICRO2+16, MICRO2+17, MICRO2+18
EI MICRO2+2~, MICRO2+19*, MICRO2+20, MICRO2+21
EIX MICRO2+2~
EIX( MICRO2+20*, MICRO2+21
EIX("AO" MICRO2+12*
EIX("CV" MICRO2+11*
EIX("EC" MICRO2+14*
EIX("HNC" MICRO2+16*
EIX("IR" MICRO2+13*
EIX("MST" MICRO2+15*
EIX("SC" MICRO2+10*
EIX("SHAD" MICRO2+17*
ENUM SVST~, SVST+1
ETYP SVST~, SVST+1
FINAL MICRO1+3~, MICRO1+4*, MICRO1+5, MICRO1+11, MICRO1+18
GEPRO MICRO1+3~, MICRO1+13*, MICRO1+17
GOPRO MICRO1+3~, MICRO1+12*, MICRO1+14, MICRO1+16
I ELIG+4*, ELIG+8!
I1 ELIG+4*, ELIG+5, ELIG+7, ELIG+8!
>> LRAA BLDAR+34
>> LRAD BLDAR+34
>> LRAN BLDAR+34
LRBEA QRYADD+4~, QRYADD+9*, QRYADD+10*, QRYADD+11*, QRYADD+12*, QRYADD+13, QRYADD+14, BALROW+3~, BALROR+3~, SLROT+1~
, SLROT+3*, SLROT+4, SLROT+5
LRBEAR BLDAR~, BLDAR+42
LRBEAR( BLDAR+5*, BLDAR+6*, BLDAR+7*, BLDAR+8*, BLDAR+9*, BLDAR+10*, BLDAR+11*, BLDAR+13*
LRBEAT BALROW+3~, BALROW+9*, AQ1+8*, BALROR+3~, BALROR+8*
LRBEB BALROW+3~, BALROR+3~
>> LRBECDT BLDAR+7
LRBEDEL BLDAR~, BLDAR+10
LRBEDFN BLDAR~, BLDAR+5, BLDAR+6, BLDAR+7, BLDAR+8, BLDAR+9, BLDAR+10, BLDAR+11, BLDAR+13, BLDAR+42
, QRYADD~, QRYADD+13, QRYADD+14, BALROW+6*, BALROR+7*
LRBEIEN BLDAR+4~, BLDAR+12*, BLDAR+13, BLDAR+14
LRBEODT BLDAR+4~, AQ1+6!*, BALROR+3~
LRBEOT BALROW+3~, BALROW+8, BALROW+9, BALROR+4~, SLROT~
LRBEOT( SLROT+5*
LRBEPAN BLDAR~
LRBEPAN( BLDAR+20*, BLDAR+27, PARRAY+6
>> LRBEPTDT QRYADD+8*, QRYADD+9, QRYADD+10, QRYADD+11, QRYADD+12
LRBEQT BALROW+3~, BALROW+9, AQ1+8, BALROR+3~, BALROR+8
>> LRBESB( BLDAR+26, PARRAY+5
LRBESMP QRYADD~, QRYADD+13, QRYADD+14, SLROT+1~, SLROT+2*, SLROT+3, SLROT+4, SLROT+5
LRBESN BALROW+3~, BALROR+3~
LRBESPC QRYADD~, QRYADD+13, QRYADD+14, SLROT+1~, SLROT+4*, SLROT+5
LRBET BALROW+3~, BALROR+3~
LRBETEST BLDAR~
LRBETEST( BLDAR+21, BLDAR+22*, BLDAR+40, BLDAR+41
LRBETEST("" BLDAR+22
LRBETM MICRO1+2~, MICRO1+8*, MICRO1+9*, MICRO1+10
LRBETN BALROR+4~
LRBETS BLDAR+4~, BLDAR+16*, BLDAR+17, BLDAR+20, BLDAR+21, BLDAR+22, BLDAR+23, BLDAR+24, BLDAR+26, BLDAR+27
, BLDAR+29, BLDAR+32, BLDAR+34, BLDAR+35, BLDAR+36, BLDAR+37, BLDAR+38, BLDAR+40*, BLDAR+41, BLDAR+42
, QRYADD~, QRYADD+13, QRYADD+14, BALROW+3~, BALROR+3~
LRBETST BLDAR+4~, BLDAR+41*, BLDAR+42, BALROW+3~, BALROR+3~
LRBEVAL BALROW+3~, BALROW+4*, BALROW+5*, AQ1+3~, AQ1+4*, AQ1+5*, AQ2+3~, AQ2+4*, BALROR+4~, BALROR+5*
, BALROR+6*
LRBEX QRYADD~, BALROW+9, AQ1+8, AQ2+5, BALROR+8
LRBEX( QRYADD+13*
LRBEXD QRYADD~
LRBEXD( QRYADD+14*
LRBEY BLDAR~, BALROW+9*, AQ1+8*, BALROR+8*
LRBEY( BLDAR+34!, BLDAR+36*, BLDAR+38*
LRBEZ BALROR+4~
>> LRCEX FINAL+17
LRCNT ELIG+5*, ELIG+7, ELIG+8!, MICRO1~, MICRO1+5, MICRO1+10, MICRO1+16, MICRO1+17, MICRO1+19, MICRO1+24
, MICRO1+25
>> LRDFN BALROW+6, BALROW+9, AQ1+8, BALROR+7, BALROR+8
LRDGX QRYADD+4~, QRYADD+5*, QRYADD+6*, QRYADD+8
LRDGXD QRYADD+4~, QRYADD+7*, QRYADD+12*, QRYADD+14
LRDIS ELIG+5*, ELIG+6*, ELIG+7, ELIG+8!
LRDX QRYADD+4~
>> LRI AQ2+5
LRJ BLDAR+4~, BLDAR+17*, BLDAR+18, BLDAR+19
>> LROA FINAL+17
LRODT BLDAR~, BLDAR+12, BLDAR+16, BLDAR+17, BLDAR+18, BLDAR+19, BLDAR+42, QRYADD~, QRYADD+6, QRYADD+8
, BALROW~, AQ2+5, SVST~, SVST+1, MICRO1~, MICRO1+4, MICRO1+8, MICRO1+12, MICRO1+20, MICRO1+21
, MICRO1+22, MICRO2~, MICRO2+4, FINAL~, FINAL+6, FINAL+12, FINAL+14, FINAL+15
>> LROOS BLDAR+5, BLDAR+9
LRORD BALROR~
>> LROT AQ1+8, BALROR+8
>> LRSAMP BLDAR+14*, BLDAR+42
LRSN BLDAR~, BLDAR+12, BLDAR+16, BLDAR+17, BLDAR+18, BLDAR+19, BLDAR+42, QRYADD~, QRYADD+6, QRYADD+8
, BALROW~, BALROW+7*, AQ2+5, SVST~, SVST+1, MICRO1~, MICRO1+4, MICRO1+8, MICRO1+12, MICRO1+20
, MICRO1+21, MICRO1+22, MICRO2~, MICRO2+4, FINAL~, FINAL+6, FINAL+12, FINAL+14, FINAL+15
>> LRSPEC BLDAR+42, AQ2+5
>> LRSS BALROW+8*, AQ1+7*
>> LRSSP AQ2+5
LRTEST BALROW~, BALROW+8, SLROT~
LRTEST( AQ2+5, SLROT+5
>> LRTN AQ2+5
LRTS QRYADD~, QRYADD+6, QRYADD+8
LRTST MICRO1~, MICRO1+4, MICRO1+21, MICRO1+22, FINAL~, FINAL+6, FINAL+12
LRXST BALROW+8, SLROT~
LRXST( SLROT+2, SLROT+3, SLROT+4
MOD MICRO1+3~
N BLDAR+4~, BLDAR+21*, BLDAR+22*, MICRO1+3~, MICRO1+21*, MICRO1+22, MICRO1+24, MICRO1+25
NODEA FINAL+4~, FINAL+5*, FINAL+8*, FINAL+10
NODEO FINAL+4~, FINAL+6*, FINAL+7, FINAL+10, FINAL+15*, FINAL+16
NOKILL FINAL+4~, FINAL+13*, FINAL+16*, FINAL+17
NX BLDAR+4~, BLDAR+23*, BLDAR+24, PARRAY+1~, PARRAY+2*, PARRAY+3
OK BLDAR+4~, BLDAR+21*, BLDAR+22
ORD MICRO1+3~, MICRO1+18*, MICRO1+19
>> ORIEN BLDAR+19
P BLDAR+4~, BLDAR+29, PARRAY~
P( BLDAR+26*, BLDAR+27*, BLDAR+32, BLDAR+35, BLDAR+37, BLDAR+38, PARRAY+5*, PARRAY+6*
PTEST PARRAY~, PARRAY+5, PARRAY+6
REQX BLDAR+4~, BLDAR+25*, BLDAR+27, PARRAY+1~, PARRAY+4*, PARRAY+6
RETURN FINAL+4~, FINAL+5*, FINAL+10*, FINAL+11, FINAL+18
TST FINAL+4~, FINAL+7*, FINAL+8
TT FINAL+4~, FINAL+14*, FINAL+15
U BLDAR+18, BLDAR+19, BLDAR+20, BLDAR+22, BLDAR+25, BLDAR+41, PARRAY+4, QRYADD+9, QRYADD+10, QRYADD+11
, QRYADD+12, QRYADD+13, QRYADD+14, AQ2+5, SLROT+4, SLROT+5, MICRO1+5, MICRO1+8, MICRO1+11, MICRO1+18
, MICRO1+20, MICRO1+24, MICRO1+25, MICRO2+4, MICRO2+9, MICRO2+10, MICRO2+11, MICRO2+12, MICRO2+13, MICRO2+14
, MICRO2+15, MICRO2+16, MICRO2+17, MICRO2+18, FINAL+7, FINAL+10, FINAL+12, FINAL+15, FINAL+16
VAEL ELIG+8!
VAEL(1 ELIG+3
VAEL(3 ELIG+3
X BLDAR+4~, BLDAR+24*, BLDAR+25, BLDAR+26, BLDAR+27, BLDAR+29, BLDAR+37*, BLDAR+38, PARRAY+1~, PARRAY+3*
, PARRAY+4, PARRAY+5, PARRAY+6, MICRO1+3~, MICRO1+22*, MICRO1+23, MICRO1+24, MICRO1+25, MICRO2+2~, MICRO2+3*
, MICRO2+4, MICRO2+8*, MICRO2+9, MICRO2+10, MICRO2+11, MICRO2+12, MICRO2+13, MICRO2+14, MICRO2+15, MICRO2+16
, MICRO2+17, MICRO2+18, FINAL+4~
XTEST PARRAY~, PARRAY+2, PARRAY+3
XX BLDAR+4~, BLDAR+25*, BLDAR+26, BLDAR+27, BLDAR+29, BLDAR+35*, BLDAR+36, BLDAR+37, BLDAR+38, PARRAY+1~
, PARRAY+4*, PARRAY+5, PARRAY+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All