IBEFSMUT ;SLC/RM - OTH FSM and PP BILLING STATUS UTILITY ; Sep 29, 2020@3:51 pm
Source file <IBEFSMUT.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 |
|---|---|---|
| EN(DFN,BEGDT,ENDDT,LIST) | ;retrieve the IB STATUS from either File #399 and #350
|
|
| DATA399 | ;IB Status in File #399
|
|
| OE(IBN,EVNTDT) | ;extract the Outpatient Encounter ien in file #409.68
|
|
| RCODE399 | ;traverse the RC multiple to determine charges for this event date
|
|
| IBARX362 | ;determine what Rx is charged for
|
|
| RXPSO52 | ;
|
|
| RXORGNAL | ;
|
|
| IBARXREC | ;capture Rx data
|
|
| IB350 | ;extract IB status found in File #350
|
|
| IBSTA350 | ;IB status found in File #350
|
|
| IB399 | ;collects all related bill for a patient in file #399
|
|
| CHKDATE(DATE) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | RCODE399+10, IBSTA350+15, IBSTA350+16, IBSTA350+17 |
| GETS^DIQ | DATA399+4 |
| Y^DIQ | IBSTA350+3 |
| $$INPAT^IBCEF | EN+42 |
| APDT^IBECEA0 | EN+19 |
| APTDT^IBECEA0 | EN+18 |
| IT^IBEFUR | IB399+13 |
| TPEVDT^IBEFURT | IB399+7 |
| $$DIV^IBJDF2 | DATA399+13 |
| RX^PSO52API | IBARX362+9, IBARX362+12, RXPSO52+2 |
| $$FMADD^XLFDT | IBARX362+9, IBARX362+12, RXPSO52+2 |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | GET1^DIQ |
| ^IBE(350.1 - [#350.1] | GET1^DIQ |
| ^DGCR(399 - [#399] | GETS^DIQ |
| ^DGCR(399.1 - [#399.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(350 | IBSTA350+3 |
| ^DGCR(399 - [#399] | EN+28, DATA399+16, DATA399+23, OE+5, OE+6, OE+7, OE+8, RCODE399+4, RCODE399+5, RCODE399+7 , RCODE399+8, RCODE399+9, RCODE399+33, RCODE399+34, IB399+2, IB399+3 |
| ^IB - [#350] | IBSTA350+2 |
| ^IB("AFDT" | EN+19 |
| ^IB("C" | EN+17 |
| ^IBA(362.4 - [#362.4] | EN+46, IBARX362+2, IBARX362+3, IBARX362+4, IBARX362+5, IBARX362+6, IBARX362+7, IBARX362+36 |
| ^IBE(350.1 - [#350.1] | IBSTA350+4 |
| ^IBE(352.5 - [#352.5] | IBSTA350+8, IBSTA350+9 |
| ^TMP("IBECEA" | EN+11!, EN+20, EN+51!, IB350+2, IB350+3 |
| ^TMP("IBRBT" | EN+29!, EN+35, EN+36, EN+40, EN+41, EN+51! |
| ^TMP($J | IBARX362+9!, IBARX362+10, IBARX362+11, IBARX362+12!, IBARX362+13, IBARX362+14, IBARX362+15, IBARX362+16, IBARX362+19, IBARX362+20 , IBARX362+22, IBARX362+23, IBARX362+24, IBARX362+30, IBARX362+31, IBARX362+32, IBARX362+40!, RXPSO52+1!, RXORGNAL+1, RXORGNAL+2 , RXORGNAL+3 |
| Name | Line Occurrences |
|---|---|
| $$CHKDATE | EN+44, EN+45, IBARX362+26, IBARX362+33, IBARX362+35, RXORGNAL+5 |
| $$OE | DATA399+14 |
| DATA399 | EN+48 |
| IB350 | EN+20 |
| IB399 | EN+30 |
| IBARX362 | RCODE399+13, RCODE399+31 |
| IBARXREC | IBARX362+28, IBARX362+33, RXORGNAL+5 |
| IBSTA350 | IB350+4 |
| RCODE399 | DATA399+26 |
| RXORGNAL | IBARX362+18, IBARX362+29 |
| RXPSO52 | IBARX362+10, IBARX362+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEGDT | EN~, EN+13 |
| BILGROUP | IB350+1~, IBSTA350+15*, IBSTA350+20 |
| C | IBSTA350+1~, IBSTA350+3* |
| CNT | IB350+1~ |
| DATE | CHKDATE~, CHKDATE+2 |
| DFN | EN~, EN+16, EN+17, EN+19, EN+21, EN+27, EN+28, EN+50, DATA399+24, RCODE399+27 , RCODE399+37, IBARX362+9, IBARX362+10, IBARX362+11, IBARX362+12, IBARX362+13, IBARX362+14, IBARX362+16, IBARX362+19, IBARX362+20 , IBARX362+22, IBARX362+23, IBARX362+24, IBARX362+30, IBARX362+31, IBARX362+32, IBARX362+39, RXPSO52+2, RXORGNAL+1, RXORGNAL+2 , RXORGNAL+3, IBARXREC+3, IBSTA350+20, IB399+2, IB399+7 |
| ENDDT | EN~, EN+13 |
| EVNTDT | OE~, OE+5, OE+6, OE+7 |
| FLDT52 | IBARX362+1~, IBARX362+8*, IBARX362+22*, IBARX362+25, IBARX362+31*, IBARX362+34, RXORGNAL+1*, RXORGNAL+4 |
| I | DATA399+1~, DATA399+16*, RCODE399+34* |
| IB0 | IB399+1~, IB399+3* |
| IBABEG | EN+9~, EN+13*, IBARX362+9, IBARX362+12, RXPSO52+2, IB399+5, CHKDATE+2 |
| IBADM | IB399+1~ |
| IBAEND | EN+9~, EN+13*, IBARX362+9, IBARX362+12, RXPSO52+2, IB399+5, CHKDATE+2 |
| IBAIEN | RCODE399+1~, IBARX362+3*, IBARX362+4, IBARX362+5, IBARX362+6, IBARX362+7, IBARX362+36 |
| IBARELDT | RCODE399+1~, IBARX362+8*, IBARX362+23*, IBARX362+25, IBARX362+26, IBARX362+32*, IBARX362+33, RXORGNAL+2*, RXORGNAL+4, RXORGNAL+5 , IBARXREC+3 |
| IBARFLDT | RCODE399+1~, IBARX362+4*, IBARX362+25, IBARX362+33, IBARX362+34, IBARX362+35, IBARX362+39, RXORGNAL+4 |
| IBARFNUM | RCODE399+2~, IBARX362+5*, IBARX362+17, IBARX362+29, IBARX362+30, IBARX362+31, IBARX362+32, IBARX362+37, RXORGNAL+5*, IBARXREC+1 |
| IBARR | DATA399+3!, DATA399+6, DATA399+27! |
| IBARR(399 | DATA399+8, DATA399+9, DATA399+10, DATA399+11, DATA399+12, DATA399+15, DATA399+21, RCODE399+36 |
| IBARXIEN | RCODE399+2~, IBARX362+6*, IBARX362+11, IBARX362+12, IBARX362+15*, IBARX362+16, IBARX362+19, IBARX362+20, IBARX362+22, IBARX362+23 , IBARX362+24, IBARX362+30, IBARX362+31, IBARX362+32, IBARX362+37, RXORGNAL+1, RXORGNAL+2, RXORGNAL+3, IBARXREC+1 |
| IBARXNUM | RCODE399+1~, IBARX362+2*, IBARX362+3, IBARX362+9, IBARX362+15, IBARX362+37, RXPSO52+2, IBARXREC+1 |
| IBARXSUPLY | IBARX362+1~, IBARX362+7*, IBARX362+26, IBARX362+36*, IBARX362+37, RXORGNAL+5 |
| IBATYP | IB350+1~, IBSTA350+4*, IBSTA350+7, IBSTA350+11, IBSTA350+20 |
| IBBEDSEC | RCODE399+1~, RCODE399+9*, RCODE399+10*, RCODE399+11, RCODE399+16, RCODE399+18, RCODE399+19, RCODE399+20, RCODE399+30*, IBARX362+37 , IBARXREC+1 |
| IBBILLNO | DATA399+1~, DATA399+7*, DATA399+8*, DATA399+24, RCODE399+27, RCODE399+37, IBARX362+39, IBARXREC+3, IB350+1~, IBSTA350+13* , IBSTA350+20 |
| IBBLCLS | DATA399+1~, DATA399+9*, DATA399+24, RCODE399+27, RCODE399+36, RCODE399+37, IBARX362+39, IBARXREC+3 |
| IBCDENME | IBSTA350+1~, IBSTA350+5*, IBSTA350+9*, IBSTA350+10 |
| IBCHG | DATA399+2~, DATA399+22*, DATA399+24, RCODE399+1~, RCODE399+7*, RCODE399+17, RCODE399+26*, RCODE399+27, RCODE399+30*, RCODE399+35* , RCODE399+37, IBARX362+39, IBARXREC+3, IB350+1~, IBSTA350+11*, IBSTA350+20 |
| IBCNT | EN+9~, EN+10*, EN+16*, EN+21, EN+26*, EN+27*, EN+50, DATA399+20*, DATA399+24, RCODE399+24* , RCODE399+27, RCODE399+35*, RCODE399+37, IBARX362+38*, IBARX362+39, IBARXREC+2*, IBARXREC+3, IBSTA350+3*, IBSTA350+20 |
| IBCPTIER | IBSTA350+1~, IBSTA350+14*, IBSTA350+19 |
| IBD | EN+25~, EN+39*, EN+48*, DATA399+14, DATA399+24, RCODE399+27, RCODE399+37, IB350+1~, IB350+2*, IB350+3 , IBSTA350+20 |
| IBDIS | IB399+1~ |
| IBDIV | DATA399+2~, DATA399+13*, DATA399+24, RCODE399+27, RCODE399+37, IBARX362+39, IBARXREC+3, IBSTA350+1~, IBSTA350+16*, IBSTA350+20 |
| IBDTBILLFR | IBSTA350+1~, IBSTA350+19* |
| IBDTFRM | EN+25~, EN+40*, EN+44, EN+45, EN+48 |
| IBDTTO | EN+25~, EN+41* |
| IBERR | DATA399+3!, DATA399+5, DATA399+27! |
| IBEVDT | IB399+1~, IB399+3*, IB399+5, IB399+7 |
| IBIFN | IB399+1~, IB399+2*, IB399+3, IB399+7 |
| IBLSTUSR | DATA399+2~, DATA399+15*, DATA399+24, RCODE399+27, RCODE399+37, IBARX362+39, IBARXREC+3, IBSTA350+1~, IBSTA350+17*, IBSTA350+20 |
| IBN | EN+25~, EN+39*, EN+48*, DATA399+4, DATA399+8, DATA399+9, DATA399+10, DATA399+11, DATA399+12, DATA399+13 , DATA399+14, DATA399+15, DATA399+16, DATA399+21, DATA399+23, DATA399+24, OE~, OE+7, OE+8, RCODE399+4 , RCODE399+5, RCODE399+7, RCODE399+8, RCODE399+9, RCODE399+27, RCODE399+33, RCODE399+34, RCODE399+36, RCODE399+37, IBARX362+2 , IBARX362+3, IBARX362+39, IBARXREC+3, IB350+1~, IB350+3*, IBSTA350+2, IBSTA350+16, IBSTA350+17, IBSTA350+20 |
| IBNARR399 | EN+25~, EN+29!, EN+51! |
| IBNARR399( | EN+38, EN+49* |
| IBND | IB350+1~, IBSTA350+2*, IBSTA350+3, IBSTA350+4, IBSTA350+7, IBSTA350+8, IBSTA350+11, IBSTA350+12, IBSTA350+13, IBSTA350+14 , IBSTA350+15, IBSTA350+16, IBSTA350+19 |
| IBND0 | DATA399+2~ |
| IBNDU | DATA399+2~ |
| IBNDU1 | DATA399+2~, DATA399+22, RCODE399+35 |
| IBOEIEN | DATA399+2~, DATA399+14*, DATA399+23*, DATA399+24, RCODE399+27, RCODE399+37 |
| IBOPV | IB399+1~ |
| IBOTHSTAT | EN+9~, EN+12*, EN+16, EN+21, EN+27, EN+50, DATA399+24, RCODE399+27, RCODE399+37, IBARX362+39 , IBARXREC+3, IBSTA350+20 |
| IBPTF | IB399+1~, IB399+3* |
| IBPTF1 | IB399+1~ |
| IBRCCNT | RCODE399+1~, RCODE399+5*, RCODE399+7, RCODE399+8, RCODE399+9 |
| IBRCTYP | RCODE399+1~, RCODE399+8*, RCODE399+20 |
| IBRSLTFRM | DATA399+2~, DATA399+21*, DATA399+24, RCODE399+1~, RCODE399+20*, RCODE399+21, RCODE399+25*, RCODE399+27, RCODE399+36*, RCODE399+37 , IBARX362+37*, IBARX362+39, IBARXREC+1*, IBARXREC+3, IB350+1~, IBSTA350+12*, IBSTA350+18, IBSTA350+19*, IBSTA350+20 |
| IBRTYPIEN | DATA399+1~, DATA399+7*, DATA399+11* |
| IBRTYPNME | DATA399+1~, DATA399+7*, DATA399+10*, DATA399+24, RCODE399+27, RCODE399+37, IBARX362+39, IBARXREC+3 |
| IBRVCD | RCODE399+1~, RCODE399+4*, RCODE399+5 |
| IBRXDT | IB399+1~ |
| IBRXN | IB399+1~ |
| IBRXPRTLTOT | IBARX362+1~, IBARX362+8*, IBARX362+20*, IBARX362+21 |
| IBSTAT | DATA399+1~, DATA399+2~, DATA399+7*, DATA399+12*, DATA399+24, RCODE399+27, RCODE399+37, IBARX362+39, IBARXREC+3, IB350+1~ , IBSTA350+3*, IBSTA350+20 |
| IBSTPCODE | IBSTA350+1~, IBSTA350+5*, IBSTA350+8*, IBSTA350+9, IBSTA350+10*, IBSTA350+20 |
| IBTYP399 | EN+25~, EN+26*, EN+39*, EN+42*, EN+44, EN+45, EN+46, DATA399+19, DATA399+21, RCODE399+20 , RCODE399+36 |
| IBX | IB399+1~ |
| IBXRF | IB399+1~ |
| JJJ | IBARX362+1~, IBARX362+21*, IBARX362+22, IBARX362+23, IBARX362+24, IBARX362+27 |
| LIST | EN~, EN+12 |
| OLDBD | RCODE399+2~, RCODE399+3*, RCODE399+16, RCODE399+18* |
| PRD399 | OE+3~, OE+6*, OE+7 |
| PRDCNTR | OE+3~, OE+7*, OE+8 |
| PRTLRFNUM | IBARX362+1~, IBARX362+8*, IBARX362+27*, IBARXREC+1 |
| PSO52DYSUP | IBARX362+1~, IBARX362+8*, IBARX362+24*, IBARX362+26, RXORGNAL+3*, RXORGNAL+5 |
| RCCHRG | RCODE399+2~, RCODE399+16*, RCODE399+17*, RCODE399+21 |
| RXRCCNT | RCODE399+2~, RCODE399+3*, RCODE399+12, RCODE399+13*, RCODE399+29, RCODE399+31* |
| RXRF399 | EN+25~, EN+26*, EN+39*, EN+46*, RCODE399+29, IBARX362+37, IBARXREC+1 |
| RXSTATUS | RCODE399+1~, IBARX362+16*, IBARX362+37, IBARXREC+1 |
| SUB1 | EN+25~, EN+35*, EN+36, EN+40, EN+41 |
| SUB2 | EN+25~, EN+36*, EN+38, EN+40, EN+41, EN+42, EN+46, EN+48, EN+49 |
| TMPOEIEN | OE+3~, OE+4*, OE+6, OE+7, OE+8*, OE+9 |
| TYP399 | RCODE399+2~, RCODE399+22, RCODE399+38! |
| TYP399("NONRX" | RCODE399+21*, RCODE399+23, RCODE399+25, RCODE399+26 |
| U | EN+40, EN+41, DATA399+23, DATA399+24, OE+8, RCODE399+7, RCODE399+8, RCODE399+9, RCODE399+21, RCODE399+23 , RCODE399+25, RCODE399+26, RCODE399+27, RCODE399+37, IBARX362+4, IBARX362+5, IBARX362+6, IBARX362+7, IBARX362+16, IBARX362+22 , IBARX362+23, IBARX362+24, IBARX362+30, IBARX362+31, IBARX362+32, IBARX362+36, IBARX362+39, RXORGNAL+1, RXORGNAL+2, RXORGNAL+3 , IBARXREC+3, IBSTA350+9, IBSTA350+12, IBSTA350+13, IBSTA350+14, IBSTA350+16, IBSTA350+19, IBSTA350+20, IB399+3 |
| Y | IBSTA350+1~, IBSTA350+3* |
