Produced by Araxis Merge on 9/6/2017 3:05:34 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 US579 v1.01.docx | Thu Jul 27 19:15:12 2017 UTC |
| 2 | MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US579 v1.01.docx | Wed Sep 6 18:29:06 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 880 |
| Changed | 1 | 8 |
| 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 US579 | |
| 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-24 | |
| 12 | User Story Name: Aut o-Reverse Parameter Improvemen ts | |
| 13 | Product Ba cklog ID: 24 | |
| 14 | Backlog Pr iority: Lo w | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US579 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Update fun ctionality of the Au to-Reversa l Paramete r. Auto-Re versal Par ameter is field .09 of the BPS Pharmacie s File (#9 002313.56) . With thi s update, the field will be re quired. Th e range of allowable values wi ll change from 0-30 to 3-10. T he default value wil l be 5 and the assoc iated Help Text will be update d. | |
| 21 | A Post Ins tall Routi ne will be created. This routi ne will lo op through existing Pharmacy e ntries and will set the value to 5, if n o value is currently defined. If a curre ntly defin ed value i s outside of the 3-1 0 range, t he value w ill be upd ated to 5. A Mailman message w ill be sen t out for all entrie s that are set or up dated duri ng the pos t install routine. | |
| 22 | ||
| 23 | List of Co mponents: | |
| 24 | File: BPS PHARMACIES (#9002313 .56) | |
| 25 | Routine: B PSPHAR | |
| 26 | Routine: B PS21PST | |
| 27 | ||
| 28 | Design – D etail | |
| 29 | ||
| 30 | Modify Fil e Attribut es in BPS PHARMACIES File (#90 02313.56) as indicat ed below: | |
| 31 | Fields | |
| 32 | Values | |
| 33 | FILE | |
| 34 | BPS PHARMA CIES | |
| 35 | FIELD | |
| 36 | AUTO-REVER SE PARAMET ER | |
| 37 | DESCRIPTIO N (Current ) | |
| 38 | ECME shall use the f ollowing A UTO-REVERS E site par ameter whe n determin ing whethe r non-rele ased presc ription cl aims (that have a PA YABLE paye r returned response) are to be automatic ally REVER SED. | |
| 39 | ||
| 40 | The AUTO-R EVERSE sit e paramete r is set f or the num ber of day s that ECM E will wai t before t he claim i s automati cally REVE RSED. The user is al lowed to e nter a num ber as fol lows: | |
| 41 | ||
| 42 | 0 - ECME A uto-Revers e is turne d off, 1 t o 30 - ECM E will wai t the ente red number of days b efore REVE RSING the non-releas ed Rx with a PAYABLE payer ret urned resp onse. | |
| 43 | DESCRIPTIO N (Modifie d) | |
| 44 | ECME shall use the f ollowing A UTO-REVERS E site par ameter whe n | |
| 45 | determinin g whether non-releas ed prescri ption clai ms (that h ave return ed | |
| 46 | a PAYABLE response) are to be automatica lly REVERS ED. | |
| 47 | ||
| 48 | The AUTO-R EVERSE sit e paramete r is set f or the num ber of day s that | |
| 49 | ECME will wait befor e the clai m is autom atically R EVERSED. T he user | |
| 50 | is allowed to enter a number f rom 3 to 1 0. | |
| 51 | 5 is the s uggested s etting. | |
| 52 | ||
| 53 | ECME will wait the e ntered num ber of day s before R EVERSING t he | |
| 54 | non-releas ed Rx with a PAYABLE response. | |
| 55 | ||
| 56 | INCLUSIVE LOWER BOUN D (Current ) | |
| 57 | 0 | |
| 58 | INCLUSIVE LOWER BOUN D (Modifie d) | |
| 59 | 3 | |
| 60 | INCLUSIVE UPPER BOUN D (Current ) | |
| 61 | 30 | |
| 62 | INCLUSIVE UPPER BOUN D (Modifie d) | |
| 63 | 10 | |
| 64 | IS AUTO-RE VERSE PARA METER ENTR Y MANDATOR Y (Y/N) (C urrent) | |
| 65 | NO | |
| 66 | IS AUTO-RE VERSE PARA METER ENTR Y MANDATOR Y (Y/N) (M odified) | |
| 67 | YES | |
| 68 | ‘HELP’-PRO MPT (Curre nt) | |
| 69 | You have t o enter a number bet ween 0 and 30. | |
| 70 | ‘HELP’-PRO MPT (Modif ied) | |
| 71 | Enter a nu mber from 3 to 10. 5 is the su ggested se tting. | |
| 72 | ||
| 73 | If new BPS Pharmacy, default A uto-Revers al Paramet er to 5. | |
| 74 | Subroutine Name | |
| 75 | EN^BPSPHAR | |
| 76 | Enhancemen t Category | |
| 77 | New | |
| 78 | Modify | |
| 79 | Delete | |
| 80 | No Change | |
| 81 | Story | |
| 82 | US579 | |
| 83 | Related Me nu Options or ListMa n Actions | |
| 84 | Edit ECME Pharmacy D ata [BPS S ETUP PHARM ACY] | |
| 85 | Related Ro utines | |
| 86 | This Subro utine is C alled By | |
| 87 | This Subro utine Call s | |
| 88 | ||
| 89 | Edit ECME Pharmacy D ata [BPS S ETUP PHARM ACY] | |
| 90 | ^DIC | |
| 91 | ^DIE | |
| 92 | $$GET1^DIQ | |
| 93 | Related In tegration Control Re gistration s (ICRs) | |
| 94 | N/A | |
| 95 | Data Passi ng | |
| 96 | Parameter Input | |
| 97 | Parameter Output | |
| 98 | Function Return Val ue | |
| 99 | Global Mo dified | |
| 100 | Input Attr ibute Name and Defin ition | |
| 101 | Name: N/A | |
| 102 | Definition : | |
| 103 | New Modify Delete No Cha nge | |
| 104 | Output Att ribute Nam e and Defi nition | |
| 105 | Name: N/A | |
| 106 | Definition : | |
| 107 | New Modify Delete No Cha nge | |
| 108 | Current Lo gic | |
| 109 | ||
| 110 | BPSPHAR ;B HAM ISC/BE E - ECME M GR PHAR OP TION ;14-F EB-05 | |
| 111 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,3,2,5**; JUN 2004;B uild 45 | |
| 112 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified. | |
| 113 | ||
| 114 | … | |
| 115 | ||
| 116 | EN ; Main Entry Poin t | |
| 117 | N D0,DA,D I,DIC,DLAY GO,DIE,DIR UT,DQ,DR,D TOUT,DUOUT ,X,Y | |
| 118 | ; | |
| 119 | ; First s elect the pharmacy o r enter a new one | |
| 120 | W !! S DI C(0)="QEAL M",(DLAYGO ,DIC)=9002 313.56,DIC ("A")="Sel ect BPS PH ARMACIES N AME: " | |
| 121 | D ^DIC | |
| 122 | ; | |
| 123 | ;Check fo r "^", tim eout, or b lank entry | |
| 124 | I ($G(DUO UT)=1)!($G (DTOUT)=1) !($G(Y)=-1 ) Q | |
| 125 | ; | |
| 126 | ;Pull int ernal entr y | |
| 127 | S DA=$P($ G(Y),U) Q: '$G(Y) | |
| 128 | ; | |
| 129 | ; If new BPS Pharma cy, defaul t the CMOP Switch an d Auto-Rev ersal Para meter | |
| 130 | I $P(Y,U, 3)=1 D | |
| 131 | . N DIE,D R,DTOUT | |
| 132 | . S DIE=9 002313.56, DR="1////0 ;.09////0" | |
| 133 | . D ^DIE | |
| 134 | ; | |
| 135 | ; Display the BPS P harmacy na me, NCPDP #, and NPI | |
| 136 | W !!,"NAM E: ",$P($G (^BPS(9002 313.56,DA, 0)),U,1) | |
| 137 | W !,"STAT US: ",$$GE T1^DIQ(900 2313.56,DA ,.1,"E") | |
| 138 | W !,"NCPD P #: ",$P( $G(^BPS(90 02313.56,D A,0)),U,2) | |
| 139 | W !,"NPI: ",$P($G(^ BPS(900231 3.56,DA,"N PI")),U,1) | |
| 140 | ; | |
| 141 | ; Now edi t OUTPATIE NT SITE, C MOP SWITCH , AUTO-REV ERSE PARAM ETER, | |
| 142 | ; and t he DEFAULT DEA # | |
| 143 | S DIE=900 2313.56 | |
| 144 | S DR="138 00;1;.09;. 03" | |
| 145 | S DR(2,90 02313.5601 )=".01" | |
| 146 | D ^DIE | |
| 147 | ; | |
| 148 | Q | |
| 149 | ||
| 150 | Modified L ogic (Chan ges are hi ghlighted) | |
| 151 | ||
| 152 | BPSPHAR ;B HAM ISC/BE E - ECME M GR PHAR OP TION ;14-F EB-05 | |
| 153 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,3,2,5,22 **;JUN 200 4;Build 45 | |
| 154 | ;; Per VA Directive 6402, thi s routine should not be modifi ed. | |
| 155 | … | |
| 156 | ||
| 157 | EN ; Main Entry Poin t | |
| 158 | N D0,DA,D I,DIC,DLAY GO,DIE,DIR UT,DQ,DR,D TOUT,DUOUT ,X,Y | |
| 159 | ; | |
| 160 | ; First s elect the pharmacy o r enter a new one | |
| 161 | W !! S DI C(0)="QEAL M",(DLAYGO ,DIC)=9002 313.56,DIC ("A")="Sel ect BPS PH ARMACIES N AME: " | |
| 162 | D ^DIC | |
| 163 | ; | |
| 164 | ;Check fo r "^", tim eout, or b lank entry | |
| 165 | I ($G(DUO UT)=1)!($G (DTOUT)=1) !($G(Y)=-1 ) Q | |
| 166 | ; | |
| 167 | ;Pull int ernal entr y | |
| 168 | S DA=$P($ G(Y),U) Q: '$G(Y) | |
| 169 | ; | |
| 170 | ; If new BPS Pharma cy, defaul t the CMOP Switch an d Auto-Rev ersal Para meter | |
| 171 | I $P(Y,U, 3)=1 D | |
| 172 | . N DIE,D R,DTOUT | |
| 173 | . S DIE=9 002313.56, DR="1////0 ;.09////5" | |
| 174 | . D ^DIE | |
| 175 | ; | |
| 176 | ; Display the BPS P harmacy na me, NCPDP #, and NPI | |
| 177 | W !!,"NAM E: ",$P($G (^BPS(9002 313.56,DA, 0)),U,1) | |
| 178 | W !,"STAT US: ",$$GE T1^DIQ(900 2313.56,DA ,.1,"E") | |
| 179 | W !,"NCPD P #: ",$P( $G(^BPS(90 02313.56,D A,0)),U,2) | |
| 180 | W !,"NPI: ",$P($G(^ BPS(900231 3.56,DA,"N PI")),U,1) | |
| 181 | ; | |
| 182 | ; Now edi t OUTPATIE NT SITE, C MOP SWITCH , AUTO-REV ERSE PARAM ETER, | |
| 183 | ; and t he DEFAULT DEA # | |
| 184 | S DIE=900 2313.56 | |
| 185 | S DR="138 00;1;.09;. 03" | |
| 186 | S DR(2,90 02313.5601 )=".01" | |
| 187 | D ^DIE | |
| 188 | ; | |
| 189 | Q | |
| 190 | ||
| 191 | ||
| 192 | Post Insta ll Routine ; Loop thr ough BPS P HARMACIES checking e xisting va lues for A UTO-REVERS AL PARAMET ER field ( # .09). If existing value is n il or if e xisting va lue is out side of 3- 10 (inclus ive) range , update v alue to be 5. | |
| 193 | Subroutine Name | |
| 194 | POST^BPS21 PST | |
| 195 | Enhancemen t Category | |
| 196 | New | |
| 197 | Modify | |
| 198 | Delete | |
| 199 | No Change | |
| 200 | Story | |
| 201 | US579 | |
| 202 | Related Me nu Options or ListMa n Actions | |
| 203 | N/A | |
| 204 | Related Ro utines | |
| 205 | This Subro utine is C alled By | |
| 206 | This Subro utine Call s | |
| 207 | ||
| 208 | KIDS syste m; Kernel Installati on and Dis tribution System; ca lled upon patch inst allation | |
| 209 | BMES^XPDUT L | |
| 210 | AUTOREV^BP S21PST | |
| 211 | Related In tegration Control Re gistration s (ICRs) | |
| 212 | N/A | |
| 213 | Data Passi ng | |
| 214 | Parameter Input | |
| 215 | Parameter Output | |
| 216 | Function Return Val ue | |
| 217 | Global Mo dified | |
| 218 | Input Attr ibute Name and Defin ition | |
| 219 | Name: N/A | |
| 220 | Definition : | |
| 221 | New Modify Delete No Cha nge | |
| 222 | Output Att ribute Nam e and Defi nition | |
| 223 | Name: N/A | |
| 224 | Definition : | |
| 225 | New Modify Delete No Cha nge | |
| 226 | Current Lo gic | |
| 227 | ||
| 228 | N/A | |
| 229 | ||
| 230 | Modified L ogic (Chan ges are hi ghlighted) | |
| 231 | ||
| 232 | BPS22PST ;AITC/PD - Post-inst all for BP S*1.0*22 ; 5/10/2017 | |
| 233 | ;;1.0;E C LAIMS MGMT ENGINE;** 22**; | |
| 234 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 235 | ; | |
| 236 | Q | |
| 237 | ; | |
| 238 | POST ; post-insta ll functio ns are cod ed here. | |
| 239 | D BMES^XPDUT L(" Start ing post-i nstall of BPS*1.0*tb d") | |
| 240 | D AUTOREV | |
| 241 | D BMES^XPDUT L(" Finis hed post-i nstall of BPS*1.0*tb d") | |
| 242 | Q | |
| 243 | ||
| 244 | ||
| 245 | ||
| 246 | Subroutine Name | |
| 247 | AUTOREV^BP S22PST | |
| 248 | Enhancemen t Category | |
| 249 | New | |
| 250 | Modify | |
| 251 | Delete | |
| 252 | No Change | |
| 253 | Story | |
| 254 | US579 | |
| 255 | Related Me nu Options or ListMa n Actions | |
| 256 | N/A | |
| 257 | Related Ro utines | |
| 258 | This Subro utine is C alled By | |
| 259 | This Subro utine Call s | |
| 260 | ||
| 261 | POST^BPS21 PST | |
| 262 | BMES^XPDUT L | |
| 263 | ^DIE | |
| 264 | $$NOW^XLFD T | |
| 265 | MAIL^BPS21 PST | |
| 266 | MES^XPDUTL | |
| 267 | Data Dicti onary (DD) Reference s | |
| 268 | BPS PHARMA CIES (9002 3136.56) F ield .09 | |
| 269 | Related In tegration Control Re gistration s (ICRs) | |
| 270 | N/A | |
| 271 | Data Passi ng | |
| 272 | Parameter Input | |
| 273 | Parameter Output | |
| 274 | Function Return Val ue | |
| 275 | Global Mo dified | |
| 276 | Input Attr ibute Name and Defin ition | |
| 277 | Name: N/A | |
| 278 | Definition : | |
| 279 | New Modify Delete No Cha nge | |
| 280 | Output Att ribute Nam e and Defi nition | |
| 281 | Name: BPSA R | |
| 282 | Definition : Array of BPS Pharm acy Sites Updated | |
| 283 | New Modify Delete No Cha nge | |
| 284 | Current Lo gic | |
| 285 | ||
| 286 | N/A | |
| 287 | ||
| 288 | Modified L ogic (Chan ges are hi ghlighted) | |
| 289 | ||
| 290 | AUTOREV; Update AU TO-REVERSA L PARAMETE R in BPS P HARMACIES | |
| 291 | ; | |
| 292 | ; If exist ing value is nil or outside of inclusive range 3-1 0 set valu e to 5. | |
| 293 | ; | |
| 294 | N BPSAR,BP SARP,BPSIE N,CNT,DA,D IE,DR | |
| 295 | ; | |
| 296 | D BMES^XPDUT L(" Upda ting AUTO- REVERSAL P ARAMETERs" ) | |
| 297 | ; | |
| 298 | S CNT=0 | |
| 299 | S BPSIEN=0 F S BPSI EN=$O(^BPS (9002313.5 6,BPSIEN)) Q:BPSIEN' ?1N.N D | |
| 300 | . S BPSARP =$P($G(^BP S(9002313. 56,BPSIEN, 0)),U,9) | |
| 301 | . I (BPSAR P="")!(BPS ARP<3)!(BP SARP>10) D | |
| 302 | .. S DIE=9 002313.56, DA=BPSIEN, DR=".09/// /5" | |
| 303 | .. D ^DIE | |
| 304 | .. S BPSAR (BPSIEN)=B PSARP_U_$$ NOW^XLFDT | |
| 305 | .. S CNT=C NT+1 | |
| 306 | ; | |
| 307 | I $D(BPSAR ) D MAIL(. BPSAR) | |
| 308 | ; | |
| 309 | D MES^XPDUTL (" - "_ CNT_" entr ies update d") | |
| 310 | D MES^XPDUTL (" - Do ne with up dating AUT O-REVERSAL PARAMETER s") | |
| 311 | ; | |
| 312 | Q | |
| 313 | ||
| 314 | ||
| 315 | Subroutine Name | |
| 316 | MAIL^BPS21 PST | |
| 317 | Enhancemen t Category | |
| 318 | New | |
| 319 | Modify | |
| 320 | Delete | |
| 321 | No Change | |
| 322 | Story | |
| 323 | US579 | |
| 324 | Related Me nu Options or ListMa n Actions | |
| 325 | N/A | |
| 326 | Related Ro utines | |
| 327 | This Subro utine is C alled By | |
| 328 | This Subro utine Call s | |
| 329 | ||
| 330 | AUTOREV^BP S21PST | |
| 331 | $$SITE^VAS ITE | |
| 332 | $$FMTE^XLF DT | |
| 333 | ^XMD | |
| 334 | Related In tegration Control Re gistration s (ICRs) | |
| 335 | IA# 10070 – Call to ^XMD | |
| 336 | IA# 10112 - $$SITE^V ASITE() | |
| 337 | Data Passi ng | |
| 338 | Parameter Input | |
| 339 | Parameter Output | |
| 340 | Function Return Val ue | |
| 341 | Global Mo dified | |
| 342 | Input Attr ibute Name and Defin ition | |
| 343 | Name: BPSA R | |
| 344 | Definition : Array of BPS Pharm acy Site u pdated | |
| 345 | New Modify Delete No Cha nge | |
| 346 | Output Att ribute Nam e and Defi nition | |
| 347 | Name: N/A | |
| 348 | Definition : | |
| 349 | New Modify Delete No Cha nge | |
| 350 | Current Lo gic | |
| 351 | ||
| 352 | N/A | |
| 353 | ||
| 354 | Modified L ogic (Chan ges are hi ghlighted) | |
| 355 | ||
| 356 | MAIL(BPSAR ) ; Genera te MailMan E-Mail | |
| 357 | ; | |
| 358 | N BPSARP, BPSDT,BPSI EN,BPSL,BP SNAME,BPSS ITE,BPSX,U SR,XMDUZ,X MSUB,XMTEX T,XMY | |
| 359 | ; | |
| 360 | S BPSSITE =$$SITE^VA SITE() ; IA 10112 | |
| 361 | ; | |
| 362 | S BPSL=0 | |
| 363 | S BPSL=BP SL+1,BPSX( BPSL)="Vis tA patch B PS*1.0*22 was succes sfully ins talled at your site. " | |
| 364 | S BPSL=BP SL+1,BPSX( BPSL)=" " | |
| 365 | ; | |
| 366 | S BPSIEN= "" | |
| 367 | F S BPSI EN=$O(BPSA R(BPSIEN)) Q:BPSIEN= "" D | |
| 368 | . S BPSAR P=$P($G(BP SAR(BPSIEN )),U) | |
| 369 | . S BPSDT =$P($G(BPS AR(BPSIEN) ),U,2) | |
| 370 | . S BPSNA ME=$P($G(^ BPS(900231 3.56,BPSIE N,0)),U,1) | |
| 371 | . S BPSL= BPSL+1,BPS X(BPSL)=" Nam e: "_BPSNA ME | |
| 372 | . S BPSL= BPSL+1,BPS X(BPSL)=" Station #: "_$P(BP SSITE,U,3) | |
| 373 | . S BPSL= BPSL+1,BPS X(BPSL)=" Date/Tim e: "_$$FMT E^XLFDT(BP SDT,"5ZPM" ) | |
| 374 | . S BPSL= BPSL+1,BPS X(BPSL)=" B y: "_$P($G (^VA(200,D UZ,0)),U,1 ) | |
| 375 | . S BPSL= BPSL+1,BPS X(BPSL)=" " | |
| 376 | . S BPSL= BPSL+1,BPS X(BPSL)="T he ePharma cy Auto-Re versal Par ameter has been chan ged at you r site." | |
| 377 | . S BPSL= BPSL+1,BPS X(BPSL)=" Previo us Value: "_BPSARP | |
| 378 | . S BPSL= BPSL+1,BPS X(BPSL)=" N ew Value: 5" | |
| 379 | . S BPSL= BPSL+1,BPS X(BPSL)=" " | |
| 380 | ; | |
| 381 | S BPSL=BP SL+1,BPSX( BPSL)="The Auto-Reve rsal Param eter can b e changed using opti on Edit EC ME Pharmac y" | |
| 382 | S BPSL=BP SL+1,BPSX( BPSL)="Dat a." | |
| 383 | S BPSL=BP SL+1,BPSX( BPSL)=" " | |
| 384 | S BPSL=BP SL+1,BPSX( BPSL)="ECM E uses the AUTO-REVE RSE site p arameter w hen determ ining whet her non-re leased" | |
| 385 | S BPSL=BP SL+1,BPSX( BPSL)="pre scription claims (th at have a PAYABLE pa yer return ed respons e) are to be" | |
| 386 | S BPSL=BP SL+1,BPSX( BPSL)="aut omatically REVERSED. " | |
| 387 | S BPSL=BP SL+1,BPSX( BPSL)=" " | |
| 388 | S BPSL=BP SL+1,BPSX( BPSL)="The AUTO-REVE RSE site p arameter i s set for the number of days t hat ECME w ill" | |
| 389 | S BPSL=BP SL+1,BPSX( BPSL)="wai t before t he claim i s automati cally REVE RSED. The user is al lowed to e nter" | |
| 390 | S BPSL=BP SL+1,BPSX( BPSL)="a n umber from 3 to 10. 5 is the s uggested s etting. EC ME will wa it the" | |
| 391 | S BPSL=BP SL+1,BPSX( BPSL)="ent ered numbe r of days before REV ERSING the non-relea sed RX wit h a PAYABL E" | |
| 392 | S BPSL=BP SL+1,BPSX( BPSL)="pay er returne d response ." | |
| 393 | ; | |
| 394 | S XMSUB=" ePharmacy Auto-Rever sal Parame ter Change : BPS*1.0* 22 " | |
| 395 | S XMSUB=X MSUB_$P(BP SSITE,U,3) _" #"_$P(B PSSITE,U,2 ) | |
| 396 | S XMDUZ=" BPS Patch* 1.0*22" | |
| 397 | S XMTEXT= "BPSX(" | |
| 398 | ; Define Recipients of Email - Recipien ts Include : | |
| 399 | ; Install er of Patc h | |
| 400 | ; Holders of PSO EP HARMACY SI TE MANAGER Key | |
| 401 | ; Gregory Laird (pr oduction o nly) | |
| 402 | ; Select team membe rs (produc tion only) | |
| 403 | S XMY(DUZ )="" | |
| 404 | S USR=0 F S USR=$O (^XUSEC("P SO EPHARMA CY SITE MA NAGER",USR )) Q:USR=" " S XMY(U SR)="" | |
| 405 | I $$PROD^ XUPROD(1) D | |
| 406 | . S XMY(" DNS ")="" | |
| 407 | . S XMY("
|
|
| 408 | . S XMY(" DNS ")="" | |
| 409 | . S XMY("
|
|
| 410 | ; When in voking ^XM D in pre/p ost-init r outine of Kernel Ins tallation and | |
| 411 | ; Distrib ution Syst em (KIDS) build, the calling r outine mus t NEW the DIFROM var iable | |
| 412 | ; Otherwi se, your m essage wil l not be d elivered. | |
| 413 | N DIFROM | |
| 414 | D ^XMD ; IA# 10070 | |
| 415 | ; | |
| 416 | Q | |
| 417 | ||
| 418 | Back Out/R ollback Pr ocedure | |
| 419 | This story includes modificati ons to exi sting rout ines and f iles. | |
| 420 | To back ou t this enh ancement, all the ro utines whi ch are a p art of thi s patch sh ould be ba cked up pr ior to ins tallation. Reverting to the pr evious ver sion of th ese routin es would b ack out th is enhance ment. Alte rnatively, the previ ous versio n of these routines could be d istributed via an em ergency pa tch. | |
| 421 | Rolling ba ck the cha nges to th e database would inv olve the f ollowing s teps, whic h could be performed by a deve loper or I RM at each site or v ia an emer gency patc h: | |
| 422 | Using opti on Edit EC ME Pharmac y Data, up date the v alue for A uto-Revers al Paramet er to the previously defined v alue as sh own in the MailMan E -mail whic h was sent as part o f the patc h update. | |
| 423 | Modify Fil e Attribut es to BPS PHARMACIES (9002313. 56) to pre viously de fined valu es via Fil eMan: | |
| 424 | Fields | |
| 425 | Values | |
| 426 | FILE | |
| 427 | BPS PHARMA CIES | |
| 428 | FIELD | |
| 429 | AUTO-REVER SE PARAMET ER | |
| 430 | DESCRIPTIO N | |
| 431 | ECME shall use the f ollowing A UTO-REVERS E site par ameter whe n determin ing whethe r non-rele ased presc ription cl aims (that have a PA YABLE paye r returned response) are to be automatic ally REVER SED. | |
| 432 | ||
| 433 | The AUTO-R EVERSE sit e paramete r is set f or the num ber of day s that ECM E will wai t before t he claim i s automati cally REVE RSED. The user is al lowed to e nter a num ber as fol lows: | |
| 434 | ||
| 435 | 0 - ECME A uto-Revers e is turne d off, 1 t o 30 - ECM E will wai t the ente red number of days b efore REVE RSING the non-releas ed Rx with a PAYABLE payer ret urned resp onse. | |
| 436 | INCLUSIVE LOWER BOUN D | |
| 437 | 0 | |
| 438 | INCLUSIVE UPPER BOUN D | |
| 439 | 30 | |
| 440 | IS AUTO-RE VERSE PARA METER ENTR Y MANDATOR Y (Y/N) | |
| 441 | NO | |
| 442 | ‘HELP’-PRO MPT | |
| 443 | You have t o enter a number bet ween 0 and 30. | |
| 444 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.