IBNCPDP3 ;OAK/ELZ - STORES NDC/AWP UPDATES ;11/14/07 13:18
Source file <IBNCPDP3.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 8 | (ERR,PAT)^IBAERR1 PT^IBCNEBF ($$ADDBI,$$ADDCI)^IBCREF $$PT^IBEFUNC ($$MATCH,LOG)^IBNCPDP2 $$BCID^IBNCPDP4 CANC^IBNCPDP6 ($$NDC,NONBR)^IBNCPNB |
| VA FileMan | 2 | (,FILE)^DIE ($$GET1,GETS)^DIQ |
| Accounts Receivable | 1 | ^PRCASER1 |
| Kernel | 1 | $$FMADD^XLFDT |
| MailMan | 1 | ^XMD |
| 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 |
|---|---|---|
| UPAWP(IBNDC,IBAWP,IBADT) | ; updates AWP prices for NDCs
|
|
| REVERSE(DFN,IBD,IBAUTO) | ;process reversed claims
|
|
| REVQ | ; perform end of job tasks
|
|
| RTS(IBRR) | ; Return to Stock processing on Released Rx
; input - IBRR = reversal reason ; IBCRSN = passed in by reference ; output - 0 = reversal not due to a Rx RETURN TO STOCK or Rx DELETE ; 1 = reversal due to a Rx RETURN TO STOCK or Rx DELETE ; IBCRSN = charge removal reason |
|
| BULL | ; Generate a bulletin if there is an error in cancelling the claim.
|
|
| GETRSN(DFN,IBRXN,IBFIL) | ;
; retrieve charge removal reason from file 354.71 ; input - DFN,IBRXN=Rx ien,IBFIL=fill number ; output - charge removal reason |
|
| ELIG(DFN,IBD) | ; process an Eligibility response
|
|
| ELIGX | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | REVERSE+38, RTS+16 |
| FILE^DIE | REVERSE+53, ELIG+79 |
| $$GET1^DIQ | GETRSN+11, ELIG+38, ELIG+39, ELIG+41, ELIG+42, ELIG+43, ELIG+44, ELIG+45, ELIG+46, ELIG+47 , ELIG+48, ELIG+49, ELIG+51, ELIG+52, ELIG+53, ELIG+54, ELIG+55, ELIG+56, ELIG+57, ELIG+58 |
| GETS^DIQ | ELIG+13 |
| ERR^IBAERR1 | BULL+17 |
| PAT^IBAERR1 | BULL+12 |
| PT^IBCNEBF | ELIG+23 |
| $$ADDBI^IBCREF | UPAWP+10 |
| $$ADDCI^IBCREF | UPAWP+12 |
| $$PT^IBEFUNC | BULL+3 |
| $$MATCH^IBNCPDP2 | REVERSE+23 |
| LOG^IBNCPDP2 | REVQ+1 |
| $$BCID^IBNCPDP4 | REVERSE+18 |
| CANC^IBNCPDP6 | REVERSE+16 |
| $$NDC^IBNCPNB | UPAWP+8 |
| NONBR^IBNCPNB | REVERSE+29 |
| ^PRCASER1 | REVERSE+46 |
| $$FMADD^XLFDT | REVERSE+22 |
| ^XMD | BULL+21 |
| FileNo | Call Tags |
|---|---|
| 2.312 | GET1^DIQ |
| ^IBAM(354.71 - [#354.71] | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBT(356 - [#356] | Classic Fileman Calls |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| ^BPSR - [#9002313.03] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BPSR - [#9002313.03] | ELIG+11 |
| ^DGCR(399 - [#399] | REVERSE+19, REVERSE+32, REVERSE+41, REVQ+2 |
| ^DPT - [#2] | ELIG+16, ELIG+17, ELIG+29 |
| ^IBA(355.33 - [#355.33] | ELIG+26 |
| ^IBAM(354.71 - [#354.71] | GETRSN+7, GETRSN+8, GETRSN+9 |
| ^IBE(350.9 - [#350.9] | UPAWP+5 |
| ^IBE(355.12 - [#355.12] | ELIG+27 |
| ^IBT(356 - [#356] | RTS+9, RTS+11, RTS+13, RTS+17 |
| ^PRCA(430 - [#430] | REVERSE+42 |
| ^XTMP( | REVERSE+22 |
| ^XTMP("IBNCPLDT" | REVERSE+22 |
| Name | Line Occurrences |
|---|---|
| $$GETRSN | RTS+12 |
| $$RTS | REVERSE+14 |
| BULL | REVERSE+48 |
| ELIGX | ELIG+3, ELIG+10, ELIG+11, ELIG+14, ELIG+15, ELIG+16, ELIG+17, ELIG+24, ELIG+25, ELIG+26 , ELIG+28, ELIG+30 |
| REVQ | REVERSE+7, REVERSE+8, REVERSE+9, REVERSE+10, REVERSE+11, REVERSE+12, REVERSE+19, REVERSE+30, REVERSE+33, REVERSE+34 |
| Name | Field # of Occurrence |
|---|---|
| ^( | REVERSE+22* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BPRGRP | ELIG+1~, ELIG+75*, ELIG+77 |
| BPRIEN | ELIG+1~, ELIG+4*, ELIG+10, ELIG+11, ELIG+12, ELIG+66 |
| BPRSUB | ELIG+1~, ELIG+71*, ELIG+73 |
| BPSR | ELIG+1~ |
| BPSR( | ELIG+14, ELIG+71, ELIG+75 |
| BUDA | ELIG+1~, ELIG+33*, ELIG+38, ELIG+39, ELIG+41, ELIG+42, ELIG+43, ELIG+44, ELIG+45, ELIG+46 , ELIG+47, ELIG+48, ELIG+49, ELIG+51, ELIG+52, ELIG+53, ELIG+54, ELIG+55, ELIG+56, ELIG+57 , ELIG+58, ELIG+61, ELIG+62, ELIG+63, ELIG+64, ELIG+65, ELIG+66, ELIG+73, ELIG+77 |
| BUFF | ELIG+1~ |
| BUFF( | ELIG+38*, ELIG+39*, ELIG+41*, ELIG+42*, ELIG+43*, ELIG+44*, ELIG+45*, ELIG+46*, ELIG+47*, ELIG+48* , ELIG+49*, ELIG+51*, ELIG+52*, ELIG+53*, ELIG+54*, ELIG+55*, ELIG+56*, ELIG+57*, ELIG+58*, ELIG+61* , ELIG+62*, ELIG+63*, ELIG+64*, ELIG+65*, ELIG+66*, ELIG+73*, ELIG+77* |
| DA | REVERSE+1~, REVERSE+37*, REVERSE+38!, RTS+6~, RTS+14* |
| DFN | REVERSE~, REVERSE+7, REVERSE+29, RTS+12, BULL+3, GETRSN~, GETRSN+7, GETRSN+8, ELIG~, ELIG+3 , ELIG+16, ELIG+17, ELIG+23, ELIG+29, ELIG+34 |
| DIE | REVERSE+1~, REVERSE+37*, REVERSE+38!, RTS+6~, RTS+14* |
| DR | REVERSE+1~, REVERSE+37*, REVERSE+38!, RTS+6~, RTS+15* |
| DT | REVERSE+22, REVERSE+45 |
| DUZ | REVERSE+21, REVERSE+52 |
| EPHSRC | ELIG+1~, ELIG+27*, ELIG+28, ELIG+61 |
| ERACT | ELIG+1~ |
| I | REVERSE+1~, REVERSE+32* |
| IB | REVERSE+1~ |
| IB( | REVERSE+32* |
| IB("S" | REVERSE+34 |
| IB("U1" | REVERSE+41*, REVERSE+43 |
| IB(0 | REVERSE+33 |
| IB0 | GETRSN+4~, GETRSN+9*, GETRSN+10 |
| IBADT | UPAWP~, UPAWP+12, REVERSE+1~, REVERSE+9*, REVERSE+18, REVERSE+29 |
| IBARES | REVERSE+2~, REVERSE+47*, REVERSE+48, REVERSE+50 |
| IBAUTO | REVERSE~, REVQ+1 |
| IBAWP | UPAWP~, UPAWP+12 |
| IBC | BULL+1~, BULL+11*, BULL+13*, BULL+14*, BULL+15*, BULL+16*, BULL+18*, BULL+19*, BULL+20* |
| IBCC | REVERSE+2~, REVERSE+28*, REVERSE+29 |
| IBCDFN | ELIG+1~, ELIG+6*, ELIG+15, ELIG+16, ELIG+17, ELIG+23, ELIG+29, ELIG+34 |
| IBCHG | REVERSE+1~, REVERSE+43*, REVERSE+45 |
| IBCMT | RTS+6~, RTS+14*, RTS+15 |
| IBCR | REVERSE+2~, REVERSE+25*, REVERSE+29, REVERSE+30 |
| IBCRES | REVERSE+1~, REVERSE+36*, REVERSE+37, REVERSE+45, RTS+12* |
| IBCS | UPAWP+2~, UPAWP+5*, UPAWP+6, UPAWP+12 |
| IBD | REVERSE~, ELIG~ |
| IBD("BCID" | REVERSE+18*, REVERSE+19, REVERSE+22, REVERSE+23, REVQ+2 |
| IBD("CLAIMID" | REVERSE+8, REVERSE+18 |
| IBD("CLOSE CO | MMENT" , REVERSE+28 |
| IBD("CLOSE RE | ASON" , REVERSE+24, REVERSE+25 |
| IBD("DOS" | REVERSE+9 |
| IBD("DROP TO | PAPER" , REVERSE+24*, REVERSE+26 |
| IBD("FILL NUM | BER" , REVERSE+11 |
| IBD("PLAN" | ELIG+7 |
| IBD("POLICY" | ELIG+6 |
| IBD("PRESCRIPTION" | REVERSE+10 |
| IBD("RELEASE | COPAY" , REVERSE+27 |
| IBD("RESPIEN" | ELIG+4 |
| IBD("RESPONSE" | REVERSE+12 |
| IBD("REVERSAL | REASON" , REVERSE+14 |
| IBD("RXCOB" | REVERSE+23 |
| IBD("USER" | REVERSE+21, ELIG+5 |
| IBDA | GETRSN+4~, GETRSN+5*, GETRSN+8*, GETRSN+9, GETRSN+11 |
| IBDT | GETRSN+4~, GETRSN+5*, GETRSN+7*, GETRSN+8 |
| IBDUZ | REVERSE+2~, REVERSE+4*, REVERSE+45, REVERSE+52, REVERSE+53, BULL+6 |
| IBERR | ELIG+1~, ELIG+20!, ELIG+23, ELIG+24 |
| IBFDA | ELIG+1~, ELIG+25, ELIG+26, ELIG+33 |
| IBFIL | REVERSE+2~, REVERSE+11*, REVERSE+16, REVERSE+29, RTS+9, RTS+12, GETRSN~, GETRSN+6 |
| IBGRP | BULL+1~ |
| IBI | REVERSE+53~* |
| IBIFN | REVERSE+1~, REVERSE+23*, REVERSE+30, REVERSE+32, REVERSE+37, REVERSE+41, REVERSE+42, REVERSE+53, REVQ+3 |
| IBIL | REVERSE+1~, REVERSE+42*, REVERSE+45, BULL+13 |
| IBITEM | UPAWP+2~, UPAWP+10*, UPAWP+12 |
| IBLDT | REVERSE+1~, REVERSE+3~, REVERSE+22* |
| IBLGL | REVERSE+3~, REVERSE+22* |
| IBLOCK | REVERSE+1~, REVERSE+5*, REVERSE+20*, REVQ+2 |
| IBLOCK2 | RTS+6~, RTS+13*, RTS+17 |
| IBNCPDPELIG | ELIG+1~, ELIG+22* |
| IBNDC | UPAWP~, UPAWP+8*, UPAWP+10 |
| IBNOW | REVERSE+2~ |
| IBPAP | REVERSE+2~, REVERSE+26*, REVERSE+29, REVERSE+30 |
| IBPL | ELIG+1~, ELIG+7*, ELIG+17, ELIG+35 |
| IBPT | BULL+1~, BULL+3* |
| IBRELC | REVERSE+2~, REVERSE+27*, REVERSE+29 |
| IBRES | ELIG+1~, ELIG+2*, ELIG+3*, ELIG+10*, ELIG+11*, ELIG+14*, ELIG+15*, ELIG+16*, ELIG+17*, ELIG+24* , ELIG+25*, ELIG+26*, ELIG+28*, ELIG+30*, ELIG+81*, ELIGX+1 |
| IBRR | RTS~, RTS+8 |
| IBRTS | REVERSE+2~, REVERSE+12, REVERSE+14* |
| IBRXFIL | GETRSN+4~, GETRSN+6*, GETRSN+10 |
| IBRXN | REVERSE+2~, REVERSE+10*, REVERSE+16, REVERSE+29, RTS+9, RTS+12, GETRSN~, GETRSN+6 |
| IBT | REVERSE+53~, BULL+1~ |
| IBT( | BULL+13*, BULL+14*, BULL+15*, BULL+16*, BULL+18*, BULL+19*, BULL+20* |
| IBT(1 | BULL+9* |
| IBT(2 | BULL+10* |
| IBT(3 | BULL+11* |
| IBT(399 | REVERSE+53* |
| IBTRKRN | RTS+6~, RTS+9*, RTS+10, RTS+11, RTS+13, RTS+14, RTS+17 |
| IBUSR | REVERSE+2~, REVERSE+21*, REVERSE+29, ELIG+1~, ELIG+5*, ELIG+21 |
| IBXRSN | GETRSN+4~, GETRSN+5*, GETRSN+7, GETRSN+8, GETRSN+11*, GETRSN+12*, GETRSN+13 |
| IBY | REVERSE+1~, REVERSE+7*, REVERSE+8*, REVERSE+9*, REVERSE+10*, REVERSE+11*, REVERSE+13*, REVERSE+19*, REVERSE+30*, REVERSE+33* , REVERSE+34*, REVERSE+48*, REVERSE+50*, REVQ+1, REVQ+3*, REVQ+4 |
| ICDA | ELIG+1~, ELIG+36*, ELIG+51, ELIG+52, ELIG+53, ELIG+54, ELIG+55, ELIG+56, ELIG+57, ELIG+58 |
| IDUZ | ELIG+1~, ELIG+21* |
| INSIEN | ELIG+1~, ELIG+29*, ELIG+30, ELIG+36 |
| PLDA | ELIG+1~, ELIG+35*, ELIG+41, ELIG+42, ELIG+43, ELIG+44, ELIG+45, ELIG+46, ELIG+47, ELIG+48 , ELIG+49 |
| PTDA | ELIG+1~, ELIG+34*, ELIG+38, ELIG+39 |
| U | REVERSE+34, RTS+11, ELIG+17, ELIG+29 |
| X | REVERSE+1~, REVERSE+45* |
| XMDUZ | BULL+1~, BULL+5* |
| XMSUB | BULL+1~, BULL+4* |
| XMTEXT | BULL+1~, BULL+5* |
| XMY | BULL+1~ |
| XMY( | BULL+6* |
| XMY("G.IBCNR | EPHARM" , BULL+7* |
| Y | REVERSE+1~, REVERSE+47 |
| ZR | ELIG+1~, ELIG+12*, ELIG+13, ELIG+14, ELIG+71, ELIG+75 |
