Produced by Araxis Merge on 4/17/2018 8:06:37 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+US3387+v1.0.docx | Sun Mar 11 20:10:49 2018 UTC |
| 2 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US3387+v1.0.docx | Wed Apr 18 00:59:59 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 102 |
| 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 US3387 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | November 2 017 | |
| 10 | Version 1. 0 | |
| 11 | User Story Name: No Label if I nsurer Asl eep | |
| 12 | Rally ID: US3387 | |
| 13 | ||
| 14 | Design – S ummary | |
| 15 | Specific r ejects res ult in the claim bei ng suspend ed due to ‘insurer a sleep’ log ic. In the se situati ons, the u ser should not be pr esented th e Print La bel prompt . This use r story wi ll add log ic to chec k if the c laim statu s is suspe nded and c ontains EC ME activit y. If thes e conditio ns are tru e, the use r will not be prompt ed to Prin t Label wh en adding a New Orde r. | |
| 16 | List of Co mponents: | |
| 17 | Routine: P SORXL1 | |
| 18 | ||
| 19 | Design – D etail | |
| 20 | Logic will be added to check f or status of 5 (susp ended) and if ECME a ctivity ex ists. Ther e is alrea dy logic i n place to determine if ECME a ctivity ex ists via a call to $ $STATUS^PS OBPSUT. | |
| 21 | The routin e currentl y sets var iable EACT ION which is not ref erenced. T his logic will be re moved as i t is not b eing utili zed and is unnecessa ry. | |
| 22 | Subroutine Name | |
| 23 | ECME^PSORX L1 | |
| 24 | Enhancemen t Category | |
| 25 | New | |
| 26 | Modify | |
| 27 | ||
| 28 | ||
| 29 | Routines W hich Call This Subro utine | |
| 30 | DC^PSOREJU 1, LBL^PSO RXL, QLBL^ PSORXL | |
| 31 | Current Lo gic | |
| 32 | ||
| 33 | PSORXL1 ;B IR/SAB - a ction to b e taken on prescript ions ; 7/5 /12 12:04p m ;;7.0;OU TPATIENT P HARMACY;** 36,46,148, 260,274,28 7,289,358, 251,385,40 3,409**;DE C 1997;Bui ld 2 | |
| 34 | ||
| 35 | … | |
| 36 | ||
| 37 | ECME ; - L ooks for D UR/79 REJE CTS and se nd Mail Rx 's to ECME that have not been SUSPENDED N PSOI,PSO J,PSORX,PS ORF,PSOACT ,BWH,PPLTM P,PSOSTA,P SOTRIC,EST AT,EACTION S PPLTMP= $G(PPL) F PSOI=1:1 S PSORX=+$P ($G(PPLTMP ),",",PSOI ) Q:'PSORX D . D TR IC(PSORX) S ESTAT=$P ($$STATUS^ PSOBPSUT(P SORX,PSORF ),"^") . I PSOTRIC S EACTION=$ S(ESTAT["P AYABLE":1, ESTAT="":1 ,1:0) . I $G(PSOCKDC ) D Q ;P SOCKDC var iable is s et in PSOR XL and is used to el iminate la bel print for DC'ed Rx's . . S PSOSTA=$$ GET1^DIQ(5 2,PSORX,10 0,"I") I P SOSTA=12!( PSOSTA=11) ,'$G(RXPR( PSORX)),$G (PPL) D RM V(PSORX,.P PL) . I $G (RXPR(PSOR X)) Q . S PSOACT="", BWH=$S(PSO RF:"RF",1: "OF") . I $$FIND^PSO REJUT(PSOR X,PSORF) D I PSOACT ="Q" D RMV (PSORX,.PP L) Q . . S PSOACT=$$ HDLG^PSORE JU1(PSORX, PSORF,"79, 88",BWH,"O IQ","Q") Q | |
| 38 | ||
| 39 | Modified L ogic (Chan ges are hi ghlighted) | |
| 40 | ||
| 41 | PSORXL1 ;B IR/SAB - a ction to b e taken on prescript ions ; 7/5 /12 12:04p m ;;7.0;OU TPATIENT P HARMACY;** 36,46,148, 260,274,28 7,289,358, 251,385,40 3,409,482* *;DEC 1997 ;Build 2 | |
| 42 | ||
| 43 | … | |
| 44 | ||
| 45 | ECME ; - L ooks for D UR/79 REJE CTS and se nd Mail Rx 's to ECME that have not been SUSPENDED N PSOI,PSO J,PSORX,PS ORF,PSOACT ,BWH,PPLTM P,PSOSTA,P SOTRIC,EST AT,EACTION S PPLTMP= $G(PPL) F PSOI=1:1 S PSORX=+$P ($G(PPLTMP ),",",PSOI ) Q:'PSORX D . D TR IC(PSORX) S ESTAT=$P ($$STATUS^ PSOBPSUT(P SORX,PSORF ),"^") | |
| 46 | . I PSOTR IC S EACTI ON=$S(ESTA T["PAYABLE ":1,ESTAT= "":1,1:0) . I $G(PSO CKDC) D Q ;PSOCKDC variable is set in PSORXL and is used t o eliminat e label pr int for DC 'ed Rx's . . S PSOST A=$$GET1^D IQ(52,PSOR X,100,"I") . . I PSO STA=12!(PS OSTA=11)!( (PSOSTA=5) &(ESTAT'=" ")) D . . . I '$G(RX PR(PSORX)) ,$G(PPL) D RMV(PSORX ,.PPL) . I $G(RXPR(P SORX)) Q . S PSOACT= "",BWH=$S( PSORF:"RF" ,1:"OF") . I $$FIND^ PSOREJUT(P SORX,PSORF ) D I PSO ACT="Q" D RMV(PSORX, .PPL) Q . . S PSOACT =$$HDLG^PS OREJU1(PSO RX,PSORF," 79,88",BWH ,"OIQ","Q" ) Q | |
| 47 | ||
| 48 | ||
| 49 | Back Out/R ollback Pr ocedure | |
| 50 | This story includes modificati ons to exi sting rout ines. | |
| 51 | 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.