Produced by Araxis Merge on 8/4/2017 8:56:56 AM 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 | IB_2.0_577.zip | TAS+eBill+SDD+US114+v1.01.docx | Tue Aug 1 17:53:50 2017 UTC |
| 2 | IB_2.0_577.zip | TAS+eBill+SDD+US114+v1.01.docx | Wed Aug 2 16:16:11 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 882 |
| 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 | TAS eBill SDD US114 | |
| 2 | System Des ign Docume nt | |
| 3 | IB*2.0*577 | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | April 2017 | |
| 10 | Version 1. 01 | |
| 11 | User Story Number: U SEB-500 | |
| 12 | User Story Name: Clo ning a Pri mary Claim | |
| 13 | Product Ba cklog ID: n/a | |
| 14 | Rally ID: US-114 | |
| 15 | Design/Res olution: | |
| 16 | To resolve this requ est, the f ollowing i tems need to be done : | |
| 17 | ||
| 18 | Modify the GEN segme nt, piece 7 (X12 Ver sion Numbe r for HIPA A) so that it reflec ts patch I B*2.0*577. To accom plish this , the FORM AT CODE sh ould be ch anged in t he IB FORM FIELD CON TENT file (#364.7), record #10 15 | |
| 19 | FROM: | |
| 20 | PIEC E 7 X12 Version N umber for HIPAA 3 64.6[1014] 364.7[101 5] 364.5[5 ] | |
| 21 | Length=1 3 | |
| 22 | Max L ines=0 | |
| 23 | >Constant Value: " " | |
| 24 | >S IBXD ATA="576.0 " I '$$PRO D^XUPROD(1 ) S $E(IBX DATA,11)=" D" | |
| 25 | ||
| 26 | TO: | |
| 27 | PIECE 7 X12 Ve rsion Numb er for HIP AA 364. 6[1014] 36 4.7[1015] 364.5[5] | |
| 28 | Length=1 3 | |
| 29 | Max L ines=0 | |
| 30 | >Constant Value: " " | |
| 31 | >S IBXD ATA="577.0 " I '$$PRO D^XUPROD(1 ) S $E(IBX DATA,11)=" D" | |
| 32 | ||
| 33 | The follow ing trigge rs need to be added to the Fil e #399 [Bi ll/Claims] Field #.2 1 [Current Bill Paye r Sequence ]: | |
| 34 | ||
| 35 | If changin g the Curr ent Bill P ayer Seque nce to “PR IMARY”, ma ke the Pri mary Bill # blank: | |
| 36 | CROSS-R EFERENCE: ^^TRIGGER ^399^125 | |
| 37 | 1)= K DI V S DIV=X, D0=DA,DIV( 0)=D0 S Y( 0)=X S X= | |
| 38 | Y(0),X=X S X=X="P" I X S X=D IV S Y(1)= $S($D(^DG | |
| 39 | CR(399,D 0,"M1")):^ ("M1"),1:" ") S X=$P( Y(1),U,5) | |
| 40 | ,X=X S D IU=X K Y S X="" X ^D D(399,.21, 1,5,1.4) | |
| 41 | ||
| 42 | 1.4)= S DIH=$G(^DG CR(399,DIV (0),"M1")) ,DIV=X S | |
| 43 | $P(^("M1 "),U,5)=DI V,DIH=399, DIG=125 D ^DICR | |
| 44 | ||
| 45 | 2)= Q | |
| 46 | ||
| 47 | CREATE C ONDITION)= INTERNAL( CURRENT BI LL PAYER | |
| 48 | SEQUENCE )="P" | |
| 49 | CREATE V ALUE)= @ | |
| 50 | DELETE V ALUE)= NO EFFECT | |
| 51 | FIELD)= PRIMARY BI LL # | |
| 52 | This TRI GGER remov es the PRI MARY BILL # when the | |
| 53 | CURRENT BILL PAYER SEQUENCE is set to “P”rimary to | |
| 54 | prevent COB inform ation from subsequen t claims b eing | |
| 55 | placed o n the 837 claims tra nsmission. | |
| 56 | ||
| 57 | If changin g the Curr ent Bill P ayer Seque nce to “PR IMARY” or “SECONDARY ”, make th e Secondar y Bill # b lank: | |
| 58 | CROSS- REFERENCE: ^^TRIGGE R^399^126 | |
| 59 | 1)= X ^D D(399,.21, 1,6,1.3) I X S X=DIV S Y(1)=$ | |
| 60 | S($D(^DG CR(399,D0, "M1")):^(" M1"),1:"") S X=$P(Y | |
| 61 | (1),U,6) ,X=X S DIU =X K Y S X ="" S DIH= $G(^DGCR( | |
| 62 | 399,DIV( 0),"M1")), DIV=X S $P (^("M1"),U ,6)=DIV,D | |
| 63 | IH=399,D IG=126 D ^ DICR | |
| 64 | ||
| 65 | 1.3)= K DIV S DIV= X,D0=DA,DI V(0)=D0 S Y(0)=X S | |
| 66 | X=Y(0),X =X S X=X=" P",Y(1)=$G (X),Y(2)=$ G(X) S X= | |
| 67 | Y(0),X=X S X=X="S" ,Y=X,X=Y(1 ),X=X!Y | |
| 68 | ||
| 69 | 2)= Q | |
| 70 | ||
| 71 | CREATE C ONDITION)= INTERNAL( CURRENT BI LL PAYER | |
| 72 | SEQUENCE )="P"!(INT ERNAL(CURR ENT BILL P AYER SEQU | |
| 73 | ENCE)="S ") | |
| 74 | CREATE V ALUE)= @ | |
| 75 | DELETE V ALUE)= NO EFFECT | |
| 76 | FIELD)= SECONDARY BILL # | |
| 77 | This TRI GGER remov es the SEC ONDARY BIL L # when t he | |
| 78 | CURRENT BILL PAYER SEQUENCE is set to either | |
| 79 | "P"rimar y or "Seco ndary to p revent COB informati on | |
| 80 | from sub sequent cl aims being placed on the 837 c laims | |
| 81 | transmis sion. | |
| 82 | ||
| 83 | If changin g the Curr ent Bill P ayer Seque nce to “PR IMARY”, “S ECONDARY” or “TERTIA RY”, make the Tertia ry Bill # blank: | |
| 84 | CROSS -REFERENCE : ^^TRIGG ER^399^127 | |
| 85 | 1)= K DI V S DIV=X, D0=DA,DIV( 0)=D0 S Y( 1)=$S($D(^ DGCR( | |
| 86 | 399,D0," M1")):^("M 1"),1:"") S X=$P(Y(1 ),U,7),X=X S DUI | |
| 87 | =X K Y S X="" S DI H=$G(^DGCR (399,DIV(0 ),”M1”)),D IV=X S | |
| 88 | $P(^("M1 "),U,7)=DI V,DIH=399, DIG=127 D ^DICR | |
| 89 | ||
| 90 | 2)= Q | |
| 91 | ||
| 92 | CREATE V ALUE)= @ | |
| 93 | DELETE V ALUE)= NO EFFECT | |
| 94 | FIELD)= TERTIARY B ILL # | |
| 95 | This TRI GGER remov es the TER TIARY BILL # when th e | |
| 96 | CURRENT BILL PAYER SEQUENCE is set to either | |
| 97 | "P"rimar y, "Second ary or "T" ertiary to prevent C OB | |
| 98 | informat ion from s ubsequent claims bei ng placed on the | |
| 99 | 837 clai ms transmi ssion. | |
| 100 | ||
| 101 | If changin g the Curr ent Bill P ayer Seque nce to “PR IMARY”, ma ke the Pri mary Prior Payment b lank: | |
| 102 | ||
| 103 | CROSS-R EFERENCE: ^^TRIGGER ^399^218 | |
| 104 | 1)= K DIV S DIV=X,D 0=DA,DIV(0 )=D0 S Y(0 )=X S X= | |
| 105 | Y(0), X=X S X=X= "P" I X S X=DIV S Y( 1)=$S($D(^ DGCR | |
| 106 | (399, D0,"U2")): ^("U2"),1: "") S X=$P (Y(1),U,4) ,X=X | |
| 107 | S DIU =X K Y S X ="" X ^DD( 399,.21,1, 8,1.4) | |
| 108 | ||
| 109 | 1.4)= S D IH=$G(^DGC R(399,DIV( 0),"U2")), DIV=X S $P (^( | |
| 110 | "U2"), U,4)=DIV,D IH=399,DIG =218 D ^DI CR | |
| 111 | ||
| 112 | 2)= Q | |
| 113 | ||
| 114 | CREATE CO NDITION)= INTERNAL(C URRENT BIL L PAYER | |
| 115 | SEQUENCE) ="P" | |
| 116 | CREATE VA LUE)= @ | |
| 117 | DELETE VA LUE)= NO E FFECT | |
| 118 | FIELD)= P RIMARY PRI OR PAYMENT | |
| 119 | This TRIG GER remove s the PRIM ARY PRIOR PAYMENT | |
| 120 | when the CURRENT BI LL PAYER S EQUENCE is set to | |
| 121 | "P"rimary to proper ly adjust the calcul ation of | |
| 122 | the OFFSE T AMOUNT f or subsequ ent claims being | |
| 123 | placed on the 837 c laims tran smission. | |
| 124 | ||
| 125 | If changin g the Curr ent Bill P ayer Seque nce to “PR IMARY” or “SECONDARY ”, make th e Secondar y Prior Pa yment blan k: | |
| 126 | CROSS- REFERENCE: ^^TRIGGE R^399^219 | |
| 127 | 1)= X ^D D(399,.21, 1,9,1.3) I X S X=DIV S Y(1)=$ | |
| 128 | S($D(^DG CR(399,D0, "U2")):^(" U2"),1:"") S X=$P(Y | |
| 129 | (1),U,5) ,X=X S DIU =X K Y S X ="" S DIH= $G(^DGCR( | |
| 130 | 399,DIV( 0),"U2")), DIV=X S $P (^("U2"),U ,5)=DIV,D | |
| 131 | IH=399,D IG=219 D ^ DICR | |
| 132 | ||
| 133 | 1.3)= K DIV S DIV= X,D0=DA,DI V(0)=D0 S Y(0)=X S | |
| 134 | X=Y(0),X =X S X=X=" P",Y(1)=$G (X),Y(2)=$ G(X) S X= | |
| 135 | Y(0),X=X S X=X="S" ,Y=X,X=Y(1 ),X=X!Y | |
| 136 | ||
| 137 | 2)= Q | |
| 138 | ||
| 139 | CREATE C ONDITION)= INTERNAL( CURRENT BI LL PAYER | |
| 140 | SEQUENCE )="P"!(INT ERNAL(CURR ENT BILL P AYER SEQU | |
| 141 | ENCE)="S ") | |
| 142 | CREATE V ALUE)= @ | |
| 143 | DELETE V ALUE)= NO EFFECT | |
| 144 | FIELD)= SECONDARY PRIOR PAYM ENT | |
| 145 | This TRI GGER remov es the SEC ONDARY PRI OR | |
| 146 | PAYMENT when the C URRENT BIL L PAYER SE QUENCE is | |
| 147 | set to " P"rimary o r "S"econd ary to pro perly | |
| 148 | adjust t he calcula tion of th e OFFSET A MOUNT for | |
| 149 | subseque nt claims being plac ed on the 837 | |
| 150 | claims t ransmissio n. | |
| 151 | ||
| 152 | If changin g the Curr ent Bill P ayer Seque nce to “PR IMARY”, “S ECONDARY” or “TERTIA RY”, make the Tertia ry Prior P ayment bla nk: | |
| 153 | CROSS- REFERENCE: ^^TRIGGE R^399^220 | |
| 154 | 1)= K DI V S DIV=X, D0=DA,DIV( 0)=D0 S Y( 1)=$S($D( | |
| 155 | ^DGCR(39 9,D0,"U2") ):^("U2"), 1:"") S X= $P(Y(1),U | |
| 156 | ,6),X=X S DIU=X K Y S X="" S DIH=$G(^D GCR(399,D | |
| 157 | IV(0),"U 2")),DIV=X S $P(^("U 2"),U,6)=D IV,DIH=39 | |
| 158 | 9,DIG=22 0 D ^DICR | |
| 159 | ||
| 160 | 2)= Q | |
| 161 | ||
| 162 | CREATE V ALUE)= @ | |
| 163 | DELETE V ALUE)= NO EFFECT | |
| 164 | FIELD)= TERTIARY P RIOR PAYME NT | |
| 165 | This TRI GGER remov es the TER TIARY PRIO R PAYMENT | |
| 166 | when the CURRENT B ILL PAYER SEQUENCE i s set to | |
| 167 | "P"rimar y, "S"econ dary or "T "ertiary t o | |
| 168 | properly adjust th e calculat ion of the OFFSET | |
| 169 | AMOUNT f or subsequ ent claims being pla ced on | |
| 170 | the 837 claims tra nsmission. | |
| 171 | ||
| 172 | The change the follo wing trigg er in the File #399 [Bill/Clai ms] for Fi eld #202 [ Offset Amo unt]: | |
| 173 | FROM: | |
| 174 | CROSS- REFERENCE: ^^TRIGGE R^399^203 | |
| 175 | 1)= Q | |
| 176 | 2)= K DI V S DIV=X, D0=DA,DIV( 0)=D0 S Y( 0)=X S Y( | |
| 177 | 1)=$S($D (^DGCR(399 ,D0,"U1")) :^("U1"),1 :"") S X= | |
| 178 | $P(Y(1), U,2)="" I X S X=DIV S Y(1)=$S( $D(^DGCR( | |
| 179 | 399,D0," U1")):^("U 1"),1:"") S X=$P(Y(1 ),U,3),X= | |
| 180 | X S DIU= X K Y S X= "" X ^DD(3 99,202,1,1 ,2.4) | |
| 181 | ||
| 182 | 2.4)= S DIH=$G(^DG CR(399,DIV (0),"U1")) ,DIV=X S | |
| 183 | $P(^("U1 "),U,3)=DI V,DIH=399, DIG=203 D ^DICR | |
| 184 | ||
| 185 | CREATE V ALUE)= NO EFFECT | |
| 186 | DELETE C ONDITION)= OFFSET AM OUNT="" | |
| 187 | DELETE V ALUE)= @ | |
| 188 | FIELD )= #203 | |
| 189 | ||
| 190 | TO: | |
| 191 | CROSS- REFERENCE: ^^TRIGGE R^399^203 | |
| 192 | 1)= Q | |
| 193 | 2)= X ^D D(399,202, 1,1,2.3) I X S X=DIV S Y(1)=$ | |
| 194 | S($D(^DG CR(399,D0, "U1")):^(" U1"),1:"") S X=$P(Y | |
| 195 | (1),U,3) ,X=X S DIU =X K Y S X ="" S DIH= $G(^DGCR( | |
| 196 | 399,DIV( 0),"U1")), DIV=X S $P (^("U1"),U ,3)=DIV,D | |
| 197 | IH=399,D IG=203 D ^ DICR | |
| 198 | ||
| 199 | 2.3)= K DIV S DIV= X,D0=DA,DI V(0)=D0 S Y(0)=X S | |
| 200 | Y(1)=$S( $D(^DGCR(3 99,D0,"U1" )):^("U1") ,1:"") S | |
| 201 | X=$P(Y(1 ),U,2)="", Y(2)=$G(X) S X=$P(Y( 1),U,2)=0 | |
| 202 | ,Y=X,X=Y (2),X=X!Y | |
| 203 | ||
| 204 | CREATE V ALUE)= NO EFFECT | |
| 205 | DELETE C ONDITION)= OFFSET AM OUNT=""!(O FFSET AMO | |
| 206 | UNT=0) | |
| 207 | DELETE V ALUE)= @ | |
| 208 | FIELD)= #203 | |
| 209 | When the OFFSET AM OUNT is de leted or i s equal | |
| 210 | to ZE RO, remove the OFFSE T DESCRIPT ION. | |
| 211 | ||
| 212 | Need to in clude and execute th e followin g module o f code in the IBY577 PO Post In stall rout ine to rec ompile the eBilling Screens (d ue to the Fileman mo dification s listed a bove): | |
| 213 | . | |
| 214 | . | |
| 215 | . | |
| 216 | ;RIT ; Re compile bi lling scre en templat es due to changes to Field #39 9,.21 cros s-referenc es. N X,Y, DMAX,IBN D MES^XPDUT L(">> Reco mpiling In put Templa tes for Bi lling Scre ens ...") F IBN=1:1: 10,"102"," 10H" D .S X="IBXS"_$ S(IBN=10:" A",IBN="10 2":"A2",IB N="10H":"A H",1:IBN), Y=$$FIND1^ DIC(.402,, "X","IB SC REEN"_IBN, "B"),DMAX= $$ROUSIZE^ DILF .I Y D EN^DIEZ D MES^XPDU TL(" Recom pile Compl eted.") Q ; | |
| 217 | . | |
| 218 | . | |
| 219 | . | |
| 220 | ||
| 221 | For the 83 7 TRANSMIS SION in th e Output F ormatter, the follow ing needs to be done concernin g COB1 seg ment: | |
| 222 | Modify the COB1 segm ent, piece 2 (Payer Responsibi lity Seque nce # Code ) so that it reflect s patch IB *2.0*577. To accomp lish this, the FORMA T CODE sho uld be cha nged in th e IB FORM FIELD CONT ENT file ( #364.7), r ecord #804 | |
| 223 | FROM: | |
| 224 | PIECE 2 Payer Res ponsibilit y Sequence # Code 364.6[80 8] 364.7[ 804] 364. 5[5] | |
| 225 | Leng th=1 M ax Lines=0 | |
| 226 | >Consta nt Value: "" | |
| 227 | >N Z,IBZ K IBXDATA S (Z,IBZ)=0 F S IBZ= $O(IBXSAVE ("CCOB",IB Z)) Q:'IBZ S | |
| 228 | Z=Z+1,IBX DATA(Z)=$E ("PST",IBZ ) I Z>1 D ID^IBCEF2( Z,"COB1") | |
| 229 | ||
| 230 | TO: | |
| 231 | PIECE 2 Payer Res ponsibilit y Sequence # Code 364.6[80 8] 364.7[ 804] 364. 5[5] | |
| 232 | Leng th=1 M ax Lines=0 | |
| 233 | >Consta nt Value: "" | |
| 234 | >N Z,IBZ K IBXDATA S (Z,IBZ)=0 F S IBZ= $O(IBXSAVE ("CCOB",IB Z)) Q:'IBZ I | |
| 235 | IBZ<$$COB N^IBCEF(IB XIEN) S Z= Z+1,IBXDAT A(Z)=$E("P ST",IBZ) I Z>1 D | |
| 236 | ID^IBCEF2 (Z,"COB1") | |
| 237 | ||
| 238 | Modify the FORMAT CO DE for Seg ment COB1, Piece 7 ( Other Paye r Claim Co ntrol Numb er), in Fi le #364.7, Entry 192 7 | |
| 239 | FROM: | |
| 240 | >N Z,Z0,Z1 ,IBZ I $D( ^DGCR(399, IBXIEN,"I2 ")) S Z=$$ COBN^IBCEF (IBXIEN) | |
| 241 | S Z1=$S(Z> 1:"^"_$E(" CB",Z),1: "B^C") F Z 0=1,2 D F^ IBCEF("N-U B-04 FORM LOCATOR 64 "_$P(Z1,U, Z0),"IBZ", ,IBXIEN) S IBXDATA(Z 0)=$G(IBZ) | |
| 242 | ||
| 243 | >N Z,Z1,IB Z M IBZ=IB XDATA K IB XDATA F Z= 1,2 I $D(^ DGCR(399,I BXIEN, | |
| 244 | "I"_(Z+1)) ),$G(IBZ(Z ))'="" S I BXDATA(Z)= IBZ(Z) | |
| 245 | ||
| 246 | TO: | |
| 247 | >N Z,Z0,Z1 ,IBZ I $D( ^DGCR(399, IBXIEN,"I2 ")) S Z=$$ COBN^IBCEF (IBXIEN) S Z1=$S(Z>1 :"^"_$E(" CB",Z),1:" B^C") F Z0 =1,2 D F^I BCEF("N-UB -04 FORM L OCATOR 64" _$P(Z1,U,Z 0),"IBZ",, IBXIEN) S IBXDATA(Z0 )=$G(IBZ) | |
| 248 | ||
| 249 | >N Z,Z1,IB Z M IBZ=IB XDATA K IB XDATA Q:$$ COBN^IBCEF (IBXIEN)=1 F Z=1,2 Q:Z=2&($$C OBN^IBCEF( IBXIEN)=2) I $D(^DG CR(399,IBX IEN,"I"_ | |
| 250 | (Z+1))),$G (IBZ(Z))'= "" S IBXDA TA(Z)=IBZ( Z) | |
| 251 | ||
| 252 | For the 83 7 TRANSMIS SION in th e Output F ormatter, modify the OI1A segm ent, piece 2 (Payer Responsibi lity Seque nce # Code ) so that it reflect s patch IB *2.0*577. To accomp lish this, the FORMA T CODE sho uld be cha nged in th e IB FORM FIELD CONT ENT file ( #364.7), r ecord #195 5 | |
| 253 | FROM: | |
| 254 | PIECE 2 Payer Res ponsibilit y Sequence 364.6[22 57] 364.7[ 1955] 364. 5[101] | |
| 255 | Length =1 Max Lines=0 | |
| 256 | >K IBXSAVE (1) N Z,C, D,Q S Z=$P ($G(^DGCR( 399,IBXIEN ,0)),U,21) I $D(^("I 2"))!$D(^( "I3")) S I BXSAVE(1)= Z,Q=$S("P" [Z:"23","S "[Z:"13", | |
| 257 | 1:"12") F C=1,2 S D= $E(Q,C),IB XDATA(C)=$ E("PST",D) S:$D(^DGC R(399, | |
| 258 | IBXIEN,"I" _D)) IBXSA VE(1,D)=IB XDATA(C) | |
| 259 | >N IBZ,Z,Z 0 M IBZ=IB XDATA K IB XDATA I $O (IBXSAVE(1 ,0)) S (Z, Z0)=00 F S | |
| 260 | Z=$O(IBXS AVE(1,Z)) Q:'Z S Z0 =Z0+1,IBXD ATA(Z0)=IB XSAVE(1,Z) I Z0>1 D | |
| 261 | ID^IBCEF2 (Z0,""OI1A "") | |
| 262 | ||
| 263 | TO: | |
| 264 | PIECE 2 Payer Res ponsibilit y Sequence 364.6[22 57] 364.7[ 1955] 364. 5[101] | |
| 265 | Length =1 Max Lines=0 | |
| 266 | >K IBXSAVE (1) N Z,C, D,Q S Z=$P ($G(^DGCR( 399,IBXIEN ,0)),U,21) I | |
| 267 | $D(^("I2") )!$D(^("I3 ")) S IBXS AVE(1)=Z,Q =$S("P"[Z: "23","S"[Z :"13", | |
| 268 | 1:"12") F C=1,2 S D= $E(Q,C),IB XDATA(C)=$ E("PST",D) S:$D(^DGC R(399, | |
| 269 | IBXIEN,"I" _D)) IBXSA VE(1,D)=IB XDATA(C) | |
| 270 | >N IBZ,IBW ,Z,Z0 D F^ IBCEF("N-A LL AUTH CO DES","IBW" ) M IBZ=IB XDATA K I BXDATA I $ O(IBXSAVE( 1,0)) S (Z ,Z0)=0 F S Z=$O(IBX SAVE(1,Z)) , | |
| 271 | Z0=Z0+1 Q: 'Z I Z<($ F("PST",IB XSAVE(1))- 1)!($G(IBW (Z))]"") S | |
| 272 | IBXDATA(Z0 )=IBXSAVE( 1,Z) I Z0> 1 D ID^IBC EF2(Z0,"OI 1A") | |
| 273 | ||
| 274 | For the 83 7 TRANSMIS SION in th e Output F ormatter, the follow ing needs to be done concernin g OI6 segm ent: | |
| 275 | ||
| 276 | Delete OI6 piece 6.9 (PAYER SE C ID CHECK ) which cu rrently lo oks like t he followi ng: | |
| 277 | PIECE 6. 9 PAYER S EC ID CHEC K 364.6[18 50] 364.7[ 1550] 364. 5[56] | |
| 278 | ***** C ALCULATE O NLY, NO OU TPUT ***** | |
| 279 | >N Z,Z0 ,Z1,IBZ I $D(^DGCR(3 99,IBXIEN, "I2")) S Z =$$COBN^IB CEF(IBXIEN ) S Z1=$S( Z>1:"^"_$E (" CB",Z), 1:"B^C") F Z0=1,2 D F^IBCEF("N -UB-04 FOR M LOCATOR 64"_$P(Z1, U,Z0),"IBZ ",,IBXIEN) S IBXDATA (Z0)=$G(IB Z) | |
| 280 | >N Z,Z1 ,IBZ M IBZ =IBXDATA K IBXDATA F Z=1,2 I $ D(^DGCR(39 9,IBXIEN," I"_(Z+1))) ,$G(IBZ(Z) )'="" S IB XSAVE("ICN /DCN",Z)=1 | |
| 281 | ||
| 282 | This means the IB*2. 0*577 Pre- Install ro utine shou ld delete the follow ing entrie s: | |
| 283 | In the IB FORM SKEL ETON DEFIN ITION FILE (#364.6), entry 185 0 needs to be delete d: | |
| 284 | Global ^IB A(364.6,18 50 -- NOTE : translat ion in eff ect | |
| 285 | ^IBA(364.6 ,1850,0)=" 8^N^^114^1 ^^0^6.9^^P AYER SEC I D CHECK^1^ 1" | |
| 286 | ||
| 287 | In the IB FORM FIELD CONTENT F ILE (#364. 7), entry 1550 needs to be del eted: | |
| 288 | Global ^IB A(364.7,15 50 -- NOTE : translat ion in eff ect | |
| 289 | ^IBA(364.7 ,1550,0)=" 1850^N^56^ ^^^N" | |
| 290 | 1)=" N Z,Z1,IBZ M IBZ=IBX DATA K IBX DATA F Z=1 ,2 I | |
| 291 | $ D(^DGCR(39 9,IBXIEN," "I""_(Z+1) )),$G(IBZ( Z))'="""" S | |
| 292 | I BXSAVE(""I CN/DCN"",Z )=1" | |
| 293 | ^IBA(364.7 ,1550,3,0) ="^^8^8^30 70910^" | |
| 294 | ^IBA(364.7 ,1550,3,1, 0)="This i s OI6-6.9 as a calcu late only field. It is | |
| 295 | patterned after the " | |
| 296 | ^IBA(364.7 ,1550,3,2, 0)="OI1-10 data to s ee if an I CN/DCN num ber is | |
| 297 | present f or this ot her payer. " | |
| 298 | ^IBA(364.7 ,1550,3,3, 0)="Any ch anges need ed should be made bo th here an d | |
| 299 | in OI1-10 ." | |
| 300 | ^IBA(364.7 ,1550,3,4, 0)=" " | |
| 301 | ^IBA(364.7 ,1550,3,5, 0)="If the re is an I CN/DCN num ber in OI1 -10, then | |
| 302 | this piec e will set a flag " | |
| 303 | ^IBA(364.7 ,1550,3,6, 0)="in the IBXSAVE a rray indic ating the existence of | |
| 304 | an ICN/DC N. We can not " | |
| 305 | ^IBA(364.7 ,1550,3,7, 0)="transm it OI6-7 o r 8 if thi s is true because th ere | |
| 306 | is only r oom for 3 " | |
| 307 | ^IBA(364.7 ,1550,3,8, 0)="payer secondary ID's and q ualifiers. " | |
| 308 | ||
| 309 | Modify OI6 piece 7 ( OTHER PAYE R SEC ID Q UALIFIER ( 2)) by cha nging the FORMAT COD E field in the IB FO RM FIELD C ONTENT fil e (#364.7) , record # 1537 | |
| 310 | FROM: | |
| 311 | PIECE 7 O ther Payer Sec ID Qu alifier(2) 364.6[ 1837] 364. 7[1537] 36 4.5[5] | |
| 312 | Length=3 | |
| 313 | Max L ines=0 | |
| 314 | >Consta nt Value: "" | |
| 315 | >N Z K IBXDATA F Z=1,2 Q:$D (IBXSAVE(" ICN/DCN",Z )) S IBXD ATA(Z)=$P( $G(IBXSAVE ("OI_PSIDS ",Z)),U,3) | |
| 316 | ||
| 317 | TO: | |
| 318 | PIECE 7 O ther Payer Sec ID Qu alifier(2) 364.6[ 1837] 364. 7[1537] 36 4.5[5] | |
| 319 | Length=3 | |
| 320 | Max L ines=0 | |
| 321 | >Consta nt Value: "" | |
| 322 | >N Z K IBXDATA F Z=1,2 S IB XDATA(Z)=$ P($G(IBXSA VE("OI_PSI DS",Z)),U, 3) | |
| 323 | ||
| 324 | Modify OI6 piece 8 ( OTHER PAYE R SEC ID ( 2)) by cha nging the FORMAT COD E field in the IB FO RM FIELD C ONTENT fil e (#364.7) , record # 1538 | |
| 325 | FROM: | |
| 326 | PIECE 8 Other Pay er Sec ID( 2) 364.6[18 38] 364.7[ 1538] 364. 5[5] | |
| 327 | Length=3 0 | |
| 328 | Max L ines=0 | |
| 329 | >Consta nt Value: "" | |
| 330 | >N Z K IBXDATA F Z=1,2 Q:$D (IBXSAVE(" ICN/DCN",Z )) S IBXD ATA(Z)=$P( $G(IBXSAVE ("OI_PSIDS ",Z)),U,4) | |
| 331 | ||
| 332 | TO: | |
| 333 | PIECE 8 Other Pay er Sec ID( 2) 364.6[18 38] 364.7[ 1538] 364. 5[5] | |
| 334 | Length=3 0 | |
| 335 | Max L ines=0 | |
| 336 | >Consta nt Value: "" | |
| 337 | >N Z K IBXDATA F Z=1,2 S IB XDATA(Z)=$ P($G(IBXSA VE("OI_PSI DS",Z)),U, 4) | |
| 338 | ||
| 339 | Modify OI6 piece 10. 1 (PAYER S EC ID CLEA R) by chan ging the F ORMAT CODE field in the IB FOR M FIELD CO NTENT file (#364.7), record #1 551 | |
| 340 | FROM: | |
| 341 | PIECE 10.1 PAYER SEC ID CLEAR 364.6[1 851] 364.7 [1551] 364 .5[5] | |
| 342 | ***** C ALCULATE O NLY, NO OU TPUT ***** | |
| 343 | >Consta nt Value: "" | |
| 344 | >K IBXS AVE("ICN/D CN") D CLE ANUP^IBCEF 78(.IBXSAV E) | |
| 345 | ||
| 346 | TO: | |
| 347 | PIECE 10.1 PAYER SEC ID CLEAR 364.6[1 851] 364.7 [1551] 364 .5[5] | |
| 348 | ***** C ALCULATE O NLY, NO OU TPUT ***** | |
| 349 | >Consta nt Value: "" | |
| 350 | >D CLEA NUP^IBCEF7 8(.IBXSAVE ) | |
| 351 | ||
| 352 | The IBY577 PR Pre-Ins tall routi ne needs t o be coded to includ e the Outp ut Formatt er modific ations men tioned abo ve: | |
| 353 | Routines | |
| 354 | Activities | |
| 355 | Routine Na me | |
| 356 | IBY577PR | |
| 357 | Enhancemen t Category | |
| 358 | New | |
| 359 | Modify | |
| 360 | Delete | |
| 361 | No Change | |
| 362 | RTM | |
| 363 | ||
| 364 | Related Op tions | |
| 365 | None | |
| 366 | Related Ro utines | |
| 367 | Routines “ Called By” | |
| 368 | Routines “ Called” | |
| 369 | ||
| 370 | ||
| 371 | ||
| 372 | ||
| 373 | Data Dicti onary (DD) Reference s | |
| 374 | IB DATA EL EMENT DEFI NITION Fil e [#364.7] | |
| 375 | Related Pr otocols | |
| 376 | None | |
| 377 | Related In tegration Control Re gistration s (ICRs) | |
| 378 | None | |
| 379 | Data Passi ng | |
| 380 | Input | |
| 381 | Output Re ference | |
| 382 | Both | |
| 383 | Global Re ference | |
| 384 | Local | |
| 385 | Input Attr ibute Name and Defin ition | |
| 386 | Name: | |
| 387 | Definition : | |
| 388 | Output Att ribute Nam e and Defi nition | |
| 389 | Name: | |
| 390 | Definition : | |
| 391 | Current Lo gic | |
| 392 | N/A | |
| 393 | Modified L ogic (Chan ges are in bold) | |
| 394 | IBY577PR ; ALB/VD - P re-Install ation for IB patch 5 77 ; 4/06/ 17 4:33pm ;;2.0;INTE GRATED BIL LING;**577 **;21-MAR- 94;Build 1 19 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. ; ; d elete all output for matter (O. F.) data e lements in cluded in build D DE LOF Q ;INC 3508(Y) ; function t o determin e if entry in IB ERR OR file (3 50.8) shou ld be incl uded in th e build ; Y - ien to file N DA TA,ENTRY,L N,OK,TAG S OK=0,ENTR Y=U_$P($G( ^IBE(350.8 ,Y,0)),U,3 )_U F LN=2 :1 S TAG=" ENT3508+"_ LN,DATA=$P ($T(@TAG), ";;",2) Q: DATA="" I $F(DATA,E NTRY) S OK =1 Q Q OK ;INCLUDE(F ILE,Y) ; f unction to determine if O.F. e ntry shoul d be inclu ded in the build ; F ILE=5,6,7 indicating file 364. x ; Y=ien to file NE W OK,LN,TA G,DATA S O K=0 F LN=2 :1 S TAG=" ENT"_FILE_ "+"_LN,DAT A=$P($T(@T AG),";;",2 ) Q:DATA=" " I $F(DA TA,U_Y_U) S OK=1 Q Q OK ; ;Del ete edited entries t o insure c lean insta ll of new entries ;D elete obso lete entri es.DELOF ; Delete included O F entries NEW FILE,D IK,LN,TAG, TAGLN,DATA ,PCE,DA,Y F FILE=5,6 ,7 S DIK=" ^IBA(364." _FILE_"," D . F TAG= "ENT"_FILE ,"DEL"_FIL E D .. F L N=2:1 S TA GLN=TAG_"+ "_LN,DATA= $P($T(@TAG LN),";;",2 ) Q:DATA=" " D ... F PCE=2:1 S DA=$P(DAT A,U,PCE) Q :'DA I $D (^IBA("364 ."_FILE,DA ,0)) D ^DI K Q ; ; Ex ample for ENT5, ENT6 , ENT7, DE L5, DEL6, and DEL7: ;;^195^254 ^259^269^3 24^325^ ; Note: Must have begi nning and ending up- carat ; ;- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ; 364.5 e ntries mod ified: ;EN T5 ; OF en tries in f ile 364.5 to be incl uded ; ;; ; ;------- ---------- ---------- ---------- ---------- ---------- ---------- ---- ; 364 .6 entries modified: ;ENT6 ; O .F. entrie s in file 364.6 to b e included ; ;; ; ;- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ; 364.7 e ntries mod ified: ; ; 804 - COB 1-2 ; 1015 - GEN-7 | |
| 395 | ; 1537 - OI6-7 ; 15 38 - OI6-8 ; 1551 - OI6-10.1 | |
| 396 | ; 1955 - OI1A-2 ;EN T7 ; O.F. entries in file 364. 7 to be in cluded ; ; ;^804^1015 ^1537^1538 ^1551^1955 ^ ; ;----- ---------- ---------- ---------- ---------- ---------- ---------- ------ ; 3 64.5 entri es deleted : ;DEL5 ; remove O.F. entri es in file 364.5 (no t re-added ) ; ;; ; ; ---------- ---------- ---------- ---------- ---------- ---------- ---------- - ; 364.6 entries de leted: ; ; 1850 - OI 6-6.9 ;DEL 6 ; rem ove O.F. e ntries in file 364.6 (not re-a dded) ; ;; ^1850^ ; ; ---------- ---------- ---------- ---------- ---------- ---------- ---------- - ; 364.7 entries de leted: ; ; 1550 - OI 6-6.9 ;DEL 7 ; rem ove O.F. e ntries in file 364.7 (not re-a dded) ; ;; ^1550^ ; ; ---------- ---------- ---------- ---------- ---------- ---------- ---------- -ENT3508 ; Add New I B Error Co des to Fil e 350.8 ; ;;^IB360^ ; | |
| 397 | ||
| 398 | The IBY577 PO Post-In stall rout ine needs to be code d to recom pile the B illing Scr eens: | |
| 399 | Routines | |
| 400 | Activities | |
| 401 | Routine Na me | |
| 402 | IBY577PO | |
| 403 | Enhancemen t Category | |
| 404 | New | |
| 405 | Modify | |
| 406 | Delete | |
| 407 | No Change | |
| 408 | RTM | |
| 409 | ||
| 410 | Related Op tions | |
| 411 | None | |
| 412 | Related Ro utines | |
| 413 | Routines “ Called By” | |
| 414 | Routines “ Called” | |
| 415 | ||
| 416 | ||
| 417 | ||
| 418 | ||
| 419 | Data Dicti onary (DD) Reference s | |
| 420 | Bill/Clai ms File (# 399) | |
| 421 | Related Pr otocols | |
| 422 | None | |
| 423 | Related In tegration Control Re gistration s (ICRs) | |
| 424 | None | |
| 425 | Data Passi ng | |
| 426 | Input | |
| 427 | Output Re ference | |
| 428 | Both | |
| 429 | Global Re ference | |
| 430 | Local | |
| 431 | Input Attr ibute Name and Defin ition | |
| 432 | Name: | |
| 433 | Definition : | |
| 434 | Output Att ribute Nam e and Defi nition | |
| 435 | Name: | |
| 436 | Definition : | |
| 437 | Current Lo gic | |
| 438 | N/A | |
| 439 | Modified L ogic (Chan ges are in bold) | |
| 440 | IBY576PO ; ALB/VD - P OST-INSTAL L FOR IB*2 .0*577 ;22 -FEB-2017 ;;2.0;INTE GRATED BIL LING;**577 **;21-MAR- 94;Build 6 ;;Per VA Directive 6402, this routine s hould not be modifie d. ; ; S I BA(2)="IB* 2*577 Post -Install.. .",(IBA(1) ,IBA(3))=" " D MES^X PDUTL(.IBA ) K IBA D RIT S IBA( 2)="IB*2*5 77 Post-In stall Comp lete.",(IB A(1),IBA(3 ))=" " D M ES^XPDUTL( .IBA) K IB A Q ;RIT ; Recompile billing s creen temp lates due to changes to Field #399,.21 c ross-refer ences. N X ,Y,DMAX,IB N D MES^XP DUTL(">> R ecompiling Input Tem plates for Billing S creens ... ") F IBN=1 :1:10,"102 ","10H" D .S X="IBXS "_$S(IBN=1 0:"A",IBN= "102":"A2" ,IBN="10H" :"AH",1:IB N),Y=$$FIN D1^DIC(.40 2,,"X","IB SCREEN"_I BN,"B"),DM AX=$$ROUSI ZE^DILF .I Y D EN^DI EZ D MES^X PDUTL(" Re compile Co mpleted.") Q ; | |
| 441 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.