Routine: IBNCPDP3

Package	Total	Call Graph
Integrated Billing	9	(ERR,PAT)^IBAERR1 PT^IBCNEBF E1^IBCNETST ($$ADDBI,$$ADDCI)^IBCREF $$PT^IBEFUNC ($$MATCH,LOG)^IBNCPDP2 $$BCID^IBNCPDP4 CANC^IBNCPDP6 ($$NDC,NONBR)^IBNCPNB
VA FileMan	3	$$FIND1^DIC (,FILE)^DIE ($$GET1,GETS)^DIQ
Accounts Receivable	1	^PRCASER1
Automated Information Collection System	1	$$ADD^IBDFDBS
E Claims Management Engine	1	$$CHECK^BPSTEST
Kernel	1	($$FMADD,$$NOW)^XLFDT
MailMan	1	^XMD

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	;
EIVE1LOG	;IB*822/CKB - Add to EIV E1 TRANSACTION RESPONSE LOG file #365.3

Name	Field # of Occurrence
$$CHECK^BPSTEST	ELIG+20
$$FIND1^DIC	ELIG+26
^DIE	REVERSE+38, RTS+16
FILE^DIE	REVERSE+53, ELIG+97, EIVE1LOG+23
$$GET1^DIQ	GETRSN+11, ELIG+24, EIVE1LOG+14, EIVE1LOG+19, EIVE1LOG+21, EIVE1LOG+22
GETS^DIQ	ELIG+13
ERR^IBAERR1	BULL+17
PAT^IBAERR1	BULL+12
PT^IBCNEBF	ELIG+38
E1^IBCNETST	ELIG+20
$$ADDBI^IBCREF	UPAWP+10
$$ADDCI^IBCREF	UPAWP+12
$$ADD^IBDFDBS	EIVE1LOG+8
$$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
$$NOW^XLFDT	ELIG+83, EIVE1LOG+5
^XMD	BULL+21

Name	Line Occurrences
Function Call: WRITE	Prompt: "Unable to add entry, "_IBERR Line Location: EIVE1LOG+9
Routine Call	DIC Line Location: ELIG+26
Routine Call	DIE Line Location: REVERSE+38 RTS+16
Routine Call	DIE Line Location: REVERSE+53 ELIG+97 EIVE1LOG+23

FileNo	Call Tags
^IBAM(354.71 - [#354.71]	GET1^DIQ
^IBA(355.33 - [#355.33]	GET1^DIQ
^IBT(356 - [#356]	Classic Fileman Calls
^DIC(36 - [#36]	GET1^DIQ
^IBE(365.15 - [#365.15]	FIND1^DIC
^DGCR(399 - [#399]	Classic Fileman Calls
^BPSR - [#9002313.03]	GETS^DIQ
9002313.0301	GET1^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+45
^IBA(355.33 - [#355.33]	ELIG+41
^IBAM(354.71 - [#354.71]	GETRSN+7, GETRSN+8, GETRSN+9
^IBE(350.9 - [#350.9]	UPAWP+5
^IBE(355.12 - [#355.12]	ELIG+36, ELIG+43
^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
EIVE1LOG	ELIG+100
ELIGX	ELIG+3, ELIG+10, ELIG+11, ELIG+14, ELIG+15, ELIG+16, ELIG+17, ELIG+37, ELIG+39, ELIG+40 , ELIG+44, ELIG+46
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*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BPRGRP	ELIG+1~, ELIG+89*, ELIG+91
BPRIEN	ELIG+1~, ELIG+4*, ELIG+10, ELIG+11, ELIG+12, ELIG+20, ELIG+24, ELIG+84, EIVE1LOG+6, EIVE1LOG+14
BPRSUB	ELIG+1~, ELIG+93*, ELIG+95
BPSR	ELIG+1~
BPSR(	ELIG+14, ELIG+89, ELIG+93
BPSSTAT	ELIG+23~, ELIG+24, ELIG+25
BUDA	ELIG+1~, ELIG+49*, ELIG+83, ELIG+84, ELIG+91, ELIG+95, EIVE1LOG+21, EIVE1LOG+22
BUFF	ELIG+1~
BUFF(	ELIG+83, ELIG+84, ELIG+91, ELIG+95
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+20, ELIG+38, ELIG+45, ELIG+50, EIVE1LOG+4
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
E1IEN	EIVE1LOG+1~, EIVE1LOG+8*, EIVE1LOG+9, EIVE1LOG+13
E1LOG	EIVE1LOG+1~, EIVE1LOG+24!
E1LOG(	EIVE1LOG+14, EIVE1LOG+15, EIVE1LOG+16, EIVE1LOG+17, EIVE1LOG+18, EIVE1LOG+19, EIVE1LOG+20, EIVE1LOG+21, EIVE1LOG+22*
E1SYMBOL	ELIG+23~, ELIG+25, ELIG+26*, ELIG+38
EPHSRC	ELIG+1~, ELIG+36, ELIG+37, ELIG+43, ELIG+44
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+38, ELIG+45, ELIG+50, EIVE1LOG+17
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
IBDATA	EIVE1LOG+1~, EIVE1LOG+8, EIVE1LOG+10!
IBDATA(	EIVE1LOG+4, EIVE1LOG+5, EIVE1LOG+6*
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+29!, ELIG+38, ELIG+39, EIVE1LOG+1~, EIVE1LOG+8, EIVE1LOG+10*
IBFDA	ELIG+1~, ELIG+40, ELIG+41, ELIG+49, EIVE1LOG+15
IBFIL	REVERSE+2~, REVERSE+11*, REVERSE+16, REVERSE+29, RTS+9, RTS+12, GETRSN~, GETRSN+6
IBFILE	EIVE1LOG+1~, EIVE1LOG+2*, EIVE1LOG+8
IBGRP	BULL+1~
IBI	REVERSE+53~*
IBIEN	EIVE1LOG+1~, EIVE1LOG+8, EIVE1LOG+9, EIVE1LOG+13
IBIENS	EIVE1LOG+1~, EIVE1LOG+13*, EIVE1LOG+14, EIVE1LOG+15, EIVE1LOG+16, EIVE1LOG+17, EIVE1LOG+18, EIVE1LOG+19, EIVE1LOG+20, EIVE1LOG+21 , EIVE1LOG+22
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+31*
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+51, EIVE1LOG+20
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+37* , ELIG+39, ELIG+40, ELIG+41, ELIG+44, ELIG+46, ELIG+102, 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
IBSOURCE	ELIG+35~, ELIG+36*
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+30
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+52*, EIVE1LOG+19
IDUZ	ELIG+1~, ELIG+30*
INSIEN	ELIG+1~, ELIG+45*, ELIG+46, ELIG+52, EIVE1LOG+18
PLDA	ELIG+1~, ELIG+51*
PTDA	ELIG+1~, ELIG+50*
U	REVERSE+34, RTS+11, ELIG+17, ELIG+45
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+89, ELIG+93

Customize PDF page

Package: Integrated Billing

Routine: IBNCPDP3

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: