Produced by Araxis Merge on 4/17/2018 8:06:49 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 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US580+v1.01.docx | Wed Dec 13 12:44:36 2017 UTC |
| 2 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US580+v1.01.docx | Wed Apr 18 00:12:11 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 364 |
| 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 US580b | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | October 20 17 | |
| 10 | Version 1. 00 | |
| 11 | User Story Number: U SRX-25 | |
| 12 | User Story Name: New Status fo r Parked P rescriptio ns | |
| 13 | Product Ba cklog ID: 189 | |
| 14 | Priority: 3.1 | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: 828288 | |
| 17 | Rally ID: US580 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Changes to be implem ented by t he Park a Prescripti on project (PSO*7.0* 441) will modify the existing field MAIL /WINDOW on the Presc ription fi le. The n ame of thi s field wi ll be chan ged to MAI L/WINDOW/P ARKED, and the possi ble values in this f ield (curr ently “M” or “W”) wi ll be chan ged to all ow a value of “P”. | |
| 21 | ||
| 22 | ePharmacy screens an d reports will need to be modi fied to ac commodate this field sometimes having a value of “ P”. | |
| 23 | ||
| 24 | UPDATE: Th e original design fo r US580 ha s been upd ated to re move any d ependency on the Par k-a-Prescr iption enh ancements. Any refer ence to a value of “ P” has bee n removed. | |
| 25 | ||
| 26 | List of Co mponents: | |
| 27 | Routine: B PSSCRCV | |
| 28 | Routine: B PSSCRSL | |
| 29 | Routine: B PSSCR03 | |
| 30 | Routine: B PSSCRU2 | |
| 31 | Routine: B PSRPT0 | |
| 32 | Routine: B PSRPT1 | |
| 33 | Routine: B PSRPT3 | |
| 34 | Routine: B PSRPT6 | |
| 35 | Routine: B PSRPT7 | |
| 36 | Routine: I BNCPEV3 | |
| 37 | Routine: P SOBPSU2 | |
| 38 | ||
| 39 | Design – D etail | |
| 40 | On the ECM E User Scr een, the A ction CV C hange View allows th e user to vary the f ilters use d to build the list of prescri ptions on the screen . The subr outine EDI TPROF^BPSS CRCV handl es the pro mpting of the user f or all the CV filter s, includi ng the que stion pert aining to CMOP/Mail/ Window/All . That que stion will be change d to allow the user to answer P for Park ed prescri ptions. | |
| 41 | ||
| 42 | UPDATE: ED ITPROF^BPS SCRCV will not be in cluded in US580b. | |
| 43 | ||
| 44 | Comments i n BPSSCRSL , ISMWC^BP SSCR03, GE TMWC^BPSSC RU2, and M WC^BPSSCRU 2 will be updated to reflect t he new val ue of Park ed in user parameter 1.08. | |
| 45 | ||
| 46 | UPDATED: N one of tho se routine s and subr outines wi ll be incl uded in US 580b. | |
| 47 | ||
| 48 | The subrou tine MWC^P SOBPSU2 de termines w hether a g iven Presc ription/Fi ll is Mail , Window, or CMOP. T his subrou tine will be modifie d to accou nt for a p ossible va lue of ‘P’ in the fi eld MAIL/W INDOW/PARK ED. | |
| 49 | ||
| 50 | Subroutine Name | |
| 51 | MWC^PSOBPS U2 | |
| 52 | Enhancemen t Category | |
| 53 | New | |
| 54 | Modify | |
| 55 | Delete | |
| 56 | No Change | |
| 57 | Story | |
| 58 | US580 | |
| 59 | Related Me nu Options or ListMa n Actions | |
| 60 | BPS Menu R PT Claim S tatus Repo rts | |
| 61 | Related Ro utines | |
| 62 | This Subro utine is C alled By | |
| 63 | This Subro utine Call s | |
| 64 | ||
| 65 | MWC^BPSRPT 6, MWC^BPS SCRU2, RXI NFO^PSOBOR P3, GPPDU^ PSONDCUT, LOGRTS^PSO RTSUT | |
| 66 | $$LSTRFL^P SOBPSU1, $ $GET1^DIQ | |
| 67 | Related In tegration Control Re gistration s (ICRs) | |
| 68 | n/a | |
| 69 | Data Passi ng | |
| 70 | Parameter Input | |
| 71 | Parameter Output | |
| 72 | Function Return Val ue | |
| 73 | Global Mo dified | |
| 74 | Input Attr ibute Name and Defin ition | |
| 75 | Name: RX | |
| 76 | Definition : Prescrip tion IEN | |
| 77 | New Modify Delete No Cha nge | |
| 78 | Name: RFL | |
| 79 | Definition : Refill ( 0 if origi nal) | |
| 80 | New Modify Delete No Cha nge | |
| 81 | Output Att ribute Nam e and Defi nition | |
| 82 | Name: $$MW C | |
| 83 | Definition : Currentl y returns “M”, “W”, or “C”. Wi th this en hancement, it will r eturn “P” if the pre scription is parked. | |
| 84 | New Modify Delete No Cha nge | |
| 85 | Current Lo gic | |
| 86 | ||
| 87 | PSOBPSU2 ; BIRM/MFR - BPS (ECME ) Utilitie s 2 ;10/15 /04 | |
| 88 | ; ;7.0;OUTPA TIENT PHAR MACY;**260 ,287,289,3 41,290,358 ,359,385,4 21,459**;D EC 1997;Bu ild 1 | |
| 89 | ; Reference to File 20 0 - NEW PE RSON suppo rted by IA 10060 | |
| 90 | ; Reference to DUR1^BP SNCPD3 sup ported by IA 4560 | |
| 91 | ; Reference to $$NCPDP QTY^PSSBPS UT support ed by IA 4 992 | |
| 92 | ; Reference to $$CLAIM ^BPSBUTL s upported b y IA 4719 | |
| 93 | ; | |
| 94 | MWC(RX,RFL ) ; Return s whether a prescrip tion is (M )ail, (W)i ndow or (C )MOP | |
| 95 | ; Input: (r) RX - Rx IEN (#52) | |
| 96 | ; (o) RFL - Re fill # (D efault: mo st recent) | |
| 97 | ; Output: "M ": MAIL / "W": WINDO W / "C": C MOP | |
| 98 | ; | |
| 99 | N MWC | |
| 100 | ; | |
| 101 | I '$D(RFL) S RFL=$$LS TRFL^PSOBP SU1(RX) | |
| 102 | ; | |
| 103 | ; - MAIL/WI NDOW field s (Origina l and Refi ll) | |
| 104 | I RFL S MWC =$$GET1^DI Q(52.1,RFL _","_RX,2, "I") | |
| 105 | E S MWC=$$ GET1^DIQ(5 2,RX,11,"I ") | |
| 106 | S :MWC="" MW C="W" | |
| 107 | ; | |
| 108 | ; - Checkin g the RX S USPENSE fi le (#52.5) | |
| 109 | I $$GET1^DI Q(52,RX,10 0,"I")=5 D | |
| 110 | . N RXS S R XS=+$O(^PS (52.5,"B", RX,0)) Q:' RXS | |
| 111 | . I $$GET1^ DIQ(52.5,R XS,3,"I")' ="" S MWC= "C" Q | |
| 112 | . S MWC="M" | |
| 113 | ; | |
| 114 | ; - Checkin g the CMOP EVENT sub -file (#52 .01) | |
| 115 | I MWC'="C" D | |
| 116 | . N CMP S C MP=0 | |
| 117 | . F S CMP= $O(^PSRX(R X,4,CMP)) Q:'CMP D I MWC="C" Q | |
| 118 | . . I $$GET 1^DIQ(52.0 1,CMP_","_ RX,2,"I")= RFL S MWC= "C" | |
| 119 | ; | |
| 120 | Q MWC | |
| 121 | ||
| 122 | Modified L ogic (Chan ges are hi ghlighted) | |
| 123 | ||
| 124 | PSOBPSU2 ; BIRM/MFR - BPS (ECME ) Utilitie s 2 ;10/15 /04 | |
| 125 | ; ;7.0;OUTPA TIENT PHAR MACY;**260 ,287,289,3 41,290,358 ,359,385,4 21,459,482 **;DEC 199 7;Build 1 | |
| 126 | ; Reference to File 20 0 - NEW PE RSON suppo rted by IA 10060 | |
| 127 | ; Reference to DUR1^BP SNCPD3 sup ported by IA 4560 | |
| 128 | ; Reference to $$NCPDP QTY^PSSBPS UT support ed by IA 4 992 | |
| 129 | ; Reference to $$CLAIM ^BPSBUTL s upported b y IA 4719 | |
| 130 | ; | |
| 131 | MWC(RX,RFL ) ; Return s whether a prescrip tion is (M )ail, (W)i ndow or (C )MOP | |
| 132 | ; Input: (r) RX - Rx IEN (#52) | |
| 133 | ; (o) RFL - Re fill # (D efault: mo st recent) | |
| 134 | ; Output: "M ": MAIL / "W": WINDO W / "C": C MOP | |
| 135 | ; | |
| 136 | N MWC | |
| 137 | ; | |
| 138 | I '$D(RFL) S RFL=$$LS TRFL^PSOBP SU1(RX) | |
| 139 | ; | |
| 140 | ; If RFL is not zero, then pull the value from MAIL /WINDOW on the | |
| 141 | ; REFILL mu ltiple. O therwise, pull the v alue from MAIL/WINDO W | |
| 142 | ; at the Pr escription level. | |
| 143 | I RFL S MWC =$$GET1^DI Q(52.1,RFL _","_RX,2, "I") | |
| 144 | E S MWC=$$ GET1^DIQ(5 2,RX,11,"I ") | |
| 145 | S :MWC="" MW C="W" | |
| 146 | I MWC’="M", MWC’="W" Q MWC ; If neither M ail nor Wi ndow, Quit now and s kip other checks. | |
| 147 | ; | |
| 148 | ; - Checkin g the RX S USPENSE fi le (#52.5) | |
| 149 | ; File# 52, field# 10 0 is STATU S; 5=Suspe nded | |
| 150 | I $$GET1^DI Q(52,RX,10 0,"I")=5 D | |
| 151 | . N RXS S R XS=+$O(^PS (52.5,"B", RX,0)) Q:' RXS | |
| 152 | . ; File# 5 2.5, RX SU SPENSE; fi eld# 3, CM OP INDICAT OR | |
| 153 | . ; If the CMOP INDIC ATOR is no t blank, t hen this i s CMOP... | |
| 154 | . I $$GET1^ DIQ(52.5,R XS,3,"I")' ="" S MWC= "C" Q | |
| 155 | . ; ...othe rwise, thi s is a Mai l fill. | |
| 156 | . S MWC="M" | |
| 157 | ; | |
| 158 | ; - Checkin g the CMOP EVENT sub -file (#52 .01) | |
| 159 | I MWC'="C" D | |
| 160 | . N CMP S C MP=0 | |
| 161 | . F S CMP= $O(^PSRX(R X,4,CMP)) Q:'CMP D I MWC="C" Q | |
| 162 | . . I $$GET 1^DIQ(52.0 1,CMP_","_ RX,2,"I")= RFL S MWC= "C" | |
| 163 | ; | |
| 164 | Q MWC | |
| 165 | ||
| 166 | ||
| 167 | The subrou tine SELMW C^BPSRPT3 currently prompts th e user to select CMO P, Mail, W indow, or All. It wi ll be modi fied to al low a resp onse of Pa rked. | |
| 168 | ||
| 169 | UPDATED: S ELMWC^BPSR PT3 will n ot be incl uded in US 580b. | |
| 170 | ||
| 171 | The header of each r eport is p rinted by the subrou tine HDR^B PSRPT7. | |
| 172 | ||
| 173 | UPDATE: HD R^BPSRPT7 will not b e included in US580b . | |
| 174 | ||
| 175 | Comments i n EN^BPSRP T0, COLLEC T^BPSRPT1, PROCESS^B PSRPT1, MW C^BPSRPT6, and COLLE CT^IBNCPEV 3 will be updated to reflect t he new val ue of Park ed. | |
| 176 | ||
| 177 | UPDATED: N one of tho se subrout ines will be include d in US580 b. | |
| 178 | ||
| 179 | Back Out/R ollback Pr ocedure | |
| 180 | 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. | |
| 181 | ||
| 182 | To back ou t this enh ancement, the routin es BPSSCRC V, BPSSCRS L, BPSSCR0 3, BPSSCRU 2, BPSRPT0 , BPSRPT1, BPSRPT3, BPSRPT6, B PSRPT7, IB NCPEV3, an d PSOBPSU2 should be backed up prior to installing this patc h. Reverti ng to the previous v ersion of these this routines would back out this enhancemen t. Alterna tively, th e previous version o f these th is routine s could be distribut ed via an emergency patch. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.