Routine: BPSSCRRS

Package	Total	Call Graph
E Claims Management Engine	15	$$EN^BPSNCPDP $$RXDEL^BPSOS $$PAYABLE^BPSOSRX5 $$FINDECLM^BPSPRRX5 ($$AUTOREV,$$RELEASED)^BPSRPT1 $$NB^BPSSCR03 $$YESNO^BPSSCRRS $$PAUSE^BPSSCRRV $$CLOSED^BPSSCRU1 ($$PATNAME,$$RXNUM)^BPSSCRU2 $$CLAIMST^BPSSCRU3 $$ASKLINES^BPSSCRU4 $$INSNAME^BPSSCRU6 REDRAW^BPSSCRUD ($$COB59,$$PAYBLSEC)^BPSUTIL2
VA FileMan	3	^DIR ^DIWP ^DIWW
Outpatient Pharmacy	2	ECMEACT^PSOBPSU1 $$RXRLDT^PSOBPSUT
Integrated Billing	1	$$RXBILL^IBNCPUT3
Kernel	1	$$DT^XLFDT
List Manager	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
E Claims Management Engine	20	BPS PRTCL USRSCR RESUB NO REVERSE BPS PRTCL USRSCR RESUBMIT BPSBCKJ BPSELG BPSNCPDP BPSPRRX BPSPRRX3 BPSPRRX4 BPSPRRX5 BPSREOP1 BPSRES BPSRES1 BPSSCRCL BPSSCRN0 BPSSCRRS BPSSCRRV BPSSCRU5 BPSVRX BPSVRX1 BPSWRKLS
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
RES	;
RESNRV	; entry point for action protocol for Resubmit Claim Without Reversal (BPS120) ; special variable BPRSNRV=1 when doing a resubmit w/o reversal. The Resubmit will be done without ; regard to current claim status
RESUBMIT(RXI,BPRSNRV)	;*/
YESNO(BPQSTR,BPDFL)	; Default - YES
DOSDATE(RXIEN,RXR)	; ; Function that returns the date of service ; Input ; RXIEN - IEN in file #52 ; RXR - refill number ; Returns: ; Date of Service
DOSDT(RXIEN,RXR)	;

External References

Name	Field # of Occurrence
$$EN^BPSNCPDP	RESUBMIT+97
$$RXDEL^BPSOS	RESUBMIT+42
$$PAYABLE^BPSOSRX5	RESUBMIT+72
$$FINDECLM^BPSPRRX5	RESUBMIT+78
$$AUTOREV^BPSRPT1	RESUBMIT+49
$$RELEASED^BPSRPT1	RESUBMIT+49
$$NB^BPSSCR03	RESUBMIT+33, RESUBMIT+94, RESUBMIT+95
$$YESNO^BPSSCRRS	RESUBMIT+85
$$PAUSE^BPSSCRRV	RESUBMIT+72
$$CLOSED^BPSSCRU1	RESUBMIT+45, RESUBMIT+80
$$PATNAME^BPSSCRU2	RESUBMIT+24, RESUBMIT+25
$$RXNUM^BPSSCRU2	RESUBMIT+64
$$CLAIMST^BPSSCRU3	RESUBMIT+52
$$ASKLINES^BPSSCRU4	RES+5, RESNRV+14
$$INSNAME^BPSSCRU6	RESUBMIT+122, RESUBMIT+125
REDRAW^BPSSCRUD	RES+10, RESNRV+19
$$COB59^BPSUTIL2	RESUBMIT+53
$$PAYBLSEC^BPSUTIL2	RESUBMIT+72
^DIR	YESNO+5
^DIWP	RESUBMIT+110
^DIWW	RESUBMIT+111
$$RXBILL^IBNCPUT3	RESUBMIT+59
ECMEACT^PSOBPSU1	RESUBMIT+122, RESUBMIT+125
$$RXRLDT^PSOBPSUT	DOSDATE+10
FULL^VALM1	RES+3, RESNRV+7
PAUSE^VALM1	RESUBMIT+134
$$DT^XLFDT	DOSDATE+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter the line numbers for the claim(s) to be resubmitted." Line Location: RES+4
Function Call: WRITE	Prompt: "Resubmit Claim w/o Reversal" Line Location: RESNRV+8
Function Call: WRITE	Prompt: !!?4,"Note: This action will resubmit claims without performing a reversal." Line Location: RESNRV+9
Function Call: WRITE	Prompt: !!?10,"This action should be used in instances where the payer shows the" Line Location: RESNRV+10
Function Call: WRITE	Prompt: !?10,"claim was reversed and VistA shows a payable claim. This action will" Line Location: RESNRV+11
Function Call: WRITE	Prompt: !?10,"NOT submit a reversal regardless of the current VistA claim status." Line Location: RESNRV+12
Function Call: WRITE	Prompt: !!,"Enter the line numbers for the claim(s) to be resubmitted w/o reversal." Line Location: RESNRV+13
Function Call: WRITE	Prompt: @IOF Line Location: RESUBMIT+21
Function Call: WRITE	Prompt: !,"You've chosen to RESUBMIT the following prescription for "_$E($$PATNAME^BPSSCRU2(BPDFN),1,13) Line Location: RESUBMIT+24
Function Call: WRITE	Prompt: !,"You've chosen to RESUBMIT W/O REVERSAL the following Rx for "_$E($$PATNAME^BPSSCRU2(BPDFN),1,13) Line Location: RESUBMIT+25
Function Call: WRITE	Prompt: !,@VALMAR@(+$G(RXI(BP59)),0) Line Location: RESUBMIT+26
Function Call: WRITE	Prompt: !!,">> Cannot Resubmit w/o Reversal ",!,$G(@VALMAR@(+$G(RXI(BP59)),0)) Line Location: RESUBMIT+34
Function Call: WRITE	Prompt: !," because this is a NON BILLABLE entry. Please use the RES action instead.",! Line Location: RESUBMIT+35
Function Call: WRITE	Prompt: !!,">> Cannot Reverse or Resubmit ",!,@VALMAR@(+$G(RXI(BP59)),0),!," because it has been deleted in Pharmacy.",! Line Location: RESUBMIT+42
Function Call: WRITE	Prompt: !!,">> Cannot Resubmit ",!,$G(@VALMAR@(+$G(RXI(BP59)),0)),!," because the claim is Closed. Reopen the claim and try again.",! Line Location: RESUBMIT+46
Function Call: WRITE	Prompt: !!,">> Cannot Resubmit ",!,$G(@VALMAR@(+$G(RXI(BP59)),0)),!," because the claim is Unreleased and Auto Reversed.",! Line Location: RESUBMIT+50
Function Call: WRITE	Prompt: !!?4,"Rx# ",$$RXNUM^BPSSCRU2(RXIEN)," was previously billed." Line Location: RESUBMIT+64
Function Call: WRITE	Prompt: !?4,"Please review bill# ",$P(IB,U,1)," to determine if it should be cancelled." Line Location: RESUBMIT+65
Function Call: WRITE	Prompt: !?4,"The claim cannot be resubmitted without a reversal to ECME unless the" Line Location: RESUBMIT+66
Function Call: WRITE	Prompt: !?4,"existing bill is cancelled." Line Location: RESUBMIT+67
Function Call: WRITE	Prompt: !!?4,"Cannot submit to ECME using Resubmit Claim w/o Reversal.",! Line Location: RESUBMIT+68
Function Call: WRITE	Prompt: !,"The claim: ",!,$G(@VALMAR@(+$G(RXI(BP59)),0)),!,"cannot be Resubmitted if the secondary claim is payable.",!,"Please reverse the secondary claim first." Line Location: RESUBMIT+73
Function Call: WRITE	Prompt: !,"The secondary claim cannot be Resubmitted unless the primary is either payable",!,"or closed. Please resubmit or close the primary claim first." Line Location: RESUBMIT+81
Function Call: WRITE	Prompt: !,"The claim is in progress. The request will be scheduled and processed after" Line Location: RESUBMIT+86
Function Call: WRITE	Prompt: !,"the previous request(s) are completed. Please be aware that the result of " Line Location: RESUBMIT+87
Function Call: WRITE	Prompt: !,"the resubmit depends on the payer's response to the prior incomplete requests." Line Location: RESUBMIT+88
Function Call: WRITE	Prompt: !! Line Location: RESUBMIT+100
Routine Call	DIR Line Location: YESNO+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPST - [#9002313.59]	RESUBMIT+23
^UTILITY($J	RESUBMIT+105!, RESUBMIT+112!

Label References

Name	Line Occurrences
$$DOSDATE	RESUBMIT+90, DOSDT+2
$$RESUBMIT	RES+10, RESNRV+19
$$YESNO	RESUBMIT+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BILLNUM	RESUBMIT+5~, RESUBMIT+97, RESUBMIT+101, RESUBMIT+103, RESUBMIT+106, RESUBMIT+121, RESUBMIT+124, RESUBMIT+128
BP59	RESUBMIT+6~, RESUBMIT+19, RESUBMIT+20, RESUBMIT+23, RESUBMIT+26, RESUBMIT+33, RESUBMIT+34, RESUBMIT+38, RESUBMIT+39, RESUBMIT+42 , RESUBMIT+45, RESUBMIT+46, RESUBMIT+49, RESUBMIT+50, RESUBMIT+52, RESUBMIT+53, RESUBMIT+72, RESUBMIT+73, RESUBMIT+94, RESUBMIT+95 , RESUBMIT+122, RESUBMIT+125
BPCLTOT	RESUBMIT+7~, RESUBMIT+15, RESUBMIT+123, RESUBMIT+132
BPCLTOTR	RESUBMIT+7~, RESUBMIT+16, RESUBMIT+126, RESUBMIT+133
BPDFL	YESNO~, YESNO+4
BPDFN	RESUBMIT+5~, RESUBMIT+23*, RESUBMIT+24, RESUBMIT+25
BPDOS	DOSDATE+7~, DOSDATE+10, DOSDATE+14, DOSDATE+15
BPDT	DOSDATE+7~
BPG	RESUBMIT+58~, RESUBMIT+59*
BPIFANY	RESUBMIT+11~, RESUBMIT+21, RESUBMIT+22, RESUBMIT+131
BPINPROG	RESUBMIT+12~, RESUBMIT+72, RESUBMIT+84, RESUBMIT+85
BPPRIOPN	RESUBMIT+9~, RESUBMIT+76, RESUBMIT+82
BPQ	RESUBMIT+8~, RESUBMIT+19, RESUBMIT+20, RESUBMIT+22, RESUBMIT+28, RESUBMIT+29, RESUBMIT+30, RESUBMIT+72, RESUBMIT+85
BPQSTR	YESNO~, YESNO+3
BPRET	RES+1~, RES+5, RES+6, RESNRV+4~, RESNRV+14, RESNRV+15
BPRSNRV	RESNRV+4~, RESNRV+5, RESNRV+19, RESUBMIT~, RESUBMIT+18, RESUBMIT+24, RESUBMIT+25, RESUBMIT+33, RESUBMIT+56, RESUBMIT+93 , RESUBMIT+94, RESUBMIT+95
BPRVNEED	RESUBMIT+2~, RESUBMIT+27*, RESUBMIT+40
BPRVRSED	RESUBMIT+1~, RESUBMIT+27*, RESUBMIT+40
BPRVRSNT	RESUBMIT+4~, RESUBMIT+27*
BPRVWAIT	RESUBMIT+3~, RESUBMIT+27*
BPSARR59	RES+1~, RES+5, RES+10, RESNRV+4~, RESNRV+14, RESNRV+19
BPSCOB	RESUBMIT+9~, RESUBMIT+53*, RESUBMIT+59, RESUBMIT+72, RESUBMIT+76, RESUBMIT+97, RESUBMIT+122, RESUBMIT+125
BPSCONT	RESUBMIT+8~, RESUBMIT+56, RESUBMIT+57, RESUBMIT+63
BPSIB	RESUBMIT+58~, RESUBMIT+59
BPSIB(	RESUBMIT+60, RESUBMIT+61
BPSPCLS	RESUBMIT+9~, RESUBMIT+78*, RESUBMIT+79, RESUBMIT+80
BPSRSRRS	RESUBMIT+7~, RESUBMIT+93, RESUBMIT+94, RESUBMIT+95*, RESUBMIT+97
BPSRSWHR	RESUBMIT+7~, RESUBMIT+93, RESUBMIT+94, RESUBMIT+95*, RESUBMIT+97
BPSTATUS	RESUBMIT+9~, RESUBMIT+52*, RESUBMIT+72, RESUBMIT+84
DIR	YESNO+1~
DIR("A"	YESNO+3*
DIR("B"	YESNO+4*
DIR(0	YESNO+2*
DIWF	RESUBMIT+13~, RESUBMIT+107*
DIWL	RESUBMIT+13~, RESUBMIT+108*
DIWR	RESUBMIT+13~, RESUBMIT+109*
DOSDATE	RESUBMIT+5~, RESUBMIT+90*, RESUBMIT+97
DOSDT	DOSDT+1~, DOSDT+2*, DOSDT+3, DOSDT+4
DUOUT	YESNO+1~, YESNO+6
IB	RESUBMIT+58~, RESUBMIT+61*, RESUBMIT+62, RESUBMIT+65
IBIFN	RESUBMIT+58~, RESUBMIT+60*, RESUBMIT+61
IOF	RESUBMIT+21
REVCOUNT	RESUBMIT+10~*
RXI	RESUBMIT~
RXI(	RESUBMIT+20, RESUBMIT+26, RESUBMIT+34, RESUBMIT+42, RESUBMIT+46, RESUBMIT+50, RESUBMIT+73
RXIEN	RESUBMIT+5~, RESUBMIT+38*, RESUBMIT+42, RESUBMIT+49, RESUBMIT+59, RESUBMIT+64, RESUBMIT+78, RESUBMIT+90, RESUBMIT+97, RESUBMIT+122 , RESUBMIT+125, DOSDATE~, DOSDATE+10, DOSDT~, DOSDT+2
RXR	RESUBMIT+5~, RESUBMIT+39*, RESUBMIT+42, RESUBMIT+49, RESUBMIT+59, RESUBMIT+78, RESUBMIT+90, RESUBMIT+97, RESUBMIT+122, RESUBMIT+125 , DOSDATE~, DOSDATE+10, DOSDT~, DOSDT+2
TODAY	DOSDATE+7~, DOSDATE+13*, DOSDATE+14
U	RESUBMIT+23, RESUBMIT+52, RESUBMIT+62, RESUBMIT+65, RESUBMIT+79, RESUBMIT+80, RESUBMIT+103, RESUBMIT+106
UPDATFLG	RESUBMIT+7~, RESUBMIT+17, RESUBMIT+123, RESUBMIT+126, RESUBMIT+128, RESUBMIT+135
>> VALMAR	RES+2, RES+5, RESNRV+6, RESNRV+14, RESUBMIT+26, RESUBMIT+34, RESUBMIT+42, RESUBMIT+46, RESUBMIT+50, RESUBMIT+73
>> VALMBCK	RES+6, RES+11, RESNRV+15, RESNRV+20
WHERE	RESUBMIT+5~
X	RESUBMIT+13~, RESUBMIT+106*
Y	YESNO+1~, YESNO+6

Customize PDF page

Package: E Claims Management Engine

Routine: BPSSCRRS

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 21

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: