Produced by Araxis Merge on 9/6/2017 3:05:25 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 US115 v1.01.docx | Thu Jul 27 19:26:18 2017 UTC |
| 2 | MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US115 v1.01.docx | Wed Sep 6 17:55:58 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 294 |
| 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 US115 | |
| 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-198 | |
| 12 | User Story Name: Pre vent Label Reprint o f Rejected Prescript ions | |
| 13 | Product Ba cklog ID: 198 | |
| 14 | Backlog Pr iority: Hi gh | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US115 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | When the u ser select s the menu option Re print an O utpatient Rx Label [ PSO RXRPT] or Reprin t a non-vo ided Outpa tient Rx L abel [PSO SCRIPTALK REPRINT VI STA LB], t he user sh ould not b e allowed to select a prescrip tion that has an ope n/unresolv ed 3rd par ty payer r eject. | |
| 21 | ||
| 22 | List of Co mponents: | |
| 23 | Routine: P SORXRP2 | |
| 24 | ||
| 25 | Design – D etail | |
| 26 | A call to $$FIND^PSO REJUT(PSOR PRX,PSOFIL L) will re turn ‘1’ i f there ar e any open /unresolve d rejects on the pre scription selected b y the user . The code will defa ult to the most rece nt fill. | |
| 27 | ||
| 28 | ||
| 29 | Subroutine Name | |
| 30 | ^PSORXRP2 | |
| 31 | Enhancemen t Category | |
| 32 | New | |
| 33 | Modify | |
| 34 | Delete | |
| 35 | No Change | |
| 36 | Story | |
| 37 | US115 | |
| 38 | Related Me nu Options or ListMa n Actions | |
| 39 | Reprint an Outpatien t Rx Label [PSO RXRP T] | |
| 40 | Reprint a non-voided Outpatien t Rx Label [PSO SCRI PTALK REPR INT VISTA LB] | |
| 41 | Related Ro utines | |
| 42 | This Subro utine is C alled By | |
| 43 | This Subro utine Call s | |
| 44 | ||
| 45 | The two me nu options cited abo ve | |
| 46 | NOW^%DTC, ^DIC, $$GE T1^DIQ, ^D IR, ICN^PS ODPT, $$MG ONFILE^PSO FDAUT, EN^ PSOHLSN1, ^PSOLSET, CHK1^PSOUT LA, FSIG^P SOUTLA, EN 3^PSOUTLA1 , PSOL^PSS LOCK, PSOU L^PSSLOCK, DEM^VADPT , KVA^VADP T, | |
| 47 | $$LSTRFL^P SOBPSU1, | |
| 48 | $$FIND^PSO REJUT | |
| 49 | Related In tegration Control Re gistration s (ICRs) | |
| 50 | External r eferences PSOL^PSSLO CK and PSO UL^PSSLOCK supported by DBIA 2 789. | |
| 51 | External r eference ^ PS(55 supp orted by D BIA 2228. | |
| 52 | External r eference t o ^PSDRUG supported by DBIA 22 1. | |
| 53 | Data Passi ng | |
| 54 | Parameter Input | |
| 55 | Parameter Output | |
| 56 | Function Return Val ue | |
| 57 | Global Mo dified | |
| 58 | Input Attr ibute Name and Defin ition | |
| 59 | Name: N/A | |
| 60 | Definition : | |
| 61 | New Modify Delete No Cha nge | |
| 62 | Output Att ribute Nam e and Defi nition | |
| 63 | Name: N/A | |
| 64 | Definition : | |
| 65 | New Modify Delete No Cha nge | |
| 66 | Current Lo gic | |
| 67 | ||
| 68 | PSORXRP2 ; BIR/SAB-ma in menu en try reprin t of a Rx label ;10/ 5/07 7:45a m | |
| 69 | ; ;7.0;OUTPA TIENT PHAR MACY;**11, 27,120,138 ,135,156,1 85,280,251 ,367**;DEC 1997;Buil d 62 | |
| 70 | ; External r eferences PSOL and P SOUL^PSSLO CK support ed by DBIA 2789 | |
| 71 | ; External r eference ^ PS(55 supp orted by D BIA 2228 | |
| 72 | ; External r eference t o ^PSDRUG supported by DBIA 22 1 | |
| 73 | I '$D(PSOPA R) D ^PSOL SET I '$D( PSOPAR) G KILL | |
| 74 | LRP N PSODISP,P SOMGREP | |
| 75 | K REPRINT W !! S DIC( "S")="I $P ($G(^(0)), ""^"",2),$ D(^(""STA" ")),$P($G( ^(""STA"") ),""^"")<1 0",DIC="^P SRX(",DIC( "A")="Repr in | |
| 76 | t Prescrip tion Label : ",DIC(0) ="QEAZ" D ^DIC K P,D IC("A") I Y<0!("^"[X ) K PCOM,P COMX G KIL L | |
| 77 | S (PPL,DA,R X,PSORPRX) =+Y,PDA=Y( 0),RXF=0,Z D(DA)=DT,R EPRINT=1,S TA=+$G(^PS RX(+Y,"STA ")) | |
| 78 | D PSOL^PSSL OCK(PSORPR X) I '$G(P SOMSG) W ! !,$S($P($G (PSOMSG)," ^",2)'="": $P($G(PSOM SG),"^",2) ,1:"Anothe r person i s editing th | |
| 79 | is order." ),! K PSOM SG G LRP | |
| 80 | I $P(^PSRX( RX,"STA"), "^")=14 W $C(7),!,"C annot Repr int! Disco ntinued by Provider. " D ULR,KI LL Q | |
| 81 | I $P(^PSRX( RX,"STA"), "^")=15 W $C(7),!,"C annot Repr int! Disco ntinued du e to editi ng." D ULR ,KILL Q | |
| 82 | I $P(^PSRX( RX,"STA"), "^")=16 W $C(7),!,"C annot Repr int! Place d on HOLD by Provide r." D ULR, KILL Q | |
| 83 | I DT>$P(^PS RX(RX,2)," ^",6) D D ULR,KILL G LRP | |
| 84 | . W !,$C(7), "Medicatio n Expired on "_$E($P (^PSRX(RX, 2),"^",6), 4,5)_"-"_$ E($P(^(2), "^",6),6,7 )_"-"_$E($ P(^(2),"^" ,6),2,3) I $ | |
| 85 | P(^PSRX(DA ,"STA"),"^ ")<11 S $P (^PSRX(DA, "STA"),"^" )=11 D | |
| 86 | . .S COMM="M edication Expired on "_$E($P(^ PSRX(RX,2) ,"^",6),4, 5)_"-"_$E( $P(^(2),"^ ",6),6,7)_ "-"_$E($P( ^(2),"^",6 ),2,3) D E N^ | |
| 87 | PSOHLSN1(D A,"SC","ZE ",COMM) K COMM | |
| 88 | S DFN=$P(PD A,"^",2) D DEM^VADPT I $P(VADM (6),"^",2) ]"" D G L RP | |
| 89 | . W $C(7),!! ,$P(^DPT($ P(PDA,"^", 2),0),"^") _" Died "_ $P(VADM(6) ,"^",2)_". ",! | |
| 90 | . S $P(^PSRX (RX,"STA") ,"^")=12,P COM="Patie nt Expired "_$P(VADM (6),"^",2) ,ST="C" D EN^PSOHLSN 1(RX,"OD", "",PCOM,"A ") | |
| 91 | . D ACT1,ULR ,KILL | |
| 92 | S X=$O(^PS( 52.5,"B",D A,0)) I X, '$G(^PS(52 .5,X,"P")) W !,$C(7) ,"Rx may N OT be prin ted using this optio n, use SUS PENSE FUNC TI | |
| 93 | ONS Option s." K X D ULR,KILL G LRP | |
| 94 | I $G(X)'>0 G GOOD | |
| 95 | S XX=$P($G( ^PS(52.5,X ,0)),U,7) I $G(XX)'] "" G GOOD | |
| 96 | I $G(XX)="Q " W !,"RX CAN NOT BE PRINTED u sing this option, us e SUSPENSE FUNCTIONS Options." K X,XX D ULR,KILL G LRP | |
| 97 | I $G(XX)="L " W !,"RX is being t ransmitted to the CM OP and can not be re printed no w." K X,XX D ULR,KIL L G LRP | |
| 98 | GOOD K X | |
| 99 | ||
| 100 | ... | |
| 101 | ||
| 102 | Modified L ogic (Chan ges are hi ghlighted) | |
| 103 | ||
| 104 | PSORXRP2 ; BIR/SAB-ma in menu en try reprin t of a Rx label ;10/ 5/07 7:45a m | |
| 105 | ; ;7.0;OUTPA TIENT PHAR MACY;**11, 27,120,138 ,135,156,1 85,280,251 ,367,478** ;DEC 1997; Build 62 | |
| 106 | ; External r eferences PSOL and P SOUL^PSSLO CK support ed by DBIA 2789 | |
| 107 | ; External r eference ^ PS(55 supp orted by D BIA 2228 | |
| 108 | ; External r eference t o ^PSDRUG supported by DBIA 22 1 | |
| 109 | I '$D(PSOPA R) D ^PSOL SET I '$D( PSOPAR) G KILL | |
| 110 | LRP N PSODISP,P SOMGREP,PS OFILL | |
| 111 | K REPRINT W !! S DIC( "S")="I $P ($G(^(0)), ""^"",2),$ D(^(""STA" ")),$P($G( ^(""STA"") ),""^"")<1 0",DIC="^P SRX(",DIC( "A")="Repr in | |
| 112 | t Prescrip tion Label : ",DIC(0) ="QEAZ" D ^DIC K P,D IC("A") I Y<0!("^"[X ) K PCOM,P COMX G KIL L | |
| 113 | S (PPL,DA,R X,PSORPRX) =+Y,PDA=Y( 0),RXF=0,Z D(DA)=DT,R EPRINT=1,S TA=+$G(^PS RX(+Y,"STA ")) | |
| 114 | ; PSO*7*478 | |
| 115 | S PSOFILL=$ $LSTRFL^PS OBPSU1(PSO RPRX) | |
| 116 | I $$FIND^PS OREJUT(PSO RPRX,PSOFI LL) W $C(7 ),!,"NOT A LLOWED! Rx has OPEN 3rd Party Payer Reje ct." D KIL L G LRP | |
| 117 | D PSOL^PSSL OCK(PSORPR X) I '$G(P SOMSG) W ! !,$S($P($G (PSOMSG)," ^",2)'="": $P($G(PSOM SG),"^",2) ,1:"Anothe r person i s editing th | |
| 118 | is order." ),! K PSOM SG G LRP | |
| 119 | I $P(^PSRX( RX,"STA"), "^")=14 W $C(7),!,"C annot Repr int! Disco ntinued by Provider. " D ULR,KI LL Q | |
| 120 | I $P(^PSRX( RX,"STA"), "^")=15 W $C(7),!,"C annot Repr int! Disco ntinued du e to editi ng." D ULR ,KILL Q | |
| 121 | I $P(^PSRX( RX,"STA"), "^")=16 W $C(7),!,"C annot Repr int! Place d on HOLD by Provide r." D ULR, KILL Q | |
| 122 | I DT>$P(^PS RX(RX,2)," ^",6) D D ULR,KILL G LRP | |
| 123 | . W !,$C(7), "Medicatio n Expired on "_$E($P (^PSRX(RX, 2),"^",6), 4,5)_"-"_$ E($P(^(2), "^",6),6,7 )_"-"_$E($ P(^(2),"^" ,6),2,3) I $ | |
| 124 | P(^PSRX(DA ,"STA"),"^ ")<11 S $P (^PSRX(DA, "STA"),"^" )=11 D | |
| 125 | . .S COMM="M edication Expired on "_$E($P(^ PSRX(RX,2) ,"^",6),4, 5)_"-"_$E( $P(^(2),"^ ",6),6,7)_ "-"_$E($P( ^(2),"^",6 ),2,3) D E N^ | |
| 126 | PSOHLSN1(D A,"SC","ZE ",COMM) K COMM | |
| 127 | S DFN=$P(PD A,"^",2) D DEM^VADPT I $P(VADM (6),"^",2) ]"" D G L RP | |
| 128 | . W $C(7),!! ,$P(^DPT($ P(PDA,"^", 2),0),"^") _" Died "_ $P(VADM(6) ,"^",2)_". ",! | |
| 129 | . S $P(^PSRX (RX,"STA") ,"^")=12,P COM="Patie nt Expired "_$P(VADM (6),"^",2) ,ST="C" D EN^PSOHLSN 1(RX,"OD", "",PCOM,"A ") | |
| 130 | . D ACT1,ULR ,KILL | |
| 131 | S X=$O(^PS( 52.5,"B",D A,0)) I X, '$G(^PS(52 .5,X,"P")) W !,$C(7) ,"Rx may N OT be prin ted using this optio n, use SUS PENSE FUNC TI | |
| 132 | ONS Option s." K X D ULR,KILL G LRP | |
| 133 | I $G(X)'>0 G GOOD | |
| 134 | S XX=$P($G( ^PS(52.5,X ,0)),U,7) I $G(XX)'] "" G GOOD | |
| 135 | I $G(XX)="Q " W !,"RX CAN NOT BE PRINTED u sing this option, us e SUSPENSE FUNCTIONS Options." K X,XX D ULR,KILL G LRP | |
| 136 | I $G(XX)="L " W !,"RX is being t ransmitted to the CM OP and can not be re printed no w." K X,XX D ULR,KIL L G LRP | |
| 137 | GOOD K X | |
| 138 | ||
| 139 | ... | |
| 140 | ||
| 141 | ||
| 142 | ||
| 143 | Back Out/R ollback Pr ocedure | |
| 144 | ||
| 145 | 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. | |
| 146 | ||
| 147 | To back ou t this enh ancement, the routin e ^PSORXRP 2 should b e backed u p prior to installin g this pat ch. Revert ing to the previous version of this rout ine would back out t his enhanc ement. Alt ernately, the previo us version of this r outine cou ld be dist ributed vi a an emerg en |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.