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 |