Produced by Araxis Merge on 9/19/2018 12:35:28 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+US1668+v1.00.docx | Wed Sep 12 15:17:00 2018 UTC |
| 2 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US1668+v1.00.docx | Wed Sep 19 14:31:51 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 430 |
| 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 US1668 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | September 2017 | |
| 10 | Version 1. 0 | |
| 11 | User Story Number: U SRX-198 | |
| 12 | User Story Name: Loo kup into D ispense Dr ug File | |
| 13 | Product Ba cklog ID: 198 | |
| 14 | Backlog Pr iority: 30 | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: | |
| 17 | Rally ID: US1668 | |
| 18 | Epic Taxon omy: Updat e | |
| 19 | ||
| 20 | Design – S ummary | |
| 21 | The NCPDP QUANTITY M ULTIPLIER field can be set to five decim al places, but when the NCPDP QUANTITY M ULTIPLIER field is d isplayed i n the Look up into Di spense Dru g File [PS S LOOK] op tion it is rounded t o three de cimal plac es. | |
| 22 | ||
| 23 | List of Co mponents: | |
| 24 | Routine: P SSLOOK | |
| 25 | ||
| 26 | Design – D etail | |
| 27 | The Dispen se Drug Fi le [PSS LO OK] curren tly rounds the NCPDP QUANTITY MULTIPLIER field to three dec imal place s. The su broutine FORMAT^PSS LOOK will need to be modified to display the NCPD P QUANTITY MULTIPLIE R with fiv e decimal places as it is stor ed in the database. | |
| 28 | Subroutine Name | |
| 29 | FORMAT^PSS LOOK | |
| 30 | Enhancemen t Category | |
| 31 | New | |
| 32 | Modify | |
| 33 | Delete | |
| 34 | No Change | |
| 35 | Story | |
| 36 | US1668 | |
| 37 | Related Me nu Options or ListMa n Actions | |
| 38 | Dispense D rug File [ PSS LOOK] | |
| 39 | Related Ro utines | |
| 40 | This Subro utine is C alled By | |
| 41 | This Subro utine Call s | |
| 42 | ||
| 43 | Dispense D rug File | |
| 44 | ||
| 45 | PICK^PSSLO OK | |
| 46 | OITXT, FUL L, SYN, UN CALC, | |
| 47 | LPDNW, LDT | |
| 48 | $$GET1^DIQ , | |
| 49 | $$DAWEXT^P SSDAWUT, | |
| 50 | ^DIWP, | |
| 51 | ^PSSWRNE, | |
| 52 | $$PROD2^PS NAPIS, | |
| 53 | $$FORMI^PS NAPIS, | |
| 54 | FD^PSNACT, | |
| 55 | NOW^%DTC, | |
| 56 | $$CPTIER^P SNAPIS, | |
| 57 | $$FORMRX^P SNAPIS, | |
| 58 | FDT^PSNACT | |
| 59 | Related In tegration Control Re gistration s (ICRs) | |
| 60 | N/A | |
| 61 | Data Passi ng | |
| 62 | Parameter Input | |
| 63 | Parameter Output | |
| 64 | Function Return Val ue | |
| 65 | Global Mo dified | |
| 66 | Input Attr ibute Name and Defin ition | |
| 67 | Name: n/a | |
| 68 | Definition : | |
| 69 | New Modify Delete No Cha nge | |
| 70 | Output Att ribute Nam e and Defi nition | |
| 71 | Name: n/a | |
| 72 | Definition : | |
| 73 | New Modify Delete No Cha nge | |
| 74 | Current Lo gic | |
| 75 | ||
| 76 | PSSLOOK ;B IR/WRT-Dru g file loo kup ;02/03 /00 | |
| 77 | ;;1.0;PHA RMACY DATA MANAGEMEN T;**3,7,15 ,16,20,24, 29,38,68,6 1,87,90,12 7,147,170, 189,192,20 0,195**;9/ 30/97;Buil d 25 | |
| 78 | ; | |
| 79 | . . . | |
| 80 | ||
| 81 | FORMAT ; B EGIN WRITI NG | |
| 82 | N DAW | |
| 83 | W @IOF,"D RUG NAME: ",GN," (I EN: ",IFN, ")",! | |
| 84 | F XX=1:1: 77 W "=" | |
| 85 | W ! | |
| 86 | W:$D(VAPR N) "VA PRI NT NAME: " ,?17,VAPRN W:$D(CMOP ID) ?60,"C MOP ID#: " ,CMOPID W: $D(VAPN) ! ,"VA PRODU CT NAME: " ,?17,VAPN W:$D(CMOP) ?60,"CMOP DISPENSE: ",CMOP | |
| 87 | W:$D(OINM ) !,"ORDER ABLE ITEM: ",?17,OIN M W:$D(VAP N) ?60,"ND F DF: ",VA DF | |
| 88 | I $D(OIPT R),OIPTR]" " W !,"ORD ERABLE ITE M TEXT: ", ! D OITXT | |
| 89 | W:$D(PD) !,"PRIMARY DRUG: ",? 17,PD | |
| 90 | W !,"SYNO NYM(S): " D SYN D FU LL Q:$G(QU IT) W !," MESSAGE: " ,MESS,! | |
| 91 | D FULL Q: $G(QUIT) F XX=1:1:7 7 W "-" | |
| 92 | W ! | |
| 93 | D FULL Q: $G(QUIT) W "DEA, SP ECIAL HDLG : ",DEA,?4 8,"NDC: ", ?63,NDC | |
| 94 | S DAW=+$$ GET1^DIQ(5 0,IFN,81) | |
| 95 | D FULL Q: $G(QUIT) W !,"DAW C ODE: ",DA W," - ",$$ DAWEXT^PSS DAWUT(DAW) | |
| 96 | D FULL Q: $G(QUIT) W !,"CS FE DERAL SCHE DULE: ",$G (CSF) | |
| 97 | ; | |
| 98 | ;Hazardou s Waste | |
| 99 | W ! | |
| 100 | S PSSHTDX =0 | |
| 101 | I $G(PSSH TD)=1 S PS SHTDX=1 | |
| 102 | D FULL Q: $G(QUIT) W:$G(PSSHT H)'="" !," Hazardous to Handle: ",$S(PSSH TH=1:"YES" ,PSSHTH=0: "NO",1:"") | |
| 103 | D FULL Q: $G(QUIT) W:$G(PSSHT D)'="" !," Hazardous to Dispose : ",$S(PSS HTD=1:"YES ",PSSHTD=0 :"NO",1:"" ) | |
| 104 | I $G(PSSP EPAC)'=""& (PSSHTDX) D FULL Q:$ G(QUIT) W !," Primary EPA Code: ",PSSPEPAC | |
| 105 | I $G(PSSW SC)'=""&(P SSHTDX) D FULL Q:$G( QUIT) W ! ," Waste Sor t Code: ", PSSWSC | |
| 106 | ; | |
| 107 | N HAZWCNT ,HAZWCNT2, X,DIWL,DIW R,DIWF | |
| 108 | K ^UTILIT Y($J,"W") | |
| 109 | S HAZWCNT =0,HAZWCNT 2=1,HAZWCN T=0,DIWL=1 ,DIWR=50 | |
| 110 | F S HAZW CNT=$O(PSS DOTSN(HAZW CNT)) Q:HA ZWCNT="" S X=PSSDOT SN(HAZWCNT ) D ^DIWP | |
| 111 | S HAZWCNT =0 F S HA ZWCNT=$O(^ UTILITY($J ,"W",DIWL, HAZWCNT)) Q:'HAZWCNT D | |
| 112 | .D FULL Q :$G(QUIT) | |
| 113 | .I HAZWCN T2=1 W !," DOT Shipping Name: " | |
| 114 | .I HAZWCN T2>1 W !," " | |
| 115 | .W $G(^UT ILITY($J," W",DIWL,HA ZWCNT,0)) S HAZWCNT2 =2 | |
| 116 | K ^UTILIT Y($J,"W") | |
| 117 | ;I $G(PSS DOTSN)'="" &(PSSHTDX) D FULL Q: $G(QUIT) W !," DOT Ship ping Name: ",PSSDOTS N | |
| 118 | W ! | |
| 119 | ; | |
| 120 | D FULL Q: $G(QUIT) W !,"INACT IVE DATE: ",ACT | |
| 121 | D FULL Q: $G(QUIT) W:$D(QDM) !,"QUANTIT Y DISPENSE MESSAGE: ",QDM,! | |
| 122 | D FULL Q: $G(QUIT) I WRN]"" W !,"WARNIN G LABEL: " S X=WRN F Z0=1:1 Q: $P(X,",",Z 0,99)="" S Z1=$P(X, ",",Z0) W: $D(^PS(54, Z1,0)) ?19 ,$P(^(0)," ^",1),! I '$D(^(0)) W ?19,"NO SUCH WARNI NG LABEL" K X Q | |
| 123 | D FULL Q: $G(QUIT) S PSSLOOK= 1 D | |
| 124 | .N DRUG | |
| 125 | .I $P($G( ^PSDRUG(IF N,0)),"^") ="" K PSSL OOK Q | |
| 126 | .S PSSWSI TE=+$O(^PS (59.7,0)) W !,"WARNI NG LABEL S OURCE is " D | |
| 127 | ..I $P($G (^PS(59.7, PSSWSITE,1 0)),"^",9) ="N" W "se t to 'NEW' " Q | |
| 128 | ..W "not set to 'NE W'" | |
| 129 | .K PSSWRN | |
| 130 | .D FULL Q :$G(QUIT) W !,"NEW WARNING LA BEL:" | |
| 131 | .S ^TMP(" PSSWRNB",$ J,$P(^PSDR UG(IFN,0), "^"))="" D ^PSSWRNE | |
| 132 | .K PSSLOO K,^TMP("PS SWRNB",$J) ,PSSWRN | |
| 133 | D FULL Q: $G(QUIT) W:'$D(QDM) ! F XX=1: 1:77 W "-" | |
| 134 | D FULL Q: $G(QUIT) W ! | |
| 135 | W "ORDER UNIT: ",?2 7 W:$D(OU) OU W ?40, "PRICE/ORD ER UNIT: " ,?67,PPOU | |
| 136 | D FULL Q: $G(QUIT) W !,"DISPE NSE UNIT: ",?27,DU W :$D(VADU) ?40,"VA DI SPENSE UNI T: ",?67,V ADU | |
| 137 | D FULL Q: $G(QUIT) W !,"DISPE NSE UNITS/ ORDER UNIT : ",?21,DU POU,?40,"P RICE/DISPE NSE UNIT: ",?67,PPDU | |
| 138 | D FULL Q: $G(QUIT) W !,"NCPDP DISPENSE UNIT: ",$$ GET1^DIQ(5 0,IFN,82), ?40,"NCPDP QUANTITY MULTIPLIER : ",?67,$J ($$GET1^DI Q(50,IFN,8 3),8,3) | |
| 139 | D FULL Q: $G(QUIT) W !,"MAXIM UM DAYS SU PPLY: ",$$ GET1^DIQ(5 0,IFN,66) | |
| 140 | . . . | |
| 141 | ||
| 142 | Modified L ogic (Chan ges are hi ghlighted) | |
| 143 | ||
| 144 | PSSLOOK ;B IR/WRT-Dru g file loo kup ;02/03 /00 | |
| 145 | ;;1.0;PHA RMACY DATA MANAGEMEN T;**3,7,15 ,16,20,24, 29,38,68,6 1,87,90,12 7,147,170, 189,192,20 0,195,214* *;9/30/97; Build 25 | |
| 146 | ; | |
| 147 | . . . | |
| 148 | ||
| 149 | FORMAT ; B EGIN WRITI NG | |
| 150 | N DAW | |
| 151 | W @IOF,"D RUG NAME: ",GN," (I EN: ",IFN, ")",! | |
| 152 | F XX=1:1: 77 W "=" | |
| 153 | W ! | |
| 154 | W:$D(VAPR N) "VA PRI NT NAME: " ,?17,VAPRN W:$D(CMOP ID) ?60,"C MOP ID#: " ,CMOPID W: $D(VAPN) ! ,"VA PRODU CT NAME: " ,?17,VAPN W:$D(CMOP) ?60,"CMOP DISPENSE: ",CMOP | |
| 155 | W:$D(OINM ) !,"ORDER ABLE ITEM: ",?17,OIN M W:$D(VAP N) ?60,"ND F DF: ",VA DF | |
| 156 | I $D(OIPT R),OIPTR]" " W !,"ORD ERABLE ITE M TEXT: ", ! D OITXT | |
| 157 | W:$D(PD) !,"PRIMARY DRUG: ",? 17,PD | |
| 158 | W !,"SYNO NYM(S): " D SYN D FU LL Q:$G(QU IT) W !," MESSAGE: " ,MESS,! | |
| 159 | D FULL Q: $G(QUIT) F XX=1:1:7 7 W "-" | |
| 160 | W ! | |
| 161 | D FULL Q: $G(QUIT) W "DEA, SP ECIAL HDLG : ",DEA,?4 8,"NDC: ", ?63,NDC | |
| 162 | S DAW=+$$ GET1^DIQ(5 0,IFN,81) | |
| 163 | D FULL Q: $G(QUIT) W !,"DAW C ODE: ",DA W," - ",$$ DAWEXT^PSS DAWUT(DAW) | |
| 164 | D FULL Q: $G(QUIT) W !,"CS FE DERAL SCHE DULE: ",$G (CSF) | |
| 165 | ; | |
| 166 | ;Hazardou s Waste | |
| 167 | W ! | |
| 168 | S PSSHTDX =0 | |
| 169 | I $G(PSSH TD)=1 S PS SHTDX=1 | |
| 170 | D FULL Q: $G(QUIT) W:$G(PSSHT H)'="" !," Hazardous to Handle: ",$S(PSSH TH=1:"YES" ,PSSHTH=0: "NO",1:"") | |
| 171 | D FULL Q: $G(QUIT) W:$G(PSSHT D)'="" !," Hazardous to Dispose : ",$S(PSS HTD=1:"YES ",PSSHTD=0 :"NO",1:"" ) | |
| 172 | I $G(PSSP EPAC)'=""& (PSSHTDX) D FULL Q:$ G(QUIT) W !," Primary EPA Code: ",PSSPEPAC | |
| 173 | I $G(PSSW SC)'=""&(P SSHTDX) D FULL Q:$G( QUIT) W ! ," Waste Sor t Code: ", PSSWSC | |
| 174 | ; | |
| 175 | N HAZWCNT ,HAZWCNT2, X,DIWL,DIW R,DIWF | |
| 176 | K ^UTILIT Y($J,"W") | |
| 177 | S HAZWCNT =0,HAZWCNT 2=1,HAZWCN T=0,DIWL=1 ,DIWR=50 | |
| 178 | F S HAZW CNT=$O(PSS DOTSN(HAZW CNT)) Q:HA ZWCNT="" S X=PSSDOT SN(HAZWCNT ) D ^DIWP | |
| 179 | S HAZWCNT =0 F S HA ZWCNT=$O(^ UTILITY($J ,"W",DIWL, HAZWCNT)) Q:'HAZWCNT D | |
| 180 | .D FULL Q :$G(QUIT) | |
| 181 | .I HAZWCN T2=1 W !," DOT Shipping Name: " | |
| 182 | .I HAZWCN T2>1 W !," " | |
| 183 | .W $G(^UT ILITY($J," W",DIWL,HA ZWCNT,0)) S HAZWCNT2 =2 | |
| 184 | K ^UTILIT Y($J,"W") | |
| 185 | ;I $G(PSS DOTSN)'="" &(PSSHTDX) D FULL Q: $G(QUIT) W !," DOT Ship ping Name: ",PSSDOTS N | |
| 186 | W ! | |
| 187 | ; | |
| 188 | D FULL Q: $G(QUIT) W !,"INACT IVE DATE: ",ACT | |
| 189 | D FULL Q: $G(QUIT) W:$D(QDM) !,"QUANTIT Y DISPENSE MESSAGE: ",QDM,! | |
| 190 | D FULL Q: $G(QUIT) I WRN]"" W !,"WARNIN G LABEL: " S X=WRN F Z0=1:1 Q: $P(X,",",Z 0,99)="" S Z1=$P(X, ",",Z0) W: $D(^PS(54, Z1,0)) ?19 ,$P(^(0)," ^",1),! I '$D(^(0)) W ?19,"NO SUCH WARNI NG LABEL" K X Q | |
| 191 | D FULL Q: $G(QUIT) S PSSLOOK= 1 D | |
| 192 | .N DRUG | |
| 193 | .I $P($G( ^PSDRUG(IF N,0)),"^") ="" K PSSL OOK Q | |
| 194 | .S PSSWSI TE=+$O(^PS (59.7,0)) W !,"WARNI NG LABEL S OURCE is " D | |
| 195 | ..I $P($G (^PS(59.7, PSSWSITE,1 0)),"^",9) ="N" W "se t to 'NEW' " Q | |
| 196 | ..W "not set to 'NE W'" | |
| 197 | .K PSSWRN | |
| 198 | .D FULL Q :$G(QUIT) W !,"NEW WARNING LA BEL:" | |
| 199 | .S ^TMP(" PSSWRNB",$ J,$P(^PSDR UG(IFN,0), "^"))="" D ^PSSWRNE | |
| 200 | .K PSSLOO K,^TMP("PS SWRNB",$J) ,PSSWRN | |
| 201 | D FULL Q: $G(QUIT) W:'$D(QDM) ! F XX=1: 1:77 W "-" | |
| 202 | D FULL Q: $G(QUIT) W ! | |
| 203 | W "ORDER UNIT: ",?2 7 W:$D(OU) OU W ?40, "PRICE/ORD ER UNIT: " ,?67,PPOU | |
| 204 | D FULL Q: $G(QUIT) W !,"DISPE NSE UNIT: ",?27,DU W :$D(VADU) ?40,"VA DI SPENSE UNI T: ",?67,V ADU | |
| 205 | D FULL Q: $G(QUIT) W !,"DISPE NSE UNITS/ ORDER UNIT : ",?21,DU POU,?40,"P RICE/DISPE NSE UNIT: ",?67,PPDU | |
| 206 | ; The NCP DP QUANTIT Y MULTIPLI ER should display 5 decimal pl aces. | |
| 207 | D FULL Q: $G(QUIT) W !,"NCPDP DISPENSE UNIT: ",$$ GET1^DIQ(5 0,IFN,82), ?40,"NCPDP QUANTITY MULTIPLIER : ",?67,$J ($$GET1^DI Q(50,IFN,8 3),10,5) | |
| 208 | D FULL Q: $G(QUIT) W !,"MAXIM UM DAYS SU PPLY: ",$$ GET1^DIQ(5 0,IFN,66) | |
| 209 | . . . | |
| 210 | ||
| 211 | ||
| 212 | ||
| 213 | Back Out/R ollback Pr ocedure | |
| 214 | This story includes modificati ons to exi sting rout ines. | |
| 215 | 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. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.