Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: BPSSCRRS

Package: E Claims Management Engine

Routine: BPSSCRRS


Information

BPSSCRRS ;BHAM ISC/SS - ECME SCREEN RESUBMIT ;05-APR-05

Source Information

Source file <BPSSCRRS.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
E Claims Management Engine 14 $$EN^BPSNCPDP  $$RXDEL^BPSOS  $$PAYABLE^BPSOSRX5  $$FINDECLM^BPSPRRX5  $$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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 20

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  

Entry Points

Name Comments DBIA/ICR reference
RES ;
RESNRV ; entry point for action protocol for Resubmit Claim Without Reversal (BPS*1*20)
; 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+93
$$RXDEL^BPSOS RESUBMIT+42
$$PAYABLE^BPSOSRX5 RESUBMIT+68
$$FINDECLM^BPSPRRX5 RESUBMIT+74
$$NB^BPSSCR03 RESUBMIT+33, RESUBMIT+90, RESUBMIT+91
$$YESNO^BPSSCRRS RESUBMIT+81
$$PAUSE^BPSSCRRV RESUBMIT+68
$$CLOSED^BPSSCRU1 RESUBMIT+45, RESUBMIT+76
$$PATNAME^BPSSCRU2 RESUBMIT+24, RESUBMIT+25
$$RXNUM^BPSSCRU2 RESUBMIT+60
$$CLAIMST^BPSSCRU3 RESUBMIT+48
$$ASKLINES^BPSSCRU4 RES+5, RESNRV+14
$$INSNAME^BPSSCRU6 RESUBMIT+118, RESUBMIT+121
REDRAW^BPSSCRUD RES+10, RESNRV+19
$$COB59^BPSUTIL2 RESUBMIT+49
$$PAYBLSEC^BPSUTIL2 RESUBMIT+68
^DIR YESNO+5
^DIWP RESUBMIT+106
^DIWW RESUBMIT+107
$$RXBILL^IBNCPUT3 RESUBMIT+55
ECMEACT^PSOBPSU1 RESUBMIT+118, RESUBMIT+121
$$RXRLDT^PSOBPSUT DOSDATE+10
FULL^VALM1 RES+3, RESNRV+7
PAUSE^VALM1 RESUBMIT+130
$$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: !!?4,"Rx# ",$$RXNUM^BPSSCRU2(RXIEN)," was previously billed."
  • Line Location: RESUBMIT+60
Function Call: WRITE
  • Prompt: !?4,"Please review bill# ",$P(IB,U,1)," to determine if it should be cancelled."
  • Line Location: RESUBMIT+61
Function Call: WRITE
  • Prompt: !?4,"The claim cannot be resubmitted without a reversal to ECME unless the"
  • Line Location: RESUBMIT+62
Function Call: WRITE
  • Prompt: !?4,"existing bill is cancelled."
  • Line Location: RESUBMIT+63
Function Call: WRITE
  • Prompt: !!?4,"Cannot submit to ECME using Resubmit Claim w/o Reversal.",!
  • Line Location: RESUBMIT+64
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+69
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+77
Function Call: WRITE
  • Prompt: !,"The claim is in progress. The request will be scheduled and processed after"
  • Line Location: RESUBMIT+82
Function Call: WRITE
  • Prompt: !,"the previous request(s) are completed. Please be aware that the result of "
  • Line Location: RESUBMIT+83
Function Call: WRITE
  • Prompt: !,"the resubmit depends on the payer's response to the prior incomplete requests."
  • Line Location: RESUBMIT+84
Function Call: WRITE
  • Prompt: !!
  • Line Location: RESUBMIT+96
Routine Call
  • DIR
  • Line Location:
    • YESNO+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$DOSDATE RESUBMIT+86, 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+93*, RESUBMIT+97, RESUBMIT+99*, RESUBMIT+102, RESUBMIT+117, RESUBMIT+120, RESUBMIT+124
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+48, RESUBMIT+49, RESUBMIT+68, RESUBMIT+69, RESUBMIT+90, RESUBMIT+91, RESUBMIT+118, RESUBMIT+121
BPCLTOT RESUBMIT+7~, RESUBMIT+15*, RESUBMIT+119*, RESUBMIT+128
BPCLTOTR RESUBMIT+7~, RESUBMIT+16*, RESUBMIT+122*, RESUBMIT+129
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+54~, RESUBMIT+55*
BPIFANY RESUBMIT+11~*, RESUBMIT+21, RESUBMIT+22*, RESUBMIT+127
BPINPROG RESUBMIT+12~*, RESUBMIT+68, RESUBMIT+80*, RESUBMIT+81
BPPRIOPN RESUBMIT+9~, RESUBMIT+72*, RESUBMIT+78*
BPQ RESUBMIT+8~, RESUBMIT+19*, RESUBMIT+20, RESUBMIT+22*, RESUBMIT+28*, RESUBMIT+29*, RESUBMIT+30, RESUBMIT+68*, RESUBMIT+81*
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+52, RESUBMIT+89
, RESUBMIT+90, RESUBMIT+91
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+49*, RESUBMIT+55, RESUBMIT+68, RESUBMIT+72, RESUBMIT+93, RESUBMIT+118, RESUBMIT+121
BPSCONT RESUBMIT+8~, RESUBMIT+52, RESUBMIT+53*, RESUBMIT+59*
BPSIB RESUBMIT+54~, RESUBMIT+55
BPSIB( RESUBMIT+56, RESUBMIT+57
BPSPCLS RESUBMIT+9~, RESUBMIT+74*, RESUBMIT+75, RESUBMIT+76
BPSRSRRS RESUBMIT+7~, RESUBMIT+89*, RESUBMIT+90*, RESUBMIT+91*, RESUBMIT+93
BPSRSWHR RESUBMIT+7~, RESUBMIT+89*, RESUBMIT+90*, RESUBMIT+91*, RESUBMIT+93
BPSTATUS RESUBMIT+9~, RESUBMIT+48*, RESUBMIT+68, RESUBMIT+80
DIR YESNO+1~
DIR("A" YESNO+3*
DIR("B" YESNO+4*
DIR(0 YESNO+2*
DIWF RESUBMIT+13~, RESUBMIT+103*
DIWL RESUBMIT+13~, RESUBMIT+104*
DIWR RESUBMIT+13~, RESUBMIT+105*
DOSDATE RESUBMIT+5~, RESUBMIT+86*, RESUBMIT+93
DOSDT DOSDT+1~, DOSDT+2*, DOSDT+3, DOSDT+4
DUOUT YESNO+1~, YESNO+6
IB RESUBMIT+54~, RESUBMIT+57*, RESUBMIT+58, RESUBMIT+61
IBIFN RESUBMIT+54~, RESUBMIT+56*, RESUBMIT+57
IOF RESUBMIT+21
REVCOUNT RESUBMIT+10~*
RXI RESUBMIT~
RXI( RESUBMIT+20, RESUBMIT+26, RESUBMIT+34, RESUBMIT+42, RESUBMIT+46, RESUBMIT+69
RXIEN RESUBMIT+5~, RESUBMIT+38*, RESUBMIT+42, RESUBMIT+55, RESUBMIT+60, RESUBMIT+74, RESUBMIT+86, RESUBMIT+93, RESUBMIT+118, RESUBMIT+121
, DOSDATE~, DOSDATE+10, DOSDT~, DOSDT+2
RXR RESUBMIT+5~, RESUBMIT+39*, RESUBMIT+42, RESUBMIT+55, RESUBMIT+74, RESUBMIT+86, RESUBMIT+93, RESUBMIT+118, RESUBMIT+121, DOSDATE~
, DOSDATE+10, DOSDT~, DOSDT+2
TODAY DOSDATE+7~, DOSDATE+13*, DOSDATE+14
U RESUBMIT+23, RESUBMIT+48, RESUBMIT+58, RESUBMIT+61, RESUBMIT+75, RESUBMIT+76, RESUBMIT+99, RESUBMIT+102
UPDATFLG RESUBMIT+7~, RESUBMIT+17*, RESUBMIT+119*, RESUBMIT+122*, RESUBMIT+124*, RESUBMIT+131
>> VALMAR RES+2, RES+5, RESNRV+6, RESNRV+14, RESUBMIT+26, RESUBMIT+34, RESUBMIT+42, RESUBMIT+46, RESUBMIT+69
>> VALMBCK RES+6*, RES+11*, RESNRV+15*, RESNRV+20*
WHERE RESUBMIT+5~
X RESUBMIT+13~, RESUBMIT+102*
Y YESNO+1~, YESNO+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All