Produced by Araxis Merge on 8/2/2017 2:39:11 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 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US190 SDD.docx | Wed Jun 21 18:15:20 2017 UTC |
| 2 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US190 SDD.docx | Wed Aug 2 18:08:56 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 946 |
| Changed | 1 | 2 |
| 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 US190 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | January 20 17 | |
| 10 | Version 1 | |
| 11 | User Story Number: U S190 (USPY -07) | |
| 12 | User Story Name: APA R to Suspe nse Errors | |
| 13 | ||
| 14 | Background | |
| 15 | Update thi s when the user stor y gets upd ated | |
| 16 | End use rs, across many CPAC s have rep orted rece ipts that appear to be “stuck” in proces sing and c ontinue to repeat re ceipts in the nightl y job. Th e issue ap pears to b e related to transac tions plac ed into su spense fro m the APAR list, but the ePaym ent teams, in conjun ction with VistA Pro duct suppo rt, has be en unable to narrow any furthe r specific s. In one instance, an ERA co ntained on ly one lin e item and that one ERA and li ne item wa s placed i nto suspen se – this may be a g ood one to begin res earching o n. Other ERAs had m ultiple li ne items – some post ed to pati ents accou nts ‘as no rmal’ and then ‘issu es’with li ne items p laced into suspense, from the APAR list. | |
| 17 | ||
| 18 | Conversati on | |
| 19 | Issues rep orted indi cates auto posting is leaving E RA lines f rom APAR a s marked f or autopos t with rec eipts part ly created . The exac t reason t his occurs is not ye t establis hed – we a re waiting error tra p report f rom Portla nd. | |
| 20 | For the in itial reme diation ef fort the f ollowing o ptions wil l be chang ed. | |
| 21 | Nightly Au topost Job | |
| 22 | The nightl y autopost job to pr ocess APAR lines mar ked for au topost wil l be enhan ced to pre vent APAR lines and receipts b eing left in an inte rmediate s tate. Thes e changes include: | |
| 23 | Currently the nightl y process resets the status of ERA lines marked fo r autopost after the receipt f or the ERA is create d and proc essed. The nightly j ob will be changed s o that the autopost status on ERA lines submitted from APAR will be re set when t he nightly job will begin to p rocess the ERA. This will ensu re that if issues oc cur in the receipt c reation an d processi ng the ERA line is r eturned to the APAR list. | |
| 24 | RCDPEAP1 | |
| 25 | Error hand ling in re ceipt crea tion will be correct ed. Curren tly, there are sever al instanc es of hard crashes ( and errors entered i nto the er ror trap) that can o ccur durin g error ha ndling in receipt cr eation. T he code wi ll be modi fied to pr event thes e errors f rom occurr ing. | |
| 26 | RCDPEM, RC DPEMA, RCD PEAP | |
| 27 | Receipt cr eation for split lin es will be corrected (this is a common r outine wit h receipt creation i n ERA Work list) | |
| 28 | RCDPEM, RC DPEMA | |
| 29 | Validation of APAR l ines suita ble for au topost wil l be chang ed to reje ct lines w hich alrea dy have re ceipts. | |
| 30 | RCDPEAP | |
| 31 | ERA Workli st | |
| 32 | The follow ing is not directly related to user stor y but was identified during re search | |
| 33 | The ERA wo rklist wil l be modif ied to dis play the a utopost da te for par tially pro cessed ERA s. | |
| 34 | RCDPEWL | |
| 35 | ERA Entry #: 136 Total Amt Pd: 2700. 98 C urrent Vie w: | |
| 36 | Payer Name /ID: TJB I NSURANCE C O./1223345 67 N O SORT ORD ER | |
| 37 | EFT #/TRAC E #: 221/A BC64313534 63 A LL EEOBS | |
| 38 | *** RECEIP T(S) ALREA DY CREATED *** (E170 13001A) | |
| 39 | Auto-Post Status: Pa rtial Auto-Post Date: Jan 30, 2017 | |
| 40 | ||
| 41 | 1 (V)EE OB Seq # O n ERA: 1 Net Payme nt Amt: 27 00.98 | |
| 42 | 1.0 01 Claim # : suspense Patient/L ast 4: ?? | |
| 43 | * **CLAIM NO T FOUND IN YOUR AR * ** | |
| 44 | P ayment Amt : 2700.98 Total Ad justments: 0.00 Net : 2700.98 | |
| 45 | R eceipt: E1 7013001A | |
| 46 | R eceipt Com ment: | |
| 47 | .......... .......... .......... .......... .......... .......... .......... ........ | |
| 48 | 2 (V)EE OB Seq # O n ERA: 2 Net Payme nt Amt: 0. 00 | |
| 49 | 2.001 Clai m #: K5000 09 Patient /Last 4: B OYDALL,NAN CY FLORENC E/
|
|
| 50 | C laim Bal: 1000.00 Billed Amt : 1200.00 Amt To P ost: 0.00 | |
| 51 | S vc Dt: 12/ 12/14 COB : NO Rx Copay: NON -EXEMPT M eans Tst: REQ | |
| 52 | + Enter ?? f or more ac tions | |
| 53 | Split/ Edit A Lin e Lo ok At Rece ipt Ma rk for Aut o Post | |
| 54 | Distri bute Adj A mts Re view Line ER A View/Pri nt ERA | |
| 55 | Refres h Scratch Pad Ve rify RP Receipt Processing | |
| 56 | Resear ch Menu Ch ange View EX IT | |
| 57 | Select Act ion: Next Screen// | |
| 58 | ||
| 59 | Resolution – Added C hanged Obj ects | |
| 60 | ||
| 61 | Routines | |
| 62 | Activities | |
| 63 | Routine Na me | |
| 64 | RCDPEM | |
| 65 | Enhancemen t Category | |
| 66 | New | |
| 67 | Modify | |
| 68 | Delete | |
| 69 | No Change | |
| 70 | RTM | |
| 71 | ||
| 72 | Related Op tions | |
| 73 | RCDPE EDI LOCKBOX WO RKLIST | |
| 74 | ||
| 75 | Related Ro utines | |
| 76 | Routines “ Called By” | |
| 77 | Routines “ Called” | |
| 78 | ||
| 79 | RCDPEAP | |
| 80 | RCDPEM0 | |
| 81 | RCDPEM1 | |
| 82 | RCDPEU | |
| 83 | RCDPEWL4 | |
| 84 | SPL1^IBCEO BAR | |
| 85 | EN^RCDPEAD | |
| 86 | EN^RCDPEAP $$ADDDE P^RCDPEM0 | |
| 87 | $$ADDREC^R CDPEM0 | |
| 88 | $$SETERR^R CDPEM0 | |
| 89 | MATCH^RCDP EM0 | |
| 90 | STORERR^RC DPEM0 | |
| 91 | BULL^RCDPE M1 | |
| 92 | EN2^RCDPEM 1 | |
| 93 | SENDBULL^R CDPEM1 | |
| 94 | EN^RCDPEM8 | |
| 95 | NEWPYR^RCD PESP | |
| 96 | $$CHKSUM^R CDPESR3 | |
| 97 | EN^RCDPEX4 | |
| 98 | CONFIRM^RC DPUDEP $$ADDTRAN^ RCDPURET | |
| 99 | ||
| 100 | Current Lo gic | |
| 101 | RCPTDET(RC RZ,RECTDA1 ,RCER) ; A dds detail to a rece ipt based on file 34 4.49 | |
| 102 | ; RCRZ = ie n of ERA e ntry in fi le 344.49 | |
| 103 | ; RECTDA1 = ien of re ceipt entr y in file 344 | |
| 104 | ; RCER = er ror array returned i f passed b y referenc e | |
| 105 | ; | |
| 106 | N RCR,RCSPL ,RCZ0,RCTR ANDA,RCQ,D R,DA,DIE,X ,Y,Q,Z0,Z1 ,Z | |
| 107 | ; | |
| 108 | S RCR=0 F S RCR=$O(^ RCY(344.49 ,RCRZ,1,RC R)) Q:'RCR D | |
| 109 | . S RCZ0=$G (^RCY(344. 49,RCRZ,1, RCR,0)) | |
| 110 | . I $P(RCZ0 ,U)'["." S RCSPL(+RC Z0)=$P(RCZ 0,U,9) Q | |
| 111 | . I $S(+$P( RCZ0,U,3)= 0:$P($G(^R CY(344.49, RCRZ,0)),U ,3),1:$P(R CZ0,U,3)<0 ) S RCSPL( RCZ0\1,+RC Z0)=RCZ0 Q | |
| 112 | . S RCTRAND A=$$ADDTRA N^RCDPURET (RECTDA1) | |
| 113 | . ; | |
| 114 | . I 'RCTRAN DA D Q ; Error add ing receip t detail | |
| 115 | . . S RCER(1 )=$$SETERR ^RCDPEM0() S RCER($O (RCER(""), -1)+1)=" NO DETAIL LINE ADDED TO RECEIP T "_$P($G( ^RCY(344,R ECTDA1,0)) ,U | |
| 116 | )_" FOR LI NE #"_$P(R CZ0,U)_" I N EEOB WOR KLIST SCRA TCH PAD" | |
| 117 | . ; | |
| 118 | . ;Store re ceipt line detail | |
| 119 | . | |
| 120 | . | |
| 121 | . | |
| 122 | ||
| 123 | Modified L ogic (Chan ges are in bold) | |
| 124 | RCPTDET(RC RZ,RECTDA1 ,RCER) ; A dds detail to a rece ipt based on file 34 4.49 | |
| 125 | ; RCRZ = ie n of ERA e ntry in fi le 344.49 | |
| 126 | ; RECTDA1 = ien of re ceipt entr y in file 344 | |
| 127 | ; RCER = er ror array returned i f passed b y referenc e | |
| 128 | ; | |
| 129 | N RCR,RCSPL ,RCZ0,RCTR ANDA,RCQ,D R,DA,DIE,X ,Y,Q,Z0,Z1 ,Z | |
| 130 | ; | |
| 131 | S RCR=0 F S RCR=$O(^ RCY(344.49 ,RCRZ,1,RC R)) Q:'RCR D | |
| 132 | . S RCZ0=$G (^RCY(344. 49,RCRZ,1, RCR,0)) | |
| 133 | . I $P(RCZ0 ,U)'["." S RCSPL(+RC Z0)=$P(RCZ 0,U,9) Q | |
| 134 | . I $S(+$P( RCZ0,U,3)= 0:$P($G(^R CY(344.49, RCRZ,0)),U ,3),1:$P(R CZ0,U,3)<0 ) S RCSPL( RCZ0\1,+RC Z0)=RCZ0 Q | |
| 135 | . S RCTRAND A=$$ADDTRA N^RCDPURET (RECTDA1) | |
| 136 | . ; | |
| 137 | . I RCTRAND A’>0 D Q ; Error a dding rece ipt detail | |
| 138 | . . S RCER(1 )=$$SETERR ^RCDPEM0(1 ) S RCER($ O(RCER("") ,-1)+1)=" NO DETAIL LINE ADDE D TO RECEI PT "_$P($G (^RCY(344, RECTDA1,0) ),U | |
| 139 | )_" FOR LI NE #"_$P(R CZ0,U)_" I N EEOB WOR KLIST SCRA TCH PAD" | |
| 140 | . ; | |
| 141 | . ;Store re ceipt line detail | |
| 142 | . | |
| 143 | . | |
| 144 | . | |
| 145 | ||
| 146 | ||
| 147 | ||
| 148 | Routines | |
| 149 | Activities | |
| 150 | Routine Na me | |
| 151 | RCDPEMA | |
| 152 | Enhancemen t Category | |
| 153 | New | |
| 154 | Modify | |
| 155 | Delete | |
| 156 | No Change | |
| 157 | RTM | |
| 158 | ||
| 159 | Related Op tions | |
| 160 | PRCA NIGHT LY PROCESS | |
| 161 | ||
| 162 | Related Ro utines | |
| 163 | Routines “ Called By” | |
| 164 | Routines “ Called” | |
| 165 | ||
| 166 | EN2^RCDPEA P | |
| 167 | SPL1^IBCEO BAR | |
| 168 | $$SETERR^R CDPEM0 | |
| 169 | $$NEXT^RCD PUREC $$ ADDTRAN^RC DPURET | |
| 170 | ||
| 171 | Current Lo gic | |
| 172 | RCPTDET(RC RZ,RECTDA1 ,RCLINES,R CER) ; Add s detail t o a receip t based on file 344. 49 and exc eptions in array RCL INES | |
| 173 | ; RCRZ = ie n of ERA e ntry in fi le 344.49 | |
| 174 | ; RECTDA1 = ien of re ceipt entr y in file 344 | |
| 175 | ; RCER = er ror array returned i f passed b y referenc e | |
| 176 | ; RCLINES = array to indicate w hich scrat chpad line s can be p osted (ass igned a re ceipt) | |
| 177 | ; | |
| 178 | N DA,DIE,DR ,Q,RCLINE, RCQ,RCR,RC SPL,RCTRAN DA,RCZ0,SE QLINES,RCS EQ,X,Y,Z,Z 0,Z1 | |
| 179 | ; | |
| 180 | S RCR=0 F S RCR=$O(^ RCY(344.49 ,RCRZ,1,RC R)) Q:'RCR D | |
| 181 | . S RCZ0=$G (^RCY(344. 49,RCRZ,1, RCR,0)),RC SEQ=$P(RCZ 0,U) | |
| 182 | . ;Check fi rst line f or prefix to see if ERA line i s valid fo r auto-pos t | |
| 183 | . I RCSEQ?1 N.N,$P(RCZ 0,U,9),$P( $G(RCLINES ($P(RCZ0,U ,9))),U) S SEQLINES( RCSEQ)="" | |
| 184 | . ;Skip WOR KLIST line s that do not need a ssociated receipt de tail | |
| 185 | . Q:'$D(SEQ LINES(RCSE Q\1)) | |
| 186 | . I RCSEQ'[ "." S RCSP L(+RCZ0)=$ P(RCZ0,U,9 ) Q | |
| 187 | . I $S(+$P( RCZ0,U,3)= 0:$P($G(^R CY(344.49, RCRZ,0)),U ,3),1:$P(R CZ0,U,3)<0 ) S RCSPL( RCZ0\1,+RC Z0)=RCZ0 Q | |
| 188 | . S RCTRAND A=$$ADDTRA N^RCDPURET (RECTDA1) | |
| 189 | . ; | |
| 190 | . I 'RCTRAN DA D Q ; Error add ing receip t detail | |
| 191 | . . S RCER(1 )=$$SETERR ^RCDPEM0() S RCER($O (RCER(""), -1)+1)=" NO DETAIL LINE ADDED TO RECEIP T "_$P($G( ^RCY(344,R ECTDA1,0)) ,U | |
| 192 | )_" FOR LI NE #"_$P(R CZ0,U)_" I N EEOB WOR KLIST SCRA TCH PAD" | |
| 193 | . | |
| 194 | . | |
| 195 | . | |
| 196 | ||
| 197 | Modified L ogic (Chan ges are in bold) | |
| 198 | RCPTDET(RC RZ,RECTDA1 ,RCLINES,R CER) ; Add s detail t o a receip t based on file 344. 49 and exc eptions in array RCL INES | |
| 199 | ; RCRZ = ie n of ERA e ntry in fi le 344.49 | |
| 200 | ; RECTDA1 = ien of re ceipt entr y in file 344 | |
| 201 | ; RCER = er ror array returned i f passed b y referenc e | |
| 202 | ; RCLINES = array to indicate w hich scrat chpad line s can be p osted (ass igned a re ceipt) | |
| 203 | ; | |
| 204 | N DA,DIE,DR ,Q,RCLINE, RCQ,RCR,RC SPL,RCTRAN DA,RCZ0,SE QLINES,RCS EQ,X,Y,Z,Z 0,Z1 | |
| 205 | ; | |
| 206 | S RCR=0 F S RCR=$O(^ RCY(344.49 ,RCRZ,1,RC R)) Q:'RCR D | |
| 207 | . S RCZ0=$G (^RCY(344. 49,RCRZ,1, RCR,0)),RC SEQ=$P(RCZ 0,U) | |
| 208 | . ;Check fi rst line f or prefix to see if ERA line i s valid fo r auto-pos t | |
| 209 | . I RCSEQ?1 N.N,$P(RCZ 0,U,9),$P( $G(RCLINES ($P(RCZ0,U ,9))),U) S SEQLINES( RCSEQ)="" | |
| 210 | . ;Skip WOR KLIST line s that do not need a ssociated receipt de tail | |
| 211 | . Q:'$D(SEQ LINES(RCSE Q\1)) | |
| 212 | . I RCSEQ'[ "." S RCSP L(+RCZ0)=$ P(RCZ0,U,9 ) Q | |
| 213 | . I $S(+$P( RCZ0,U,3)= 0:$P($G(^R CY(344.49, RCRZ,0)),U ,3),1:$P(R CZ0,U,3)<0 ) S RCSPL( RCZ0\1,+RC Z0)=RCZ0 Q | |
| 214 | . S RCTRAND A=$$ADDTRA N^RCDPURET (RECTDA1) | |
| 215 | . ; | |
| 216 | . I RCTRAND A’>0 D Q ; Error a dding rece ipt detail | |
| 217 | . . S RCER(1 )=$$SETERR ^RCDPEM0(1 ) S RCER($ O(RCER("") ,-1)+1)=" NO DETAIL LINE ADDE D TO RECEI PT "_$P($G (^RCY(344, RECTDA1,0) ),U | |
| 218 | )_" FOR LI NE #"_$P(R CZ0,U)_" I N EEOB WOR KLIST SCRA TCH PAD" | |
| 219 | . | |
| 220 | . | |
| 221 | . | |
| 222 | ||
| 223 | ||
| 224 | ||
| 225 | ||
| 226 | ||
| 227 | Routines | |
| 228 | Activities | |
| 229 | Routine Na me | |
| 230 | RCDPEAP | |
| 231 | Enhancemen t Category | |
| 232 | New | |
| 233 | Modify | |
| 234 | Delete | |
| 235 | No Change | |
| 236 | RTM | |
| 237 | ||
| 238 | Related Op tions | |
| 239 | PRCA NIGHT LY PROCESS | |
| 240 | ||
| 241 | Related Ro utines | |
| 242 | Routines “ Called By” | |
| 243 | Routines “ Called” | |
| 244 | ||
| 245 | RCDPAA2 | |
| 246 | RCDPEAD | |
| 247 | RCDPEAP1 | |
| 248 | RCDPEM | |
| 249 | RCDPEM0 | |
| 250 | RCDPEM2 | |
| 251 | RCDPWL8 | |
| 252 | $$LOCKDEP^ RCDPDPLU | |
| 253 | ERADET^RCD PEAP1 | |
| 254 | VALID^RCDP EAP1 | |
| 255 | RCPTDET^RC DPEM | |
| 256 | $$BLDRCPT^ RCDPEMA | |
| 257 | RCPTDET^RC DPEMA | |
| 258 | $$ADDREC^R CDPEWL | |
| 259 | ADDLINES^R CDPEWLA | |
| 260 | $$LOCKREC^ RCDPRPLU | |
| 261 | PROCESS^RC DPURE1 | |
| 262 | $$BLDRCPT^ RCDPUREC | |
| 263 | $$FMSSTAT^ RCDPUREC | |
| 264 | $$PENDPAY^ RCDPURET | |
| 265 | ||
| 266 | ||
| 267 | ||
| 268 | Current Lo gic | |
| 269 | . | |
| 270 | . | |
| 271 | . | |
| 272 | EN2 ; Auto-Post Previously Processed ERA | |
| 273 | . | |
| 274 | . | |
| 275 | . . ;ERA Receipt is created f rom scratc hpad entry - type 14 is EDI Lo ckbox paym ent | |
| 276 | . . S RCR CPTDA=$$BL DRCPT^RCDP EMA(RCERA) ; Creates basic rec eipt for E RA of paym ent type E DI LOCKBOX ; 2nd para meter mean s an | |
| 277 | alpha suf fix on rec eipt numbe r | |
| 278 | . . K RCE RR | |
| 279 | . . D RCP TDET^RCDPE MA(RCERA,R CRCPTDA,.R CLINES,.RC ERR) ; Add s detail t o a receip t based on file 344. 49 and RCL INES array | |
| 280 | . . ;Unab le to crea te receipt - clear s cratchpad, reset AUT O-POST STA TUS = NULL | |
| 281 | . . I $O( RCERR("")) D CLEAR(R CSCR),SETS TA(RCERA," @","Auto P osting: Re moved from Auto Post ing-Unable to create receipt") Q | |
| 282 | . . ;Lock ERA recei pt and dep osit ticke t | |
| 283 | . | |
| 284 | . | |
| 285 | ||
| 286 | Modified L ogic (Chan ges are in bold) | |
| 287 | . | |
| 288 | . | |
| 289 | . | |
| 290 | EN2 ; Auto-Post Previously Processed ERA | |
| 291 | . | |
| 292 | . | |
| 293 | . . ;Get deposit ti cket and E FT receipt | |
| 294 | . . S RCD EPTDA=+$P( $G(^RCY(34 4.3,+$G(^R CY(344.31, +RCEFTDA,0 )),0)),U,3 ),RCRECTDA =+$O(^RCY( 344,"AD",+ RCDEPTDA,0 )) | |
| 295 | . . ;ERA Receipt is created f rom scratc hpad entry - type 14 is EDI Lo ckbox paym ent | |
| 296 | . . S RCR CPTDA=$$BL DRCPT^RCDP EMA(RCERA) ; Creates basic rec eipt for E RA of paym ent type E DI LOCKBOX ; 2nd para meter mean s an | |
| 297 | alpha suf fix on rec eipt numbe r | |
| 298 | . . I 'RC RCPTDA Q ; Problem bu ilding rec eipt heade r | |
| 299 | . . K RCE RR | |
| 300 | . . D RCP TDET^RCDPE MA(RCERA,R CRCPTDA,.R CLINES,.RC ERR) ; Add s detail t o a receip t based on file 344. 49 and RCL INES array | |
| 301 | . . ;Unab le to crea te receipt - clear s cratchpad, reset AUT O-POST STA TUS = NULL | |
| 302 | . . I $O( RCERR("")) Q ;Do not attempt t o process partially filed rece ipt | |
| 303 | . . ;Lock ERA recei pt and dep osit ticke t | |
| 304 | . | |
| 305 | . | |
| 306 | ||
| 307 | ||
| 308 | ||
| 309 | Resoluti on – Added Changed O bjects | |
| 310 | ||
| 311 | Routines | |
| 312 | Activities | |
| 313 | Routine Na me | |
| 314 | RCDPEAP1 | |
| 315 | Enhancemen t Category | |
| 316 | New | |
| 317 | Modify | |
| 318 | Delete | |
| 319 | No Change | |
| 320 | RTM | |
| 321 | ||
| 322 | Related Op tions | |
| 323 | PRCA NIGHT LY PROCESS | |
| 324 | ||
| 325 | Related Ro utines | |
| 326 | Routines “ Called By” | |
| 327 | Routines “ Called” | |
| 328 | ||
| 329 | RCDPEAD | |
| 330 | RCDPEAP | |
| 331 | RCDPEAPP | |
| 332 | RCDPEM0 | |
| 333 | RCDPEM2 | |
| 334 | RCDPEWL8 | |
| 335 | $$CHECKPAY ^RCDPEAP | |
| 336 | $$SCRPAD^R CDPEAP | |
| 337 | CLEAR^RCDP EAP | |
| 338 | ||
| 339 | ||
| 340 | Current Lo gic | |
| 341 | ERADET(RCE RA,RCRCPTD A,RCLINES) ; | |
| 342 | . | |
| 343 | . | |
| 344 | . ;Get al l ERA line reference s; RCLINES (RCLIN) co uld have m ultiple li ne # refer ences (e.g ., RCLINES (3,4) or R CLINES(3)) | |
| 345 | . ;Need t o parse ou t each lin e referenc e so that the necess ary fields can be up dated for the specif ic line. | |
| 346 | . ;If not posted th en update the AUTO-P OST REJECT ION REASON (#5) | |
| 347 | . ;Otherw ise update line with receipt n umber and auto-post date | |
| 348 | . ;Set MA RK FOR AUT O-POST (#6 ) to off f or every l ine | |
| 349 | . F RCI=1 :1 S LNUM= $P(RCLIN," ,",RCI) Q: LNUM="" D | |
| 350 | . . S DA( 1)=RCERA,D A=LNUM,DIE ="^RCY(344 .4,"_DA(1) _",1," | |
| 351 | . . I REJ ECT S DR=" 5////"_$P( RCLINES(RC LIN),U,3)_ ";6////0" | |
| 352 | . . E S DR=".25/// /"_RCRCPTD A_";9////" _DT_";6/// /0" | |
| 353 | . . D ^DI E | |
| 354 | Q | |
| 355 | . | |
| 356 | . | |
| 357 | ||
| 358 | VALID(RCER A,RCLINES) ; | |
| 359 | . | |
| 360 | . | |
| 361 | .. ; If E RA referen ce is miss ing (shoul d not happ en), skip ahead to n ext intege r sequence | |
| 362 | .. I ERAL INE="" S S UB=SUB\1_" .999" Q | |
| 363 | .. S AUTO POST=1 | |
| 364 | . | |
| 365 | . | |
| 366 | . ;Line is potential ly postabl e - update flag | |
| 367 | . S RCLINE S(ERALINE) =1 | |
| 368 | ; | |
| 369 | ||
| 370 | ||
| 371 | Modified L ogic (Chan ges are in bold) | |
| 372 | ERADET(RCE RA,RCRCPTD A,RCLINES) ; | |
| 373 | . | |
| 374 | . | |
| 375 | ; Update ERA detail line with Receipt o r reject r eason as a ppropriate | |
| 376 | N RCLIN,R EJECT | |
| 377 | S RCLIN=0 F S RCLI N=$O(RCLIN ES(RCLIN)) Q:'RCLIN D | |
| 378 | . ; Set R EJECT to t rue if the line if i t was reje cted durin g validati on | |
| 379 | . S REJEC T=0 I '$P( RCLINES(RC LIN),U) S REJECT=1 | |
| 380 | . ;If not posted th en update the AUTO-P OST REJECT ION REASON (#5) | |
| 381 | . ;Otherw ise update line with receipt n umber and auto-post date | |
| 382 | . S DA(1) =RCERA,DA= RCLIN,DIE= "^RCY(344. 4,"_DA(1)_ ",1," | |
| 383 | . I 'REJE CT,'RCRCPT DA Q | |
| 384 | . I REJEC T S DR="5/ //"_$P(RCL INES(RCLIN ),U,3) | |
| 385 | . E S DR =".25///"_ RCRCPTDA_" ;9///"_DT | |
| 386 | . D ^DIE | |
| 387 | Q | |
| 388 | . | |
| 389 | . | |
| 390 | VALID(RCER A,RCLINES) ; | |
| 391 | . | |
| 392 | . | |
| 393 | .. ; If E RA referen ce is miss ing (shoul d not happ en), skip ahead to n ext intege r sequence | |
| 394 | .. I ERAL INE="" S S UB=SUB\1_" .999" Q | |
| 395 | .. ; Chec k for rece ipt | |
| 396 | .. I $$GE T1^DIQ(344 .41,ERALIN E_","_RCER A_",",.25) ]"" S SUB= SUB\1_".99 9" Q | |
| 397 | .. S AUTO POST=1 | |
| 398 | . | |
| 399 | . | |
| 400 | . ;Line is potential ly postabl e - update flag | |
| 401 | . S RCLINE S(ERALINE) =1 | |
| 402 | ; | |
| 403 | ;Reset the MARK FOR AUTOPOST f lag on ERA lines and count num ber of aut o-postable lines | |
| 404 | N RCLIN,R CI | |
| 405 | S RCLIN=0 ,RCLINES=0 F S RCLI N=$O(RCLIN ES(RCLIN)) Q:'RCLIN D | |
| 406 | . I +RCLI NES(RCLIN) S RCLINES =RCLINES+1 | |
| 407 | . ;Set MA RK FOR AUT O-POST (#6 ) to NO fo r every li ne | |
| 408 | . S DA(1) =RCERA,DA= RCLIN,DIE= "^RCY(344. 4,"_DA(1)_ ",1," | |
| 409 | . S DR="6 ///0" | |
| 410 | . D ^DIE | |
| 411 | Q | |
| 412 | ||
| 413 | ||
| 414 | ||
| 415 | Resolution – Added C hanged Obj ects | |
| 416 | ||
| 417 | Routines | |
| 418 | Activities | |
| 419 | Routine Na me | |
| 420 | RCDPEWL | |
| 421 | Enhancemen t Category | |
| 422 | New | |
| 423 | Modify | |
| 424 | Delete | |
| 425 | No Change | |
| 426 | RTM | |
| 427 | ||
| 428 | Related Op tions | |
| 429 | RCDPE EDI LOCKBOX WO RKLIST | |
| 430 | ||
| 431 | Related Ro utines | |
| 432 | Routines “ Called By” | |
| 433 | Routines “ Called” | |
| 434 | ||
| 435 | RCDPEAP | |
| 436 | RCDPEWL0 | |
| 437 | RCDPEWL2 | |
| 438 | RCDPEWL5 | |
| 439 | RCDPEWL7 | |
| 440 | RCDPEWLP | |
| 441 | RCDPTTA1 ( testing to ol) | |
| 442 | PARAMS^RCD PEWL0 | |
| 443 | PRERA1^RCD PEWL0 | |
| 444 | BLD^RCDPEW L1 | |
| 445 | WL^RCDPEWL 7 | |
| 446 | ADDLINES^R CDPEWLA | |
| 447 | PARAMS^RCD PEWLA | |
| 448 | ||
| 449 | ||
| 450 | ||
| 451 | Current Lo gic | |
| 452 | . | |
| 453 | . | |
| 454 | . | |
| 455 | . ; Settin g the Auto -Post info in the he ader | |
| 456 | . N AUTOPS TS | |
| 457 | . S AUTOPS TS="Auto-P ost Status : "_$S($P( RC4,U,2)=0 :"Unposted ",$P(RC4,U ,2)=1:"Par tial",1:"C omplete") | |
| 458 | . S AUTOPS TS=AUTOPST S_" Aut o-Post Dat e: "_$S($P (RC4,U,2)= 2:$$FMTE^X LFDT($P(RC 4,U)),1:"" ) | |
| 459 | . | |
| 460 | . | |
| 461 | ||
| 462 | Modified L ogic (Chan ges are in bold) | |
| 463 | . | |
| 464 | . | |
| 465 | . | |
| 466 | . ; Settin g the Auto -Post info in the he ader | |
| 467 | . N AUTOPS TS | |
| 468 | . S AUTOPS TS="Auto-P ost Status : "_$S($P( RC4,U,2)=0 :"Unposted ",$P(RC4,U ,2)=1:"Par tial",1:"C omplete") | |
| 469 | . S AUTOPS TS=AUTOPST S_" Aut o-Post Dat e: "_$S($P (RC4,U,2)> 0:$$FMTE^X LFDT($P(RC 4,U)),1:"" ) | |
| 470 | . | |
| 471 | . | |
| 472 | ||
| 473 | ||
| 474 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.