Produced by Araxis Merge on 10/23/2018 6:40:20 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 US329 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US329 SDD - Copy.doc | Mon Oct 22 16:31:47 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 4 | 3010 |
| Changed | 3 | 6 |
| 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 US329 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*X XX | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | June 2017 | |
| 7 | Version 1 | |
| 8 | Story | |
| 9 | As an ePay ments user , I need t he ability to identi fy an EFT by a uniqu e number. The softwa re current ly assigns the same number to all EFTs r eceived on the same deposit ti cket. I ne ed each of these to be unique so I am ab le to quic kly identi fy the spe cific EFT and resear ch it as a ppropriate . The uniq ue EFT num ber should display o n the foll owing repo rts: Daily Activity, EFT Unmat ched, Unap plied EFT, EFT Audit , and Manu al Match | |
| 10 | Conversati on | |
| 11 | 5/31/17 | |
| 12 | 344.31 fil e may have to be res tructured to enable this | |
| 13 | 6/7/17 | |
| 14 | EFT Detail file – us e an exist ing field | |
| 15 | Summary: | |
| 16 | Reports/Op tions chan ged: | |
| 17 | Data Field s: | |
| 18 | Reports an d the Manu al Match o ption curr ently disp lay for EF T the EFT TRANSACTIO N field # .01 which is a point er to the EDI LOCKBO X DEPOSIT file #344. 3 and is n ot unique. | |
| 19 | 344.31,.01 EFT TR ANSACTION 0;1 POINTER T O EDI LOCK BOX DEPOSI T FILE (# | |
| 20 | 344.3) ( Required) | |
| 21 | LAST E DITED: JUN 12, 2017 | |
| 22 | HELP-P ROMPT: Enter th e referenc e to the e FT transac tion that | |
| 23 | contains this EFT record. | |
| 24 | DESCRI PTION: This is the pointe r to the E FT totals record | |
| 25 | that thi s EFT was received i n. | |
| 26 | For this u ser story the liste d reports and the Ma nual Match option wi ll be chan ged to dis play the E FT TRANSAC TION #.01 field con catenated with the e xisting TR ANSACTION # field #. 14 using a period as a separat or. This w ill be a u nique iden tifier. | |
| 27 | 344.31,.14 TRANSA CTION # 0;1 4 NUMBER | |
| 28 | INPUT TRANSFORM: K:+X'=X! (X>999)!(X <1)!(X?.E1 "."1N.N) X | |
| 29 | LAST E DITED: MAR 13, 2003 | |
| 30 | HELP-P ROMPT: Type a N umber betw een 1 and 999, 0 Dec imal | |
| 31 | Digits | |
| 32 | DESCRI PTION: This is the transa ction # wi thin the r eceipt | |
| 33 | for this EFT. | |
| 34 | An output transform will also be added t o the .01 field | |
| 35 | 344.31,.01 EFT TR ANSACTION 0;1 POINTER T O EDI LOCK BOX DEPOSI T FILE (# | |
| 36 | 344.3) ( Required) | |
| 37 | OUTPUT TRANSFORM : I $D(DA) S Y=Y_"." _$P($G(^RC Y(344.31,D A,0)),U,14 ) | |
| 38 | LAST E DITED: JUN 14, 2017 | |
| 39 | HELP-P ROMPT: Enter th e referenc e to the e FT transac tion that | |
| 40 | contains this EFT record. | |
| 41 | DESCRI PTION: This is the pointe r to the E FT totals record | |
| 42 | that thi s EFT was received i n. | |
| 43 | CROSS- REFERENCE: 344.31^B | |
| 44 | 1)= S ^R CY(344.31, "B",$E(X,1 ,30),DA)=" " | |
| 45 | 2)= K ^R CY(344.31, "B",$E(X,1 ,30),DA) | |
| 46 | Routines C hanged: | |
| 47 | The follow ing existi ng routine s will be changed to display t he EFT in the new fo rmat: | |
| 48 | Daily Acti vity Repor t | |
| 49 | Option - [ RCDPE EDI LOCKBOX AC T REPORT] | |
| 50 | ||
| 51 | Routine - EFTDTL^RCD PEDA2 | |
| 52 | DEP # DEPOSIT D T DEP AMOU NT FMS DEPO SIT STAT | |
| 53 | EFT # D ATE PD P AYMENT AMO UNT ERA M ATCH STATU S | |
| 54 | EFT PA YER TRACE # CR # | |
| 55 | PAYM ENT FROM | |
| 56 | TR # | |
| 57 | Debi t DEP RE CEIPT # DEP RECEIP T STATUS | |
| 58 | ========== ========== ========== ========== ========== ========== ========== ========= | |
| 59 | DATE EFT DEPOSIT R ECEIVED: 0 2/14/17 | |
| 60 | T833455 02/14/17 1654.60 QUEUED | |
| 61 | 2102.1 0 2/14/17 6 33.30 UNMAT CHED | |
| 62 | ABC643 2833367 CR -442K5A0A6 8 | |
| 63 | THE MEGA LIFE AND HEALTH INSURANCE /159221366 2 | |
| 64 | E17021 400 QUEUED | |
| 65 | EFT Unique identifie r must be displayed on the EFT Unmatched Aging Rep ort | |
| 66 | Option - [ RCDPE EFT AGING REPO RT] | |
| 67 | Routines - EN1^RCDPE AR2 | |
| 68 | EFT UNM ATCHED AGI NG REPORT Page: 3 | |
| 69 | RUN DATE: 6/1 2/17@10:49 :03 | |
| 70 | PAYERS : ALL | |
| 71 | DAT E RANGE: 5 /23/17 - 6 /12/17 (DA TE EFT FIL ED) | |
| 72 | AGED | |
| 73 | DAYS TRAC E # DEP DATE | |
| 74 | DEPOSI T FROM/ID | |
| 75 | FILE DATE DEPOSIT AM OUNT DEP# /EFT# DEPOSIT POST STATU S | |
| 76 | ========== ========== ========== ========== ========== ========== ========== ========== | |
| 77 | 4 ABC6 444235021 6/8/17 | |
| 78 | AETNA -CONTINENT AL LIFE IN SURANCE CO MPANY OF B RENTWOOD/1 621181209 | |
| 79 | 6/8/ 17 109 6.41 T235 032/2101.2 Posted to 8NZZ 6/ 8/17 | |
| 80 | *** ** END OF REPORT *** ** | |
| 81 | Press ente r to conti nue, '^' t o exit: | |
| 82 | EFT Unique identifie r must be displayed on the Una pplied EFT Deposits Report | |
| 83 | Option - [ RCDPE UNAP PLIED EFT DEP REPORT ] | |
| 84 | Routine - EN^RCDPE8N Z | |
| 85 | U napplied E FT Deposit s Report Page: 2 | |
| 86 | Run Date: 6/1 2/17@10:50 :26 | |
| 87 | Da te Range: 5/23/17 - 6/12/17 (D eposit Dat e) | |
| 88 | TOTAL NUM BER OF UNA PPLIED DEP OSITS: 19 | |
| 89 | TOT AL AMOUNT OF UNAPPLI ED DEPOSIT S: $4,767. 44 | |
| 90 | DEPOSIT# /EFT# DEP OSIT DATE TOT A MT OF DEPO SIT TOT AMT UNPOS TED | |
| 91 | PAYER/I D | |
| 92 | TRACE # PAYME NT AMT RE CEIPT # | |
| 93 | ERA MATCHED FM S DOC #/ST ATUS | |
| 94 | ========== ========== ========== ========== ========== ========== ========== ========== | |
| 95 | T642955/ 2119.1 5/ 23/17 536. 23 53 6.23 | |
| 96 | AETNA - CONTINENTA L LIFE INS URANCE COM PANY OF BR ENTWOOD/16 21181209 | |
| 97 | ABC644 2642913 536.2 3 E1 7052303 | |
| 98 | MATC HED TO ERA #: 92764 TR -442K7A001 6 - QUEUE D FOR TR | |
| 99 | Press ente r to conti nue, '^' t o exit: | |
| 100 | EFT Unique identifie r must be displayed on the Du plicate EF T Deposits Audit Rep ort | |
| 101 | Option - [ RCDPE EFT AUDIT REPO RT] | |
| 102 | Routine - PROC^RCDPE M6 | |
| 103 | Duplicate EFT Depos its - Audi t Report Page: 1 | |
| 104 | RUN DATE: 6/1 3/17@11:24 :25 | |
| 105 | Date Range: 06/ 12/17 - 06 /13/17 (DA TE EFT REM OVAL) | |
| 106 | Deposit#/ EFT# Trace # | |
| 107 | Paye r Name Da te/Time User Who | |
| 108 | Amou nt Re moved Removed | |
| 109 | ========== ========== ========== ========== ========== ========== ========== ========== | |
| 110 | T833455/2 119.1 ABC 6432833367 | |
| 111 | THE MEGA LIFE AND HEALTH INSURANCE | |
| 112 | 633. 30 6/ 12/17@17:3 8:41 Hartley,Pe ter | |
| 113 | Justifica tion Comme nts: test duplicate report | |
| 114 | Total num ber of dup licates re moved: 1 | |
| 115 | EFT Unique identifie r must be displayed on the EFT Transacti on Audit R eport | |
| 116 | Option - [ RCDPE EFT TRANSACTIO N AUD REP] | |
| 117 | Routine - HEADER^RCD PTAR | |
| 118 | EFT TRANSA CTION AUDI T REPORT JU N 12, 2017 @10:57:10 PAGE: 1 | |
| 119 | EFT#: 2248 .1 D EPOSIT#: T 965578 EFT TOTA L AMT: 51. 00 | |
| 120 | EFT TRACE# : ABC64439 65519 | |
| 121 | DATE RECEI VED: 06/05 /17 PAYE R/ID: AETN A -CONTINE NTAL LIFE INSURANCE COMPANY OF | |
| 122 | BRENTWOOD /162118120 9 | |
| 123 | DATE ACTION/DET AILS STATUS | |
| 124 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
| 125 | 06/05/17 DEP#:T9655 78 DEP AM T:51.00 EFT STATU S:RECEIVED | |
| 126 | 06/05/17 EFT STATUS :UNMATCHED BY POSTMA STER on 06 /05/17 | |
| 127 | 06/06/17 DEP#:T9655 78 DEP AM T:51.00 DEP STATU S:POSTED T O 8NZZ | |
| 128 | 06/06/17 DEP RCPT#: E17060507 ENTRY#:109 956 FMS DOC#: CR-442K7A0 01Q | |
| 129 | EFT Unique identifie r must be displayed for lookup in option s ‘Manual Match EFT- ERA’ and ‘ Mark 0-Bal ance EFT M atched’. | |
| 130 | Options - [RCDPE MAN UAL MATCH EFT-ERA] | |
| 131 | [RCDP E MARK 0-B AL EFT MAT CHED] | |
| 132 | Routine - | |
| 133 | MATCH1^RCD PEM2 | |
| 134 | ||
| 135 | ||
| 136 | MATCH2^RCD PEM2 | |
| 137 | e.g. | |
| 138 | SELECT THE UNMATCHED EFT TO MA TCH TO AN ERA: 2102 T833 455 02 -14-2017 | |
| 139 | 1 2 102 2102.1 THE MEG A LIFE AND HEALTH IN SURANCE ABC64328 33389 633.30 | |
| 140 | 2 2 102 2102.2 THE MEG A LIFE AND HEALTH IN SURANCE ABC64328 33414 194.00 | |
| 141 | CHOOSE 1-2 : 1 2102 2101.2 TH E MEGA LIF E AND HEAL TH INSURAN CE ABC643 2833389 63 3.30 | |
| 142 | EFT TRANSA CTION: 210 2.2 | |
| 143 | PAYER NA ME: THE ME GA LIFE AN D HEALTH I NSURANCE | |
| 144 | D A N E S
|
|
| 145 | TAX ID C ORRECTION: NO CHANGE AMOUNT OF PAYMENT: 6 33.30 | |
| 146 | MATCH ST ATUS: UNMA TCHED RECEIPT #: E17021400 | |
| 147 | EFT RECO RDED AT SI TE: YES DATE CLAIM S PAID: FE B 14, 2017 | |
| 148 | DATE REC EIVED: FEB 14, 2017 TRANSACTIO N #: 2 | |
| 149 | ARE YOU SU RE THIS IS THE EFT Y OU WANT TO MATCH?: Y ES// | |
| 150 | SELECT THE UNMATCHED ERA TO MA TCH TO EFT #2102.2: | |
| 151 | EFT Unique identifie r must be displayed for lookup in option ‘Mark 0-B alance EFT Matched’. | |
| 152 | Options - [RCDPE MA RK 0-BAL E FT MATCHED ] | |
| 153 | Routine - | |
| 154 | RETN^RCDPE M3 | |
| 155 | EFT Unique identifie r must be displayed on the ERA Worklist | |
| 156 | Option - [ RCDPE EDI LOCKBOX WO RKLIST] | |
| 157 | Routine - RCDPEWL | |
| 158 | ERA Workli st/Scratch Pad Jun 14, 20 17@13:40:5 7 Page: 1 of 1 | |
| 159 | ERA Entry #: 92802 Total Amt Pd: 36.00 C urrent Vie w: | |
| 160 | Payer Name /ID: FEDER AL EMPLOYE ES HEALTH BENEFIT A COVENTRY N O SORT ORD EREALTH CA | |
| 161 | EFT #/TRAC E #: 2249. 3/ABC64440 23852 ALL EEOBS | |
| 162 | *** RECEIP T(S) ALREA DY CREATED *** (E170 60601) | |
| 163 | Auto-Post Status: Co mplete Auto-Post Date: Jun 06, 2017 | |
| 164 | Resolution – Added C hanged Obj ects | |
| 165 | RoutinesAc tivitiesRo utine Name RCDPEDA2En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsRCDPE EDI LOCKBO X ACT REPO RTRelated RoutinesRo utines “Ca lled By”Ro utines “Ca lled” RC DPEDAR$$EX TERNAL^DIL FD | |
| 166 | $$GET1^DIQ | |
| 167 | $$STATUS^G ECSSGET | |
| 168 | HDR^RCDPED A3 | |
| 169 | SL^RCDPEDA 3 | |
| 170 | EFTERRS^RC DPEDA4 | |
| 171 | ERRMSGS^RC DPEDA4 | |
| 172 | GETTR^RCDP EDA4 | |
| 173 | $$SETSTR^V ALM1 | |
| 174 | $$FMTE^XLF DTCurrent LogicEFTDT L(INPUT,IE N3443,IEN3 4431,RCFMS 1,EFTCTR) ; Display EFT Detail | |
| 175 | ; Input: INPUT - Se e RPT2 for details | |
| 176 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 177 | ; IEN3443 1 - Intern al IEN for file 344. 31 | |
| 178 | ; RCFMS1( IEN34431) - FMS Docu ment Statu s for EFT IEN | |
| 179 | ; EFTCTR - Used to store line s for an E FT | |
| 180 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 181 | ; Output: INPUT - S ee RPT2 fo r details | |
| 182 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 183 | ; ^TMP($J ,ONEDEP,EF TCTR) - # of lines f or EFT | |
| 184 | ; ^TMP($J ,ONEDEP,EF TCTR,xx)- EFT Deposi t Lines ;P RCA*4.5*32 1 capture display to ^TMP($J," ONEDEP",EF TRCR) incl uding line cnt | |
| 185 | N EFTLN,P AY,PAYER,P AYID,X,XX, YY,ZZ | |
| 186 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.01,"I" ) ; EFT Tr ansaction IEN | |
| 187 | S X=$$SET STR^VALM1( XX,"",3,6) Modified L ogic (Chan ges are in bold)EFTD TL(INPUT,I EN3443,IEN 34431,RCFM S1,EFTCTR) ; Display EFT Detai l | |
| 188 | ; Input: INPUT - Se e RPT2 for details | |
| 189 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 190 | ; IEN3443 1 - Intern al IEN for file 344. 31 | |
| 191 | ; RCFMS1( IEN34431) - FMS Docu ment Statu s for EFT IEN | |
| 192 | ; EFTCTR - Used to store line s for an E FT | |
| 193 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 194 | ; Output: INPUT - S ee RPT2 fo r details | |
| 195 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 196 | ; ^TMP($J ,ONEDEP,EF TCTR) - # of lines f or EFT | |
| 197 | ; ^TMP($J ,ONEDEP,EF TCTR,xx)- EFT Deposi t Lines ;P RCA*4.5*32 1 capture display to ^TMP($J," ONEDEP",EF TRCR) incl uding line cnt | |
| 198 | N EFTLN,P AY,PAYER,P AYID,X,XX, YY,ZZ | |
| 199 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.01,"I" ) ; EFT Tr ansaction IEN | |
| 200 | S XX=XX_” .”_$$GET1^ DIQ(344.31 ,IEN34431, .14,"I") | |
| 201 | S X=$$SET STR^VALM1( XX,"",3,9) RoutinesAc tivitiesRo utine Name RCDPEAR2En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsRCDPE EFT AGING REPORT Re lated Rout inesRoutin es “Called By”Routin es “Called ” RCDPEA R^%ZIS | |
| 202 | HOME^%ZIS | |
| 203 | ^%ZISC | |
| 204 | ^%ZTLOAD | |
| 205 | $$S^%ZTLOA D | |
| 206 | GETS^DIQ | |
| 207 | RLOAD^RCDP EAR3 | |
| 208 | SELPAY^RCD PEAR3 | |
| 209 | $$ASKLM^RC DPEARL | |
| 210 | $$ENDORPRT ^RCDPEARL | |
| 211 | $$NOW^RCDP EARL | |
| 212 | ASK^RCDPEA RL | |
| 213 | HDRLST^RCD PEARL LMRPT^RC DPEARL | |
| 214 | SL^RCDPEAR L | |
| 215 | $$CHKPYR^R CDPEDAR | |
| 216 | $$DISPTY^R CDPEM3 | |
| 217 | $$DTRNG^RC DPEM4 | |
| 218 | INFO^RCDPE M6 | |
| 219 | $$GETPAY^R CDPEM9 | |
| 220 | $$SETSTR^V ALM1 | |
| 221 | $$FMDIFF^X LFDT | |
| 222 | $$FMTE^XLF DT Current Lo gicRPTOUT ; Entry po int for qu eued job, nightly jo b | |
| 223 | ; RCTMPND = name of the subsc ript for ^ TMP to use to return all lines | |
| 224 | ; If unde fined or n ull, outpu t is print ed | |
| 225 | ; Return global if RCTMPND no t null: ^T MP($J,RCTM PND,line#) =line text | |
| 226 | N DIC,DUO UT,RC0,RC1 3,RC3443,R CCT,RCIEN, RCNT,RCOUT ,RCPAY,RCP AYER,RCPAY ID | |
| 227 | N RCSTOP, RCTOT,RCZ, X,XX,YY,Z, Z0,ZZ | |
| 228 | S RCTMPND =$G(RCTMPN D) | |
| 229 | S (RCCT,R CSTOP,RCNT ,RCTOT)=0 | |
| 230 | K ^TMP($J ,"RCERA_AG ED"),^TMP( $J,"RCERA_ ADJ") | |
| 231 | ; PRCA*4. 5*284 - Qu eued job n eeds to re load payer selection list | |
| 232 | I $G(RCJO B)'="",RCJ OB'=$J D | |
| 233 | .K ^TMP(" RCSELPAY", $J) | |
| 234 | .D RLOAD^ RCDPEAR3(3 44.31) | |
| 235 | .S RCJOB= $J | |
| 236 | ; build l ocal payer array her e | |
| 237 | S RCNP=+R CNP | |
| 238 | D SELPAY^ RCDPEAR3(R CNP,RCJOB, .RCPAY) | |
| 239 | I RCTMPND '="" K ^TM P($J,RCTMP ND) | |
| 240 | ; cross-r ef on file #344.31 f ield #.08 - MATCH ST ATUS | |
| 241 | S RCIEN=0 F S RCIE N=$O(^RCY( 344.31,"AM ATCH",0,RC IEN)) Q:'R CIEN D ;unmatched entries o nly | |
| 242 | .Q:$P($G( ^RCY(344.3 1,RCIEN,3) ),U) ; EFT has been removed | |
| 243 | .Q:$P($G( ^RCY(344.3 1,RCIEN,0) ),U,7)=0 ; payment o f zero | |
| 244 | .; | |
| 245 | .S RC13=$ P($G(^RCY( 344.31,RCI EN,0)),U,1 3) ; date received | |
| 246 | .; Check for payer match | |
| 247 | .I '$$CHK PYR^RCDPED AR(RCIEN,0 ,RCJOB,RCN P) Q ;PR CA*4.5*318 passed ex isting var iable RCNP | |
| 248 | .; Check date range | |
| 249 | .Q:(RCSTA RT>RC13)!( RC13>RCEND ) | |
| 250 | .; Passed all the f ilters - i nclude on report | |
| 251 | .S ^TMP($ J,"RCEFT_A GED",$$FMD IFF^XLFDT( RC13,DT),R CIEN)=0,RC NT=RCNT+1 | |
| 252 | ; | |
| 253 | D:'RCLSTM GR HDRBLD ; create header | |
| 254 | D:RCLSTMG R HDRLM ; create Li stman head er | |
| 255 | ; | |
| 256 | I RCDISPT Y D EXCEL Q | |
| 257 | ; | |
| 258 | ; Find to tal amount of EFTs | |
| 259 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ | |
| 260 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPGNUM ) W:RCTMPN D="" !!,"* **TASK STO PPED BY US ER***" Q | |
| 261 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 262 | .S RCTOT= RCTOT+$P(R C0,U,7) | |
| 263 | ; | |
| 264 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; ini tial repor t header | |
| 265 | ; | |
| 266 | S Z=$$SET STR^VALM1( "Totals:", "",1,79) | |
| 267 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 268 | S Z=$$SET STR^VALM1( " Number A ged Electr onic EFT M essages Fo und: "_RCN T,"",1,79) | |
| 269 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 270 | S Z=$$SET STR^VALM1( " Amount A ged Electr onic EFT M essages Fo und: $"_$F N(+RCTOT," ,",2),"",1 ,79) | |
| 271 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 272 | D SL^RCDP EARL($TR($ J("",IOM), " ","="),. RCCT,RCTMP ND) | |
| 273 | ; | |
| 274 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ | |
| 275 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPGNUM ) W:RCTMPN D="" !!,"* **TASK STO PPED BY US ER***" Q | |
| 276 | .I RCPGNU M D SL^RCD PEARL(" ", .RCCT,.RCT MPND) ; On detail li st, skip l ine | |
| 277 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 278 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 279 | .S RCTOT= RCTOT+$P(R C0,U,7) | |
| 280 | .S Z=$$SE TSTR^VALM1 ($J(-RCZ,4 ),"",1,4) | |
| 281 | .; PRCA*4 .5*318 mov ed deposit date up a row to gi ve more ro om for pay er/payer I D | |
| 282 | .S Z=$$SE TSTR^VALM1 (" "_$P(RC 0,U,4),Z,5 ,52) ;trac e# | |
| 283 | .S Z=$$SE TSTR^VALM1 ($$FMTE^XL FDT($P(RC0 ,U,12),2), Z,73,8) ; deposit da te | |
| 284 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 285 | .N RCPAY S RCPAY=$P (RC0,U,2) S:RCPAY="" RCPAY="NO PAYER NAM E RECEIVED " ; PRCA*4 .5*298 | |
| 286 | .S RCPAYI D=$P(RC0,U ,3) ; Paye r ID ;PRCA *4.5*298 | |
| 287 | .;PRCA*4. 5*318 dyna mically di splay paye r name/ID based on l ength | |
| 288 | .S RCPAYE R=RCPAY_"/ "_RCPAYID | |
| 289 | .I $L(RCP AYER)>76 D | |
| 290 | . . S ZZ= $L(RCPAYER ,"/"),XX=$ P(RCPAYER, "/",1,ZZ-1 ),YY=$P(RC PAYER,"/", ZZ) | |
| 291 | . . S XX= $E(RCPAYER ,1,$L(XX)- ($L(RCPAYE R)-76)),RC PAYER=XX_" /"_YY | |
| 292 | .S Z=$$SE TSTR^VALM1 (RCPAYER," ",5,76) ; PRCA*4.5*2 98 (payer/ payer ID) | |
| 293 | .;S Z=$$S ETSTR^VALM 1(" "_$$FM TE^XLFDT($ P(RC0,U,12 ),2),Z,70, 10) ; depo sit date | |
| 294 | .;end of PRCA*4.5*3 18 display change | |
| 295 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 296 | .S Z=$$SE TSTR^VALM1 ($J("",6)_ $S($P(RC0, U,13):$$FM TE^XLFDT($ P(RC0,U,13 ),2),1:"") ,"",1,17) | |
| 297 | .S Z=$$SE TSTR^VALM1 (" "_$J($P (RC0,U,7), 15,2),Z,18 ,17) | |
| 298 | .; PRCA*4 .5*283 - c hange leng th from 8 to 11 to a llow for 9 digit DEP #'s | |
| 299 | .S Z=$$SE TSTR^VALM1 (" "_$P(RC 3443,U,6), Z,35,11) | |
| 300 | .S Z=$$SE TSTR^VALM1 (" "_$S($P (RC3443,U, 12):"",1:" NOT ")_"Po sted to 8N ZZ"_$S($P( RC3443,U,1 2):" "_$$F MTE^XLFDT( $P(RC3443, U,11),2),1 :""),Z,47, 36) | |
| 301 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 302 | .K RCOUT | |
| 303 | .D GETS^D IQ(344.31, RCIEN_",", 2,"E","RCO UT") | |
| 304 | .Q:'$O(RC OUT(344.31 ,RCIEN_"," ,2,0)) | |
| 305 | .D SL^RCD PEARL($J(" ",8)_"--EX CEPTION NO TES--",.RC CT,RCTMPND ) | |
| 306 | .S Z=0 F S Z=$O(RC OUT(344.31 ,RCIEN_"," ,2,Z)) Q:' Z D Q:RC STOP | |
| 307 | ..I 'RCLS TMGR,$Y>(I OSL-RCHDR( 0)) D HDRL ST^RCDPEAR L(.RCSTOP, .RCHDR) Q: RCSTOP | |
| 308 | ..D SL^RC DPEARL($J( "",8)_" "_ RCOUT(344. 31,RCIEN_" ,",2,Z),.R CCT,RCTMPN D) | |
| 309 | ; | |
| 310 | ; | |
| 311 | ; PRCA*4. 5*298, put end-of-re port into SL^RCDPEAR L | |
| 312 | D SL^RCDP EARL(" ",. RCCT,RCTMP ND) ; skip a line | |
| 313 | D SL^RCDP EARL($$END ORPRT^RCDP EARL,.RCCT ,RCTMPND) | |
| 314 | ; | |
| 315 | HDRBLD ; c reate the report hea der | |
| 316 | ; returns RCHDR, RC PGNUM, RCS TOP | |
| 317 | ; RCHDR(0 ) = header text line count | |
| 318 | ; RCHDR(" XECUTE") = M code fo r page num ber | |
| 319 | ; RCHDR(" RUNDATE") = date/tim e report g enerated, external f ormat | |
| 320 | ; RCPGNUM - page co unter | |
| 321 | ; RCSTOP - flag to exit | |
| 322 | ;INPUT: | |
| 323 | ; RCDTRNG - date ra nge filter value to be printed as part o f the head er | |
| 324 | ; RCPAY - Payer fil ter value( s) | |
| 325 | ; RCLSTMG R | |
| 326 | ; | |
| 327 | K RCHDR S RCHDR("RU NDATE")=$$ NOW^RCDPEA RL,RCPGNUM =0,RCSTOP= 0 | |
| 328 | ; | |
| 329 | I RCDISPT Y D Q ; Excel form at, xecute code is Q UIT, null page numbe r | |
| 330 | .S RCHDR( 0)=1,RCHDR ("XECUTE") ="Q",RCPGN UM="" | |
| 331 | .S RCHDR( 1)="Aged D ays^Trace #^Deposit From/ID^Fi le Date^De posit Amou nt^Deposit #^Deposit Post Stat us^Deposit Date" | |
| 332 | ; | |
| 333 | N START,E ND,MSG,DAT E,Y,DIV,HC NT | |
| 334 | S START=$ $FMTE^XLFD T($P(RCDTR NG,U,2),2) ,END=$$FMT E^XLFDT($P (RCDTRNG,U ,3),2) | |
| 335 | ; | |
| 336 | S Y=$$HDR NM,HCNT=1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y ; line 1 will be replaced b y XECUTE c ode below | |
| 337 | S RCHDR(" XECUTE")=" N Y S RCPG NUM=RCPGNU M+1,Y=$$HD RNM^"_$T(+ 0)_"_$S(RC LSTMGR:""" ",1:$J(""P age: ""_RC PGNUM,12)) ,RCHDR(1)= $J("" "",8 0-$L(Y)\2) _Y" | |
| 338 | S Y="RUN DATE: "_RC HDR("RUNDA TE"),HCNT= HCNT+1,RCH DR(HCNT)=$ J("",80-$L (Y)\2)_Y ; line 1 w ill be rep laced by X ECUTE code below | |
| 339 | ; | |
| 340 | ; Payer(s ) | |
| 341 | S Y="PAYE RS: " D | |
| 342 | .I $D(RCP AY)=1 S Y= Y_RCPAY,HC NT=HCNT+1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y Q | |
| 343 | .N S,X S S=0 F S S =$O(RCPAY( S)) Q:'S D | |
| 344 | ..S X=RCP AY(S)_$S($ O(RCPAY(S) ):", ",1:" ") | |
| 345 | ..I $L(X) +$L(Y)>80 S HCNT=HCN T+1,RCHDR( HCNT)=Y,Y= $J(" ",8) | |
| 346 | ..S Y=Y_X | |
| 347 | .; | |
| 348 | .S:$TR(Y, " ")]"" HC NT=HCNT+1, RCHDR(HCNT )=Y ; any residual data | |
| 349 | S Y="DATE RANGE: "_ $P($$FMTE^ XLFDT(STAR T,2),"@")_ " - "_$P($ $FMTE^XLFD T(END,2)," @")_" (DAT E EFT FILE D)" | |
| 350 | S Y=$J("" ,80-$L(Y)\ 2)_Y,HCNT= HCNT+1,RCH DR(HCNT)=Y | |
| 351 | ; | |
| 352 | S Y="AGED ",HCNT=HCN T+1,RCHDR( HCNT)=Y | |
| 353 | ; PRCA*4. 5*318 move d deposit date up a row | |
| 354 | S Y="DAYS TRACE # D EP DATE",H CNT=HCNT+1 ,RCHDR(HCN T)=Y | |
| 355 | S Y=" DEP OSIT FROM/ ID",HCNT=H CNT+1,RCHD R(HCNT)=Y | |
| 356 | S Y=" FIL E DATE DEP OSIT AMOUN T DEP # DE POSIT POST STATUS",H CNT=HCNT+1 ,RCHDR(HCN T)=Y | |
| 357 | S Y="",$P (Y,"=",81) ="",HCNT=H CNT+1,RCHD R(HCNT)=Y ; row of equal sign s at botto m | |
| 358 | ; | |
| 359 | S RCHDR(0 )=HCNT | |
| 360 | ; | |
| 361 | Q | |
| 362 | EXCEL ; Pr int report to screen , one reco rd per lin e for expo rt to MS E xcel. | |
| 363 | ; RCTMPND = name of the subsc ript for ^ TMP to use | |
| 364 | W !!,"Age d Days^Tra ce #^Depos it From/ID ^File Date ^Deposit A mount^Depo sit #^Depo sit Post S tatus^Depo sit Date" | |
| 365 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ2 | |
| 366 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPG) W :RCTMPND=" " !!,"***T ASK STOPPE D BY USER* **" Q | |
| 367 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 368 | .N RCPAY S RCPAY=$P (RC0,U,2) S:RCPAY="" RCPAY="NO PAYER NAM E RECEIVED " ; PRCA*4 .5*298 | |
| 369 | .S Z=$J(- RCZ,4)_"^" _$P(RC0,U, 4)_"^"_RCP AY_"/"_$P( RC0,U,3)_" ^"_$S($P(R C0,U,13):$ $FMTE^XLFD T($P(RC0,U ,13),2),1: "")_"^" ; PRCA*4.5*2 98 | |
| 370 | .S Z=Z_$P (RC0,U,7)_ "^"_$P(RC3 443,U,6)_" ^"_$S($P(R C3443,U,12 ):"",1:"NO T ")_"Post ed to 8NZZ "_$S($P(RC 3443,U,12) :"^"_$$FMT E^XLFDT($P (RC0,U,12) ,2),1:"") | |
| 371 | .W !,Z | |
| 372 | W !!,"*** END OF RE PORT ***", !Modified Logic (Cha nges are i n bold)RPT OUT ; Entr y point fo r queued j ob, nightl y job | |
| 373 | ; RCTMPND = name of the subsc ript for ^ TMP to use to return all lines | |
| 374 | ; If unde fined or n ull, outpu t is print ed | |
| 375 | ; Return global if RCTMPND no t null: ^T MP($J,RCTM PND,line#) =line text | |
| 376 | N DIC,DUO UT,RC0,RC1 3,RC3443,R CCT,RCIEN, RCNT,RCOUT ,RCPAY,RCP AYER,RCPAY ID | |
| 377 | N RCSTOP, RCTOT,RCZ, X,XX,YY,Z, Z0,ZZ | |
| 378 | S RCTMPND =$G(RCTMPN D) | |
| 379 | S (RCCT,R CSTOP,RCNT ,RCTOT)=0 | |
| 380 | K ^TMP($J ,"RCERA_AG ED"),^TMP( $J,"RCERA_ ADJ") | |
| 381 | ; PRCA*4. 5*284 - Qu eued job n eeds to re load payer selection list | |
| 382 | I $G(RCJO B)'="",RCJ OB'=$J D | |
| 383 | .K ^TMP(" RCSELPAY", $J) | |
| 384 | .D RLOAD^ RCDPEAR3(3 44.31) | |
| 385 | .S RCJOB= $J | |
| 386 | ; build l ocal payer array her e | |
| 387 | S RCNP=+R CNP | |
| 388 | D SELPAY^ RCDPEAR3(R CNP,RCJOB, .RCPAY) | |
| 389 | I RCTMPND '="" K ^TM P($J,RCTMP ND) | |
| 390 | ; cross-r ef on file #344.31 f ield #.08 - MATCH ST ATUS | |
| 391 | S RCIEN=0 F S RCIE N=$O(^RCY( 344.31,"AM ATCH",0,RC IEN)) Q:'R CIEN D ;unmatched entries o nly | |
| 392 | .Q:$P($G( ^RCY(344.3 1,RCIEN,3) ),U) ; EFT has been removed | |
| 393 | .Q:$P($G( ^RCY(344.3 1,RCIEN,0) ),U,7)=0 ; payment o f zero | |
| 394 | .; | |
| 395 | .S RC13=$ P($G(^RCY( 344.31,RCI EN,0)),U,1 3) ; date received | |
| 396 | .; Check for payer match | |
| 397 | .I '$$CHK PYR^RCDPED AR(RCIEN,0 ,RCJOB,RCN P) Q ;PR CA*4.5*318 passed ex isting var iable RCNP | |
| 398 | .; Check date range | |
| 399 | .Q:(RCSTA RT>RC13)!( RC13>RCEND ) | |
| 400 | .; Passed all the f ilters - i nclude on report | |
| 401 | .S ^TMP($ J,"RCEFT_A GED",$$FMD IFF^XLFDT( RC13,DT),R CIEN)=0,RC NT=RCNT+1 | |
| 402 | ; | |
| 403 | D:'RCLSTM GR HDRBLD ; create header | |
| 404 | D:RCLSTMG R HDRLM ; create Li stman head er | |
| 405 | ; | |
| 406 | I RCDISPT Y D EXCEL Q | |
| 407 | ; | |
| 408 | ; Find to tal amount of EFTs | |
| 409 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ | |
| 410 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPGNUM ) W:RCTMPN D="" !!,"* **TASK STO PPED BY US ER***" Q | |
| 411 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 412 | .S RCTOT= RCTOT+$P(R C0,U,7) | |
| 413 | ; | |
| 414 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; ini tial repor t header | |
| 415 | ; | |
| 416 | S Z=$$SET STR^VALM1( "Totals:", "",1,79) | |
| 417 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 418 | S Z=$$SET STR^VALM1( " Number A ged Electr onic EFT M essages Fo und: "_RCN T,"",1,79) | |
| 419 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 420 | S Z=$$SET STR^VALM1( " Amount A ged Electr onic EFT M essages Fo und: $"_$F N(+RCTOT," ,",2),"",1 ,79) | |
| 421 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 422 | D SL^RCDP EARL($TR($ J("",IOM), " ","="),. RCCT,RCTMP ND) | |
| 423 | ; | |
| 424 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ | |
| 425 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPGNUM ) W:RCTMPN D="" !!,"* **TASK STO PPED BY US ER***" Q | |
| 426 | .I RCPGNU M D SL^RCD PEARL(" ", .RCCT,.RCT MPND) ; On detail li st, skip l ine | |
| 427 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 428 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 429 | .S RCTOT= RCTOT+$P(R C0,U,7) | |
| 430 | .S Z=$$SE TSTR^VALM1 ($J(-RCZ,4 ),"",1,4) | |
| 431 | .; PRCA*4 .5*318 mov ed deposit date up a row to gi ve more ro om for pay er/payer I D | |
| 432 | .S Z=$$SE TSTR^VALM1 (" "_$P(RC 0,U,4),Z,5 ,52) ;trac e# | |
| 433 | .S Z=$$SE TSTR^VALM1 ($$FMTE^XL FDT($P(RC0 ,U,12),2), Z,73,8) ; deposit da te | |
| 434 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 435 | .N RCPAY S RCPAY=$P (RC0,U,2) S:RCPAY="" RCPAY="NO PAYER NAM E RECEIVED " ; PRCA*4 .5*298 | |
| 436 | .S RCPAYI D=$P(RC0,U ,3) ; Paye r ID ;PRCA *4.5*298 | |
| 437 | .;PRCA*4. 5*318 dyna mically di splay paye r name/ID based on l ength | |
| 438 | .S RCPAYE R=RCPAY_"/ "_RCPAYID | |
| 439 | .I $L(RCP AYER)>76 D | |
| 440 | . . S ZZ= $L(RCPAYER ,"/"),XX=$ P(RCPAYER, "/",1,ZZ-1 ),YY=$P(RC PAYER,"/", ZZ) | |
| 441 | . . S XX= $E(RCPAYER ,1,$L(XX)- ($L(RCPAYE R)-76)),RC PAYER=XX_" /"_YY | |
| 442 | .S Z=$$SE TSTR^VALM1 (RCPAYER," ",5,76) ; PRCA*4.5*2 98 (payer/ payer ID) | |
| 443 | .;S Z=$$S ETSTR^VALM 1(" "_$$FM TE^XLFDT($ P(RC0,U,12 ),2),Z,70, 10) ; depo sit date | |
| 444 | .;end of PRCA*4.5*3 18 display change | |
| 445 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 446 | .S Z=$$SE TSTR^VALM1 ($J("",6)_ $S($P(RC0, U,13):$$FM TE^XLFDT($ P(RC0,U,13 ),2),1:"") ,"",1,17) | |
| 447 | .S Z=$$SE TSTR^VALM1 (" "_$J($P (RC0,U,7), 15,2),Z,18 ,17) | |
| 448 | .; PRCA*4 .5*283 - c hange leng th from 8 to 11 to a llow for 9 digit DEP #'s | |
| 449 | .S Z=$$SE TSTR^VALM1 (" "_$P(RC 3443,U,6)_ "/"_$P(RC3 443,U)_”.” _$P(RC3443 ,U,14),Z,3 4,17) | |
| 450 | .S Z=$$SE TSTR^VALM1 (" "_$S($P (RC3443,U, 12):"",1:" NOT ")_"Po sted to 8N ZZ"_$S($P( RC3443,U,1 2):" "_$$F MTE^XLFDT( $P(RC3443, U,11),2),1 :""),Z,52, 36) | |
| 451 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 452 | .K RCOUT | |
| 453 | .D GETS^D IQ(344.31, RCIEN_",", 2,"E","RCO UT") | |
| 454 | .Q:'$O(RC OUT(344.31 ,RCIEN_"," ,2,0)) | |
| 455 | .D SL^RCD PEARL($J(" ",8)_"--EX CEPTION NO TES--",.RC CT,RCTMPND ) | |
| 456 | .S Z=0 F S Z=$O(RC OUT(344.31 ,RCIEN_"," ,2,Z)) Q:' Z D Q:RC STOP | |
| 457 | ..I 'RCLS TMGR,$Y>(I OSL-RCHDR( 0)) D HDRL ST^RCDPEAR L(.RCSTOP, .RCHDR) Q: RCSTOP | |
| 458 | ..D SL^RC DPEARL($J( "",8)_" "_ RCOUT(344. 31,RCIEN_" ,",2,Z),.R CCT,RCTMPN D) | |
| 459 | ; | |
| 460 | ; | |
| 461 | ; PRCA*4. 5*298, put end-of-re port into SL^RCDPEAR L | |
| 462 | D SL^RCDP EARL(" ",. RCCT,RCTMP ND) ; skip a line | |
| 463 | D SL^RCDP EARL($$END ORPRT^RCDP EARL,.RCCT ,RCTMPND) | |
| 464 | ; | |
| 465 | HDRBLD ; c reate the report hea der | |
| 466 | ; returns RCHDR, RC PGNUM, RCS TOP | |
| 467 | ; RCHDR(0 ) = header text line count | |
| 468 | ; RCHDR(" XECUTE") = M code fo r page num ber | |
| 469 | ; RCHDR(" RUNDATE") = date/tim e report g enerated, external f ormat | |
| 470 | ; RCPGNUM - page co unter | |
| 471 | ; RCSTOP - flag to exit | |
| 472 | ;INPUT: | |
| 473 | ; RCDTRNG - date ra nge filter value to be printed as part o f the head er | |
| 474 | ; RCPAY - Payer fil ter value( s) | |
| 475 | ; RCLSTMG R | |
| 476 | ; | |
| 477 | K RCHDR S RCHDR("RU NDATE")=$$ NOW^RCDPEA RL,RCPGNUM =0,RCSTOP= 0 | |
| 478 | ; | |
| 479 | I RCDISPT Y D Q ; Excel form at, xecute code is Q UIT, null page numbe r | |
| 480 | .S RCHDR( 0)=1,RCHDR ("XECUTE") ="Q",RCPGN UM="" | |
| 481 | .S RCHDR( 1)="Aged D ays^Trace #^Deposit From/ID^Fi le Date^De posit Amou nt^Dep#/EF T#^Deposit Post Stat us^Deposit Date" | |
| 482 | ; | |
| 483 | N START,E ND,MSG,DAT E,Y,DIV,HC NT | |
| 484 | S START=$ $FMTE^XLFD T($P(RCDTR NG,U,2),2) ,END=$$FMT E^XLFDT($P (RCDTRNG,U ,3),2) | |
| 485 | ; | |
| 486 | S Y=$$HDR NM,HCNT=1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y ; line 1 will be replaced b y XECUTE c ode below | |
| 487 | S RCHDR(" XECUTE")=" N Y S RCPG NUM=RCPGNU M+1,Y=$$HD RNM^"_$T(+ 0)_"_$S(RC LSTMGR:""" ",1:$J(""P age: ""_RC PGNUM,12)) ,RCHDR(1)= $J("" "",8 0-$L(Y)\2) _Y" | |
| 488 | S Y="RUN DATE: "_RC HDR("RUNDA TE"),HCNT= HCNT+1,RCH DR(HCNT)=$ J("",80-$L (Y)\2)_Y ; line 1 w ill be rep laced by X ECUTE code below | |
| 489 | ; | |
| 490 | ; Payer(s ) | |
| 491 | S Y="PAYE RS: " D | |
| 492 | .I $D(RCP AY)=1 S Y= Y_RCPAY,HC NT=HCNT+1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y Q | |
| 493 | .N S,X S S=0 F S S =$O(RCPAY( S)) Q:'S D | |
| 494 | ..S X=RCP AY(S)_$S($ O(RCPAY(S) ):", ",1:" ") | |
| 495 | ..I $L(X) +$L(Y)>80 S HCNT=HCN T+1,RCHDR( HCNT)=Y,Y= $J(" ",8) | |
| 496 | ..S Y=Y_X | |
| 497 | .; | |
| 498 | .S:$TR(Y, " ")]"" HC NT=HCNT+1, RCHDR(HCNT )=Y ; any residual data | |
| 499 | S Y="DATE RANGE: "_ $P($$FMTE^ XLFDT(STAR T,2),"@")_ " - "_$P($ $FMTE^XLFD T(END,2)," @")_" (DAT E EFT FILE D)" | |
| 500 | S Y=$J("" ,80-$L(Y)\ 2)_Y,HCNT= HCNT+1,RCH DR(HCNT)=Y | |
| 501 | ; | |
| 502 | S Y="AGED ",HCNT=HCN T+1,RCHDR( HCNT)=Y | |
| 503 | ; PRCA*4. 5*318 move d deposit date up a row | |
| 504 | S Y="DAYS TRACE # D EP DATE",H CNT=HCNT+1 ,RCHDR(HCN T)=Y | |
| 505 | S Y=" DEP OSIT FROM/ ID",HCNT=H CNT+1,RCHD R(HCNT)=Y | |
| 506 | S Y=" FIL E DATE DEP OSIT AMOUN T DEP#/EFT # DEPOSIT POST STAT US",HCNT=H CNT+1,RCHD R(HCNT)=Y | |
| 507 | S Y="",$P (Y,"=",81) ="",HCNT=H CNT+1,RCHD R(HCNT)=Y ; row of equal sign s at botto m | |
| 508 | ; | |
| 509 | S RCHDR(0 )=HCNT | |
| 510 | ; | |
| 511 | Q | |
| 512 | EXCEL ; Pr int report to screen , one reco rd per lin e for expo rt to MS E xcel. | |
| 513 | ; RCTMPND = name of the subsc ript for ^ TMP to use | |
| 514 | W !!,"Age d Days^Tra ce #^Depos it From/ID ^File Date ^Deposit A mount^Depo sit #^EFT# ^Deposit P ost Status ^Deposit D ate" | |
| 515 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ2 | |
| 516 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPG) W :RCTMPND=" " !!,"***T ASK STOPPE D BY USER* **" Q | |
| 517 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 518 | .N RCPAY S RCPAY=$P (RC0,U,2) S:RCPAY="" RCPAY="NO PAYER NAM E RECEIVED " ; PRCA*4 .5*298 | |
| 519 | .S Z=$J(- RCZ,4)_"^" _$P(RC0,U, 4)_"^"_RCP AY_"/"_$P( RC0,U,3)_" ^"_$S($P(R C0,U,13):$ $FMTE^XLFD T($P(RC0,U ,13),2),1: "")_"^" ; PRCA*4.5*2 98 | |
| 520 | .S Z=Z_$P (RC0,U,7)_ "^"_$P(RC3 443,U,6)_" ^"_$P(RCO, U)_”.”_$P( RC0,U,14)_ ”^”_$S($P( RC3443,U,1 2):"",1:"N OT ")_"Pos ted to 8NZ Z"_$S($P(R C3443,U,12 ):"^"_$$FM TE^XLFDT($ P(RC0,U,12 ),2),1:"") | |
| 521 | .W !,Z | |
| 522 | W !!,"*** END OF RE PORT ***", !RoutinesA ctivitiesR outine Nam eRCDPE8NZE nhancement Category New Modify Delete No ChangeRTM Related Op tionsRCDPE UNAPPLIED EFT DEP R EPORT Rel ated Routi nesRoutine s “Called By”Routine s “Called” N/A^%ZI S | |
| 523 | HOME^%ZIS | |
| 524 | ^%ZISC | |
| 525 | ^%ZTLOAD | |
| 526 | $$S^%ZTLOA D | |
| 527 | $$ASKLM^RC DPEARL | |
| 528 | $$ENDORPRT ^RCDPEARL | |
| 529 | $$NOW^RCDP EARL | |
| 530 | ASK^RCDPEA RL | |
| 531 | HDRLST^RCD PEARL | |
| 532 | LMRPT^RCDP EARL | |
| 533 | SL^RCDPEAR L | |
| 534 | $$DISPTY^R CDPEM3 | |
| 535 | $$DTRNG^RC DPEM4 | |
| 536 | INFO^RCDPE M6 | |
| 537 | $$HACEFT^R CDPEU | |
| 538 | $$FMSSTAT^ RCDPUREC | |
| 539 | $$FMTE^XLF DT Current Lo gicRPT ; d isplay/pri nt the rep ort using data popul ated in te mporary gl obal array | |
| 540 | N RCPAYID ,RCPAYER,X X,YY,ZZ ;PRCA*4.5* 318 | |
| 541 | ; | |
| 542 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; ini tial repor t header | |
| 543 | ; | |
| 544 | S RCDT=0 | |
| 545 | F S RCDT =$O(^TMP(R CRPLST,$J, RCDT)) Q:' RCDT D Q :RCSTOP | |
| 546 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 547 | .D SL^RCD PEARL(" ", .RCLNCNT,R CTMPND) ; skip a lin e | |
| 548 | .S Y="DEP OSIT DATE: "_$$FMTE^ XLFDT(RCDT ,1),Y=$J(" ",80-$L(Y) \2)_Y D SL ^RCDPEARL( Y,.RCLNCNT ,RCTMPND) | |
| 549 | .S RCARDE P=0 F S R CARDEP=$O( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) Q:'RCARDE P D | |
| 550 | ..D SL^RC DPEARL(" " ,.RCLNCNT, RCTMPND) ; skip a li ne | |
| 551 | ..S RCTSK CNT=RCTSKC NT+1 I 'RC LSTMGR,(RC TSKCNT#100 ),$D(ZTQUE UED),$$S^% ZTLOAD D Q ; stop task | |
| 552 | ...S (RCS TOP,ZTSTOP )=1 D SL^R CDPEARL("T ASK STOPPE D BY USER! !",.RCLNCN T,RCTMPND) K ZTREQ | |
| 553 | ..; | |
| 554 | ..S RCDAT A(0)=$G(^R CY(344.3,R CARDEP,0)) | |
| 555 | ..I 'RCLS TMGR,$Y>(I OSL-RCHDR( 0)) D HDRL ST^RCDPEAR L(.RCSTOP, .RCHDR) Q: RCSTOP | |
| 556 | ..; PRCA* 4.5*283 - Change the spaces fo r DEP # fr om 10 to 1 3 to allow 9 digit D EP # | |
| 557 | ..; PRCA* 4.5*317 Sh ift line 2 chars to the right | |
| 558 | ..S Y=" " _$E($P(RCD ATA(0),U,6 )_$S('$$HA CEFT^RCDPE U(RCARDEP) :"",1:"-HA C")_$J("", 13),1,13) ;deposit # | |
| 559 | ..S Y=Y_" "_$E($$FM TE^XLFDT($ P(RCDATA(0 ),U,7),2)_ $J("",16), 1,16) ; de posit date | |
| 560 | ..S Y=Y_" "_$E($J(+ $P(RCDATA( 0),U,8),"" ,2)_$J("", 20),1,20) ; total am t deposit | |
| 561 | ..S Y=Y_" "_$J(+$G( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) ,"",2) ; t otal amt u nposted | |
| 562 | ..D SL^RC DPEARL(Y,. RCLNCNT,RC TMPND) | |
| 563 | ..S RCEFT IEN=0 F S RCEFTIEN= $O(^TMP(RC RPLST,$J,R CDT,RCARDE P,RCEFTIEN )) Q:'RCEF TIEN S RC DATA=$G(^( RCEFTIEN)) ,RCEFT("DE P")=$G(^RC Y(344.31,R CEFTIEN,0) ) D | |
| 564 | ...I 'RCL STMGR,$Y>( IOSL-RCHDR (0)) D HDR LST^RCDPEA RL(.RCSTOP ,.RCHDR) Q :RCSTOP | |
| 565 | ...N RCPA Y S RCPAY= $P(RCEFT(" DEP"),U,2) S:RCPAY=" " RCPAY="N O PAYER NA ME RECEIVE D" ; PRCA* 4.5*298 | |
| 566 | ...; | |
| 567 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 568 | ...;S Y=" "_RCPAY_" /"_$P(RCEF T("DEP"),U ,3) D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) ; payer/ID | |
| 569 | ...; PRCA *4.5*318 A ccount for payer nam es of 60 c haracters and payer ID of 20 c haracters | |
| 570 | ...S RCPA YID=$P(RCE FT("DEP"), U,3) | |
| 571 | ...S RCPA YER=RCPAY_ "/"_RCPAYI D ; p ayer/ID | |
| 572 | ...I $L(R CPAYER)>77 D | |
| 573 | ... . S Z Z=$L(RCPAY ER,"/"),XX =$P(RCPAYE R,"/",1,ZZ -1),YY=$P( RCPAYER,"/ ",ZZ) | |
| 574 | ... . S X X=$E(XX,1, $L(XX)-($L (RCPAYER)- 77)),RCPAY ER=XX_"/"_ YY | |
| 575 | ...S Y=" "_RCPAYER | |
| 576 | ...; end of PRCA*4. 5*318 | |
| 577 | ...D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) ; payer/ID | |
| 578 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 579 | ...S Y=" "_$E($P(RC EFT("DEP") ,U,4)_$J(" ",50),1,50 ) ; trace # | |
| 580 | ...S Y=Y_ " "_$E($J( +$P(RCEFT( "DEP"),U,7 ),"",2)_$J ("",12),1, 12) ; paym ent amt | |
| 581 | ...; | |
| 582 | ...; PRCA *4.5*317 S hift lines 2 to thr right to a llow 12 di git receip t # | |
| 583 | ...S Y=Y_ " "_$S($P( RCDATA,U,4 )'="":$P(R CDATA,U,4) ,1:"NO REC EIPT") ; r eceipt # | |
| 584 | ... D SL^ RCDPEARL(Y ,.RCLNCNT, RCTMPND) | |
| 585 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 586 | ...S Z=$P (RCEFT("DE P"),U,8) | |
| 587 | ...S Y=" "_$E($S('Z :"UNMATCHE D",Z=2:"PA PER EOB",1 :"MATCHED TO ERA #: "_$P(RCEFT ("DEP"),U, 10)_$S(Z=- 1:" (TOTAL S MISMATCH )",1:""))_ $J("",40), 1,40)_" " | |
| 588 | ...S Y=Y_ $S($P(RCDA TA,U)=-1:" NO RECEIPT ",$P(RCDAT A,U)=-2:"N O FMS DOCU MENT",1:$E ($P(RCDATA ,U,2)_" - "_$P(RCDAT A,U,3),1,3 0)) | |
| 589 | ...D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) | |
| 590 | ; | |
| 591 | I '$D(^TM P(RCRPLST, $J)) D SL^ RCDPEARL(" *** NO REC ORDS TO PR INT ***",. RCLNCNT,RC TMPND) | |
| 592 | ; | |
| 593 | I 'RCSTOP D SL^RCDP EARL(" ",. RCLNCNT,RC TMPND),SL^ RCDPEARL($ $ENDORPRT^ RCDPEARL,. RCLNCNT,RC TMPND) | |
| 594 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 595 | D:'$D(ZTQ UEUED) ^%Z ISC | |
| 596 | G:RCSTOP RPTQ | |
| 597 | ; | |
| 598 | I 'RCLSTM GR,'RCSTOP ,$E(IOST,1 ,2)="C-" D ASK^RCDPE ARL(.RCSTO P) | |
| 599 | ; | |
| 600 | RPTQ ; | |
| 601 | K ^TMP(RC RPLST,$J) | |
| 602 | Q | |
| 603 | ; | |
| 604 | ||
| 605 | ; | |
| 606 | HDRBLD ; c reate the report hea der | |
| 607 | ; returns RCHDR, RC PGNUM, RCS TOP | |
| 608 | ; RCHDR(0 ) = header text line count | |
| 609 | ; RCHDR(" XECUTE") = M code fo r page num ber | |
| 610 | ; RCHDR(" RUNDATE") = date/tim e report g enerated, external f ormat | |
| 611 | ; RCPGNUM - page co unter | |
| 612 | ; RCSTOP - flag to exit | |
| 613 | ; INPUT: | |
| 614 | ; RCDISPT Y - Displa y/print/Ex cel flag | |
| 615 | ; RCRTYP - Report T ype (EOB o r ERA) | |
| 616 | ; VAUTD | |
| 617 | K RCHDR S RCHDR("RU NDATE")=$$ NOW^RCDPEA RL,RCPGNUM =0,RCSTOP= 0 | |
| 618 | ; | |
| 619 | ; | |
| 620 | I RCDISPT Y D Q ; Excel form at, xecute code is Q UIT, null page numbe r | |
| 621 | .S RCHDR( 0)=1,RCHDR ("XECUTE") ="Q",RCPGN UM="" | |
| 622 | .S RCHDR( 1)="DEPOSI T #^DEPOSI T DATE^TOT AMT DEPOS IT^TOT AMT UNPOSTED^ D A N E S
|
|
| 623 | ; | |
| 624 | N DIV,HCN T,Y | |
| 625 | S HCNT=0 ; header c ounter | |
| 626 | ; | |
| 627 | S Y=$$HDR NM,HCNT=1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y ; line 1 will be replaced b y XECUTE c ode below | |
| 628 | S RCHDR(" XECUTE")=" N Y S RCPG NUM=RCPGNU M+1,Y=$$HD RNM^"_$T(+ 0)_"_$S(RC LSTMGR:""" ",1:$J(""P age: ""_RC PGNUM,12)) ,RCHDR(1)= $J("" "",8 0-$L(Y)\2) _Y" | |
| 629 | S Y="Run Date: "_RC HDR("RUNDA TE"),HCNT= HCNT+1,RCH DR(HCNT)=$ J("",80-$L (Y)\2)_Y ; line 1 w ill be rep laced by X ECUTE code below | |
| 630 | ; | |
| 631 | S Y="Date Range: "_ $$FMTE^XLF DT(RCSTDT, 2)_" - "_$ $FMTE^XLFD T(RCENDT,2 )_" (Depos it Date)", Y=$J("",80 -$L(Y)\2)_ Y | |
| 632 | S HCNT=HC NT+1,RCHDR (HCNT)=Y | |
| 633 | S Y="TOTA L NUMBER O F UNAPPLIE D DEPOSITS : "_RCUNAP ,HCNT=HCNT +1,RCHDR(H CNT)=$J("" ,80-$L(Y)\ 2)_Y | |
| 634 | S Y="TOTA L AMOUNT O F UNAPPLIE D DEPOSITS : $"_$FN(R CSUM,",",2 ),HCNT=HCN T+1,RCHDR( HCNT)=$J(" ",80-$L(Y) \2)_Y | |
| 635 | S HCNT=HC NT+1,RCHDR (HCNT)="" | |
| 636 | ; | |
| 637 | ; PRCA*4. 5*317 Shif t each lin e 2 chars to the rig ht | |
| 638 | S HCNT=HC NT+1,RCHDR (HCNT)=" D EPOSIT # D EPOSIT DAT E TOT AMT OF DEPOSIT TOT AMT U NPOSTED" | |
| 639 | S HCNT=HC NT+1,RCHDR (HCNT)=" P AYER/ID" | |
| 640 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",4)_"TRA CE #"_$J(" ",44)_"PAY MENT AMT R ECEIPT #" | |
| 641 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",6)_$E(" ERA MATCHE D"_$J("",4 0),1,40)_" FMS DOC # /STATUS" | |
| 642 | ; PRCA*4. 5*317 End | |
| 643 | S Y="",$P (Y,"=",81) ="",HCNT=H CNT+1,RCHD R(HCNT)=Y ; row of equal sign s at botto m | |
| 644 | ; | |
| 645 | S RCHDR(0 )=HCNT ; header lin e count | |
| 646 | Q | |
| 647 | ; | |
| 648 | HDRLM ; cr eate the r eport head er | |
| 649 | ; returns RCHDR | |
| 650 | ; RCHDR(0 ) = header text line count | |
| 651 | ; INPUT: | |
| 652 | ; RCSTDT - Date Ran ge | |
| 653 | K RCHDR | |
| 654 | ; | |
| 655 | N DIV,HCN T,Y | |
| 656 | S HCNT=0 ; header c ounter | |
| 657 | S Y="Date Range: "_ $$FMTE^XLF DT(RCSTDT, 2)_" - "_$ $FMTE^XLFD T(RCENDT,2 )_" (Depos it Date)", HCNT=HCNT+ 1,RCHDR(HC NT)=Y | |
| 658 | S Y="TOTA L NUMBER O F UNAPPLIE D DEPOSITS : "_RCUNAP ,HCNT=HCNT +1,RCHDR(H CNT)=Y | |
| 659 | S Y="TOTA L AMOUNT O F UNAPPLIE D DEPOSITS : $"_$FN(R CSUM,",",2 ),HCNT=HCN T+1,RCHDR( HCNT)=Y | |
| 660 | ; | |
| 661 | ; PRCA*4. 5*317 Shif t each lin e 2 chars to the rig ht | |
| 662 | S HCNT=HC NT+1,RCHDR (HCNT)=" D EPOSIT # D EPOSIT DAT E TOT AMT OF DEPOSIT TOT AMT U NPOSTED" | |
| 663 | S HCNT=HC NT+1,RCHDR (HCNT)=" P AYER/ID" | |
| 664 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",4)_"TRA CE #"_$J(" ",44)_"PAY MENT AMT R ECEIPT #" | |
| 665 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",6)_$E(" ERA MATCHE D"_$J("",4 0),1,40)_" FMS DOC # /STATUS" | |
| 666 | ; PRCA*4. 5*317 End | |
| 667 | ; | |
| 668 | S RCHDR(0 )=HCNT ; header lin e count | |
| 669 | Q | |
| 670 | ; | |
| 671 | ; extrins ic variabl e, name fo r header P RCA*4.5*29 8 | |
| 672 | HDRNM() Q "Unapplied EFT Depos its Report " | |
| 673 | ; | |
| 674 | EXCEL ; Pr int report formatted for expor t to Excel | |
| 675 | N STR1 | |
| 676 | W !,$G(RC HDR(1)),! | |
| 677 | S RCDT=0 F S RCDT= $O(^TMP(RC RPLST,$J,R CDT)) Q:'R CDT D Q: RCSTOP | |
| 678 | .S RCARDE P=0 F S R CARDEP=$O( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) Q:'RCARDE P D | |
| 679 | ..S RCDAT A(0)=$G(^R CY(344.3,R CARDEP,0)) | |
| 680 | ..S STR1= $P(RCDATA( 0),U,6)_$S ('$$HACEFT ^RCDPEU(RC ARDEP):"", 1:"-HAC")_ U_$$FMTE^X LFDT($P(RC DATA(0),U, 7))_U_$P(R CDATA(0),U ,8)_U | |
| 681 | ..S STR1= STR1_+$G(^ TMP(RCRPLS T,$J,RCDT, RCARDEP))_ U | |
| 682 | ..S RCEFT IEN=0 F S RCEFTIEN= $O(^TMP(RC RPLST,$J,R CDT,RCARDE P,RCEFTIEN )) Q:'RCEF TIEN S RC DATA=$G(^( RCEFTIEN)) ,RCEFT("DE P")=$G(^RC Y(344.31,R CEFTIEN,0) ) D | |
| 683 | ...W STR1 S:$P(RCEF T("DEP"),U ,2)="" $P( RCEFT("DEP "),U,2)="N O PAYER NA ME RECEIVE D" ;PRCA*4 .5*298 | |
| 684 | ...W $P(R CEFT("DEP" ),U,2)_"/" _$P(RCEFT( "DEP"),U,3 )_U_$P(RCE FT("DEP"), U,4)_U | |
| 685 | ...W +$P( RCEFT("DEP "),U,7)_U_ $S($P(RCDA TA,U,4)'=" ":$P(RCDAT A,U,4),1:" NO RECEIPT ")_U | |
| 686 | ...W $P(R CEFT("DEP" ),U,10)_U | |
| 687 | ...W $S($ P(RCDATA,U )=-1:"NO R ECEIPT",$P (RCDATA,U) =-2:"NO FM S DOCUMENT ",1:$P(RCD ATA,U,2)_" - "_$P(RC DATA,U,3)) | |
| 688 | ...W ! | |
| 689 | Q | |
| 690 | ;Modified Logic (Ch anges are in bold)RP T ; displa y/print th e report u sing data populated in tempora ry global array | |
| 691 | N RCPAYID ,RCPAYER,X X,YY,ZZ ;PRCA*4.5* 318 | |
| 692 | ; | |
| 693 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; ini tial repor t header | |
| 694 | ; | |
| 695 | S RCDT=0 | |
| 696 | F S RCDT =$O(^TMP(R CRPLST,$J, RCDT)) Q:' RCDT D Q :RCSTOP | |
| 697 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 698 | .D SL^RCD PEARL(" ", .RCLNCNT,R CTMPND) ; skip a lin e | |
| 699 | .S Y="DEP OSIT DATE: "_$$FMTE^ XLFDT(RCDT ,1),Y=$J(" ",80-$L(Y) \2)_Y D SL ^RCDPEARL( Y,.RCLNCNT ,RCTMPND) | |
| 700 | .S RCARDE P=0 F S R CARDEP=$O( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) Q:'RCARDE P D | |
| 701 | ..D SL^RC DPEARL(" " ,.RCLNCNT, RCTMPND) ; skip a li ne | |
| 702 | ..S RCTSK CNT=RCTSKC NT+1 I 'RC LSTMGR,(RC TSKCNT#100 ),$D(ZTQUE UED),$$S^% ZTLOAD D Q ; stop task | |
| 703 | ...S (RCS TOP,ZTSTOP )=1 D SL^R CDPEARL("T ASK STOPPE D BY USER! !",.RCLNCN T,RCTMPND) K ZTREQ | |
| 704 | ..; | |
| 705 | ..S RCDAT A(0)=$G(^R CY(344.3,R CARDEP,0)) | |
| 706 | ..I 'RCLS TMGR,$Y>(I OSL-RCHDR( 0)) D HDRL ST^RCDPEAR L(.RCSTOP, .RCHDR) Q: RCSTOP | |
| 707 | ..; PRCA* 4.5*283 - Change the spaces fo r DEP # fr om 10 to 1 3 to allow 9 digit D EP # | |
| 708 | ..; PRCA* 4.5*317 Sh ift line 2 chars to the right | |
| 709 | ..S Y=" " _$E($P(RCD ATA(0),U,6 ) )_”/”_$P (RCDATA(0) ,U)_”.”_$P (RCDATA(0) ,U,14) | |
| 710 | ..S Y=Y_$ S('$$HACEF T^RCDPEU(R CARDEP):"" ,1:"-HAC") _$J("",13) ,1,13) ;de posit # | |
| 711 | ..S Y=Y_" "_$E($$FM TE^XLFDT($ P(RCDATA(0 ),U,7),2)_ $J("",16), 1,16) ; de posit date | |
| 712 | ..S Y=Y_" "_$E($J(+ $P(RCDATA( 0),U,8),"" ,2)_$J("", 20),1,20) ; total am t deposit | |
| 713 | ..S Y=Y_" "_$J(+$G( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) ,"",2) ; t otal amt u nposted | |
| 714 | ..D SL^RC DPEARL(Y,. RCLNCNT,RC TMPND) | |
| 715 | ..S RCEFT IEN=0 F S RCEFTIEN= $O(^TMP(RC RPLST,$J,R CDT,RCARDE P,RCEFTIEN )) Q:'RCEF TIEN S RC DATA=$G(^( RCEFTIEN)) ,RCEFT("DE P")=$G(^RC Y(344.31,R CEFTIEN,0) ) D | |
| 716 | ...I 'RCL STMGR,$Y>( IOSL-RCHDR (0)) D HDR LST^RCDPEA RL(.RCSTOP ,.RCHDR) Q :RCSTOP | |
| 717 | ...N RCPA Y S RCPAY= $P(RCEFT(" DEP"),U,2) S:RCPAY=" " RCPAY="N O PAYER NA ME RECEIVE D" ; PRCA* 4.5*298 | |
| 718 | ...; | |
| 719 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 720 | ...;S Y=" "_RCPAY_" /"_$P(RCEF T("DEP"),U ,3) D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) ; payer/ID | |
| 721 | ...; PRCA *4.5*318 A ccount for payer nam es of 60 c haracters and payer ID of 20 c haracters | |
| 722 | ...S RCPA YID=$P(RCE FT("DEP"), U,3) | |
| 723 | ...S RCPA YER=RCPAY_ "/"_RCPAYI D ; p ayer/ID | |
| 724 | ...I $L(R CPAYER)>77 D | |
| 725 | ... . S Z Z=$L(RCPAY ER,"/"),XX =$P(RCPAYE R,"/",1,ZZ -1),YY=$P( RCPAYER,"/ ",ZZ) | |
| 726 | ... . S X X=$E(XX,1, $L(XX)-($L (RCPAYER)- 77)),RCPAY ER=XX_"/"_ YY | |
| 727 | ...S Y=" "_RCPAYER | |
| 728 | ...; end of PRCA*4. 5*318 | |
| 729 | ...D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) ; payer/ID | |
| 730 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 731 | ...S Y=" "_$E($P(RC EFT("DEP") ,U,4)_$J(" ",50),1,50 ) ; trace # | |
| 732 | ...S Y=Y_ " "_$E($J( +$P(RCEFT( "DEP"),U,7 ),"",2)_$J ("",12),1, 12) ; paym ent amt | |
| 733 | ...; | |
| 734 | ...; PRCA *4.5*317 S hift lines 2 to thr right to a llow 12 di git receip t # | |
| 735 | ...S Y=Y_ " "_$S($P( RCDATA,U,4 )'="":$P(R CDATA,U,4) ,1:"NO REC EIPT") ; r eceipt # | |
| 736 | ... D SL^ RCDPEARL(Y ,.RCLNCNT, RCTMPND) | |
| 737 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 738 | ...S Z=$P (RCEFT("DE P"),U,8) | |
| 739 | ...S Y=" "_$E($S('Z :"UNMATCHE D",Z=2:"PA PER EOB",1 :"MATCHED TO ERA #: "_$P(RCEFT ("DEP"),U, 10)_$S(Z=- 1:" (TOTAL S MISMATCH )",1:""))_ $J("",40), 1,40)_" " | |
| 740 | ...S Y=Y_ $S($P(RCDA TA,U)=-1:" NO RECEIPT ",$P(RCDAT A,U)=-2:"N O FMS DOCU MENT",1:$E ($P(RCDATA ,U,2)_" - "_$P(RCDAT A,U,3),1,3 0)) | |
| 741 | ...D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) | |
| 742 | ; | |
| 743 | I '$D(^TM P(RCRPLST, $J)) D SL^ RCDPEARL(" *** NO REC ORDS TO PR INT ***",. RCLNCNT,RC TMPND) | |
| 744 | ; | |
| 745 | I 'RCSTOP D SL^RCDP EARL(" ",. RCLNCNT,RC TMPND),SL^ RCDPEARL($ $ENDORPRT^ RCDPEARL,. RCLNCNT,RC TMPND) | |
| 746 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 747 | D:'$D(ZTQ UEUED) ^%Z ISC | |
| 748 | G:RCSTOP RPTQ | |
| 749 | ; | |
| 750 | I 'RCLSTM GR,'RCSTOP ,$E(IOST,1 ,2)="C-" D ASK^RCDPE ARL(.RCSTO P) | |
| 751 | ; | |
| 752 | RPTQ ; | |
| 753 | K ^TMP(RC RPLST,$J) | |
| 754 | Q | |
| 755 | ||
| 756 | ||
| 757 | ; | |
| 758 | HDRBLD ; c reate the report hea der | |
| 759 | ; returns RCHDR, RC PGNUM, RCS TOP | |
| 760 | ; RCHDR(0 ) = header text line count | |
| 761 | ; RCHDR(" XECUTE") = M code fo r page num ber | |
| 762 | ; RCHDR(" RUNDATE") = date/tim e report g enerated, external f ormat | |
| 763 | ; RCPGNUM - page co unter | |
| 764 | ; RCSTOP - flag to exit | |
| 765 | ; INPUT: | |
| 766 | ; RCDISPT Y - Displa y/print/Ex cel flag | |
| 767 | ; RCRTYP - Report T ype (EOB o r ERA) | |
| 768 | ; VAUTD | |
| 769 | K RCHDR S RCHDR("RU NDATE")=$$ NOW^RCDPEA RL,RCPGNUM =0,RCSTOP= 0 | |
| 770 | ; | |
| 771 | ; | |
| 772 | I RCDISPT Y D Q ; Excel form at, xecute code is Q UIT, null page numbe r | |
| 773 | .S RCHDR( 0)=1,RCHDR ("XECUTE") ="Q",RCPGN UM="" | |
| 774 | .S RCHDR( 1)="DEPOSI T #^EFT #^ DEPOSIT DA TE^TOT AMT DEPOSIT^T OT AMT UNP OSTED^ D A N E S
|
|
| 775 | ; | |
| 776 | N DIV,HCN T,Y | |
| 777 | S HCNT=0 ; header c ounter | |
| 778 | ; | |
| 779 | S Y=$$HDR NM,HCNT=1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y ; line 1 will be replaced b y XECUTE c ode below | |
| 780 | S RCHDR(" XECUTE")=" N Y S RCPG NUM=RCPGNU M+1,Y=$$HD RNM^"_$T(+ 0)_"_$S(RC LSTMGR:""" ",1:$J(""P age: ""_RC PGNUM,12)) ,RCHDR(1)= $J("" "",8 0-$L(Y)\2) _Y" | |
| 781 | S Y="Run Date: "_RC HDR("RUNDA TE"),HCNT= HCNT+1,RCH DR(HCNT)=$ J("",80-$L (Y)\2)_Y ; line 1 w ill be rep laced by X ECUTE code below | |
| 782 | ; | |
| 783 | S Y="Date Range: "_ $$FMTE^XLF DT(RCSTDT, 2)_" - "_$ $FMTE^XLFD T(RCENDT,2 )_" (Depos it Date)", Y=$J("",80 -$L(Y)\2)_ Y | |
| 784 | S HCNT=HC NT+1,RCHDR (HCNT)=Y | |
| 785 | S Y="TOTA L NUMBER O F UNAPPLIE D DEPOSITS : "_RCUNAP ,HCNT=HCNT +1,RCHDR(H CNT)=$J("" ,80-$L(Y)\ 2)_Y | |
| 786 | S Y="TOTA L AMOUNT O F UNAPPLIE D DEPOSITS : $"_$FN(R CSUM,",",2 ),HCNT=HCN T+1,RCHDR( HCNT)=$J(" ",80-$L(Y) \2)_Y | |
| 787 | S HCNT=HC NT+1,RCHDR (HCNT)="" | |
| 788 | ; | |
| 789 | ; PRCA*4. 5*317 Shif t each lin e 2 chars to the rig ht | |
| 790 | S HCNT=HC NT+1,RCHDR (HCNT)=" D EP#/EFT# D EPOSIT DAT E TOT AMT OF DEPOSIT TOT AMT U NPOSTED" | |
| 791 | S HCNT=HC NT+1,RCHDR (HCNT)=" P AYER/ID" | |
| 792 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",4)_"TRA CE #"_$J(" ",44)_"PAY MENT AMT R ECEIPT #" | |
| 793 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",6)_$E(" ERA MATCHE D"_$J("",4 0),1,40)_" FMS DOC # /STATUS" | |
| 794 | ; PRCA*4. 5*317 End | |
| 795 | S Y="",$P (Y,"=",81) ="",HCNT=H CNT+1,RCHD R(HCNT)=Y ; row of equal sign s at botto m | |
| 796 | ; | |
| 797 | S RCHDR(0 )=HCNT ; header lin e count | |
| 798 | Q | |
| 799 | ; | |
| 800 | HDRLM ; cr eate the r eport head er | |
| 801 | ; returns RCHDR | |
| 802 | ; RCHDR(0 ) = header text line count | |
| 803 | ; INPUT: | |
| 804 | ; RCSTDT - Date Ran ge | |
| 805 | K RCHDR | |
| 806 | ; | |
| 807 | N DIV,HCN T,Y | |
| 808 | S HCNT=0 ; header c ounter | |
| 809 | S Y="Date Range: "_ $$FMTE^XLF DT(RCSTDT, 2)_" - "_$ $FMTE^XLFD T(RCENDT,2 )_" (Depos it Date)", HCNT=HCNT+ 1,RCHDR(HC NT)=Y | |
| 810 | S Y="TOTA L NUMBER O F UNAPPLIE D DEPOSITS : "_RCUNAP ,HCNT=HCNT +1,RCHDR(H CNT)=Y | |
| 811 | S Y="TOTA L AMOUNT O F UNAPPLIE D DEPOSITS : $"_$FN(R CSUM,",",2 ),HCNT=HCN T+1,RCHDR( HCNT)=Y | |
| 812 | ; | |
| 813 | ; PRCA*4. 5*317 Shif t each lin e 2 chars to the rig ht | |
| 814 | S HCNT=HC NT+1,RCHDR (HCNT)=" D EP#/EFT# D EPOSIT DAT E TOT AMT OF DEPOSIT TOT AMT U NPOSTED" | |
| 815 | S HCNT=HC NT+1,RCHDR (HCNT)=" P AYER/ID" | |
| 816 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",4)_"TRA CE #"_$J(" ",44)_"PAY MENT AMT R ECEIPT #" | |
| 817 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",6)_$E(" ERA MATCHE D"_$J("",4 0),1,40)_" FMS DOC # /STATUS" | |
| 818 | ; PRCA*4. 5*317 End | |
| 819 | ; | |
| 820 | S RCHDR(0 )=HCNT ; header lin e count | |
| 821 | Q | |
| 822 | ; | |
| 823 | ; extrins ic variabl e, name fo r header P RCA*4.5*29 8 | |
| 824 | HDRNM() Q "Unapplied EFT Depos its Report " | |
| 825 | ; | |
| 826 | EXCEL ; Pr int report formatted for expor t to Excel | |
| 827 | N STR1 | |
| 828 | W !,$G(RC HDR(1)),! | |
| 829 | S RCDT=0 F S RCDT= $O(^TMP(RC RPLST,$J,R CDT)) Q:'R CDT D Q: RCSTOP | |
| 830 | .S RCARDE P=0 F S R CARDEP=$O( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) Q:'RCARDE P D | |
| 831 | ..S RCDAT A(0)=$G(^R CY(344.3,R CARDEP,0)) | |
| 832 | ..S STR1= $P(RCDATA( 0),U,6)_”/ ”_$P(RCDAT A(0),U)_”. ”_$P(RCDAT A(0),U,14) | |
| 833 | ..S STR1= STR1_$S('$ $HACEFT^RC DPEU(RCARD EP):"",1:" -HAC") | |
| 834 | ..S STR1= STR1_U_$$F MTE^XLFDT( $P(RCDATA( 0),U,7))_U _$P(RCDATA (0),U,8)_U | |
| 835 | ..S STR1= STR1_+$G(^ TMP(RCRPLS T,$J,RCDT, RCARDEP))_ U | |
| 836 | ..S RCEFT IEN=0 F S RCEFTIEN= $O(^TMP(RC RPLST,$J,R CDT,RCARDE P,RCEFTIEN )) Q:'RCEF TIEN S RC DATA=$G(^( RCEFTIEN)) ,RCEFT("DE P")=$G(^RC Y(344.31,R CEFTIEN,0) ) D | |
| 837 | ...W STR1 S:$P(RCEF T("DEP"),U ,2)="" $P( RCEFT("DEP "),U,2)="N O PAYER NA ME RECEIVE D" ;PRCA*4 .5*298 | |
| 838 | ...W $P(R CEFT("DEP" ),U,2)_"/" _$P(RCEFT( "DEP"),U,3 )_U_$P(RCE FT("DEP"), U,4)_U | |
| 839 | ...W +$P( RCEFT("DEP "),U,7)_U_ $S($P(RCDA TA,U,4)'=" ":$P(RCDAT A,U,4),1:" NO RECEIPT ")_U | |
| 840 | ...W $P(R CEFT("DEP" ),U,10)_U | |
| 841 | ...W $S($ P(RCDATA,U )=-1:"NO R ECEIPT",$P (RCDATA,U) =-2:"NO FM S DOCUMENT ",1:$P(RCD ATA,U,2)_" - "_$P(RC DATA,U,3)) | |
| 842 | ...W ! | |
| 843 | Q | |
| 844 | ;Routines Activities Routine Na meRCDPEM6E nhancement Category New Modify Delete No ChangeRTM Related Op tionsRCDPE EFT AUDIT REPORT R elated Rou tinesRouti nes “Calle d By”Routi nes “Calle d” RCDPE 8NZ | |
| 845 | RCDPEAC | |
| 846 | RCDPEADP | |
| 847 | RCDPEAPP | |
| 848 | RCDPEAR1 | |
| 849 | RCDPELAR | |
| 850 | RCDPEM3 | |
| 851 | RCDPEM4 | |
| 852 | RCDPESP2 | |
| 853 | ^%ZIS | |
| 854 | HOME^%ZIS | |
| 855 | ^%ZISC | |
| 856 | ^%ZTLOAD | |
| 857 | $$ASKLM^RC DPEARL | |
| 858 | $$ENDORPRT ^RCDPEARL | |
| 859 | $$NOW^RCDP EARL | |
| 860 | $$PAD^RCDP EARL | |
| 861 | HDRLST^RCD PEARL | |
| 862 | LMRPT^RCDP EARL | |
| 863 | SL^RCDPEAR L | |
| 864 | $$DISPTY^R CDPEM3 | |
| 865 | $$DTRNG^RC DPEM4 | |
| 866 | $$FMTE^XLF DT | |
| 867 | $$NOW^XLFD T | |
| 868 | $$NAME^XUS ER Current Lo gicPROC(EF TIEN) ; ga ther data into ^TMP | |
| 869 | ; EFTIEN = ien of t he EFT | |
| 870 | ; | |
| 871 | N AMT,DEP NO,JUST,PA YER,PTR,RC RD,RTRNDT, TRACE,USER | |
| 872 | ; JUST - Justificat ion for re turning EF T | |
| 873 | ; TRACE - EFT Trace number | |
| 874 | ; AMT - a mount of t he EFT | |
| 875 | ; PAYER - EFT payer | |
| 876 | ; PTR - p ointer to #344.3 | |
| 877 | ; RTRNDT - Date EFT returned | |
| 878 | ; USER - User who c ompleted t he transac tion | |
| 879 | ; DEPNO - Deposit # of EFT | |
| 880 | ; | |
| 881 | S RCRD(0) =$G(^RCY(3 44.31,EFTI EN,0)),RCR D(3)=$G(^( 3)) | |
| 882 | S USER=$$ NAME^XUSER ($P(RCRD(3 ),U),"F") | |
| 883 | S RTRNDT= $$FMTE^XLF DT($P(^RCY (344.31,EF TIEN,3),U, 2),2) | |
| 884 | S JUST=$P (RCRD(3),U ,3) | |
| 885 | S PAYER=$ P(RCRD(0), U,2) S:PAY ER="" PAYE R="Unknown Payer" | |
| 886 | S TRACE=$ P(RCRD(0), U,4),AMT=$ P(RCRD(0), U,7) | |
| 887 | S PTR=+$P (RCRD(0),U ) | |
| 888 | ; EDI LOC KBOX DEPOS IT (#344.3 ), (#.06) DEPOSIT NU MBER [6F] | |
| 889 | S:PTR>0 D EPNO=$P($G (^RCY(344. 3,PTR,0)), U,6) | |
| 890 | S:DEPNO=" " DEPNO="U nknown" | |
| 891 | S ^TMP($J ,"RC DUP E FT",EFTIEN )=DEPNO_"^ "_PAYER_"^ "_TRACE_"^ "_AMT_"^"_ RTRNDT_"^" _USER_"^"_ JUST | |
| 892 | Q | |
| 893 | ; | |
| 894 | HDRBLD ; c reate the report hea der | |
| 895 | ; returns RCHDR, RC PGNUM, RCS TOP | |
| 896 | ; RCHDR(0 ) = header text line count | |
| 897 | ; RCHDR(" XECUTE") = M code fo r page num ber | |
| 898 | ; RCHDR(" RUNDATE") = date/tim e report g enerated, external f ormat | |
| 899 | ; RCPGNUM - page co unter | |
| 900 | ; RCSTOP - flag to exit | |
| 901 | ; INPUT: | |
| 902 | ; RCDISPT Y - Displa y/print/Ex cel flag | |
| 903 | ; RCRTYP - Report T ype (EOB o r ERA) | |
| 904 | ; RCDTRNG - selecte d dates | |
| 905 | ; | |
| 906 | K RCHDR S RCHDR("RU NDATE")=$$ NOW^RCDPEA RL,RCPGNUM =0,RCSTOP= 0 | |
| 907 | ; | |
| 908 | I RCDISPT Y D Q ; Excel form at, xecute code is Q UIT, null page numbe r | |
| 909 | .S RCHDR( 0)=1,RCHDR ("XECUTE") ="Q",RCPGN UM="" | |
| 910 | .S RCHDR( 1)="DEPOSI T NUMBER^P AYER^TRACE NUMBER^AM OUNT^DATE REMOVED^US ER^JUSTIFI CATION" | |
| 911 | ; | |
| 912 | N DIV,HCN T,Y | |
| 913 | S HCNT=0 ; counter for header | |
| 914 | ; | |
| 915 | S Y=$$HDR NM,HCNT=1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y ; line 1 will be replaced b y XECUTE c ode below | |
| 916 | S RCHDR(" XECUTE")=" N Y S RCPG NUM=RCPGNU M+1,Y=$$HD RNM^"_$T(+ 0)_",RCHDR (1)=$J("" "",80-$L(Y )\2)_Y_"" Page: ""_R CPGNUM" | |
| 917 | S Y="RUN DATE: "_RC HDR("RUNDA TE"),HCNT= HCNT+1,RCH DR(HCNT)=$ J("",80-$L (Y)\2)_Y ; line 1 w ill be rep laced by X ECUTE code below | |
| 918 | ; | |
| 919 | S Y("1ST" )=$P(RCDTR NG,U,2),Y( "LST")=$P( RCDTRNG,U, 3) | |
| 920 | F Y="1ST" ,"LST" S Y (Y)=$$FMTE ^XLFDT(Y(Y ),"2Z") | |
| 921 | S Y="Date Range: "_ Y("1ST")_" - "_$$FMT E^XLFDT(Y( "LST"),"2Z ")_" (DATE EFT REMOV AL)" | |
| 922 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",80-$L(Y )\2)_Y | |
| 923 | S HCNT=HC NT+1,RCHDR (HCNT)="" | |
| 924 | K Y ; de lete Y sub scripts | |
| 925 | I $G(RCLS TMGR) S HC NT=HCNT+1, RCHDR(HCNT )="",HCNT= HCNT+1,RCH DR(HCNT)=" " | |
| 926 | S Y=$$PAD ^RCDPEARL( " Deposit# ",16)_"Tra ce #",HCNT =HCNT+1,RC HDR(HCNT)= Y | |
| 927 | S Y=$$PAD ^RCDPEARL( $J(" ",6)_ "Payer Nam e",28),Y=Y _"Date/Tim e",Y=$$PAD ^RCDPEARL( Y,50)_"Use r Who" | |
| 928 | S HCNT=HC NT+1,RCHDR (HCNT)=Y | |
| 929 | S Y=$J(" ",16)_"Amo unt",Y=$$P AD^RCDPEAR L(Y,28)_"R emoved",Y= $$PAD^RCDP EARL(Y,50) _"Removed" | |
| 930 | S HCNT=HC NT+1,RCHDR (HCNT)=Y | |
| 931 | S Y="",$P (Y,"=",81) ="",HCNT=H CNT+1,RCHD R(HCNT)=Y | |
| 932 | ; | |
| 933 | S RCHDR(0 )=HCNT | |
| 934 | Q | |
| 935 | DSPRPRT ; Format dis play for s creen/prin ter, Excel , or ListM an | |
| 936 | ; RCDISPT Y - displa y for Exce l flag | |
| 937 | ; RCLSTMG R - displa y for List Man flag | |
| 938 | ; | |
| 939 | N CNT,DUP EFT,IEN,LI NE,RCLNCNT ,Y | |
| 940 | ; CNT - C ount of EF T Deposits removed | |
| 941 | ; IEN - l ine number of the da ta in ^TMP | |
| 942 | ; DUPEFT - Data fro m ^TMP($J, "RC DUP EF T",IEN) | |
| 943 | ; RCLNCNT - line co unter for SL^RCDPEAR L | |
| 944 | ; | |
| 945 | D:'RCLSTM GR HDRBLD | |
| 946 | D:RCLSTMG R HDRLM | |
| 947 | ; | |
| 948 | I $G(RCTM PND)'="" K ^TMP($J,R CTMPND) S RCLNCNT=0 | |
| 949 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; ini tial repor t header | |
| 950 | S IEN="", CNT=0 | |
| 951 | F S IEN= $O(^TMP($J ,"RC DUP E FT",IEN)) Q:'IEN!RCS TOP D | |
| 952 | .S CNT=CN T+1,DUPEFT =^TMP($J," RC DUP EFT ",IEN) | |
| 953 | .I RCDISP TY D SL^RC DPEARL(DUP EFT,.RCLNC NT,RCTMPND ) Q ; Exc el format, write lin e and quit | |
| 954 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 955 | .S Y=$$PA D^RCDPEARL (" "_$P(DU PEFT,U),16 )_$P(DUPEF T,U,3) D S L^RCDPEARL (Y,.RCLNCN T,RCTMPND) | |
| 956 | .S Y=$J(" ",6)_$P(D UPEFT,U,2) D SL^RCDP EARL(Y,.RC LNCNT,RCTM PND) | |
| 957 | .S Y=$$PA D^RCDPEARL ($J(" ",16 )_$J($P(DU PEFT,U,4), 0,2),28)_$ P(DUPEFT,U ,5) | |
| 958 | .S Y=$$PA D^RCDPEARL (Y,50)_$E( $P(DUPEFT, U,6),1,25) D SL^RCDP EARL(Y,.RC LNCNT,RCTM PND) | |
| 959 | .D WP($P( DUPEFT,U,7 )) D SL^RC DPEARL(" " ,.RCLNCNT, RCTMPND) | |
| 960 | ; | |
| 961 | I 'RCDISP TY,'RCSTOP D ; not for Excel | |
| 962 | .S Y=" To tal number of duplic ates remov ed: "_CNT D SL^RCDPE ARL(Y,.RCL NCNT,RCTMP ND),SL^RCD PEARL(" ", .RCLNCNT,R CTMPND) | |
| 963 | ; | |
| 964 | I 'RCSTOP D SL^RCDP EARL($$END ORPRT^RCDP EARL,.RCLN CNT,RCTMPN D) | |
| 965 | ; | |
| 966 | QModified Logic (Ch anges are in bold)PR OC(EFTIEN) ; gather data into ^TMP | |
| 967 | ; EFTIEN = ien of t he EFT | |
| 968 | ; | |
| 969 | N AMT,DEP NO,EFTLID, JUST,PAYER ,PTR,RCRD, RTRNDT,TRA CE,USER | |
| 970 | ; JUST - Justificat ion for re turning EF T | |
| 971 | ; TRACE - EFT Trace number | |
| 972 | ; AMT - a mount of t he EFT | |
| 973 | ; PAYER - EFT payer | |
| 974 | ; PTR - p ointer to #344.3 | |
| 975 | ; RTRNDT - Date EFT returned | |
| 976 | ; USER - User who c ompleted t he transac tion | |
| 977 | ; DEPNO - Deposit # of EFT | |
| 978 | ; EFTLID - EFT Det ail line i dentifier NNNN.NN | |
| 979 | ; | |
| 980 | S RCRD(0) =$G(^RCY(3 44.31,EFTI EN,0)),RCR D(3)=$G(^( 3)) | |
| 981 | S USER=$$ NAME^XUSER ($P(RCRD(3 ),U),"F") | |
| 982 | S RTRNDT= $$FMTE^XLF DT($P(^RCY (344.31,EF TIEN,3),U, 2),2) | |
| 983 | S JUST=$P (RCRD(3),U ,3) | |
| 984 | S PAYER=$ P(RCRD(0), U,2) S:PAY ER="" PAYE R="Unknown Payer" | |
| 985 | S TRACE=$ P(RCRD(0), U,4),AMT=$ P(RCRD(0), U,7) | |
| 986 | S PTR=+$P (RCRD(0),U ) | |
| 987 | ; EDI LOC KBOX DEPOS IT (#344.3 ), (#.06) DEPOSIT NU MBER [6F] | |
| 988 | S:PTR>0 D EPNO=$P($G (^RCY(344. 3,PTR,0)), U,6) | |
| 989 | S:DEPNO=" " DEPNO="U nknown" | |
| 990 | S EFTLID= $$GET1^DIQ (344.31,EF TIEN_”,”,. 01) | |
| 991 | S EFTLID= EFTLID_”.” _$$GET1^DI Q(344.31,E FTIEN_”,”, .14) | |
| 992 | S ^TMP($J ,"RC DUP E FT",EFTIEN )=DEPNO_"^ "_PAYER_"^ "_TRACE_"^ "_AMT_"^"_ RTRNDT_"^" _USER_"^"_ JUST_”^”_E FTLID | |
| 993 | Q | |
| 994 | ; | |
| 995 | HDRBLD ; c reate the report hea der | |
| 996 | ; returns RCHDR, RC PGNUM, RCS TOP | |
| 997 | ; RCHDR(0 ) = header text line count | |
| 998 | ; RCHDR(" XECUTE") = M code fo r page num ber | |
| 999 | ; RCHDR(" RUNDATE") = date/tim e report g enerated, external f ormat | |
| 1000 | ; RCPGNUM - page co unter | |
| 1001 | ; RCSTOP - flag to exit | |
| 1002 | ; INPUT: | |
| 1003 | ; RCDISPT Y - Displa y/print/Ex cel flag | |
| 1004 | ; RCRTYP - Report T ype (EOB o r ERA) | |
| 1005 | ; RCDTRNG - selecte d dates | |
| 1006 | ; | |
| 1007 | K RCHDR S RCHDR("RU NDATE")=$$ NOW^RCDPEA RL,RCPGNUM =0,RCSTOP= 0 | |
| 1008 | ; | |
| 1009 | I RCDISPT Y D Q ; Excel form at, xecute code is Q UIT, null page numbe r | |
| 1010 | .S RCHDR( 0)=1,RCHDR ("XECUTE") ="Q",RCPGN UM="" | |
| 1011 | .S RCHDR( 1)="DEPOSI T NUMBER^P AYER^TRACE NUMBER^AM OUNT^DATE REMOVED^US ER^JUSTIFI CATION" | |
| 1012 | ; | |
| 1013 | N DIV,HCN T,Y | |
| 1014 | S HCNT=0 ; counter for header | |
| 1015 | ; | |
| 1016 | S Y=$$HDR NM,HCNT=1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y ; line 1 will be replaced b y XECUTE c ode below | |
| 1017 | S RCHDR(" XECUTE")=" N Y S RCPG NUM=RCPGNU M+1,Y=$$HD RNM^"_$T(+ 0)_",RCHDR (1)=$J("" "",80-$L(Y )\2)_Y_"" Page: ""_R CPGNUM" | |
| 1018 | S Y="RUN DATE: "_RC HDR("RUNDA TE"),HCNT= HCNT+1,RCH DR(HCNT)=$ J("",80-$L (Y)\2)_Y ; line 1 w ill be rep laced by X ECUTE code below | |
| 1019 | ; | |
| 1020 | S Y("1ST" )=$P(RCDTR NG,U,2),Y( "LST")=$P( RCDTRNG,U, 3) | |
| 1021 | F Y="1ST" ,"LST" S Y (Y)=$$FMTE ^XLFDT(Y(Y ),"2Z") | |
| 1022 | S Y="Date Range: "_ Y("1ST")_" - "_$$FMT E^XLFDT(Y( "LST"),"2Z ")_" (DATE EFT REMOV AL)" | |
| 1023 | S HCNT=HC NT+1,RCHDR (HCNT)=$J( "",80-$L(Y )\2)_Y | |
| 1024 | S HCNT=HC NT+1,RCHDR (HCNT)="" | |
| 1025 | K Y ; de lete Y sub scripts | |
| 1026 | I $G(RCLS TMGR) S HC NT=HCNT+1, RCHDR(HCNT )="",HCNT= HCNT+1,RCH DR(HCNT)=" " | |
| 1027 | S Y=$$PAD ^RCDPEARL( " Deposit# /EFT#",16) _"Trace #" ,HCNT=HCNT +1,RCHDR(H CNT)=Y | |
| 1028 | S Y=$$PAD ^RCDPEARL( $J(" ",6)_ "Payer Nam e",28),Y=Y _"Date/Tim e",Y=$$PAD ^RCDPEARL( Y,50)_"Use r Who" | |
| 1029 | S HCNT=HC NT+1,RCHDR (HCNT)=Y | |
| 1030 | S Y=$J(" ",16)_"Amo unt",Y=$$P AD^RCDPEAR L(Y,28)_"R emoved",Y= $$PAD^RCDP EARL(Y,50) _"Removed" | |
| 1031 | S HCNT=HC NT+1,RCHDR (HCNT)=Y | |
| 1032 | S Y="",$P (Y,"=",81) ="",HCNT=H CNT+1,RCHD R(HCNT)=Y | |
| 1033 | ; | |
| 1034 | S RCHDR(0 )=HCNT | |
| 1035 | Q | |
| 1036 | DSPRPRT ; Format dis play for s creen/prin ter, Excel , or ListM an | |
| 1037 | ; RCDISPT Y - displa y for Exce l flag | |
| 1038 | ; RCLSTMG R - displa y for List Man flag | |
| 1039 | ; | |
| 1040 | N CNT,DUP EFT,IEN,LI NE,RCLNCNT ,Y | |
| 1041 | ; CNT - C ount of EF T Deposits removed | |
| 1042 | ; IEN - l ine number of the da ta in ^TMP | |
| 1043 | ; DUPEFT - Data fro m ^TMP($J, "RC DUP EF T",IEN) | |
| 1044 | ; RCLNCNT - line co unter for SL^RCDPEAR L | |
| 1045 | ; | |
| 1046 | D:'RCLSTM GR HDRBLD | |
| 1047 | D:RCLSTMG R HDRLM | |
| 1048 | ; | |
| 1049 | I $G(RCTM PND)'="" K ^TMP($J,R CTMPND) S RCLNCNT=0 | |
| 1050 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; ini tial repor t header | |
| 1051 | S IEN="", CNT=0 | |
| 1052 | F S IEN= $O(^TMP($J ,"RC DUP E FT",IEN)) Q:'IEN!RCS TOP D | |
| 1053 | .S CNT=CN T+1,DUPEFT =^TMP($J," RC DUP EFT ",IEN) | |
| 1054 | .I RCDISP TY D SL^RC DPEARL(DUP EFT,.RCLNC NT,RCTMPND ) Q ; Exc el format, write lin e and quit | |
| 1055 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 1056 | .S Y=$$PA D^RCDPEARL (" "_$P(DU PEFT,U)_”/ ”_$P(DUPEF T,U,8),16) _$P(DUPEFT ,U,3) D SL ^RCDPEARL( Y,.RCLNCNT ,RCTMPND) | |
| 1057 | .S Y=$J(" ",6)_$P(D UPEFT,U,2) D SL^RCDP EARL(Y,.RC LNCNT,RCTM PND) | |
| 1058 | .S Y=$$PA D^RCDPEARL ($J(" ",16 )_$J($P(DU PEFT,U,4), 0,2),28)_$ P(DUPEFT,U ,5) | |
| 1059 | .S Y=$$PA D^RCDPEARL (Y,50)_$E( $P(DUPEFT, U,6),1,25) D SL^RCDP EARL(Y,.RC LNCNT,RCTM PND) | |
| 1060 | .D WP($P( DUPEFT,U,7 )) D SL^RC DPEARL(" " ,.RCLNCNT, RCTMPND) | |
| 1061 | ; | |
| 1062 | I 'RCDISP TY,'RCSTOP D ; not for Excel | |
| 1063 | .S Y=" To tal number of duplic ates remov ed: "_CNT D SL^RCDPE ARL(Y,.RCL NCNT,RCTMP ND),SL^RCD PEARL(" ", .RCLNCNT,R CTMPND) | |
| 1064 | ; | |
| 1065 | I 'RCSTOP D SL^RCDP EARL($$END ORPRT^RCDP EARL,.RCLN CNT,RCTMPN D) | |
| 1066 | ; | |
| 1067 | QRoutines Activities Routine Na meRCDPTARE nhancement Category New Modify Delete No ChangeRTM Related Op tionsRCDPE EFT TRANS ACTION AUD REPRelate d Routines Routines “ Called By” Routines “ Called” N/A^%ZIS | |
| 1068 | HOME^%ZIS | |
| 1069 | ^%ZISC | |
| 1070 | ^%ZTLOAD | |
| 1071 | ^DIC | |
| 1072 | IX^DIC | |
| 1073 | $$GET1^DIQ | |
| 1074 | GETS^DIQ | |
| 1075 | ^DIR | |
| 1076 | $$CUTOFF^R CDPEWLP | |
| 1077 | CHKEFT^RCD PEWLP | |
| 1078 | $$DATE^RCD PRU | |
| 1079 | $$NOW^RCDP RU | |
| 1080 | SUM^RCDPTA R1 | |
| 1081 | $$FMSSTAT^ RCDPUREC | |
| 1082 | $$UP^XLFST R Current Lo gicEFTDATA (EFTIEN) ; Get assoc iated reco rds for th is EFT | |
| 1083 | ; Input: EFTIEN - I EN for EFT [344.31] | |
| 1084 | ; Returns : A1^A2^A3 ^A4^45 | |
| 1085 | ; where A 1=ERAIEN - IEN for E RA (#344.4 ) | |
| 1086 | ; A2=LOCK IEN - IEN for LOCKBO X DEPOSIT (#344.3) | |
| 1087 | ; A3=EFTI EN - IEN f or EFT (#3 44.31) | |
| 1088 | ; A4=DEPI EN - IEN f or AR DEPO SIT (#344. 1) | |
| 1089 | ; A5=BATC HIEN - IEN for AR BA TCH PAYMEN T (#344) | |
| 1090 | ; | |
| 1091 | I '$G(EFT IEN) Q "" | |
| 1092 | ; | |
| 1093 | N BATCHIE N,DEPIEN,E RAIEN,LOCK IEN ;PRC A*4.5*321 removed DE POSIT | |
| 1094 | S (ERAIEN ,DEPIEN,BA TCHIEN)="" | |
| 1095 | S ERAIEN= $$GET1^DIQ (344.31,EF TIEN,.1,"I ") ;PRCA*4 .5*321 use ^DIQ vs g lobal acce ss | |
| 1096 | S LOCKIEN =$$GET1^DI Q(344.31,E FTIEN,.01, "I") ;PRCA *4.5*321 | |
| 1097 | I LOCKIEN S DEPIEN= $$GET1^DIQ (344.3,LOC KIEN,.03," I") ;PRCA* 4.5*321 in stead of $ O on B ind ex of 344. 1 | |
| 1098 | I DEPIEN S BATCHIEN =$O(^RCY(3 44,"AD",DE PIEN,"")) | |
| 1099 | Q ERAIEN_ U_LOCKIEN_ U_EFTIEN_U _DEPIEN_U_ BATCHIEN | |
| 1100 | HEADER(RCN OW,RCPG,RC HR,RCDATA) ; Print H eader Sect ion | |
| 1101 | ; Input: RCNOW - DA TE/TIME in external format | |
| 1102 | ; RCPG - Current pa ge number | |
| 1103 | ; RCHR - Line of "- " to margi n width | |
| 1104 | ; RCDATA - See subr outine EFT DA about f or delimit ed list of fields | |
| 1105 | ; Output: Write sta tements | |
| 1106 | ; | |
| 1107 | N EFTDATA ,LINE | |
| 1108 | S EFTDATA =$G(^RCY(3 44.31,+$P( RCDATA,U,3 ),0)) | |
| 1109 | ; | |
| 1110 | W @IOF | |
| 1111 | S RCPG=RC PG+1 | |
| 1112 | W "EFT TR ANSACTION AUDIT REPO RT" | |
| 1113 | S LINE=RC NOW_" PAGE : "_RCPG_" " | |
| 1114 | W ?(IOM-$ L(LINE)),L INE | |
| 1115 | ; | |
| 1116 | W !,"EFT# : ",$$AGED (+$P(RCDAT A,U,3)),$P (EFTDATA,U ,1),?19,"D EPOSIT#: " ,$P($G(^RC Y(344.3,+$ P(RCDATA,U ,2),0)),U, 6),?42,"EF T TOTAL AM T: "_$P(EF TDATA,U,7) | |
| 1117 | W !,"EFT TRACE#: ", $P(EFTDATA ,U,4) | |
| 1118 | W !,"DATE RECEIVED: ",$$DATE^ RCDPRU($P( EFTDATA,U, 12)),?26," PAYER/ID: "_$P(EFTDA TA,U,2)_"/ "_$P(EFTDA TA,U,3) | |
| 1119 | ; | |
| 1120 | W !,"DATE ",?10,"ACT ION/DETAIL S",?51,"ST ATUS" | |
| 1121 | W !,RCHR | |
| 1122 | QModified Logic (Ch anges are in bold)EF TDATA(EFTI EN) ; Get associated records f or this EF T | |
| 1123 | ; Input: EFTIEN - I EN for EFT [344.31] | |
| 1124 | ; Returns : A1^A2^A3 ^A4^45 | |
| 1125 | ; where A 1=ERAIEN - IEN for E RA (#344.4 ) | |
| 1126 | ; A2=LOCK IEN - IEN for LOCKBO X DEPOSIT (#344.3) | |
| 1127 | ; A3=EFTI EN - IEN f or EFT (#3 44.31) | |
| 1128 | ; A4=DEPI EN - IEN f or AR DEPO SIT (#344. 1) | |
| 1129 | ; A5=BATC HIEN - IEN for AR BA TCH PAYMEN T (#344) | |
| 1130 | ; | |
| 1131 | I '$G(EFT IEN) Q "" | |
| 1132 | ; | |
| 1133 | N BATCHIE N,DEPIEN,E RAIEN,LOCK IEN ;PRCA*4. 5*321 remo ved DEPOSI T | |
| 1134 | S (ERAIEN ,DEPIEN,BA TCHIEN)="" | |
| 1135 | S ERAIEN= $$GET1^DIQ (344.31,EF TIEN,.1,"I ") ;PRCA*4 .5*321 use ^DIQ vs g lobal acce ss | |
| 1136 | S LOCKIEN =$$GET1^DI Q(344.31,E FTIEN,.01, "I") ;PRCA *4.5*321 | |
| 1137 | I LOCKIEN S DEPIEN= $$GET1^DIQ (344.3,LOC KIEN,.03," I") ;PRCA* 4.5*321 in stead of $ O on B ind ex of 344. 1 | |
| 1138 | I DEPIEN S BATCHIEN =$O(^RCY(3 44,"AD",DE PIEN,"")) | |
| 1139 | Q ERAIEN_ U_LOCKIEN_ U_EFTIEN_U _DEPIEN_U_ BATCHIEN | |
| 1140 | HEADER(RCN OW,RCPG,RC HR,RCDATA) ; Print H eader Sect ion | |
| 1141 | ; Input: RCNOW - DA TE/TIME in external format | |
| 1142 | ; RCPG - Current pa ge number | |
| 1143 | ; RCHR - Line of "- " to margi n width | |
| 1144 | ; RCDATA - See subr outine EFT DA about f or delimit ed list of fields | |
| 1145 | ; Output: Write sta tements | |
| 1146 | ; | |
| 1147 | N EFTDATA ,LINE | |
| 1148 | S EFTDATA =$G(^RCY(3 44.31,+$P( RCDATA,U,3 ),0)) | |
| 1149 | ; | |
| 1150 | W @IOF | |
| 1151 | S RCPG=RC PG+1 | |
| 1152 | W "EFT TR ANSACTION AUDIT REPO RT" | |
| 1153 | S LINE=RC NOW_" PAGE : "_RCPG_" " | |
| 1154 | W ?(IOM-$ L(LINE)),L INE | |
| 1155 | ; | |
| 1156 | W !,"EFT# : ",$$AGED (+$P(RCDAT A,U,3)),$P (EFTDATA,U ,1)_”.”_$P (EFTDATA,U ,14),?19," DEPOSIT#: ",$P($G(^R CY(344.3,+ $P(RCDATA, U,2),0)),U ,6),?42,"E FT TOTAL A MT: "_$P(E FTDATA,U,7 ) | |
| 1157 | W !,"EFT TRACE#: ", $P(EFTDATA ,U,4) | |
| 1158 | W !,"DATE RECEIVED: ",$$DATE^ RCDPRU($P( EFTDATA,U, 12)),?26," PAYER/ID: "_$P(EFTDA TA,U,2)_"/ "_$P(EFTDA TA,U,3) | |
| 1159 | ; | |
| 1160 | W !,"DATE ",?10,"ACT ION/DETAIL S",?51,"ST ATUS" | |
| 1161 | W !,RCHR | |
| 1162 | QRoutines Activities Routine Na meRCDPEM2E nhancement Category New Modify Delete No ChangeRTM Related Op tionsRCDPE MANUAL MA TCH EFT-ER A | |
| 1163 | RCDPE MARK 0-BAL EFT MATCHEDRe lated Rout inesRoutin es “Called By”Routin es “Called ” N/ASET STA NOW^ %DTC | |
| 1164 | EN^DDIOL | |
| 1165 | ^DIC | |
| 1166 | ^DIE | |
| 1167 | ^DIK | |
| 1168 | $$GET1^DIQ | |
| 1169 | EN^DIQ | |
| 1170 | ^DIR | |
| 1171 | AUDITLOG^R CDPEAP ^RCDPEAP | |
| 1172 | $$AUTOCHK2 ^RCDPEAP1 | |
| 1173 | $$PNM4^RCD PEWL1 | |
| 1174 | INIT^RCDPE WL7 | |
| 1175 | $$AMT^RCDP RU | |
| 1176 | $$ML0^RCDP RU | |
| 1177 | $$RCDATE^R CDPRU | |
| 1178 | UPDERA^RCD PRU | |
| 1179 | $$FMSSTAT^ RCDPUREC | |
| 1180 | FULL^VALM1 | |
| 1181 | $$FMTE^XLF DT | |
| 1182 | OWNSKEY^XU SRB Current Lo gicMATCH1 ; Manually 'match' a n ERA to a n EFT | |
| 1183 | N DA,DIC, DIE,DIR,DR ,DTRNG,DTO UT,DUOUT,E ND,RCEFT,R CERA,RCMAT CH,RCNAME, RCQUIT,STA RT,X,Y,RCM TFLG | |
| 1184 | W !,"THIS OPTION WI LL ALLOW Y OU TO MANU ALLY MATCH AN EFT DE TAIL RECOR D",!,"WITH AN ERA RE CORD." | |
| 1185 | ; PRCA*4. 5*298 - Ad d ability to specify a date ra nge | |
| 1186 | S DIR("A" )="Select by date Ra nge? (Y/N) ",DIR(0)= "YA",DIR(" B")="NO" D ^DIR K DI R | |
| 1187 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 1188 | I Y<1 G M 1 | |
| 1189 | S DTRNG=Y ; flag i ndicating date range selected | |
| 1190 | K DIR S D IR("?")="E nter the e arliest da te for the selection range." | |
| 1191 | ; value i n DIR(0) f or %DT = A PE: ask da te, past a ssumed, ec ho answer | |
| 1192 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art Date: " D ^DIR K DIR | |
| 1193 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 1194 | S START=Y K DIR,X,Y | |
| 1195 | S DIR("?" )="Enter t he latest date for t he selecti on range." | |
| 1196 | S DIR(0)= "DAO^"_STA RT_":"_DT_ ":APE",DIR ("A")="End Date: ",D IR("B")=$$ FMTE^XLFDT (DT) | |
| 1197 | D ^DIR K DIR | |
| 1198 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 1199 | S END=Y | |
| 1200 | ; | |
| 1201 | M1 ; come here if no date rang e slection | |
| 1202 | S DIR("A" )="SELECT THE UNMATC HED EFT TO MATCH TO AN ERA: " | |
| 1203 | ; | |
| 1204 | ; ** star t PRCA*4.5 *293 Add e xtra check s to filte r out EFTs that have | |
| 1205 | ; a payme nt amount of zero or EFTs that have been removed. | |
| 1206 | ; Only UN MATCHED EF Ts with pa yment amt >0 and not removed s hould | |
| 1207 | ; be sele ctable by the user. | |
| 1208 | ; | |
| 1209 | S DIR(0)= "PAO^RCY(3 44.31,:AEM Q",DIR("S" )="I ('$P( ^(0),U,8)) &($P($G(^( 0)),U,7))& ('$P($G(^( 3)),U))" | |
| 1210 | I $G(DTRN G) S DIR(" S")=DIR("S ")_"&'($P( $G(^(0)),U ,13)<START )&'($P($G( ^(0)),U,13 )>END)" | |
| 1211 | ; ** end PRCA*4.5*2 93 | |
| 1212 | ; | |
| 1213 | W ! D ^DI R K DIR | |
| 1214 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 1215 | S RCEFT=+ Y,RCEFT(0) =$G(^RCY(3 44.31,+Y,0 )) | |
| 1216 | W ! | |
| 1217 | S DIC="^R CY(344.31, ",DR="0",D A=RCEFT D EN^DIQ | |
| 1218 | W ! | |
| 1219 | S DIR("A" )="ARE YOU SURE THIS IS THE EF T YOU WANT TO MATCH? : ",DIR(0) ="YA",DIR( "B")="YES" D ^DIR K DIR | |
| 1220 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 1221 | I Y'=1 G M1 | |
| 1222 | M12 S DIR( "A")="SELE CT THE UNM ATCHED ERA TO MATCH TO EFT #"_ RCEFT_": " | |
| 1223 | S DIR(0)= "PAO^RCY(3 44.4,:AEMQ ",DIR("S") ="I '$P(^( 0),U,9),'$ P(^(0),U,8 )" | |
| 1224 | W ! D ^DI R K DIR | |
| 1225 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 1226 | S RCERA=+ Y,RCERA(0) =$G(^RCY(3 44.4,+Y,0) ) | |
| 1227 | W ! | |
| 1228 | S DIC="^R CY(344.4," ,DR="0",DA =RCERA D E N^DIQ | |
| 1229 | W ! | |
| 1230 | S DIR("A" )="ARE YOU SURE THIS IS THE CO RRECT ERA TO MATCH T O?: ",DIR( 0)="YA",DI R("B")="YE S" D ^DIR K DIR | |
| 1231 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 1232 | I Y'=1 G M12 | |
| 1233 | ; | |
| 1234 | ; | |
| 1235 | MATCH2 ; M anually 'm atch' a 0- balance EF T to a pap er EOB | |
| 1236 | N DUOUT,D TOUT,DA,DR ,DIE,DIC,D IR,X,Y,RCE FT,RCRCPT | |
| 1237 | W !,"THIS OPTION WI LL ALLOW Y OU TO MANU ALLY MARK A 0-BALANC E EFT DETA IL RECORD" ,!,"AS MAT CHED TO A PAPER EOB" | |
| 1238 | M2 S DIR(" A")="SELEC T THE UNMA TCHED 0-BA LANCE EFT TO MARK AS MATCHED T O PAPER EO B: " | |
| 1239 | S DIR(0)= "PAO^RCY(3 44.31,:AEM Q",DIR("S" )="I '$P(^ (0),U,8),' $P(^(0),U, 7)" | |
| 1240 | W ! D ^DI R K DIR | |
| 1241 | I $D(DUOU T)!$D(DTOU T)!(Y'>0) G M2Q | |
| 1242 | S RCEFT=+ Y | |
| 1243 | W ! | |
| 1244 | S DIC="^R CY(344.31, ",DR="0",D A=RCEFT D EN^DIQ | |
| 1245 | W ! | |
| 1246 | S DIR("A" )="ARE YOU SURE THIS IS THE EF T YOU WANT TO MARK A S MATCHED? : ",DIR(0) ="YA",DIR( "B")="YES" D ^DIR K DIR | |
| 1247 | I $D(DUOU T)!$D(DTOU T) G M2Q | |
| 1248 | I Y'=1 G M2 | |
| 1249 | S DIE="^R CY(344.31, ",DR=".08/ ///2",DA=R CEFT D ^DI E | |
| 1250 | S DIR(0)= "EA",DIR(" A")="EFT # "_RCEFT_" WAS "_$S(' $D(Y):"SUC CESSFULLY" ,1:"NOT")_ " MARKED A S MATCHED TO PAPER E OB" D ^DIR K DIR | |
| 1251 | M2Q Q | |
| 1252 | Modified L ogic (Chan ges are in bold)MATC H1 ; Manua lly 'match ' an ERA t o an EFT | |
| 1253 | N DA,DIC, DIE,DIR,DR ,DTRNG,DTO UT,DUOUT,E ND,RCEFT,R CERA,RCMAT CH,RCNAME, RCQUIT,STA RT,X,Y,RCM TFLG | |
| 1254 | W !,"THIS OPTION WI LL ALLOW Y OU TO MANU ALLY MATCH AN EFT DE TAIL RECOR D",!,"WITH AN ERA RE CORD." | |
| 1255 | ; PRCA*4. 5*298 - Ad d ability to specify a date ra nge | |
| 1256 | S DIR("A" )="Select by date Ra nge? (Y/N) ",DIR(0)= "YA",DIR(" B")="NO" D ^DIR K DI R | |
| 1257 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 1258 | I Y<1 G M 1 | |
| 1259 | S DTRNG=Y ; flag i ndicating date range selected | |
| 1260 | K DIR S D IR("?")="E nter the e arliest da te for the selection range." | |
| 1261 | ; value i n DIR(0) f or %DT = A PE: ask da te, past a ssumed, ec ho answer | |
| 1262 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art Date: " D ^DIR K DIR | |
| 1263 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 1264 | S START=Y K DIR,X,Y | |
| 1265 | S DIR("?" )="Enter t he latest date for t he selecti on range." | |
| 1266 | S DIR(0)= "DAO^"_STA RT_":"_DT_ ":APE",DIR ("A")="End Date: ",D IR("B")=$$ FMTE^XLFDT (DT) | |
| 1267 | D ^DIR K DIR | |
| 1268 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 1269 | S END=Y | |
| 1270 | ; | |
| 1271 | M1 ; come here if no date rang e selectio n | |
| 1272 | S DIC("A" )="SELECT THE UNMATC HED EFT TO MATCH TO AN ERA: " | |
| 1273 | ; | |
| 1274 | ; ** star t PRCA*4.5 *293 Add e xtra check s to filte r out EFTs that have | |
| 1275 | ; a payme nt amount of zero or EFTs that have been removed. | |
| 1276 | ; Only UN MATCHED EF Ts with pa yment amt >0 and not removed s hould | |
| 1277 | ; be sele ctable by the user. | |
| 1278 | ; | |
| 1279 | S DIC("W" )="D DICW^ RCDPEM2" | |
| 1280 | S DIC(0)= "AEMQ" | |
| 1281 | S DIC=344 .31 | |
| 1282 | S DIC("S" )="I ('$P( ^(0),U,8)) &($P($G(^( 0)),U,7))& ('$P($G(^( 3)),U))" | |
| 1283 | S:$G(DTRN G) DIC("S" )=DIC("S") _"&'($P($G (^(0)),U,1 3)<START)& '($P($G(^( 0)),U,13)> END)" | |
| 1284 | ; ** end PRCA*4.5*2 93 | |
| 1285 | ; | |
| 1286 | W ! D ^DI C K DIC | |
| 1287 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 1288 | S RCEFT=+ Y,RCEFT(0) =$G(^RCY(3 44.31,+Y,0 )) | |
| 1289 | W ! | |
| 1290 | S DIC="^R CY(344.31, ",DR="0",D A=RCEFT D EN^DIQ | |
| 1291 | W ! | |
| 1292 | S DIR("A" )="ARE YOU SURE THIS IS THE EF T YOU WANT TO MATCH? : ",DIR(0) ="YA",DIR( "B")="YES" D ^DIR K DIR | |
| 1293 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 1294 | I Y'=1 G M1 | |
| 1295 | M12 S DIR( "A")="SELE CT THE UNM ATCHED ERA TO MATCH TO EFT #"_ $P(RCEFT(0 ),U)_”.”_$ P(RCEFT(0) ,U,14)_": " | |
| 1296 | S DIR(0)= "PAO^RCY(3 44.4,:AEMQ ",DIR("S") ="I '$P(^( 0),U,9),'$ P(^(0),U,8 )" | |
| 1297 | W ! D ^DI R K DIR | |
| 1298 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 1299 | S RCERA=+ Y,RCERA(0) =$G(^RCY(3 44.4,+Y,0) ) | |
| 1300 | W ! | |
| 1301 | S DIC="^R CY(344.4," ,DR="0",DA =RCERA D E N^DIQ | |
| 1302 | W ! | |
| 1303 | S DIR("A" )="ARE YOU SURE THIS IS THE CO RRECT ERA TO MATCH T O?: ",DIR( 0)="YA",DI R("B")="YE S" D ^DIR K DIR | |
| 1304 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 1305 | I Y'=1 G M12 | |
| 1306 | ; | |
| 1307 | MATCH2 ; M anually 'm atch' a 0- balance EF T to a pap er EOB | |
| 1308 | N DUOUT,D TOUT,DA,DR ,DIE,DIC,D IR,X,Y,RCE FT,RCRCPT | |
| 1309 | W !,"THIS OPTION WI LL ALLOW Y OU TO MANU ALLY MARK A 0-BALANC E EFT DETA IL RECORD" ,!,"AS MAT CHED TO A PAPER EOB" | |
| 1310 | M2 S DIC( "A")="SELE CT THE UNM ATCHED 0-B ALANCE EFT TO MARK A S MATCHED TO PAPER E OB: " | |
| 1311 | S DIC("W" )="D DICW^ RCDPEM2" | |
| 1312 | S DIC(0)= "AEMQ" | |
| 1313 | S DIC("S" )="I '$P(^ (0),U,8),' $P(^(0),U, 7)" | |
| 1314 | S DIC=344 .31 | |
| 1315 | D ^DIC | |
| 1316 | I $D(DUOU T)!$D(DTOU T)!(Y'>0) G M2Q | |
| 1317 | S RCEFT=+ Y | |
| 1318 | W ! | |
| 1319 | S DIC="^R CY(344.31, ",DR="0",D A=RCEFT D EN^DIQ | |
| 1320 | W ! | |
| 1321 | S DIR("A" )="ARE YOU SURE THIS IS THE EF T YOU WANT TO MARK A S MATCHED? : ",DIR(0) ="YA",DIR( "B")="YES" D ^DIR K DIR | |
| 1322 | I $D(DUOU T)!$D(DTOU T) G M2Q | |
| 1323 | I Y'=1 G M2 | |
| 1324 | S DIE="^R CY(344.31, ",DR=".08/ ///2",DA=R CEFT D ^DI E | |
| 1325 | S DIR(0)= "EA",DIR(" A")="EFT # "_RCEFT_" WAS "_$S(' $D(Y):"SUC CESSFULLY" ,1:"NOT")_ " MARKED A S MATCHED TO PAPER E OB" D ^DIR K DIR | |
| 1326 | M2Q Q | |
| 1327 | ; | |
| 1328 | DICW ; Ide ntifier co de for EFT lookup – EP RETN^RC DPEM3 | |
| 1329 | ; Input - Y = EFT D ETAIL #344 .31 IEN | |
| 1330 | ; D = Index (“B”,”C”, ”E”,”F”,”F NLZ”) | |
| 1331 | ; | |
| 1332 | N DATA,DE PDAT,DEPNO ,EFTID,EFT IEN,EFTTR, PAYAMT,PAY NAM,PAYTR, SP | |
| 1333 | S DATA=$G (^RCY(344. 31,Y,0)) I DATA="" Q | |
| 1334 | S SP=$J(" ",5),EFTIE N=$P(DATA, U),EFTTR=" ."_$P(DATA ,U,14),EFT ID=EFTIEN_ EFTTR | |
| 1335 | S PAYNAM= $$GET1^DIQ (344.31,Y, .02,"E") | |
| 1336 | S PAYTR=$ $GET1^DIQ( 344.31,Y,. 04,"E") | |
| 1337 | S PAYAMT= $$GET1^DIQ (344.31,Y, .07,"E") | |
| 1338 | S DEPNO=$ $GET1^DIQ( 344.3,EFTI EN,.03,"E" ) | |
| 1339 | S DEPDAT= $TR($$FMTE ^XLFDT($$G ET1^DIQ(34 4.3,EFTIEN ,.07,"I"), "5DZ"),"/" ,"-") | |
| 1340 | ; EFT DET AIL lookup | |
| 1341 | I D="B" D | |
| 1342 | .W " "_EF TID_SP_PAY NAM_SP_PAY TR_SP_PAYA MT | |
| 1343 | ; PAYER N AME lookup | |
| 1344 | I D="C" D | |
| 1345 | .W EFTTR_ SP_PAYTR_S P_PAYAMT | |
| 1346 | ; TRACE N UMBER look up | |
| 1347 | I $E(D)=" F" D | |
| 1348 | .W EFTTR_ SP_PAYNAM_ SP_PAYAMT_ SP_DEPNO_S P_DEPDAT | |
| 1349 | ; DATE/TI ME REMOVED lookup | |
| 1350 | I D="E" D | |
| 1351 | .W EFTTR_ SP_PAYNAM_ SP_PAYTR_S P_PAYAMT_S P_DEPNO_SP _DEPDAT | |
| 1352 | ; | |
| 1353 | QRoutines Activities Routine Na meRCDPEM2E nhancement Category New Modify Delete No ChangeRTM Related Op tionsRCDPE REMOVE DU P DEPOSITS Related Ro utinesRout ines “Call ed By”Rout ines “Call ed” RCDP E8NZ | |
| 1354 | RCDPEAC | |
| 1355 | RCDPEAR1 | |
| 1356 | RCDPEAR2 | |
| 1357 | RCDPEDAR | |
| 1358 | RCDPEM6 | |
| 1359 | RCDPESP2^% ZIS | |
| 1360 | HOME^%ZIS | |
| 1361 | ^%ZISC | |
| 1362 | ^%ZTLOAD | |
| 1363 | ^DIC | |
| 1364 | ^DIE | |
| 1365 | $$GET1^DIQ | |
| 1366 | ^DIR | |
| 1367 | $$ASKLM^RC DPEARL | |
| 1368 | $$CLMCHMPV ^RCDPEARL | |
| 1369 | $$CLMTRICR ^RCDPEARL | |
| 1370 | $$ENDORPRT ^RCDPEARL | |
| 1371 | $$INCHMPVA ^RCDPEARL | |
| 1372 | $$INTRICAR ^RCDPEARL | |
| 1373 | $$NOW^RCDP EARL | |
| 1374 | $$PAD^RCDP EARL | |
| 1375 | HDRLST^RCD PEARL | |
| 1376 | LMRPT^RCDP EARL | |
| 1377 | SL^RCDPEAR L | |
| 1378 | $$DTPRB^RC DPEM4 | |
| 1379 | $$DTRNG^RC DPEM4 | |
| 1380 | INFO^RCDPE M6 | |
| 1381 | DIVISION^V AUTOMA | |
| 1382 | $$FMTE^XLF DT | |
| 1383 | $$NOW^XLFD T | |
| 1384 | $$NAME^XUS ER | |
| 1385 | OWNSKEY^XU SRB Current Lo gic ; | |
| 1386 | RETN ; Ent ry point f or Remove Duplicate EFT Deposi ts [RCDPE REMOVE DUP DEPOSITS] | |
| 1387 | N DA,DIC, DIE,DIR,DR ,DTOUT,MSG ,RCERANUM, RCY,X,Y | |
| 1388 | D OWNSKEY ^XUSRB(.MS G,"RCDPE R EMOVE DUPL ICATES",DU Z) | |
| 1389 | I 'MSG(0) W !,"You are not au thorized t o use this option.", ! S DIR(0) ="E" D ^DI R K DIR Q | |
| 1390 | W !!," WA RNING: Rem oving an E FT is **NO T** revers ible." | |
| 1391 | W !," Use this opti on only if you are s ure you wa nt to remo ve this EF T." | |
| 1392 | W !," Ple ase be awa re that on ce an EFT is removed - it cann ot be rest ored.",!! | |
| 1393 | S DIR(0)= "YA",DIR(" B")="NO" | |
| 1394 | S DIR("A" )="Are you sure you want to co ntinue? " | |
| 1395 | D ^DIR K DIR | |
| 1396 | I $D(DUOU T)!$D(DTOU T)!'Y Q | |
| 1397 | ; EDI THI RD PARTY E FT DETAIL (#344.31) | |
| 1398 | S DIC="^R CY(344.31, " | |
| 1399 | ; screeni ng logic f or field # .08 MATCH STATUS [8S ], must be UNMATCHED | |
| 1400 | S DIC(0)= "AEMQZ",DI C("S")="I '$P(^(0),U ,8)" | |
| 1401 | D ^DIC S RCY=+Y | |
| 1402 | Q:RCY<0 | |
| 1403 | S RCERANU M=$P(Y(0), U) ; Get E FT number from retur ned zero n ode | |
| 1404 | K DIR S D IR(0)="YA" ,DIR("B")= "NO" | |
| 1405 | S DIR("A" ,1)="This will mark EFT # "_RC ERANUM_" a s removed. " | |
| 1406 | S DIR("A" )="Are you sure you want to co ntinue? " | |
| 1407 | W ! | |
| 1408 | D ^DIR K DIR | |
| 1409 | I $D(DUOU T)!$D(DTOU T)!(Y=0) D NOCHNG Q | |
| 1410 | S DIE="^R CY(344.31, ",DA=RCY,D R=".19" D ^DIE | |
| 1411 | I $D(Y) D NOCHNG Q ; user ab orted edit | |
| 1412 | ; | |
| 1413 | ; 344.31, .08 - MATC H STATUS | |
| 1414 | ; 344.31, .17 - USER WHO REMOV ED EFT | |
| 1415 | ; 344.31, .18 - DATE /TIME DUPL ICATE REMO VED | |
| 1416 | S DR=".08 ////1;.17/ ///"_DUZ_" ;.18////"_ $$NOW^XLFD T D ^DIE | |
| 1417 | W !! | |
| 1418 | K DIR S D IR(0)="EA" | |
| 1419 | S DIR("A" )="Press r eturn to c ontinue: " | |
| 1420 | S DIR("A" ,1)="EFT # "_RCERANU M_" has be en marked as removed ." | |
| 1421 | D ^DIR | |
| 1422 | Q | |
| 1423 | ;Modified Logic (Ch anges are in bold) ; | |
| 1424 | RETN ; Ent ry point f or Remove Duplicate EFT Deposi ts [RCDPE REMOVE DUP DEPOSITS] | |
| 1425 | N DA,DIC, DIE,DIR,DR ,DTOUT,MSG ,RCERANUM, RCY,X,Y | |
| 1426 | D OWNSKEY ^XUSRB(.MS G,"RCDPE R EMOVE DUPL ICATES",DU Z) | |
| 1427 | I 'MSG(0) W !,"You are not au thorized t o use this option.", ! S DIR(0) ="E" D ^DI R K DIR Q | |
| 1428 | W !!," WA RNING: Rem oving an E FT is **NO T** revers ible." | |
| 1429 | W !," Use this opti on only if you are s ure you wa nt to remo ve this EF T." | |
| 1430 | W !," Ple ase be awa re that on ce an EFT is removed - it cann ot be rest ored.",!! | |
| 1431 | S DIR(0)= "YA",DIR(" B")="NO" | |
| 1432 | S DIR("A" )="Are you sure you want to co ntinue? " | |
| 1433 | D ^DIR K DIR | |
| 1434 | I $D(DUOU T)!$D(DTOU T)!'Y Q | |
| 1435 | ; EDI THI RD PARTY E FT DETAIL (#344.31) | |
| 1436 | S DIC="^R CY(344.31, " | |
| 1437 | ; screeni ng logic f or field # .08 MATCH STATUS [8S ], must be UNMATCHED | |
| 1438 | S DIC(0)= "AEMQZ",DI C("S")="I '$P(^(0),U ,8)" | |
| 1439 | S DIC("W" )="D DICW^ ZZPHY" | |
| 1440 | D ^DIC S RCY=+Y | |
| 1441 | Q:RCY<0 | |
| 1442 | S RCERANU M=$P(Y(0), U) ; Get E FT number from retur ned zero n ode | |
| 1443 | K DIR S D IR(0)="YA" ,DIR("B")= "NO" | |
| 1444 | S DIR("A" ,1)="This will mark EFT # "_RC ERANUM_" a s removed. " | |
| 1445 | S DIR("A" )="Are you sure you want to co ntinue? " | |
| 1446 | W ! | |
| 1447 | D ^DIR K DIR | |
| 1448 | I $D(DUOU T)!$D(DTOU T)!(Y=0) D NOCHNG Q | |
| 1449 | S DIE="^R CY(344.31, ",DA=RCY,D R=".19" D ^DIE | |
| 1450 | I $D(Y) D NOCHNG Q ; user ab orted edit | |
| 1451 | ; | |
| 1452 | ; 344.31, .08 - MATC H STATUS | |
| 1453 | ; 344.31, .17 - USER WHO REMOV ED EFT | |
| 1454 | ; 344.31, .18 - DATE /TIME DUPL ICATE REMO VED | |
| 1455 | S DR=".08 ////1;.17/ ///"_DUZ_" ;.18////"_ $$NOW^XLFD T D ^DIE | |
| 1456 | W !! | |
| 1457 | K DIR S D IR(0)="EA" | |
| 1458 | S DIR("A" )="Press r eturn to c ontinue: " | |
| 1459 | S DIR("A" ,1)="EFT # "_RCERANU M_" has be en marked as removed ." | |
| 1460 | D ^DIR | |
| 1461 | Q | |
| 1462 | ;Routines Activities Routine Na meRCDPEWLE nhancement Category New Modify Delete No ChangeRTM Related Op tionsRCDPE EDI LOCKB OX WORKLIS TRelated R outinesRou tines “Cal led By”Rou tines “Cal led” RCD PEAA3 | |
| 1463 | RCDPEAP | |
| 1464 | RCDPEWL0 | |
| 1465 | RCDPEWL2 | |
| 1466 | RCDPEWL5 | |
| 1467 | RCDPEWL7 | |
| 1468 | RCDPEWLP^D IC | |
| 1469 | FILE^DICN | |
| 1470 | ^DIE | |
| 1471 | ^DIK | |
| 1472 | $$GET1^DIQ | |
| 1473 | ^DIR | |
| 1474 | PARAMS^RCD PEWL0 | |
| 1475 | PRERA1^RCD PEWL0 | |
| 1476 | BLD^RCDPEW L1 | |
| 1477 | WL^RCDPEWL 7 | |
| 1478 | ADDLINES^R CDPEWLA | |
| 1479 | PARAMS^RCD PEWLA | |
| 1480 | EN^VALM | |
| 1481 | CLEAR^VALM 1 | |
| 1482 | FULL^VALM1 | |
| 1483 | CLEAN^VALM 10 | |
| 1484 | EN^VALM2 | |
| 1485 | $$FMTE^XLF DT Cur rent Logic HDR ; Crea tes header lines for the selec ted ERA di splay | |
| 1486 | N X,Z,I,R C,RC5,RC4, RCSORTBY,R CEEOBPU | |
| 1487 | F I=1:1:5 S VALMHDR (I)="" | |
| 1488 | I '$G(RCS CR) S VALM QUIT=1 Q | |
| 1489 | S RC=$G(^ RCY(344.4, +RCSCR,0)) ,RC5=$G(^R CY(344.4,+ RCSCR,5)) | |
| 1490 | S RC4=$G( ^RCY(344.4 ,+RCSCR,4) ) ;prca*4. 5*298 | |
| 1491 | S VALMHDR (1)=$E("ER A Entry #: "_$P(RC,U )_$J("",31 ),1,31)_"T otal Amt P d: "_$J(+$ P(RC,U,5), "",2) | |
| 1492 | S VALMHDR (2)="Payer Name/ID: "_$P(RC,U, 6)_"/"_$P( RC,U,3) | |
| 1493 | S Z=+$O(^ RCY(344.31 ,"AERA",+R CSCR,0)) | |
| 1494 | I Z S VAL MHDR(3)="E FT #/TRACE #: "_$P($ G(^RCY(344 .3,+$G(^RC Y(344.31,Z ,0)),0)),U )_"/"_$P(R C,U,2) | |
| 1495 | I 'Z,$P(R C5,U,2)'=" " S VALMHD R(3)="PAPE R CHECK #: "_$P(RC5, U,2) | |
| 1496 | ; prca*4. 5*298 per patch requ irements, keep code related to creating/ maintainin g | |
| 1497 | Modified L ogic (Chan ges are in bold)HDR ; Creates header lin es for the selected ERA displa y | |
| 1498 | N X,Z,I,R C,RC5,RC4, RCSORTBY,R CEEOBPU | |
| 1499 | F I=1:1:5 S VALMHDR (I)="" | |
| 1500 | I '$G(RCS CR) S VALM QUIT=1 Q | |
| 1501 | S RC=$G(^ RCY(344.4, +RCSCR,0)) ,RC5=$G(^R CY(344.4,+ RCSCR,5)) | |
| 1502 | S RC4=$G( ^RCY(344.4 ,+RCSCR,4) ) ;prca*4. 5*298 | |
| 1503 | S VALMHDR (1)=$E("ER A Entry #: "_$P(RC,U )_$J("",31 ),1,31)_"T otal Amt P d: "_$J(+$ P(RC,U,5), "",2) | |
| 1504 | S VALMHDR (2)="Payer Name/ID: "_$P(RC,U, 6)_"/"_$P( RC,U,3) | |
| 1505 | S Z=+$O(^ RCY(344.31 ,"AERA",+R CSCR,0)) | |
| 1506 | I Z S VAL MHDR(3)="E FT #/TRACE #: "_$P($ G(^RCY(344 .31,Z,0)), U)_”.”_ $P ($G(^RCY(3 44.31,Z,0) ),U,14)_"/ "_$E($P(RC ,U,2),1,40 ) | |
| 1507 | I 'Z,$P(R C5,U,2)'=" " S VALMHD R(3)="PAPE R CHECK #: "_$P(RC5, U,2) | |
| 1508 | ; prca*4. 5*298 per patch requ irements, keep code related to creating/ maintainin g |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.