Produced by Araxis Merge on 8/5/2017 9:36:56 AM 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 | BPS_1.0_21_Build_8.zip | TAS ePhm SDD US20 v2.01.docx | Tue May 2 14:59:12 2017 UTC |
| 2 | BPS_1.0_21_Build_8.zip | TAS ePhm SDD US20 v2.01.docx | Fri Aug 4 18:24:59 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 576 |
| 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 US20 | |
| 2 | Design Doc ument | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | April 2017 | |
| 10 | Version 2. 01 | |
| 11 | User Story Number: U S20 | |
| 12 | User Story Name: Pre vent OPECC entry of Submission Clarifica tion Code for RTS/DU R and reje cts pendin g on Pharm acist’s Wo rklist. | |
| 13 | Product Ba cklog ID: 187 | |
| 14 | Backlog Pr iority: Me dium | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: (MCCF E DI TAS Rat ional ID T BD) | |
| 17 | Rally ID: | |
| 18 | Author: De bbie Wistu ba, eBusin ess/ePharm acy Projec t Manager | |
| 19 | Design – S ummary | |
| 20 | The ECME U ser Screen is manage d mostly b y the rout ines ^BPSR ES*. The s ubroutine PROMPTS^BP SRES allow s the user to enter or modify one or mor e Submissi on Clarifi cation Cod es. | |
| 21 | PROMPTS^BP SRES will be modifie d to first perform s everal che cks to det ermine whe ther the u ser should be permit ted to ent er/edit Su bmission C larificati on Codes. If enter/e dit is to be disallo wed, then the softwa re will di splay the Submission Clarifica tion Codes already o n file, if any, and then displ ay a messa ge telling the user that enter /edit is n ot permitt ed. | |
| 22 | ||
| 23 | Design – D etail | |
| 24 | ||
| 25 | Subroutine Name | |
| 26 | PROMPTS^BP SRES | |
| 27 | Enhancemen t Category | |
| 28 | New | |
| 29 | Modify | |
| 30 | Delete | |
| 31 | No Change | |
| 32 | Story | |
| 33 | USRX-4 | |
| 34 | Related Op tions | |
| 35 | ECME User Screen | |
| 36 | Related Ro utines | |
| 37 | Subroutine is Called By | |
| 38 | Subroutine Calls | |
| 39 | ||
| 40 | DOSELCTD^B PSRES | |
| 41 | NOW^%DTC, $$RELDATE^ BPSBCKJ, $$PROMPTS^ BPSPRRX3, $$PRIMDATA ^BPSPRRX6, $$SECDATA ^BPSPRRX6, $$YESNO^B PSSCRRS, $ $PAYBLPRI^ BPSUTIL2, ^DIC, UPDA TE^DIE, ^D IR,GET1^DI Q | |
| 42 | Data Dicti onary (DD) Reference s | |
| 43 | File #9002 313.25, BP S NCPDP CL ARIFICATIO N CODES | |
| 44 | Related Pr otocols | |
| 45 | ||
| 46 | Related In tegration Control Re gistration s (ICRs) | |
| 47 | There are no ICRs go verning th e use of t his subrou tine by ot her packag es. | |
| 48 | Data Passi ng | |
| 49 | Input | |
| 50 | Output Re ference | |
| 51 | Both | |
| 52 | Global Re ference | |
| 53 | Local | |
| 54 | Input Attr ibute Name and Defin ition | |
| 55 | Name: BP59 | |
| 56 | Definition : Internal transacti on#, point er to BPS TRANSACTIO N file | |
| 57 | New Modify Delete No Cha nge | |
| 58 | Name: BP02 | |
| 59 | Definition : Internal claim#, p ointer to BPS CLAIMS file | |
| 60 | New Modify Delete No Cha nge | |
| 61 | Name: BPRX IEN | |
| 62 | Definition : Internal prescript ion#, poin ter to PRE SCRIPTION file | |
| 63 | New Modify Delete No Cha nge | |
| 64 | Name: BPRX R | |
| 65 | Definition : Fill# (0 for origi nal, 1 for first ref ill, etc.) | |
| 66 | New Modify Delete No Cha nge | |
| 67 | Name: BPCO B | |
| 68 | Definition : Payer se quence (1 for primar y, 2 for s econdary, etc.) | |
| 69 | New Modify Delete No Cha nge | |
| 70 | Name: BPDO SDT | |
| 71 | Definition : Date of service | |
| 72 | New Modify Delete No Cha nge | |
| 73 | Name: BPSE COND | |
| 74 | Definition : Array of COB data | |
| 75 | New Modify Delete No Cha nge | |
| 76 | Output Att ribute Nam e and Defi nition | |
| 77 | Name: $$PR OMPTS | |
| 78 | Definition : ‘-1’ if user opts to quit, < blank> oth erwise | |
| 79 | New Modify Delete No Cha nge | |
| 80 | Current Lo gic | |
| 81 | BPSRES ;BH AM ISC/BEE - ECME SC REEN RESUB MIT W/EDIT S ;3/12/08 14:01 ;;1 .0;E CLAIM S MGMT ENG INE;**3,5, 7,8,10,11, 20**;JUN 2 004;Build 27 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. ; ; R eference t o $$RXRLDT ^PSOBPSUT supported by DBIA 47 01 ; Refer ence to $$ RXFLDT^PSO BPSUT supp orted by D BIA 4701 ; | |
| 82 | ||
| 83 | ... | |
| 84 | ||
| 85 | PROMPTS(BP 59,BP02,BP RXIEN,BPRX R,BPCOB,BP SDOSDT,BPS ECOND) ; | |
| 86 | N %,BP300,B P35401,BPC LCD1,BPCLC D2,BPCLCD3 ,BPFDA,BPF LD,BPOVRIE N,BPMED,BP MSG,BPPSNC D | |
| 87 | N BPPREAUT, BPPRETYP,B PQ,BPRELCD ,DIC,DIR,D IROUT,DTOU T,DUOUT,X, Y,DIRUT,DU P | |
| 88 | ||
| 89 | ... | |
| 90 | ||
| 91 | ; | |
| 92 | ; Submission Clarifica tion Code 1 | |
| 93 | S DIC("B")= BPCLCD1 | |
| 94 | S DIC(0)="Q EAM",DIC=9 002313.25, DIC("A")=" Submission Clarifica tion Code 1: " | |
| 95 | D ^DIC | |
| 96 | ; Check for "^" or tim eout | |
| 97 | I ($D(DUOUT ))!($D(DTO UT)) S BPQ =-1 K X,DI C,Y G XPRO MPTS | |
| 98 | S BPCLCD1=$ P(Y,U,2) | |
| 99 | K X,DIC,Y | |
| 100 | ; | |
| 101 | ; Submission Clarifica tion Code 2 | |
| 102 | I +BPCLCD2 S BPCLCD2= +BPCLCD2 S DIC("B")= BPCLCD2 | |
| 103 | S DIC(0)="Q EAM",DIC=9 002313.25, DIC("A")=" Submission Clarifica tion Code 2: ",DUP=0 | |
| 104 | F D Q:BPQ =-1 Q:'DU P | |
| 105 | . D ^DIC | |
| 106 | . ;Check fo r "^" or t imeout | |
| 107 | . I ($D(DUO UT))!($D(D TOUT)) S B PQ=-1 K X, DIC,Y Q | |
| 108 | . S BPCLCD2 =$P(Y,U,2) | |
| 109 | . S DUP=0 I BPCLCD2=B PCLCD1 S B PCLCD2="" W !," Dup licates no t allowed" S DUP=1 | |
| 110 | K X,DIC,Y | |
| 111 | I BPQ=-1 G XPROMPTS | |
| 112 | ; | |
| 113 | ; Submission Clarifica tion Code 3 | |
| 114 | I BPCLCD2'= "" D I BP Q=-1 G XPR OMPTS | |
| 115 | . I +BPCLCD 3 S BPCLCD 3=+BPCLCD3 S DIC("B" )=BPCLCD3 | |
| 116 | . S DIC(0)= "QEAM",DIC =9002313.2 5,DIC("A") ="Submissi on Clarifi cation Cod e 3: ",DUP =0 | |
| 117 | . F D Q:' DUP I BPQ =-1 Q | |
| 118 | . . D ^DIC | |
| 119 | . . ;Check f or "^" or timeout | |
| 120 | . . I ($D(DU OUT))!($D( DTOUT)) S BPQ=-1 K X ,DIC,Y Q | |
| 121 | . . S BPCLCD 3=$P(Y,U,2 ) | |
| 122 | . . S DUP=0 I BPCLCD3= BPCLCD1!(B PCLCD3=BPC LCD2) S BP CLCD3="" W !," Dupl icates not allowed" S DUP=1 | |
| 123 | . K X,DIC,Y | |
| 124 | ; | |
| 125 | ||
| 126 | ... | |
| 127 | ||
| 128 | Modified L ogic (Chan ges are Hi ghlighted) | |
| 129 | BPSRES ;BH AM ISC/BEE - ECME SC REEN RESUB MIT W/EDIT S ;3/12/08 14:01 ;;1 .0;E CLAIM S MGMT ENG INE;**3,5, 7,8,10,11, 20,21**;JU N 2004;Bui ld 27 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ; ; Referenc e to $$RXR LDT^PSOBPS UT support ed by DBIA 4701 ; Re ference to $$RXFLDT^ PSOBPSUT s upported b y DBIA 470 1 ; Refere nce to $$F IND^PSOREJ UT support ed by DBIA 4706 | |
| 130 | ; | |
| 131 | ||
| 132 | ... | |
| 133 | ||
| 134 | PROMPTS(BP 59,BP02,BP RXIEN,BPRX R,BPCOB,BP SDOSDT,BPS ECOND) ; | |
| 135 | N %,BP300,B P35401,BPC LCD1,BPCLC D2,BPCLCD3 ,BPFDA,BPF LD,BPOVRIE N,BPMED,BP MSG,BPPSNC D | |
| 136 | N BPPREAUT, BPPRETYP,B PQ,BPRELCD ,DIC,DIR,D IROUT,DTOU T,DUOUT,X, Y,DIRUT,DU P | |
| 137 | N BPCLCDN,B PCLCDX,BPS X | |
| 138 | ||
| 139 | ... | |
| 140 | ||
| 141 | ; | |
| 142 | ; If there is a pendi ng reject on the Pha rmacists W orklist, o r if the m ost | |
| 143 | ; recent cl aim is a r esolved or unresolve d reject 7 9 or 88, t hen only d isplay | |
| 144 | ; Submissio n Clarific ation Code s and do n ot allow e nter/edit. (BPS*1*21 ) | |
| 145 | ; | |
| 146 | I $$BPSKIP (BPRXIEN,B PRXR) D G P1 | |
| 147 | . F BP35401 =1:1:3 I @ (“BPCLCD”_ BP35401) D | |
| 148 | . . S BPSX= +@(“BPCLCD ”_BP35401) | |
| 149 | . . W !,“Su bmission C larificati on Code ”, BP35401,“: ”,BPSX | |
| 150 | . . S BPCLC DX=$O(^BPS (9002313.2 5,”B”,BPSX ,””)),BPCL CDN=$P(BPS (9002313.2 5,BPCLCDX, 0),U,2) | |
| 151 | . . W ?44,B PCLCDN | |
| 152 | . . Q | |
| 153 | . W !,“ ** OPECC cann ot edit Su b. Clar. C ode field for this r eject - re fer to Pha rmacist” | |
| 154 | . Q | |
| 155 | ; Submission Clarifica tion Code 1 | |
| 156 | S DIC("B")= BPCLCD1 | |
| 157 | S DIC(0)="Q EAM",DIC=9 002313.25, DIC("A")=" Submission Clarifica tion Code 1: " | |
| 158 | D ^DIC | |
| 159 | ; Check for "^" or tim eout | |
| 160 | I ($D(DUOUT ))!($D(DTO UT)) S BPQ =-1 K X,DI C,Y G XPRO MPTS | |
| 161 | S BPCLCD1=$ P(Y,U,2) | |
| 162 | K X,DIC,Y | |
| 163 | ; | |
| 164 | ; Submission Clarifica tion Code 2 | |
| 165 | I +BPCLCD2 S BPCLCD2= +BPCLCD2 S DIC("B")= BPCLCD2 | |
| 166 | S DIC(0)="Q EAM",DIC=9 002313.25, DIC("A")=" Submission Clarifica tion Code 2: ",DUP=0 | |
| 167 | F D Q:BPQ =-1 Q:'DU P | |
| 168 | . D ^DIC | |
| 169 | . ;Check fo r "^" or t imeout | |
| 170 | . I ($D(DUO UT))!($D(D TOUT)) S B PQ=-1 K X, DIC,Y Q | |
| 171 | . S BPCLCD2 =$P(Y,U,2) | |
| 172 | . S DUP=0 I BPCLCD2=B PCLCD1 S B PCLCD2="" W !," Dup licates no t allowed" S DUP=1 K X,DIC ,Y | |
| 173 | I BPQ=-1 G XPROMPTS | |
| 174 | ; | |
| 175 | ; Submission Clarifica tion Code 3 | |
| 176 | I BPCLCD2'= "" D I BP Q=-1 G XPR OMPTS | |
| 177 | . I +BPCLCD 3 S BPCLCD 3=+BPCLCD3 S DIC("B" )=BPCLCD3 | |
| 178 | . S DIC(0)= "QEAM",DIC =9002313.2 5,DIC("A") ="Submissi on Clarifi cation Cod e 3: ",DUP =0 | |
| 179 | . F D Q:' DUP I BPQ =-1 Q | |
| 180 | . . D ^DIC | |
| 181 | . . ;Check for "^" or timeout | |
| 182 | . . I ($D(D UOUT))!($D (DTOUT)) S BPQ=-1 K X,DIC,Y Q | |
| 183 | . . S BPCLC D3=$P(Y,U, 2) | |
| 184 | . . S DUP=0 I BPCLCD3 =BPCLCD1!( BPCLCD3=BP CLCD2) S B PCLCD3="" W !," Dup licates no t allowed" SDUP=1 | |
| 185 | . K X,DIC,Y | |
| 186 | ; | |
| 187 | P1 ; | |
| 188 | ||
| 189 | ... | |
| 190 | ||
| 191 | ||
| 192 | BPSKIP^BPS RES is bei ng added t o determin e whether or not the user shou ld be perm itted to e nter/edit Submission Clarifica tion Codes . | |
| 193 | ||
| 194 | Subroutine Name | |
| 195 | BPSKIP^BPS RES | |
| 196 | Enhancemen t Category | |
| 197 | New | |
| 198 | Modify | |
| 199 | Delete | |
| 200 | No Change | |
| 201 | Story | |
| 202 | USRX-04 | |
| 203 | Related Op tions | |
| 204 | ECME User Screen | |
| 205 | Related Ro utines | |
| 206 | Subroutine is Called By | |
| 207 | Subroutine Calls | |
| 208 | ||
| 209 | PROMPTS^BP SRES | |
| 210 | FIND^PSORE JUT, | |
| 211 | GET1^DIQ | |
| 212 | Data Dicti onary (DD) Reference s | |
| 213 | File #52.2 5, REJECT INFO SUB-F ILE | |
| 214 | File #52.3 , ACTIVITY LOG SUB-F ILE | |
| 215 | Related Pr otocols | |
| 216 | ||
| 217 | Related In tegration Control Re gistration s (ICRs) | |
| 218 | There are no ICRs go verning th e use of t his sub-ro utine by o ther packa ges. | |
| 219 | This desig n calls fo r the addi tion of a call to $$ FIND^PSORE JUT, which is suppor ted by ICR #4706. | |
| 220 | Data Passi ng | |
| 221 | Input | |
| 222 | Output Re ference | |
| 223 | Both | |
| 224 | Global Re ference | |
| 225 | Local | |
| 226 | Input Attr ibute Name and Defin ition | |
| 227 | Name: BPSR X | |
| 228 | Definition : Prescrip tion IEN ( #52) | |
| 229 | New Modify Delete No Cha nge | |
| 230 | Name: BPSF ILL | |
| 231 | Definition : Fill# (0 for origi nal, 1 for first ref ill, etc.) | |
| 232 | New Modify Delete No Cha nge | |
| 233 | Output Att ribute Nam e and Defi nition | |
| 234 | Name: $$BP SKIP | |
| 235 | Definition : ‘1’ if t he enter/e dit of Sub mission Cl arificatio n Codes sh ould be sk ipped, oth erwise ‘0’ to allow the enter/ edit of th ose codes. | |
| 236 | New Modify Delete No Cha nge | |
| 237 | Current Lo gic | |
| 238 | ||
| 239 | N/A | |
| 240 | ||
| 241 | Modified L ogic (Chan ges are Hi ghlighted) | |
| 242 | ||
| 243 | BPSKIP(BPS RX,BPSFILL ) ; Determ ine whethe r to skip the enter/ edit of Su bmission C larificati on Codes ; This func tion will return a ' 1' if the enter/edit of Submis sion | |
| 244 | ; Clarifi cation Cod es should be skipped (not allo wed). | |
| 245 | ; | |
| 246 | N BPS7988 DATE,BPSAC TIVITY,BPS ECMEDATE,B PSREJECT,B PSX | |
| 247 | ; | |
| 248 | ; If any open/unres olved clai ms are on the pharma cist workl ist, Quit with 1. | |
| 249 | ; | |
| 250 | I $$FIND^ PSOREJUT(B PSRX,BPSFI LL) Q 1 | |
| 251 | ; | |
| 252 | ; If ther e are any closed/res olved 79/8 8 rejects for this R x/Fill, ; pull the l atest dete cted date/ time. ; If there has not been any ECME a ctivity si nce that d ate/time, then | |
| 253 | ; disallo w the edit of Submis sion Clari fication C odes, Quit with 1. ; | |
| 254 | S BPS7988 DATE=0 | |
| 255 | ; | |
| 256 | ; Loop th rough the REJECTS mu ltiple. | |
| 257 | S BPSREJE CT=0 | |
| 258 | F S BPSR EJECT=$O(^ PSRX(BPSRX ,”REJ”,BPS REJECT)) Q :’BPSREJEC T D | |
| 259 | . ; If a reject is not for th e current fill, skip this one. | |
| 260 | . I $$GET 1^DIQ(52.2 5,BPSREJEC T_","_BPSR X,5)'=BPSF ILL Q | |
| 261 | . ; | |
| 262 | . ; . ; I f not a 79 or 88, sk ip this on e. . I ",7 9,88,"'[(" ,"_$$GET1^ DIQ(52.25, BPSREJECT_ ","_BPSRX, .01)_",") Q . ; | |
| 263 | . ; Pull DATE/TIME DETECTED. If the dat e/time is later than | |
| 264 | . ; BPS79 88DATE, th en reset B PS7988DATE to that d ate/time. | |
| 265 | . S BPSX= $$GET1^DIQ (52.25,BPS REJECT_"," _BPSRX,1," I") | |
| 266 | . I BPSX> BPS7988DAT E S BPS798 8DATE=BPSX | |
| 267 | . Q | |
| 268 | ; | |
| 269 | ; ; If <b lank> then there are no closed /resolved 79/88 reje cts; Quit with 0. | |
| 270 | I BPS7988 DATE=0 Q 0 | |
| 271 | ; ; Once we have th e most rec ent DATE/T IME DETECT ED, determ ine whethe r ; there is ECME ac tivity lat er than th at. ; | |
| 272 | ; ; Loop through en tries in t he ACTIVIT Y LOG mult iple. S (B PSX,BPSACT IVITY,BPSE CMEDATE)=0 F S BPSA CTIVITY=$O (^PSRX(BPS RX,”A”,BPS ACTIVITY)) Q:’BPSACT IVITY D . ; If the REASON is not "M" (= ECME), ski p. | |
| 273 | . I $$GET 1^DIQ(52.3 ,BPSACTIVI TY_","_BPS RX,.02,"I" )'="M" Q . ; . ; Pul l the date /time stam p from the activity log entry. If later | |
| 274 | . ; than what we fo und so far , update B PSECMEDATE . . S BPSX =$$GET1^DI Q(52.3,BPS ACTIVITY_" ,",BPSRX,. 01,"I") . I BPSX>BPS ECMEDATE S BPSECMEDA TE=BPSX . Q ; ; If t he BPSECME DATE is la ter than B PS7988DATE , then Qui t with 0 | |
| 275 | ; to allo w the edit of Submis sion Clari fication C odes. Othe rwise | |
| 276 | ; Quit wi th 1 to sk ip, not al low, the e nter/edit of those c odes. | |
| 277 | ; When a claim is r ejected, t he time st amp on the Activity Log may | |
| 278 | ; be a se cond or tw o later th an the tim e stamp on the Rejec t. | |
| 279 | ; Therefo re, we add 60 second s to the t ime stamp on the rej ect when | |
| 280 | ; making this compa rison. | |
| 281 | ; | |
| 282 | I BPSECME DATE>(BPS7 988DATE+.0 0006) Q 0 | |
| 283 | Q 1 | |
| 284 | ; | |
| 285 | ||
| 286 | ||
| 287 | Back Out/R ollback Pr ocedure | |
| 288 | This story includes modificati ons to an existing r outine. To back out this enhan cement, th e routine which is a part of t his patch should be backed up prior to i nstallatio n. 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 these routine c ould be di stributed via an eme rgency pat ch. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.