LRBEBA3 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ;10/04/11
Source file <LRBEBA3.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
BLDAR(LRBEDFN,LRODT,LRSN,LRBEAR,LRBEY,LRBETEST,LRBEPAN,LRBEDEL) | ; Build LRBEAR array with
; CIDC information |
|
PARRAY(XTEST,PTEST,P) | ;
|
|
QRYADD(LRODT,LRSN,LRTS,LRBEDFN,LRBESMP,LRBESPC,LRBETS,LRBEX,LRBEXD) | ; Query #69 for
; default LRBEDGX and SC/EI |
|
ELIG(DFN) | ; Display eligibility and disabilities
|
|
BALROW(LRODT,LRSN,LRTEST) | ; CIDC LROW
|
|
AQ1 | ; Ask question from LRORD1
|
|
AQ2 | ; from LROW2A
|
|
SVST(ENUM,ETYP,LRODT,LRSN) | ; Set the Encounter # in #69
|
|
BALROR(LRORD) | ; CIDC LRORD
|
|
SLROT(LRXST,LRTEST,LRBEOT) | ;LROT array
|
|
MICRO1(LRODT,LRSN,LRTST,LRCNT) | ;get CIDC data for microbiology
|
|
MICRO2(LRODT,LRSN) | ;setup more CIDC data for microbiology
|
|
FINAL(LRODT,LRSN,LRTST) | ;is microbiology test complete/final?
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | BLDAR+11, BLDAR+12, BALROW+4, BALROR+5 |
$$CIDC^IBBAPI | BALROW+3, AQ1+3, AQ2+2, BALROR+4 |
BLDAR^LRBEBA2 | BLDAR+40 |
SACC^LRBEBA2 | AQ2+3 |
$$FINAL^LRBEBA3 | MICRO1+4 |
SLROT^LRBEBA3 | BALROW+6 |
$$SBA^LRBEBA31 | BALROW+7, AQ1+6, BALROR+6 |
$$GEPRO^LRBEBA4 | MICRO1+13 |
$$GOPRO^LRBEBA4 | MICRO1+12 |
$$PCETM^LRBEBAO | MICRO1+9 |
$$NLT^LRVER1 | BLDAR+20 |
DT^LRX | AQ1+4 |
ELIG^VADPT | ELIG+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^LR - [#63] | GET1^DIQ |
69.01 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(31 - [#31] | ELIG+3 |
^DPT - [#2] | ELIG+2 |
^LAB(60 - [#60] | BLDAR+18, BLDAR+20, BLDAR+21, BLDAR+22, BLDAR+23, PARRAY+2, PARRAY+3, PARRAY+4 |
^LRO(68 - [#68] | BLDAR+32, FINAL+10, FINAL+18 |
^LRO(69 - [#69] | BLDAR+14, BLDAR+15, BLDAR+16, BLDAR+17, QRYADD+4, QRYADD+6, SVST+1*, MICRO1+8, MICRO1+21, MICRO1+22 , FINAL+5, FINAL+8, FINAL+14*, FINAL+16, FINAL+17, FINAL+19* |
^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+2, AQ1+2, BALROR+3 |
Name | Line Occurrences |
---|---|
PARRAY | BLDAR+27 |
Name | Field # of Occurrence |
---|---|
^(0 | BLDAR+23, PARRAY+4, ELIG+2, ELIG+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | AQ1+4 |
AA | MICRO1+3~, MICRO1+11*, MICRO1+13, FINAL+4~, FINAL+9*, FINAL+10, FINAL+17*, FINAL+18 |
AI | FINAL+4~, FINAL+9*, FINAL+10 |
AY | FINAL+4~, FINAL+9*, FINAL+10 |
DFN | ELIG~, ELIG+2, BALROW+3, BALROW+4, AQ1+3, AQ2+2, BALROR+4, BALROR+5 |
DUZ | BLDAR+9, BALROW+2, AQ1+2, BALROR+3 |
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+2*, ELIG+6! |
I1 | ELIG+2*, ELIG+3, ELIG+5, ELIG+6! |
>> LRAA | BLDAR+32 |
>> LRAD | BLDAR+32 |
>> LRAN | BLDAR+32 |
LRBEA | QRYADD+2~, QRYADD+7*, QRYADD+8*, QRYADD+9*, QRYADD+10*, QRYADD+11, QRYADD+12, BALROW+1~, BALROR+1~, SLROT+1~ , SLROT+3*, SLROT+4, SLROT+5 |
LRBEAR | BLDAR~, BLDAR+40 |
LRBEAR( | BLDAR+3*, BLDAR+4*, BLDAR+5*, BLDAR+6*, BLDAR+7*, BLDAR+8*, BLDAR+9*, BLDAR+11* |
LRBEAT | BALROW+1~, BALROW+7*, AQ1+6*, BALROR+1~, BALROR+6* |
LRBEB | BALROW+1~, BALROR+1~ |
>> LRBECDT | BLDAR+5 |
LRBEDEL | BLDAR~, BLDAR+8 |
LRBEDFN | BLDAR~, BLDAR+3, BLDAR+4, BLDAR+5, BLDAR+6, BLDAR+7, BLDAR+8, BLDAR+9, BLDAR+11, BLDAR+40 , QRYADD~, QRYADD+11, QRYADD+12, BALROW+4*, BALROR+5* |
LRBEIEN | BLDAR+2~, BLDAR+10*, BLDAR+11, BLDAR+12 |
LRBEODT | BLDAR+2~, AQ1+4!*, BALROR+1~ |
LRBEOT | BALROW+1~, BALROW+6, BALROW+7, BALROR+2~, SLROT~ |
LRBEOT( | SLROT+5* |
LRBEPAN | BLDAR~ |
LRBEPAN( | BLDAR+18*, BLDAR+25, PARRAY+6 |
>> LRBEPTDT | QRYADD+6*, QRYADD+7, QRYADD+8, QRYADD+9, QRYADD+10 |
LRBEQT | BALROW+1~, BALROW+7, AQ1+6, BALROR+1~, BALROR+6 |
>> LRBESB( | BLDAR+24, PARRAY+5 |
LRBESMP | QRYADD~, QRYADD+11, QRYADD+12, SLROT+1~, SLROT+2*, SLROT+3, SLROT+4, SLROT+5 |
LRBESN | BALROW+1~, BALROR+1~ |
LRBESPC | QRYADD~, QRYADD+11, QRYADD+12, SLROT+1~, SLROT+4*, SLROT+5 |
LRBET | BALROW+1~, BALROR+1~ |
LRBETEST | BLDAR~ |
LRBETEST( | BLDAR+19, BLDAR+20*, BLDAR+38, BLDAR+39 |
LRBETEST("" | BLDAR+20 |
LRBETM | MICRO1+2~, MICRO1+8*, MICRO1+9*, MICRO1+10 |
LRBETN | BALROR+2~ |
LRBETS | BLDAR+2~, BLDAR+14*, BLDAR+15, BLDAR+18, BLDAR+19, BLDAR+20, BLDAR+21, BLDAR+22, BLDAR+24, BLDAR+25 , BLDAR+27, BLDAR+30, BLDAR+32, BLDAR+33, BLDAR+34, BLDAR+35, BLDAR+36, BLDAR+38*, BLDAR+39, BLDAR+40 , QRYADD~, QRYADD+11, QRYADD+12, BALROW+1~, BALROR+1~ |
LRBETST | BLDAR+2~, BLDAR+39*, BLDAR+40, BALROW+1~, BALROR+1~ |
LRBEVAL | BALROW+1~, BALROW+2*, BALROW+3*, AQ1+1~, AQ1+2*, AQ1+3*, AQ2+1~, AQ2+2*, BALROR+2~, BALROR+3* , BALROR+4* |
LRBEX | QRYADD~, BALROW+7, AQ1+6, AQ2+3, BALROR+6 |
LRBEX( | QRYADD+11* |
LRBEXD | QRYADD~ |
LRBEXD( | QRYADD+12* |
LRBEY | BLDAR~, BALROW+7*, AQ1+6*, BALROR+6* |
LRBEY( | BLDAR+32!, BLDAR+34*, BLDAR+36* |
LRBEZ | BALROR+2~ |
LRCEX | FINAL+4~, FINAL+5*, FINAL+19 |
LRCNT | ELIG+3*, ELIG+5, ELIG+6!, MICRO1~, MICRO1+5, MICRO1+10, MICRO1+16, MICRO1+17, MICRO1+19, MICRO1+24 , MICRO1+25 |
>> LRDFN | BALROW+4, BALROW+7, AQ1+6, BALROR+5, BALROR+6 |
LRDGX | QRYADD+2~, QRYADD+3*, QRYADD+4*, QRYADD+6 |
LRDGXD | QRYADD+2~, QRYADD+5*, QRYADD+10*, QRYADD+12 |
LRDIS | ELIG+3*, ELIG+4*, ELIG+5, ELIG+6! |
LRDX | QRYADD+2~ |
>> LRI | AQ2+3 |
LRJ | BLDAR+2~, BLDAR+15*, BLDAR+16, BLDAR+17 |
LROA | FINAL+4~, FINAL+6*, FINAL+19 |
LRODT | BLDAR~, BLDAR+10, BLDAR+14, BLDAR+15, BLDAR+16, BLDAR+17, BLDAR+40, QRYADD~, QRYADD+4, QRYADD+6 , BALROW~, AQ2+3, SVST~, SVST+1, MICRO1~, MICRO1+4, MICRO1+8, MICRO1+12, MICRO1+20, MICRO1+21 , MICRO1+22, MICRO2~, MICRO2+4, FINAL~, FINAL+5, FINAL+6, FINAL+8, FINAL+14, FINAL+16, FINAL+17 |
>> LROOS | BLDAR+3, BLDAR+7 |
LRORD | BALROR~ |
>> LROT | AQ1+6, BALROR+6 |
>> LRSAMP | BLDAR+12*, BLDAR+40 |
LRSN | BLDAR~, BLDAR+10, BLDAR+14, BLDAR+15, BLDAR+16, BLDAR+17, BLDAR+40, QRYADD~, QRYADD+4, QRYADD+6 , BALROW~, BALROW+5*, AQ2+3, SVST~, SVST+1, MICRO1~, MICRO1+4, MICRO1+8, MICRO1+12, MICRO1+20 , MICRO1+21, MICRO1+22, MICRO2~, MICRO2+4, FINAL~, FINAL+5, FINAL+6, FINAL+8, FINAL+14, FINAL+16 , FINAL+17 |
>> LRSPEC | BLDAR+40, AQ2+3 |
>> LRSS | BALROW+6*, AQ1+5* |
>> LRSSP | AQ2+3 |
LRTEST | BALROW~, BALROW+6, SLROT~ |
LRTEST( | AQ2+3, SLROT+5 |
>> LRTN | AQ2+3 |
LRTS | QRYADD~, QRYADD+4, QRYADD+6 |
LRTST | MICRO1~, MICRO1+4, MICRO1+21, MICRO1+22, FINAL~, FINAL+8, FINAL+14 |
LRXST | BALROW+6, SLROT~ |
LRXST( | SLROT+2, SLROT+3, SLROT+4 |
MOD | MICRO1+3~ |
N | BLDAR+2~, BLDAR+19*, BLDAR+20*, MICRO1+3~, MICRO1+21*, MICRO1+22, MICRO1+24, MICRO1+25 |
NODEA | FINAL+4~, FINAL+7*, FINAL+10*, FINAL+12 |
NODEO | FINAL+4~, FINAL+8*, FINAL+9, FINAL+12, FINAL+17*, FINAL+18 |
NOKILL | FINAL+4~, FINAL+15*, FINAL+18*, FINAL+19 |
NX | BLDAR+2~, BLDAR+21*, BLDAR+22, PARRAY+1~, PARRAY+2*, PARRAY+3 |
OK | BLDAR+2~, BLDAR+19*, BLDAR+20 |
ORD | MICRO1+3~, MICRO1+18*, MICRO1+19 |
>> ORIEN | BLDAR+17 |
P | BLDAR+2~, BLDAR+27, PARRAY~ |
P( | BLDAR+24*, BLDAR+25*, BLDAR+30, BLDAR+33, BLDAR+35, BLDAR+36, PARRAY+5*, PARRAY+6* |
PTEST | PARRAY~, PARRAY+5, PARRAY+6 |
REQX | BLDAR+2~, BLDAR+23*, BLDAR+25, PARRAY+1~, PARRAY+4*, PARRAY+6 |
RETURN | FINAL+4~, FINAL+7*, FINAL+12*, FINAL+13, FINAL+20 |
TST | FINAL+4~, FINAL+9*, FINAL+10 |
TT | FINAL+4~, FINAL+16*, FINAL+17 |
U | BLDAR+16, BLDAR+17, BLDAR+18, BLDAR+20, BLDAR+23, BLDAR+39, PARRAY+4, QRYADD+7, QRYADD+8, QRYADD+9 , QRYADD+10, QRYADD+11, QRYADD+12, AQ2+3, 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+5, FINAL+9, FINAL+12, FINAL+14, FINAL+17, FINAL+18 |
VAEL | ELIG+6! |
VAEL(1 | ELIG+1 |
VAEL(3 | ELIG+1 |
X | BLDAR+2~, BLDAR+22*, BLDAR+23, BLDAR+24, BLDAR+25, BLDAR+27, BLDAR+35*, BLDAR+36, 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+2~, BLDAR+23*, BLDAR+24, BLDAR+25, BLDAR+27, BLDAR+33*, BLDAR+34, BLDAR+35, BLDAR+36, PARRAY+1~ , PARRAY+4*, PARRAY+5, PARRAY+6 |