Produced by Araxis Merge on 9/19/2018 12:36:07 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+US582+v1.03.docx | Wed Sep 12 15:17:00 2018 UTC |
| 2 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US582+v1.03.docx | Tue Sep 18 18:15:14 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 272 |
| 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 US582 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | May 2018 | |
| 10 | Version 1. 03 | |
| 11 | User Story Number: U SRX-25 | |
| 12 | User Story Name: Co nsistent B illing Lan guage | |
| 13 | Product Ba cklog ID: 192 | |
| 14 | Backlog Pr iority: 38 | |
| 15 | Initial Si zing Estim ate: 3 | |
| 16 | Rational I D: 828291 | |
| 17 | Rally ID: US582 | |
| 18 | Epic Taxon omy: eBiz Compliance | |
| 19 | ||
| 20 | Design – S ummary | |
| 21 | As a ePhar macy user I need the language to be cons istent whe n referenc ing the bi lled quant ity and th e quantity of the pr escription so that t he referen ces convey the corre ct meaning . | |
| 22 | ||
| 23 | List of Co mponents: | |
| 24 | Routine: P SOBPSU2 | |
| 25 | Routine: B PSSCRL1 | |
| 26 | ||
| 27 | Design – D etail | |
| 28 | On the Act ivity Log section of View Pres cription, the ECME L og label “ BILLING QU ANTITY sub mitted” wi ll be repl aced with “QUANTITY SUBMITTED ON CLAIM”. | |
| 29 | ||
| 30 | Subroutine Name | |
| 31 | ELOG^PSOBP SU2 | |
| 32 | Enhancemen t Category | |
| 33 | New | |
| 34 | Modify | |
| 35 | Delete | |
| 36 | No Change | |
| 37 | Current Lo gic | |
| 38 | ||
| 39 | PSOBPSU2 ; BIRM/MFR - BPS (ECME ) Utilitie s 2 ;10/15 /04 ;;7.0; OUTPATIENT PHARMACY; **260,287, 289,341,29 0,358,359, 385,421,45 9,482**;DE C 1997;Bui ld 1 ;Refe rence to F ile 200 - NEW PERSON supported by IA 100 60 ;Refere nce to DUR 1^BPSNCPD3 supported by IA 456 0 ;Referen ce to $$NC PDPQTY^PSS BPSUT supp orted by I A 4992 ;Re ference to $$CLAIM^B PSBUTL sup ported by IA 4719 | |
| 40 | ... | |
| 41 | ||
| 42 | ELOG(RESP) ; - due t o size of PSOBPSU1 e xceeding l imit ; -L ogs an ECM E Activity Log if Rx Qty is di fferent th an Billing Qty I '$G (RESP),$T( NCPDPQTY^P SSBPSUT)'= "" D . N D RUG,RXQTY, BLQTY,BLDU ,Z . S DRU G=$$GET1^D IQ(52,RX,6 ,"I") . S RXQTY=$S(' RFL:$$GET1 ^DIQ(52,RX ,7,"I"),1: $$GET1^DIQ (52.1,RFL_ ","_RX,1)) /1 . S Z=$ $NCPDPQTY^ PSSBPSUT(D RUG,RXQTY) ,BLQTY=Z/1 ,BLDU=$P(Z ,"^",2) . I RXQTY'=B LQTY D . . D RXACT(R X,RFL,"BIL LING QUANT ITY submit ted: "_$J( BLQTY,0,$L ($P(BLQTY, ".",2)))_" ("_BLDU_" )","M",DUZ ) Q | |
| 43 | ||
| 44 | Modified L ogic (Chan ges are hi ghlighted) | |
| 45 | ||
| 46 | PSOBPSU2 ; BIRM/MFR - BPS (ECME ) Utilitie s 2 ;10/15 /04 ;;7.0; OUTPATIENT PHARMACY; **260,287, 289,341,29 0,358,359, 385,421,45 9,482,512* *;DEC 1997 ;Build 1 ; Reference to File 20 0 - NEW PE RSON suppo rted by IA 10060 ;Re ference to DUR1^BPSN CPD3 suppo rted by IA 4560 ;Ref erence to $$NCPDPQTY ^PSSBPSUT supported by IA 4992 ;Referenc e to $$CLA IM^BPSBUTL supported by IA 471 9 | |
| 47 | ... | |
| 48 | ||
| 49 | ELOG(RESP) ; - due t o size of PSOBPSU1 e xceeding l imit ; -L ogs an ECM E Activity Log if Rx Qty is di fferent th an Billing Qty I '$G (RESP),$T( NCPDPQTY^P SSBPSUT)'= "" D . N D RUG,RXQTY, BLQTY,BLDU ,Z . S DRU G=$$GET1^D IQ(52,RX,6 ,"I") . S RXQTY=$S(' RFL:$$GET1 ^DIQ(52,RX ,7,"I"),1: $$GET1^DIQ (52.1,RFL_ ","_RX,1)) /1 . S Z=$ $NCPDPQTY^ PSSBPSUT(D RUG,RXQTY) ,BLQTY=Z/1 ,BLDU=$P(Z ,"^",2) . I RXQTY'=B LQTY D . . D RXACT(R X,RFL,"BIL LING QUANT ITY submit tedSUBMITT ED ON CLAI M: "_$J(BL QTY,0,$L($ P(BLQTY,". ",2)))_" ( "_BLDU_")" ,"M",DUZ) Q | |
| 50 | ||
| 51 | ||
| 52 | On the Cla im Log, ac cessed fro m the ECME User Scre en LOG act ion, the l abel “NCPD P Qty” wil l be repla ced with “ Quantity S ubmitted o n Claim” a nd the lab el “Billed Qty” will be replac ed with “R x Qty”. | |
| 53 | ||
| 54 | Subroutine Name | |
| 55 | DISPCLM^BP SSCRL1 | |
| 56 | Enhancemen t Category | |
| 57 | New | |
| 58 | Modify | |
| 59 | Delete | |
| 60 | No Change | |
| 61 | Current Lo gic | |
| 62 | ||
| 63 | BPSSCRL1 ; AITC/CKB - ECME LOGI NFO ;06/01 /2017 ;;1. 0;E CLAIMS MGMT ENGI NE;**22**; JUN 2004; ;;Per VA D irective 6 402, this routine sh ould not b e modified . ; | |
| 64 | ||
| 65 | ... | |
| 66 | ||
| 67 | ;display claim reco rdDISPCLM( BPLN,BP59, BPIEN02,BP 57,BPSTYPE ,BPSDTALT) ; N BPSCR LNS S BPSC RLNS=17 ;( see "BPS L STMN LOG" LM templat e: Bottom= 21, Top = 4, 21-4=17 ) N BPX,BP LN0,BPCNT, BPSTR1,BPS TYP2,BPNFL DT S BPLN0 =BPLN S BP STYP2=$S(B PSTYPE="C" :"CLAIM RE QUEST",BPS TYPE="R":" REVERSAL", 1:"") S BP STR1="Tran smission I nformation ("_BPSTYP 2_")(#"_BP IEN02_")" D SETLINE^ BPSSCRLG(. BPLN,BPSTR 1_$$LINE^B PSSCRU3(79 -$L(BPSTR1 ),"-")) D SETLINE^BP SSCRLG(.BP LN,"Create d on: "_$$ CREATEDT^B PSSCRLG(BP IEN02,BPSD TALT)) D S ETLINE^BPS SCRLG(.BPL N,"VA Clai m ID: "_$P ($G(^BPSC( +BPIEN02,0 )),U,1)) D SETLINE^B PSSCRLG(.B PLN,"Submi tted By: " _$$SUBMTBY ^BPSSCRLG( BP57)) D S ETLINE^BPS SCRLG(.BPL N,"Transac tion Type: "_$$TRTYP E^BPSSCRU5 ($$TRCODE^ BPSSCRLG(B PIEN02))) D SETLINE^ BPSSCRLG(. BPLN,"Date of Servic e: "_$$DOS CLM^BPSSCR LG(BPIEN02 )) ;Displa y Next Ava ilable Fil l Date - B PS*1.0*15 S BPNFLDT= $$NFLDT^BP SBUTL(BPRX IEN,BPREF, $$RXCOB57^ BPSSCRLG(B P57)) D:BP NFLDT SETL INE^BPSSCR LG(.BPLN," Next Avail able Fill Date: "_$$ FMTE^XLFDT (BPNFLDT," 2ZM")) D S ETLINE^BPS SCRLG(.BPL N,"NDC Cod e: "_$$LND C^BPSSCRU5 (BPIEN02)) D SETLINE ^BPSSCRLG( .BPLN,"NCP DP Qty: "_ $$QTY^BPSS CRLG(BPIEN 02)_" "_$$ UNITS^BPSS CRLG(BPIEN 02)) D SET LINE^BPSSC RLG(.BPLN, "Days Supp ly: "_$$DA YSSUPL^BPS SCRLG(BPIE N02)) D SE TLINE^BPSS CRLG(.BPLN ,"Division : "_$$DIV^ BPSSCRLG(B P57)) D SE TLINE^BPSS CRLG(.BPLN ,"NPI#: "_ $$NPI^BPSS CRLG(BPIEN 02)) D SET LINE^BPSSC RLG(.BPLN, "ECME Phar macy: "_$$ DIVNAME^BP SSCRDS($$L DIV^BPSSCR LG(BP57))) S BPX="Bi lled Qty: "_$$BILLQT Y^BPSSCRLG (BP57)_" " _$$BILLUNT ^BPSSCRLG( BP57) S BP X=BPX_" Un it Cost: " _$$UNTPRIC E^BPSSCRLG (BP57) S B PX=BPX_" G ross Amt D ue: "_$$TO TPRICE^BPS SCRLG(BPIE N02) D SET LINE^BPSSC RLG(.BPLN, BPX) | |
| 68 | ... | |
| 69 | ||
| 70 | D SETLINE ^BPSSCRLG( .BPLN,"Bil ling Reque st Payer S heet: "_$$ B1PYRIEN^B PSSCRU5(BP 57)) D SET LINE^BPSSC RLG(.BPLN, "Reversal Payer Shee t: "_$$B2P YRIEN^BPSS CRU5(BP57) ) D SETLIN E^BPSSCRLG (.BPLN,"VA Claim ID: "_$P($G(^ BPSC(+BPIE N02,0)),U, 1)) D SETL INE^BPSSCR LG(.BPLN," ") | |
| 71 | Q | |
| 72 | ||
| 73 | ||
| 74 | Modified L ogic (Chan ges are hi ghlighted) | |
| 75 | ||
| 76 | BPSSCRL1 ; AITC/CKB - ECME LOGI NFO ;06/01 /2017 ;;1. 0;E CLAIMS MGMT ENGI NE;**22,24 **;JUN 200 4; ;;Per V A Directiv e 6402, th is routine should no t be modif ied. | |
| 77 | ; ; Call to $$NCPDP QTY^PSSBPS UT support ed by IA# 4992 | |
| 78 | ... | |
| 79 | ||
| 80 | ;display claim reco rdDISPCLM( BPLN,BP59, BPIEN02,BP 57,BPSTYPE ,BPSDTALT) ; N BPSCR LNS S BPSC RLNS=17 ;( see "BPS L STMN LOG" LM templat e: Bottom= 21, Top = 4, 21-4=17 ) N BPX,BP LN0,BPCNT, BPSTR1,BPS TYP2,BPNFL DT | |
| 81 | ; S BPLN0 =BPLN S BP STYP2=$S(B PSTYPE="C" :"CLAIM RE QUEST",BPS TYPE="R":" REVERSAL", 1:"") S BP STR1="Tran smission I nformation ("_BPSTYP 2_")(#"_BP IEN02_")" D SETLINE^ BPSSCRLG(. BPLN,BPSTR 1_$$LINE^B PSSCRU3(79 -$L(BPSTR1 ),"-")) D SETLINE^BP SSCRLG(.BP LN,"Create d on: "_$$ CREATEDT^B PSSCRLG(BP IEN02,BPSD TALT)) D S ETLINE^BPS SCRLG(.BPL N,"VA Clai m ID: "_$P ($G(^BPSC( +BPIEN02,0 )),U,1)) D SETLINE^B PSSCRLG(.B PLN,"Submi tted By: " _$$SUBMTBY ^BPSSCRLG( BP57)) D S ETLINE^BPS SCRLG(.BPL N,"Transac tion Type: "_$$TRTYP E^BPSSCRU5 ($$TRCODE^ BPSSCRLG(B PIEN02))) D SETLINE^ BPSSCRLG(. BPLN,"Date of Servic e: "_$$DOS CLM^BPSSCR LG(BPIEN02 )) ;Displa y Next Ava ilable Fil l Date - B PS*1.0*15 S BPNFLDT= $$NFLDT^BP SBUTL(BPRX IEN,BPREF, $$RXCOB57^ BPSSCRLG(B P57)) D:BP NFLDT SETL INE^BPSSCR LG(.BPLN," Next Avail able Fill Date: "_$$ FMTE^XLFDT (BPNFLDT," 2ZM")) D S ETLINE^BPS SCRLG(.BPL N,"NDC Cod e: "_$$LND C^BPSSCRU5 (BPIEN02)) | |
| 82 | ; | |
| 83 | S BPUNITS =$$UNITS^B PSSCRLG(BP IEN02) ; i f BPUNITS is null ge t the BPUN ITS from t he PRESCRI PTION file (#52) I B PUNITS="( )" S BPUNI TS=$$GETUN IT(BPRXIEN ,$G(BPREF) ) D SETLIN E^BPSSCRLG (.BPLN,"NC PDP QtyQua ntity Subm itted on C laim: "_$$ QTY^BPSSCR LG(BPIEN02 )_" "_BPUN ITS$$UNITS ^BPSSCRLG( BPIEN02)) D SETLINE^ BPSSCRLG(. BPLN,"Days Supply: " _$$DAYSSUP L^BPSSCRLG (BPIEN02)) D SETLINE ^BPSSCRLG( .BPLN,"Div ision: "_$ $DIV^BPSSC RLG(BP57)) D SETLINE ^BPSSCRLG( .BPLN,"NPI #: "_$$NPI ^BPSSCRLG( BPIEN02)) D SETLINE^ BPSSCRLG(. BPLN,"ECME Pharmacy: "_$$DIVNA ME^BPSSCRD S($$LDIV^B PSSCRLG(BP 57))) S BP X="BilledR x Qty: "_$ $BILLQTY^B PSSCRLG(BP 57)_" "_$$ BILLUNT^BP SSCRLG(BP5 7) S BPX=B PX_" Unit Cost: "_$$ UNTPRICE^B PSSCRLG(BP 57) S BPX= BPX_" Gros s Amt Due: "_$$TOTPR ICE^BPSSCR LG(BPIEN02 ) D SETLIN E^BPSSCRLG (.BPLN,BPX ) | |
| 84 | ||
| 85 | ... | |
| 86 | ||
| 87 | D SETLINE ^BPSSCRLG( .BPLN,"Bil ling Reque st Payer S heet: "_$$ B1PYRIEN^B PSSCRU5(BP 57)) D SET LINE^BPSSC RLG(.BPLN, "Reversal Payer Shee t: "_$$B2P YRIEN^BPSS CRU5(BP57) ) D SETLIN E^BPSSCRLG (.BPLN,"VA Claim ID: "_$P($G(^ BPSC(+BPIE N02,0)),U, 1)) D SETL INE^BPSSCR LG(.BPLN," ") | |
| 88 | Q | |
| 89 | ||
| 90 | ||
| 91 | ||
| 92 | A new subr outine wil l be need to be crea ted to pop ulate the correct un its on the Claim Log , accessed from the ECME User Screen LOG action. This will make it co nsistent w ith the un its that a ppear on t he Activit y Log sect ion of Vie w Prescrip tion, the ECME Log l abel | |
| 93 | ||
| 94 | Subroutine Name | |
| 95 | GETUNIT^BP SSCRL1 | |
| 96 | Enhancemen t Category | |
| 97 | New | |
| 98 | Modify | |
| 99 | Delete | |
| 100 | No Change | |
| 101 | Related Me nu Options or ListMa n Actions | |
| 102 | ECME User Screen | |
| 103 | Related Ro utines | |
| 104 | This Subro utine is C alled By | |
| 105 | This Subro utine Call s | |
| 106 | ||
| 107 | DISPCLM^BP SSCRL1 | |
| 108 | $$GET1^DIQ , | |
| 109 | $$NCPDPQTY ^PSSBPSUT | |
| 110 | Related In tegration Control Re gistration s (ICRs) | |
| 111 | ICR 4992 | |
| 112 | Data Passi ng | |
| 113 | Parameter Input | |
| 114 | Parameter Output | |
| 115 | Function Return Val ue | |
| 116 | Global Mo dified | |
| 117 | Input Attr ibute Name and Defin ition | |
| 118 | Name: BPRX IEN | |
| 119 | Definition : Quantity dispensed from the PRESCRIPTI ON file (# 52) | |
| 120 | New Modify Delete No Cha nge | |
| 121 | Name: BPRE F | |
| 122 | Definition : Rx Refil l | |
| 123 | New Modify Delete No Cha nge | |
| 124 | Output Att ribute Nam e and Defi nition | |
| 125 | Name: BPUN ITS | |
| 126 | Definition : | |
| 127 | New Modify Delete No Cha nge | |
| 128 | Current Lo gic | |
| 129 | ||
| 130 | n/a – new subroutine | |
| 131 | ||
| 132 | Modified L ogic (Chan ges are hi ghlighted) | |
| 133 | ||
| 134 | GETUNIT(BP RXIEN,BPRE F) ; Retur n the NCPD P Dispense Unit ; I nput: (r) BPRXIEN - Quantity d ispensed f rom the PR ESCRIPTION file (#52 ) ; BPREF - Rx Refil l ;0utput : BPUNITS - Billing Quantity ( 3 decimal places)^NC PDP Dispen se Unit (E A, GM or M L) ; N BPD RUG,BPQTY, BPUNITS,Z ; ; Find N CPDP Dispe nse Unit f rom PRESCR IPTION fil e (#52) S BPDRUG=$$G ET1^DIQ(52 ,BPRXIEN,6 ,"I") S BP QTY=$S($G( BPREF)="": $$GET1^DIQ (52,BPRXIE N,7,"I"),1 :$$GET1^DI Q(52.1,BPR EF_","_BPR XIEN,1))/1 S Z=$$NCP DPQTY^PSSB PSUT(BPDRU G,BPQTY) S BPUNITS=$ P(Z,"^",2) Q "("_BPU NITS_")" | |
| 135 | ||
| 136 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.