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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 2 | IBNCPDP IBNCPDP2 |
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 |