Produced by Araxis Merge on 4/17/2018 8:06:58 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+US599+v1.00.docx | Sun Mar 11 20:09:17 2018 UTC |
| 2 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US599+v1.00.docx | Wed Apr 18 00:44:15 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 1550 |
| 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 US599 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | April 2017 | |
| 10 | Version 1. 0 | |
| 11 | User Story Number: U SRX-42 | |
| 12 | User Story Name: Pre vent users from Igno ring rejec ts for cla ims whose Gross Amou nt Due exc eeds a cer tain amoun t. | |
| 13 | Product Ba cklog ID: | |
| 14 | Backlog Pr iority: | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US599 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Add a new parameter to ePharma cy Site Pa rameters c alled Igno re Thresho ld. This n ew paramet er will be used by t he IGNORE action fro m the Reje ct Notific ation Scre en and the IGNORE ac tion from the Reject Informati on Screen. Ignore Th reshold wi ll not inc lude a def ault value and will not be req uired. | |
| 21 | If the use r does not enter a v alue for I gnore Thre shold, the existing functional ity will p revail; no checks re garding Gr oss Amount Due or th e EPHARMAC Y SITE MAN GER securi ty key wil l be consi dered. | |
| 22 | If the use r enters a value of zero (0) f or Ignore Threshold, the EPHAR MACY SITE MANAGER se curity key will be r equired, r egardless of Gross A mount Due. | |
| 23 | Any value, greater t han zero, entered fo r Ignore T hreshold w ill be com pared to t he Gross A mount Due on the pre scription. If the Gr oss Amount Due is gr eater than or equal to the Ign ore Thresh old, the E PHARMACY S ITE MANAGE R security key will be require d to conti nue with t he IGNORE. | |
| 24 | If the sec urity key does not e xist, a me ssage will be displa yed to the user and the IGNORE process w ill halt. If the sec urity key does exist , a messag e showing the Gross Amount Due will be d isplayed t o the user along wit h a Yes/No prompt to continue. | |
| 25 | An Integra tion Contr ol Agreeme nt will ne ed to be c reated for this User Story. Th e BPS pack age has an API that returns Gr oss Amount Due. An I CR is requ ired to go vern calli ng the API from the Outpatient Pharmacy package. | |
| 26 | List of Co mponents: | |
| 27 | File: EPH ARMACY SIT E PARAMETE RS (#52.86 ) | |
| 28 | Routine: P SOBPSSL | |
| 29 | Routine: P SOBPSSP | |
| 30 | Routine: P SOREJP2 | |
| 31 | Routine: P SOREJU1 | |
| 32 | Routine: P SOREJU3 | |
| 33 | ||
| 34 | Design – D etail | |
| 35 | GETDATA^PS OBPSSL is used to di splay the ePharmacy Site Param eters Defi nition inf ormation. Ignore Thr eshold wil l be added to the di splay. | |
| 36 | Subroutine Name | |
| 37 | GETDATA^PS OBPSSL | |
| 38 | Enhancemen t Category | |
| 39 | New | |
| 40 | Modify | |
| 41 | Delete | |
| 42 | No Change | |
| 43 | Story | |
| 44 | US599 | |
| 45 | Related Me nu Options or ListMa n Actions | |
| 46 | PSO ePHARM SITE PARA METERS | |
| 47 | Related Ro utines | |
| 48 | This Subro utine is C alled By | |
| 49 | This Subro utine Call s | |
| 50 | ||
| 51 | BLDLIST^PS OBPSSP | |
| 52 | INIT^PSOBP SSL | |
| 53 | $$GET1^DIQ | |
| 54 | CNTRL^VALM 10 | |
| 55 | LIST^DIC | |
| 56 | Related In tegration Control Re gistration s (ICRs) | |
| 57 | n/a | |
| 58 | Data Passi ng | |
| 59 | Parameter Input | |
| 60 | Parameter Output | |
| 61 | Function Return Val ue | |
| 62 | Global Mo dified | |
| 63 | Input Attr ibute Name and Defin ition | |
| 64 | Name: IEN | |
| 65 | Definition : Site IEN from 52.8 6 | |
| 66 | New Modify Delete No Cha nge | |
| 67 | Name: DATA | |
| 68 | Definition : List Man ager Array name | |
| 69 | New Modify Delete No Cha nge | |
| 70 | Output Att ribute Nam e and Defi nition | |
| 71 | Name: NXTL INE | |
| 72 | Definition : Returns line count er/number of lines i n list | |
| 73 | New Modify Delete No Cha nge | |
| 74 | Current Lo gic | |
| 75 | ||
| 76 | GETDATA(IE N,DATA,NXT LINE) ; Ad ds and for mats data from one P harmacy Di vision | |
| 77 | ; This ma y be calle d multiple times whe n displayi ng multipl e division s | |
| 78 | ; This is called by PSOBPSSP | |
| 79 | ; | |
| 80 | ; INPUT P ARAMETERS | |
| 81 | ; IEN - S ite IEN fr om 52.86 | |
| 82 | ; DATA - List Manag er Array n ame | |
| 83 | ; NXTLINE - output parameter - returns line count er/number of lines i n list | |
| 84 | ; | |
| 85 | ; check p arameters | |
| 86 | I '$G(IEN ) Q 0 ; No parent di vision pas sed | |
| 87 | I $L($G(D ATA))<1 Q 0 ; No arr ay passed to the rou tine | |
| 88 | I '$D(NXT LINE) Q 0 ; No line number pas sed must b e >= 0 | |
| 89 | ; | |
| 90 | ; LOCAL V ARIABLES | |
| 91 | ; PSOI - IEN/LOOP C ONTROL whi le looping through a rray | |
| 92 | ; GETS - Temp array for GETS^ DIQ result s | |
| 93 | ; WLSTDAY S - Days t o remain o n worklist | |
| 94 | ; AUTOSEN D - Auto s end - yes/ no | |
| 95 | ; REJEXPL - Reject code expla nations te xt | |
| 96 | ; THRESHL D - Thresh old amount for fill prevention reject co des | |
| 97 | ; GETS - array for output fro m LIST^DIC and proce ssed codes | |
| 98 | ; IORVON & IORVOFF are Kernel Video Var iables use d for List Manager f ormatting | |
| 99 | ; | |
| 100 | N PSOI,GE TS,WLSTDAY S,PAUSE,CO DE,AUTOSEN D,REJEXPL, THRESHLD,S ITE | |
| 101 | ; | |
| 102 | ; Get the high leve l site par ameters | |
| 103 | S SITE=$$ GET1^DIQ(5 2.86,IEN_" ,",.01) | |
| 104 | ; Site he ader | |
| 105 | I NXTLINE '=0 S NXTL INE=NXTLIN E+1,@DATA@ (NXTLINE,0 )="" | |
| 106 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" Pharmacy D ivision: " _$G(SITE) | |
| 107 | D CNTRL^V ALM10(NXTL INE,1,80,I ORVON,IORV OFF) | |
| 108 | ; | |
| 109 | ; Display General P arameters | |
| 110 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" General Parameters " | |
| 111 | D CNTRL^V ALM10(NXTL INE,3,18,I OUON,IOUOF F) | |
| 112 | ; | |
| 113 | ; Get the site work list days | |
| 114 | S WLSTDAY S=$$GET1^D IQ(52.86,I EN_",",4) | |
| 115 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" Reject W orklist Da ys: "_$G(W LSTDAYS) | |
| 116 | ; | |
| 117 | ; Get the ePharmacy Response Pause | |
| 118 | S PAUSE=$ $GET1^DIQ( 52.86,IEN_ ",",6) | |
| 119 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" ePharmac y Response Pause: "_ $G(PAUSE) | |
| 120 | ; | |
| 121 | ||
| 122 | Modified L ogic (Chan ges are hi ghlighted) | |
| 123 | ||
| 124 | GETDATA(IE N,DATA,NXT LINE) ; Ad ds and for mats data from one P harmacy Di vision | |
| 125 | ; This ma y be calle d multiple times whe n displayi ng multipl e division s | |
| 126 | ; This is called by PSOBPSSP | |
| 127 | ; | |
| 128 | ; INPUT P ARAMETERS | |
| 129 | ; IEN - S ite IEN fr om 52.86 | |
| 130 | ; DATA - List Manag er Array n ame | |
| 131 | ; NXTLINE - output parameter - returns line count er/number of lines i n list | |
| 132 | ; | |
| 133 | ; check p arameters | |
| 134 | I '$G(IEN ) Q 0 ; No parent di vision pas sed | |
| 135 | I $L($G(D ATA))<1 Q 0 ; No arr ay passed to the rou tine | |
| 136 | I '$D(NXT LINE) Q 0 ; No line number pas sed must b e >= 0 | |
| 137 | ; | |
| 138 | ; LOCAL V ARIABLES | |
| 139 | ; PSOI - IEN/LOOP C ONTROL whi le looping through a rray | |
| 140 | ; GETS - Temp array for GETS^ DIQ result s | |
| 141 | ; WLSTDAY S - Days t o remain o n worklist | |
| 142 | ; AUTOSEN D - Auto s end - yes/ no | |
| 143 | ; REJEXPL - Reject code expla nations te xt | |
| 144 | ; THRESHL D - Thresh old amount for fill prevention reject co des | |
| 145 | ; GETS - array for output fro m LIST^DIC and proce ssed codes | |
| 146 | ; IORVON & IORVOFF are Kernel Video Var iables use d for List Manager f ormatting | |
| 147 | ; PSOIGNO RE – Ignor e Threshol d value | |
| 148 | ; | |
| 149 | N PSOI,GE TS,WLSTDAY S,PAUSE,CO DE,AUTOSEN D,REJEXPL, THRESHLD,S ITE,PSOIGN ORE | |
| 150 | ; | |
| 151 | ; Get the high leve l site par ameters | |
| 152 | S SITE=$$ GET1^DIQ(5 2.86,IEN_" ,",.01) | |
| 153 | ; Site he ader | |
| 154 | I NXTLINE '=0 S NXTL INE=NXTLIN E+1,@DATA@ (NXTLINE,0 )="" | |
| 155 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" Pharmacy D ivision: " _$G(SITE) | |
| 156 | D CNTRL^V ALM10(NXTL INE,1,80,I ORVON,IORV OFF) | |
| 157 | ; | |
| 158 | ; Display General P arameters | |
| 159 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" General Parameters " | |
| 160 | D CNTRL^V ALM10(NXTL INE,3,18,I OUON,IOUOF F) | |
| 161 | ; | |
| 162 | ; Get the site work list days | |
| 163 | S WLSTDAY S=$$GET1^D IQ(52.86,I EN_",",4) | |
| 164 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" Reject W orklist Da ys: "_$G(W LSTDAYS) | |
| 165 | ; | |
| 166 | ; Get the ePharmacy Response Pause | |
| 167 | S PAUSE=$ $GET1^DIQ( 52.86,IEN_ ",",6) | |
| 168 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" ePharmac y Response Pause: "_ $G(PAUSE) | |
| 169 | ; | |
| 170 | ; Get the Ignore Th reshold | |
| 171 | S PSOIGNO RE=$$GET1^ DIQ(52.86, IEN_",",7) | |
| 172 | S NXTLINE =NXTLINE+1 ,@DATA@(NX TLINE,0)=" Ignore T hreshold: "_$G(PSOIG NORE) | |
| 173 | ; | |
| 174 | ||
| 175 | ||
| 176 | EDITGEN^PS OBPSSP is used for e diting of ePharmacy Site Param eters Defi nition inf ormation. Ignore Thr eshold wil l be added . | |
| 177 | Subroutine Name | |
| 178 | EDITGEN^PS OBPSSP | |
| 179 | Enhancemen t Category | |
| 180 | New | |
| 181 | Modify | |
| 182 | Delete | |
| 183 | No Change | |
| 184 | Story | |
| 185 | US599 | |
| 186 | Related Me nu Options or ListMa n Actions | |
| 187 | PSO ePHARM SITE PARA METERS | |
| 188 | Related Ro utines | |
| 189 | This Subro utine is C alled By | |
| 190 | This Subro utine Call s | |
| 191 | ||
| 192 | EDITALL^PS OBPSSP | |
| 193 | FULL^VALM1 | |
| 194 | ^DIE | |
| 195 | $$GET1^DIQ | |
| 196 | Related In tegration Control Re gistration s (ICRs) | |
| 197 | N/A | |
| 198 | Data Passi ng | |
| 199 | Parameter Input | |
| 200 | Parameter Output | |
| 201 | Function Return Val ue | |
| 202 | Global Mo dified | |
| 203 | Input Attr ibute Name and Defin ition | |
| 204 | Name: RETU RN | |
| 205 | Definition : For cont rol after return fro m call | |
| 206 | New Modify Delete No Cha nge | |
| 207 | Output Att ribute Nam e and Defi nition | |
| 208 | Name: RETU RN | |
| 209 | Definition : For cont rol after return fro m call | |
| 210 | New Modify Delete No Cha nge | |
| 211 | Current Lo gic | |
| 212 | ||
| 213 | EDITGEN(RE TURN) ; Ac tion for E G Edit Gen eral Param eters | |
| 214 | ; | |
| 215 | ; Input P arameter | |
| 216 | ; RETURN - Null if normal exi t, "^" if timeout or "^" enter ed | |
| 217 | ; | |
| 218 | ; Variabl es used by DIE | |
| 219 | N DIE,DA, DIC,DUOUT, DTOUT,DEF | |
| 220 | ; | |
| 221 | ; Set Ful l Screen m ode | |
| 222 | D FULL^VA LM1 | |
| 223 | ; | |
| 224 | ; Get wor klist days & update the record | |
| 225 | S DIE="^P S(52.86,", DA=PSOBPSD V,DR="4" D ^DIE | |
| 226 | ; CHECK F OR TIMEOUT OR ^ | |
| 227 | I $G(DTOU T)!$D(Y) S RETURN="^ " | |
| 228 | ; | |
| 229 | ; Update EPHARMACY RESPONSE P AUSE | |
| 230 | K DTOUT,D UOUT | |
| 231 | S DEF=$$G ET1^DIQ(52 .86,PSOBPS DV_",",6," I") | |
| 232 | I DEF="" S DEF=2 | |
| 233 | S DIE="^P S(52.86,", DA=PSOBPSD V,DR="6//" _DEF D ^DI E | |
| 234 | ; CHECK F OR TIMEOUT OR ^ | |
| 235 | I $G(DTOU T)!$D(Y) S RETURN="^ " | |
| 236 | ; | |
| 237 | D RBUILD | |
| 238 | Q | |
| 239 | ||
| 240 | Modified L ogic (Chan ges are hi ghlighted) | |
| 241 | ||
| 242 | EDITGEN(RE TURN) ; Ac tion for E G Edit Gen eral Param eters | |
| 243 | ; | |
| 244 | ; Input P arameter | |
| 245 | ; RETURN - Null if normal exi t, "^" if timeout or "^" enter ed | |
| 246 | ; | |
| 247 | ; Variabl es used by DIE | |
| 248 | N DIE,DA, DIC,DUOUT, DTOUT,DEF | |
| 249 | ; | |
| 250 | ; Set Ful l Screen m ode | |
| 251 | D FULL^VA LM1 | |
| 252 | ; | |
| 253 | ; Get wor klist days & update the record | |
| 254 | S DIE="^P S(52.86,", DA=PSOBPSD V,DR="4" D ^DIE | |
| 255 | ; CHECK F OR TIMEOUT OR ^ | |
| 256 | I $G(DTOU T)!$D(Y) S RETURN="^ " | |
| 257 | ; | |
| 258 | ; Update EPHARMACY RESPONSE P AUSE | |
| 259 | K DTOUT,D UOUT | |
| 260 | S DEF=$$G ET1^DIQ(52 .86,PSOBPS DV_",",6," I") | |
| 261 | I DEF="" S DEF=2 | |
| 262 | S DIE="^P S(52.86,", DA=PSOBPSD V,DR="6//" _DEF D ^DI E | |
| 263 | ; CHECK F OR TIMEOUT OR ^ | |
| 264 | I $G(DTOU T)!$D(Y) S RETURN="^ " | |
| 265 | ; | |
| 266 | ; Get IGN ORE THRESH OLD & upda te the rec ord | |
| 267 | S DIE="^P S(52.86,", DA=PSOBPSD V,DR="7" D ^DIE | |
| 268 | ; CHECK F OR TIMEOUT OR ^ | |
| 269 | I $G(DTOU T)!$D(Y) S RETURN="^ " | |
| 270 | ; | |
| 271 | D RBUILD | |
| 272 | Q | |
| 273 | ||
| 274 | ||
| 275 | The modifi ed code wi ll call IG NORE^PSORE JU1 to det ermine if the Ignore action me ets the up dated requ irements. Upon retur n from the new funct ion, the c ode will e ither retu rn the use r to the s election p rompt or c ontinue wi th the Ign ore action . | |
| 276 | Subroutine Name | |
| 277 | CLO^PSOREJ P2 | |
| 278 | Enhancemen t Category | |
| 279 | New | |
| 280 | Modify | |
| 281 | Delete | |
| 282 | No Change | |
| 283 | Story | |
| 284 | US599 | |
| 285 | Related Me nu Options or ListMa n Actions | |
| 286 | Ignore act ion from t he Reject Informatio n Screen | |
| 287 | Related Ro utines | |
| 288 | This Subro utine is C alled By | |
| 289 | This Subro utine Call s | |
| 290 | ||
| 291 | Reject Act ion from t he Reject Informatio n Screen | |
| 292 | $$GET1^DIQ | |
| 293 | $$TRIC^PSO REJP1 | |
| 294 | $$CONT^PSO REJU1 | |
| 295 | $$CLOSED^P SOREJP1 | |
| 296 | FULL^VALM1 | |
| 297 | $$SIG^PSOR EJU1 | |
| 298 | $$TCOM^PSO REJP3 | |
| 299 | $$COM^PSOR EJU1 | |
| 300 | ^DIR | |
| 301 | CLOSE^PSOR EJUT | |
| 302 | PRINT^PSOR EJP3 | |
| 303 | $$PSOET^PS OREJP3 | |
| 304 | AUDIT^PSOT RI | |
| 305 | $$IGNORE^P SOREJU1 | |
| 306 | Related In tegration Control Re gistration s (ICRs) | |
| 307 | N/A | |
| 308 | Data Passi ng | |
| 309 | Parameter Input | |
| 310 | Parameter Output | |
| 311 | Function Return Val ue | |
| 312 | Global Mo dified | |
| 313 | Input Attr ibute Name and Defin ition | |
| 314 | Name: N/A | |
| 315 | Definition : | |
| 316 | New Modify Delete No Cha nge | |
| 317 | Output Att ribute Nam e and Defi nition | |
| 318 | Name: N/A | |
| 319 | Definition : | |
| 320 | New Modify Delete No Cha nge | |
| 321 | Current Lo gic | |
| 322 | ||
| 323 | CLO ; - Ig nore a REJ ECT hidden action | |
| 324 | N PSOTRIC ,X,PSOET | |
| 325 | ; | |
| 326 | ; ESG - P SO*7*448 - Bug fix, should pul l FILL fro m sub-file 52.25. | |
| 327 | I '$D(FIL L) S FILL= +$$GET1^DI Q(52.25,RE J_","_RX,5 ) | |
| 328 | S PSOTRIC ="",PSOTRI C=$$TRIC^P SOREJP1(RX ,FILL,PSOT RIC) | |
| 329 | ; | |
| 330 | ;referenc e to ^XUSE C( support ed by IA 1 0076 | |
| 331 | ;bld, PSO *7*358 | |
| 332 | I PSOTRIC ,'$D(^XUSE C("PSO TRI CARE/CHAMP VA",DUZ)) S VALMSG=" Action Req uires <PSO TRICARE/C HAMPVA> se curity key ",VALMBCK= "R" Q | |
| 333 | ;if TRICA RE or CHAM PVA and us er has sec urity key, prompt to continue or not | |
| 334 | ; | |
| 335 | ; | |
| 336 | I PSOTRIC ,'$$CONT^P SOREJU1() S VALMBCK= "R" Q | |
| 337 | ; | |
| 338 | I $$CLOSE D^PSOREJP1 (RX,REJ) D Q | |
| 339 | . S VALMS G="This Re ject is ma rked resol ved!",VALM BCK="R" | |
| 340 | N DIR,COM | |
| 341 | D FULL^VA LM1 | |
| 342 | I '$$SIG^ PSOREJU1() S VALMBCK ="R" Q | |
| 343 | W ! | |
| 344 | S:PSOTRIC COM=$$TCO M^PSOREJP3 (RX,FILL) S:'PSOTRIC COM=$$COM ^PSOREJU1( ) | |
| 345 | I COM="^" S VALMBCK ="R" Q | |
| 346 | W ! | |
| 347 | S DIR(0)= "Y",DIR("A ")=" C onfirm? ", DIR("B")=" NO" | |
| 348 | S DIR("A" ,1)=" When you c onfirm thi s REJECT w ill be mar ked RESOLV ED." | |
| 349 | S DIR("A" ,2)=" " | |
| 350 | D ^DIR I $G(Y)=0!$D (DIRUT) S VALMBCK="R " Q | |
| 351 | W ?40,"[C losing..." D CLOSE^P SOREJUT(RX ,FILL,REJ, DUZ,6,COM, "","",""," ","",1) W "OK]",!,$C (7) H 1 | |
| 352 | I $D(PSOS TFLT),PSOS TFLT'="B" S CHANGE=1 | |
| 353 | ; | |
| 354 | I $$PTLBL (RX,FILL) D PRINT^PS OREJP3(RX, FILL) | |
| 355 | I PSOTRIC D | |
| 356 | .S PSOET= $$PSOET^PS OREJP3(RX, FILL) | |
| 357 | .D AUDIT^ PSOTRI(RX, FILL,,COM, $S(PSOET:" N",1:"R"), $S(PSOTRIC =1:"T",PSO TRIC=2:"C" ,1:"")) | |
| 358 | ; | |
| 359 | Q | |
| 360 | ||
| 361 | Modified L ogic (Chan ges are hi ghlighted) | |
| 362 | ||
| 363 | CLO ; - Ig nore a REJ ECT hidden action | |
| 364 | N PSOTRIC ,X,PSOET,P SOIT | |
| 365 | ; | |
| 366 | ; ESG - P SO*7*448 - Bug fix, should pul l FILL fro m sub-file 52.25. | |
| 367 | I '$D(FIL L) S FILL= +$$GET1^DI Q(52.25,RE J_","_RX,5 ) | |
| 368 | S PSOTRIC ="",PSOTRI C=$$TRIC^P SOREJP1(RX ,FILL,PSOT RIC) | |
| 369 | ; | |
| 370 | ;referenc e to ^XUSE C( support ed by IA 1 0076 | |
| 371 | ;bld, PSO *7*358 | |
| 372 | I PSOTRIC ,'$D(^XUSE C("PSO TRI CARE/CHAMP VA",DUZ)) S VALMSG=" Action Req uires <PSO TRICARE/C HAMPVA> se curity key ",VALMBCK= "R" Q | |
| 373 | ;if TRICA RE or CHAM PVA and us er has sec urity key, prompt to continue or not | |
| 374 | ; | |
| 375 | ; Check f or Ignore Threshold | |
| 376 | S PSOIT=$ $IGNORE^PS OREJU1(RX, FILL) | |
| 377 | I $P(PSOI T,"^")=0 D Q | |
| 378 | . S VALMB CK="R" | |
| 379 | . I $P(PS OIT,"^",2) '="" D | |
| 380 | . . S VAL MSG="Gross Amount Du e is $"_$P (PSOIT,"^" ,2)_". IGN ORE requir es EPHARMA CY SITE MA NAGER key. " | |
| 381 | ; | |
| 382 | I PSOTRIC ,'$$CONT^P SOREJU1() S VALMBCK= "R" Q | |
| 383 | ; | |
| 384 | I $$CLOSE D^PSOREJP1 (RX,REJ) D Q | |
| 385 | . S VALMS G="This Re ject is ma rked resol ved!",VALM BCK="R" | |
| 386 | N DIR,COM | |
| 387 | D FULL^VA LM1 | |
| 388 | I '$$SIG^ PSOREJU1() S VALMBCK ="R" Q | |
| 389 | W ! | |
| 390 | S:PSOTRIC COM=$$TCO M^PSOREJP3 (RX,FILL) S:'PSOTRIC COM=$$COM ^PSOREJU1( ) | |
| 391 | I COM="^" S VALMBCK ="R" Q | |
| 392 | W ! | |
| 393 | S DIR(0)= "Y",DIR("A ")=" C onfirm? ", DIR("B")=" NO" | |
| 394 | S DIR("A" ,1)=" When you c onfirm thi s REJECT w ill be mar ked RESOLV ED." | |
| 395 | S DIR("A" ,2)=" " | |
| 396 | D ^DIR I $G(Y)=0!$D (DIRUT) S VALMBCK="R " Q | |
| 397 | W ?40,"[C losing..." D CLOSE^P SOREJUT(RX ,FILL,REJ, DUZ,6,COM, "","",""," ","",1) W "OK]",!,$C (7) H 1 | |
| 398 | I $D(PSOS TFLT),PSOS TFLT'="B" S CHANGE=1 | |
| 399 | ; | |
| 400 | I $$PTLBL (RX,FILL) D PRINT^PS OREJP3(RX, FILL) | |
| 401 | I PSOTRIC D | |
| 402 | .S PSOET= $$PSOET^PS OREJP3(RX, FILL) | |
| 403 | .D AUDIT^ PSOTRI(RX, FILL,,COM, $S(PSOET:" N",1:"R"), $S(PSOTRIC =1:"T",PSO TRIC=2:"C" ,1:"")) | |
| 404 | ; | |
| 405 | Q | |
| 406 | ||
| 407 | ||
| 408 | The modifi ed code wi ll call IG NORE^PSORE JU1 to det ermine if the Ignore option me ets the up dated requ irements. Upon retur n from the new funct ion, the c ode will e ither retu rn the use r to the s election p rompt or c ontinue wi th the Ign ore option . | |
| 409 | Subroutine Name | |
| 410 | ASK^PSOREJ U1 | |
| 411 | Enhancemen t Category | |
| 412 | New | |
| 413 | Modify | |
| 414 | Delete | |
| 415 | No Change | |
| 416 | Story | |
| 417 | US599 | |
| 418 | Related Me nu Options or ListMa n Actions | |
| 419 | IGNORE opt ion from t he Reject Notificati on Screen | |
| 420 | Related Ro utines | |
| 421 | This Subro utine is C alled By | |
| 422 | This Subro utine Call s | |
| 423 | ||
| 424 | ASK^PSOREJ U1 | |
| 425 | DC1^PSOREJ U1 | |
| 426 | ^DIR | |
| 427 | $$TCOM^PSO REJP3 | |
| 428 | DISPLAY^PS OREJU3 | |
| 429 | Related In tegration Control Re gistration s (ICRs) | |
| 430 | N/A | |
| 431 | Data Passi ng | |
| 432 | Parameter Input | |
| 433 | Parameter Output | |
| 434 | Function Return Val ue | |
| 435 | Global Mo dified | |
| 436 | Input Attr ibute Name and Defin ition | |
| 437 | Name: N/A | |
| 438 | Definition : | |
| 439 | New Modify Delete No Cha nge | |
| 440 | Output Att ribute Nam e and Defi nition | |
| 441 | Name: N/A | |
| 442 | Definition : | |
| 443 | New Modify Delete No Cha nge | |
| 444 | Current Lo gic | |
| 445 | ||
| 446 | ASK K ACTI ON,DIR,DIR UT | |
| 447 | S DIR(0)= "SO^",DIR( "A")="" | |
| 448 | S:(OPTS[" O") DIR(0) =DIR(0)_"O :(O)VERRID E - RESUBM IT WITH OV ERRIDE COD ES;",DIR(" A")=DIR("A ")_"(O)ver ride," | |
| 449 | S:(OPTS[" I") DIR(0) =DIR(0)_"I :(I)GNORE - FILL Rx WITHOUT CL AIM SUBMIS SION;",DIR ("A")=DIR( "A")_"(I)g nore," | |
| 450 | S:(OPTS[" D") DIR(0) =DIR(0)_"D :(D)iscont inue - DO NOT FILL P RESCRIPTIO N;",DIR("A ")=DIR("A" )_"(D)isco ntinue," | |
| 451 | S:(OPTS[" Q") DIR(0) =DIR(0)_"Q :(Q)UIT - SEND TO WO RKLIST (RE QUIRES INT ERVENTION) ;",DIR("A" )=DIR("A") _"(Q)uit," | |
| 452 | S $E(DIR( 0),$L(DIR( 0)))="",$E (DIR("A"), $L(DIR("A" )))="",DIR ("??")="^D HELP^PSOR EJU2("""_O PTS_""")" | |
| 453 | S:$G(DEF) '="" DIR(" B")=DEF D ^DIR I $D( DIRUT) W ! Q "Q" | |
| 454 | ; | |
| 455 | ; - STOP/ QUIT Actio n | |
| 456 | S ACTION= Y I ACTION ="Q" Q ACT ION | |
| 457 | ; | |
| 458 | ; - IGNOR E Action | |
| 459 | K DIR,DIR UT,X | |
| 460 | ; | |
| 461 | ;PSO*7.0* 358, add l ogic for T RICARE/CHA MPVA ignor e | |
| 462 | I PSOTRIC ,ACTION="I ",'$$CONT W $C(7),!, " ACTION N OT TAKEN!" ,! H 1 G A SK | |
| 463 | ; | |
| 464 | I ACTION= "I" S:'PSO TRIC COM=$ $COM() S:P SOTRIC COM =$$TCOM^PS OREJP3(RX, RFL) G ASK :COM="^" G ASK:'$$SI G() S ACTI ON=ACTION_ "^"_COM | |
| 465 | ; | |
| 466 | ; - OVERR IDE Action | |
| 467 | I ACTION= "O" D G A SK:OVR="^" | |
| 468 | . S OVR=$ $OVR() S A CTION=ACTI ON_"^"_OVR | |
| 469 | ; | |
| 470 | DC1 ;Disco ntinue | |
| 471 | I ACTION= "D" S ACTI ON=$$DC(RX ,ACTION,1) I $D(DIRU T) S ACTIO N="D" D DI SPLAY^PSOR EJU3(RX,RE J) G ASK | |
| 472 | ; | |
| 473 | Q ACTION | |
| 474 | ||
| 475 | Modified L ogic (Chan ges are hi ghlighted) | |
| 476 | ||
| 477 | ASK K ACTI ON,DIR,DIR UT | |
| 478 | S DIR(0)= "SO^",DIR( "A")="" | |
| 479 | S:(OPTS[" O") DIR(0) =DIR(0)_"O :(O)VERRID E - RESUBM IT WITH OV ERRIDE COD ES;",DIR(" A")=DIR("A ")_"(O)ver ride," | |
| 480 | S:(OPTS[" I") DIR(0) =DIR(0)_"I :(I)GNORE - FILL Rx WITHOUT CL AIM SUBMIS SION;",DIR ("A")=DIR( "A")_"(I)g nore," | |
| 481 | S:(OPTS[" D") DIR(0) =DIR(0)_"D :(D)iscont inue - DO NOT FILL P RESCRIPTIO N;",DIR("A ")=DIR("A" )_"(D)isco ntinue," | |
| 482 | S:(OPTS[" Q") DIR(0) =DIR(0)_"Q :(Q)UIT - SEND TO WO RKLIST (RE QUIRES INT ERVENTION) ;",DIR("A" )=DIR("A") _"(Q)uit," | |
| 483 | S $E(DIR( 0),$L(DIR( 0)))="",$E (DIR("A"), $L(DIR("A" )))="",DIR ("??")="^D HELP^PSOR EJU2("""_O PTS_""")" | |
| 484 | S:$G(DEF) '="" DIR(" B")=DEF D ^DIR I $D( DIRUT) W ! Q "Q" | |
| 485 | ; | |
| 486 | N PSOIT | |
| 487 | ; | |
| 488 | ; - STOP/ QUIT Actio n | |
| 489 | S ACTION= Y I ACTION ="Q" Q ACT ION | |
| 490 | ; | |
| 491 | ; - IGNOR E Action | |
| 492 | K DIR,DIR UT,X | |
| 493 | ; | |
| 494 | S PSOIT=" " | |
| 495 | I ACTION= "I" S PSOI T=$$IGNORE (RX,RFL) | |
| 496 | I $P(PSOI T,"^")=0 D G ASK | |
| 497 | . I $P(PS OIT,"^",2) '="" D | |
| 498 | . . W $C( 7),!,"Gros s Amount D ue is $"_$ P(PSOIT,"^ ",2)_". IG NORE requi res EPHARM ACY SITE M ANAGER key .",! | |
| 499 | ; | |
| 500 | ;PSO*7.0* 358, add l ogic for T RICARE/CHA MPVA ignor e | |
| 501 | I PSOTRIC ,ACTION="I ",'$$CONT W $C(7),!, " ACTION N OT TAKEN!" ,! H 1 G A SK | |
| 502 | ; | |
| 503 | I ACTION= "I" S:'PSO TRIC COM=$ $COM() S:P SOTRIC COM =$$TCOM^PS OREJP3(RX, RFL) G ASK :COM="^" G ASK:'$$SI G() S ACTI ON=ACTION_ "^"_COM | |
| 504 | ; | |
| 505 | ; - OVERR IDE Action | |
| 506 | I ACTION= "O" D G A SK:OVR="^" | |
| 507 | . S OVR=$ $OVR() S A CTION=ACTI ON_"^"_OVR | |
| 508 | ; | |
| 509 | DC1 ;Disco ntinue | |
| 510 | I ACTION= "D" S ACTI ON=$$DC(RX ,ACTION,1) I $D(DIRU T) S ACTIO N="D" D DI SPLAY^PSOR EJU3(RX,RE J) G ASK | |
| 511 | ; | |
| 512 | Q ACTION | |
| 513 | ||
| 514 | ||
| 515 | New proced ure to com pare Gross Amount D ue to Igno re Thresho ld value. Code will also check for exist ence of re quired sec urity key. | |
| 516 | Subroutine Name | |
| 517 | IGNORE^PSO REJU1 | |
| 518 | Enhancemen t Category | |
| 519 | New | |
| 520 | Modify | |
| 521 | Delete | |
| 522 | No Change | |
| 523 | Story | |
| 524 | US599 | |
| 525 | Related Me nu Options or ListMa n Actions | |
| 526 | IGNORE act ion from t he Reject Informatio n Screen | |
| 527 | IGNORE opt ion from t he Reject Notificati on Screen | |
| 528 | Related Ro utines | |
| 529 | This Subro utine is C alled By | |
| 530 | This Subro utine Call s | |
| 531 | ||
| 532 | CLO^PSOREJ P2 | |
| 533 | ASK^PSOREJ U1 | |
| 534 | TRIC4^PSOR EJU3 | |
| 535 | $$AMT^BPSB UTL | |
| 536 | $$GET1^DIQ | |
| 537 | ^DIR | |
| 538 | Related In tegration Control Re gistration s (ICRs) | |
| 539 | Call to BP SBUTL – IC A #TBD | |
| 540 | Data Passi ng | |
| 541 | Parameter Input | |
| 542 | Parameter Output | |
| 543 | Function Return Val ue | |
| 544 | Global Mo dified | |
| 545 | Input Attr ibute Name and Defin ition | |
| 546 | Name: RX | |
| 547 | Definition : Prescrip tion IEN | |
| 548 | New Modify Delete No Cha nge | |
| 549 | Name: RFL | |
| 550 | Definition : Refill | |
| 551 | New Modify Delete No Cha nge | |
| 552 | Output Att ribute Nam e and Defi nition | |
| 553 | Name: N/A | |
| 554 | Definition : | |
| 555 | New Modify Delete No Cha nge | |
| 556 | Current Lo gic | |
| 557 | ||
| 558 | N/A | |
| 559 | ||
| 560 | Modified L ogic (Chan ges are hi ghlighted) | |
| 561 | ||
| 562 | IGNORE(RX, RFL) ; | |
| 563 | ; RX = Pr escription IEN | |
| 564 | ; RFL = R efill | |
| 565 | ; Return value 1 = Allow IGNO RE. | |
| 566 | ; Return value 0 = Don't allo w IGNORE. | |
| 567 | ; Return value 0^Gr ossAmtDue = Don't al low. Retur n amt for user msg. | |
| 568 | ; | |
| 569 | N DIR,DIR UT,PSOAMT, PSODIV,PSO IGNORE | |
| 570 | ; | |
| 571 | ; Get Gro ss Amount Due | |
| 572 | S PSOAMT= $$AMT^BPSB UTL(RX,RFL ) ; ICA # TBD | |
| 573 | ; | |
| 574 | ; Get Ign ore Thresh old Value | |
| 575 | S PSODIV= $$GET1^DIQ (52,RX,20, "I") | |
| 576 | S PSOIGNO RE=$$GET1^ DIQ(52.86, PSODIV,7) | |
| 577 | ; | |
| 578 | ; If Igno re Thresho ld is NIL or Gross A mt Due < I gnore | |
| 579 | ; Thresho ld - Allow IGNORE. C heck of se curity key not | |
| 580 | ; require d for thes e conditio ns. | |
| 581 | I (PSOIGN ORE="")!(P SOAMT<PSOI GNORE) Q 1 | |
| 582 | ; | |
| 583 | ; At this point Gro ss Amt Due is equal to or grea ter | |
| 584 | ; than th e Ignore T hreshold. User must have requi red | |
| 585 | ; securit y key to c ontinue. | |
| 586 | ; | |
| 587 | S PSOAMT= $J(PSOAMT* 100\1/100, 0,2) | |
| 588 | ; | |
| 589 | ; User do es not hav e required security key to con tinue. | |
| 590 | ; Don't a llow IGNOR E. Return PSOAMT to be used in message | |
| 591 | ; to user . | |
| 592 | I '$D(^XU SEC("PSO E PHARMACY S ITE MANAGE R",DUZ)) Q 0_"^"_PSO AMT | |
| 593 | ; | |
| 594 | ; User ha s required security key. Promp t if OK to continue. | |
| 595 | S DIR(0)= "Y" | |
| 596 | S DIR("A" )="Gross A mount Due is $"_PSOA MT_". Do y ou want to continue (Y/N)" | |
| 597 | S DIR("B" )="NO" | |
| 598 | D ^DIR | |
| 599 | I $D(DIRU T) Q 0 | |
| 600 | Q Y | |
| 601 | ; | |
| 602 | ||
| 603 | ||
| 604 | The modifi ed code wi ll call IG NORE^PSORE JU1 to det ermine if the Ignore option me ets the up dated requ irements. Upon retur n from the new funct ion, the c ode will e ither retu rn the use r to the s election p rompt or c ontinue wi th the Ign ore option . | |
| 605 | Subroutine Name | |
| 606 | TRIC4^PSOR EJU3 | |
| 607 | Enhancemen t Category | |
| 608 | New | |
| 609 | Modify | |
| 610 | Delete | |
| 611 | No Change | |
| 612 | Story | |
| 613 | US599 | |
| 614 | Related Me nu Options or ListMa n Actions | |
| 615 | IGNORE opt ion from t he Reject Notificati on Screen | |
| 616 | Related Ro utines | |
| 617 | This Subro utine is C alled By | |
| 618 | This Subro utine Call s | |
| 619 | ||
| 620 | TRIC4^PSOR EJU3 | |
| 621 | ^DIR | |
| 622 | $$DC^PSORE JU1 | |
| 623 | WRKLST^PSO REJU4 | |
| 624 | $$CONT^PSO REJU1 | |
| 625 | $$TCOM^PSO REJP3 | |
| 626 | $$SIG^PSOR EJU1 | |
| 627 | CLOSE^PSOR EJUT | |
| 628 | AUDIT^PSOT RI | |
| 629 | $$IGNORE^P SOREJU1 | |
| 630 | Related In tegration Control Re gistration s (ICRs) | |
| 631 | N/A | |
| 632 | Data Passi ng | |
| 633 | Parameter Input | |
| 634 | Parameter Output | |
| 635 | Function Return Val ue | |
| 636 | Global Mo dified | |
| 637 | Input Attr ibute Name and Defin ition | |
| 638 | Name: N/A | |
| 639 | Definition : | |
| 640 | New Modify Delete No Cha nge | |
| 641 | Output Att ribute Nam e and Defi nition | |
| 642 | Name: N/A | |
| 643 | Definition : | |
| 644 | New Modify Delete No Cha nge | |
| 645 | Current Lo gic | |
| 646 | ||
| 647 | TRIC4 S DI R(0)="SO^" ,DIR("A")= "",OPTS="D Q",DEF="D" | |
| 648 | N PSORESP | |
| 649 | S PSORESP =$P($G(RES P),U,2) | |
| 650 | I PSORESP ["NO ACTIV E/VALID RO I" S DEF=" Q" ;IB ro utine IBNC PDP1 conta ins this t ext. | |
| 651 | ;referenc e to ^XUSE C( support ed by IA 1 0076 | |
| 652 | I $D(^XUS EC("PSO TR ICARE/CHAM PVA",DUZ)) S OPTS=OP TS_"I" ;PS O*7.0*358, if user h as securit y key, inc lude IGNOR E in TRICA RE/CHAMPVA options | |
| 653 | S:(OPTS[" D") DIR(0) =DIR(0)_"D :(D)iscont inue - DO NOT FILL P RESCRIPTIO N;",DIR("A ")=DIR("A" )_"(D)isco ntinue," | |
| 654 | S:(OPTS[" Q") DIR(0) =DIR(0)_"Q :(Q)UIT - SEND TO WO RKLIST (RE QUIRES INT ERVENTION) ;",DIR("A" )=DIR("A") _"(Q)uit," | |
| 655 | S:(OPTS[" I") DIR(0) =DIR(0)_"I :(I)GNORE - FILL Rx WITHOUT CL AIM SUBMIS SION;",DIR ("A")=DIR( "A")_"(I)g nore," | |
| 656 | S $E(DIR( 0),$L(DIR( 0)))="",$E (DIR("A"), $L(DIR("A" )))="",DIR ("??")="^D HELP^PSOR EJU2("""_O PTS_""")" | |
| 657 | S:$G(DEF) '="" DIR(" B")=DEF D ^DIR I $D( DIRUT) S Y ="Q" W ! | |
| 658 | ; | |
| 659 | S ACTION= Y | |
| 660 | I ACTION= "D" S ACTI ON=$$DC^PS OREJU1(RX, ACTION) ;cnf, PSO *7*358 | |
| 661 | I ACTION= "Q" D WRKL ST^PSOREJU 4(RX,RFL,, DUZ,DT,1," ",RESP) ;cnf, PSO *7*358 | |
| 662 | I ACTION= "I" G TRIC 4:'$$CONT^ PSOREJU1() S COM=$$T COM^PSOREJ P3(RX,RFL) G TRIC4:C OM="^" G T RIC4:'$$SI G^PSOREJU1 () D | |
| 663 | . D CLOSE ^PSOREJUT( RX,RFL,REJ ,DUZ,6,COM ) ;TRICA RE/CHAMPVA non-billa ble should have only 1 reject - eT/eC | |
| 664 | . D AUDIT ^PSOTRI(RX ,RFL,,COM, $S($$PSOET ^PSOREJP3( RX,RFL):"N ",1:"R"),$ P(RESP,"^" ,3)) | |
| 665 | Q | |
| 666 | ||
| 667 | Modified L ogic (Chan ges are hi ghlighted) | |
| 668 | ||
| 669 | TRIC4 S DI R(0)="SO^" ,DIR("A")= "",OPTS="D Q",DEF="D" | |
| 670 | N PSORESP ,PSOIT | |
| 671 | S PSORESP =$P($G(RES P),U,2) | |
| 672 | I PSORESP ["NO ACTIV E/VALID RO I" S DEF=" Q" ;IB ro utine IBNC PDP1 conta ins this t ext. | |
| 673 | ;referenc e to ^XUSE C( support ed by IA 1 0076 | |
| 674 | I $D(^XUS EC("PSO TR ICARE/CHAM PVA",DUZ)) S OPTS=OP TS_"I" ;PS O*7.0*358, if user h as securit y key, inc lude IGNOR E in TRICA RE/CHAMPVA options | |
| 675 | S:(OPTS[" D") DIR(0) =DIR(0)_"D :(D)iscont inue - DO NOT FILL P RESCRIPTIO N;",DIR("A ")=DIR("A" )_"(D)isco ntinue," | |
| 676 | S:(OPTS[" Q") DIR(0) =DIR(0)_"Q :(Q)UIT - SEND TO WO RKLIST (RE QUIRES INT ERVENTION) ;",DIR("A" )=DIR("A") _"(Q)uit," | |
| 677 | S:(OPTS[" I") DIR(0) =DIR(0)_"I :(I)GNORE - FILL Rx WITHOUT CL AIM SUBMIS SION;",DIR ("A")=DIR( "A")_"(I)g nore," | |
| 678 | S $E(DIR( 0),$L(DIR( 0)))="",$E (DIR("A"), $L(DIR("A" )))="",DIR ("??")="^D HELP^PSOR EJU2("""_O PTS_""")" | |
| 679 | S:$G(DEF) '="" DIR(" B")=DEF D ^DIR I $D( DIRUT) S Y ="Q" W ! | |
| 680 | ; | |
| 681 | S ACTION= Y | |
| 682 | I ACTION= "D" S ACTI ON=$$DC^PS OREJU1(RX, ACTION) ;cnf, PSO *7*358 | |
| 683 | I ACTION= "Q" D WRKL ST^PSOREJU 4(RX,RFL,, DUZ,DT,1," ",RESP) ;cnf, PSO *7*358 | |
| 684 | S PSOIT=" " | |
| 685 | I ACTION= "I" S PSOI T=$$IGNORE ^PSOREJU1( RX,RFL) | |
| 686 | I $P(PSOI T,"^")=0 D G TRIC4 | |
| 687 | . I $P(PS OIT,"^",2) '="" D | |
| 688 | . . W $C( 7),!,"Gros s Amount D ue is $"_$ P(PSOIT,"^ ",2)_". IG NORE requi res EPHARM ACY SITE M ANAGER key ." | |
| 689 | I ACTION= "I" G TRIC 4:'$$CONT^ PSOREJU1() S COM=$$T COM^PSOREJ P3(RX,RFL) G TRIC4:C OM="^" G T RIC4:'$$SI G^PSOREJU1 () D | |
| 690 | . D CLOSE ^PSOREJUT( RX,RFL,REJ ,DUZ,6,COM ) ;TRICA RE/CHAMPVA non-billa ble should have only 1 reject - eT/eC | |
| 691 | . D AUDIT ^PSOTRI(RX ,RFL,,COM, $S($$PSOET ^PSOREJP3( RX,RFL):"N ",1:"R"),$ P(RESP,"^" ,3)) | |
| 692 | Q | |
| 693 | ||
| 694 | ||
| 695 | Integratio n Control Registrati on # | |
| 696 | TBD | |
| 697 | Name | |
| 698 | GROSS AMOU NT DUE | |
| 699 | Enhancemen t Category | |
| 700 | New Modify Expand | |
| 701 | Custodial Package | |
| 702 | BPS | |
| 703 | Subscribin g Package( s) | |
| 704 | Outpatient Pharmacy | |
| 705 | Usage | |
| 706 | Controlled Subscript ion | |
| 707 | Type | |
| 708 | Routine | |
| 709 | Routine | |
| 710 | BPSBUTL | |
| 711 | Component | |
| 712 | $$AMT() | |
| 713 | Input Vari ables | |
| 714 | Name: RX | |
| 715 | Descriptio n: Prescr iption IEN | |
| 716 | Name: RFL | |
| 717 | Descriptio n: Refill | |
| 718 | Output Var iables | |
| 719 | Name: AMT | |
| 720 | Descriptio n: Gross A mount Due | |
| 721 | ||
| 722 | Create new field IGN ORE THRESH OLD in the EPHARMACY SITE PARA METERS (#5 2.86). | |
| 723 | File Name | |
| 724 | EPHARMACY SITE PARAM ETERS | |
| 725 | Send Full or Partial DD | |
| 726 | PARTIAL | |
| 727 | Data Dicti onary Numb er | |
| 728 | 52.86 | |
| 729 | Field Numb er | |
| 730 | 7 | |
| 731 | Update the Data Dict ionary | |
| 732 | YES | |
| 733 | Send Secur ity Codes | |
| 734 | NO | |
| 735 | Screen to Determine DD Update | |
| 736 | n/a | |
| 737 | Data Comes with File | |
| 738 | NO | |
| 739 | ||
| 740 | ||
| 741 | Fields | |
| 742 | Values | |
| 743 | FILE | |
| 744 | EPHARMACY SITE PARAM ETERS | |
| 745 | FIELD | |
| 746 | IGNORE THR ESHOLD | |
| 747 | FIELD NUMB ER | |
| 748 | 7 | |
| 749 | NODE;PIECE | |
| 750 | 3;3 | |
| 751 | DATA TYPE | |
| 752 | NUMERIC | |
| 753 | INCLUSIVE LOWER BOUN D | |
| 754 | 0 | |
| 755 | INCLUSIVE UPPER BOUN D | |
| 756 | 9999999 | |
| 757 | IS THIS A DOLLAR AMO UNT | |
| 758 | NO | |
| 759 | MAXIMUM NU MBER OF FR ACTIONAL D IGITS | |
| 760 | 0 | |
| 761 | MANDATORY | |
| 762 | NO | |
| 763 | DESCRIPTIO N | |
| 764 | The value of the Ign ore Thresh old field is compare d to the G ross Amoun t Due of t he prescri ption. | |
| 765 | If the Gro ss Amount Due is gre ater than or equal t o the valu e of this field, the n the user must hold the EPHAR MACY SITE MANAGER se curity key in order to Ignore the reject . | |
| 766 | If the val ue of this field is set to 0, then no re jects can be Ignored unless th e user has the secur ity key. | |
| 767 | ‘HELP’-PRO MPT (Modif ied) | |
| 768 | Enter a va lue in the range of 0-9999999. | |
| 769 | ||
| 770 | ||
| 771 | Back Out/R ollback Pr ocedure | |
| 772 | This story includes modificati ons to exi sting rout ines. To b ack out th is enhance ment, all the routin es which a re a part of this pa tch should be backed up prior to install ation. Rev erting to the previo us version of these routines w ould back out this e nhancement . Alternat ively, the previous version of these rou tines coul d be distr ibuted via an emerge ncy patch. | |
| 773 | 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: | |
| 774 | Delete any values in field #7, IGNORE TH RESHOLD, f rom the EP HARMACY SI TE PARAMET ERS FILE ( #52.86). T his could be perform ed via Fil eMan or fr om a routi ne written for the p urpose. | |
| 775 | Delete fie ld #7, IGN ORE THRESH OLD, from the data d ictionary file #52.8 6, EPHARMA CY SITE PA RAMETERS F ILE. This could be p erformed v ia FileMan or from a routine w ritten for the purpo se. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.