Produced by Araxis Merge on 10/23/2018 6:40:10 AM 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 | docs | TAS ePay US2640 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US2640 SDD - Copy.doc | Mon Oct 22 16:31:17 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 566 |
| 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 US2640 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | September 2017 | |
| 7 | Version 1 | |
| 8 | User Story Number: U S2640 | |
| 9 | Epic Taxon omyComplia nce Por t Update Increase No TouchS tory | |
| 10 | As a...I w ant to...S o that...e Payments u serOnly se e Pharmacy Data Exce ptions if I select ‘ PHARMACY’ for the fi lter quest ion ‘INCLU DE EXCEPTI ONS FOR (M )EDICAL, ( P)HARMACY, OR (B)OTH ?’So that I can skip the Medic al Data Ex ceptionsCo nversation : | |
| 11 | Currently, if a user selects ‘ PHARMACY’ for the fi lter quest ion ‘INCLU DE EXCEPTI ONS FOR (M )EDICAL, ( P)HARMACY, OR (B)OTH ?’ no data exception s will be displayed even if th ere are ex isting Pha rmacy data exception s. | |
| 12 | To fix thi s bug, we can build off of US7 85 user st ory. This user stor y allows u sers at a site (who have the a ppropriate security key) to fl ag payers in the Pay er Exclusi on file (# 344.6) as Pharmacy Payers. U sing this enhancemen t, if the user selec ts ‘PHARMA CY’ for th e filter q uestion on ly data ex ceptions f or Payers flagged as Pharmacy Payers wil l be displ ayed in th e exceptio ns worklis t. | |
| 13 | Summary: | |
| 14 | Changed Ro utines: | |
| 15 | RCDPEX2 – Existing r outine | |
| 16 | Remove exi sting Medi cal/Pharma cy filter code and r eplace wit h new code that uses the Payer Exclusion file. Al so rewrite routine f or readabi lity/easie r maintena nce, addin g comments and break ing up lon g lines . Note: Mod ified code found in routine ZZ RCDPEX2us2 640 | |
| 17 | Resolution – Added C hanged Obj ects | |
| 18 | RoutinesAc tivitiesRo utine Name RCDEX2Enha ncement Ca tegory New Modify De lete No Ch angeRTMRel ated Optio nsRCDPE EX CEPTION PR OCESSINGRe lated Rout inesRoutin es “Called By”Routin es “Called ” RCDPEX 3 | |
| 19 | RCDPEX31 | |
| 20 | RCDPEX32$$ RXRLDT^PSO BPSUT | |
| 21 | $$INSCHK^R CDPENRU | |
| 22 | PYARY^RCDP ENRUCurren t LogicRCD PEX2 ;ALB/ TMK/KML/PJ H - ELECTR ONIC EOB D ETAIL EXCE PTION MAIN LIST TEMP LATE ;Aug 14, 2014@1 5:07:21 | |
| 23 | ;;4.5;Acc ounts Rece ivable;**1 73,269,298 ,304**;Mar 20, 1995; Build 104 | |
| 24 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 25 | ; | |
| 26 | INIT ; -- set up ini tial varia bles | |
| 27 | S U="^",V ALMCNT=0,V ALMBG=1 | |
| 28 | D BLD | |
| 29 | Q | |
| 30 | ; | |
| 31 | REBLD ; Se t up forma tted globa l | |
| 32 | ; | |
| 33 | BLD ; -- b uild list of message s from fil e 344.4 | |
| 34 | N RCBILL, RCSUB,RCSE Q,RCMSG1,R CEXC,RCS,R CER,RCDPDA TA,RCX,RCX 1,RC0,RCDE CME,DA,X,D R,Y,RCPYRI EN | |
| 35 | K ^TMP("R CDPEX_SUM- EOB",$J),^ TMP("RCDPE X_SUM-EOBD X",$J) | |
| 36 | K ^TMP("R CDPEADP",$ J) ; temp insurance array | |
| 37 | S (RCMSG, RCSEQ,VALM CNT)=0 | |
| 38 | ; | |
| 39 | ; Get lis t of payer s if list isn't alre ady built - PRCA*4.5 *304 | |
| 40 | D PYRARY^ RCDPENRU(R CPYRLST("S TART"),RCP YRLST("END "),1) | |
| 41 | ; | |
| 42 | ; Extract from 344. 4 | |
| 43 | S RCER=0 | |
| 44 | F S RCER =$O(^RCY(3 44.4,"AEXC ",RCER)) Q :'RCER F S RCMSG=$ O(^RCY(344 .4,"AEXC", RCER,RCMSG )) Q:'RCMS G D | |
| 45 | . ;Extrac t trace #, ins co na me/id, ERA Date | |
| 46 | . S RCSUB =RCMSG_"," ,DR=".02:. 06",DA=RCM SG K DA(1) D DIQ3444 (DA,DR) | |
| 47 | . ; HIPPA 5010 - di splay of t he Trace # on a sepa rate line due to the increased length fr om 30 to 5 0 characte rs | |
| 48 | . S RCX(" TRACE")=$G (RCDPDATA( 344.4,RCSU B,.02,"E") ) | |
| 49 | . S RCX(" INCOID")=$ G(RCDPDATA (344.4,RCS UB,.03,"E" )) | |
| 50 | . S RCX(" PAYFROM")= $G(RCDPDAT A(344.4,RC SUB,.06,"E ")) | |
| 51 | . ; | |
| 52 | . ;quit i f the exce ption is n ot for a s pecified E RA (proces sing from the genera l worklist ) | |
| 53 | . I $G(RC DWLIEN)'=" ",(RCDWLIE N'=+RCSUB) Q | |
| 54 | . ; | |
| 55 | . S RCPYR IEN=$O(^RC Y(344.6,"B ",RCX("PAY FROM"),"") ) ;Extract the IEN f or the pay er lookup | |
| 56 | . ; | |
| 57 | . ; quit if specifi c ERA not requested, payer not in list a nd range o f payer(s) was selec ted to pro cess | |
| 58 | . I '$G(R CDWLIEN),' $$INSCHK^R CDPENRU(RC PYRIEN) Q | |
| 59 | . ; | |
| 60 | . S RCS=0 F S RCS= $O(^RCY(34 4.4,"AEXC" ,RCER,RCMS G,RCS)) Q: 'RCS S RC 0=$G(^RCY( 344.4,RCMS G,1,RCS,0) ) D | |
| 61 | .. S DA(1 )=RCMSG,DA =RCS,RCSUB =DA_","_DA (1)_"," | |
| 62 | .. S DR=" .01;.02;.0 3;.05;.07; .08;.1;.11 ;.12;.15;. 24;9.01",D A=RCS D DI Q3444(.DA, DR) | |
| 63 | .. S RCDE CME=$G(RCD PDATA(344. 41,RCSUB,. 24,"E")) ; PRCA*4.5*2 98 Filter question f or medical , pharmacy or both | |
| 64 | .. I +RCD ECME,RCINC EX="M" Q | |
| 65 | .. I 'RCD ECME,RCINC EX="P" Q | |
| 66 | .. S RCX1 =$$SETSTR^ VALM1($E(R CX("PAYFRO M"),1,25)_ "/"_$E(RCX ("INCOID") ,1,20),"", 9,78) | |
| 67 | .. S RCSE Q=RCSEQ+1 | |
| 68 | .. S RCX= $$SETSTR^V ALM1($E(RC SEQ_$J("", 4),1,4)_" "_$G(RCX(" TRACE"))," ",1,80) | |
| 69 | .. S RCX= $$SETSTR^V ALM1(" "_$ $FMTE^XLFD T($G(RCDPD ATA(344.4, RCMSG_",", .04,"I")), 2),RCX,70, 10) | |
| 70 | .. D SET( RCX,RCSEQ, RCMSG,RCS) | |
| 71 | .. D SET( RCX1,RCSEQ ,RCMSG,RCS ) | |
| 72 | .. S X=$$ SETSTR^VAL M1($J("",6 )_"Seq #: "_$G(RCDPD ATA(344.41 ,RCSUB,.01 ,"E")),"", 1,17) | |
| 73 | .. S RCBI LL=$S($G(R CDPDATA(34 4.41,RCSUB ,.02,"E")) '="":RCDPD ATA(344.41 ,RCSUB,.02 ,"E"),1:"* "_$G(RCDPD ATA(344.41 ,RCSUB,.05 ,"E"))) | |
| 74 | .. S X=$$ SETSTR^VAL M1(" Bill: "_RCBILL, X,18,20) | |
| 75 | .. S X=$$ SETSTR^VAL M1(" Pt: " _$G(RCDPDA TA(344.41, RCSUB,.15, "E")),X,38 ,25) | |
| 76 | .. S X=$$ SETSTR^VAL M1(" Pd: " _$J(+$G(RC DPDATA(344 .41,RCSUB, .03,"E")), "",2),X,63 ,17) | |
| 77 | .. D SET( X,RCSEQ,RC MSG,RCS) | |
| 78 | .. ; | |
| 79 | .. I +RCD ECME D ;P RCA*4.5*29 8 Display pharmacy d ata when E CME number is presen t | |
| 80 | ... S X=$ $SETSTR^VA LM1($J("", 6)_"ECME # : "_$G(RCD PDATA(344. 41,RCSUB,. 24,"E")),X ,1,28) | |
| 81 | ... N RCO MMNT,RCRLS DT ; comm ent & rele ase date | |
| 82 | ... ; IA #4701, REL EASE DATE for the pr escription /fill | |
| 83 | ... S RCR LSDT=$$RXR LDT^PSOBPS UT($G(RCDP DATA(344.4 1,RCSUB,.2 4,"E"))) ; get relea se date | |
| 84 | ... S X=$ $SETSTR^VA LM1(" Rele ase Date: "_$$FMTE^X LFDT(RCRLS DT),X,29,5 1) | |
| 85 | ... D SET (X,RCSEQ,R CMSG,RCS) | |
| 86 | ... S RCO MMNT=$G(RC DPDATA(344 .41,RCSUB, 9.01,"E")) ; Rx comm ent | |
| 87 | ... S X=$ $SETSTR^VA LM1(" Comm ent: "_RCO MMNT,X,1,8 0) | |
| 88 | ... D SET (X,RCSEQ,R CMSG,RCS) | |
| 89 | .. ; | |
| 90 | .. I $P(R C0,U,11) D | |
| 91 | ... S X=$ J("",10)_" Transferre d To: "_$G (RCDPDATA( 344.41,RCS UB,.11,"E" )) | |
| 92 | ... S X=$ $SETSTR^VA LM1(" On: "_$$FMTE^X LFDT($G(RC DPDATA(344 .41,RCSUB, .12,"I")), 2),X,$L(X) +1,25) | |
| 93 | ... D SET (X,RCSEQ,R CMSG,RCS) | |
| 94 | .. S RCEX C=$S($G(RC DPDATA(344 .41,RCSUB, .07,"I"))= 99:$S($G(R CDPDATA(34 4.41,RCSUB ,.08,"E")) '="":RCDPD ATA(344.41 ,RCSUB,.08 ,"E"),1:"U NKNOWN"),1 :$G(RCDPDA TA(344.41, RCSUB,.07, "E"))) | |
| 95 | .. ; PRCA *4.5*298 R emove comm ent " (TRA NSFER NEED ED IF NOT YOURS)" | |
| 96 | .. S X=$J ("",10)_"* *Exception : "_RCEXC_ $S('$P(RC0 ,U,11):"", $P(RC0,U,7 )=1:$S($P( RC0,U,10)= 0:" (TRANS FER REJECT ED)",$P(RC 0,U,16):" (TRANSFER ACKNOWLEDG ED)",1:" ( TRANSFER N OT ACKNOWL EDGED)"),1 :"") | |
| 97 | .. D SET( X,RCSEQ,RC MSG,RCS) | |
| 98 | ; | |
| 99 | I '$D(^TM P("RCDPEX_ SUM-EOB",$ J)) S VALM CNT=2,^TMP ("RCDPEX_S UM-EOB",$J ,1,0)=" ", ^TMP("RCDP EX_SUM-EOB ",$J,2,0)= " There Ar e No EEOB Detail Exc eptions On File" | |
| 100 | Q | |
| 101 | ; | |
| 102 | FNL ; -- C lean up li st | |
| 103 | K ^TMP("R CDPEX_SUM- EOBDX",$J) | |
| 104 | D CLEAN^V ALM10 | |
| 105 | K RCFASTX T | |
| 106 | Q | |
| 107 | ; | |
| 108 | SET(X,RCSE Q,RCMSG,RC S) ; -- se t arrays f or EOB exc eption rec ords | |
| 109 | ; X = the data to s et into th e global | |
| 110 | S VALMCNT =VALMCNT+1 ,^TMP("RCD PEX_SUM-EO B",$J,VALM CNT,0)=X | |
| 111 | S ^TMP("R CDPEX_SUM- EOB",$J,"I DX",VALMCN T,RCSEQ)=" " | |
| 112 | S ^TMP("R CDPEX_SUM- EOBDX",$J, RCSEQ)=VAL MCNT_U_RCM SG_U_RCS | |
| 113 | Q | |
| 114 | ; | |
| 115 | HDR ; | |
| 116 | S VALMHDR (1)=$J("", 19)_"EEOB DETAIL DAT A WITH EXC EPTION CON DITIONS" | |
| 117 | ;HIPPA 50 10 - displ ay of the following headers on a separat e line due to the in creased le ngth of Tr ace # from 30 to 50 characters | |
| 118 | S VALMHDR (2)=" # Tr ace #"_$J( "",58)_"EO B Date" | |
| 119 | Q | |
| 120 | ; | |
| 121 | DIQ3444(DA ,DR) ; DIQ call to r etrieve da ta for DR fields in file 344.4 /344.41 | |
| 122 | N %I,D0,D IC,DIQ,DIQ 2,YY,FILE | |
| 123 | S FILE=$S ($D(DA(1)) :344.41,1: 344.4) | |
| 124 | K RCDPDAT A(FILE) | |
| 125 | D GETS^DI Q(FILE,DA_ ","_$S($G( DA(1)):DA( 1)_",",1:" "),DR,"EI" ,"RCDPDATA ") | |
| 126 | Q | |
| 127 | ; | |
| 128 | GETECME(RC SUB) ;DIQ call to ge t ECME num ber | |
| 129 | N IENS | |
| 130 | S IENS="1 ,1,"_RCSUB | |
| 131 | Q $$GET1^ DIQ(344.41 ,IENS,.24) Modified L ogic (Chan ges are in bold)RCDP EX2 ;ALB/T MK/KML/PJH - ELECTRO NIC EOB DE TAIL EXCEP TION MAIN LIST TEMPL ATE ;Aug 1 4, 2014@15 :07:21 | |
| 132 | ;;4.5;Acc ounts Rece ivable;**1 73,269,298 ,304**;Mar 20, 1995; Build 104 | |
| 133 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 134 | ; | |
| 135 | INIT ;EP f rom listma n template RCDPEX EO B_SUM EXCE PTION LIST | |
| 136 | ; set up initial va riables | |
| 137 | S U="^",V ALMCNT=0,V ALMBG=1 | |
| 138 | D BLD | |
| 139 | Q | |
| 140 | ; | |
| 141 | REBLD ; Se t up forma tted globa l | |
| 142 | ; | |
| 143 | BLD ;EP fr om RCDPEX3 ,RCDPEX31, RCDEPEX32 | |
| 144 | ; Build l ist of mes sages from file 344. 4 | |
| 145 | ; Input: RCDWLIEN - Optional set to a s elected ER A if the u ser opts t o see | |
| 146 | ; exception s after re ceiving an 'ACCESS D ENIED' mes sage | |
| 147 | ; in the ER A WORKLIST when they tried to create a s cratch | |
| 148 | ; pad for t he ERA (EX CDENY^RCDP EWLP). Oth erwise, un defined | |
| 149 | ; RCINCEX - 'M' - Onl y display Medical Ex ceptions | |
| 150 | ; 'P' - Onl y display Pharmacy E xceptions | |
| 151 | ; 'B' - Dis play both Medical an d Pharmacy Exception s | |
| 152 | ; RCPYRLST(" END") - En d of Payer Range (if a range w as selecte d) | |
| 153 | ; "" otherwise | |
| 154 | ; RCPYRLST(" START") - Start of P ayer Range (if a ran ge was sel ected) | |
| 155 | ; "" otherwi se | |
| 156 | N DA,DR,R C0,RCBILL, RCDPDATA,R CPYRIEN,RC ER,RCEXC,R CMSG1,RCS, RCSEQ,RCSU B,RCX,RCX1 ,X,XX,Y,YY | |
| 157 | K ^TMP("R CDPEX_SUM- EOB",$J),^ TMP("RCDPE X_SUM-EOBD X",$J) | |
| 158 | K ^TMP("R CDPEADP",$ J) ; Temp insurance array | |
| 159 | S (RCSEQ, VALMCNT)=0 | |
| 160 | ; | |
| 161 | ; Get lis t of payer s if list isn't alre ady built - PRCA*4.5 *304 | |
| 162 | D PYRARY^ RCDPENRU(R CPYRLST("S TART"),RCP YRLST("END "),1) | |
| 163 | ; | |
| 164 | ; Extract from 344. 4 | |
| 165 | S RCER=0 | |
| 166 | F D Q:' RCER | |
| 167 | . S RCER= $O(^RCY(34 4.4,"AEXC" ,RCER)) | |
| 168 | . Q:'RCER | |
| 169 | . S RCMSG =0 | |
| 170 | . F D Q :'RCMSG | |
| 171 | . . S RCM SG=$O(^RCY (344.4,"AE XC",RCER,R CMSG)) | |
| 172 | . . Q:'RC MSG | |
| 173 | . . S RCS UB=RCMSG_" ,",DR=".02 :.06",DA=R CMSG K DA( 1) | |
| 174 | . . D DIQ 3444(DA,DR ,.RCDPDATA ) ; Extrac t Trace #, Payer Nam e/TIN, ERA Date | |
| 175 | . . ; | |
| 176 | . . ; HIP PA 5010 - display of the Trace # on a se parate lin e due to t he increas ed | |
| 177 | . . ; len gth from 3 0 to 50 ch aracters | |
| 178 | . . S RCX ("TRACE")= $G(RCDPDAT A(344.4,RC SUB,.02,"E ")) | |
| 179 | . . S RCX ("INCOID") =$G(RCDPDA TA(344.4,R CSUB,.03," E")) | |
| 180 | . . S RCX ("PAYFROM" )=$G(RCDPD ATA(344.4, RCSUB,.06, "E")) | |
| 181 | . . ; | |
| 182 | . . ; Qui t if the e xception i s not for a specifie d ERA (whe n called f rom the ER A worklist ) | |
| 183 | . . I $G( RCDWLIEN)' ="",(RCDWL IEN'=+RCSU B) Q | |
| 184 | . . S XX= RCX("PAYFR OM"),YY=RC X("INCOID" ) | |
| 185 | . . S RCP YRIEN=$O(^ RCY(344.6, "CPID",XX, YY,"")) ; Payer IEN for the pa yer lookup /filter | |
| 186 | . . S XX= $$GET1^DIQ (344.6,RCP YRIEN,.09, "I") ; Pha rmacy Paye r Flag | |
| 187 | . . I RCI NDEX="P",X X'=1 Q ; Not a phar macy excep tion | |
| 188 | . . I RCI NDEX="M",X X=1 Q ; Not a medi cal except ion | |
| 189 | . . ; | |
| 190 | . . ; Qui t if speci fic ERA no t requeste d, payer n ot in list and range of payer( s) | |
| 191 | . . ; was selected to process | |
| 192 | . . I '$G (RCDWLIEN) ,'$$INSCHK ^RCDPENRU( RCPYRIEN) Q | |
| 193 | . . ; | |
| 194 | . . S RCS =0,RCDECME =0 ;**FA** | |
| 195 | . . F D Q:'RCS | |
| 196 | . . . S R CS=$O(^RCY (344.4,"AE XC",RCER,R CMSG,RCS)) | |
| 197 | . . . Q:' RCS | |
| 198 | . . . S R C0=$G(^RCY (344.4,RCM SG,1,RCS,0 )) | |
| 199 | . . . S D A(1)=RCMSG ,DA=RCS,RC SUB=DA_"," _DA(1)_"," | |
| 200 | . . . S D R=".01;.02 ;.03;.05;. 07;.08;.1; .11;.12;.1 5;.24;9.01 ",DA=RCS | |
| 201 | . . . D D IQ3444(.DA ,DR,.RCDPD ATA) | |
| 202 | . . . S R CX1=$$SETS TR^VALM1($ E(RCX("PAY FROM"),1,2 5)_"/"_$E( RCX("INCOI D"),1,20), "",9,78) | |
| 203 | . . . S R CSEQ=RCSEQ +1 | |
| 204 | . . . S R CX=$$SETST R^VALM1($E (RCSEQ_$J( "",4),1,4) _" "_$G(RC X("TRACE") ),"",1,80) | |
| 205 | . . . S X X=$G(RCDPD ATA(344.4, RCMSG_",", .04,"I")) ; ERA Date | |
| 206 | . . . S R CX=$$SETST R^VALM1(" "_$$FMTE^X LFDT(XX,"2 DZ"),RCX,7 0,10) | |
| 207 | . . . D S ET(RCX,RCS EQ,RCMSG,R CS) | |
| 208 | . . . D S ET(RCX1,RC SEQ,RCMSG, RCS) | |
| 209 | . . . S X =$$SETSTR^ VALM1($J(" ",6)_"Seq #: "_$G(RC DPDATA(344 .41,RCSUB, .01,"E")), "",1,17) | |
| 210 | . . . S X X=$G(RCDPD ATA(344.41 ,RCSUB,.02 ,"E")) | |
| 211 | . . . S R CBILL=$S(X X'="":XX,1 :"*"_$G(RC DPDATA(344 .41,RCSUB, .05,"E"))) | |
| 212 | . . . S X =$$SETSTR^ VALM1(" Bi ll: "_RCBI LL,X,18,20 ) | |
| 213 | . . . S X =$$SETSTR^ VALM1(" Pt : "_$G(RCD PDATA(344. 41,RCSUB,. 15,"E")),X ,38,25) | |
| 214 | . . . S X =$$SETSTR^ VALM1(" Pd : "_$J(+$G (RCDPDATA( 344.41,RCS UB,.03,"E" )),"",2),X ,63,17) | |
| 215 | . . . D S ET(X,RCSEQ ,RCMSG,RCS ) | |
| 216 | . . . ; | |
| 217 | . . . I + RCDECME D ;PRCA*4.5 *298 Displ ay pharmac y data whe n ECME num ber is pre sent | |
| 218 | . . . . S X=$$SETST R^VALM1($J ("",6)_"EC ME #: "_$G (RCDPDATA( 344.41,RCS UB,.24,"E" )),X,1,28) | |
| 219 | . . . . N RCOMMNT,R CRLSDT ; comment & release da te | |
| 220 | . . . . ; IA #4701, RELEASE D ATE for th e prescrip tion/fill | |
| 221 | . . . . S RCRLSDT=$ $RXRLDT^PS OBPSUT($G( RCDPDATA(3 44.41,RCSU B,.24,"E") )) ; get r elease dat e | |
| 222 | . . . . S X=$$SETST R^VALM1(" Release Da te: "_$$FM TE^XLFDT(R CRLSDT),X, 29,51) | |
| 223 | . . . . D SET(X,RCS EQ,RCMSG,R CS) | |
| 224 | . . . . S RCOMMNT=$ G(RCDPDATA (344.41,RC SUB,9.01," E")) ; Rx comment | |
| 225 | . . . . S X=$$SETST R^VALM1(" Comment: " _RCOMMNT,X ,1,80) | |
| 226 | . . . . D SET(X,RCS EQ,RCMSG,R CS) | |
| 227 | . . . ; | |
| 228 | . . . I $ P(RC0,U,11 ) D | |
| 229 | . . . . S X=$J("",1 0)_"Transf erred To: "_$G(RCDPD ATA(344.41 ,RCSUB,.11 ,"E")) | |
| 230 | . . . . S XX=$$FMTE ^XLFDT($G( RCDPDATA(3 44.41,RCSU B,.12,"I") ),"2DZ") | |
| 231 | . . . . S X=$$SETST R^VALM1(" On: "_XX,X ,$L(X)+1,2 5) | |
| 232 | . . . . D SET(X,RCS EQ,RCMSG,R CS) | |
| 233 | . . . S X X=$G(RCDPD ATA(344.41 ,RCSUB,.08 ,"E")) | |
| 234 | . . . S R CEXC=$S($G (RCDPDATA( 344.41,RCS UB,.07,"I" ))=99:$S(X X'="":XX,1 :"UNKNOWN" ),1:$G(RCD PDATA(344. 41,RCSUB,. 07,"E"))) | |
| 235 | . . . ; P RCA*4.5*29 8 Remove c omment " ( TRANSFER N EEDED IF N OT YOURS)" | |
| 236 | . . . S X =$J("",10) _"**Except ion: "_RCE XC | |
| 237 | . . . I $ P(RC0,U,7) =1 D | |
| 238 | . . . . I $P(RC0,U, 10)=0 S X= X_" (TRANS FER REJECT ED)" Q | |
| 239 | . . . . I $P(RC0,U, 16) S X=X_ " (TRANSFE R ACKNOWLE DGED)" Q | |
| 240 | . . . . S X=X_" (TR ANSFER NOT ACKNOWLED GED)" | |
| 241 | . . . D S ET(X,RCSEQ ,RCMSG,RCS ) | |
| 242 | ; | |
| 243 | I '$D(^TM P("RCDPEX_ SUM-EOB",$ J)) D | |
| 244 | . S VALMC NT=2,^TMP( "RCDPEX_SU M-EOB",$J, 1,0)=" " | |
| 245 | . S ^TMP( "RCDPEX_SU M-EOB",$J, 2,0)=" The re Are No EEOB Detai l Exceptio ns On File " | |
| 246 | Q | |
| 247 | ; | |
| 248 | FNL ;EP fr om listman template RCDPEX EOB _SUM EXCEP TION LIST | |
| 249 | ; Clean u p list | |
| 250 | K ^TMP("R CDPEX_SUM- EOBDX",$J) | |
| 251 | D CLEAN^V ALM10 | |
| 252 | K RCFASTX T | |
| 253 | Q | |
| 254 | ; | |
| 255 | SET(X,RCSE Q,RCMSG,RC S) ; Set a rrays for EOB except ion record s | |
| 256 | ; Input: X - Da ta to set into the g lobal | |
| 257 | ; RCSEQ - Li stman line # | |
| 258 | ; RCMSG - IE N for 344. 41 multipl e | |
| 259 | ; RCS - IE N for 344. 4 | |
| 260 | ; Output: Line adde d to the l istman bod y | |
| 261 | S VALMCNT =VALMCNT+1 ,^TMP("RCD PEX_SUM-EO B",$J,VALM CNT,0)=X | |
| 262 | S ^TMP("R CDPEX_SUM- EOB",$J,"I DX",VALMCN T,RCSEQ)=" " | |
| 263 | S ^TMP("R CDPEX_SUM- EOBDX",$J, RCSEQ)=VAL MCNT_U_RCM SG_U_RCS | |
| 264 | Q | |
| 265 | ; | |
| 266 | HDR ;EP fr om listman template RCDPEX EOB _SUM EXCEP TION LIST | |
| 267 | S VALMHDR (1)=$J("", 19)_"EEOB DETAIL DAT A WITH EXC EPTION CON DITIONS" | |
| 268 | ; | |
| 269 | ; HIPPA 5 010 - disp lay of the following headers o n a separa te line du e to the | |
| 270 | ; increas ed length of Trace # from 30 t o 50 chara cters | |
| 271 | S VALMHDR (2)=" # Tr ace #"_$J( "",58)_"EO B Date" | |
| 272 | Q | |
| 273 | ; | |
| 274 | DIQ3444(DA ,DR,RCPDAT A) ; DIQ c all to ret rieve data for DR fi elds in fi le 344.4/3 44.41 | |
| 275 | ; Input: DA - IEN for f ile 344.4 | |
| 276 | ; DR - Semi-colo n delimitt ed list of fields to be retrie ved | |
| 277 | ; Output: RCPDATA - Array of selected f ields | |
| 278 | N %I,D0,D IC,DIQ,DIQ 2,FILE,YY | |
| 279 | S FILE=$S ($D(DA(1)) :344.41,1: 344.4) | |
| 280 | K RCDPDAT A(FILE) | |
| 281 | D GETS^DI Q(FILE,DA_ ","_$S($G( DA(1)):DA( 1)_",",1:" "),DR,"EI" ,"RCDPDATA ") | |
| 282 | Q | |
| 283 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.