IB20P554 ;ALB/DRF - IB*2.0*554 Post Init: Rate Type Update;09/30/15 7:55am
Source file <IB20P554.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POSTINIT | ; Derived from IBYPPC, post-init for IB*2.0*52
|
|
| ADDRT | ;Add rate type for NON-VA reimbursable insurance
|
|
| ADDER | ;Add Billing Errors for NON-VA rate type
|
|
| ADDRS | ; Add Rate Schedules (363) for FEE REIMB INS
|
|
| RSCS(IBFN) | ; add existing Charge Sets to FR
; copy the Charge Sets from the corresponding RI RS (v2) |
|
| RSCSQ | ||
| RSCSFILE(IBFN,IBCSNM,IBCSAA) | ; Add Charge Set to a Rate Schedule
|
|
| RSCSFQ | ||
| RSEXISTS(IBVDT,IBNAME) | ; return RS IFN if Rate Schedule exists for Effective Date
|
|
| MCCRUTL(X,P) | ; returns IFN of item in 399.1 if Name is found and piece P is true
|
|
| MSG(X) | ;
|
|
| RXDT() | ;Copy the active RX charge schedule from RI to FR
|
|
| NEWRT | ;Rate Type
|
|
| NEWBE | ;Billing Errors
|
|
| RSF | ;Rate Schedules (363) for FEE REIMB INS
|
|
| CLM | ;CLAIMS TRACKING TYPE FILE (356.6)
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | ADDRT+7, ADDER+6, RSCSFILE+8 |
| FILE^DICN | ADDRT+13, ADDER+10, ADDRS+13 |
| ^DIE | ADDRT+20, ADDER+17, ADDRS+21 |
| $$VERSDT^IBCRU8 | RSCS+6 |
| BMES^XPDUTL | POSTINIT+3, POSTINIT+7 |
| MES^XPDUTL | ADDRT+2, ADDRT+9, ADDRT+15, ADDRT+21, ADDER+1, ADDER+8, ADDER+12, ADDER+18, ADDRS+1, ADDRS+25 , ADDRS+26 |
| FileNo | Call Tags |
|---|---|
| ^IBE(350.8 - [#350.8] | Classic Fileman Calls |
| ^IBE(363 - [#363] | Classic Fileman Calls |
| ^DGCR(399.3 - [#399.3] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.1 - [#399.1] | MCCRUTL+2 |
| ^DGCR(399.3 - [#399.3] | ADDRS+7, ADDRS+9 |
| ^IBE(363 - [#363] | ADDRS+5, RSCS+4, RSCS+12, RSCS+13, RSCS+14, RSCSFILE+2, RSCSFILE+5, RSEXISTS+2, RSEXISTS+3, RXDT+1 , RXDT+2, RXDT+3 |
| ^IBE(363.1 - [#363.1] | RSCS+15, RSCSFILE+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | POSTINIT+2~, ADDRT+16*, ADDER+15*, ADDRS+2~, ADDRS+21*!, RSCSFILE+1~ |
| DA(1 | RSCSFILE+6* |
| DD | ADDRS+2~, ADDRS+11!, RSCSFILE+1~ |
| DIC | POSTINIT+2~, ADDRT+1~, ADDRT+7*, ADDRT+19!, ADDER+6*, ADDER+14!, ADDRS+2~, ADDRS+12*, ADDRS+13!, RSCSFILE+1~ , RSCSFILE+6* |
| DIC("DR" | RSCSFILE+7* |
| DIC("P" | RSCSFILE+7* |
| DIC(0 | ADDRT+12*, ADDRS+12*, RSCSFILE+6* |
| DIE | POSTINIT+2~, ADDRT+1~, ADDRT+19*, ADDER+14*, ADDRS+2~, ADDRS+21*! |
| DIK | POSTINIT+2~ |
| DINUM | ADDRS+13! |
| DLAYGO | ADDRT+1~, ADDRT+12*, ADDRS+2~, ADDRS+12*, ADDRS+13!, RSCSFILE+1~, RSCSFILE+6* |
| DO | ADDRT+11!, ADDRS+2~, ADDRS+11!, RSCSFILE+1~ |
| DR | POSTINIT+2~, ADDRT+1~, ADDRT+12*, ADDRT+17*, ADDRT+18*, ADDER+16*, ADDRS+2~, ADDRS+16*, ADDRS+17*, ADDRS+19* , ADDRS+20*, ADDRS+21!, RSCSFILE+1~ |
| I | POSTINIT+2~, ADDER+2* |
| IBA | ADDRS+2~ |
| IBA( | MSG+2* |
| IBA(999999 | MSG+1 |
| IBADMIN | ADDRS+2~, ADDRS+20, RXDT+3* |
| IBBS | ADDRS+2~, ADDRS+6*, ADDRS+16 |
| IBCNT | ADDRS+2~*, ADDRS+15*, RSCS+2~, RSCS+3*, RSCS+15*, RSCSQ |
| IBCNTCS | ADDRS+2~, ADDRS+22*, ADDRS+24*, ADDRS+25 |
| IBCOPY | RSCS+2~, RSCS+3*, RSCS+7*, RSCS+8*, RSCS+9*, RSCS+10*, RSCS+11, RSCS+12, RSCS+13, RSCS+14 |
| IBCS | ADDRS+2~, RSCS+2~, RSCS+14*, RSCS+15, RXDT+1*, RXDT+2, RXDT+3 |
| IBCS0 | RSCS+2~, RXDT+2*, RXDT+4 |
| IBCSAA | RSCS+2~, RSCSFILE~, RSCSFILE+7 |
| IBCSFN | ADDRS+2~, RSCS+2~, RSCS+14*, RSCS+15, RSCSFILE+1~, RSCSFILE+4*, RSCSFILE+5 |
| IBCSNM | RSCS+2~, RSCSFILE~, RSCSFILE+3, RSCSFILE+4, RSCSFILE+7 |
| IBDISP | ADDRS+2~, ADDRS+19, RXDT+3* |
| IBFN | ADDRS+2~, ADDRS+15*, ADDRS+24, RSCS~, RSCS+4, RSCS+15, RSCSFILE~, RSCSFILE+2, RSCSFILE+5, RSCSFILE+6 |
| IBI | ADDRS+2~, ADDRS+3* |
| IBJ | ADDRS+2~ |
| IBLN | ADDRS+2~, ADDRS+3*, ADDRS+5, ADDRS+6, ADDRS+7, ADDRS+8, ADDRS+9, ADDRS+12, ADDRS+16, ADDRS+17 , ADDRS+18, ADDRS+19, ADDRS+20 |
| IBLNCS | ADDRS+2~ |
| IBNAME | RSCS+2~, RSEXISTS~, RSEXISTS+4 |
| IBNRS | RSCS+2~, RSCS+4*, RSCS+5 |
| IBRS0 | RSEXISTS+1~, RSEXISTS+3*, RSEXISTS+4 |
| IBRSFN | RSEXISTS+1~, RSEXISTS+2*, RSEXISTS+3, RSEXISTS+4 |
| IBRSNM | RSCS+2~, RSCS+4*, RSCS+7, RSCS+8, RSCS+9, RSCS+10 |
| IBRT | ADDRS+2~, ADDRS+7*, ADDRS+8, ADDRS+9*, ADDRS+16 |
| IBTY | RSCS+2~, RSCS+5*, RSCS+12 |
| IBVDT | RSCS+2~, RSCS+6*, RSCS+7, RSCS+8, RSCS+9, RSCS+10*, RSEXISTS~, RSEXISTS+4 |
| IBX | RSCSFILE+1~*, RSCSFILE+8*, RSCSFQ, RSEXISTS+1~*, RSEXISTS+2, RSEXISTS+4*, RSEXISTS+5, MCCRUTL+1~, MCCRUTL+2*, MSG+1~* , MSG+2 |
| IBXFN | RSCS+2~, RSCS+13*, RSCS+14 |
| IBY | MCCRUTL+1~*, MCCRUTL+2*, MCCRUTL+3 |
| J | POSTINIT+2~, ADDRT+1~, ADDRT+18*, ADDER+16* |
| LIN | ADDRT+1~, ADDRT+3* |
| P | MCCRUTL~, MCCRUTL+2 |
| RTDATA | POSTINIT+2~, ADDRT+1~, ADDRT+3, ADDRT+4*, ADDRT+5, ADDRT+7, ADDRT+9, ADDRT+15, ADDRT+17, ADDRT+18 , ADDER+2, ADDER+3*, ADDER+4, ADDER+6, ADDER+8, ADDER+10, ADDER+12, ADDER+16 |
| RXDT | ADDRS+2~, ADDRS+18*, RSCS+10 |
| U | ADDRS+5, ADDRS+6, ADDRS+7, ADDRS+8, ADDRS+9, ADDRS+12, ADDRS+16, ADDRS+17, ADDRS+18, ADDRS+19 , ADDRS+20, RSCS+12, RSCS+15, RSEXISTS+4, MCCRUTL+2, RXDT+3, RXDT+4 |
| X | POSTINIT+2~, ADDRT+1~, ADDRT+7*, ADDER+6*, ADDER+10*, ADDRS+2~, ADDRS+12*, ADDRS+14!, ADDRS+21!, RSCSFILE+1~ , RSCSFILE+7*, MCCRUTL~, MCCRUTL+2, MSG~, MSG+2 |
| Y | POSTINIT+2~, ADDRT+1~, ADDRT+8, ADDRT+14, ADDRT+16, ADDER+7, ADDER+11, ADDER+15, ADDRS+2~, ADDRS+14! , ADDRS+15, ADDRS+21!, RSCSFILE+1~, RSCSFILE+8 |
