Produced by Araxis Merge on 9/6/2017 3:05:28 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 US178 v1.01.docx | Thu Jul 27 19:15:46 2017 UTC |
| 2 | MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US178 v1.01.docx | Wed Sep 6 18:20:10 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 1054 |
| Changed | 0 | 0 |
| Inserted | 0 | 0 |
| Removed | 1 | 51 |
| 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 US178 | ||
| 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 | |||
| 12 | User Story Number: U SRX-167E | ||
| 13 | User Story Name: Cla im Log Upd ates | ||
| 14 | Product Ba cklog ID: 167 | ||
| 15 | Backlog Pr iority: (H igh, Mediu m, Low) | ||
| 16 | Initial Si zing Estim ate: | ||
| 17 | Rational I D: tbd | ||
| 18 | Rally ID: US178 | ||
| 19 | Design – S ummary | ||
| 20 | In reviewi ng the lat est NCPDP Implementa tion Guide (October 2016), it was determ ined that updates mu st be made to the Vi stA files correspond ing to Dat a Elements . This st ory concer ns adding two of the se new fie lds to the Claim Log (option V iew ePharm acy Rx [BP S RPT VIEW ECME RX], CL - Clai m Log acti on) and Cl aim Respon se Inquiry (option E CME Claims -Response Inquiry [B PS RPT CLA IMS RESPON SE]). The two new f ields are Facility I D Qualifie r (B95-3Z) and Recon ciliation ID (B98-34 ). | ||
| 21 | |||
| 22 | Components included in this de sign: | ||
| 23 | Routine BP SSCRLG | ||
| 24 | Design – D etail | ||
| 25 | The Claim Response I nquiry dis plays the output of fields in the BPS CL AIMS file #9002313.0 2 and the BPS RESPON SE file #9 002313.02 for the cl aim select ed, simila r to a Fil eMan inqui ry. No ro utine chan ges are ne cessary si nce the 2 new fields previousl y mentione d have alr eady been added to e ither of t he BPS CLA IMS file # 9002313.02 or the BP S RESPONSE file #900 2313.02 in other use r stories. | ||
| 26 | |||
| 27 | The tables below des cribe how the two fi elds are b eing added to the Cl aim Log an d Claim Re sponse Inq uiry. | ||
| 28 | |||
| 29 | Subroutine Name | ||
| 30 | DISPCLM^BP SSCRLG | ||
| 31 | Enhancemen t Category | ||
| 32 | New | ||
| 33 | Modify | ||
| 34 | Delete | ||
| 35 | No Change | ||
| 36 | Story | ||
| 37 | US178 (Ral ly ID) | ||
| 38 | Related Op tions | ||
| 39 | BPS RPT VI EW ECME RX | ||
| 40 | Related Ro utines | ||
| 41 | Subroutine is Called By | ||
| 42 | Subroutine Calls | ||
| 43 | |||
| 44 | PREPINFO^B PSSCRLG | ||
| 45 | $$LINE^BPS SCRU3, $$T RTYPE^BPSS CRU5, $$NF LDT^BPSBUT L, $$FMTE^ XLFDT, $$L NDC^BPSSCR U5, $$DIVN AME^BPSSCR DS, $$B1PY RIEN^BPSSC RU5, $$B2P YRIEN^BPSS CRU5 | ||
| 46 | Data Dicti onary (DD) Reference s | ||
| 47 | None | ||
| 48 | Related Pr otocols | ||
| 49 | None | ||
| 50 | Related In tegration Control Re gistration s (ICRs) | ||
| 51 | None | ||
| 52 | Data Passi ng | ||
| 53 | Input | ||
| 54 | Output Re ference | ||
| 55 | Both | ||
| 56 | Global Re ference | ||
| 57 | Local | ||
| 58 | Input Attr ibute Name and Defin ition | ||
| 59 | Name: BPLN | ||
| 60 | Definition : Line Cou nter | ||
| 61 | New Modify Delete No Cha nge | ||
| 62 | Name: BP59 | ||
| 63 | Definition : ptr to # 9002313.59 | ||
| 64 | New Modify Delete No Cha nge | ||
| 65 | Name: BPIE N02 | ||
| 66 | Definition : IEN to # 9002313.02 | ||
| 67 | New Modify Delete No Cha nge | ||
| 68 | Name: BP57 | ||
| 69 | Definition : ptr to # 9002313.57 | ||
| 70 | New Modify Delete No Cha nge | ||
| 71 | Name: BPST YPE | ||
| 72 | Definition : Claim Ty pe - “C”=C laim Reque st, “R”=Cl aim Revers al | ||
| 73 | New Modify Delete No Cha nge | ||
| 74 | Name: BPSD TALT | ||
| 75 | Definition : Date cla im created | ||
| 76 | Output Att ribute Nam e and Defi nition | ||
| 77 | Name: none | ||
| 78 | Definition : | ||
| 79 | New Modify Delete No Cha nge | ||
| 80 | Current Lo gic | ||
| 81 | |||
| 82 | DISPCLM(BP LN,BP59,BP IEN02,BP57 ,BPSTYPE,B PSDTALT); | ||
| 83 | N BPSCRLNS S BPSCRLN S=17 ;(see "BPS LSTM N LOG" LM template: Bottom=21, Top = 4, 21-4=17) | ||
| 84 | N BPX,BPLN 0,BPCNT,BP STR1,BPSTY P2,BPNFLDT | ||
| 85 | S BPLN0=BP LN | ||
| 86 | S BPSTYP2= $S(BPSTYPE ="C":"CLAI M REQUEST" ,BPSTYPE=" R":"REVERS AL",1:"") | ||
| 87 | S BPSTR1=" Transmissi on Informa tion ("_BP STYP2_")(# "_BPIEN02_ ")" | ||
| 88 | D SETLINE( .BPLN,BPST R1_$$LINE^ BPSSCRU3(7 9-$L(BPSTR 1),"-")) | ||
| 89 | D SETLINE( .BPLN,"Cre ated on: " _$$CREATED T(BPIEN02, BPSDTALT)) | ||
| 90 | D SETLINE( .BPLN,"VA Claim ID: "_$P($G(^B PSC(+BPIEN 02,0)),U,1 )) | ||
| 91 | D SETLINE( .BPLN,"Sub mitted By: "_$$SUBMT BY(BP57)) | ||
| 92 | D SETLINE( .BPLN,"Tra nsaction T ype: "_$$T RTYPE^BPSS CRU5($$TRC ODE(BPIEN0 2))) | ||
| 93 | D SETLINE( .BPLN,"Dat e of Servi ce: "_$$DO SCLM(BPIEN 02)) | ||
| 94 | ;Display N ext Availa ble Fill D ate - BPS* 1.0*15 | ||
| 95 | S BPNFLDT= $$NFLDT^BP SBUTL(BPRX IEN,BPREF, $$RXCOB57( BP57)) | ||
| 96 | D:BPNFLDT SETLINE(.B PLN,"Next Available Fill Date: "_$$FMTE^ XLFDT(BPNF LDT,"2ZM") ) | ||
| 97 | D SETLINE( .BPLN,"NDC Code: "_$ $LNDC^BPSS CRU5(BPIEN 02)) | ||
| 98 | D SETLINE( .BPLN,"NCP DP Qty: "_ $$QTY(BPIE N02)_" "_$ $UNITS(BPI EN02)) | ||
| 99 | D SETLINE( .BPLN,"Day s Supply: "_$$DAYSSU PL(BPIEN02 )) | ||
| 100 | D SETLINE( .BPLN,"Div ision: "_$ $DIV(BP57) ) | ||
| 101 | D SETLINE( .BPLN,"NPI #: "_$$NPI (BPIEN02)) | ||
| 102 | D SETLINE( .BPLN,"ECM E Pharmacy : "_$$DIVN AME^BPSSCR DS($$LDIV( BP57))) | ||
| 103 | S BPX="Bil led Qty: " _$$BILLQTY (BP57)_" " _$$BILLUNT (BP57) | ||
| 104 | S BPX=BPX_ " Unit Cost: "_$ $UNTPRICE( BP57) | ||
| 105 | S BPX=BPX_ " Gros s Amt Due: "_$$TOTPR ICE(BPIEN0 2) | ||
| 106 | D SETLINE( .BPLN,BPX) | ||
| 107 | S BPX="Ing redient Co st: "_$$IN GRCST(BPIE N02) | ||
| 108 | S BPX=BPX_ " Disp ensing Fee : "_$$DISP FEE(BPIEN0 2) | ||
| 109 | D SETLINE( .BPLN,BPX) | ||
| 110 | S BPX="U&C Charge: " _$$UCCHRG( BPIEN02) | ||
| 111 | S BPX=BPX_ " Admi n Fee: "_$ $ADMNFEE(B PIEN02) | ||
| 112 | D SETLINE( .BPLN,BPX) | ||
| 113 | D SETLINE( .BPLN,"") | ||
| 114 | D SETLINE( .BPLN,"Ins urance Nam e: "_$$INS UR57(BP57) ) | ||
| 115 | D SETLINE( .BPLN,"Gro up Name: " _$$GRPNM(B PIEN02)) | ||
| 116 | D SETLINE( .BPLN,"Rx Coordinati on of Bene fits: "_$$ RXCOB57(BP 57)) | ||
| 117 | D SETLINE( .BPLN,"Pha rmacy Plan ID: "_$$P HPLANID(BP 57)) | ||
| 118 | D SETLINE( .BPLN,"BIN : "_$$BIN( BPIEN02)) | ||
| 119 | D SETLINE( .BPLN,"PCN : "_$$PCN( BPIEN02)) | ||
| 120 | D SETLINE( .BPLN,"NCP DP Version : "_$$GETV ER(BPIEN02 )) | ||
| 121 | D SETLINE( .BPLN,"Gro up ID: "_$ $GRPID(BPI EN02)) | ||
| 122 | D SETLINE( .BPLN,"Car dholder ID : "_$$CRDH LDID(BPIEN 02)) | ||
| 123 | D SETLINE( .BPLN,"Pat ient Relat ionship Co de: "_$$PA TRELSH(BPI EN02)) | ||
| 124 | D SETLINE( .BPLN,"Car dholder Fi rst Name: "_$$CRDHLD FN(BPIEN02 ,BP57)) | ||
| 125 | D SETLINE( .BPLN,"Car dholder La st Name: " _$$CRDHLDL N(BPIEN02, BP57)) | ||
| 126 | F BPCNT=BP LN:1:BPLN0 +BPSCRLNS D SETLINE( .BPLN,"") | ||
| 127 | S BPLN0=BP LN | ||
| 128 | D SETLINE( .BPLN,"Bil ling Reque st Payer S heet: "_$$ B1PYRIEN^B PSSCRU5(BP 57)) | ||
| 129 | D SETLINE( .BPLN,"Rev ersal Paye r Sheet: " _$$B2PYRIE N^BPSSCRU5 (BP57)) | ||
| 130 | D SETLINE( .BPLN,"") | ||
| 131 | Q | ||
| 132 | |||
| 133 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 134 | |||
| 135 | DISPCLM(BP LN,BP59,BP IEN02,BP57 ,BPSTYPE,B PSDTALT) ; ; ; Moved to ^BPSSC RL1 for sa ke of spac e ; D DISP CLM^BPSSCR L1 Q ; | ||
| 136 | |||
| 137 | The change s for this caused th e routine BPSSCRLG t o exceed t he SACC ma ximum size so a new routine, B PSSCRL1 wa s created and DISPCL M, DISPRSP and PREPI NFO were m oved to th e new rout ine tables below sho ws the cod e that was moved fro m DISPCLM^ BPSSCRLG t o DISPCLM^ BPSSCRL1. | ||
| 138 | Subroutine Name | ||
| 139 | DISPCLM^BP SSCRL1 | ||
| 140 | Enhancemen t Category | ||
| 141 | New | ||
| 142 | Modify | ||
| 143 | Delete | ||
| 144 | No Change | ||
| 145 | Story | ||
| 146 | US178 (Ral ly ID) | ||
| 147 | Related Op tions | ||
| 148 | BPS RPT VI EW ECME RX | ||
| 149 | Related Ro utines | ||
| 150 | Subroutine is Called By | ||
| 151 | Subroutine Calls | ||
| 152 | |||
| 153 | DISPCLM^BP SSCRLG | ||
| 154 | SETLINE^BP SSCRLG, LI NE^BPSSCRU 3, CREATED T^BPSSCRLG , SUBMTBY^ BPSSCRLG, TRTYPE^BPS SCRU5, TRC ODE^BPSSCR LG, DOSCLM ^BPSSCRLG, NFLDT^BPS BUTL, FMTE ^XLFDT, LN DC^BPSSCRU 5, QTY^BPS SCRLG, UNI TS^BPSSCRL G, DAYSSUP L^BPSSCRLG , DIV^BPSS CRLG, NPI^ BPSSCRLG, DIVNAME^BP SSCRDS, BI LLUNIT^BPS SCRLG, BIL LQTY^BPSSC RLG, UNTPR ICE^BPSSCR LG, TOTPRI CE^BPSSCRL G, INGRCST ^BPSSCRLG, DISPFEE^B PSSCRLG, U CCHRG^BPSS CRLG, ADMN FEE^BPSSCR LG, INSUR5 7^BPSSCRLG , GRPNM^BP SSCRLG, RX COB57^BPSS CRLG, PHPL ANID^BPSSC RLG, BIN^B PSSCRLG, P CN^BPSSCRL G, GETVER^ BPSSCRLG, GRPID^BPSS CRLG, PATR ELSH^BPSSC RLG, CRDHL DFN^BPSSCR LG, CRDHLD LN^BPSSCRL G, FACIDQ^ BPSSCRLG, B1PYRIEN^B PSSCRU5, | ||
| 155 | |||
| 156 | Data Dicti onary (DD) Reference s | ||
| 157 | None | ||
| 158 | Related Pr otocols | ||
| 159 | None | ||
| 160 | Related In tegration Control Re gistration s (ICRs) | ||
| 161 | None | ||
| 162 | Data Passi ng | ||
| 163 | Input | ||
| 164 | Output Re ference | ||
| 165 | Both | ||
| 166 | Global Re ference | ||
| 167 | Local | ||
| 168 | Input Attr ibute Name and Defin ition | ||
| 169 | Name: | ||
| 170 | Definition : | ||
| 171 | New Modify Delete No Cha nge | ||
| 172 | Output Att ribute Nam e and Defi nition | ||
| 173 | Name: | ||
| 174 | Definition : | ||
| 175 | New Modify Delete No Cha nge | ||
| 176 | Current Lo gic | ||
| 177 | |||
| 178 | N/A – new routine | ||
| 179 | |||
| 180 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 181 | |||
| 182 | ;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) S BPX ="Ingredie nt Cost: " _$$INGRCST ^BPSSCRLG( BPIEN02) S BPX=BPX_" Dispensin g Fee: "_$ $DISPFEE^B PSSCRLG(BP IEN02) D S ETLINE^BPS SCRLG(.BPL N,BPX) S B PX="U&C Ch arge: "_$$ UCCHRG^BPS SCRLG(BPIE N02) S BPX =BPX_" Adm in Fee: "_ $$ADMNFEE^ BPSSCRLG(B PIEN02) D SETLINE^BP SSCRLG(.BP LN,BPX) D SETLINE^BP SSCRLG(.BP LN,"") D S ETLINE^BPS SCRLG(.BPL N,"Insuran ce Name: " _$$INSUR57 ^BPSSCRLG( BP57)) D S ETLINE^BPS SCRLG(.BPL N,"Group N ame: "_$$G RPNM^BPSSC RLG(BPIEN0 2)) D SETL INE^BPSSCR LG(.BPLN," Rx Coordin ation of B enefits: " _$$RXCOB57 ^BPSSCRLG( BP57)) D S ETLINE^BPS SCRLG(.BPL N,"Pharmac y Plan ID: "_$$PHPLA NID^BPSSCR LG(BP57)) D SETLINE^ BPSSCRLG(. BPLN,"BIN: "_$$BIN^B PSSCRLG(BP IEN02)) D SETLINE^BP SSCRLG(.BP LN,"PCN: " _$$PCN^BPS SCRLG(BPIE N02)) D SE TLINE^BPSS CRLG(.BPLN ,"NCPDP Ve rsion: "_$ $GETVER^BP SSCRLG(BPI EN02)) D S ETLINE^BPS SCRLG(.BPL N,"Group I D: "_$$GRP ID^BPSSCRL G(BPIEN02) ) D SETLIN E^BPSSCRLG (.BPLN,"Ca rdholder I D: "_$$CRD HLDID^BPSS CRLG(BPIEN 02)) D SET LINE^BPSSC RLG(.BPLN, "Patient R elationshi p Code: "_ $$PATRELSH ^BPSSCRLG( BPIEN02)) D SETLINE^ BPSSCRLG(. BPLN,"Card holder Fir st Name: " _$$CRDHLDF N^BPSSCRLG (BPIEN02,B P57)) D SE TLINE^BPSS CRLG(.BPLN ,"Cardhold er Last Na me: "_$$CR DHLDLN^BPS SCRLG(BPIE N02,BP57)) ; BPS*1*2 2 D SETLIN E^BPSSCRLG (.BPLN,"Fa cility ID Qualifier: "_$$FACID Q^BPSSCRLG (BPIEN02)) F BPCNT=B PLN:1:BPLN 0+BPSCRLNS D SETLINE ^BPSSCRLG( .BPLN,"") S BPLN0=BP LN D SETLI NE^BPSSCRL G(.BPLN,"B illing Req uest Payer Sheet: "_ $$B1PYRIEN ^BPSSCRU5( BP57)) D S ETLINE^BPS SCRLG(.BPL N,"Reversa l Payer Sh eet: "_$$B 2PYRIEN^BP SSCRU5(BP5 7)) D SETL INE^BPSSCR LG(.BPLN," VA Claim I D: "_$P($G (^BPSC(+BP IEN02,0)), U,1)) D SE TLINE^BPSS CRLG(.BPLN ,"") Q ; | ||
| 183 | |||
| 184 | |||
| 185 | A new tag was create d to get t he data fo r the Faci lity ID Qu alifier, w hich is de scribed be low. | ||
| 186 | |||
| 187 | Subroutine Name | ||
| 188 | FACIDQ^BPS SCRLG | ||
| 189 | Enhancemen t Category | ||
| 190 | New | ||
| 191 | Modify | ||
| 192 | Delete | ||
| 193 | No Change | ||
| 194 | Story | ||
| 195 | US178 (Ral ly ID) | ||
| 196 | Related Op tions | ||
| 197 | BPS RPT VI EW ECME RX | ||
| 198 | Related Ro utines | ||
| 199 | Subroutine is Called By | ||
| 200 | Subroutine Calls | ||
| 201 | |||
| 202 | DISPCLM^BP SSCRL1 | ||
| 203 | n/a | ||
| 204 | Data Dicti onary (DD) Reference s | ||
| 205 | None | ||
| 206 | Related Pr otocols | ||
| 207 | None | ||
| 208 | Related In tegration Control Re gistration s (ICRs) | ||
| 209 | None | ||
| 210 | Data Passi ng | ||
| 211 | Input | ||
| 212 | Output Re ference | ||
| 213 | Both | ||
| 214 | Global Re ference | ||
| 215 | Local | ||
| 216 | Input Attr ibute Name and Defin ition | ||
| 217 | Name: BPIE N02 | ||
| 218 | Definition : IEN to # 9002313.02 | ||
| 219 | New Modify Delete No Cha nge | ||
| 220 | Output Att ribute Nam e and Defi nition | ||
| 221 | Name: $$FA CIDQ | ||
| 222 | Definition : Facilit y ID Quali fier | ||
| 223 | New Modify Delete No Cha nge | ||
| 224 | Current Lo gic | ||
| 225 | |||
| 226 | N/A | ||
| 227 | |||
| 228 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 229 | |||
| 230 | ;Facility ID and Fa cility ID Qualifier - BPS*1*22 FACIDQ(BPE IN02); Q $ P($G(^BPSC (BPIEN02,4 00,1,”B90” )),U,5) ; | ||
| 231 | |||
| 232 | The tables below sho ws the cod e that was moved fro m DISPRSP^ BPSSCRLG t o DISPRSP^ BPSSCRLG a long with the call t o get the Reconcilia tion ID. | ||
| 233 | Subroutine Name | ||
| 234 | DISPRSP^BP SSCRLG | ||
| 235 | Enhancemen t Category | ||
| 236 | ☐ New | ||
| 237 | ☒ Modify | ||
| 238 | ☐ Delete | ||
| 239 | ☐ No Chang e | ||
| 240 | Story | ||
| 241 | US178 (Ral ly ID) | ||
| 242 | Related Op tions | ||
| 243 | BPS RPT CL AIMS RESPO NSE | ||
| 244 | Related Ro utines | ||
| 245 | Subroutine is Called By | ||
| 246 | Subroutine Calls | ||
| 247 | |||
| 248 | PREPINFO^B PSSCRLG | ||
| 249 | DISPRSP^BP SSCRL1 | ||
| 250 | Data Dicti onary (DD) Reference s | ||
| 251 | None | ||
| 252 | Related Pr otocols | ||
| 253 | None | ||
| 254 | Related In tegration Control Re gistration s (ICRs) | ||
| 255 | None | ||
| 256 | Data Passi ng | ||
| 257 | Input | ||
| 258 | Output Re ference | ||
| 259 | Both | ||
| 260 | Global Re ference | ||
| 261 | Local | ||
| 262 | Input Attr ibute Name and Defin ition | ||
| 263 | Name: BPLN | ||
| 264 | Definition : Line Cou nter | ||
| 265 | New Modify Delete No Cha nge | ||
| 266 | Name: BP59 | ||
| 267 | Definition : ptr to # 9002313.59 | ||
| 268 | New Modify Delete No Cha nge | ||
| 269 | Name: BPIE N03 | ||
| 270 | Definition : IEN to # 9002313.03 | ||
| 271 | New Modify Delete No Cha nge | ||
| 272 | Name: BP57 | ||
| 273 | Definition : ptr to # 9002313.57 | ||
| 274 | New Modify Delete No Cha nge | ||
| 275 | Name: BPST YPE | ||
| 276 | Definition : Claim Ty pe - “C”=C laim Reque st, “R”=Cl aim Revers al | ||
| 277 | New Modify Delete No Cha nge | ||
| 278 | Name: BPSD TALT | ||
| 279 | Definition : Date res ponse rece ived | ||
| 280 | New Modify Delete No Cha nge | ||
| 281 | Output Att ribute Nam e and Defi nition | ||
| 282 | Name: none | ||
| 283 | Definition : | ||
| 284 | New Modify Delete No Cha nge | ||
| 285 | Current Lo gic | ||
| 286 | |||
| 287 | DISPRSP(BP LN,BP59,BP IEN03,BP57 ,BPSTYPE,B PSDTALT); | ||
| 288 | N BPSCRLNS S BPSCRLN S=17 ;(see "BPS LSTM N LOG" LM template: Bottom=21, Top = 4,2 1-4=17) | ||
| 289 | N BPX,BPLN 0,BPCNT,BP RJCDS,BPRJ ,BPSTR1,BP STYP2,BDUR ,BMSG,PTRE SP | ||
| 290 | S BPLN0=BP LN | ||
| 291 | S BPSTYP2= $S(BPSTYPE ="C":"CLAI M REQUEST" ,BPSTYPE=" R":"REVERS AL",1:"") | ||
| 292 | S BPSTR1=" Response I nformation ("_BPSTY P2_")(#"_B PIEN03_")" | ||
| 293 | D SETLINE( .BPLN,BPST R1_$$LINE^ BPSSCRU3(7 9-$L(BPSTR 1),"-")) | ||
| 294 | D SETLINE( .BPLN,"Res ponse Rece ived: "_$$ RESPREC(BP IEN03,BPSD TALT)) | ||
| 295 | D SETLINE( .BPLN,"Dat e of Servi ce: "_$$DO SRSP(BPIEN 03)) | ||
| 296 | D SETLINE( .BPLN,"Tra nsaction R esponse St atus: "_$$ RESPSTAT^B PSSCRU5(BP IEN03)) | ||
| 297 | D SETLINE( .BPLN,"Tot al Amount Paid: $"_$ $TOTAMNT(B PIEN03)) | ||
| 298 | D SETLINE( .BPLN,"Ing redient Co st Paid: $ "_$$ICPAID (BPIEN03)_ " Dispen sing Fee P aid: $"_$$ DFPAID(BPI EN03)) | ||
| 299 | S PTRESP=$ $PTRESP(BP IEN03) S P TRESP=$S(P TRESP="":" $",PTRESP= "0.00":"$0 ",1:"($"_P TRESP_")") | ||
| 300 | D SETLINE( .BPLN,"Pat ient Resp (INS): "_P TRESP) | ||
| 301 | D SETLINE( .BPLN,"Rej ect code(s ): ") | ||
| 302 | D REJCODES ^BPSSCRU5( BPIEN03,.B PRJCDS) | ||
| 303 | S BPRJ="" | ||
| 304 | F S BPRJ= $O(BPRJCDS (BPRJ)) Q: BPRJ="" D | ||
| 305 | . D SETLIN E(.BPLN," "_$$GETRJN AM^BPSSCRU 3(BPRJ)) | ||
| 306 | D WRAPLN^B PSSCRU5(.B PLN,$$MESS AGE(BPIEN0 3),76,"Pay er Message : ",5) | ||
| 307 | D ADDMESS( BPIEN03,1, .BPADDMSG) | ||
| 308 | S BMSG="" F S BMSG= $O(BPADDMS G(BMSG)) Q :BMSG="" D | ||
| 309 | . D WRAPLN ^BPSSCRU5( .BPLN,BPAD DMSG(BMSG) ,76,$S(BMS G=1:"Payer Additiona l Message: ",1:" "),5) | ||
| 310 | D SETLINE( .BPLN,"Rea son for Se rvice Code : "_$$DURR EAS(BPIEN0 3)) | ||
| 311 | D SETLINE( .BPLN,"DUR Text: "_$ $DURTEXT(B PIEN03)) | ||
| 312 | D WRAPLN^B PSSCRU5(.B PLN,$$DURA DD(BPIEN03 ),76,"DUR Additional Text: ",5 ) | ||
| 313 | ; BPS*1*18 : Print C laim Log [ BPS PRTCL USRSCR CLA IM LOG] (w hen includ ed in the incoming r esponse) | ||
| 314 | D SETLINE( .BPLN,"HPI D/OEID: "_ $$HPID(BPI EN03,BP57) ) | ||
| 315 | F BPCNT=1: 1:2 D SETL INE(.BPLN, "") | ||
| 316 | Q | ||
| 317 | |||
| 318 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 319 | |||
| 320 | DISPRSP(BP LN,BP59,BP IEN03,BP57 ,BPSTYPE,B PSDTALT) ; ; ; Moved to ^BPSSC RL1 for sa ke of spac e ; D DISP RSP^BPSSCR L1 Q ; | ||
| 321 | |||
| 322 | |||
| 323 | Subroutine Name | ||
| 324 | DISPRSP^BP SSCRL1 | ||
| 325 | Enhancemen t Category | ||
| 326 | New | ||
| 327 | Modify | ||
| 328 | Delete | ||
| 329 | No Change | ||
| 330 | Story | ||
| 331 | US178 (Ral ly ID) | ||
| 332 | Related Op tions | ||
| 333 | BPS RPT CL AIMS RESPO NSE | ||
| 334 | Related Ro utines | ||
| 335 | Subroutine is Called By | ||
| 336 | Subroutine Calls | ||
| 337 | |||
| 338 | DISPRSP^BP SSCRLG | ||
| 339 | SETLINE^BP SSCRLG, LI NE^BPSSCRU 3, RESPREC ^BPSSCRLG, DOSRSP^BP SSCLRG, RE SPSTAT^BPS SCRU5,TOTA MNT^BPSSCR LG, ICPAID ^BPSSCRLG, PTRESP^BP SSCRLG, RE CONID^BPSS CRLG,REJCO DES^BPSSCR U5, GETRJN AM^BPSSCRU 3, WRAPLN^ BPSSCRU5, MESSAGE^BP SSCRLG, AD DMESS^BPSS CLRG, DURR EAS^BPSSCR LG, DURTEX T^BPSSCRLG ,DURADD^BP SSCRLG, HP ID^BPSSCRL G | ||
| 340 | Data Dicti onary (DD) Reference s | ||
| 341 | None | ||
| 342 | Related Pr otocols | ||
| 343 | None | ||
| 344 | Related In tegration Control Re gistration s (ICRs) | ||
| 345 | None | ||
| 346 | Data Passi ng | ||
| 347 | Input | ||
| 348 | Output Re ference | ||
| 349 | Both | ||
| 350 | Global Re ference | ||
| 351 | Local | ||
| 352 | Input Attr ibute Name and Defin ition | ||
| 353 | Name: BPLN | ||
| 354 | Definition : Line Cou nter | ||
| 355 | New Modify Delete No Cha nge | ||
| 356 | Name: BP59 | ||
| 357 | Definition : ptr to # 9002313.59 | ||
| 358 | New Modify Delete No Cha nge | ||
| 359 | Name: BPIE N03 | ||
| 360 | Definition : IEN to # 9002313.03 | ||
| 361 | New Modify Delete No Cha nge | ||
| 362 | Name: BP57 | ||
| 363 | Definition : ptr to # 9002313.57 | ||
| 364 | New Modify Delete No Cha nge | ||
| 365 | Name: BPST YPE | ||
| 366 | Definition : Claim Ty pe - “C”=C laim Reque st, “R”=Cl aim Revers al | ||
| 367 | New Modify Delete No Cha nge | ||
| 368 | Name: BPSD TALT | ||
| 369 | Definition : Date res ponse rece ived | ||
| 370 | New Modify Delete No Cha nge | ||
| 371 | Output Att ribute Nam e and Defi nition | ||
| 372 | Name: | ||
| 373 | Definition : | ||
| 374 | New Modify Delete No Cha nge | ||
| 375 | Current Lo gic | ||
| 376 | |||
| 377 | N/A – new routine | ||
| 378 | |||
| 379 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 380 | ;display response r ecordDISPR SP(BPLN,BP 59,BPIEN03 ,BP57,BPST YPE,BPSDTA LT) ; N BP SCRLNS S B PSCRLNS=17 ;(see "BP S LSTMN LO G" LM temp late: Bott om=21, Top = 4, 21-4 =17) N BPX ,BPLN0,BPC NT,BPRJCDS ,BPRJ,BPST R1,BPSTYP2 ,BDUR,BMSG ,PTRESP S BPLN0=BPLN S BPSTYP2 =$S(BPSTYP E="C":"CLA IM REQUEST ",BPSTYPE= "R":"REVER SAL",1:"") S BPSTR1= "Response Informatio n ("_BPSTY P2_")(#"_B PIEN03_")" D SETLINE ^BPSSCRLG( .BPLN,BPST R1_$$LINE^ BPSSCRU3(7 9-$L(BPSTR 1),"-")) D SETLINE^B PSSCRLG(.B PLN,"Respo nse Receiv ed: "_$$RE SPREC^BPSS CRLG(BPIEN 03,BPSDTAL T)) D SETL INE^BPSSCR LG(.BPLN," Date of Se rvice: "_$ $DOSRSP^BP SSCRLG(BPI EN03)) D S ETLINE^BPS SCRLG(.BPL N,"Transac tion Respo nse Status : "_$$RESP STAT^BPSSC RU5(BPIEN0 3)) D SETL INE^BPSSCR LG(.BPLN," Total Amou nt Paid: $ "_$$TOTAMN T^BPSSCRLG (BPIEN03)) D SETLINE ^BPSSCRLG( .BPLN,"Ing redient Co st Paid: $ "_$$ICPAID ^BPSSCRLG( BPIEN03)_" Dispensin g Fee Paid : $"_$$DFP AID^BPSSCR LG(BPIEN03 )) S PTRES P=$$PTRESP ^BPSSCRLG( BPIEN03) S PTRESP=$S (PTRESP="" :"$",PTRES P="0.00":" $0",1:"($" _PTRESP_") ") D SETLI NE^BPSSCRL G(.BPLN,"P atient Res p (INS): " _PTRESP) ; BPS*1*22 D SETLINE^ BPSSCRLG(. BPLN,"Reco nciliation ID: "_$$R ECONID^BPS SCRLG(BPIE N03)) D SE TLINE^BPSS CRLG(.BPLN ,"Reject c ode(s): ") D REJCODE S^BPSSCRU5 (BPIEN03,. BPRJCDS) S BPRJ="" F S BPRJ=$ O(BPRJCDS( BPRJ)) Q:B PRJ="" D . D SETLIN E^BPSSCRLG (.BPLN," " _$$GETRJNA M^BPSSCRU3 (BPRJ)) D WRAPLN^BPS SCRU5(.BPL N,$$MESSAG E^BPSSCRLG (BPIEN03), 76,"Payer Message: " ,5) D ADDM ESS^BPSSCR LG(BPIEN03 ,1,.BPADDM SG) S BMSG ="" F S B MSG=$O(BPA DDMSG(BMSG )) Q:BMSG= "" D . D WRAPLN^BPS SCRU5(.BPL N,BPADDMSG (BMSG),76, $S(BMSG=1: "Payer Add itional Me ssage: ",1 :" "),5) D SETLINE^B PSSCRLG(.B PLN,"Reaso n for Serv ice Code: "_$$DURREA S^BPSSCRLG (BPIEN03)) D SETLINE ^BPSSCRLG( .BPLN,"DUR Text: "_$ $DURTEXT^B PSSCRLG(BP IEN03)) D WRAPLN^BPS SCRU5(.BPL N,$$DURADD ^BPSSCRLG( BPIEN03),7 6,"DUR Add itional Te xt: ",5) ; BPS*1*18: Print Cla im Log [BP S PRTCL US RSCR CLAIM LOG] (whe n included in the in coming res ponse) D S ETLINE^BPS SCRLG(.BPL N,"HPID/OE ID: "_$$HP ID^BPSSCRL G(BPIEN03, BP57)) F B PCNT=1:1:2 D SETLINE ^BPSSCRLG( .BPLN,"") Q ; | ||
| 381 | |||
| 382 | |||
| 383 | A new tag was create d to get t he data fo r the Reco nciliation ID, which is descri bed below. | ||
| 384 | |||
| 385 | Subroutine Name | ||
| 386 | RECONID^BP SSCRLG | ||
| 387 | Enhancemen t Category | ||
| 388 | New | ||
| 389 | Modify | ||
| 390 | Delete | ||
| 391 | No Change | ||
| 392 | Story | ||
| 393 | US178 (Ral ly ID) | ||
| 394 | Related Op tions | ||
| 395 | BPS RPT CL AIMS RESPO NSE | ||
| 396 | Related Ro utines | ||
| 397 | Subroutine is Called By | ||
| 398 | Subroutine Calls | ||
| 399 | |||
| 400 | DISPRSP^BP SSCRL1 | ||
| 401 | n/a | ||
| 402 | Data Dicti onary (DD) Reference s | ||
| 403 | None | ||
| 404 | Related Pr otocols | ||
| 405 | None | ||
| 406 | Related In tegration Control Re gistration s (ICRs) | ||
| 407 | None | ||
| 408 | Data Passi ng | ||
| 409 | Input | ||
| 410 | Output Re ference | ||
| 411 | Both | ||
| 412 | Global Re ference | ||
| 413 | Local | ||
| 414 | Input Attr ibute Name and Defin ition | ||
| 415 | Name: BPIE N03 | ||
| 416 | Definition : IEN to # 9002313.03 | ||
| 417 | New Modify Delete No Cha nge | ||
| 418 | Output Att ribute Nam e and Defi nition | ||
| 419 | Name: $$RE CONID | ||
| 420 | Definition : Reconci liation ID | ||
| 421 | New Modify Delete No Cha nge | ||
| 422 | Current Lo gic | ||
| 423 | |||
| 424 | N/A | ||
| 425 | |||
| 426 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 427 | |||
| 428 | RECONID(BP EIN03); R econciliat ion ID – B PS*1*22 | ||
| 429 | Q $ P($G(^BPSR (BPIEN03,1 000,1,”B98 ”)),U,1) | ||
| 430 | |||
| 431 | |||
| 432 | The tables below sho ws the cod e that was moved fro m PREPINFO ^BPSSCRLG to PREPINF O^BPSSCRL1 . | ||
| 433 | |||
| 434 | Subroutine Name | ||
| 435 | PREPINFO^B PSSCRLG | ||
| 436 | Enhancemen t Category | ||
| 437 | New | ||
| 438 | Modify | ||
| 439 | Delete | ||
| 440 | No Change | ||
| 441 | Story | ||
| 442 | US178 (Ral ly ID) | ||
| 443 | Related Op tions | ||
| 444 | BPS RPT CL AIMS RESPO NSE | ||
| 445 | Related Ro utines | ||
| 446 | Subroutine is Called By | ||
| 447 | Subroutine Calls | ||
| 448 | |||
| 449 | INIT^BPSSC RLG | ||
| 450 | n/a | ||
| 451 | Data Dicti onary (DD) Reference s | ||
| 452 | None | ||
| 453 | Related Pr otocols | ||
| 454 | None | ||
| 455 | Related In tegration Control Re gistration s (ICRs) | ||
| 456 | None | ||
| 457 | Data Passi ng | ||
| 458 | Input | ||
| 459 | Output Re ference | ||
| 460 | Both | ||
| 461 | Global Re ference | ||
| 462 | Local | ||
| 463 | Input Attr ibute Name and Defin ition | ||
| 464 | Name: | ||
| 465 | Definition : | ||
| 466 | New Modify Delete No Cha nge | ||
| 467 | Output Att ribute Nam e and Defi nition | ||
| 468 | Name: | ||
| 469 | Definition : | ||
| 470 | New Modify Delete No Cha nge | ||
| 471 | Current Lo gic | ||
| 472 | ;input: ; BPDFN: pa tient ien #2 ; BP36: insurance ien #36 ; BP59: ptr to #90023 13.59 ; re turns # of linesPREP INFO(BPLN, BPDFN,BP36 ,BP59) ; N BPSECME I '$G(BP59) Q 0 I '$G (BP36) Q 0 I '$G(BPD FN) Q 0 N BPSCRLNS S BPSCRLNS= 17 ;(see " BPS LSTMN LOG" LM te mplate: Bo ttom=21, T op = 4, 21 -4=17) N B PX,BPRXIEN ,BPRXN,BPR EF,BP1,BPL STCLM,BPLS TRSP,BPDAT 59,BPUSR,B PSTRT,BPHI ST,BPQ N B PDT,BPLN0, BPCNT,DFN, VADM S DFN =BPDFN D D EM^VADPT S BP1=$$RXR EF^BPSSCRU 2(BP59) S BPRXIEN=$P (BP1,U,1) S BPRXN=$$ RXNUM^BPSS CRU2(+BPRX IEN) S BPR EF=$P(BP1, U,2) S BPD AT59(0)=$G (^BPST(BP5 9,0)) ;cre ate histor y D MKHIST ^BPSSCRU5( BP59,.BPHI ST) ; S BP LN0=BPLN D SETLINE(. BPLN,"Phar macy ECME Log") D SE TLINE(.BPL N,"") S BP X=$$RJ^BPS SCR02("Rx #: ",20)_B PRXN_"/"_B PREF S BPS ECME=$$ECM ENUM^BPSSC RU2(BP59) S BPX=BPX_ $$RJ^BPSSC R02("ECME #: ",20)_B PSECME D S ETLINE(.BP LN,BPX) S BPX=$$RJ^B PSSCR02("D rug: ",20) _$$DRGNAM^ BPSSCRU2($ $GETDRG59^ BPSSCRU2(B P59)) D SE TLINE(.BPL N,BPX) S B PX=$$RJ^BP SSCR02("Pa tient: ",2 0) S BPX=B PX_$$LJ^BP SSCR02($$P ATNAME^BPS SCRU2(BPDF N)_" "_$$S SN4^BPSSCR U2(BPDFN), 25) S BPX= BPX_$$LJ^B PSSCR02("S ex: "_$P($ G(VADM(5)) ,"^",1),10 ) S BPX=BP X_$$LJ^BPS SCR02("DOB : "_$P($G( VADM(3))," ^",2)_"("_ $G(VADM(4) )_")",20) D SETLINE( .BPLN,BPX) S BPX=$$R J^BPSSCR02 ("Transact ion Number : ",20) S BPX=BPX_$P ($G(^BPST( BP59,0)),U ,1) D SETL INE(.BPLN, BPX) S BPX =$$RJ^BPSS CR02("Last Submitted : ",20) S BPSTRT=$P( BPDAT59(0) ,U,11) ;@# need to c heck with analyst if this is a START DAT E I BPSTRT ]"" S BPX= BPX_$$DATE TIME^BPSSC RU5(BPSTRT ) D SETLIN E(.BPLN,BP X) S BPX=$ $RJ^BPSSCR 02("Last S ubmitted B y: ",20) S BPUSR=$P( BPDAT59(0) ,U,10) I B PUSR]"" S BPX=BPX_$$ GETUSRNM^B PSSCRU1(BP USR) D SET LINE(.BPLN ,BPX) ; ;l atest clai m S BP1=+$ O(BPHIST(" C",9999999 9),-1) I B P1=0 D SET LINE(.BPLN ,""),SETLI NE(.BPLN," ------ No electronic claims -- ----") Q B PLN S BP1= +$O(BPHIST ("C",BP1,0 )) S BPX=$ $RJ^BPSSCR 02("Last V A Claim #: ",20)_$P( $G(^BPSC(+ BP1,0)),U, 1) D SETLI NE(.BPLN,B PX) F BPCN T=BPLN:1:B PLN0+BPSCR LNS D SETL INE(.BPLN, "") ;proce ss history N BPTYPE, BPIEN,BPIE NRS S BPDT =99999999 F S BPDT= $O(BPHIST( "C",BPDT), -1) Q:+BPD T=0 D . S BPIEN=+$O( BPHIST("C" ,BPDT,0)) Q:BPIEN="" . D DISPC LM(.BPLN,B P59,BPIEN, +BPHIST("C ",BPDT,BPI EN),$P(BPH IST("C",BP DT,BPIEN), U,2),BPDT) . S BPIEN RS=0 . F S BPIENRS= $O(BPHIST( "C",BPDT,B PIEN,"R",B PIENRS)) Q :+BPIENRS= 0 D . . D DISPRSP(.B PLN,BP59,B PIENRS,+BP HIST("C",B PDT,BPIEN, "R",BPIENR S),$P(BPHI ST("C",BPD T,BPIEN,"R ",BPIENRS) ,U,2),BPDT ) . . D DI SPPYR(.BPL N,BPIENRS) Q BPLN ; | ||
| 473 | |||
| 474 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 475 | PREPINFO(B PLN,BPDFN, BP36,BP59) ; ;input: ; BPDFN: patient ie n #2 ; BP3 6: insuran ce ien #36 ; BP59: p tr to #900 2313.59 ; returns # of lines ; ; Moved t o ^BPSSCRL 1 for sake of space ; Q $$PREP INFO^BPSSC RL1(BPLN,B PDFN,BP36, BP59) ; | ||
| 476 | |||
| 477 | |||
| 478 | Subroutine Name | ||
| 479 | PREPINFO^B PSSCRL1 | ||
| 480 | Enhancemen t Category | ||
| 481 | New | ||
| 482 | Modify | ||
| 483 | Delete | ||
| 484 | No Change | ||
| 485 | Story | ||
| 486 | US178 (Ral ly ID) | ||
| 487 | Related Op tions | ||
| 488 | BPS RPT CL AIMS RESPO NSE | ||
| 489 | Related Ro utines | ||
| 490 | Subroutine is Called By | ||
| 491 | Subroutine Calls | ||
| 492 | |||
| 493 | PREPINFO^B PSSCRLG | ||
| 494 | n/a | ||
| 495 | Data Dicti onary (DD) Reference s | ||
| 496 | None | ||
| 497 | Related Pr otocols | ||
| 498 | None | ||
| 499 | Related In tegration Control Re gistration s (ICRs) | ||
| 500 | None | ||
| 501 | Data Passi ng | ||
| 502 | Input | ||
| 503 | Output Re ference | ||
| 504 | Both | ||
| 505 | Global Re ference | ||
| 506 | Local | ||
| 507 | Input Attr ibute Name and Defin ition | ||
| 508 | Name: | ||
| 509 | Definition : | ||
| 510 | New Modify Delete No Cha nge | ||
| 511 | Output Att ribute Nam e and Defi nition | ||
| 512 | Name: | ||
| 513 | Definition : | ||
| 514 | New Modify Delete No Cha nge | ||
| 515 | Current Lo gic | ||
| 516 | N/A – new routine | ||
| 517 | |||
| 518 | Modified L ogic (Chan ges are hi ghlighted) | ||
| 519 | PREPINFO(B PLN,BPDFN, BP36,BP59) ; ;input: ; BPDFN: patient ie n #2 ; BP3 6: insuran ce ien #36 ; BP59: p tr to #900 2313.59 ; returns # of lines N BPSECME I '$G(BP59) Q 0 I '$G (BP36) Q 0 I '$G(BPD FN) Q 0 N BPSCRLNS S BPSCRLNS= 17 ;(see " BPS LSTMN LOG" LM te mplate: Bo ttom=21, T op = 4, 21 -4=17) N B PX,BPRXIEN ,BPRXN,BPR EF,BP1,BPL STCLM,BPLS TRSP,BPDAT 59,BPUSR,B PSTRT,BPHI ST,BPQ N B PDT,BPLN0, BPCNT,DFN, VADM S DFN =BPDFN D D EM^VADPT S BP1=$$RXR EF^BPSSCRU 2(BP59) S BPRXIEN=$P (BP1,U,1) S BPRXN=$$ RXNUM^BPSS CRU2(+BPRX IEN) S BPR EF=$P(BP1, U,2) S BPD AT59(0)=$G (^BPST(BP5 9,0)) ;cre ate histor y D MKHIST ^BPSSCRU5( BP59,.BPHI ST) ; S BP LN0=BPLN D SETLINE^B PSSCRLG(.B PLN,"Pharm acy ECME L og") D SET LINE^BPSSC RLG(.BPLN, "") S BPX= $$RJ^BPSSC R02("Rx #: ",20)_BPR XN_"/"_BPR EF S BPSEC ME=$$ECMEN UM^BPSSCRU 2(BP59) S BPX=BPX_$$ RJ^BPSSCR0 2("ECME #: ",20)_BPS ECME D SET LINE^BPSSC RLG(.BPLN, BPX) S BPX =$$RJ^BPSS CR02("Drug : ",20)_$$ DRGNAM^BPS SCRU2($$GE TDRG59^BPS SCRU2(BP59 )) D SETLI NE^BPSSCRL G(.BPLN,BP X) S BPX=$ $RJ^BPSSCR 02("Patien t: ",20) S BPX=BPX_$ $LJ^BPSSCR 02($$PATNA ME^BPSSCRU 2(BPDFN)_" "_$$SSN4^ BPSSCRU2(B PDFN),25) S BPX=BPX_ $$LJ^BPSSC R02("Sex: "_$P($G(VA DM(5)),"^" ,1),10) S BPX=BPX_$$ LJ^BPSSCR0 2("DOB: "_ $P($G(VADM (3)),"^",2 )_"("_$G(V ADM(4))_") ",20) D SE TLINE^BPSS CRLG(.BPLN ,BPX) S BP X=$$RJ^BPS SCR02("Tra nsaction N umber: ",2 0) S BPX=B PX_$P($G(^ BPST(BP59, 0)),U,1) D SETLINE^B PSSCRLG(.B PLN,BPX) S BPX=$$RJ^ BPSSCR02(" Last Submi tted: ",20 ) S BPSTRT =$P(BPDAT5 9(0),U,11) ;@# need to check w ith analys t if this is a START DATE I BP STRT]"" S BPX=BPX_$$ DATETIME^B PSSCRU5(BP STRT) D SE TLINE^BPSS CRLG(.BPLN ,BPX) S BP X=$$RJ^BPS SCR02("Las t Submitte d By: ",20 ) S BPUSR= $P(BPDAT59 (0),U,10) I BPUSR]"" S BPX=BPX _$$GETUSRN M^BPSSCRU1 (BPUSR) D SETLINE^BP SSCRLG(.BP LN,BPX) ; ;latest cl aim S BP1= +$O(BPHIST ("C",99999 999),-1) I BP1=0 D S ETLINE^BPS SCRLG(.BPL N,""),SETL INE^BPSSCR LG(.BPLN," ------ No electronic claims -- ----") Q B PLN S BP1= +$O(BPHIST ("C",BP1,0 )) S BPX=$ $RJ^BPSSCR 02("Last V A Claim #: ",20)_$P( $G(^BPSC(+ BP1,0)),U, 1) D SETLI NE^BPSSCRL G(.BPLN,BP X) F BPCNT =BPLN:1:BP LN0+BPSCRL NS D SETLI NE^BPSSCRL G(.BPLN,"" ) ;process history N BPTYPE,BP IEN,BPIENR S S BPDT=9 9999999 F S BPDT=$O (BPHIST("C ",BPDT),-1 ) Q:+BPDT= 0 D . S BP IEN=+$O(BP HIST("C",B PDT,0)) Q: BPIEN="" . D DISPCLM (.BPLN,BP5 9,BPIEN,+B PHIST("C", BPDT,BPIEN ),$P(BPHIS T("C",BPDT ,BPIEN),U, 2),BPDT) . S BPIENRS =0 . F S BPIENRS=$O (BPHIST("C ",BPDT,BPI EN,"R",BPI ENRS)) Q:+ BPIENRS=0 D . . D DI SPRSP(.BPL N,BP59,BPI ENRS,+BPHI ST("C",BPD T,BPIEN,"R ",BPIENRS) ,$P(BPHIST ("C",BPDT, BPIEN,"R", BPIENRS),U ,2),BPDT) . . D DISP PYR^BPSSCR LG(.BPLN,B PIENRS) Q BPLN ; | ||
| 520 | |||
| 521 | |||
| 522 | |||
| 523 | Back Out / Rollback Procedure | ||
| 524 | 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. | ||
| 525 | |||
| 526 | To back ou t this enh ancement, the routin e ^BPSSCRL G 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 ency patch . | ||
| 527 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.