Produced by Araxis Merge on 4/17/2018 8:06:33 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+US19+v1.01.docx | Wed Dec 13 12:48:11 2017 UTC |
| 2 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US19+v1.01.docx | Wed Apr 18 01:01:40 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 2254 |
| 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 US19 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | October 20 17 | |
| 10 | Version 1. 01 | |
| 11 | User Story Number: U SRX-01 | |
| 12 | User Story Name: Upd ates to le ngths of 4 HIPAA-man dated long er fields | |
| 13 | Product Ba cklog ID: 412 | |
| 14 | Backlog Pr iority: (H igh,Medium ,Low) | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US19 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Due to HIP AA regulat ory requir ements, th e followin g VistA fi elds were increased in length in Integra ted Billin g: Name o f Insured, Group Num ber, Group Name, Sub scriber ID . Package s that acc ess the In tegrated B illing fie lds need t o be modif ied to acc ommodate t he HIPAA m andated in creased fi eld length s. Several ePharmacy files sto re these d ata fields . Because ePharmacy files stor e data exa ctly how t hose field s were sen t to or re ceived fro m the paye r, accordi ng to the NCPDP stan dard, and the NCPDP field leng ths are no t changing , the leng th of most of these fields in ePharmacy will not b e changing at this t ime. | |
| 21 | To ensure that the d ata transm itted with in the ePh armacy tra nsaction i s displaye d to the u ser, there are scree ns and rep orts that will need to be upda ted to mat ch the NCP DP Telecom munication s standard field siz es as clos e as possi ble based on limited screen av ailability . | |
| 22 | ||
| 23 | List of Co mponents: | |
| 24 | Routine: P SOREJU3 | |
| 25 | Routine: P SOREJP1 | |
| 26 | Routine: I BCNRRP3 | |
| 27 | Routine: B PSRPT4 | |
| 28 | Routine: B PSRPT5 | |
| 29 | List Templ ate: IBCNR GROUP PLA N MATCH | |
| 30 | List Templ ate: IBCNR PLAN MATC H | |
| 31 | File: IB N CPDP EVENT LOG sub-f ile INSURA NCE #366.1 412 | |
| 32 | ||
| 33 | Design – D etail | |
| 34 | There are several sc reens that need to b e updated in order f or the fie lds displa yed to mat ch the NCP DP Telecom munication s standard field siz es. | |
| 35 | The update s to the f ollowing s creens are described below: | |
| 36 | Reject Not ification Screen | |
| 37 | Match Mult iple Group Plans Opt ion [IBCNR GROUP PLA N MATCH] | |
| 38 | Match Grou p Plan to a Pharmacy Option [I BCNR PLAN MATCH] | |
| 39 | Third Part y Payer Re jects – Vi ew/Process [PSO REJE CTS VIEW/P ROCESS] – Reject Inf ormation S creen | |
| 40 | Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] – Reject I nformation Screen | |
| 41 | ||
| 42 | The Reject Notificat ion Screen will be u pdated tru ncating th e Group Na me, Group Number and Cardholde r ID in th e routine PSOREJU3. | |
| 43 | Subroutine Name | |
| 44 | DISPLAY^PS OREJU3 | |
| 45 | Enhancemen t Category | |
| 46 | New | |
| 47 | Modify | |
| 48 | Delete | |
| 49 | No Change | |
| 50 | Story | |
| 51 | US19 | |
| 52 | Related Me nu Options or ListMa n Actions | |
| 53 | n/a | |
| 54 | Related Ro utines | |
| 55 | This Subro utine is C alled By | |
| 56 | This Subro utine Call s | |
| 57 | ||
| 58 | TRIC2^PSOR EJU3, | |
| 59 | DC1^PSOREJ U1 | |
| 60 | $$GET1^DIQ , | |
| 61 | GET^PSOREJ U2 | |
| 62 | $$DVINFO^P SOREJU2, | |
| 63 | $$PTINFO^P SOREJU2, | |
| 64 | $$CLAIM^BP SUTL, | |
| 65 | PRT^PSOREJ U2 | |
| 66 | Related In tegration Control Re gistration s (ICRs) | |
| 67 | n/a | |
| 68 | Data Passi ng | |
| 69 | Parameter Input | |
| 70 | Parameter Output | |
| 71 | Function Return Val ue | |
| 72 | Global Mo dified | |
| 73 | Input Attr ibute Name and Defin ition | |
| 74 | Name: RX | |
| 75 | Definition : Rx IEN ( #52) | |
| 76 | New Modify Delete No Cha nge | |
| 77 | Name: REJ | |
| 78 | Definition : REJECT I D (IEN) | |
| 79 | New Modify Delete No Cha nge | |
| 80 | Name: KEY | |
| 81 | Definition : Display “Press any KEY to co ntinue…” ( 1-YES/0-NO ) (Default : 0) | |
| 82 | New Modify Delete No Cha nge | |
| 83 | Name: RRR | |
| 84 | Definition : Reject R esolution Required I nformation Flag(0/1 )^Threshol d Amt^Gros s Amt Due (Default: 0) | |
| 85 | If Flag=0, there is not Reject Resolutio n Required reject co de. | |
| 86 | New Modify Delete No Cha nge | |
| 87 | Output Att ribute Nam e and Defi nition | |
| 88 | Name: n/a | |
| 89 | Definition : | |
| 90 | New Modify Delete No Cha nge | |
| 91 | Current Lo gic | |
| 92 | PSOREJU3 ; BIRM/LJE - BPS (ECME ) - Clinic al Rejects Utilities (3) ;04/2 5/08 ;;7.0 ;OUTPATIEN T PHARMACY ;**287,290 ,358,359,3 85,421,427 ,448,478** ;DEC 1997; Build 25. | |
| 93 | . | |
| 94 | . | |
| 95 | DISPLAY(RX ,REJ,KEY,R RR) ; - Di splays REJ ECT inform ation | |
| 96 | ; Input: (r) RX - Rx IEN (# 52) | |
| 97 | ; (r) REJ - REJECT ID (IEN) | |
| 98 | ; (o) KEY - Display " Press any KEY to con tinue..." (1-YES/0-N O) (Defaul t: 0) | |
| 99 | ; (o) RRR - Reject Re solution R equired in formation Flag(0/1) ^Threshold Amt^Gross Amt Due (Default: 0) | |
| 100 | ; If Flag = 0, there is no Reje ct Resolut ion Requir ed reject code. Par ameter add ed with PS O*421 | |
| 101 | ; | |
| 102 | Q:$G(NFRO M) | |
| 103 | I '$G(RX) !'$G(REJ) Q | |
| 104 | I '$D(^PS RX(RX,"REJ ",REJ))&(' $G(PSONBIL L))&('$G(P SONPROG)) Q | |
| 105 | ; | |
| 106 | N DATA,RF L,LINE,% | |
| 107 | S RFL=+$$ GET1^DIQ(5 2.25,REJ_" ,"_RX,5) | |
| 108 | I '$G(PSO NBILL)&('$ G(PSONPROG )) D GET^P SOREJU2(RX ,RFL,.DATA ,REJ) I '$ D(DATA(REJ )) Q | |
| 109 | ; | |
| 110 | D HDR | |
| 111 | S $P(LINE ,"-",74)=" " W !?3,LI NE | |
| 112 | W !?3,$$D VINFO^PSOR EJU2(RX,RF L) | |
| 113 | W !?3,$$P TINFO^PSOR EJU2(RX) | |
| 114 | W !?3,"Rx /Drug : " ,$$GET1^DI Q(52,RX,.0 1),"/",RFL ," - ",$E( $$GET1^DIQ (52,RX,6), 1,20),?54 | |
| 115 | W:'$G(PSO NBILL)&('$ G(PSONPROG )) "ECME#: ",$P($$CL AIM^BPSBUT L(RX,RFL), U,6) | |
| 116 | D TYPE G DISP2:$G(P SONBILL)!( $G(PSONPRO G)) | |
| 117 | I $G(DATA (REJ,"PAYE R MESSAGE" ))'="" W ! ?3,"Payer Message: " D PRT^PSO REJU2("PAY ER MESSAGE ",18,58) | |
| 118 | I $G(DATA (REJ,"DUR TEXT"))'=" " W !?3,"D UR Text : ",DATA (REJ,"DUR TEXT") | |
| 119 | W !?3,"In surance : ",DATA( REJ,"INSUR ANCE NAME" ),?50,"Con tact: ",DA TA(REJ,"PL AN CONTACT ") | |
| 120 | W !?3,"Gr oup Name : ",DATA( REJ,"GROUP NAME"),?4 5,"Group N umber: ",D ATA(REJ,"G ROUP NUMBE R") | |
| 121 | I $G(DATA (REJ,"CARD HOLDER ID" ))'="" W ! ?3,"Cardho lder ID: " ,DATA(REJ, "CARDHOLDE R ID") | |
| 122 | I DATA(RE J,"PLAN PR EVIOUS FIL L DATE")'= "" D | |
| 123 | . W !?3," Last Fill Dt.: ",DAT A(REJ,"PLA N PREVIOUS FILL DATE ") | |
| 124 | . W:DATA( REJ,"PLAN PREVIOUS F ILL DATE") '="" " ( from payer )" | |
| 125 | I $G(RRR) D ;adde d with PSO *421 | |
| 126 | . W !!?3, "Reject Re solution R equired" | |
| 127 | . W !?3," Gross Amou nt Due ($" _$J($P(RRR ,U,3)*100\ 1/100,0,2) _") is gre ater than or equal t o" | |
| 128 | . W !?3," Threshold Dollar Amo unt ($"_$P (RRR,U,2)_ ")" | |
| 129 | . W !?3," Please sel ect Quit t o resolve this rejec t on the R eject Work list." | |
| 130 | DISP2 ; | |
| 131 | W !?3,LIN E,$C(7) I $G(KEY) W !?3,"Press <RETURN> to continu e..." R %: DTIME W ! | |
| 132 | Q | |
| 133 | ||
| 134 | Modified L ogic (Chan ges are hi ghlighted) | |
| 135 | PSOREJU3 ; BIRM/LJE - BPS (ECME ) - Clinic al Rejects Utilities (3) ;04/2 5/08 ;;7.0 ;OUTPATIEN T PHARMACY ;**287,290 ,358,359,3 85,421,427 ,448,478,4 82**;DEC 1 997;Build 25. | |
| 136 | . | |
| 137 | . | |
| 138 | DISPLAY(RX ,REJ,KEY,R RR) ; - Di splays REJ ECT inform ation | |
| 139 | ; Input: (r) RX - Rx IEN (# 52) | |
| 140 | ; (r) REJ - REJECT ID (IEN) | |
| 141 | ; (o) KEY - Display " Press any KEY to con tinue..." (1-YES/0-N O) (Defaul t: 0) | |
| 142 | ; (o) RRR - Reject Re solution R equired in formation Flag(0/1) ^Threshold Amt^Gross Amt Due (Default: 0) | |
| 143 | ; If Flag = 0, there is no Reje ct Resolut ion Requir ed reject code. Par ameter add ed with PS O*421 | |
| 144 | ; | |
| 145 | Q:$G(NFRO M) | |
| 146 | I '$G(RX) !'$G(REJ) Q | |
| 147 | I '$D(^PS RX(RX,"REJ ",REJ))&(' $G(PSONBIL L))&('$G(P SONPROG)) Q | |
| 148 | ; | |
| 149 | N DATA,RF L,LINE,% | |
| 150 | S RFL=+$$ GET1^DIQ(5 2.25,REJ_" ,"_RX,5) | |
| 151 | I '$G(PSO NBILL)&('$ G(PSONPROG )) D GET^P SOREJU2(RX ,RFL,.DATA ,REJ) I '$ D(DATA(REJ )) Q | |
| 152 | ; | |
| 153 | D HDR | |
| 154 | S $P(LINE ,"-",74)=" " W !?3,LI NE | |
| 155 | W !?3,$$D VINFO^PSOR EJU2(RX,RF L) | |
| 156 | W !?3,$$P TINFO^PSOR EJU2(RX) | |
| 157 | W !?3,"Rx /Drug : " ,$$GET1^DI Q(52,RX,.0 1),"/",RFL ," - ",$E( $$GET1^DIQ (52,RX,6), 1,20),?54 | |
| 158 | W:'$G(PSO NBILL)&('$ G(PSONPROG )) "ECME#: ",$P($$CL AIM^BPSBUT L(RX,RFL), U,6) | |
| 159 | D TYPE G DISP2:$G(P SONBILL)!( $G(PSONPRO G)) | |
| 160 | I $G(DATA (REJ,"PAYE R MESSAGE" ))'="" W ! ?3,"Payer Message: " D PRT^PSO REJU2("PAY ER MESSAGE ",18,58) | |
| 161 | I $G(DATA (REJ,"DUR TEXT"))'=" " W !?3,"D UR Text : ",DATA (REJ,"DUR TEXT") | |
| 162 | W !?3,"In surance : ",DATA( REJ,"INSUR ANCE NAME" ),?50,"Con tact: ",DA TA(REJ,"PL AN CONTACT ") | |
| 163 | ||
| 164 | W !?3,"Gr oup Name : ",$E(DA TA(REJ,"GR OUP NAME") ,1,26) | |
| 165 | W ?45,"Gr oup Number : ",$E(DAT A(REJ,"GRO UP NUMBER" ),1,15) | |
| 166 | I $G(DATA (REJ,"CARD HOLDER ID" ))'="" W ! ?3,"Cardho lder ID: " ,$E(DATA(R EJ,"CARDHO LDER ID"), 1,20) | |
| 167 | I DATA(RE J,"PLAN PR EVIOUS FIL L DATE")'= "" D | |
| 168 | . W !?3," Last Fill Dt.: ",DAT A(REJ,"PLA N PREVIOUS FILL DATE ") | |
| 169 | . W:DATA( REJ,"PLAN PREVIOUS F ILL DATE") '="" " ( from payer )" | |
| 170 | I $G(RRR) D ;adde d with PSO *421 | |
| 171 | . W !!?3, "Reject Re solution R equired" | |
| 172 | . W !?3," Gross Amou nt Due ($" _$J($P(RRR ,U,3)*100\ 1/100,0,2) _") is gre ater than or equal t o" | |
| 173 | . W !?3," Threshold Dollar Amo unt ($"_$P (RRR,U,2)_ ")" | |
| 174 | . W !?3," Please sel ect Quit t o resolve this rejec t on the R eject Work list." | |
| 175 | DISP2 ; | |
| 176 | W !?3,LIN E,$C(7) I $G(KEY) W !?3,"Press <RETURN> to continu e..." R %: DTIME W ! | |
| 177 | Q | |
| 178 | ||
| 179 | ||
| 180 | The Match Multiple G roup Plans Option [I BCNR GROUP PLAN MATC H] screen will be up dated, tru ncating th e Group Na me and Gro up Number; the other data disp layed on t hat line w as moved a ccordingly . The IBCN R GROUP PL AN MATCH e ntry in LI ST TEMPLAT E file #40 9.61 sub-f ile CAPTIO N LINE COL UMNS #409. 621 will n eed to be modified b ased on li mited scre en availab ility, the users hav e chosen t o include the follow ing fields , truncate d to the f ollowing l engths. | |
| 181 | ||
| 182 | Fields | |
| 183 | Current Va lue | |
| 184 | Modified V alue | |
| 185 | Item Name: GNAME | |
| 186 | ||
| 187 | ||
| 188 | #.03 – WID TH | |
| 189 | 15 | |
| 190 | 20 | |
| 191 | Item Name: GNUM | |
| 192 | ||
| 193 | ||
| 194 | #.02- COLU MN | |
| 195 | 22 | |
| 196 | 28 | |
| 197 | #.03 – WID TH | |
| 198 | 17 | |
| 199 | 15 | |
| 200 | Item Name: GTYP | |
| 201 | ||
| 202 | ||
| 203 | #.02- COLU MN | |
| 204 | 40 | |
| 205 | 48 | |
| 206 | Item Name: PHRM | |
| 207 | ||
| 208 | ||
| 209 | #.02- COLU MN | |
| 210 | 57 | |
| 211 | 65 | |
| 212 | #.03 – WID TH | |
| 213 | 25 | |
| 214 | 15 | |
| 215 | ||
| 216 | The Match Group Plan to a Phar macy Optio n [IBCNR P LAN MATCH] screen wi ll need to be update d, truncat ing the Gr oup Name a nd Group N umber; the other dat a displaye d on that line was m oved accor dingly. T he IBCNR P LAN MATCH entry in L IST TEMPLA TE file #4 09.61 sub- file CAPTI ON LINE CO LUMNS #409 .621 will need to be modified based on l imited scr een availa bility, th e users ha ve chosen to include the follo wing field s, truncat ed to the following lengths. | |
| 217 | ||
| 218 | Fields | |
| 219 | Current Va lue | |
| 220 | Modified V alue | |
| 221 | Item Name: GNAME | |
| 222 | ||
| 223 | ||
| 224 | #.03 – WID TH | |
| 225 | 15 | |
| 226 | 20 | |
| 227 | Item Name: GNUM | |
| 228 | ||
| 229 | ||
| 230 | #.02- COLU MN | |
| 231 | 22 | |
| 232 | 28 | |
| 233 | #.03 – WID TH | |
| 234 | 17 | |
| 235 | 15 | |
| 236 | Item Name: TYPE | |
| 237 | ||
| 238 | ||
| 239 | #.02- COLU MN | |
| 240 | 42 | |
| 241 | 46 | |
| 242 | Item Name: PHARM | |
| 243 | ||
| 244 | ||
| 245 | #.02- COLU MN | |
| 246 | 57 | |
| 247 | 61 | |
| 248 | Item Name: COV | |
| 249 | ||
| 250 | ||
| 251 | #.02- COLU MN | |
| 252 | 72 | |
| 253 | 75 | |
| 254 | ||
| 255 | The Third Party Paye r Rejects – View/Pro cess [PSO REJECTS VI EW/PROCESS ] and the Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] Screens wi ll be upda ted, trunc ating the Group Numb er and Car dholder ID in the ro utine PSOR EJP1. | |
| 256 | Subroutine Name | |
| 257 | INS^PSOREJ P1 | |
| 258 | Enhancemen t Category | |
| 259 | New | |
| 260 | Modify | |
| 261 | Delete | |
| 262 | No Change | |
| 263 | Story | |
| 264 | US19 | |
| 265 | Related Me nu Options or ListMa n Actions | |
| 266 | PSO REJECT S VIEW/PRO CESS, PSO REJECTS W ORKLIST | |
| 267 | Related Ro utines | |
| 268 | This Subro utine is C alled By | |
| 269 | This Subro utine Call s | |
| 270 | ||
| 271 | Third Part y Payer Re jects – Vi ew/Process , | |
| 272 | Third Part y Payer Re ject - Wor klist | |
| 273 | n/a | |
| 274 | Related In tegration Control Re gistration s (ICRs) | |
| 275 | n/a | |
| 276 | Data Passi ng | |
| 277 | Parameter Input | |
| 278 | Parameter Output | |
| 279 | Function Return Val ue | |
| 280 | Global Mo dified | |
| 281 | Input Attr ibute Name and Defin ition | |
| 282 | Name: n/a | |
| 283 | Definition : | |
| 284 | New Modify Delete No Cha nge | |
| 285 | Output Att ribute Nam e and Defi nition | |
| 286 | Name: n/a | |
| 287 | Definition : | |
| 288 | New Modify Delete No Cha nge | |
| 289 | Current Lo gic | |
| 290 | PSOREJP1 ; BIRM/MFR - Third Par ty Reject Display Sc reen ;04/2 9/05 ;;7.0 ;OUTPATIEN T PHARMACY ;**148,247 ,260,281,2 87,289,290 ,358,359,3 85,403,421 ,427,448** ;DEC 1997; Build 25. | |
| 291 | . | |
| 292 | . | |
| 293 | INS ; - In surance In formation | |
| 294 | D SETLN() | |
| 295 | D SETLN(" INSURANCE Informatio n",1,1) | |
| 296 | N PSOINS, PSOINS1,I | |
| 297 | S PSOINS= $G(DATA(RE J,"INSURAN CE NAME")) | |
| 298 | F I=1:1:( 50-($L(PSO INS)+18)) S PSOINS=P SOINS_" " | |
| 299 | S PSOINS1 =$G(DATA(R EJ,"COB")) | |
| 300 | I PSOINS1 ="SECONDAR Y" S PSOIN S=PSOINS_" Coord. Of Benefits: "_PSOINS1 | |
| 301 | D SETLN(" Insurance : "_P SOINS,,,18 ) | |
| 302 | D SETLN(" Contact : "_$ G(DATA(REJ ,"PLAN CON TACT")),,, 18) | |
| 303 | D SETLN(" BIN : "_$ G(DATA(REJ ,"BIN")),, ,18) | |
| 304 | D SETLN(" Group Numb er : "_$ G(DATA(REJ ,"GROUP NU MBER")),,, 18) | |
| 305 | D SETLN(" Cardholder ID : "_$ G(DATA(REJ ,"CARDHOLD ER ID")),, 1,18) | |
| 306 | Q | |
| 307 | ; | |
| 308 | ||
| 309 | Modified L ogic (Chan ges are hi ghlighted) | |
| 310 | PSOREJP1 ; BIRM/MFR - Third Par ty Reject Display Sc reen ;04/2 9/05 ;;7.0 ;OUTPATIEN T PHARMACY ;**148,247 ,260,281,2 87,289,290 ,358,359,3 85,403,421 ,427,448,4 82**;DEC 1 997;Build 25. | |
| 311 | . | |
| 312 | . | |
| 313 | ||
| 314 | INS ; - In surance In formation | |
| 315 | D SETLN() | |
| 316 | D SETLN(" INSURANCE Informatio n",1,1) | |
| 317 | N PSOINS, PSOINS1,I | |
| 318 | S PSOINS= $G(DATA(RE J,"INSURAN CE NAME")) | |
| 319 | F I=1:1:( 50-($L(PSO INS)+18)) S PSOINS=P SOINS_" " | |
| 320 | S PSOINS1 =$G(DATA(R EJ,"COB")) | |
| 321 | I PSOINS1 ="SECONDAR Y" S PSOIN S=PSOINS_" Coord. Of Benefits: "_PSOINS1 | |
| 322 | D SETLN(" Insurance : "_P SOINS,,,18 ) | |
| 323 | D SETLN(" Contact : "_$ G(DATA(REJ ,"PLAN CON TACT")),,, 18) | |
| 324 | D SETLN(" BIN : "_$ G(DATA(REJ ,"BIN")),, ,18) | |
| 325 | ||
| 326 | D SETLN(" Group Numb er : "_$ E($G(DATA( REJ,"GROUP NUMBER")) ,1,15),,,1 8) | |
| 327 | D SETLN(" Cardholder ID : "_$ E($G(DATA( REJ,"CARDH OLDER ID") ),1,20),,1 ,18) | |
| 328 | Q | |
| 329 | ; | |
| 330 | ||
| 331 | ||
| 332 | There are several re ports that need to b e updated in order f or the fie lds displa yed match the NCPDP Telecommun ications s tandard fi eld sizes as close a s possible based on limited sc reen avail ability. | |
| 333 | The update s to the f ollowing r eports are described below: | |
| 334 | Group Plan Worksheet Report [I BCNR GROUP PLAN WORK SHEET] | |
| 335 | Rejected C laims Repo rt [BPS RP T REJECTIO N] | |
| 336 | Closed Cla ims Report [BPS RPT CLOSED CLA IMS] | |
| 337 | Payable Cl aims Repor t [BPS RPT PAYABLE] | |
| 338 | Reversal C laims Repo rt [BPS RP T REVERSAL ] | |
| 339 | Claims Sub mitted, No t Yet Rele ased [BPS RPT NOT RE LEASED] | |
| 340 | Recent Tra nsactions [BPS RPT R ECENT TRAN SACTIONS] | |
| 341 | ECME Claim s-Response Inquiry [ BPS RPT CL AIMS RESPO NSE] | |
| 342 | The update s for trun cating the Group Nam e and Grou p Number o n the Grou p Plan Wor ksheet Rep ort [IBCNR GROUP PLA N WORKSHEE T] were ma de in IBCN RRP3. | |
| 343 | Subroutine Name | |
| 344 | DISP^IBCNR RP3 | |
| 345 | Enhancemen t Category | |
| 346 | New | |
| 347 | Modify | |
| 348 | Delete | |
| 349 | No Change | |
| 350 | Story | |
| 351 | US19 | |
| 352 | Related Me nu Options or ListMa n Actions | |
| 353 | IBCNR GROU P PLAN WOR KSHEET | |
| 354 | Related Ro utines | |
| 355 | This Subro utine is C alled By | |
| 356 | This Subro utine Call s | |
| 357 | ||
| 358 | PRINT^IBCN RRP3 | |
| 359 | $$FO^IBCNE UT1 | |
| 360 | Related In tegration Control Re gistration s (ICRs) | |
| 361 | n/a | |
| 362 | Data Passi ng | |
| 363 | Parameter Input | |
| 364 | Parameter Output | |
| 365 | Function Return Val ue | |
| 366 | Global Mo dified | |
| 367 | Input Attr ibute Name and Defin ition | |
| 368 | Name: n/a | |
| 369 | Definition : | |
| 370 | New Modify Delete No Cha nge | |
| 371 | Output Att ribute Nam e and Defi nition | |
| 372 | Name: n/a | |
| 373 | Definition : | |
| 374 | New Modify Delete No Cha nge | |
| 375 | Current Lo gic | |
| 376 | IBCNRRP3 ; BHAM ISC/C MW - GROUP PLAN WORK SHEET REPO RT PRINT ; 03-MAR-200 4 ;;2.0;IN TEGRATED B ILLING;**2 51,276,516 ,550**;21- MAR-94;Bui ld 25 | |
| 377 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 378 | . | |
| 379 | . | |
| 380 | . | |
| 381 | DISP ;set up display data | |
| 382 | N CNT,DIS P1,DISP2,D ISP3,DISP4 ,DISP5,DIS PD,DASHES2 | |
| 383 | N IBCNADR ,IBCIN11,I BCINST,I | |
| 384 | S DISP1=" ",CNT=0,$P (DASHES2," -",80)="" | |
| 385 | F S DISP 1=$O(^TMP( "IBCNR",$J ,"RPTDATA" ,DISP1)) Q :DISP1="" D | |
| 386 | . S DISP2 ="" | |
| 387 | . F S DI SP2=$O(^TM P("IBCNR", $J,"RPTDAT A",DISP1,D ISP2)) Q:D ISP2="" D | |
| 388 | .. S DISP 3=0 | |
| 389 | .. F S D ISP3=$O(^T MP("IBCNR" ,$J,"RPTDA TA",DISP1, DISP2,DISP 3)) Q:DISP 3="" D | |
| 390 | ... S DIS P4="" | |
| 391 | ... F S DISP4=$O(^ TMP("IBCNR ",$J,"RPTD ATA",DISP1 ,DISP2,DIS P3,DISP4)) Q:DISP4=" " D | |
| 392 | .... S DI SP5=0 | |
| 393 | .... F S DISP5=$O( ^TMP("IBCN R",$J,"RPT DATA",DISP 1,DISP2,DI SP3,DISP4, DISP5)) Q: DISP5="" D | |
| 394 | ..... S D ISPD=$G(^T MP("IBCNR" ,$J,"RPTDA TA",DISP1, DISP2,DISP 3,DISP4,DI SP5)) | |
| 395 | ..... ;ge t insuranc e addr | |
| 396 | ..... S I BCIN11=$G( ^DIC(36,DI SP3,.11)) | |
| 397 | ..... S I BCINST=$S( $P(IBCIN11 ,U,5)="":" --",1:$P($ G(^DIC(5,$ P(IBCIN11, U,5),0)),U ,2)) | |
| 398 | ..... S I BCNADR=$E( $P(IBCIN11 ,U),1,15)_ ","_$E($P( IBCIN11,U, 4),1,10)_" ,"_IBCINST _" "_$E($P (IBCIN11,U ,6),1,5) | |
| 399 | ..... S C NT=CNT+1 | |
| 400 | ..... ;in surance co and group /plan | |
| 401 | ..... S ^ TMP("IBCNR ",$J,"DSPD ATA",CNT)= $$FO^IBCNE UT1(DISP2, 40)_$$FO^I BCNEUT1(IB CNADR,35," L") | |
| 402 | ..... ;bi n; pcn; an d pharmacy plan ID | |
| 403 | ..... S C NT=CNT+1 | |
| 404 | ..... S ^ TMP("IBCNR ",$J,"DSPD ATA",CNT)= $$FO^IBCNE UT1(DISP4_ "/"_$P(DIS PD,U),35," L")_$$FO^ | |
| 405 | IBCNEUT1(" "_$ P(DISPD,U, 2),24,"L") _$$FO^IBCN EUT1(" "_$ P(DISPD,U, 3),10,"L") _$$FO^IBCN EUT1 | |
| 406 | ($P(DISPD, U,4),10,"L ") | |
| 407 | ..... S I =$$FO^IBCN EUT1("",60 )_$$FO^IBC NEUT1($P(D ISPD,U,5), 10,"L")_$$ FO^IBCNEUT 1 | |
| 408 | ($P(DISPD, U,6),10,"L ") | |
| 409 | ..... I $ TR(I," ")' ="" S CNT= CNT+1,^TMP ("IBCNR",$ J,"DSPDATA ",CNT)=I | |
| 410 | ..... S C NT=CNT+1 | |
| 411 | ..... S ^ TMP("IBCNR ",$J,"DSPD ATA",CNT)= $$FO^IBCNE UT1(DASHES 2,79,"L") | |
| 412 | ; | |
| 413 | DATAX ; DA TA exit pt | |
| 414 | K RPTDATA | |
| 415 | Q | |
| 416 | ; | |
| 417 | Modified L ogic (Chan ges are hi ghlighted) | |
| 418 | IBCNRRP3 ; BHAM ISC/C MW - GROUP PLAN WORK SHEET REPO RT PRINT ; 03-MAR-200 4 ;;2.0;IN TEGRATED B ILLING;**2 51,276,516 ,550,591** ;21-MAR-94 ;Build 25 | |
| 419 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 420 | . | |
| 421 | . | |
| 422 | . | |
| 423 | DISP ;set up display data | |
| 424 | N CNT,DIS P1,DISP2,D ISP3,DISP4 ,DISP5,DIS PD,DASHES2 | |
| 425 | N IBCNADR ,IBCIN11,I BCINST,I | |
| 426 | S DISP1=" ",CNT=0,$P (DASHES2," -",80)="" | |
| 427 | F S DISP 1=$O(^TMP( "IBCNR",$J ,"RPTDATA" ,DISP1)) Q :DISP1="" D | |
| 428 | . S DISP2 ="" | |
| 429 | . F S DI SP2=$O(^TM P("IBCNR", $J,"RPTDAT A",DISP1,D ISP2)) Q:D ISP2="" D | |
| 430 | .. S DISP 3=0 | |
| 431 | .. F S D ISP3=$O(^T MP("IBCNR" ,$J,"RPTDA TA",DISP1, DISP2,DISP 3)) Q:DISP 3="" D | |
| 432 | ... S DIS P4="" | |
| 433 | ... F S DISP4=$O(^ TMP("IBCNR ",$J,"RPTD ATA",DISP1 ,DISP2,DIS P3,DISP4)) Q:DISP4=" " D | |
| 434 | .... S DI SP5=0 | |
| 435 | .... F S DISP5=$O( ^TMP("IBCN R",$J,"RPT DATA",DISP 1,DISP2,DI SP3,DISP4, DISP5)) Q: DISP5="" D | |
| 436 | ..... S D ISPD=$G(^T MP("IBCNR" ,$J,"RPTDA TA",DISP1, DISP2,DISP 3,DISP4,DI SP5)) | |
| 437 | ..... ;ge t insuranc e addr | |
| 438 | ..... S I BCIN11=$G( ^DIC(36,DI SP3,.11)) | |
| 439 | ..... S I BCINST=$S( $P(IBCIN11 ,U,5)="":" --",1:$P($ G(^DIC(5,$ P(IBCIN11, U,5),0)),U ,2)) | |
| 440 | ..... S I BCNADR=$E( $P(IBCIN11 ,U),1,15)_ ","_$E($P( IBCIN11,U, 4),1,10)_" ,"_IBCINST _" "_$E($P (IBCIN11,U ,6),1,5) | |
| 441 | ..... S C NT=CNT+1 | |
| 442 | ..... ;in surance co and group /plan | |
| 443 | ..... S ^ TMP("IBCNR ",$J,"DSPD ATA",CNT)= $$FO^IBCNE UT1(DISP2, 40)_$$FO^I BCNEUT1(IB CNADR,35," L") | |
| 444 | ..... ;bi n; pcn; an d pharmacy plan ID | |
| 445 | ..... S C NT=CNT+1 | |
| 446 | ..... S ^ TMP("IBCNR ",$J,"DSPD ATA",CNT)= $$FO^IBCN EUT1(($E(D ISP4,1,24) _"/"_$E($P (DISPD,U), 1,15)),42, "L")_$$FO^ IBCNEUT1($ P(DISPD,U, 2),18,"L") _$$FO^IBCN EUT1($P(DI SPD,U,3),9 ,"L")_$$FO ^IBCNEUT1( $P(DISPD,U ,4),10,"L" ) | |
| 447 | ..... S I= $$FO^IBCNE UT1("",60) _$$FO^IBCN EUT1($P(DI SPD,U,5),1 0,"L")_$$F O^IBCNEUT1 | |
| 448 | ($P(DISPD, U,6),10,"L ") | |
| 449 | ..... I $ TR(I," ")' ="" S CNT= CNT+1,^TMP ("IBCNR",$ J,"DSPDATA ",CNT)=I | |
| 450 | ..... S C NT=CNT+1 | |
| 451 | ..... S ^ TMP("IBCNR ",$J,"DSPD ATA",CNT)= $$FO^IBCNE UT1(DASHES 2,79,"L") | |
| 452 | ; | |
| 453 | DATAX ; DA TA exit pt | |
| 454 | K RPTDATA | |
| 455 | Q | |
| 456 | ; | |
| 457 | ||
| 458 | ||
| 459 | For the ot her report s mentione d above, c hanges wil l be made to the hea dings and to the dat a displaye d. The up dates to t he heading s will be done in HE ADLN1 and HEADLN2 of the BPSRP T4 routine . | |
| 460 | Subroutine Name | |
| 461 | HEADLN1^BP SRPT4 | |
| 462 | Enhancemen t Category | |
| 463 | New | |
| 464 | Modify | |
| 465 | Delete | |
| 466 | No Change | |
| 467 | Story | |
| 468 | US19 | |
| 469 | Related Me nu Options or ListMa n Actions | |
| 470 | n/a | |
| 471 | Related Ro utines | |
| 472 | This Subro utine is C alled By | |
| 473 | This Subro utine Call s | |
| 474 | ||
| 475 | HDR^BPSPRT 7 | |
| 476 | n/a | |
| 477 | Related In tegration Control Re gistration s (ICRs) | |
| 478 | n/a | |
| 479 | Input Attr ibute Name and Defin ition | |
| 480 | Name: BPRT YPE | |
| 481 | Definition : Report T ype | |
| 482 | New Modify Delete No Cha nge | |
| 483 | Output Att ribute Nam e and Defi nition | |
| 484 | Name: n/a | |
| 485 | Definition : | |
| 486 | New Modify Delete No Cha nge | |
| 487 | Current Lo gic | |
| 488 | BPSRPT4 ; BHAM ISC/B EE - ECME REPORTS (C ONT) ;14-F EB-05 | |
| 489 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,5,7,8,10 ,11,19**;J UN 2004;Bu ild 18 | |
| 490 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 491 | . | |
| 492 | . | |
| 493 | . | |
| 494 | HEADLN1(BP RTYPE) ; | |
| 495 | I (",1,2, 3,4,5,7,8, 9,")[BPRTY PE W !,"PA TIENT NAME ",?27,"Pt. ID" | |
| 496 | I (BPRTYP E=1)!(BPRT YPE=4) D Q | |
| 497 | . W ?35," ELIG" | |
| 498 | . W ?40," RX#" | |
| 499 | . W ?52," REF/ECME#" | |
| 500 | . W ?73," DATE" | |
| 501 | . W ?83,$ J("$BILLED ",10) | |
| 502 | . W ?102, $J("$INS R ESPONSE",1 3) | |
| 503 | . W ?122, $J("$COLLE CT",10) | |
| 504 | ; | |
| 505 | I BPRTYPE =2 D Q | |
| 506 | . W ?35," ELIG" | |
| 507 | . W ?40," RX#" | |
| 508 | . W ?52," REF/ECME#" | |
| 509 | . W ?73," DATE" | |
| 510 | . W ?83," RELEASED O N" | |
| 511 | . W ?96," RX INFO" | |
| 512 | . W ?114, "RX COB" | |
| 513 | . W ?121, "OPEN/CLOS ED" | |
| 514 | ; | |
| 515 | I BPRTYPE =3 D Q | |
| 516 | . W ?35," RX#" | |
| 517 | . W ?47," REF/ECME#" | |
| 518 | . W ?68," DATE" | |
| 519 | . W ?100, $J("$BILLE D",10) | |
| 520 | . W ?119, $J("$INS R ESPONSE",1 3) | |
| 521 | ; | |
| 522 | I BPRTYPE =5 D Q | |
| 523 | . W ?35," RX#" | |
| 524 | . W ?47," REF/ECME#" | |
| 525 | . W ?65," COMPLETED" | |
| 526 | . W ?83," TRANS TYPE " | |
| 527 | . W ?100, "PAYER RES PONSE" | |
| 528 | . W ?125, "RX COB" | |
| 529 | ; | |
| 530 | I BPRTYPE =6 D Q | |
| 531 | . W !,?33 ,$J("AMOUN T",17) | |
| 532 | . W ?51,$ J("RETURNE D",17) | |
| 533 | . W ?69,$ J("RETURNE D",17) | |
| 534 | . W ?87,$ J("AMOUNT" ,17) | |
| 535 | ; | |
| 536 | I BPRTYPE =7 D Q | |
| 537 | . W ?35," ELIG" | |
| 538 | . W ?40," RX#" | |
| 539 | . W ?52," REF/ECME#" | |
| 540 | . W ?70," RX INFO" | |
| 541 | . W ?92," DRUG" | |
| 542 | . W ?126, "NDC" | |
| 543 | ; | |
| 544 | I (BPRTYP E=8) D Q | |
| 545 | . W ?35," RX#" | |
| 546 | . W ?47," REF/ECME#" | |
| 547 | . W ?68," DATE" | |
| 548 | . W ?78,$ J("$BILLED ",10) | |
| 549 | . W ?97,$ J("$INS RE SPONSE",13 ) | |
| 550 | . W ?122, $J("$COLLE CT",10) | |
| 551 | ; | |
| 552 | I BPRTYPE =9 D Q | |
| 553 | . W ?35," ELIG" | |
| 554 | . W ?40," RX#" | |
| 555 | . W ?52," REF" | |
| 556 | . W ?64," DATE" | |
| 557 | . W ?84,$ J("$DRUG C OST",10) | |
| 558 | Q | |
| 559 | ||
| 560 | Modified L ogic (Chan ges are hi ghlighted) | |
| 561 | BPSRPT4 ; BHAM ISC/B EE - ECME REPORTS (C ONT) ;14-F EB-05 | |
| 562 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,5,7,8,10 ,11,19,23* *;JUN 2004 ;Build 18 | |
| 563 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 564 | . | |
| 565 | . | |
| 566 | . | |
| 567 | HEADLN1(BP RTYPE) ; | |
| 568 | I (",1,2,3 ,4,5,7,8,9 ,")[BPRTYP E W !,"PAT IENT NAME" ,?27,"Pt.I D" | |
| 569 | I (BPRTYP E=1)!(BPRT YPE=4) D Q | |
| 570 | . W ?35," ELIG" | |
| 571 | . W ?40," RX#" | |
| 572 | . W ?52," REF/ECME#" | |
| 573 | . W ?73," DATE" | |
| 574 | . W ?83,$ J("$BILLED ",10) | |
| 575 | . W ?102, $J("$INS R ESPONSE",1 3) | |
| 576 | . W ?122, $J("$COLLE CT",10) | |
| 577 | ; | |
| 578 | I BPRTYPE =2 D Q | |
| 579 | . W ?35," ELIG" | |
| 580 | . W ?40," RX#" | |
| 581 | . W ?52," REF/ECME#" | |
| 582 | . W ?73," DATE" | |
| 583 | . W ?83," RELEASED O N" | |
| 584 | . W ?96," RX INFO" | |
| 585 | . W ?114, "COB" | |
| 586 | . W ?121, "OPEN/CLOS ED" | |
| 587 | ; | |
| 588 | I BPRTYPE =3 D Q | |
| 589 | . W ?35," RX#" | |
| 590 | . W ?47," REF/ECME#" | |
| 591 | . W ?68," DATE" | |
| 592 | . W ?100, $J("$BILLE D",10) | |
| 593 | . W ?119, $J("$INS R ESPONSE",1 3) | |
| 594 | ; | |
| 595 | I BPRTYPE =5 D Q | |
| 596 | . W ?35," RX#" | |
| 597 | . W ?47," REF/ECME#" | |
| 598 | . W ?65," COMPLETED" | |
| 599 | . W ?83," TRANS TYPE " | |
| 600 | . W ?100, "PAYER RES PONSE" | |
| 601 | . W ?125, "COB" | |
| 602 | ; | |
| 603 | I BPRTYPE =6 D Q | |
| 604 | . W !,?33 ,$J("AMOUN T",17) | |
| 605 | . W ?51,$ J("RETURNE D",17) | |
| 606 | . W ?69,$ J("RETURNE D",17) | |
| 607 | . W ?87,$ J("AMOUNT" ,17) | |
| 608 | ; | |
| 609 | I BPRTYPE =7 D Q | |
| 610 | . W ?35," ELIG" | |
| 611 | . W ?40," RX#" | |
| 612 | . W ?52," REF/ECME#" | |
| 613 | . W ?70," RX INFO" | |
| 614 | . W ?86," DRUG" | |
| 615 | . W ?118, "NDC" | |
| 616 | ; | |
| 617 | I (BPRTYP E=8) D Q | |
| 618 | . W ?35," RX#" | |
| 619 | . W ?47," REF/ECME#" | |
| 620 | . W ?68," DATE" | |
| 621 | . W ?78,$ J("$BILLED ",10) | |
| 622 | . W ?97,$ J("$INS RE SPONSE",13 ) | |
| 623 | . W ?122, $J("$COLLE CT",10) | |
| 624 | ; | |
| 625 | I BPRTYPE =9 D Q | |
| 626 | . W ?35," ELIG" | |
| 627 | . W ?40," RX#" | |
| 628 | . W ?52," REF" | |
| 629 | . W ?64," DATE" | |
| 630 | . W ?84,$ J("$DRUG C OST",10) | |
| 631 | Q | |
| 632 | ||
| 633 | ||
| 634 | Subroutine Name | |
| 635 | HEADLN2^BP SRPT4 | |
| 636 | Enhancemen t Category | |
| 637 | New | |
| 638 | Modify | |
| 639 | Delete | |
| 640 | No Change | |
| 641 | Story | |
| 642 | US19 | |
| 643 | Related Me nu Options or ListMa n Actions | |
| 644 | n/a | |
| 645 | Related Ro utines | |
| 646 | This Subro utine is C alled By | |
| 647 | This Subro utine Call s | |
| 648 | ||
| 649 | HDR^BPSRPT 7 | |
| 650 | n/a | |
| 651 | Related In tegration Control Re gistration s (ICRs) | |
| 652 | n/a | |
| 653 | Data Passi ng | |
| 654 | Parameter Input | |
| 655 | Parameter Output | |
| 656 | Function Return Val ue | |
| 657 | Global Mo dified | |
| 658 | Input Attr ibute Name and Defin ition | |
| 659 | Name: BPRT YPE | |
| 660 | Definition : Report T ype | |
| 661 | New Modify Delete No Cha nge | |
| 662 | Output Att ribute Nam e and Defi nition | |
| 663 | Name: n/a | |
| 664 | Definition : | |
| 665 | New Modify Delete No Cha nge | |
| 666 | Current Lo gic | |
| 667 | ||
| 668 | HEADLN2(BP RTYPE) ; | |
| 669 | I (BPRTYP E=1)!(BPRT YPE=4) D Q | |
| 670 | . W !,?4, "DRUG" | |
| 671 | . W ?36," NDC" | |
| 672 | . I BPRTY PE=1 W ?47 ,"RELEASED ON" | |
| 673 | . W ?68," RX INFO" | |
| 674 | . I BPRTY PE=4 W ?92 ,"RX COB" | |
| 675 | . I BPRTY PE=1 W ?11 5,$J("BILL # RX COB", 17) | |
| 676 | ; | |
| 677 | I BPRTYPE =2 D Q | |
| 678 | . W !,?3, "CARDHOLD. ID" | |
| 679 | . W ?31," GROUP ID" | |
| 680 | . W ?41,$ J("$BILLED ",10) | |
| 681 | . W ?54," QTY" | |
| 682 | . W ?61," NDC#" | |
| 683 | . W ?82," DRUG" | |
| 684 | ; | |
| 685 | I BPRTYPE =3 D Q | |
| 686 | . W !,?4, "DRUG" | |
| 687 | . W ?43," NDC" | |
| 688 | . W ?68," RX INFO" | |
| 689 | . W ?88," RX COB" | |
| 690 | ; | |
| 691 | I BPRTYPE =5 D Q | |
| 692 | . W !,?4, "DRUG" | |
| 693 | . W ?32," NDC" | |
| 694 | . W ?47," RX INFO" | |
| 695 | . W ?69," INSURANCE" | |
| 696 | . W ?112, "ELAP TIME IN SECOND S" | |
| 697 | ; | |
| 698 | I BPRTYPE =6 D Q | |
| 699 | .W !,?1," DATE" | |
| 700 | .W ?15,$J ("#CLAIMS" ,17) | |
| 701 | .W ?33,$J ("SUBMITTE D",17) | |
| 702 | .W ?51,$J ("REJECTED ",17) | |
| 703 | .W ?69,$J ("PAYABLE" ,17) | |
| 704 | .W ?87,$J ("TO RECEI VE",17) | |
| 705 | .W ?115,$ J("DIFFERE NCE",17) | |
| 706 | ; | |
| 707 | I BPRTYPE =7 D Q | |
| 708 | . W !,?3, "CARDHOLD. ID" | |
| 709 | . W ?31," GROUP ID" | |
| 710 | . W ?41," CLOSE DATE /TIME" | |
| 711 | . W ?59," CLOSED BY" | |
| 712 | . W ?87," CLOSE REAS ON" | |
| 713 | . W ?121, "RX COB" | |
| 714 | ; | |
| 715 | I BPRTYPE =8 D Q | |
| 716 | . W !,?2, "DRUG" | |
| 717 | . W ?38," RX INFO" | |
| 718 | . W ?54," INS GROUP# " | |
| 719 | . W ?79," INS GROUP NAME" | |
| 720 | . W ?121, "BILL#" | |
| 721 | ; | |
| 722 | I BPRTYPE =9 D Q | |
| 723 | . W !,?4, "DRUG" | |
| 724 | . W ?36," NDC" | |
| 725 | . W ?47," RELEASED O N" | |
| 726 | . W ?62," RX INFO" | |
| 727 | . W ?75," NON-BILLAB LE STATUS" | |
| 728 | Q | |
| 729 | ||
| 730 | Modified L ogic (Chan ges are hi ghlighted) | |
| 731 | ||
| 732 | HEADLN2(BP RTYPE) ; | |
| 733 | I (BPRTYP E=1)!(BPRT YPE=4) D Q | |
| 734 | . W !,?4, "DRUG" | |
| 735 | . W ?36," NDC" | |
| 736 | . I BPRTY PE=1 W ?47 ,"RELEASED ON" | |
| 737 | . W ?68," RX INFO" | |
| 738 | . I BPRTY PE=4 W ?92 ,"COB" | |
| 739 | . I BPRTY PE=1 W ?11 5,$J("BILL # COB",17) | |
| 740 | ; | |
| 741 | I BPRTYPE =2 D Q | |
| 742 | . W !,?3, "CARDHOLD. ID" | |
| 743 | . W ?26," GROUP ID" | |
| 744 | . W ?41,$ J("$BILLED ",10) | |
| 745 | . W ?54," QTY" | |
| 746 | . W ?61," NDC#" | |
| 747 | . W ?82," DRUG" | |
| 748 | ; | |
| 749 | I BPRTYPE =3 D Q | |
| 750 | . W !,?4, "DRUG" | |
| 751 | . W ?43," NDC" | |
| 752 | . W ?68," RX INFO" | |
| 753 | . W ?88," COB" | |
| 754 | ; | |
| 755 | I BPRTYPE =5 D Q | |
| 756 | . W !,?4, "DRUG" | |
| 757 | . W ?32," NDC" | |
| 758 | . W ?47," RX INFO" | |
| 759 | . W ?69," INSURANCE" | |
| 760 | . W ?112, "ELAP TIME IN SECOND S" | |
| 761 | ; | |
| 762 | I BPRTYPE =6 D Q | |
| 763 | .W !,?1," DATE" | |
| 764 | .W ?15,$J ("#CLAIMS" ,17) | |
| 765 | .W ?33,$J ("SUBMITTE D",17) | |
| 766 | .W ?51,$J ("REJECTED ",17) | |
| 767 | .W ?69,$J ("PAYABLE" ,17) | |
| 768 | .W ?87,$J ("TO RECEI VE",17) | |
| 769 | .W ?115,$ J("DIFFERE NCE",17) | |
| 770 | ; | |
| 771 | I BPRTYPE =7 D Q | |
| 772 | . W !,?3, "CARDHOLD. ID" | |
| 773 | . W ?28," GROUP ID" | |
| 774 | . W ?46," CLOSE DATE /TIME" | |
| 775 | . W ?65," CLOSED BY" | |
| 776 | . W ?93," CLOSE REAS ON" | |
| 777 | . W ?128, "COB" | |
| 778 | ; | |
| 779 | I BPRTYPE =8 D Q | |
| 780 | . W !,?2, "DRUG" | |
| 781 | . W ?38," RX INFO" | |
| 782 | . W ?54," INS GROUP# " | |
| 783 | . W ?72," INS GROUP NAME" | |
| 784 | . W ?125, "BILL#" | |
| 785 | ; | |
| 786 | I BPRTYPE =9 D Q | |
| 787 | . W !,?4, "DRUG" | |
| 788 | . W ?36," NDC" | |
| 789 | . W ?47," RELEASED O N" | |
| 790 | . W ?62," RX INFO" | |
| 791 | . W ?75," NON-BILLAB LE STATUS" | |
| 792 | Q | |
| 793 | ||
| 794 | ||
| 795 | The change s to the d ata will b e done in WRLINE1 of the BPSRP T5 routine . | |
| 796 | Subroutine Name | |
| 797 | WRLINE2^BP SRPT5 | |
| 798 | Enhancemen t Category | |
| 799 | New | |
| 800 | Modify | |
| 801 | Delete | |
| 802 | No Change | |
| 803 | Story | |
| 804 | US19 | |
| 805 | Related Me nu Options or ListMa n Actions | |
| 806 | n/a | |
| 807 | Related Ro utines | |
| 808 | This Subro utine is C alled By | |
| 809 | This Subro utine Call s | |
| 810 | ||
| 811 | REPORT^BPS RPT5 | |
| 812 | ||
| 813 | WRLINE1^BP SRPT8, | |
| 814 | $$PATNAM^B PSRPT6, | |
| 815 | $$SSN4^BPS RPT6, | |
| 816 | $$ELIGCODE ^BPSSCR05, | |
| 817 | $$RXNUM^BP SRPT6, | |
| 818 | $$COPAY^BP SRPT6, | |
| 819 | $$ECMENUM^ BPSRPT1, | |
| 820 | $$DATTIM^B PSRPT1, | |
| 821 | $$MWC^BPSR PT6, | |
| 822 | $$RTBCKNAM ^BPSRPT1, | |
| 823 | $$RXSTATUS ^BPSRPT6, | |
| 824 | $$RXCOB^BP SRPT8, | |
| 825 | $$CLOSED02 ^BPSSCR03, | |
| 826 | $$TRANDT^B PSRPT2, | |
| 827 | $$TTYPE^BP SRPT7, | |
| 828 | $$RESPONSE ^BPSRPT7, | |
| 829 | $$DRGNAM^B PSRPT6, | |
| 830 | $$GETNCD^B PSRPT6 | |
| 831 | ||
| 832 | Related In tegration Control Re gistration s (ICRs) | |
| 833 | n/a | |
| 834 | Data Passi ng | |
| 835 | Parameter Input | |
| 836 | Parameter Output | |
| 837 | Function Return Val ue | |
| 838 | Global Mo dified | |
| 839 | Input Attr ibute Name and Defin ition | |
| 840 | Name: BPRT YPE | |
| 841 | Definition : Report T ype | |
| 842 | New Modify Delete No Cha nge | |
| 843 | Output Att ribute Nam e and Defi nition | |
| 844 | Name: | |
| 845 | Definition : | |
| 846 | New Modify Delete No Cha nge | |
| 847 | Current Lo gic | |
| 848 | ||
| 849 | ;Print Re port Line 1WRLINE1(B PRTYPE,BPR EC,BPDIV,B PGRPLAN,BP DFN,BPRX,B PREF,BPX,B PSRTDT,BPB IL,BPINS,B PCOLL,BPEX CEL,BPPSEQ ) ; ;Excel Output I $G(BPEXCEL ) D WRLINE 1^BPSRPT8( BPRTYPE,.B PREC,BPDIV ,BPGRPLAN, BPDFN,BPRX ,BPREF,BPX ,BPSRTDT,B PBIL,BPINS ,BPCOLL,BP PSEQ) Q ;R eport Outp ut W !,$$P ATNAME^BPS RPT6(BPDFN ) W ?27,"( "_$$SSN4^B PSRPT6(BPD FN)_")". | |
| 850 | . | |
| 851 | . I BPRTYP E=7 D Q . N ELGCD S ELGCD=$$E LIGCODE^BP SSCR05($P( BPX,U,3)) . W ?35,$S (ELGCD="V" :"VET",ELG CD="T":"TR I",ELGCD=" C":"CVA",1 :"UNK") . W ?40,$$RX NUM^BPSRPT 6(BPRX)_$$ COPAY^BPSR PT6(BPRX) . W ?52,BP REF,"/",$$ ECMENUM^BP SRPT1($P(B PX,U,3)) . W ?70,$$M WC^BPSRPT6 (BPRX,BPRE F) . W ?73 ,$$RTBCKNA M^BPSRPT1( $$RTBCK^BP SRPT1($P(B PX,U,3))) . W ?77,$$ RXSTATUS^B PSRPT6($P( BPX,U,3)) . W ?79,$S ($P(BPX,U) :"/R",1:"/ N") . W ?8 4,$S($P(BP X,U,13):"R EJ",1:"") . W ?92,$$ DRGNAM^BPS RPT6($P(BP X,U,14),30 ) . W ?123 ,$$GETNDC^ BPSRPT6(BP RX,BPREF) I BPRTYPE= 8 D . W ?3 5,$$RXNUM^ BPSRPT6(BP RX)_$$COPA Y^BPSRPT6( BPRX) . W ?47,BPREF, "/",$$ECME NUM^BPSRPT 1($P(BPX,U ,3)) . W ? 68,$$DATTI M^BPSRPT1( BPSRTDT) . W ?78,$J( BPBIL,10,2 ),?100,$J( BPINS,10,2 ),?122,$S( BPCOLL]"": $J(BPCOLL, 10,2),1:"" ) I BPRTYP E=9 D Q . N ELGCD S ELGCD=$P( BPX,U,1) . W ?35,$S( ELGCD="V": "VET",ELGC D="T":"TRI ",ELGCD="C ":"CVA",1: "UNK") ; E ligibility . W ?40,$ $RXNUM^BPS RPT6(BPRX) _$$COPAY^B PSRPT6(BPR X) ; RX an d Copay in dicator . W ?52,BPRE F ; Refill . W ?64,$ $DATTIM^BP SRPT1(BPSR TDT) ; Tra nsaction D ate . W ?8 4,$J($P(BP X,U,2),10, 2) ; Drug Cost Q | |
| 852 | ||
| 853 | Modified L ogic (Chan ges are hi ghlighted) | |
| 854 | ||
| 855 | ;Print Rep ort Line 1 WRLINE1(BP RTYPE,BPRE C,BPDIV,BP GRPLAN,BPD FN,BPRX,BP REF,BPX,BP SRTDT,BPBI L,BPINS,BP COLL,BPEXC EL,BPPSEQ) ; ;Excel Output I $ G(BPEXCEL) D WRLINE1 ^BPSRPT8(B PRTYPE,.BP REC,BPDIV, BPGRPLAN,B PDFN,BPRX, BPREF,BPX, BPSRTDT,BP BIL,BPINS, BPCOLL,BPP SEQ) Q ;Re port Outpu t W !,$$PA TNAME^BPSR PT6(BPDFN) W ?27,"(" _$$SSN4^BP SRPT6(BPDF N)_")". | |
| 856 | . | |
| 857 | . I BPRTYP E=7 D Q . N ELGCD S ELGCD=$$E LIGCODE^BP SSCR05($P( BPX,U,3)) . W ?35,$S (ELGCD="V" :"VET",ELG CD="T":"TR I",ELGCD=" C":"CVA",1 :"UNK") . W ?40,$$RX NUM^BPSRPT 6(BPRX)_$$ COPAY^BPSR PT6(BPRX) . W ?52,BP REF,"/",$$ ECMENUM^BP SRPT1($P(B PX,U,3)) . W ?70,$$M WC^BPSRPT6 (BPRX,BPRE F) . W ?73 ,$$RTBCKNA M^BPSRPT1( $$RTBCK^BP SRPT1($P(B PX,U,3))) . W ?77,$$ RXSTATUS^B PSRPT6($P( BPX,U,3)) . W ?79,$S ($P(BPX,U) :"/R",1:"/ N") . W ?8 4,$S($P(BP X,U,13):"R EJ",1:"") . W ?86,$$ DRGNAM^BPS RPT6($P(BP X,U,14),30 ) . W ?118 ,$$GETNDC^ BPSRPT6(BP RX,BPREF) I BPRTYPE= 8 D . W ?3 5,$$RXNUM^ BPSRPT6(BP RX)_$$COPA Y^BPSRPT6( BPRX) . W ?47,BPREF, "/",$$ECME NUM^BPSRPT 1($P(BPX,U ,3)) . W ? 68,$$DATTI M^BPSRPT1( BPSRTDT) . W ?78,$J( BPBIL,10,2 ),?100,$J( BPINS,10,2 ),?122,$S( BPCOLL]"": $J(BPCOLL, 10,2),1:"" ) I BPRTYP E=9 D Q . N ELGCD S ELGCD=$P( BPX,U,1) . W ?35,$S( ELGCD="V": "VET",ELGC D="T":"TRI ",ELGCD="C ":"CVA",1: "UNK") ; E ligibility . W ?40,$ $RXNUM^BPS RPT6(BPRX) _$$COPAY^B PSRPT6(BPR X) ; RX an d Copay in dicator . W ?52,BPRE F ; Refill . W ?64,$ $DATTIM^BP SRPT1(BPSR TDT) ; Tra nsaction D ate . W ?8 4,$J($P(BP X,U,2),10, 2) ; Drug Cost Q | |
| 858 | ||
| 859 | ||
| 860 | ||
| 861 | The change s to the d ata will b e done in WRLINE2 of the BPSRP T5 routine . | |
| 862 | Subroutine Name | |
| 863 | WRLINE2^BP SRPT5 | |
| 864 | Enhancemen t Category | |
| 865 | New | |
| 866 | Modify | |
| 867 | Delete | |
| 868 | No Change | |
| 869 | Story | |
| 870 | US19 | |
| 871 | Related Me nu Options or ListMa n Actions | |
| 872 | n/a | |
| 873 | Related Ro utines | |
| 874 | This Subro utine is C alled By | |
| 875 | This Subro utine Call s | |
| 876 | ||
| 877 | REPORT^BPS RPT5 | |
| 878 | ||
| 879 | WRLINE2^BP SRPT8, | |
| 880 | $$DRGNAM^B PSRPT6, | |
| 881 | $$GETNDC^B PSRPT6, | |
| 882 | $$DATTIM^B PSRPT1, | |
| 883 | $$MWC^BPSR PT, | |
| 884 | $$RTBCKNAM ^BPSRPT1, | |
| 885 | $$RTBCK^BP SRPT1, | |
| 886 | $$RXSTATUS ^BPSRPT6, | |
| 887 | $$RXCOB^BP SRPT8, | |
| 888 | $$CRDHLDID ^BPSRPT2, | |
| 889 | $$GRPID^BP SRPT2, | |
| 890 | $$QTY^BPSR PT6, | |
| 891 | $$ELAPSE^B PSPT6, | |
| 892 | $$DATTIM^B PSRPT1, | |
| 893 | $$CLOSEDT^ BPSRPT2, | |
| 894 | $$CLSBY^BP SRPT6, | |
| 895 | $$CLRSN^BP SRPT7, | |
| 896 | $$BILL^BPS RPT6, | |
| 897 | $$RXSTANAM ^BPSSCRU2, | |
| 898 | $$GET1^DIQ | |
| 899 | Related In tegration Control Re gistration s (ICRs) | |
| 900 | n/a | |
| 901 | Data Passi ng | |
| 902 | Parameter Input | |
| 903 | Parameter Output | |
| 904 | Function Return Val ue | |
| 905 | Global Mo dified | |
| 906 | Input Attr ibute Name and Defin ition | |
| 907 | Name: BPRT YPE | |
| 908 | Definition : Report T ype | |
| 909 | New Modify Delete No Cha nge | |
| 910 | Output Att ribute Nam e and Defi nition | |
| 911 | Name: | |
| 912 | Definition : | |
| 913 | New Modify Delete No Cha nge | |
| 914 | Current Lo gic | |
| 915 | BPSRPT5 ;B HAM ISC/BE E - ECME R EPORTS ;14 -FEB-05 ;; 1.0;E CLAI MS MGMT EN GINE;**1,3 ,5,7,8,10, 11,19**;JU N 2004;Bui ld 18 | |
| 916 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 917 | . | |
| 918 | . | |
| 919 | . | |
| 920 | ;Print Rep ort Line 2 | |
| 921 | WRLINE2(BP RTYPE,BPRE C,BPX,BPRX ,BPREF,BPB IL,BPGRPLA N,BPEXCEL, BPICNT,BPP SEQ) ; | |
| 922 | ;Excel Ou tput | |
| 923 | I $G(BPEX CEL) D WRL INE2^BPSRP T8(BPRTYPE ,.BPREC,BP X,BPRX,BPR EF,BPBIL,B PGRPLAN,BP PSEQ) Q | |
| 924 | ;Report O utput | |
| 925 | I (BPRTYP E=1)!(BPRT YPE=4) D Q | |
| 926 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,14), 27),?32,$$ GETNDC^BPS RPT6(BPRX, BPREF) | |
| 927 | . I BPRTY PE=1 W ?47 ,$$DATTIM^ BPSRPT1(+B PX) | |
| 928 | . W ?68,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 929 | . W ?71,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 930 | . W ?75,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 931 | . W ?77,$ S($P(BPX,U ):"/R",1:" /N") | |
| 932 | . W ?82,$ S($P(BPX,U ,13):"REJ" ,1:"") | |
| 933 | . I BPRTY PE=4 W ?92 ,$$RXCOB^B PSRPT8(BPP SEQ) | |
| 934 | . I BPRTY PE=1 W ?11 5,$$BILLCO B(BPRX,BPR EF,BPPSEQ) | |
| 935 | I BPRTYPE =2 D Q | |
| 936 | . W !,?3, $E($$CRDHL DID^BPSRPT 2(+$P(BPX, U,3)),3,23 ) | |
| 937 | . W ?31,$ E($$GRPID^ BPSRPT2(+$ P(BPX,U,3) ),3,10) | |
| 938 | . W ?41,$ J(BPBIL,10 ,2) | |
| 939 | . W ?54,$ $QTY^BPSRP T6($P(BPX, U,3)) | |
| 940 | . W ?61,$ $GETNDC^BP SRPT6(BPRX ,BPREF) | |
| 941 | . W ?82,$ $DRGNAM^BP SRPT6($P(B PX,U,14),3 2) | |
| 942 | I BPRTYPE =3 D Q | |
| 943 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,14), 32) | |
| 944 | . W ?41,$ $GETNDC^BP SRPT6(BPRX ,BPREF) | |
| 945 | . W ?68,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 946 | . W ?71,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 947 | . W ?74,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 948 | . W ?76,$ S($P(BPX,U ):"/R",1:" /N") | |
| 949 | . W ?81,$ S($P(BPX,U ,13):"REJ" ,1:"") | |
| 950 | . W ?88,$ $RXCOB^BPS RPT8(BPPSE Q) | |
| 951 | I BPRTYPE =5 D Q | |
| 952 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,14), 23) | |
| 953 | . W ?28,$ $GETNDC^BP SRPT6(BPRX ,BPREF) | |
| 954 | . W ?47,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 955 | . W ?50,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 956 | . W ?53,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 957 | . W ?55,$ S($P(BPX,U ):"/R",1:" /N") | |
| 958 | . W ?60,$ S($P(BPX,U ,13):"REJ" ,1:"") | |
| 959 | . I $P(BP GRPLAN,U,2 )]"" W ?69 ,$E($P(BPG RPLAN,U,2) ,1,30) | |
| 960 | . W ?122, $J($$ELAPS E^BPSRPT6( $P(BPX,U,3 )),10) | |
| 961 | I BPRTYPE =7 D Q | |
| 962 | . W !,?3, $E($$CRDHL DID^BPSRPT 2(+$P(BPX, U,3)),3,23 ) | |
| 963 | . W ?31,$ E($$GRPID^ BPSRPT2(+$ P(BPX,U,3) ),3,10) | |
| 964 | . W ?41,$ $DATTIM^BP SRPT1(+$$C LOSEDT^BPS RPT2(+$P(B PX,U,3))) | |
| 965 | . N BPCLB Y S BPCLBY =$E($$CLSB Y^BPSRPT6( +$P(BPX,U, 3)),1,25) S:BPCLBY=" " BPCLBY=" BLANK" | |
| 966 | . W ?59,B PCLBY SBPC NT(BPCLBY) =$G(BPCNT( BPCLBY))+1 ,BPGCNT(BP CLBY)=$G(B PGCNT(BPCL BY))+1, | |
| 967 | BPICNT(BPC LBY)=$G(BP ICNT(BPCLB Y))+1 | |
| 968 | . W ?87,$ E($P($$CLR SN^BPSRPT7 (+$P(BPX,U ,3)),U,2), 1,30) | |
| 969 | . W ?121, $$RXCOB^BP SRPT8(BPPS EQ) | |
| 970 | I BPRTYPE =8 D Q | |
| 971 | . W !,?2, $$DRGNAM^B PSRPT6($P( BPX,U,14), 34) | |
| 972 | . W ?38,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 973 | . W ?42,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 974 | . W ?46,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 975 | . W ?48,$ S($P(BPX,U ):"/R",1:" /N") | |
| 976 | . W ?54,$ E($$GRPID^ BPSRPT2(+$ P(BPX,U,3) ),3,10) | |
| 977 | . W ?79,$ E(BPGRPLAN ,1,40) | |
| 978 | . W ?121, $$BILL^BPS RPT6(BPRX, BPREF,BPPS EQ) | |
| 979 | I BPRTYPE =9 D Q | |
| 980 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,4),2 7) ;Drug | |
| 981 | . W ?32,$ $GETNDC^BP SRPT6(BPRX ,BPREF) ; NDC | |
| 982 | . W ?47,$ $DATTIM^BP SRPT1($P(B PX,U,5)) ; Release Da te | |
| 983 | . W ?62,$ $MWC^BPSRP T6(BPRX,BP REF) ; Fill Locat ion | |
| 984 | . W ?65,$ $RXSTANAM^ BPSSCRU2($ P(BPX,U,6) ) ;Status | |
| 985 | . W ?67,$ S($P(BPX,U ,5):"/R",1 :"/N") ; Released | |
| 986 | . W ?75,$ E($$GET1^D IQ(366.17, $P(BPX,U,7 ),.01,"E") ,1,57) ;No n-Billalbl e Reason - ICR 6136 | |
| 987 | Q | |
| 988 | ||
| 989 | Modified L ogic (Chan ges are hi ghlighted) | |
| 990 | BPSRPT5 ;B HAM ISC/BE E - ECME R EPORTS ;14 -FEB-05 ;; 1.0;E CLAI MS MGMT EN GINE;**1,3 ,5,7,8,10, 11,19,23** ;JUN 2004; Build 18 | |
| 991 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 992 | . | |
| 993 | . | |
| 994 | . | |
| 995 | ;Print Re port Line 2 | |
| 996 | WRLINE2(BP RTYPE,BPRE C,BPX,BPRX ,BPREF,BPB IL,BPGRPLA N,BPEXCEL, BPICNT,BPP SEQ) ; | |
| 997 | ;Excel Ou tput | |
| 998 | I $G(BPEX CEL) D WRL INE2^BPSRP T8(BPRTYPE ,.BPREC,BP X,BPRX,BPR EF,BPBIL,B PGRPLAN,BP PSEQ) Q | |
| 999 | ;Report O utput | |
| 1000 | I (BPRTYP E=1)!(BPRT YPE=4) D Q | |
| 1001 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,14), 27),?32,$$ GETNDC^BPS RPT6(BPRX, BPREF) | |
| 1002 | . I BPRTY PE=1 W ?47 ,$$DATTIM^ BPSRPT1(+B PX) | |
| 1003 | . W ?68,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 1004 | . W ?71,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 1005 | . W ?75,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 1006 | . W ?77,$ S($P(BPX,U ):"/R",1:" /N") | |
| 1007 | . W ?82,$ S($P(BPX,U ,13):"REJ" ,1:"") | |
| 1008 | . I BPRTY PE=4 W ?92 ,$$RXCOB^B PSRPT8(BPP SEQ) | |
| 1009 | . I BPRTY PE=1 W ?11 5,$$BILLCO B(BPRX,BPR EF,BPPSEQ) | |
| 1010 | I BPRTYPE =2 D Q | |
| 1011 | . W !,?3, $E($$CRDHL DID^BPSRPT 2(+$P(BPX, U,3)),3,23 ) | |
| 1012 | . W ?26,$ E($$GRPID^ BPSRPT2(+$ P(BPX,U,3) ),3,17) | |
| 1013 | . W ?41,$ J(BPBIL,10 ,2) | |
| 1014 | . W ?54,$ $QTY^BPSRP T6($P(BPX, U,3)) | |
| 1015 | . W ?61,$ $GETNDC^BP SRPT6(BPRX ,BPREF) | |
| 1016 | . W ?82,$ $DRGNAM^BP SRPT6($P(B PX,U,14),3 2) | |
| 1017 | I BPRTYPE =3 D Q | |
| 1018 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,14), 32) | |
| 1019 | . W ?41,$ $GETNDC^BP SRPT6(BPRX ,BPREF) | |
| 1020 | . W ?68,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 1021 | . W ?71,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 1022 | . W ?74,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 1023 | . W ?76,$ S($P(BPX,U ):"/R",1:" /N") | |
| 1024 | . W ?81,$ S($P(BPX,U ,13):"REJ" ,1:"") | |
| 1025 | . W ?88,$ $RXCOB^BPS RPT8(BPPSE Q) | |
| 1026 | I BPRTYPE =5 D Q | |
| 1027 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,14), 23) | |
| 1028 | . W ?28,$ $GETNDC^BP SRPT6(BPRX ,BPREF) | |
| 1029 | . W ?47,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 1030 | . W ?50,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 1031 | . W ?53,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 1032 | . W ?55,$ S($P(BPX,U ):"/R",1:" /N") | |
| 1033 | . W ?60,$ S($P(BPX,U ,13):"REJ" ,1:"") | |
| 1034 | . I $P(BP GRPLAN,U,2 )]"" W ?69 ,$E($P(BPG RPLAN,U,2) ,1,30) | |
| 1035 | . W ?122, $J($$ELAPS E^BPSRPT6( $P(BPX,U,3 )),10) | |
| 1036 | I BPRTYPE =7 D Q | |
| 1037 | . W !,?3, $E($$CRDHL DID^BPSRPT 2(+$P(BPX, U,3)),3,23 ) | |
| 1038 | . W ?28,$ E($$GRPID^ BPSRPT2(+$ P(BPX,U,3) ),3,17) | |
| 1039 | . W ?46,$ $DATTIM^BP SRPT1(+$$C LOSEDT^BPS RPT2(+$P(B PX,U,3))) | |
| 1040 | . N BPCLB Y S BPCLBY =$E($$CLSB Y^BPSRPT6( +$P(BPX,U, 3)),1,25) S:BPCLBY=" " BPCLBY=" BLANK" | |
| 1041 | . W ?65,B PCLBY S BP CNT(BPCLBY )=$G(BPCNT (BPCLBY))+ 1,BPGCNT(B PCLBY)=$G( BPGCNT(BPC LBY))+1, | |
| 1042 | BPICNT(BPC LBY)=$G(BP ICNT(BPCLB Y))+1 | |
| 1043 | . W ?93,$ E($P($$CLR SN^BPSRPT7 (+$P(BPX,U ,3)),U,2), 1,30) | |
| 1044 | . W ?128, $$RXCOB^BP SRPT8(BPPS EQ) | |
| 1045 | I BPRTYPE =8 D Q | |
| 1046 | . W !,?2, $$DRGNAM^B PSRPT6($P( BPX,U,14), 34) | |
| 1047 | . W ?38,$ $MWC^BPSRP T6(BPRX,BP REF) | |
| 1048 | . W ?42,$ $RTBCKNAM^ BPSRPT1($$ RTBCK^BPSR PT1($P(BPX ,U,3))) | |
| 1049 | . W ?46,$ $RXSTATUS^ BPSRPT6($P (BPX,U,3)) | |
| 1050 | . W ?48,$ S($P(BPX,U ):"/R",1:" /N") | |
| 1051 | . W ?54,$ E($$GRPID^ BPSRPT2(+$ P(BPX,U,3) ),3,10) | |
| 1052 | . W ?72,$ E(BPGRPLAN ,1,50) | |
| 1053 | . W ?125, $$BILL^BPS RPT6(BPRX, BPREF,BPPS EQ) | |
| 1054 | I BPRTYPE =9 D Q | |
| 1055 | . W !,?4, $$DRGNAM^B PSRPT6($P( BPX,U,4),2 7) ;Drug | |
| 1056 | . W ?32,$ $GETNDC^BP SRPT6(BPRX ,BPREF) ; NDC | |
| 1057 | . W ?47,$ $DATTIM^BP SRPT1($P(B PX,U,5)) ; Release Da te | |
| 1058 | . W ?62,$ $MWC^BPSRP T6(BPRX,BP REF) ; Fill Locat ion | |
| 1059 | . W ?65,$ $RXSTANAM^ BPSSCRU2($ P(BPX,U,6) ) ;Status | |
| 1060 | . W ?67,$ S($P(BPX,U ,5):"/R",1 :"/N") ; Released | |
| 1061 | . W ?75,$ E($$GET1^D IQ(366.17, $P(BPX,U,7 ),.01,"E") ,1,57) ;No n-Billalbl e Reason - ICR 6136 | |
| 1062 | Q | |
| 1063 | ||
| 1064 | ||
| 1065 | There are five field s in the I B NCPDP EV ENT LOG fi le #366.14 INSURANCE sub-file #366.1412 that will need to be lengthene d to be HI PAA compli ant. We n eed to ens ure that t hese field s will pop ulate the correct in formation before and after the installat ion of pat ch IB*2.0* 497. | |
| 1066 | Fields | |
| 1067 | Current Va lues | |
| 1068 | Modified V alues | |
| 1069 | #.06 – GRO UP ID | |
| 1070 | Maximum Le ngth: 15 | |
| 1071 | Maximum Le ngth: 55 | |
| 1072 | #.07 – CAR DHOLDER ID | |
| 1073 | Maximum Le ngth: 20 | |
| 1074 | Maximum Le ngth: 80 | |
| 1075 | #.101 – CA RDHOLDER F IRST NAME | |
| 1076 | Maximum Le ngth: 25 | |
| 1077 | Maximum Le ngth: 35 | |
| 1078 | #.102 – CA RDHOLDER L AST NAME | |
| 1079 | Maximum Le ngth: 35 | |
| 1080 | Maximum Le ngth: 60 | |
| 1081 | #.301 – GR OUP NAME | |
| 1082 | Maximum Le ngth: 20 | |
| 1083 | Maximum Le ngth: 80 | |
| 1084 | ||
| 1085 | ||
| 1086 | Back Out/R ollback Pr ocedure | |
| 1087 | This story includes modificati ons to exi sting rout ines and f iles. | |
| 1088 | ||
| 1089 | 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. | |
| 1090 | ||
| 1091 | 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: | |
| 1092 | ||
| 1093 | Modify ent ries in fi le# 409.61 , LIST TEM PLATE: | |
| 1094 | IBCNR GROU P PLAN MAT CH | |
| 1095 | Item Name: GNAME | |
| 1096 | Change the .03 field from 20 b ack to 15. | |
| 1097 | Item Name: GNUM | |
| 1098 | Change the .02 field from 28 b ack to 22. | |
| 1099 | Change the .03 field from 15 b ack to 17. | |
| 1100 | Item Name: GTYP | |
| 1101 | Change the .02 field from 48 b ack to 40. | |
| 1102 | Item Name: PHRM | |
| 1103 | Change the .02 field from 65 b ack to 57. | |
| 1104 | Change the .03 field from 15 b ack to 25. | |
| 1105 | IBCNR PLAN MATCH | |
| 1106 | Item Name: GNAME | |
| 1107 | Change the .03 field from 20 b ack to 15. | |
| 1108 | Item Name: GNUM | |
| 1109 | Change the .02 field from 28 b ack to 22. | |
| 1110 | Change the .03 field from 15 b ack to 17. | |
| 1111 | Item Name: TYPE | |
| 1112 | Change the .02 field from 46 b ack to 42. | |
| 1113 | Item Name: PHARM | |
| 1114 | Change the .02 field from 61 b ack to 57. | |
| 1115 | Item Name: COV | |
| 1116 | Change the .02 field from 75 b ack to 72. | |
| 1117 | Change the .03 field from 5 ba ck to 8. | |
| 1118 | ||
| 1119 | Modify ent ries in fi le# 366.14 , IB NCPDP EVENT LOG : | |
| 1120 | Change the .06 field from 55 b ack to 17. | |
| 1121 | Change the .07 field from 80 b ack to 20. | |
| 1122 | Change the .101 fiel d from 35 back to 25 . | |
| 1123 | Change the .102 fiel d from 60 back to 35 . | |
| 1124 | Change the .301 fiel d from 80 back to 20 . | |
| 1125 | ||
| 1126 | ||
| 1127 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.