LRBEBA ;DALOI/JAH/FHS - SCI, EI, AND LRBEDGX QUESTIONS ;8/10/04
Source file <LRBEBA.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 |
|---|---|---|
| QUES(LRBEDFN,LRBESMP,LRBESPC,TST,DT,LRBEAR,LRBEDP) | ; Start asking questions
|
|
| SCI(LRBEDFN,LRBECDT,LRBEQT) | ; Ask the Indicator Questions
|
|
| GETI(LRBEA) | ; Get type of Indicator
|
|
| ERRMSG(MT) | ; Display Error Message
|
|
| SDG1(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,LRBEAR) | ; Set the diagnois
; and indicators file #69 |
|
| SDOS(LRODT,LRSN,LRTN,LRBECDT) | ; Set DOS for CIDC
|
|
| CCPT(LRBECPT,LRBECDT,LRBEAR) | ; Check the status of the CPT (CSV)
|
|
| EMSGCPT(LRBEAR) | ; Print out Inactive CPTs
|
|
| BAWRK(LRODT,LRSN,LRI,LRBEY,LRTEST,LRBEDEL,LRBEVST,LRBEROLL,ORIEN) | ; Send the Billing Information to PCE
|
|
| KILL | ;
|
|
| GEDT(LRODT,LRSN,LRBETST) | ; Get the Date of Service
|
|
| GCDT(LRODT,LRSN) | ; Get the collection date/time
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | ERRMSG+6, EMSGCPT+6, EMSGCPT+12, EMSGCPT+13, BAWRK+11 |
| ^DIC | QUES+8, GEDT+5 |
| $$FIND1^DIC | BAWRK+9 |
| UPDATE^DIE | SDG1+30, SDOS+3 |
| ^DIK | SDG1+6 |
| $$GET1^DIQ | SDG1+9, BAWRK+16, BAWRK+19, BAWRK+22, GEDT+3, GEDT+7, GCDT+4 |
| ^DIR | SCI+11 |
| $$ICDDX^ICDCODE | QUES+12 |
| $$CPT^ICPTCOD | CCPT+14 |
| $$GMOD^LRBEBA2 | BAWRK+17 |
| SOP^LRBEBA2 | BAWRK+30 |
| STDN^LRBEBA2 | BAWRK+29 |
| BLDAR^LRBEBA3 | BAWRK+28 |
| OPORD^LRBEBAO | BAWRK+32 |
| OPRES^LRBEBAO | BAWRK+33 |
| CL^SDCO21 | SCI+6 |
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| ^LR - [#63] | GET1^DIQ |
| ^LRO(68 - [#68] | GET1^DIQ |
| 69.01 | GET1^DIQ |
| 69.03 | GET1^DIQ |
| ^LAB(69.9 - [#69.9] | GET1^DIQ |
| ^ICD9 - [#80] | Classic Fileman Calls |
| ^DIC(9.4 - [#9.4] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LRO(69 - [#69] | SDG1+5, SDG1+11, BAWRK+21, BAWRK+25 |
| ^TMP("LRPXAPI" | BAWRK+4!, KILL+1! |
| Name | Line Occurrences |
|---|---|
| $$GETI | SCI+10 |
| KILL | BAWRK+27, BAWRK+28, BAWRK+29, BAWRK+30 |
| SCI | QUES+15 |
| SDOS | BAWRK+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNAM | EMSGCPT+1~, EMSGCPT+9*, EMSGCPT+10 |
| CNT | BAWRK+5~ |
| D0 | BAWRK+5~ |
| DA | SDG1+3~, SDG1+6*, SDG1+7!, BAWRK+5~ |
| >> DFN | SDG1+9, SDG1+10, BAWRK+19*, BAWRK+20 |
| DIC | QUES+1~, QUES+8*, QUES+9!, QUES+10!, SCI+12!, BAWRK+5~, GEDT+1~, GEDT+4*, GEDT+5! |
| DIC("A" | QUES+7* |
| DIC(0 | QUES+8*, GEDT+5* |
| DIE | BAWRK+5~ |
| DIK | SDG1+3~, SDG1+4*, SDG1+7! |
| DIR | QUES+1~, SCI+1~, BAWRK+5~ |
| DIR("A" | SCI+10* |
| DIR(0 | SCI+11* |
| DIRUT | QUES+1~, SCI+1~ |
| DT | QUES~, QUES+15 |
| DTOUT | QUES+1~, QUES+9, SCI+1~, SCI+12 |
| DUOUT | QUES+1~, QUES+9, SCI+1~, SCI+12 |
| ERRDIS | KILL+4! |
| I | SCI+1~, SCI+8*, BAWRK+5~, BAWRK+23*, BAWRK+24 |
| INROOT | KILL+4! |
| >> LRAA | BAWRK+16, BAWRK+17 |
| LRBEA | SCI+1~, SCI+8*, SCI+9, SCI+10, SCI+14, SCI+15, GETI~, GETI+3, GETI+4, GETI+5 , GETI+6, GETI+7, GETI+8, GETI+9, GETI+10 |
| LRBEALO | QUES+2*, QUES+7, QUES+14, QUES+15*, QUES+16! |
| LRBEAR | QUES~, QUES+9!, SCI+12!, SDG1~, CCPT~, EMSGCPT~, BAWRK+4!, BAWRK+12~, BAWRK+28, BAWRK+33 , KILL+2! |
| LRBEAR( | QUES+13*, QUES+14*, SCI+5*, SCI+14*, SDG1+12, SDG1+13, SDG1+29!, CCPT+16*, EMSGCPT+7, EMSGCPT+8 , EMSGCPT+9 |
| LRBEAR1 | BAWRK+4!, BAWRK+33, KILL+2! |
| LRBEASK | EMSGCPT+1~ |
| LRBEAST | ERRMSG+1~, ERRMSG+4*, ERRMSG+5, EMSGCPT+3*, EMSGCPT+4 |
| LRBEB | SCI+1~, SCI+4*, SCI+5 |
| LRBEBL | SCI+1~, SCI+3*, SCI+4, SCI+5 |
| LRBECDT | SCI~, SCI+6, SDOS~, SDOS+2, CCPT~, CCPT+14, BAWRK+12~, BAWRK+22*, BAWRK+26, GCDT+1~ , GCDT+2*, GCDT+4*, GCDT+5 |
| LRBECLY | SCI+1~, SCI+6 |
| LRBECLY( | SCI+9 |
| LRBECPT | CCPT~, CCPT+14, CCPT+16, EMSGCPT+1~, EMSGCPT+7*, EMSGCPT+8, EMSGCPT+9, EMSGCPT+10, BAWRK+4!, BAWRK+31 , KILL+5! |
| LRBEDEL | BAWRK~, BAWRK+18*, BAWRK+28, KILL+2! |
| LRBEDFN | QUES~, QUES+13, QUES+14, QUES+15, SCI~, SCI+5, SCI+6, SCI+14, SDG1+2~, SDG1+9* , SDG1+10*, SDG1+12, SDG1+13, SDG1+29, BAWRK+12~, BAWRK+20*, BAWRK+28, BAWRK+30 |
| LRBEDGX | QUES+11*, QUES+13, QUES+14, SCI+2, SCI+3, SCI+4, SCI+5, SCI+14, SCI+15, KILL+3! |
| LRBEDIA | KILL+2! |
| LRBEDN | KILL+3! |
| LRBEDP | QUES~ |
| LRBEDP( | SCI+2, SCI+3, SCI+4, SCI+15* |
| LRBEDT | BAWRK+22*, KILL+2! |
| LRBEEDT | GEDT+1~, GEDT+2*, GEDT+7*, GEDT+8 |
| LRBEFIL | SDG1+2~, SDG1+11*, SDG1+18, SDG1+19, SDG1+20, SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25 , SDG1+26, SDG1+27 |
| LRBEFMSG | QUES+1~, QUES+6*, QUES+7 |
| LRBEFMT | ERRMSG+1~, ERRMSG+4*, ERRMSG+6, EMSGCPT+1~, EMSGCPT+3*, EMSGCPT+6, EMSGCPT+12, EMSGCPT+13 |
| LRBEIEN | SDG1+2~, SDG1+16*, SDG1+18, SDG1+19, SDG1+20, SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25 , SDG1+26, SDG1+27, SDOS+1~, SDOS+2*, KILL+3!, GEDT+1~, GEDT+6*, GEDT+7, GCDT+1~, GCDT+3* , GCDT+4 |
| LRBELIN | ERRMSG+1~, ERRMSG+5*, ERRMSG+6, EMSGCPT+1~, EMSGCPT+4*, EMSGCPT+6, EMSGCPT+13 |
| LRBEMOD | BAWRK+13~, BAWRK+17*, KILL+3! |
| LRBEMS | ERRMSG+1~, ERRMSG+2*, ERRMSG+3*, ERRMSG+4*, ERRMSG+5, ERRMSG+6, EMSGCPT+1~, EMSGCPT+3*, EMSGCPT+4, EMSGCPT+6 , EMSGCPT+11 |
| LRBEMS2 | EMSGCPT+1~, EMSGCPT+5*, EMSGCPT+6, EMSGCPT+13 |
| LRBEMS3 | EMSGCPT+1~, EMSGCPT+10*, EMSGCPT+11*, EMSGCPT+12 |
| LRBEMSG | EMSGCPT+1~, EMSGCPT+2*, EMSGCPT+3, EMSGCPT+5, BAWRK+6~ |
| LRBENO | BAWRK+13~, BAWRK+27, BAWRK+28, BAWRK+29, BAWRK+30, BAWRK+32 |
| LRBEP | SDG1+3~, SDG1+8*, SDG1+14, SDG1+15* |
| LRBEPAN | BAWRK+6~, BAWRK+28, BAWRK+30 |
| LRBEPDGX | SDG1+2~, SDG1+11*, SDG1+12*, SDG1+13, SDG1+18, SDG1+29* |
| LRBEPOS | KILL+2! |
| LRBEPTDT | SDG1+13*, SDG1+14, SDG1+19, SDG1+20, SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25, SDG1+26 , SDG1+27, SDG1+29, CCPT+12~, CCPT+14*, CCPT+15, CCPT+16, KILL+3! |
| LRBEQT | QUES+1~, QUES+2*, QUES+3, QUES+9*, QUES+10*, QUES+15, SCI~, SCI+8, SCI+9, SCI+12* , SCI+13* |
| LRBEQUES | GETI+1~, GETI+2*, GETI+3, GETI+4, GETI+6, GETI+7, GETI+8, GETI+9, GETI+10 |
| LRBEQUS1 | GETI+1~, GETI+2*, GETI+5 |
| LRBERES | KILL+3! |
| LRBEROLL | BAWRK~, BAWRK+30, KILL+5 |
| LRBESB | BAWRK+6~, BAWRK+15*, BAWRK+30 |
| LRBESEG | SCI+1~, SCI+7*, SCI+8 |
| LRBESEQ | BAWRK+6~ |
| LRBESMP | QUES~, QUES+13, QUES+14, SCI+5, SCI+14, KILL+3! |
| LRBESP | EMSGCPT+1~, EMSGCPT+4*, EMSGCPT+5, EMSGCPT+10, EMSGCPT+11 |
| LRBESPC | QUES~, QUES+13, QUES+14, SCI+5, SCI+14, KILL+3! |
| LRBEST | QUES+1~, QUES+2*, QUES+9*, QUES+17, SCI+12*, CCPT+12~, CCPT+13*, CCPT+15*, CCPT+16, CCPT+17 |
| LRBETEST | BAWRK+6~, BAWRK+14*, BAWRK+28, BAWRK+29 |
| LRBETEST( | BAWRK+23, BAWRK+24 |
| LRBETM | KILL+3! |
| LRBETNUM | SDG1+2~, SDG1+11*, SDG1+16, SDG1+17, SDG1+28* |
| LRBETST | BAWRK+6~, BAWRK+24*, BAWRK+25, GEDT~, GEDT+3 |
| LRBETYP | BAWRK+12~ |
| LRBEU | BAWRK+12~ |
| LRBEVSIT | KILL+2! |
| LRBEVST | BAWRK~, BAWRK+21*, BAWRK+33, KILL+3! |
| LRBEX | GETI+1~, GETI+3*, GETI+4*, GETI+5*, GETI+6*, GETI+7*, GETI+8*, GETI+9*, GETI+10*, GETI+11 , BAWRK+12~ |
| LRBEY | BAWRK~, BAWRK+28, BAWRK+29, BAWRK+30, KILL+5! |
| LRBEZ | BAWRK+12~ |
| >> LRCHG | BAWRK+3 |
| LRDA | SDG1+3~, SDG1+5*, SDG1+6 |
| LRDBEDGX | BAWRK+6~ |
| >> LRDFN | SDG1+9, BAWRK+19 |
| LRERR | SDG1+2~, SDOS+1~ |
| LRFDA | SDG1+2~, SDOS+1~ |
| LRFDA(99 | SDG1+18*, SDG1+19*, SDG1+20*, SDG1+21*, SDG1+22*, SDG1+23*, SDG1+24*, SDG1+25*, SDG1+26*, SDG1+27* , SDOS+2* |
| LRFDAIEN | SDG1+2~ |
| LRFDAIEN( | SDG1+17* |
| LRI | BAWRK~, BAWRK+13~ |
| LRNOP | BAWRK+6~ |
| LRODT | SDG1~, SDG1+4, SDG1+5, SDG1+11, SDG1+16, SDOS~, SDOS+2, BAWRK~, BAWRK+21, BAWRK+22 , BAWRK+25, BAWRK+26, BAWRK+28, BAWRK+29, BAWRK+33, GEDT~, GEDT+4, GEDT+6, GCDT~, GCDT+3 |
| LROOS | BAWRK+13~, BAWRK+16*, KILL+3! |
| LRPCECNT | BAWRK+13~ |
| LRPKG | BAWRK+8, BAWRK+9*, BAWRK+10, KILL+2! |
| LRSAMP | SDG1~, SDG1+12, SDG1+13, SDG1+29 |
| >> LRSB | BAWRK+15 |
| LRSN | SDG1~, SDG1+4, SDG1+5, SDG1+11, SDG1+16, SDOS~, SDOS+2, BAWRK~, BAWRK+21, BAWRK+22 , BAWRK+25, BAWRK+26, BAWRK+28, BAWRK+29, BAWRK+33, GEDT~, GEDT+4, GEDT+6, GCDT~, GCDT+3 |
| LRSPEC | SDG1~, SDG1+12, SDG1+13, SDG1+29 |
| LRTEST | BAWRK~, BAWRK+14 |
| LRTMP | QUES+1~, QUES+11*, QUES+12*, QUES+13 |
| LRTN | SDG1~, SDG1+4, SDG1+5, SDG1+11, SDG1+16, SDOS~, SDOS+2, BAWRK+6~, BAWRK+25*, BAWRK+26 |
| LRTSTS | SDG1~, SDG1+12, SDG1+13, SDG1+29 |
| LRVN | BAWRK+7~ |
| LRX | BAWRK+6~ |
| MT | ERRMSG~, ERRMSG+2, ERRMSG+3 |
| ORIEN | BAWRK~ |
| PXBREQ | BAWRK+7~ |
| PXKDONE | BAWRK+7~ |
| SRC | KILL+4! |
| SUB1 | KILL+4! |
| SUB2 | KILL+4! |
| SUB3 | KILL+4! |
| T | BAWRK+5~ |
| TST | QUES~, QUES+13, QUES+14, SCI+5, SCI+14 |
| U | QUES+11, QUES+12, QUES+14, SCI+3, SCI+4, SCI+5, SCI+14, SCI+15, SDG1+14, SDG1+19 , SDG1+20, SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25, SDG1+26, SDG1+27, SDG1+29, CCPT+15 , CCPT+16, EMSGCPT+8, EMSGCPT+9, BAWRK+24 |
| USR | BAWRK+13~, KILL+4! |
| VADM | BAWRK+5~ |
| VAIN | BAWRK+5~ |
| X | QUES+1~, BAWRK+13~, GEDT+1~, GEDT+3* |
| X1 | BAWRK+5~ |
| X2 | BAWRK+5~ |
| X3 | BAWRK+5~ |
| X9 | BAWRK+5~ |
| Y | QUES+1~, QUES+10, QUES+11, SCI+1~, SCI+13, SCI+14, SCI+15, BAWRK+13~, GEDT+1~, GEDT+5 , GEDT+6 |
| Y(0 | QUES+11 |
| Z | BAWRK+5~ |
| Z1 | BAWRK+5~ |
| Z2 | BAWRK+5~ |
