Routine: BPSBUTL

Package	Total	Call Graph
E Claims Management Engine	13	INSITEM^BPSCMT01 $$DFF2EXT^BPSECFM BULL^BPSECMP2 $$NPI^BPSNPI $$IEN59^BPSOSRX INCSTAT^BPSOSUD $$UPDREOP^BPSREOP1 $$TOTPRICE^BPSSCRLG ($$ECMENUM,$$RXSTATUS)^BPSSCRU2 ($$CONVCLID,$$DRUGIEN)^BPSSCRU6 $$GETPHARM^BPSUTIL ($$RXAPI1,$$RXSUBF1)^BPSUTIL1 $$COB59^BPSUTIL2
VA FileMan	2	(,FILE)^DIE ($$GET1,GETS)^DIQ
Integrated Billing	1	$$STORESP^IBNCPDP
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Outpatient Pharmacy	16	PSOBPSR1 PSOBPSU1 PSOBPSU2 PSOBPSU3 PSOBPSUT PSOORED2 PSOORED7 PSOREJP1 PSOREJP2 PSOREJP3 PSOREJP5 PSOREJU1 PSOREJU2 PSOREJU3 PSOREJU4 PSOREJUT
E Claims Management Engine	12	BPSNCPD4 BPSNCPD6 BPSNCPDP BPSOS03 BPSOSU BPSPSOU1 BPSREOP1 BPSSCRCL BPSSCRL1 BPSSCRRJ BPSVRX BPSWRKLS
Integrated Billing	10	IBCC1 IBJTCA1 IBJTRX IBNCPDP1 IBNCPDPU IBOHDT1 IBOHLD2 IBOHPT2 IBRBUL IBRREL

Entry Points

Name	Comments	DBIA/ICR reference
CLOSE(CLAIM,TRNDX,REASON,PAPER,RELCOP,COMMENT,ERROR,BPSCLO)	; Send IB an update on the CLAIM status for a Closed Claim
CLOSE2(RXIEN,BFILL,BWHERE)	;
CLAIM(RXI,RXR,COB)	;
NABP(RXP,BFILL)	;
DIVNCPDP(BPSDIV)	;
ADDCOMM(BPRX,BPREF,BPRCMNT,BPBKG)	;
REOPEN(BP59,BP02,BPREOPDT,BPDUZ,BPCOMM)	;
GETDAT(RX,FIL,COB,LDOS,LDSUP)	;Returns Last Date of Service and Last Days Supply
NFLDT(RX,FIL,COB)	;Returns Next Avail Fill Date (B04-BT) from ECME - BPS1.015
BBILL(RX,RFILL,COB)	;Return Back Bill Indicator for Pharmacy - BPS1.015
AMT(RX,FIL,COB)	; Return Gross Amount Due - BPS115 ; RX - rx ien ; FIL - fill#, defaults to original fill if not passed in ; COB - cob payer sequence, defaults to 1 if not passed in
AMTX	;
ELIG(RX,FIL,COB)	; Veteran Eligibility - BPS115 ; RX - rx ien ; FIL - fill#, defaults to original fill if not passed in ; COB - cob payer sequence, defaults to 1 if not passed in
GETBAMT(RXIEN,FILL,COB)
RESUBMIT(RX,REFILL,COB)	; Return Resubmit indicator for Pharmacy - BPS120.
GETCOB(RXIEN,FILL)	; Retrieve the COB payer sequence for usage by PSO ; Input: RXIEN and FILL (both are required) ; Output: Function value will be one of the following ; "" (if the prescription fill cannot be found in BPS Transaction) ; -1 (when there are multiple COB's/payers found in BPS Transaction) ; Otherwise, ; COB#^BPS Transaction IEN
GETCOBX	;
ADDFLDS(RX,FIL,COB)	;Returns Additional NCPDP fields from ECME

Name	Field # of Occurrence
INSITEM^BPSCMT01	ADDCOMM+20
$$DFF2EXT^BPSECFM	CLOSE+15, CLOSE2+30
BULL^BPSECMP2	CLOSE2+59
$$NPI^BPSNPI	DIVNCPDP+10
$$IEN59^BPSOSRX	CLOSE2+14, CLAIM+5, ADDCOMM+12, GETDAT+13, NFLDT+11, BBILL+5, AMT+8, ELIG+7, RESUBMIT+6, GETCOB+12 , GETCOB+13, ADDFLDS+11
INCSTAT^BPSOSUD	CLOSE+32
$$UPDREOP^BPSREOP1	REOPEN+13, REOPEN+16, REOPEN+37
$$TOTPRICE^BPSSCRLG	GETBAMT+7
$$ECMENUM^BPSSCRU2	CLAIM+9
$$RXSTATUS^BPSSCRU2	CLOSE2+46
$$CONVCLID^BPSSCRU6	REOPEN+24
$$DRUGIEN^BPSSCRU6	REOPEN+25
$$GETPHARM^BPSUTIL	DIVNCPDP+6
$$RXAPI1^BPSUTIL1	CLOSE+6, CLOSE+12, CLOSE+13, CLOSE+20, CLOSE2+10, CLOSE2+27, CLOSE2+28, CLOSE2+35
$$RXSUBF1^BPSUTIL1	CLOSE+20, CLOSE2+35
$$COB59^BPSUTIL2	CLOSE+24, CLOSE2+38, REOPEN+30
^DIE	CLOSE2+55
FILE^DIE	ADDCOMM+26
$$GET1^DIQ	CLOSE+22, CLOSE+23, CLOSE2+37, DIVNCPDP+7, REOPEN+29, GETDAT+22, GETDAT+24, NFLDT+13, RESUBMIT+14
GETS^DIQ	CLOSE+4, CLOSE+8, CLOSE2+20, ADDFLDS+17
$$STORESP^IBNCPDP	CLOSE+35, CLOSE2+50, REOPEN+31
$$NOW^XLFDT	CLOSE2+54, ADDCOMM+19

FileNo	Call Tags
^BPSC - [#9002313.02]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ
9002313.0201	GET1^DIQ
9002313.0301	GET1^DIQ, GETS^DIQ
^BPS(9002313.56 - [#9002313.56]	GET1^DIQ
^BPST - [#9002313.59]	GET1^DIQ, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BPSC - [#9002313.02]	NABP+9, REOPEN+9, REOPEN+20, REOPEN+24, REOPEN+33
^BPST - [#9002313.59]	CLOSE+17, CLOSE2+15, CLOSE2+18, CLOSE2+32, CLAIM+6, CLAIM+7, CLAIM+8, NABP+7, ADDCOMM+14, ADDCOMM+21 , REOPEN+2, REOPEN+3, REOPEN+5, REOPEN+26, GETDAT+14, GETDAT+15, NFLDT+12, BBILL+7, BBILL+9, AMT+9 , AMT+10, AMT+11, ELIG+8, ELIG+10, RESUBMIT+8, GETCOB+15, GETCOB+16, GETCOB+17, ADDFLDS+12
^BPST(9002313.59111	ADDCOMM+16, ADDCOMM+27
^BPSTL - [#9002313.57]	GETDAT+19, GETDAT+20
^BPSTL("B"	GETDAT+18
^IBE(356.8 - [#356.8]	CLOSE+26, CLOSE2+43

Name	Line Occurrences
$$CLAIM	GETBAMT+5
AMTX	AMT+7, AMT+9, AMT+10
GETCOBX	GETCOB+9, GETCOB+10, GETCOB+15, GETCOB+16, GETCOB+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMT	AMT+5~, AMT+6, AMT+11, AMTX+1
BAMT	GETBAMT+4~, GETBAMT+7*, GETBAMT+8
BFILL	CLOSE2~, CLOSE2+7, CLOSE2+14, CLOSE2+21, CLOSE2+59, NABP~, NABP+2*, NABP+4
BILLNUM	CLOSE+1~, CLOSE+35, CLOSE2+1~, CLOSE2+50
BP02	REOPEN~, REOPEN+9, REOPEN+13, REOPEN+16, REOPEN+20, REOPEN+24, REOPEN+33, REOPEN+37
BP59	REOPEN~, REOPEN+2, REOPEN+3, REOPEN+5, REOPEN+26, REOPEN+29, REOPEN+30
BPBKG	ADDCOMM~, ADDCOMM+24
BPCOMM	REOPEN~, REOPEN+13, REOPEN+28
BPDA	ADDCOMM+7~, REOPEN+1~
BPDA(	ADDCOMM+24, ADDCOMM+25
BPDFN	REOPEN+1~, REOPEN+2*, REOPEN+25, REOPEN+31
BPDUZ	REOPEN~, REOPEN+13, REOPEN+16, REOPEN+27, REOPEN+37
BPERR	ADDCOMM+7~, ADDCOMM+29
BPNOW	ADDCOMM+7~, ADDCOMM+19*, ADDCOMM+20, ADDCOMM+21
BPRCMNT	ADDCOMM~, ADDCOMM+10, ADDCOMM+25
BPREC	ADDCOMM+7~, ADDCOMM+21*, ADDCOMM+22, ADDCOMM+24, ADDCOMM+25, ADDCOMM+29
BPREF	ADDCOMM~, ADDCOMM+12
BPREFNO	REOPEN+1~, REOPEN+3*, REOPEN+4, REOPEN+22
BPREOPDT	REOPEN~, REOPEN+13
BPRETVAL	REOPEN+1~, REOPEN+13, REOPEN+14, REOPEN+31, REOPEN+33, REOPEN+39
BPRX	ADDCOMM~, ADDCOMM+9, ADDCOMM+12
BPRXIEN	REOPEN+1~, REOPEN+5*, REOPEN+6, REOPEN+10, REOPEN+23, REOPEN+25
BPSAMT	ADDFLDS+9~
BPSARR	ADDFLDS+9~
BPSARR(	ADDFLDS+21, ADDFLDS+24, ADDFLDS+26
BPSARRY	CLOSE+1~, CLOSE+35, CLOSE2+1~, CLOSE2+50, REOPEN+1~, REOPEN+31
BPSARRY("BILLED"	CLOSE+15, CLOSE2+30
BPSARRY("CLAIMID"	CLOSE+16, CLOSE2+31, CLOSE2+59, REOPEN+24*
BPSARRY("CLOS	E COMMENT" , CLOSE+29, CLOSE2+46, E REASON" , CLOSE+26, CLOSE2+43, CLOSE2+54
BPSARRY("DOS"	CLOSE+9, CLOSE+10, CLOSE2+22, CLOSE2+23, REOPEN+20, REOPEN+21
BPSARRY("DROP	TO PAPER" , CLOSE+27*, CLOSE+32
BPSARRY("DRUG"	REOPEN+25*
BPSARRY("EPHARM"	CLOSE+23, CLOSE2+37, REOPEN+29*
BPSARRY("FILL	NUMBER" , CLOSE+7, CLOSE+11, CLOSE2+21, CLOSE2+26, REOPEN+22, ED BY" , CLOSE+13, CLOSE2+28*
BPSARRY("PAID"	CLOSE+19, CLOSE2+34
BPSARRY("PLAN"	CLOSE+17, CLOSE2+32, REOPEN+26*
BPSARRY("PRESCRIPTION"	CLOSE+14, CLOSE2+29, REOPEN+23*
BPSARRY("RELE	ASE COPAY" , CLOSE+28, ASE DATE" , CLOSE+20, CLOSE2+35*
BPSARRY("REOP	EN COMMENT" , REOPEN+28*
BPSARRY("RXCOB"	CLOSE+24, CLOSE2+38, CLOSE2+59, REOPEN+30*
BPSARRY("STATUS"	CLOSE+18, CLOSE2+33, REOPEN+19*
BPSARRY("USER"	CLOSE+21, CLOSE+22, CLOSE2+36, REOPEN+27
BPSCIEN	NABP+3~, NABP+7*, NABP+8, NABP+9
BPSCLO	CLOSE~, CLOSE+21
BPSCNT	ADDFLDS+9~, ADDFLDS+19, ADDFLDS+20, ADDFLDS+21
BPSDIV	DIVNCPDP~, DIVNCPDP+2, DIVNCPDP+6, DIVNCPDP+10
BPSEDT	ADDFLDS+9~, ADDFLDS+26, ADDFLDS+27
BPSFLDS	ADDFLDS+9~, ADDFLDS+16*, ADDFLDS+17, ADDFLDS+20, ADDFLDS+21
BPSIEN59	RESUBMIT+1~, RESUBMIT+6*, RESUBMIT+7, RESUBMIT+8, RESUBMIT+14
BPSPHARM	DIVNCPDP+1~, DIVNCPDP+6*, DIVNCPDP+7
BPSREC	ADDFLDS+9~, ADDFLDS+19, ADDFLDS+21, ADDFLDS+25, ADDFLDS+27, ADDFLDS+29
BPSRXACT	RESUBMIT+1~, RESUBMIT+14*, RESUBMIT+15
BPSSDT	ADDFLDS+9~, ADDFLDS+24, ADDFLDS+25
BPSTIEN	NABP+3~, NABP+5*, NABP+6, NABP+7
BPZ	REOPEN+1~, REOPEN+9*, REOPEN+24
BPZ1	REOPEN+1~
BWHERE	CLOSE2~, CLOSE2+8, CLOSE2+11, CLOSE2+41, CLOSE2+42, CLOSE2+46
CLAIM	CLOSE~, CLOSE+8, CLOSE+9, CLOSE+15, CLOSE+16, CLOSE2+18*, CLOSE2+19, CLOSE2+20, CLOSE2+22, CLOSE2+30 , CLOSE2+31, CLOSE2+53, CLOSE2+59
CLAIMIEN	CLAIM+1~, CLAIM+7, CLAIM+10, GETBAMT+4~, GETBAMT+6, GETBAMT+7
CLAIMNFO	CLOSE+1~, CLOSE2+2~
CLAIMNFO("9002313.02"	CLOSE+9, CLOSE2+22
CLAIMNFO("9002313.0201"	CLOSE+15, CLOSE+16, CLOSE2+30, CLOSE2+31
COB	CLAIM~, CLAIM+5, GETDAT~, GETDAT+10, GETDAT+13, NFLDT~, NFLDT+8, NFLDT+11, BBILL~, BBILL+5 , AMT~, AMT+8, ELIG~, ELIG+7, GETBAMT~, GETBAMT+5, RESUBMIT~, RESUBMIT+6, ADDFLDS~, ADDFLDS+11
COMMENT	CLOSE~, CLOSE+29
DA	CLOSE2+3~, CLOSE2+53*
DFILL	NABP+3~, NABP+4*, NABP+5
DFN	CLOSE+1~, CLOSE+12, CLOSE+35, CLOSE2+1~, CLOSE2+27, CLOSE2+50, CLOSE2+59
DIE	CLOSE2+3~, CLOSE2+53*
DR	CLOSE2+3~, CLOSE2+54*
DUZ	CLOSE+21, ADDCOMM+24
ECMENUM	CLAIM+1~, CLAIM+9*, CLAIM+10
ERRARR	REOPEN+1~
ERROR	CLOSE~, CLOSE+6, CLOSE2+6, CLOSE2+7, CLOSE2+8, CLOSE2+10, CLOSE2+11, CLOSE2+19*
FIL	GETDAT~, GETDAT+9, GETDAT+13, NFLDT~, NFLDT+7, NFLDT+11, AMT~, AMT+8, ELIG~, ELIG+7 , ADDFLDS~, ADDFLDS+8, ADDFLDS+11
FILL	CLOSE2+1~, GETBAMT~, GETBAMT+5, GETCOB~, GETCOB+10, GETCOB+12, GETCOB+13
FILLNUM	CLOSE+1~, CLOSE+11, CLOSE+20, CLOSE2+26, CLOSE2+35
>> I	ADDFLDS+20*, ADDFLDS+21
IEN02	GETDAT+11~, GETDAT+12, GETDAT+15, GETDAT+16, GETDAT+18, GETDAT+20, GETDAT+21, GETDAT+22, GETDAT+24, NFLDT+9~ , NFLDT+10
IEN03	NFLDT+9~, NFLDT+12, NFLDT+13, ADDFLDS+9~, ADDFLDS+12, ADDFLDS+14, ADDFLDS+17, ADDFLDS+21, ADDFLDS+24, ADDFLDS+26
IEN57	GETDAT+11~, GETDAT+17, GETDAT+18, GETDAT+19, GETDAT+20
IEN59	CLOSE2+1~, CLOSE2+14, CLOSE2+15, CLOSE2+18, CLOSE2+32, CLOSE2+37, CLOSE2+38, CLAIM+1~, CLAIM+5, CLAIM+6 , CLAIM+7, CLAIM+8, CLAIM+9, CLAIM+10, ADDCOMM+7~, ADDCOMM+12, ADDCOMM+13, ADDCOMM+14, ADDCOMM+16, ADDCOMM+20 , ADDCOMM+21, ADDCOMM+24, ADDCOMM+25, ADDCOMM+27, GETDAT+11~, GETDAT+13, GETDAT+14, GETDAT+15, GETDAT+18, NFLDT+9~ , NFLDT+11, NFLDT+12, BBILL+1~, BBILL+5, BBILL+7, BBILL+9, AMT+5~, AMT+8, AMT+9, AMT+10 , AMT+11, ELIG+7~, ELIG+8, ELIG+10, ADDFLDS+9~, ADDFLDS+11*, ADDFLDS+12
LDOS	GETDAT~, GETDAT+21, GETDAT+22, GETDAT+23*
LDSUP	GETDAT~, GETDAT+21, GETDAT+24, GETDAT+25*
NABP	NABP+3~, NABP+9*, NABP+10
NCPDP	DIVNCPDP+1~, DIVNCPDP+5, DIVNCPDP+7, DIVNCPDP+13
NFLDT	NFLDT+9~, NFLDT+12, NFLDT+13, NFLDT+14*, NFLDT+15
NPI	DIVNCPDP+1~, DIVNCPDP+10, DIVNCPDP+11, DIVNCPDP+13
PAPER	CLOSE~, CLOSE+27
PRI59	GETCOB+7~, GETCOB+12*, GETCOB+15, GETCOB+16
QN	AMT+5~, AMT+10*, AMT+11
REASON	CLOSE~, CLOSE+25, CLOSE+26, CLOSE2+1~, CLOSE2+41, CLOSE2+42, CLOSE2+43, CLOSE2+59
RECIENS	REOPEN+1~
REFILL	RESUBMIT~, RESUBMIT+6
RELCOP	CLOSE~, CLOSE+28
RESPIEN	CLAIM+1~, CLAIM+7*, CLAIM+10
RET	GETCOB+7~, GETCOB+8, GETCOB+15, GETCOB+16, GETCOB+17, GETCOBX+1
REVCLAIM	CLAIM+1~, CLAIM+8*, CLAIM+10
REVRESP	CLAIM+1~, CLAIM+8*, CLAIM+10
RFILL	BBILL~, BBILL+5
RX	GETDAT~, GETDAT+9, GETDAT+13, NFLDT~, NFLDT+7, NFLDT+11, BBILL~, BBILL+3, BBILL+5, AMT~ , AMT+7, AMT+8, ELIG~, ELIG+5, ELIG+7, RESUBMIT~, RESUBMIT+2, RESUBMIT+6, ADDFLDS~, ADDFLDS+8 , ADDFLDS+11
RXACT	BBILL+1~, BBILL+9*, BBILL+11
RXI	CLAIM~, CLAIM+2, CLAIM+5
RXIEN	CLOSE+1~, CLOSE+5*, CLOSE+6, CLOSE+12, CLOSE+13, CLOSE+14, CLOSE+20, CLOSE2~, CLOSE2+6, CLOSE2+10 , CLOSE2+14, CLOSE2+27, CLOSE2+28, CLOSE2+29, CLOSE2+35, CLOSE2+46, CLOSE2+59, GETBAMT~, GETBAMT+5, GETCOB~ , GETCOB+9, GETCOB+12, GETCOB+13
RXP	NABP~, NABP+1, NABP+5
RXR	CLAIM~, CLAIM+5
SEC59	GETCOB+7~, GETCOB+13*, GETCOB+15, GETCOB+17
STAT	GETDAT+11~, GETDAT+14, GETDAT+15, GETDAT+19, GETDAT+20, NFLDT+9~
TRANINFO	CLOSE+1~
TRANINFO(	CLOSE+5, CLOSE+7
TRNDX	CLOSE~, CLOSE+4, CLOSE+5, CLOSE+7, CLOSE+17, CLOSE+22, CLOSE+23, CLOSE+24
U	CLAIM+10, NABP+7, NABP+9, REOPEN+2, REOPEN+3, REOPEN+5, REOPEN+20, REOPEN+24, REOPEN+33, GETDAT+14 , GETDAT+15, GETDAT+19, GETDAT+20, NFLDT+12, BBILL+9, AMT+11, ELIG+10, GETBAMT+6, GETCOB+16, GETCOB+17 , ADDFLDS+12, ADDFLDS+21, ADDFLDS+25, ADDFLDS+27
X	GETBAMT+4~, GETBAMT+5*, GETBAMT+6

Customize PDF page

Package: E Claims Management Engine

Routine: BPSBUTL

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 38

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: