Produced by Araxis Merge on 9/19/2018 12:35:25 PM Central 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 | ePharmacy_Bundle 12.zip | TAS ePhm SDD US601 v1.00.docx | Wed Sep 12 15:17:00 2018 UTC |
| 2 | ePharmacy_Bundle 12.zip | TAS ePhm SDD US601 v1.00.docx | Tue Sep 18 18:05:10 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 630 |
| 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 US601 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | May 2017 | |
| 10 | Version 1. 00 | |
| 11 | User Story Number: U SRX-47 | |
| 12 | User Story Name: All ow the use r to selec t multiple rejects w hen using the OCN Op en/Close N on-Billabl e Entry ac tion on th e ECME Use r screen. Model afte r CLO Clos e Claim. | |
| 13 | Product Ba cklog ID: | |
| 14 | Backlog Pr iority: | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US601 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Currently the OCN Op en/Close N on-Billabl e Entry ac tion allow s selectio n of only one claim. This upda te will al low the us er to sele ct multipl e claims t o be proce ssed. The method of selecting claims to be opened or closed will be th e same as the method the CLO C lose Claim action us es. Select ed claims can be ent ered in th e followin g ways: | |
| 21 | Separated by commas; 3.1,4.1 | |
| 22 | A range; 3 .1-3.2 | |
| 23 | A combinat ion of a r ange and s eparated b y commas; 3.1-3.2,4. 1 | |
| 24 | If the use r’s select ions do no t contain any Non-Bi llable cla ims, a mes sage will be display ed to the user befor e returnin g them to the ECME U ser Screen . Of the N on-Billabl e claims e ntered, th e system w ill determ ine if the claim is currently opened or closed. Cl aims that are curren tly opened will be c losed, and claims th at are cur rently clo sed will b e re-opene d. Before opening/cl osing any claims, a summary of the claim s will be displayed to the use r for conf irmation. Just as th e current functional ity works, a comment will be r equired. F or the upd ated OCN a ction, the comment e ntered wil l be appli ed to all of the sel ected Non- Billable c laims. | |
| 25 | ||
| 26 | List of Co mponents: | |
| 27 | Routine: B PSSCRN0 | |
| 28 | ||
| 29 | Design – D etail | |
| 30 | All modifi cations wi ll be made in routin e BPSSCRN0 . The logi c will be changed fr om calling ASKLINE^B PSSCRU4 to ASKLINES^ BPSSCRU4. The ASKLIN ES entry p oint conta ins existi ng logic f or dealing with the selection of multipl e claims. This is th e entry po int used b y CLO Clos e Action f or selecti ng multipl e claims. | |
| 31 | ASKLINES r eturns the user’s se lections i n an array . A new pr ocedure wi ll be crea ted to re- sort the s elected en tries. The new array will grou p the clai ms by Bill able claim s, Open No n-Billable claims an d Closed N on-Billabl e claims. | |
| 32 | ||
| 33 | Subroutine Name | |
| 34 | OC^BPSSCRN 0 | |
| 35 | Enhancemen t Category | |
| 36 | New | |
| 37 | Modify | |
| 38 | Delete | |
| 39 | No Change | |
| 40 | Story | |
| 41 | US601 | |
| 42 | Related Me nu Options or ListMa n Actions | |
| 43 | OCN Open/C lose Non-B illable Cl aims | |
| 44 | Related Ro utines | |
| 45 | This Subro utine is C alled By | |
| 46 | This Subro utine Call s | |
| 47 | ||
| 48 | OCN Open/C lose Non-B illable Cl aims actio n from the ECME User Screen | |
| 49 | FULL^VALM1 | |
| 50 | $$ASKLINES ^BPSSCRU4 | |
| 51 | PAUSE^VALM 1 | |
| 52 | DISPREJ^BP SSCRU6 | |
| 53 | $$COMMENT^ BPSSCRCL | |
| 54 | $$TRIM^XLF STR | |
| 55 | $$YESNO^BP SSCRRS | |
| 56 | ^DIE | |
| 57 | REDRAW^BPS SCRUD | |
| 58 | Related In tegration Control Re gistration s (ICRs) | |
| 59 | n/a | |
| 60 | Data Passi ng | |
| 61 | Parameter Input | |
| 62 | Parameter Output | |
| 63 | Function Return Val ue | |
| 64 | Global Mo dified | |
| 65 | Input Attr ibute Name and Defin ition | |
| 66 | Name: n/a | |
| 67 | Definition : | |
| 68 | New Modify Delete No Cha nge | |
| 69 | Output Att ribute Nam e and Defi nition | |
| 70 | Name: n/a | |
| 71 | Definition : | |
| 72 | New Modify Delete No Cha nge | |
| 73 | Current Lo gic | |
| 74 | ||
| 75 | BPSSCRN0 ; ALB/ESG - ECME user screen ope n/close no n-billable entry ;21 -SEP-2015 | |
| 76 | ;;1.0;E C LAIMS MGMT ENGINE;** 20**;JUN 2 004;Build 27 | |
| 77 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 78 | ; | |
| 79 | OC ; entry point for open/clos e non-bill able entry action | |
| 80 | N BPRET,B P59,CLTOOP ,JJ1,JJ2,J J3,DFN,BPS SCRLN,BLN, COMMENT,BP Q,DIE,DA,D R,X,Y | |
| 81 | D FULL^VA LM1 | |
| 82 | W "Open/C lose Non-B illable En try",!,"En ter the li ne number for the en try to be opened or closed." | |
| 83 | S BPRET=$ $ASKLINE^B PSSCRU4("S elect item ","C","Ple ase select a single Rx line.") | |
| 84 | I BPRET<1 G OCX | |
| 85 | S BP59=$P (BPRET,U,4 ) | |
| 86 | I '$$NB^B PSSCR03(BP 59) W !!," The select ed entry m ust be a N on-Billabl e entry. P lease try again." D PAUSE^VALM 1 G OCX | |
| 87 | ; | |
| 88 | I $$NBCL^ BPSSCR03(B P59) S CLT OOP=1,JJ1= "OPEN",JJ2 ="OPENED", JJ3="Openi ng" ; C losed entr y to be re -opened | |
| 89 | E S CLTO OP=0,JJ1=" CLOSE",JJ2 ="CLOSED", JJ3="Closi ng" ; O pen entry to be clos ed | |
| 90 | ; | |
| 91 | S DFN=+$P (BPRET,U,2 ) I 'DFN W !!,"Patie nt isn't v alid for t his entry. " D PAUSE^ VALM1 G OC X | |
| 92 | S BPSSCRL N=$P(BPRET ,U,5) ; starti ng line# f or the Lis tMan displ ay array | |
| 93 | ; | |
| 94 | W !!,"You 've chosen to ",JJ1, " the foll owing entr y for" | |
| 95 | W !,$P($G (^DPT(DFN, 0)),U,1)," :" | |
| 96 | S BLN=BPS SCRLN-1 | |
| 97 | F S BLN= $O(^TMP("B PSSCR",$J, "VALM","ID X",BLN)) Q :'BLN Q:' $D(^TMP("B PSSCR",$J, "VALM","ID X",BLN,BP5 9)) D | |
| 98 | . W !,$G( ^TMP("BPSS CR",$J,"VA LM",BLN,0) ) | |
| 99 | . Q | |
| 100 | W !!,"The Selected Entry will be ",JJ2, ".",! | |
| 101 | ; | |
| 102 | COMQ ; cap ture the f ree text c omments | |
| 103 | S COMMENT =$$COMMENT ^BPSSCRCL( "Comment " ,40) | |
| 104 | I COMMENT =U W !!,"N o changes made." D P AUSE^VALM1 G OCX | |
| 105 | S COMMENT =$$TRIM^XL FSTR(COMME NT) ; remove lea ding or tr ailing spa ces | |
| 106 | I '$L(COM MENT) W $C (7),!,"Thi s is a req uired resp onse. Ente r '^' to e xit" G COM Q | |
| 107 | ; | |
| 108 | S BPQ=$$Y ESNO^BPSSC RRS("Are y ou sure? ( Y/N)") | |
| 109 | I BPQ'=1 W !!,"No c hanges mad e." D PAUS E^VALM1 G OCX | |
| 110 | ; | |
| 111 | ; time to file | |
| 112 | w !!,JJ3, " Entry" | |
| 113 | S DIE=900 2313.59 | |
| 114 | S DA=BP59 | |
| 115 | I CLTOOP S DR="302/ ///0;306// //"_$$NOW^ XLFDT_";30 7////^S X= DUZ;308/// /^S X=COMM ENT" ; re-openin g entry | |
| 116 | I 'CLTOOP S DR="302 ////1;303/ ///"_$$NOW ^XLFDT_";3 04////^S X =DUZ;305// //^S X=COM MENT" ; closing e ntry | |
| 117 | D ^DIE | |
| 118 | D PAUSE^V ALM1 | |
| 119 | D REDRAW^ BPSSCRUD(" Updating s creen ..." ) | |
| 120 | ; | |
| 121 | OCX ; | |
| 122 | S VALMBCK ="R" | |
| 123 | Q | |
| 124 | ; | |
| 125 | ||
| 126 | Modified L ogic (Chan ges are hi ghlighted) | |
| 127 | ||
| 128 | BPSSCRN0 ; ALB/ESG - ECME user screen ope n/close no n-billable entry ;21 -SEP-2015 | |
| 129 | ;;1.0;E C LAIMS MGMT ENGINE;** 20,##**;JU N 2004;Bui ld 27 | |
| 130 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 131 | ; | |
| 132 | OC ; entry point for open/clos e non-bill able entry action | |
| 133 | N BPRET,B P59,CLTOOP ,JJ1,JJ2,J J3,DFN,BPS SCRLN,BLN, COMMENT,BP Q,DIE,DA,D R,X,Y | |
| 134 | N BPRET1, BPSARR59,B PSARR59A | |
| 135 | D FULL^VA LM1 | |
| 136 | W "Open/C lose Non-B illable En try" | |
| 137 | W !,"Ente r the line numbers f or the ent ry/entries to be ope ned or clo sed." | |
| 138 | S BPRET=$ $ASKLINES^ BPSSCRU4(" Select ite ms","C",.B PSARR59,VA LMAR) | |
| 139 | I BPRET=" ^" G OCX | |
| 140 | ; Sort ch osen entri es | |
| 141 | ; BPRET1= # of Billa ble Claims ^# of Open (Non-Bill able) Clai ms^# of Cl osed (NB) Claims | |
| 142 | S BPRET1= $$OCNARR(. BPSARR59,. BPSARR59A) | |
| 143 | I $P(BPRE T1,"^",2)+ $P(BPRET1, "^",3)=0 D G OCX | |
| 144 | . W !!,"T he selecte d entries must be No n-Billable . Please t ry again." | |
| 145 | . D PAUSE ^VALM1 | |
| 146 | ; | |
| 147 | ; Display Billable claims tha t will not be includ ed. | |
| 148 | I $P(BPRE T1,"^")'=0 D I BPQ= ”^” G OCX | |
| 149 | . W !!,"S elected en tries must be Non-Bi llable." | |
| 150 | . W !,"Th e followin g entries are not No n-Billable and will not be inc luded for" | |
| 151 | . S BPSPT ="" | |
| 152 | . S BPQ=” ” | |
| 153 | . F S BP SPT=$O(BPS ARR59A(1,B PSPT)) Q:B PSPT="" D Q:BPQ=”^ ” | |
| 154 | . . W !,B PSPT," :" | |
| 155 | . . S BPS 59="" | |
| 156 | . . F S BPS59=$O(B PSARR59A(1 ,BPSPT,BPS 59)) Q:BPS 59="" D Q:BPQ=”^” | |
| 157 | . . . I $ Y>20 D PAU SE^VALM1 W @IOF I X= ”^” S BPQ= ”^” Q | |
| 158 | . . . W ! ,@VALMAR@( +$G(BPSARR 59A(1,BPSP T,BPS59)), 0) | |
| 159 | . . . D D ISPREJ^BPS SCRU6(BPS5 9) | |
| 160 | ; | |
| 161 | ; Display open clai ms to be c losed. | |
| 162 | I $P(BPRE T1,"^",2)' =0 D I BP Q=”^” G OC X | |
| 163 | . W !!,"Y ou've chos en to CLOS E the foll owing pres cription(s ) for" | |
| 164 | . S BPSPT ="" | |
| 165 | . S BPQ=” ” | |
| 166 | . F S BP SPT=$O(BPS ARR59A(2,B PSPT)) Q:B PSPT="" D Q:BPQ=”^ ” | |
| 167 | . . W !,B PSPT," :" | |
| 168 | . . S BPS 59="" | |
| 169 | . . F S BPS59=$O(B PSARR59A(2 ,BPSPT,BPS 59)) Q:BPS 59="" D Q:BPQ=”^” | |
| 170 | . . . I $ Y>20 D PAU SE^VALM1 W @IOF I X= ”^” S BPQ= ”^” Q | |
| 171 | . . . W ! ,@VALMAR@( +$G(BPSARR 59A(2,BPSP T,BPS59)), 0) | |
| 172 | . . . D D ISPREJ^BPS SCRU6(BPS5 9) | |
| 173 | ; | |
| 174 | ;Display closed cla ims to be opened. | |
| 175 | I $P(BPRE T1,"^",3)' =0 D I BP Q=”^” G OC X | |
| 176 | . W !!,"Y ou've chos en to OPEN the follo wing presc ription(s) for" | |
| 177 | . S BPSPT ="" | |
| 178 | . S BPQ=” ” | |
| 179 | . F S BP SPT=$O(BPS ARR59A(3,B PSPT)) Q:B PSPT="" D Q:BPQ=”^ ” | |
| 180 | . . W !,B PSPT," :" | |
| 181 | . . S BPS 59="" | |
| 182 | . . F S BPS59=$O(B PSARR59A(3 ,BPSPT,BPS 59)) Q:BPS 59="" D Q:BPQ=”^” | |
| 183 | . . . I $ Y>20 D PAU SE^VALM1 W @IOF I X= ”^” S BPQ= ”^” Q | |
| 184 | . . . W ! ,@VALMAR@( +$G(BPSARR 59A(3,BPSP T,BPS59)), 0) | |
| 185 | . . . D D ISPREJ^BPS SCRU6(BPS5 9) | |
| 186 | ; | |
| 187 | S BPSPRMP T="" | |
| 188 | I $P(BPRE T1,"^",3)' =0,$P(BPRE T1,"^",2)= 0 S BPSPRM PT="OPENED " | |
| 189 | I $P(BPRE T1,"^",2)' =0,$P(BPRE T1,"^",3)= 0 S BPSPRM PT="CLOSED " | |
| 190 | I $P(BPRE T1,"^",2)' =0,$P(BPRE T1,"^",3)' =0 S BPSPR MPT="OPENE D/CLOSED" | |
| 191 | ; | |
| 192 | W !!,"ALL Selected Non-Billab le Rxs wil l be "_BPS PRMPT_" us ing the" | |
| 193 | W !,"same informati on gathere d in the f ollowing p rompt.",! | |
| 194 | ; | |
| 195 | COMQ ; cap ture the f ree text c omments | |
| 196 | S COMMENT =$$COMMENT ^BPSSCRCL( "Comment " ,40) | |
| 197 | I COMMENT =U W !!,"N o changes made." D P AUSE^VALM1 G OCX | |
| 198 | S COMMENT =$$TRIM^XL FSTR(COMME NT) ; remove lea ding or tr ailing spa ces | |
| 199 | I '$L(COM MENT) W $C (7),!,"Thi s is a req uired resp onse. Ente r '^' to e xit" G COM Q | |
| 200 | ; | |
| 201 | S BPQ=$$Y ESNO^BPSSC RRS("Are y ou sure? ( Y/N)") | |
| 202 | I BPQ'=1 W !!,"No c hanges mad e." D PAUS E^VALM1 G OCX | |
| 203 | ; | |
| 204 | ; time to file | |
| 205 | S DIE=900 2313.59 | |
| 206 | ; | |
| 207 | ; Loop th rough clos ed claims to be re-o pened. | |
| 208 | I $P(BPRE T1,"^",3)' =0 D | |
| 209 | . S BPSPT ="" | |
| 210 | . F S BP SPT=$O(BPS ARR59A(3,B PSPT)) Q:B PSPT="" D | |
| 211 | . . S DA= "" | |
| 212 | . . F S DA=$O(BPSA RR59A(3,BP SPT,DA)) Q :DA="" D | |
| 213 | . . . S D R="302//// 0;306////" _$$NOW^XLF DT | |
| 214 | . . . S D R=DR_";307 ////^S X=D UZ;308//// ^S X=COMME NT" | |
| 215 | . . . D ^ DIE | |
| 216 | ; | |
| 217 | ; Loop th rough open claims to be closed . | |
| 218 | I $P(BPRE T1,"^",2)' =0 D | |
| 219 | . S BPSPT ="" | |
| 220 | . F S BP SPT=$O(BPS ARR59A(2,B PSPT)) Q:B PSPT="" D | |
| 221 | . . S DA= "" | |
| 222 | . . F S DA=$O(BPSA RR59A(2,BP SPT,DA)) Q :DA="" D | |
| 223 | . . . S D R="302//// 1;303////" _$$NOW^XLF DT | |
| 224 | . . . S D R=DR_";304 ////^S X=D UZ;305//// ^S X=COMME NT" | |
| 225 | . . . D ^ DIE | |
| 226 | ; | |
| 227 | D PAUSE^V ALM1 | |
| 228 | D REDRAW^ BPSSCRUD(" Updating s creen ..." ) | |
| 229 | ; | |
| 230 | OCX ; | |
| 231 | I $G(BPQ) =”^” D | |
| 232 | . W !,”0 claims hav e been ope ned/closed .” | |
| 233 | . D PAUSE ^VALM1 | |
| 234 | S VALMBCK ="R" | |
| 235 | Q | |
| 236 | ; | |
| 237 | ||
| 238 | ||
| 239 | Subroutine Name | |
| 240 | OCNARR^BPS SCRN0 | |
| 241 | Enhancemen t Category | |
| 242 | New | |
| 243 | Modify | |
| 244 | Delete | |
| 245 | No Change | |
| 246 | Story | |
| 247 | US601 | |
| 248 | Related Me nu Options or ListMa n Actions | |
| 249 | OCN Open/C lose Non-B illable Cl aims | |
| 250 | Related Ro utines | |
| 251 | This Subro utine is C alled By | |
| 252 | This Subro utine Call s | |
| 253 | ||
| 254 | OC^BPSSCRN 0 | |
| 255 | $$GET1^DIQ | |
| 256 | $$NB^BPSSC R03 | |
| 257 | $$NBCL^BPS SCR03 | |
| 258 | Related In tegration Control Re gistration s (ICRs) | |
| 259 | n/a | |
| 260 | Data Passi ng | |
| 261 | Parameter Input | |
| 262 | Parameter Output | |
| 263 | Function Return Val ue | |
| 264 | Global Mo dified | |
| 265 | Input Attr ibute Name and Defin ition | |
| 266 | Name: BPAR R | |
| 267 | Definition : Array of user sele cted claim s | |
| 268 | New Modify Delete No Cha nge | |
| 269 | Output Att ribute Nam e and Defi nition | |
| 270 | Name: BPAR R1 | |
| 271 | Definition : Array of user sele cted claim s re-sorte d by Billa ble, Open and Closed | |
| 272 | New Modify Delete No Cha nge | |
| 273 | Current Lo gic | |
| 274 | ||
| 275 | N/A | |
| 276 | ||
| 277 | Modified L ogic (Chan ges are hi ghlighted) | |
| 278 | ||
| 279 | OCNARR(BPA RR,BPARR1) ; Re-sort array of user selec ted claims | |
| 280 | ; The use r selected claims wi ll be re-s orted, div iding them by | |
| 281 | ; Billabl e Claims, Non-Billab le Open Cl aims and N B Closed C laims. | |
| 282 | ; The cla ims will a lso be sor ted, withi n each gro uping, alp habeticall y | |
| 283 | ; by Pati ent Name. | |
| 284 | ; BPARR - input - a rray of us er selecte d claims | |
| 285 | ; BPARR1 - output - array of user selec ted claims ; re-sorte d | |
| 286 | ; BPARR1( 1,PATIENT, BPS TRANSA CTION) = B illable Cl aims | |
| 287 | ; BPARR1( 2,PATIENT, BPS TRANSA CTION) = N on-Billabl e Open Cla ims | |
| 288 | ; BPARR1( 3,PATIENT, BPS TRANSA CTION) = N on-Billabl e Closed C laims | |
| 289 | ; Functio n Return V alue = Cou nts of eac h category from BPAR R1 | |
| 290 | ; # of B illable Cl aims^# of Open NB Cl aims^# of Closed NB Claims | |
| 291 | ; | |
| 292 | N BPS59,B PSCLO,BPSC NT,BPSOPN, BPSPT,BPSB ILL | |
| 293 | S BPSCNT= 0,BPSOPN=0 ,BPSCLO=0 | |
| 294 | S BPS59=" " | |
| 295 | F S BPS5 9=$O(BPARR (BPS59)) Q :BPS59="" D | |
| 296 | . ; Patie nt Name | |
| 297 | . S BPSPT =$$GET1^DI Q(9002313. 59,BPS59,5 ) | |
| 298 | . ; Billa ble=0 Non- Billable=1 | |
| 299 | . S BPSBI LL=$$NB^BP SSCR03(BPS 59) | |
| 300 | . I BPSBI LL=0 D Q | |
| 301 | . . S BPA RR1(1,BPSP T,BPS59)=B PARR(BPS59 ) | |
| 302 | . . S BPS CNT=BPSCNT +1 | |
| 303 | . ; Only Non-Billab le Claims at this po int | |
| 304 | . ; Open= 0 Closed=1 | |
| 305 | . S BPSOP NCLO=$$NBC L^BPSSCR03 (BPS59) | |
| 306 | . I BPSOP NCLO=0 D Q | |
| 307 | . . S BPA RR1(2,BPSP T,BPS59)=B PARR(BPS59 ) | |
| 308 | . . S BPS OPN=BPSOPN +1 | |
| 309 | . S BPARR 1(3,BPSPT, BPS59)=BPA RR(BPS59) | |
| 310 | . S BPSCL O=BPSCLO+1 | |
| 311 | Q BPSCNT_ "^"_BPSOPN _"^"_BPSCL O | |
| 312 | ||
| 313 | ||
| 314 | Back Out/R ollback Pr ocedure | |
| 315 | 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.