Produced by Araxis Merge on 9/6/2017 3:05:38 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US589 v1.01.docx | Thu Jul 27 19:16:52 2017 UTC |
| 2 | MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US589 v1.01.docx | Wed Sep 6 18:33:58 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 556 |
| Changed | 0 | 0 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | MCCF EDI T AS US589 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | May 2017 | |
| 10 | Version 1. 01 | |
| 11 | User Story Number: U SRX-14 | |
| 12 | User Story Name: Nee d the ECME AUTO-REVE RSAL PROCE SS email b ulletin to include p atient’s e ligibility and drug name | |
| 13 | Product Ba cklog ID: 14 | |
| 14 | Backlog Pr iority: Lo w | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US589 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | The BPS Ni ghtly Back ground Job creates t he ECME AU TO-REVERSA L PROCESS email bull etin. The bulletin n eeds to be updated t o include the patien t’s eligib ility and drug name. The routi ne that cr eates the email bull etin is ^B PSBCKJ. Th is Routine uses the BPS TRANSA CTION File (9002313. 59). | |
| 21 | AUTOREV^BP SBCKJ coll ects the d ata to be used in th e email bu lletin. | |
| 22 | ARLIST^BPS BCKJ uses the collec ted data t o produce the email bulletin. | |
| 23 | ||
| 24 | List of Co mponents: | |
| 25 | Routine: ^ BPSBCKJ | |
| 26 | ||
| 27 | Design – D etail | |
| 28 | ||
| 29 | Subroutine Name | |
| 30 | AUTOREV^BP SBCKJ | |
| 31 | Enhancemen t Category | |
| 32 | New | |
| 33 | Modify | |
| 34 | Delete | |
| 35 | No Change | |
| 36 | Story | |
| 37 | US589 | |
| 38 | Related Me nu Options or ListMa n Actions | |
| 39 | BPS NIGHTL Y BACKGROU ND JOB | |
| 40 | Related Ro utines | |
| 41 | This Subro utine is C alled By | |
| 42 | This Subro utine Call s | |
| 43 | ||
| 44 | EN^BPSBCKJ | |
| 45 | C^%DTC, $$ DT^XLFDT, $$PAID^BPS OSQ4, $$RE VINP^BPSBC KJ, $$FMDI FF^XLFDT, $$RELDATE^ BPSBCKJ an d $$REVERS E^BPSBCKJ | |
| 46 | Related In tegration Control Re gistration s (ICRs) | |
| 47 | n/a | |
| 48 | Data Passi ng | |
| 49 | Parameter Input | |
| 50 | Parameter Output | |
| 51 | Function Return Val ue | |
| 52 | Global Mo dified | |
| 53 | Input Attr ibute Name and Defin ition | |
| 54 | Name: n/a | |
| 55 | Definition : | |
| 56 | New Modify Delete No Cha nge | |
| 57 | Output Att ribute Nam e and Defi nition | |
| 58 | Name: n/a | |
| 59 | Definition : | |
| 60 | New Modify Delete No Cha nge | |
| 61 | Current Lo gic | |
| 62 | ||
| 63 | BPSBCKJ ; BHAM ISC/A AT - BPS N IGHTLY BAC KGROUND JO B ;02/27/2 005 | |
| 64 | ; ;1.0;E CLA IMS MGMT E NGINE;**1, 2,5,7,8**; JUN 2004;B uild 29 | |
| 65 | ; ;Per VHA D irective 2 004-038, t his routin e should n ot be modi fied. | |
| 66 | ||
| 67 | … | |
| 68 | ||
| 69 | AUTOREV ; The Auto-R everse Pro cedure | |
| 70 | N BDT,BTR AN,BPHARM, BTRAN0,BTR AN1,BTRAN4 ,BDAYS,BRX ,BFIL,BDAT E,BNOW,BCL AIM,BRES,B REV,BTEST, REF,BCNT,B TX,X,X1,X2 | |
| 71 | ; | |
| 72 | S BTEST=0 ; Debuggi ng flag 1 - TEST, 0 - LIVE | |
| 73 | S BCNT=0 ; Count re versals | |
| 74 | ; | |
| 75 | S REF=$NA (^TMP($J," BPSBCKJ")) K @REF | |
| 76 | ; | |
| 77 | S (X1,BNO W)=$$DT^XL FDT() | |
| 78 | ; | |
| 79 | ;Define n umber of d ays to loo k back - A uto Revers e days can be from 0 -31 | |
| 80 | ;To make sure every claim is caught, mo ving back 45 days | |
| 81 | S X2=-45 D C^%DTC S BDT=X | |
| 82 | ; | |
| 83 | ;Loop thr ough 'LAST UPDATE' ' AH' index | |
| 84 | F S BDT= $O(^BPST(" AH",BDT)) Q:'BDT S BTRAN=0 F S BTRAN=$ O(^BPST("A H",BDT,BTR AN)) Q:'BT RAN D | |
| 85 | . W:BTEST !,"TRAN=" ,BTRAN," " ,?20 | |
| 86 | . S BTRAN 0=$G(^BPST (BTRAN,0)) ,BTRAN1=$G (^(1)),BTR AN4=$G(^(4 )) | |
| 87 | . I BTRAN 0=""!(BTRA N1="") W:B TEST "ZERO OR ONE NO DE MISSING " Q | |
| 88 | . I '$$PA ID^BPSOSQ4 (BTRAN) W: BTEST "NOT PAID" Q ; Not paid | |
| 89 | . S BPHAR M=$P(BTRAN 1,U,7) I ' BPHARM W:B TEST "NO B PS PHARM" Q ; BPS P HARMACY | |
| 90 | . W:BTEST "BPHARM=" ,$P($G(^BP S(9002313. 56,BPHARM, 0)),U,1)," " | |
| 91 | . ; | |
| 92 | . ;Handle 'Inpatien t' Auto-Re versals | |
| 93 | . S BREV= $$REVINP(B NOW,BTRAN, BTRAN0,BTR AN1,BPHARM ) Q:BREV | |
| 94 | . ; | |
| 95 | . ;Handle Regular A uto-Revers als | |
| 96 | . S BDAYS =+$P($G(^B PS(9002313 .56,BPHARM ,0)),U,9) | |
| 97 | . I 'BDAY S W:BTEST "AUTO-REV DISABLED" Q ;disabl ed | |
| 98 | . I $P(BT RAN4,U,1) Q ;Revers al claim e xist | |
| 99 | . S BCLAI M=$P(BTRAN 0,U,4) I ' BCLAIM W:B TEST "NO B CLAIM" Q | |
| 100 | . I $P($G (^BPSC(BCL AIM,0)),U, 7) W:BTEST "AUTO-REV ERSE FLAG" Q | |
| 101 | . S BDATE =$P($G(^BP SC(BCLAIM, 0)),U,5) | |
| 102 | . I 'BDAT E S BDATE= $P($G(^BPS C(BCLAIM,0 )),U,6) | |
| 103 | . S BDATE =$P(BDATE, ".") | |
| 104 | . I 'BDAT E="" W:BTE ST "NO DAT E" Q | |
| 105 | . W:BTEST "DATE=",B DATE," " | |
| 106 | . I $$FMD IFF^XLFDT( BNOW,BDATE ,1)'>BDAYS W:BTEST " TOO EARLY" Q | |
| 107 | . S BRX=$ P(BTRAN1,U ,11) I 'BR X W:BTEST "NO RX" Q | |
| 108 | . S BFIL= $P(BTRAN1, U,1) | |
| 109 | . I $$REL DATE(BRX,B FIL) W:BTE ST " RELEA SED" Q ;r eleased | |
| 110 | . S BRES= $$REVERSE( BRX,BFIL,B CLAIM,1) | |
| 111 | . W:BTEST " *REV CL M=",BCLAIM ," STAT=", BRES | |
| 112 | . I BRES= 0!(BRES=4) D | |
| 113 | .. S (BCN T,@REF@(BR ES))=$G(@R EF@(BRES)) +1 | |
| 114 | .. S @REF @(BRES,BCN T)=BTRAN_U _BCLAIM_U_ BRX_U_BFIL _U_BPHARM | |
| 115 | . ; Any n otificatio ns to IB? | |
| 116 | D BULL(RE F) ; Send the bullet in | |
| 117 | K @REF | |
| 118 | Q | |
| 119 | ||
| 120 | Modified L ogic (Chan ges are hi ghlighted) | |
| 121 | ||
| 122 | BPSBCKJ ; BHAM ISC/A AT - BPS N IGHTLY BAC KGROUND JO B ;02/27/2 005 | |
| 123 | ; ;1.0;E CLA IMS MGMT E NGINE;**1, 2,5,7,8,22 **;JUN 200 4;Build 29 | |
| 124 | ; ;Per VHA D irective 6 402, this routine sh ould not b e modified . | |
| 125 | ||
| 126 | … | |
| 127 | ||
| 128 | AUTOREV ; The Auto-R everse Pro cedure | |
| 129 | N BDT,BTR AN,BPHARM, BTRAN0,BTR AN1,BTRAN4 ,BDAYS,BRX ,BFIL,BDAT E,BNOW,BCL AIM,BRES,B REV,BTEST, REF,BCNT,B TX,X,X1,X2 | |
| 130 | N BTRAN9, BELIG,BDRU G | |
| 131 | ; | |
| 132 | S BTEST=0 ; Debuggi ng flag 1 - TEST, 0 - LIVE | |
| 133 | S BCNT=0 ; Count re versals | |
| 134 | ; | |
| 135 | S REF=$NA (^TMP($J," BPSBCKJ")) K @REF | |
| 136 | ; | |
| 137 | S (X1,BNO W)=$$DT^XL FDT() | |
| 138 | ; | |
| 139 | ;Define n umber of d ays to loo k back - A uto Revers e days can be from 0 -31 | |
| 140 | ;To make sure every claim is caught, mo ving back 45 days | |
| 141 | S X2=-45 D C^%DTC S BDT=X | |
| 142 | ; | |
| 143 | ;Loop thr ough 'LAST UPDATE' ' AH' index | |
| 144 | F S BDT= $O(^BPST(" AH",BDT)) Q:'BDT S BTRAN=0 F S BTRAN=$ O(^BPST("A H",BDT,BTR AN)) Q:'BT RAN D | |
| 145 | . W:BTEST !,"TRAN=" ,BTRAN," " ,?20 | |
| 146 | . S BTRAN 0=$G(^BPST (BTRAN,0)) ,BTRAN1=$G (^(1)),BTR AN4=$G(^(4 )),BTRAN9= $G(^(9)) | |
| 147 | . I BTRAN 0=""!(BTRA N1="") W:B TEST "ZERO OR ONE NO DE MISSING " Q | |
| 148 | . I '$$PA ID^BPSOSQ4 (BTRAN) W: BTEST "NOT PAID" Q ; Not paid | |
| 149 | . S BPHAR M=$P(BTRAN 1,U,7) I ' BPHARM W:B TEST "NO B PS PHARM" Q ; BPS P HARMACY | |
| 150 | . W:BTEST "BPHARM=" ,$P($G(^BP S(9002313. 56,BPHARM, 0)),U,1)," " | |
| 151 | . ; | |
| 152 | . ;Handle 'Inpatien t' Auto-Re versals | |
| 153 | . S BREV= $$REVINP(B NOW,BTRAN, BTRAN0,BTR AN1,BPHARM ) Q:BREV | |
| 154 | . ; | |
| 155 | . ;Handle Regular A uto-Revers als | |
| 156 | . S BDAYS =+$P($G(^B PS(9002313 .56,BPHARM ,0)),U,9) | |
| 157 | . I 'BDAY S W:BTEST "AUTO-REV DISABLED" Q ;disabl ed | |
| 158 | . I $P(BT RAN4,U,1) Q ;Revers al claim e xist | |
| 159 | . S BCLAI M=$P(BTRAN 0,U,4) I ' BCLAIM W:B TEST "NO B CLAIM" Q | |
| 160 | . I $P($G (^BPSC(BCL AIM,0)),U, 7) W:BTEST "AUTO-REV ERSE FLAG" Q | |
| 161 | . S BDATE =$P($G(^BP SC(BCLAIM, 0)),U,5) | |
| 162 | . I 'BDAT E S BDATE= $P($G(^BPS C(BCLAIM,0 )),U,6) | |
| 163 | . S BDATE =$P(BDATE, ".") | |
| 164 | . I 'BDAT E="" W:BTE ST "NO DAT E" Q | |
| 165 | . W:BTEST "DATE=",B DATE," " | |
| 166 | . I $$FMD IFF^XLFDT( BNOW,BDATE ,1)'>BDAYS W:BTEST " TOO EARLY" Q | |
| 167 | . S BRX=$ P(BTRAN1,U ,11) I 'BR X W:BTEST "NO RX" Q | |
| 168 | . S BFIL= $P(BTRAN1, U,1) | |
| 169 | . I $$REL DATE(BRX,B FIL) W:BTE ST " RELEA SED" Q ;r eleased | |
| 170 | . S BELIG =$P(BTRAN9 ,U,4) I BE LIG=”” W:B TEST “NO E LIGIBILITY ” Q | |
| 171 | . S BDRUG =$$RXAPI1^ BPSUTIL1(B RX,6,”E”) I BDRUG=”” W:BTEST “ NO DRUG” Q | |
| 172 | . S BRES= $$REVERSE( BRX,BFIL,B CLAIM,1) | |
| 173 | . W:BTEST " *REV CL M=",BCLAIM ," STAT=", BRES | |
| 174 | . I BRES= 0!(BRES=4) D | |
| 175 | .. S (BCN T,@REF@(BR ES))=$G(@R EF@(BRES)) +1 | |
| 176 | .. S @REF @(BRES,BCN T)=BTRAN_U _BCLAIM_U_ BRX_U_BFIL _U_BPHARM_ U_BELIG_U_ BDRUG | |
| 177 | . ; Any n otificatio ns to IB? | |
| 178 | D BULL(RE F) ; Send the bullet in | |
| 179 | K @REF | |
| 180 | Q | |
| 181 | ||
| 182 | ||
| 183 | Subroutine Name | |
| 184 | ARLIST^BPS BCKJ | |
| 185 | Enhancemen t Category | |
| 186 | New | |
| 187 | Modify | |
| 188 | Delete | |
| 189 | No Change | |
| 190 | Story | |
| 191 | US589 | |
| 192 | Related Me nu Options or ListMa n Actions | |
| 193 | BPS NIGHTL Y BACKGROU ND JOB | |
| 194 | Related Ro utines | |
| 195 | This Subro utine is C alled By | |
| 196 | This Subro utine Call s | |
| 197 | ||
| 198 | BULL^BPSBC KJ | |
| 199 | $$RXAPI1^B PSUTIL1, $ $MWC^BPSRP T6, $$DAT^ BPSBCKJ, $ $FILDATE^B PSBCKJ, $$ J^BPSBCKJ, $$RELDATE ^BPSBCKJ a nd T^BPSBC KJ | |
| 200 | Related In tegration Control Re gistration s (ICRs) | |
| 201 | n/a | |
| 202 | Data Passi ng | |
| 203 | Parameter Input | |
| 204 | Parameter Output | |
| 205 | Function Return Val ue | |
| 206 | Global Mo dified | |
| 207 | Input Attr ibute Name and Defin ition | |
| 208 | Name: BRES | |
| 209 | Definition : Reversal Flag: 0=T est 4=Auto Reversal | |
| 210 | New Modify Delete No Cha nge | |
| 211 | Name: REF | |
| 212 | Definition : Array co ntaining R eversal In fo | |
| 213 | New Modify Delete No Cha nge | |
| 214 | Output Att ribute Nam e and Defi nition | |
| 215 | Name: n/a | |
| 216 | Definition : | |
| 217 | New Modify Delete No Cha nge | |
| 218 | Current Lo gic | |
| 219 | ||
| 220 | ARLIST(BRE S,REF) ;Au to-Rev Lis t | |
| 221 | N I,TXT,B CLAIM,BTRA N,Y,BRX,BF IL,BFDATE, BPHARM,BRX N,BPHARMN, BPAT,BPSTA T | |
| 222 | D T() | |
| 223 | D T(" # RX F ILL STATU S FILL DAT E PATIENT BPS PHARM ACY") | |
| 224 | D T("---- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----") | |
| 225 | S I=0 F S I=$O(@RE F@(BRES,I) ) Q:'I D | |
| 226 | . S Y=@RE F@(BRES,I) | |
| 227 | . S BTRAN =$P(Y,U) | |
| 228 | . S BCLAI M=$P(Y,U,2 ) | |
| 229 | . S BRX=$ P(Y,U,3),B RXN=$$RXAP I1^BPSUTIL 1(BRX,.01, "I") | |
| 230 | . S BPAT= $P($G(^DPT (+$$RXAPI1 ^BPSUTIL1( BRX,2,"I") ,0)),U) | |
| 231 | . S BFIL= $P(Y,U,4) | |
| 232 | . S BPHAR M=$P(Y,U,5 ),BPHARMN= $P($G(^BPS (9002313.5 6,BPHARM,0 )),U) | |
| 233 | . S BFDAT E=$$FILDAT E(BRX,BFIL ) | |
| 234 | . S BPSTA T=$$MWC^BP SRPT6(BRX, BFIL)_"/"_ $S($$RELDA TE(BRX,BFI L)]"":"RL" ,1:"NR") | |
| 235 | . S TXT=$ J(I,3)_" " _$$J(BRXN, 10)_" "_$$ J(BFIL,2)_ " "_$J(BP STAT,4)_" "_$$J($$D AT(BFDATE) ,11)_$$J(B PAT,25)_" "_$J($E(BP HARMN,1,15 ),15) | |
| 236 | . S TXT=$J (I,3)_" "_ $$J(BRXN,1 0)_" "_$$J (BFIL,2)_" "_$J(BPS TAT,4)_" "_$$J($$DA T(BFDATE), 11)_$$J(BP AT,25)_" " _$J($E(BPH ARMN,1,15) ,15 | |
| 237 | . D T(TXT ) | |
| 238 | D T("---- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----") | |
| 239 | Q | |
| 240 | ||
| 241 | Modified L ogic (Chan ges are hi ghlighted) | |
| 242 | ||
| 243 | ARLIST(BRE S,REF) ;Au to-Rev Lis t | |
| 244 | N I,TXT,B CLAIM,BTRA N,Y,BRX,BF IL,BFDATE, BPHARM,BRX N,BPHARMN, BPAT,BPSTA T,BELIG,BD RUG | |
| 245 | D T() | |
| 246 | D T(" # RX/FILL STATUS DATE E LIG PATIEN T BP S PHARM D RUG NAME") | |
| 247 | D T("---- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----") | |
| 248 | S I=0 F S I=$O(@RE F@(BRES,I) ) Q:'I D | |
| 249 | . S Y=@RE F@(BRES,I) | |
| 250 | . S BTRAN =$P(Y,U) | |
| 251 | . S BCLAI M=$P(Y,U,2 ) | |
| 252 | . S BRX=$ P(Y,U,3),B RXN=$$RXAP I1^BPSUTIL 1(BRX,.01, "I") | |
| 253 | . S BPAT= $P($G(^DPT (+$$RXAPI1 ^BPSUTIL1( BRX,2,"I") ,0)),U) | |
| 254 | . S BFIL= $P(Y,U,4) | |
| 255 | . S BPHAR M=$P(Y,U,5 ),BPHARMN= $P($G(^BPS (9002313.5 6,BPHARM,0 )),U) | |
| 256 | . S BELIG =$P(Y,U,6) | |
| 257 | . S BDRUG =$P(Y,U,7) | |
| 258 | . S BFDAT E=$$FILDAT E(BRX,BFIL ) | |
| 259 | . S BPSTA T=$$MWC^BP SRPT6(BRX, BFIL)_"/"_ $S($$RELDA TE(BRX,BFI L)]"":"RL" ,1:"NR") | |
| 260 | . S TXT=$ J(I,3)_" " _$$J((BRXN _"/"_BFIL) ,13)_" "_$ J(BPSTAT,4 )_" "_$$J( $$DAT(BFDA TE),10) | |
| 261 | . S TXT=T XT_$J(BELI G,1)_" "_ $$J($E(BPA T,1,18),18 )_" "_$J($ E(BPHARMN, 1,3),3) | |
| 262 | . S TXT=T XT_" "_$$ J($E(BDRUG ,1,18),18) | |
| 263 | . D T(TXT ) | |
| 264 | D T("---- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----") | |
| 265 | Q | |
| 266 | ||
| 267 | ||
| 268 | Back Out/R ollback Pr ocedure | |
| 269 | This story does not include ad ding or ch anging dat a fields i n any Vist A files, s o no rollb ack of dat a would be necessary if this e nhancement needed to be backed out. | |
| 270 | To back ou t this enh ancement, the routin e ^BPSBCKJ should be backed up prior to installing this patc h. Reverti ng to the previous v ersion of this routi ne would b ack out th is enhance ment. Alte rnatively, the previ ous versio n of this routine co uld be dis tributed v ia an emer gency patc h. | |
| 271 | ||
| 272 | ||
| 273 | ||
| 274 | ||
| 275 | ||
| 276 | ||
| 277 | ||
| 278 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.