Produced by Araxis Merge on 10/23/2018 6:40:02 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 | MCCF EDI TAS US764 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | MCCF EDI TAS US764 SDD - Copy.doc | Mon Oct 22 16:30:56 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 1326 |
| 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 US764 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*3 26 | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | November 2 017 | |
| 7 | Version 1a | |
| 8 | Story | |
| 9 | As an ePay ments user , I need t he display language in the Lin k Payment Tracking r eport to b e enhanced as to eas ily unders tand the v erbiage wh en suspens e payments are split to multip le claims. The Multi -Trans Spl it languag e needs to be rewrit ten so tha t users un derstand w here all f unds were applied an d when/if there are remaining funds in s uspense. | |
| 10 | Conversati on | |
| 11 | 6/7/17 | |
| 12 | Link Payme nt Trackin g Report [ RCDPE SUSP ENSE AUDIT REPORT] ( internal n ame is not a typo) | |
| 13 | “Multi-Tra ns Split” needs to b e broken o ut to spec ific trans action ver biage | |
| 14 | Agent Cash ier Menu - > SR LINK PAYMENT TR ACKING REP ORT change name to S USPENSE AU DIT REPORT | |
| 15 | Fred to re search how “Multi-Tr ans Split” comment f unctionali ty works | |
| 16 | Summary | |
| 17 | Link Payme nt To Acco unt [RCDP LINK PAYME NT TO ACCO UNT] menu option | |
| 18 | Currently if the Lin k Payment action in this optio n is used to do a mu lti-transa ction spli t the text of ‘Multi -Trans Spl it’ update s the foll owing two fields: | |
| 19 | Receipt fi le #344.01 , COMMENT field #1 .02 | |
| 20 | Suspense A udit file #344.71, R EASON TEXT field #.0 8 | |
| 21 | The #344.7 1, .08 fie ld is disp layed on t he Link Pa yment Trac king Repor t | |
| 22 | The Link P ayment to Account op tion optio n will be changed to now also save detai ls of ‘Mu lti-Transa ction Spli t’ (accou nts, amou nts apport ioned and any suspen se comment s) into n ew fields in suspens e audit fi le #344.71 . | |
| 23 | Below is t he existin g user dia log for th e Multi-tr ans split, this will not be ch anged | |
| 24 | Select Act ion: Next Screen// L P Link P ayment | |
| 25 | This optio n will all ow the acc ount to be entered f or an unap plied | |
| 26 | payment tr ansaction selected f rom the ab ove list. If the se lected | |
| 27 | receipt ha s been pre viously pr ocessed, t he selecte d account in the | |
| 28 | accounts r eceivable package wi ll be upda ted with t he payment . | |
| 29 | Select Pay ment: (1- 42): 12 | |
| 30 | The curren t payment transactio n: RECEIPT: E 17051601 | |
| 31 | ---------- ---------- ---------- -- | |
| 32 | TRANSACTIO N: 3 PAYMENT AM OUNT: 6.42 | |
| 33 | DATE OF PAYMENT: M AY 16, 201 7 CHECK #: A BC64413532 77 | |
| 34 | DATE OF CHECK: MAY 10, 2017 ENTERED BY : HARTLEY, PETER | |
| 35 | ERA WORK LIST SEQUE NCE: 4 COMMENT: O verpayment | |
| 36 | Will thi s transact ion be lin ked to mul tiple clai ms (Y/N)? NO// YES | |
| 37 | BILL NUMBE R: K100005 ZZBLUE C ROSS/BS NE ACTIVE $179.18 | |
| 38 | Amount to apply to A ccount: ( 0.01-6.42) : 2 | |
| 39 | Receipt ha s $ 4 .42 left t o link. D o you wish to link a nother? YE S | |
| 40 | BILL NUMBE R: K100010 ZZBLUE C ROSS/BS NE ACTIVE $76.27 | |
| 41 | Amount to apply to A ccount: ( 0.01-4.42) : 2 | |
| 42 | Receipt ha s $ 2 .42 left t o link. D o you wish to link a nother? YE S | |
| 43 | BILL NUMBE R: SUSPENS E | |
| 44 | Amount to apply to A ccount: ( 0.01-2.42) : 2.42 | |
| 45 | COMMENT: 1 Collecte d/Closed | |
| 46 | *** RECEIP T HAS BEEN FULLY DIS BURSED *** | |
| 47 | Do you wan t to revie w the paym ent list b efore upda ting accou nts (Y/N)? YES | |
| 48 | PATIE NT NAME ACCO UNT PAYMENT TO APPLY | |
| 49 | HEINE ,ALFONSO L AWRENCE 442- K100005 $ 2.00 | |
| 50 | HEINE ,ALFONSO L AWRENCE 442- K100010 $ 2.00 | |
| 51 | SUSPE NSE $ 2.42 | |
| 52 | Do you wan t to updat e accounts with thes e payments (Y/N)? YE S | |
| 53 | Link Payme nt Trackin g Report [ RCDPE SUSP ENSE AUDIT REPORT] | |
| 54 | This repor t will be modified t o include details of the Multi -Trans Spl it – highl ighted bel ow – which will be r etrieved f rom the ne w fields i n the Susp ense Audit file #344 .71. | |
| 55 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
| 56 | LINK PAYME NT TRACKIN G REPORT JUN 16, 20 17@11:53:0 7 PAGE 4 | |
| 57 | FOR THE DATE RANGE : JAN 01, 2017 TO JUN 16, 20 17 FOR U SER(S): AL L | |
| 58 | RECEIPT# TRANS # DATE AMOU NT CLAIM USER DISP OSITION | |
| 59 | REASON CLAIM S | |
| 60 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
| 61 | E1702150EB 2 2/23/17 59. 00 PH Refu nd Sent | |
| 62 | REERGIER JNHJWEREWE REWRWREW | |
| 63 | E1508080IB 1 2/23/17 834. 70 PH In S uspense | |
| 64 | wdsjfgke rn | |
| 65 | E1508080IB 1 2/23/17 6. 42 PH In S uspense | |
| 66 | Multi-Tr ans Split | |
| 67 | K1000 05 $2 .00 | |
| 68 | K1000 10 $2 .00 | |
| 69 | SUSPE NSE $2 .42 Collec ted/Closed | |
| 70 | E1508080IB 1 2/27/17 834. 70 PH Refu nd Sent | |
| 71 | CS COMME NT ENTERED | |
| 72 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
| 73 | Data Dicti onary chan ges | |
| 74 | A new mult iple field MULTI TRA NS SPLIT w ill be add ed to RCDP E SUSPENSE AUDIT FIL E (#344.71 ) | |
| 75 | CONDENSED DATA DICTI ONARY---RC DPE SUSPEN SE AUDIT F ILE (#344. 71) | |
| 76 | STORED IN: ^RCY(344. 71, JU N 16,2017 PAGE 1 | |
| 77 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------- | |
| 78 | FIELD FIELD | |
| 79 | NUMBER NAME | |
| 80 | .01 TIMESTAMP (RD), [0;1 ] | |
| 81 | .02 USER (P200 '), [0;2] | |
| 82 | .03 RECEIPT # (P344'), [ 0;3] | |
| 83 | .04 TRANSACTIO N # (NJ8,0 ), [0;4] | |
| 84 | .05 AMOUNT (NJ 17,2), [0; 5] | |
| 85 | .06 CLAIM # (F ), [0;6] | |
| 86 | .07 DISPOSITIO N OF SUSPE NSE (S), [ 0;7] | |
| 87 | .08 REASON TEX T (F), [0; 8] | |
| 88 | 344.71,1 MULTI TRANS SPLI T 1;0 Multiple #344.711 | |
| 89 | DESCRI PTION: This mul tiple cont ains detai ls of how a | |
| 90 | suspense line is a pportioned between c laims | |
| 91 | when a m ulti-trans action spl it is perf ormed in | |
| 92 | Receipt Processing . | |
| 93 | TECHNI CAL DESCR: This mul tiple is u pdated in RECEIPT PR OCESSING | |
| 94 | and used in the LI NK PAYMENT TRACKING REPORT. | |
| 95 | 344.711,.0 1 SEQU ENCE 0 ;1 NUMBER (Required) | |
| 96 | INPU T TRANSFOR M: K:+X'= X!(X>999)! (X<1)!(X?. E1"."1.N) X | |
| 97 | LAST EDITED: NOV 17 , 2017 | |
| 98 | HELP -PROMPT: Type a number be tween 1 an d 999, 0 d ecimal | |
| 99 | digits . | |
| 100 | DESC RIPTION: This i s the sequ ence numbe r within a | |
| 101 | multi- transactio n split. | |
| 102 | CROS S-REFERENC E: 344.71 1^B | |
| 103 | 1)= S ^R CY(344.71, DA(1),1,"B ",$E(X,1,3 0),DA)="" | |
| 104 | 2)= K ^R CY(344.71, DA(1),1,"B ",$E(X,1,3 0),DA) | |
| 105 | 344.711,.0 2 CLAI M 0;2 FREE TEXT | |
| 106 | INPU T TRANSFOR M:K:$L(X)> 15!($L(X)< 1) X | |
| 107 | MAXI MUM LENGTH : 15 | |
| 108 | LAST EDITED: NOV 17, 2017 | |
| 109 | HELP -PROMPT: Answer m ust be 1-1 5 characte rs in leng th. | |
| 110 | DESC RIPTION: This is the claim number wit hin a | |
| 111 | multi-tr ansaction split. | |
| 112 | TECH NICAL DESC R:This cla im number may be eit her a vali d VistA | |
| 113 | third pa rty claim or a non-V A claim nu mber if | |
| 114 | part of the suspen se line is apportion ed back | |
| 115 | to suspe nse. | |
| 116 | 344.711,.0 3 AMOU NT 0;3 NUMBER | |
| 117 | INPU T TRANSFOR M:S:X["$" X=$P(X,"$" ,2) K:X'?. N.1".".2N! (X>999999 | |
| 118 | 9999)!(X <0)!(X?.E1 "."3.N) X | |
| 119 | LAST EDITED: NOV 17, 2017 | |
| 120 | HELP -PROMPT: Type a d ollar amou nt between 0 and 999 9999999, | |
| 121 | 2 decima l digits. | |
| 122 | DESC RIPTION: This is the amount of the su spense lin e | |
| 123 | apportio ned to the claim. | |
| 124 | 344.711,.0 4 COMM ENT 0;4 FREE TEXT | |
| 125 | INPU T TRANSFOR M:K:$L(X)> 50!($L(X)< 3) X | |
| 126 | MAXI MUM LENGTH : 50 | |
| 127 | LAST EDITED: NOV 17, 2017 | |
| 128 | HELP -PROMPT: Answer m ust be 3-5 0 characte rs in leng th. | |
| 129 | DESC RIPTION: This is the suspen se comment entered i f part of | |
| 130 | the orig inal suspe nse line i s apportio ned to | |
| 131 | suspense or a non- VA claim. | |
| 132 | Routines c hanged | |
| 133 | RCDPLPL4 – this exis ting routi ne will be modified to pass th e details of a multi -transacti on split ( in array R CARRAY) as an additi onal param eter to th e existing AUDIT^RCB EPAY routi ne which u pdates the suspense audit file #344.71. | |
| 134 | RCBEPAY – this exist ing routin e will be modified t o file cla ims, amoun ts and com ments fro m input pa rameter RC ARRAY into the new m ultiple fi eld #344.7 11 MULTI T RANS SPLIT above. | |
| 135 | Note that suspense h as a comme nt but no claim. Cla ims have n o comment. | |
| 136 | RCARRAY(1) ="290613;P RCA(430,^2 ^^K100005" | |
| 137 | RCARRAY(2) ="290618;P RCA(430,^2 ^^K100010" | |
| 138 | RCARRAY(3) ="^2.42^Co llected/Cl osed^" | |
| 139 | RCDPLPS2 – this exis ting routi ne will be modified to display split det ail from # 344.711 MU LTI TRANS SPLIT mult iple field . | |
| 140 | User Story 765 | |
| 141 | This separ ate user s tory will also be in troducing changes to RCDPLPL2 – addition al filters and an ex port to EX CEL option . The EXCE L option w ill have t o include the new mu lti-transa ction spli t fields. | |
| 142 | Resolution – Added C hanged Obj ects | |
| 143 | RoutinesAc tivitiesRo utine Name RCDPLPL4En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsRCDP L INK PAYMEN T TO ACCOU NTRelated RoutinesRo utines “Ca lled By”Ro utines “Ca lled” RC DPLPL3^DIE | |
| 144 | $$GET1^DIQ | |
| 145 | ^DIR | |
| 146 | $$PROCESS^ RCBEPAY | |
| 147 | AUDIT^RCBE PAY | |
| 148 | SUSPDIS^RC BEPAY | |
| 149 | $$COM^RCDP ECH | |
| 150 | AUDIT^RCDP ECH | |
| 151 | MAILMSG^RC DPLPSR | |
| 152 | WRITE^RCDP RPLU | |
| 153 | LASTEDIT^R CDPUREC | |
| 154 | PNORBILL^R CDPURED | |
| 155 | $$ADDTRAN^ RCDPURET | |
| 156 | DELEACCT^R CDPURET | |
| 157 | EDITFMS^RC DPURET | |
| 158 | SETUNAPP^R CDPURET | |
| 159 | $$TRIM^XLF STR | |
| 160 | $$UP^XLFST R Current Lo gic . ;If not the fi rst transa ction, cre ate a new one | |
| 161 | . I RCACT '=1 D Q | |
| 162 | . . ; | |
| 163 | . . ; Cre ate new tr ansaction | |
| 164 | . . S RCN WTRAN=$$CO PYTRAN(RCR ECTDA,RCTD ATA,RCTAMT ,RCGECSCR) | |
| 165 | . ;If thi s is the f irst trans action, ad just the p ayment amo unt to be the amount not split out. | |
| 166 | . I RCACT =1 D | |
| 167 | . . ; | |
| 168 | . . ; Mod ify the or iginal pay ment amoun t | |
| 169 | . . D ADJ TRAMT(RCRE CTDA,RCTRA NDA,RCTAMT ,RCGECSCR) | |
| 170 | . . ; | |
| 171 | ;Create a new trans action usi ng an exis ting trans action as the founda tion. | |
| 172 | COPYTRAN(R CRECTDA,RC TDATA,RCAM T,RCGECSCR ) ; | |
| 173 | ; | |
| 174 | N RCNWTRA N,DR,DA,DT OUT,DIE,X, Y,RCTDATA3 | |
| 175 | ; | |
| 176 | S RCTDATA 3=$G(^RCY( 344,RCRECT DA,1,RCTRA NDA,3)) | |
| 177 | ;Create a new trans action | |
| 178 | S RCNWTRA N=$$ADDTRA N^RCDPURET (RCRECTDA) | |
| 179 | S RCCMT=" Multi-Tran s Split" | |
| 180 | ; | |
| 181 | ;Update T ransaction | |
| 182 | S DR=".02 ////"_$P(R CTDATA,U,2 ) ;Origina l Confirma tion # | |
| 183 | S DR=DR_" ;.04///"_R CAMT ;A mount | |
| 184 | S DR=DR_" ;.06////"_ $P(RCTDATA ,U,6) ;Ori ginal date of paymen t | |
| 185 | S DR=DR_" ;.07////"_ $P(RCTDATA ,U,7) ;Ori ginal Chec k # | |
| 186 | S DR=DR_" ;.08////"_ $P(RCTDATA ,U,8) ;Ori ginal Chec k routing # | |
| 187 | S DR=DR_" ;.1////"_$ P(RCTDATA, U,10) ;Ori ginal date on the ch eck | |
| 188 | S DR=DR_" ;.11////"_ $P(RCTDATA ,U,11) ;Or iginal CC number | |
| 189 | S DR=DR_" ;.12////"_ $P(RCTDATA ,U,12) ;Or iginal use r who ente red the ch eck | |
| 190 | S DR=DR_" ;.13////"_ $P(RCTDATA ,U,13) ;Or iginal che ck account # | |
| 191 | S DR=DR_" ;.14///"_D UZ ;U ser Linkin g the paym ent | |
| 192 | S DR=DR_" ;1.02////" _RCCMT ;I nitial Com ment | |
| 193 | S DR=DR_" ;3.02////" _$P(RCTDAT A3,U,2) ;D ate Trans. originall y suspense | |
| 194 | S DR=DR_" ;3.03////" _$P(RCTDAT A3,U,3) ;U ser who or iginally s uspended T rans. | |
| 195 | S DIE="^R CY(344,"_R CRECTDA_", 1," | |
| 196 | S DA=RCNW TRAN,DA(1) =RCRECTDA | |
| 197 | D ^DIE | |
| 198 | S $P(^RCY (344,RCREC TDA,1,RCNW TRAN,0),"^ ",19)=$G(R CDPTYPE) | |
| 199 | ; | |
| 200 | ;Update t he Audit L og | |
| 201 | I $G(RCGE CSCR)'="" D AUDIT^RC BEPAY(RCRE CTDA,RCNWT RAN,"I") | |
| 202 | ; | |
| 203 | Q RCNWTRA N | |
| 204 | ; | |
| 205 | ;Adjust t he origina l transact ion's paym ent amount to match to the act ual, split amount. | |
| 206 | ADJTRAMT(R CRECTDA,RC TRANDA,RCA MT,RCGECSC R) ; | |
| 207 | ; | |
| 208 | N RCCMT,D R,DIE,DA,D TOUT | |
| 209 | S RCCMT=" Multi-Tran s Split" | |
| 210 | ; | |
| 211 | S DR=".04 ///"_RCAMT _";1.02/// "_RCCMT | |
| 212 | S DIE="^R CY(344,"_R CRECTDA_", 1," | |
| 213 | S DA=RCTR ANDA,DA(1) =RCRECTDA | |
| 214 | D ^DIE | |
| 215 | D LASTEDI T^RCDPUREC (RCRECTDA) | |
| 216 | ; | |
| 217 | ;Update t he Audit L og | |
| 218 | I $G(RCGE CSCR)'="" D AUDIT^RC BEPAY(RCRE CTDA,RCTRA NDA,"I") | |
| 219 | ;Update c omment his tory - PRC A*4.5*321 | |
| 220 | D AUDIT^R CDPECH(RCR ECTDA,RCTR ANDA,"","" ) | |
| 221 | QModified Logic (Ch anges are in bold) . ;If not t he first t ransaction , create a new one | |
| 222 | . I RCACT '=1 D Q | |
| 223 | . . ; | |
| 224 | . . ; Cre ate new tr ansaction | |
| 225 | . . S RCN WTRAN=$$CO PYTRAN(RCR ECTDA,RCTD ATA,RCTAMT ,RCGECSCR) | |
| 226 | . ;If thi s is the f irst trans action, ad just the p ayment amo unt to be the amount not split out. | |
| 227 | . I RCACT =1 D | |
| 228 | . . ; | |
| 229 | . . ; Mod ify the or iginal pay ment amoun t | |
| 230 | . . D ADJ TRAMT(RCRE CTDA,RCTRA NDA,RCTAMT ,RCGECSCR, .RCARRAY) | |
| 231 | . . ; | |
| 232 | ;Create a new trans action usi ng an exis ting trans action as the founda tion. | |
| 233 | COPYTRAN(R CRECTDA,RC TDATA,RCAM T,RCGECSCR ) ; | |
| 234 | ; Input | |
| 235 | ; RCREC TDA – IEN of Receipt file #344 | |
| 236 | ; RCPAY DA - IEN of Receipt Transacti on file #3 44.01 | |
| 237 | ; RCAMT - Amou nt | |
| 238 | ; RCGEC SCR – null = receipt not proce ssed | |
| 239 | ; Output | |
| 240 | ; Updat e Receipt file #344 and Audit log #344,7 1 | |
| 241 | ; | |
| 242 | ; | |
| 243 | N RCNWTRA N,DR,DA,DT OUT,DIE,X, Y,RCTDATA3 | |
| 244 | ; | |
| 245 | S RCTDATA 3=$G(^RCY( 344,RCRECT DA,1,RCTRA NDA,3)) | |
| 246 | ;Create a new trans action | |
| 247 | S RCNWTRA N=$$ADDTRA N^RCDPURET (RCRECTDA) | |
| 248 | S RCCMT=" Multi-Tran s Split" | |
| 249 | ; | |
| 250 | ;Update T ransaction | |
| 251 | S DR=".02 ////"_$P(R CTDATA,U,2 ) ;Origina l Confirma tion # | |
| 252 | S DR=DR_" ;.04///"_R CAMT ;A mount | |
| 253 | S DR=DR_" ;.06////"_ $P(RCTDATA ,U,6) ;Ori ginal date of paymen t | |
| 254 | S DR=DR_" ;.07////"_ $P(RCTDATA ,U,7) ;Ori ginal Chec k # | |
| 255 | S DR=DR_" ;.08////"_ $P(RCTDATA ,U,8) ;Ori ginal Chec k routing # | |
| 256 | S DR=DR_" ;.1////"_$ P(RCTDATA, U,10) ;Ori ginal date on the ch eck | |
| 257 | S DR=DR_" ;.11////"_ $P(RCTDATA ,U,11) ;Or iginal CC number | |
| 258 | S DR=DR_" ;.12////"_ $P(RCTDATA ,U,12) ;Or iginal use r who ente red the ch eck | |
| 259 | S DR=DR_" ;.13////"_ $P(RCTDATA ,U,13) ;Or iginal che ck account # | |
| 260 | S DR=DR_" ;.14///"_D UZ ;U ser Linkin g the paym ent | |
| 261 | S DR=DR_" ;1.02////" _RCCMT ;I nitial Com ment | |
| 262 | S DR=DR_" ;3.02////" _$P(RCTDAT A3,U,2) ;D ate Trans. originall y suspense | |
| 263 | S DR=DR_" ;3.03////" _$P(RCTDAT A3,U,3) ;U ser who or iginally s uspended T rans. | |
| 264 | S DIE="^R CY(344,"_R CRECTDA_", 1," | |
| 265 | S DA=RCNW TRAN,DA(1) =RCRECTDA | |
| 266 | D ^DIE | |
| 267 | S $P(^RCY (344,RCREC TDA,1,RCNW TRAN,0),"^ ",19)=$G(R CDPTYPE) | |
| 268 | ; | |
| 269 | ;Update t he Audit L og | |
| 270 | I $G(RCGE CSCR)'="" D AUDIT^RC BEPAY(RCRE CTDA,RCNWT RAN,"I") | |
| 271 | ; | |
| 272 | Q RCNWTRA N | |
| 273 | ; | |
| 274 | ;Adjust t he origina l transact ion's paym ent amount to match to the act ual, split amount. | |
| 275 | ADJTRAMT(R CRECTDA,RC TRANDA,RCA MT,RCGECSC R,RCARRAY) ; | |
| 276 | ; Input | |
| 277 | ; RCREC TDA – IEN of Receipt file #344 | |
| 278 | ; RCPAY DA - IEN of Receipt Transacti on file #3 44.01 | |
| 279 | ; RCAMT - Amou nt | |
| 280 | ; RCGEC SCR – null = receipt not proce ssed | |
| 281 | ; RCARR AY - Arra y of Multi -Trans spl it informa tion (OPTI ONAL) | |
| 282 | ; Output | |
| 283 | ; Updat e Receipt file #344 and Audit log #344,7 1 | |
| 284 | ; | |
| 285 | N RCCMT,D R,DIE,DA,D TOUT | |
| 286 | S RCCMT=" Multi-Tran s Split" | |
| 287 | ; | |
| 288 | S DR=".04 ///"_RCAMT _";1.02/// "_RCCMT | |
| 289 | S DIE="^R CY(344,"_R CRECTDA_", 1," | |
| 290 | S DA=RCTR ANDA,DA(1) =RCRECTDA | |
| 291 | D ^DIE | |
| 292 | D LASTEDI T^RCDPUREC (RCRECTDA) | |
| 293 | ; | |
| 294 | ;Update t he Audit L og | |
| 295 | I $G(RCGE CSCR)'="" D AUDIT^RC BEPAY(RCRE CTDA,RCTRA NDA,"I",.R CARRAY) | |
| 296 | ;Update c omment his tory - PRC A*4.5*321 | |
| 297 | D AUDIT^R CDPECH(RCR ECTDA,RCTR ANDA,"","" ) | |
| 298 | Q | |
| 299 | RoutinesAc tivitiesRo utine Name RCBEPAYEnh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsRCDP LI NK PAYMENT TO ACCOUN TRelated R outinesRou tines “Cal led By”Rou tines “Cal led” RCD PLPL1 | |
| 300 | RCDPLPL3 | |
| 301 | RCDPLPL4 | |
| 302 | RCDPURET^D IE | |
| 303 | UPDATE^DIE | |
| 304 | EXEMPT^RCB ECHGE | |
| 305 | $$PAYTRAN^ RCBEPAY1 | |
| 306 | $$CHECKPAY ^RCBEPAYC | |
| 307 | $$FIRSTPTY ^RCBEPAYF | |
| 308 | $$NOW^XLFD T Cur rent Logic ; | |
| 309 | AUDIT(RCRE CTDA,RCPAY DA,RCSTAT) ; store e ntry in Su spense Aud it Log | |
| 310 | N RCAUDIT ,RCDATA,RC DATA1,RCDA TA0 | |
| 311 | ; | |
| 312 | ; get the data elem ents | |
| 313 | S RCDATA= $G(^RCY(34 4,RCRECTDA ,0)) ;doub le check t hese | |
| 314 | S RCDATA0 =$G(^RCY(3 44,RCRECTD A,1,RCPAYD A,0)) | |
| 315 | S RCDATA1 =$G(^RCY(3 44,RCRECTD A,1,RCPAYD A,1)) | |
| 316 | ; | |
| 317 | ; set up array | |
| 318 | S RCAUDIT (344.71,"+ 1,",.01)=$ $NOW^XLFDT ;Date/Tim e Stamp | |
| 319 | S RCAUDIT (344.71,"+ 1,",.02)=D UZ ;Use r | |
| 320 | S RCAUDIT (344.71,"+ 1,",.03)=$ P(RCDATA,U ,1) ;Recei pt # | |
| 321 | S RCAUDIT (344.71,"+ 1,",.04)=R CPAYDA ;Tra nsaction # | |
| 322 | S RCAUDIT (344.71,"+ 1,",.05)=$ P(RCDATA0, U,4) ;Amou nt | |
| 323 | S RCAUDIT (344.71,"+ 1,",.06)=$ P(RCDATA0, U,9) ;Clai m # | |
| 324 | S RCAUDIT (344.71,"+ 1,",.07)=R CSTAT ;Sta tus | |
| 325 | S RCAUDIT (344.71,"+ 1,",.08)=$ P(RCDATA1, U,2) ;Reas on text | |
| 326 | ; | |
| 327 | ;file ent ry | |
| 328 | D UPDATE^ DIE(,"RCAU DIT") | |
| 329 | Q | |
| 330 | ;Modified Logic (Ch anges are in bold) ; | |
| 331 | AUDIT(RCRE CTDA,RCPAY DA,RCSTAT, RCMTS) ; s tore entry in Suspen se Audit L og | |
| 332 | ; Input | |
| 333 | ; RCRECT DA – IEN o f Receipt file #344 | |
| 334 | ; RCPAYD A - IEN o f Receipt Transactio n file #34 4.01 | |
| 335 | ; RCSTAT - Statu s I = In Suspense, P = Paid or R = Ref und | |
| 336 | ; RCMTS( N) – Array of Multi- Trans spli t informat ion (OPTIO NAL) | |
| 337 | ; $P (2) = AMOU NT | |
| 338 | ; $P (3) = Susp ense comme nt | |
| 339 | ; $P (4) = Acco unt/Claim | |
| 340 | ; e.g. | |
| 341 | ; RC MTS(1)="29 0613;PRCA( 430,^2^^K1 00005" | |
| 342 | ; RC MTS(2)="29 0618;PRCA( 430,^2^^K1 00010" | |
| 343 | ; RC MTS(3)="^2 .42^Collec ted/Closed ^" | |
| 344 | ; | |
| 345 | ; Output – Update R CDPE SUSPE NSE AUDIT file #344. 71 | |
| 346 | ||
| 347 | N FDAIEN, RCAUDIT,RC DATA,RCDAT A1,RCDATA0 | |
| 348 | ; | |
| 349 | ; get the data elem ents | |
| 350 | S RCDATA= $G(^RCY(34 4,RCRECTDA ,0)) ;doub le check t hese | |
| 351 | S RCDATA0 =$G(^RCY(3 44,RCRECTD A,1,RCPAYD A,0)) | |
| 352 | S RCDATA1 =$G(^RCY(3 44,RCRECTD A,1,RCPAYD A,1)) | |
| 353 | ; | |
| 354 | ; set up array | |
| 355 | S RCAUDIT (344.71,"+ 1,",.01)=$ $NOW^XLFDT ;Date/Tim e Stamp | |
| 356 | S RCAUDIT (344.71,"+ 1,",.02)=D UZ ;Use r | |
| 357 | S RCAUDIT (344.71,"+ 1,",.03)=$ P(RCDATA,U ,1) ;Recei pt # | |
| 358 | S RCAUDIT (344.71,"+ 1,",.04)=R CPAYDA ;Tra nsaction # | |
| 359 | S RCAUDIT (344.71,"+ 1,",.05)=$ P(RCDATA0, U,4) ;Amou nt | |
| 360 | S RCAUDIT (344.71,"+ 1,",.06)=$ P(RCDATA0, U,9) ;Clai m # | |
| 361 | S RCAUDIT (344.71,"+ 1,",.07)=R CSTAT ;Sta tus | |
| 362 | S RCAUDIT (344.71,"+ 1,",.08)=$ P(RCDATA1, U,2) ;Reas on text | |
| 363 | ; | |
| 364 | ; file en try | |
| 365 | D UPDATE^ DIE(,"RCAU DIT",”FDAI EN”) | |
| 366 | ; | |
| 367 | ; check i f filing w as success ful | |
| 368 | Q:’$G(FDA IEN(1)) | |
| 369 | ; if this is a mult i-trans sp lit update #344.711 | |
| 370 | Q:’$D(RCM TS) | |
| 371 | ; | |
| 372 | N DA,DD,D IC,DLAYGO, DO,DR,RCAC C,RCAMT,RC COM,RCSUB, X,Y,Z | |
| 373 | ; Save de tails of e ach claim/ suspense l ine in the split | |
| 374 | S RCSUB=0 | |
| 375 | F S RCSU B=$O(RCMTS (RCSUB)) Q :’RCSUB D | |
| 376 | .S RCAMT= $P(RCMTS(R CSUB),U,2) | |
| 377 | .S RCCOM= $P(RCMTS(R CSUB),U,3) | |
| 378 | .S RCACC= $P(RCMTS(R CSUB),U,4) | |
| 379 | .S:RCACC= ”” RCACC=” SUSPENSE” | |
| 380 | .S DLAYGO =344.711,D A(1)=FDAIE N(1),DIC(0 )="L",X=RC SUB,DIC="^ RCY(344.71 1,"_DA(1)_ ",1," | |
| 381 | .S DIC("D R")=".02// "_RCACC_"; .03///"_$J (+RCAMT,"" ,2)_";.04/ //"_RCCOM | |
| 382 | .D FILE^D ICN | |
| 383 | .K DIC,DD ,DO,DLAYGO | |
| 384 | QRoutines Activities Routine Na meRCDPLPS2 Enhancemen t Category New Modif y Delete N o ChangeRT MRelated O ptionsRCDP E SUSPENSE AUDIT REP ORTRelated RoutinesR outines “C alled By”R outines “C alled” N /ADD^%DT | |
| 385 | NOW^%DTC | |
| 386 | ^%ZIS | |
| 387 | HOME^%ZIS | |
| 388 | ^%ZISC | |
| 389 | ^%ZTLOAD | |
| 390 | $$GET1^DIQ | |
| 391 | ^DIR | |
| 392 | $$USERINIT ^RCDPLPS1 | |
| 393 | PAUSE^RCRJ RTR1 | |
| 394 | $$DT^XLFDT | |
| 395 | $$FMTE^XLF DT $$FMTH^ XLFDT | |
| 396 | $$HTFM^XLF DT Current Lo gicDQ ; | |
| 397 | N %,PAGE,RC DATE,RCDTD IS1,RCDTDI S2,RCENTRY ,RCRJFLAG, RCRJLINE,R CNOW,SCREE | |
| 398 | N,Y | |
| 399 | ; | |
| 400 | K ^TMP("RCD PLPS2",$J) | |
| 401 | S RCCT=0 | |
| 402 | ; PRCA*4.5* 326 - Begi n changes | |
| 403 | ; If report is for a single rec eipt use t he "D" cro ss referen ce | |
| 404 | I RCPT'="" D ; | |
| 405 | . S RCENTRY =0 | |
| 406 | . F S RCEN TRY=$O(^RC Y(344.71," D",RCPT,RC ENTRY)) Q: 'RCENTRY D ; | |
| 407 | . . D EXTRA CT(RCENTRY ,.RCCT) | |
| 408 | ; | |
| 409 | E D ; | |
| 410 | . ; Gather the data u sing the D ate cross- reference, starting with the B | |
| 411 | egin date | |
| 412 | . ; Also ma ke sure to gather al l entries from the e nd date. | |
| 413 | . ; | |
| 414 | . S RCDATE= RCBEGDT,RC ENDDT=RCEN DDT+.99999 9 | |
| 415 | . F S RCDA TE=$O(^RCY (344.71,"B ",RCDATE)) Q:'RCDATE Q:RCDATE >RCENDDT | |
| 416 | D | |
| 417 | . . S RCENT RY=0 | |
| 418 | . . F S RC ENTRY=$O(^ RCY(344.71 ,"B",RCDAT E,RCENTRY) ) Q:'RCENT RY D | |
| 419 | . . . D EXT RACT(RCENT RY,.RCCT) | |
| 420 | ; PRCA*4.5* 326 - End changes | |
| 421 | ; | |
| 422 | ; print re port | |
| 423 | S Y=$P(RCBE GDT,".") D DD^%DT S RCDTDIS1=Y | |
| 424 | S Y=$P(RCEN DDT,".") D DD^%DT S RCDTDIS2=Y | |
| 425 | D NOW^%DTC S Y=% D DD ^%DT S RCN OW=Y | |
| 426 | S PAGE=1,RC RJLINE="", $P(RCRJLIN E,"-",81)= "" | |
| 427 | S SCREEN=0 I '$D(ZTQU EUED),IO=I O(0),$E(IO ST)="C" S SCREEN=1 | |
| 428 | U IO D H | |
| 429 | S RCDATE=0 | |
| 430 | F S RCDATE =$O(^TMP(" RCDPLPS2", $J,RCDATE) ) Q:'RCDAT E!($G(RCRJ FLAG)) D | |
| 431 | . S RCCT=0 | |
| 432 | . F S RCCT =$O(^TMP(" RCDPLPS2", $J,RCDATE, RCCT)) Q:' RCCT!($G(R CRJFLAG)) | |
| 433 | D | |
| 434 | . . S RCDAT A=$G(^TMP( "RCDPLPS2" ,$J,RCDATE ,RCCT)) | |
| 435 | . . ; PRCA* 4.5*326 - Export in Excel form at if requ ested | |
| 436 | . . I RCEXC EL D ; | |
| 437 | . . . W $P( RCDATA,U,3 )_U_$P(RCD ATA,U,4)_U _$P(RCDATA ,U)_U_$P(R CDATA,"^", | |
| 438 | 5)_U_$P(RC DATA,U,6)_ U | |
| 439 | . . . W $P( RCDATA,U,2 )_U_$P(RCD ATA,U,7)_U _$P(RCDATA ,U,8),! | |
| 440 | . . ; Print in report format if Excel not requested | |
| 441 | . . E D ; | |
| 442 | . . . W $P( RCDATA,U,3 ),?15,$P(R CDATA,U,4) ,?22,$P(RC DATA,U),?3 2,$J($P(RC | |
| 443 | DATA,"^",5 ),10,2) | |
| 444 | . . . W ?43 ,$P(RCDATA ,U,6),?51, $P(RCDATA, U,2),?56,$ E($P(RCDAT A,U,7),1,1 | |
| 445 | 1),?68,$E( $P(RCDATA, U,8),1,12) ,! | |
| 446 | . . . I $Y> (IOSL-6) D :SCREEN PA USE^RCRJRT R1 Q:$G(RC RJFLAG) D H | |
| 447 | ; PRCA*4.5* 326 - End changes | |
| 448 | ; | |
| 449 | K ^TMP("RCD PLPS2",$J) | |
| 450 | D ^%ZISC | |
| 451 | S :$G(RCRJFL AG) RCENDF LG=1 | |
| 452 | I 'RCENDFLG ,'RCEXCEL W !!,$$END ORPRT^RCDP EARL | |
| 453 | Q | |
| 454 | ; | |
| 455 | ; PRCA*4.5* 326 - Add subroutine EXTRACT | |
| 456 | EXTRACT(RC ENTRY,RCCT ) ; Extrac t and stor e data for a single suspense a udit file | |
| 457 | entry | |
| 458 | ; Input: RC ENTRY = IE N of SUSPE NSE AUDIT FILE entry (#344.71) | |
| 459 | ; Output: ^ TMP("RCDPL PS2",$J) c ontaining report dat a | |
| 460 | ; | |
| 461 | N RCAMT,RCD ATE,RCDATA ,RCEOB,RCF LG,RCLUSER ,RCRECTDA, RCREASON,R CSTATUS,RC | |
| 462 | TRANDA,RCX ,RCX,RCX2, RCY,Y | |
| 463 | ; | |
| 464 | S RCDATA=$G (^RCY(344. 71,RCENTRY ,0)) | |
| 465 | ; | |
| 466 | ; Quit if co rrupt inde x entry | |
| 467 | Q :RCDATA="" | |
| 468 | ; | |
| 469 | ; Get the us er. If fi ltering on user, qui t if the u ser is not the filte | |
| 470 | r user. | |
| 471 | S RCLUSER=$ P(RCDATA,U ,2) | |
| 472 | I RCUSER["" ,RCUSER'=" A",RCUSER' =RCLUSER Q | |
| 473 | ; | |
| 474 | ; Update the counter | |
| 475 | S RCCT=RCCT +1 | |
| 476 | ; | |
| 477 | ; get the re st of the data | |
| 478 | S RCDATE=$P (RCDATA,U, 1) ;Date /Time of s uspese ent ry | |
| 479 | S RCRECTDA= $P(RCDATA, U,3) ;R eceipt Num ber | |
| 480 | S RCTRANDA= $P(RCDATA, U,4) ;R eceipt Tra nsaction N umber | |
| 481 | S RCAMT=$P( RCDATA,U,5 ) ;A mount orig inally pla ced in sus pense | |
| 482 | S RCEOB="" | |
| 483 | S :$P(RCDATA ,U,6)[";PR CA" RCEOB= $P($$GET1^ DIQ(430,$P ($P(RCDATA ,U,6),";") | |
| 484 | _",",".01" ,"E"),"-", 2) ;Claim # | |
| 485 | S :$P(RCDATA ,U,6)[";DP T" RCEOB=$ E($$GET1^D IQ(2,$P($P (RCDATA,U, 6),";")_", | |
| 486 | ",".01","E "),1,7) ;Pat N ame | |
| 487 | S RCSTATUS= $$GET1^DIQ (344.71,RC ENTRY_",", ".07","E") ;Suspens e Status | |
| 488 | S RCREASON= $P(RCDATA, U,8) ;R eason for Suspense S tatus | |
| 489 | ; | |
| 490 | S RCFLG=$G( ^TMP("RCDP LPS2",$J," IDX",RCREC TDA,RCTRAN DA)) | |
| 491 | ; Store in t he tempora ry array | |
| 492 | S :RCFLG="" ^TMP("RCDP LPS2",$J," IDX",RCREC TDA,RCTRAN DA)=RCCT_" ~"_RCDATE | |
| 493 | I RCFLG'="" D | |
| 494 | . S RCX=$P( RCFLG,U),R CX2=$P(RCX ,"~",2),RC X=$P(RCX," ~"),RCY=$P (RCFLG,U,2 | |
| 495 | ) | |
| 496 | . I (RCY="" ),(RCREASO N="Multi-T rans Split ") D | |
| 497 | . . S $P(^T MP("RCDPLP S2",$J,"ID X",RCRECTD A,RCTRANDA ),U,2)=1 | |
| 498 | . . K ^TMP( "RCDPLPS2" ,$J,RCX2,R CX) | |
| 499 | S ^TMP("RCD PLPS2",$J, RCDATE,RCC T)=$$FMTE^ XLFDT(RCDA TE,"2D")_U _$$USERINI | |
| 500 | T^RCDPLPS1 (RCLUSER)_ U_RCRECTDA _U_RCTRAND A_U_RCAMT_ U_RCEOB_U_ RCSTATUS_U _RCREASON | |
| 501 | Q | |
| 502 | H ; header | |
| 503 | N % | |
| 504 | I RCEXCEL D Q ; PRC A*4.5*321 - Header f or EXCEL f ormat | |
| 505 | . W !,"RECE IPT#^TRANS ACTION^DAT E^AMOUNT^C LAIM^USER^ DISPOSITIO N^REASON", | |
| 506 | ! | |
| 507 | ; | |
| 508 | S %=RCNOW_" PAGE "_P AGE,PAGE=P AGE+1 I PA GE'=2!(SCR EEN) W @IO F | |
| 509 | W $C(13),"L INK PAYMEN T TRACKING REPORT",? 50,% | |
| 510 | W !," FOR THE DATE R ANGE: ",$S (RCPT="":R CDTDIS1_" TO "_RCD TDIS2,1:"" | |
| 511 | ) | |
| 512 | I RCPT="" D ; | |
| 513 | . W ?55,"FO R USER(S): ",$E($S(R CUSER="A": "ALL",1:$$ GET1^DIQ(2 00,RCUSER_ | |
| 514 | ",",.01,"E ")),1,10) | |
| 515 | E D ; PRC A*4.5*321 - display receipt nu mber in he ader if se lected | |
| 516 | . W ?55,"RE CEIPT#: "_ RCPT | |
| 517 | W !!,"RECEI PT#",?15," TRANS#",?2 2,"DATE",? 36,"AMOUNT ",?43,"CLA IM",?51,"U | |
| 518 | SER",?56," DISPOSITIO N",?68,"RE ASON" | |
| 519 | W !,RCRJLIN E,! | |
| 520 | Q | |
| 521 | ; Modified L ogic (Chan ges are in bold) ; report (qu eue) start s here | |
| 522 | DQ ; | |
| 523 | N %,PAGE, RCDATE,RCD TDIS1,RCDT DIS2,RCENT RY,RCMFST, RCMULT,RCR JFLAG,RCRJ LINE,RCNOW ,SCREEN,Y ; PRCA*4.5 *326 | |
| 524 | ; | |
| 525 | K ^TMP("R CDPLPS2",$ J) | |
| 526 | S RCCT=0 | |
| 527 | ; PRCA*4. 5*326 - Be gin change s | |
| 528 | ; If repo rt is for a single r eceipt use the "D" c ross refer ence | |
| 529 | I RCPT'=" " D ; | |
| 530 | . S RCENT RY=0 | |
| 531 | . F S RC ENTRY=$O(^ RCY(344.71 ,"D",RCPT, RCENTRY)) Q:'RCENTRY D ; | |
| 532 | . . D EXT RACT(RCENT RY,.RCCT) | |
| 533 | ; | |
| 534 | E D ; | |
| 535 | . ; Gathe r the data using the Date cros s-referenc e, startin g with the Begin dat e | |
| 536 | . ; Also make sure to gather all entrie s from the end date. | |
| 537 | . ; | |
| 538 | . S RCDAT E=RCBEGDT, RCENDDT=RC ENDDT+.999 999 | |
| 539 | . F S RC DATE=$O(^R CY(344.71, "B",RCDATE )) Q:'RCDA TE Q:RCDA TE>RCENDDT D | |
| 540 | . . S RCE NTRY=0 | |
| 541 | . . F S RCENTRY=$O (^RCY(344. 71,"B",RCD ATE,RCENTR Y)) Q:'RCE NTRY D | |
| 542 | . . . D E XTRACT(RCE NTRY,.RCCT ) | |
| 543 | ; PRCA*4. 5*326 - En d changes | |
| 544 | ; | |
| 545 | ; print r eport | |
| 546 | S Y=$P(RC BEGDT,".") D DD^%DT S RCDTDIS1 =Y | |
| 547 | S Y=$P(RC ENDDT,".") D DD^%DT S RCDTDIS2 =Y | |
| 548 | D NOW^%DT C S Y=% D DD^%DT S R CNOW=Y | |
| 549 | S PAGE=1, RCRJLINE=" ",$P(RCRJL INE,"-",81 )="" | |
| 550 | S SCREEN= 0 I '$D(ZT QUEUED),IO =IO(0),$E( IOST)="C" S SCREEN=1 | |
| 551 | U IO D H | |
| 552 | S RCDATE= 0 | |
| 553 | F S RCDA TE=$O(^TMP ("RCDPLPS2 ",$J,RCDAT E)) Q:'RCD ATE!($G(RC RJFLAG)) D | |
| 554 | . S RCCT= 0 | |
| 555 | . F S RC CT=$O(^TMP ("RCDPLPS2 ",$J,RCDAT E,RCCT)) Q :'RCCT!($G (RCRJFLAG) ) D | |
| 556 | . . S RCD ATA=$G(^TM P("RCDPLPS 2",$J,RCDA TE,RCCT)) | |
| 557 | . . ; PRC A*4.5*326 - Export i n Excel fo rmat if re quested | |
| 558 | . . S RCM ULT=$S($P( RCDATA,U,8 )="Multi-T rans Split ":1,1:0) | |
| 559 | . . S RCM FST=+$G(^T MP("RCDPLP S2",$J,RCD ATE,RCCT," S")) | |
| 560 | . . I RCM ULT,'RCMFS T Q | |
| 561 | . . I RCE XCEL D ; | |
| 562 | . . . W $ P(RCDATA,U ,3)_U_$P(R CDATA,U,4) _U_$P(RCDA TA,U)_U_$P (RCDATA,"^ ",5)_U_$P( RCDATA,U,6 )_U | |
| 563 | . . . W $ P(RCDATA,U ,2)_U_$P(R CDATA,U,7) _U_$P(RCDA TA,U,8),! | |
| 564 | . . . ; B EGIN #344. 711 - PRCA *4.5*326 | |
| 565 | . . . Q:' RCMULT | |
| 566 | . . . S R CSPL=0 | |
| 567 | . . . F S RCSPL=$O (^TMP("RCD PLPS2",$J, RCDATE,RCC T,"S",RCSP L)) Q:'RCS PL D Q:$ G(RCRJFLAG ) | |
| 568 | . . . . S RCDATA=$G (^TMP("RCD PLPS2",$J, RCDATE,RCC T,"S",RCSP L)) Q:RCDA TA="" | |
| 569 | . . . . W "^^^^^^^^ "_$P(RCDAT A,U)_U_$P( RCDATA,U,2 )_U_$P(RCD ATA,U,3),! | |
| 570 | . . . ; E ND #344.71 1 - PRCA*4 .5*326 | |
| 571 | . . ; Pri nt in repo rt format if Excel n ot request ed | |
| 572 | . . E D ; | |
| 573 | . . . I ' RCMULT W $ P(RCDATA,U ,3),?15,$P (RCDATA,U, 4),?22,$P( RCDATA,U), ?32,$J($P( RCDATA,"^" ,5),10,2) | |
| 574 | . . . E W $P(RCDAT A,U,3),?22 ,$P(RCDATA ,U),?32,$J (RCMFST,10 ,2) | |
| 575 | . . . ; B EGIN #344. 711 - PRCA *4.5*326 | |
| 576 | . . . W ? 43,$P(RCDA TA,U,6),?5 1,$P(RCDAT A,U,2),?56 ,$E($P(RCD ATA,U,7),1 ,11) | |
| 577 | . . . I $ Y>(IOSL-6) D:SCREEN PAUSE^RCRJ RTR1 Q:$G( RCRJFLAG) D H | |
| 578 | . . . W:$ P(RCDATA,U ,8)]"" !,? 5,$P(RCDAT A,U,8) | |
| 579 | . . . W ! | |
| 580 | . . . I $ Y>(IOSL-6) D:SCREEN PAUSE^RCRJ RTR1 Q:$G( RCRJFLAG) D H | |
| 581 | . . . Q:' RCMULT | |
| 582 | . . . S R CSPL=0 | |
| 583 | . . . F S RCSPL=$O (^TMP("RCD PLPS2",$J, RCDATE,RCC T,"S",RCSP L)) Q:'RCS PL D Q:$ G(RCRJFLAG ) | |
| 584 | . . . . S RCDATA=$G (^TMP("RCD PLPS2",$J, RCDATE,RCC T,"S",RCSP L)) Q:RCDA TA="" | |
| 585 | . . . . W ?18,$P(RC DATA,U),?2 6,$J("$"_$ J($P(RCDAT A,U,2),0,2 ),10),?38, $E($P(RCDA TA,U,3),1, 40),! | |
| 586 | . . . . I $Y>(IOSL- 6) D:SCREE N PAUSE^RC RJRTR1 Q:$ G(RCRJFLAG ) D H | |
| 587 | . . . ; E ND #344.71 1 - PRCA*4 .5*326 | |
| 588 | ; PRCA*4. 5*326 - En d changes | |
| 589 | ; | |
| 590 | K ^TMP("R CDPLPS2",$ J) | |
| 591 | D ^%ZISC | |
| 592 | S:$G(RCRJ FLAG) RCEN DFLG=1 | |
| 593 | I 'RCENDF LG,'RCEXCE L W !!,$$E NDORPRT^RC DPEARL | |
| 594 | Q | |
| 595 | ; | |
| 596 | ; PRCA*4. 5*326 - Ad d subrouti ne EXTRACT | |
| 597 | EXTRACT(RC ENTRY,RCCT ) ; Extrac t and stor e data for a single suspense a udit file entry | |
| 598 | ; Input: RCENTRY = IEN of SUS PENSE AUDI T FILE ent ry (#344.7 1) | |
| 599 | ; Output: ^TMP("RCD PLPS2",$J) containin g report d ata | |
| 600 | ; | |
| 601 | N RCAMT,R CDATE,RCDA TA,RCEOB,R CFLG,RCLUS ER,RCRECTD A,RCREASON ,RCSTATUS, RCTRANDA,R CX,RCX,RCX 2,RCY,Y | |
| 602 | ; | |
| 603 | S RCDATA= $G(^RCY(34 4.71,RCENT RY,0)) | |
| 604 | ; | |
| 605 | ;Quit if corrupt in dex entry | |
| 606 | Q:RCDATA= "" | |
| 607 | ; | |
| 608 | ;Get the user. If f iltering o n user, qu it if the user is no t the filt er user. | |
| 609 | S RCLUSER =$P(RCDATA ,U,2) | |
| 610 | I RCUSER[ "",RCUSER' ="A",RCUSE R'=RCLUSER Q | |
| 611 | ; | |
| 612 | ;Update t he counter | |
| 613 | S RCCT=RC CT+1 | |
| 614 | ; | |
| 615 | ;get the rest of th e data | |
| 616 | S RCDATE= $P(RCDATA, U,1) ;Date /Time of s uspese ent ry | |
| 617 | S RCRECTD A=$P(RCDAT A,U,3) ;Re ceipt Numb er | |
| 618 | S RCTRAND A=$P(RCDAT A,U,4) ;Re ceipt Tran saction Nu mber | |
| 619 | S RCAMT=$ P(RCDATA,U ,5) ;Amoun t original ly placed in suspens e | |
| 620 | S RCEOB=" " | |
| 621 | S:$P(RCDA TA,U,6)["; PRCA" RCEO B=$P($$GET 1^DIQ(430, $P($P(RCDA TA,U,6),"; ")_",",".0 1","E"),"- ",2) ;Clai m # | |
| 622 | S:$P(RCDA TA,U,6)["; DPT" RCEOB =$E($$GET1 ^DIQ(2,$P( $P(RCDATA, U,6),";")_ ",",".01", "E"),1,7) ;Pat Name | |
| 623 | S RCSTATU S=$$GET1^D IQ(344.71, RCENTRY_", ",".07","E ") ;Suspen se Status | |
| 624 | S RCREASO N=$P(RCDAT A,U,8) ;Re ason for S uspense St atus | |
| 625 | ; | |
| 626 | S RCFLG=$ G(^TMP("RC DPLPS2",$J ,"IDX",RCR ECTDA,RCTR ANDA)) | |
| 627 | ;Store in the tempo rary array | |
| 628 | S:RCFLG=" " ^TMP("RC DPLPS2",$J ,"IDX",RCR ECTDA,RCTR ANDA)=RCCT _"~"_RCDAT E | |
| 629 | I RCFLG'= "" D | |
| 630 | . S RCX=$ P(RCFLG,U) ,RCX2=$P(R CX,"~",2), RCX=$P(RCX ,"~"),RCY= $P(RCFLG,U ,2) | |
| 631 | . I (RCY= ""),(RCREA SON="Multi -Trans Spl it") D | |
| 632 | . . S $P( ^TMP("RCDP LPS2",$J," IDX",RCREC TDA,RCTRAN DA),U,2)=1 | |
| 633 | . . K ^TM P("RCDPLPS 2",$J,RCX2 ,RCX) | |
| 634 | S ^TMP("R CDPLPS2",$ J,RCDATE,R CCT)=$$FMT E^XLFDT(RC DATE,"2D") _U_$$USERI NIT^RCDPLP S1(RCLUSER )_U_RCRECT DA_U_RCTRA NDA_U_RCAM T_U_RCEOB_ U_RCSTATUS _U_RCREASO N | |
| 635 | ; BEGIN # 344.711 ch ange - PRC A*4.5*326 | |
| 636 | N IENS,RC CAMT,RCCLA IM,RCCOM,R CSPL | |
| 637 | S RCSPL=0 ,^TMP("RCD PLPS2",$J, RCDATE,RCC T,"S")=0 | |
| 638 | F S RCSP L=$O(^RCY( 344.71,RCE NTRY,1,RCS PL)) Q:'RC SPL D | |
| 639 | . S IENS= RCSPL_","_ RCENTRY_", " | |
| 640 | . S RCCLA IM=$$GET1^ DIQ(344.71 1,IENS,.02 ) | |
| 641 | . S RCCAM T=$$GET1^D IQ(344.711 ,IENS,.03) | |
| 642 | . S RCCOM =$$GET1^DI Q(344.711, IENS,.04) | |
| 643 | . S ^TMP( "RCDPLPS2" ,$J,RCDATE ,RCCT,"S", RCSPL)=RCC LAIM_U_RCC AMT_U_RCCO M | |
| 644 | . S ^TMP( "RCDPLPS2" ,$J,RCDATE ,RCCT,"S") =^TMP("RCD PLPS2",$J, RCDATE,RCC T,"S")+RCC AMT | |
| 645 | ; END #34 4.711 - PR CA*4.5*326 | |
| 646 | Q | |
| 647 | H ; header | |
| 648 | N % | |
| 649 | I RCEXCEL D Q ; P RCA*4.5*32 1 - Header for EXCEL format | |
| 650 | . W !,"RE CEIPT#^TRA NSACTION^D ATE^AMOUNT ^CLAIM^USE R^DISPOSIT ION^REASON ^CLAIMS^AM OUNT^COMME NT",! ; #3 44.711 - P RCA*4.5*32 6 | |
| 651 | ; | |
| 652 | S %=RCNOW _" PAGE "_ PAGE,PAGE= PAGE+1 I P AGE'=2!(SC REEN) W @I OF | |
| 653 | W $C(13), "LINK PAYM ENT TRACKI NG REPORT" ,?50,% | |
| 654 | W !," FOR THE DATE RANGE: ",$ S(RCPT="": RCDTDIS1_" TO "_RCDT DIS2,1:"") | |
| 655 | I RCPT="" D ; | |
| 656 | . W ?55," FOR USER(S ): ",$E($S (RCUSER="A ":"ALL",1: $$GET1^DIQ (200,RCUSE R_",",.01, "E")),1,10 ) | |
| 657 | E D ; P RCA*4.5*32 1 - displa y receipt number in header if selected | |
| 658 | . W ?55," RECEIPT#: "_RCPT | |
| 659 | W !,"RECE IPT#",?15, "TRANS#",? 22,"DATE", ?36,"AMOUN T",?43,"CL AIM",?51," USER",?56, "DISPOSITI ON" ; #344 .71 - PRCA *4.5*326 | |
| 660 | W !,?5,"R EASON",?18 ,"CLAIMS" ; #344.71 - PRCA*4.5 *326 | |
| 661 | W !,RCRJL INE,! | |
| 662 | Q | |
| 663 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.