Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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) ;

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+20
Function Call: WRITE
  • Prompt: !,"You've chosen to RESUBMIT the following prescription for "_$E($$PATNAME^BPSSCRU2(BPDFN),1,13)
  • Line Location: RESUBMIT+23
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+24
Function Call: WRITE
  • Prompt: !,@VALMAR@(+$G(RXI(BP59)),0)
  • Line Location: RESUBMIT+25
Function Call: WRITE
  • Prompt: !!,">> Cannot Resubmit w/o Reversal ",!,$G(@VALMAR@(+$G(RXI(BP59)),0))
  • Line Location: RESUBMIT+33
Function Call: WRITE
  • Prompt: !," because this is a NON BILLABLE entry. Please use the RES action instead.",!
  • Line Location: RESUBMIT+34
Function Call: WRITE
  • Prompt: !!,">> Cannot Reverse or Resubmit ",!,@VALMAR@(+$G(RXI(BP59)),0),!," because it has been deleted in Pharmacy.",!
  • Line Location: RESUBMIT+41
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+45
Function Call: WRITE
  • Prompt: !!,">> Cannot Resubmit ",!,$G(@VALMAR@(+$G(RXI(BP59)),0)),!," because the claim is Unreleased and Auto Reversed.",!
  • Line Location: RESUBMIT+49
Function Call: WRITE
  • Prompt: !!?4,"Rx# ",$$RXNUM^BPSSCRU2(RXIEN)," was previously billed."
  • Line Location: RESUBMIT+63
Function Call: WRITE
  • Prompt: !?4,"Please review bill# ",$P(IB,U,1)," to determine if it should be cancelled."
  • Line Location: RESUBMIT+64
Function Call: WRITE
  • Prompt: !?4,"The claim cannot be resubmitted without a reversal to ECME unless the"
  • Line Location: RESUBMIT+65
Function Call: WRITE
  • Prompt: !?4,"existing bill is cancelled."
  • Line Location: RESUBMIT+66
Function Call: WRITE
  • Prompt: !!?4,"Cannot submit to ECME using Resubmit Claim w/o Reversal.",!
  • Line Location: RESUBMIT+67
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+72
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+80
Function Call: WRITE
  • Prompt: !,"The claim is in progress. The request will be scheduled and processed after"
  • Line Location: RESUBMIT+85
Function Call: WRITE
  • Prompt: !,"the previous request(s) are completed. Please be aware that the result of "
  • Line Location: RESUBMIT+86
Function Call: WRITE
  • Prompt: !,"the resubmit depends on the payer's response to the prior incomplete requests."
  • Line Location: RESUBMIT+87
Function Call: WRITE
  • Prompt: !!
  • Line Location: RESUBMIT+100
Info |  Source |  Entry Points |  Interaction Calls