source: FOIAVistA/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSSCRRV.m@ 1437

Last change on this file since 1437 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 4.3 KB
Line 
1BPSSCRRV ;BHAM ISC/SS - ECME SCREEN REVERSE CLAIM ;05-APR-05
2 ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 Q
5 ;IA 4702
6 ;
7REV ;entry point for "Reverse" menu item
8 N BPRET,BPSARR59
9 I '$D(@(VALMAR)) Q
10 D FULL^VALM1
11 W !,"Enter the line numbers for the Payable claim(s) to be Reversed."
12 S BPRET=$$ASKLINES^BPSSCRU4("Select item(s)","C",.BPSARR59,VALMAR)
13 I BPRET="^" S VALMBCK="R" Q
14 ;reverse selected lines
15 ;update the content of the screen and display it
16 ;only if at least one reversal was submitted successfully
17 I $$RVLINES(.BPSARR59)>0 D REDRAW^BPSSCRUD("Updating screen for reversed claims...")
18 E S VALMBCK="R"
19 Q
20 ;/**
21 ;Reverse selected lines
22 ;input:
23 ; BP59ARR(BP59)="line# in LM array "
24 ;output:
25 ; REVTOTAL - total number of claims for whose the reversal was submitted sucessfully
26RVLINES(BP59ARR) ;*/
27 N BP59,REVTOTAL,BPRVREAS,BPDFN,BPQ
28 N BPIFANY S BPIFANY=0
29 N BPSTATS
30 S REVTOTAL=0,BPQ=""
31 S BP59="" F S BP59=$O(BP59ARR(BP59)) Q:BP59="" D Q:BPQ="^"
32 . I BPIFANY=0 W @IOF
33 . S BPIFANY=1,BPQ=""
34 . S BPDFN=+$P($G(^BPST(BP59,0)),U,6)
35 . S BPSTATS=$P($$CLAIMST^BPSSCRU3(BP59),U)
36 . I BPSTATS'["E DUPLICATE",BPSTATS'["E REVERSAL REJECTED",BPSTATS'["E REVERSAL STRANDED",BPSTATS'["E PAYABLE" D S BPQ=$$PAUSE() Q
37 . . W !,"The claim: ",!,$G(@VALMAR@(+$G(BP59ARR(BP59)),0)),!,"is NOT Payable and cannot be Reversed."
38 . ;
39 . W !,"You've chosen to REVERSE the following prescription for "_$E($$PATNAME^BPSSCRU2(BPDFN),1,13)
40 . W !,$G(@VALMAR@(+$G(BP59ARR(BP59)),0))
41 . F S BPRVREAS=$$COMMENT^BPSSCRCL("Enter REQUIRED REVERSAL REASON",60) Q:BPRVREAS="^" Q:($L(BPRVREAS)>0)&&(BPRVREAS'="^")&&('(BPRVREAS?1" "." ")) D
42 . . W !,"Please provide the reason or enter ^ to abandon the reversal."
43 . I BPRVREAS["^" W !,"The claim: ",!,$G(@VALMAR@(+$G(BP59ARR(BP59)),0)),!,"was NOT reversed!" S BPQ=$$PAUSE() Q
44 . S BPQ=$$YESNO^BPSSCRRS("Are you sure?(Y/N)")
45 . I BPQ=-1 S BPQ="^" Q
46 . I BPQ'=1 Q
47 . I $$REVERSIT(BP59,BPRVREAS)=0 S REVTOTAL=REVTOTAL+1
48 W:BPIFANY=0 !,"No eligible items selected."
49 W !,REVTOTAL," claim reversal",$S(REVTOTAL'=1:"s",1:"")," in progress.",!
50 D PAUSE^VALM1
51 Q REVTOTAL
52 ;
53 ;
54 ;the similar to REVERSE
55 ;with some information displayed for the user
56 ;Input:
57 ; BP59 ptr in file #9002313.59
58 ; BPRVREAS - reversal reason (free text)
59 ;Output:
60 ;-1 Claim is not Payable
61 ;-2 no reversal, it's unreversable
62 ;-3 paper claim
63 ;>0 - IEN of reversal claim if electronic claim submitted for
64 ; reversal.
65REVERSIT(BP59,BPRVREAS) ;
66 N BPRET
67 N BPRX
68 N BPRXRF
69 S BPRXRF=$$RXREF^BPSSCRU2(BP59)
70 S BPRET=+$$REVERSE(BP59,BPRVREAS,+BPRXRF,+$P(BPRXRF,U,2))
71 S BPRX=$$RXNUM^BPSSCRU2(+BPRXRF)
72 Q BPRET
73 ;
74 ;
75 ;/**
76 ;Reverse the claim
77 ;Input:
78 ; BP59 ptr in file #9002313.59
79 ; BPRVREAS - reversal reason (free text)
80 ; BPRX - RX ien (#52)
81 ; BPFIL - refill number
82 ;Output:
83 ; code^message
84 ; where
85 ; code :
86 ; from $$EN^BPSNCPDP
87 ; 0 Prescription/Fill successfully submitted to ECME for claims processing
88 ; 1 ECME did not submit prescription/fill
89 ; 2 IB says prescription/fill is not ECME billable or the data returned from IB is not valid
90 ; 3 ECME closed the claim but did not submit it to the payer
91 ; 4 Unable to queue the ECME claim
92 ; 5 Invalid input
93 ; and additional
94 ; 12 Claim has been deleted in Pharmacy.
95 ; message - whatever $$EN^BPSNCPDP returns
96 ; for 12 - "Claim has been deleted in Pharmacy."
97 ;
98REVERSE(BP59,BPRVREAS,BPRX,BPFIL) ;*/
99 N BPDOS S BPDOS=$$DOSDATE^BPSSCRRS(BPRX,BPFIL)
100 N BPNDC S BPNDC=$$NDC^BPSSCRU2(BPRX,BPFIL)
101 N BPRET
102 I $$RXDEL^BPSOS(BPRX,BPFIL) D Q 12_U_"Claim has been deleted in Pharmacy."
103 . W !,"The claim cannot be reversed since it has been deleted in Pharmacy."
104 S BPRET=$$EN^BPSNCPDP(BPRX,BPFIL,BPDOS,"EREV",BPNDC,BPRVREAS)
105 ;print return value message
106 W !!
107 W:+BPRET>0 "Not Processed:",!," "
108 W $P(BPRET,U,2)
109 ;0 Prescription/Fill successfully submitted to ECME for claims processing
110 ;1 ECME did not submit prescription/fill
111 ;2 IB says prescription/fill is not ECME billable or the data returned from IB is not valid
112 ;3 ECME closed the claim but did not submit it to the payer
113 ;4 Unable to queue the ECME claim
114 ;5 Invalid input
115 I +BPRET=0 D ECMEACT^PSOBPSU1(+BPRX,+BPFIL,"Claim reversal sent to 3rd party payer: ECME USER's SCREEN")
116 Q BPRET
117 ;
118PAUSE() ;
119 N X
120 W ! S DIR(0)="E" D ^DIR K DIR W !
121 Q X
122 ;
Note: See TracBrowser for help on using the repository browser.