Produced by Araxis Merge on 10/23/2018 6:40:05 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 US1298 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US1298 SDD - Copy.doc | Mon Oct 22 16:31:02 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 3542 |
| 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 US12983 21 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | JuneMarch 2017 | |
| 7 | Version 1 | |
| 8 | User Story Number: U S321291 - Update Dai ly Activit y Report t o Display EFTs with Debit Vouc hers ADD E RA/EFT 'ma tched’ dat e to the w orklist | |
| 9 | Story | |
| 10 | As an ePay ments user , I need t o see the date the E RA and EFT were matc hed when v iewing my ERA Workli st and the Daily Act ivity Repo rt. | |
| 11 | As a user I need to be able to view only EFTs with debit vou chers on t he Daily A ctivity Re port. | |
| 12 | Update Dai ly Activit y Report t o Display EFTs with Debit Vouc hers, base d on the B PR03 field in the EF T. | |
| 13 | Conversati on: | |
| 14 | Debit indi cator need s to displ ay on the daily acti vity repor t | |
| 15 | D indicato r for EFTs with debi ts BPR03, FSC curren tly sends this indic ator | |
| 16 | Update the Daily Act ivity repo rt to disp lay the D and create a filter for EFTs w ith debit vouchers | |
| 17 | Requires c hange to t he testing tool to a ccount for debit dat a | |
| 18 | Change Hea der to Pay er/Match S tatus & Da te | |
| 19 | CHK Matche d or EFT M atched for new statu s names | |
| 20 | Add to Dai ly Activit y Report | |
| 21 | ||
| 22 | Move Date Paid field up one ro w, in line with the Deposit Da te | |
| 23 | ||
| 24 | Add Matche d Date whe re Date Pa id field i s currentl y | |
| 25 | Summary: | |
| 26 | Data field s needed b y user sto ry: | |
| 27 | 344.31,.20 DEBIT /CREDIT FL AG 3;4 F REE TEXT | |
| 28 | INPUT TRANSFORM: K:$L(X)> 1!($L(X)<1 )!'(X'?1”D ”) X | |
| 29 | LAST E DITED: JAN 08, 2014 | |
| 30 | HELP-P ROMPT: Answer m ust be 1 c haracter. This field | |
| 31 | should o nly be pop ulated pro grammatica lly. | |
| 32 | DESCRI PTION: This fie ld contain s a ‘D’ if the EFT i s a | |
| 33 | debit EF T. This fi eld is p rogrammati cally | |
| 34 | generate d and shou ld never b e updated by | |
| 35 | a user. | |
| 36 | Changed Li stman Temp lateRoutin es: | |
| 37 | RCDPE WORK LIST ERA L IST | |
| 38 | Change PAY ER_LN disp lay text f rom PAYER NAME/MATCH STATUS to PAYER NAM E/MATCH ST ATUS & DAT E | |
| 39 | Changed Ro utines: | |
| 40 | RCDEWL7PAR – Existin g routine | |
| 41 | Subroutine EXTRACTRP T – Modifi ed to add a call to the new DB TONLY subr outi store the resul t in the D ONLY varia ble. This variable is then pa ssed to th e EN subro utine and the LMHDR subroutine of RCDPED A3. the Ma tched Date after the Match Sta tus. | |
| 42 | Subroutine DBTONLY – New subro utine to a sk the new Debit Onl y filter q uestion . | |
| 43 | Subroutine EN – Modi fied to se t DONLY va riable int o INPUT va riable and also to f ilter out any EFTs t hat do not have a DE BIT/CREDIT FLAG valu e of ‘D’ w hen the us er only wa nts to see EFTs that are debit s. | |
| 44 | RCDPEDA32 – Existin g Routine | |
| 45 | Subroutine EFTDTLHDR – Modifie d to displ ay the va lue of the DEBIT/CRE DIT FLAG f ield of th e EDT for the new De bit column .‘DATE PD’ after ‘DE POSIT DT’ and replac e ‘DATE PD ’ on its c urrent lin e with ‘MA TCH DT’ | |
| 46 | RCDPEDA34 – Existing Routine | |
| 47 | Subroutine LMHDR – M odified to display ‘DATE PD’ after ‘DEP OSIT DT’ a nd replace ‘DATE PD’ on its cu rrent line with ‘MAT CH DT’ | |
| 48 | Subroutine LMHDR – M odified to take new parameter DONLY and use it to display th e filter s etting in the header of the re port when it is disp layed in listman. Also modif ied to inc lude the n ew ‘Debit’ column wh ich is use d when dis playing EF T detail. | |
| 49 | Subroutine HDR – Mod ified to t ake new pa rameter DO NLY and us e it to di splay the filter set ting in th e header o f the repo rt when it is displa yed to sc reen or pa per. Also modified to include the new ‘ Debit’ col umn which is used wh en display ing EFT de tail. | |
| 50 | RCDPEDA2SR 3 – Existi ng Routine | |
| 51 | Subroutine DETLNEFTI N – Modifi ed to stor e the valu e for the DATE PD co lumn which moved to this lineo f the new DEBIT/CRED IT Flag fi eld. | |
| 52 | Subroutine EFTDTL – Modified t o replace ‘Date Pd’ with ‘Matc h Status D t’ | |
| 53 | Current – Daily acti vity Repor t | |
| 54 | Select div ision: ALL // | |
| 55 | (S)UMMARY OR (D)ETAI L?: D// ET AIL AND TO TALS | |
| 56 | START DATE : T-30 (M AR 01, 201 7) | |
| 57 | END DATE: MAR 1,2017 // T (MAR 31, 2017) | |
| 58 | RUN REPORT FOR (A)LL , (S)PECIF IC, OR (R) ANGE OF IN SURANCE CO MPANIES?: ALL// | |
| 59 | Show EFTs with debit s only? NO // YES | |
| 60 | Display in List Mana ger format ? (Y/N): N O// | |
| 61 | DEVICE: HO ME// HOM E (CRT) Right Ma rgin: 80// | |
| 62 | ED I LOCKBOX EFT DAILY ACTIVITY D ETAIL REPO RT P age: 1 | |
| 63 | RUN DATE: 03/3 1/17@08:21 :52 | |
| 64 | DIVISIO NS: ALL | |
| 65 | PAYERS : ALL | |
| 66 | DATE RANGE : 03/01/17 - 03/31/1 7 (Date De posit Adde d) Debit Only EFTs: YES | |
| 67 | DEP # DEPOSIT D T DEP AMOU NT FMS DEPO SIT STAT | |
| 68 | EFT # D ATE PD P AYMENT AMO UNT ERA M ATCH STATU S | |
| 69 | EFT PA YER TRACE # CR # | |
| 70 | PAYM ENT FROM | |
| 71 | TR # | |
| 72 | Debi t DEP RE CEIPT # DEP RECEIP T STATUS | |
| 73 | ========== ========== ========== ========== ========== ========== ========== ========= | |
| 74 | DATE EFT DEPOSIT R ECEIVED: 0 3/01/17 | |
| 75 | T334787 03/01/17 194.00 QUEUED | |
| 76 | 2131 03/01/17 194.00 MATC HED/ERA #9 2622 | |
| 77 | ABC643 4334723 CR-442K 5A0A7D | |
| 78 | AETN A/10660334 92 | |
| 79 | Select div ision: ALL // | |
| 80 | (S)UMMARY OR (D)ETAI L?: D// ET AIL AND TO TALS | |
| 81 | START DATE : T-30 (M AR 01, 201 7) | |
| 82 | END DATE: MAR 1,2017 // T (MAR 31, 2017) | |
| 83 | RUN REPORT FOR (A)LL , (S)PECIF IC, OR (R) ANGE OF IN SURANCE CO MPANIES?: ALL// | |
| 84 | Display in List Mana ger format ? (Y/N): N O// | |
| 85 | DEVICE: HO ME// HOM E (CRT) Right Ma rgin: 80// | |
| 86 | ED I LOCKBOX EFT DAILY ACTIVITY D ETAIL REPO RT P age: 1 | |
| 87 | RUN DATE: 03/3 1/17@08:21 :52 | |
| 88 | DIVISIO NS: ALL | |
| 89 | PAYERS : ALL | |
| 90 | DATE RANGE : 03/01/17 - 03/31/1 7 (Date De posit Adde d) | |
| 91 | DEP # DEPOSIT D T DEP AMOU NT FMS DEPO SIT STAT | |
| 92 | EFT # D ATE PD P AYMENT AMO UNT ERA M ATCH STATU S | |
| 93 | EFT PA YER TRACE # CR # | |
| 94 | PAYM ENT FROM | |
| 95 | TR # | |
| 96 | DEP RE CEIPT # DEP RECEIP T STATUS | |
| 97 | ========== ========== ========== ========== ========== ========== ========== ========= | |
| 98 | DATE EFT DEPOSIT R ECEIVED: 0 3/01/17 | |
| 99 | T334787 03/01/17 194.00 QUEUED | |
| 100 | 2131 03/01/17 194.00 MATC HED/ERA #9 2622 | |
| 101 | ABC643 4334723 CR-442K 5A0A7D | |
| 102 | AETN A/10660334 92 | |
| 103 | -------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
| 104 | New Daily Activity R eport | |
| 105 | Select div ision: ALL // | |
| 106 | (S)UMMARY OR (D)ETAI L?: D// ET AIL AND TO TALS | |
| 107 | START DATE : T-30 (M AR 01, 201 7) | |
| 108 | END DATE: MAR 1,2017 // T (MAR 31, 2017) | |
| 109 | RUN REPORT FOR (A)LL , (S)PECIF IC, OR (R) ANGE OF IN SURANCE CO MPANIES?: ALL// | |
| 110 | Show EFTs with debit s only? NO // YES | |
| 111 | Display in List Mana ger format ? (Y/N): N O// | |
| 112 | DEVICE: HO ME// HOM E (CRT) Right Ma rgin: 80// | |
| 113 | ED I LOCKBOX EFT DAILY ACTIVITY D ETAIL REPO RT P age: 1 | |
| 114 | RUN DATE: 03/3 1/17@08:21 :52 | |
| 115 | DIVISIO NS: ALL | |
| 116 | PAYERS : ALL | |
| 117 | DATE RANGE : 03/01/17 - 03/31/1 7 (Date De posit Adde d) Debit Only EFTs: YES | |
| 118 | DEP # DEPOSIT D T D ATE PD DEP AMOU NT FMS DEPO SIT STAT | |
| 119 | EFT # MATC HED DT P AYMENT AMO UNT ERA M ATCH STATU S | |
| 120 | EFT PA YER TRACE # CR # | |
| 121 | PAYM ENT FROM | |
| 122 | TR # | |
| 123 | Debi t DEP RE CEIPT # DEP RECEIP T STATUS | |
| 124 | ========== ========== ========== ========== ========== ========== ========== ========= | |
| 125 | DATE EFT DEPOSIT R ECEIVED: 0 3/01/17 | |
| 126 | T334787 03/01/17 03/01/17 194.00 QUEUED | |
| 127 | 2131 03/02/17 194.00 MAT CHED/ERA # 92622 | |
| 128 | ABC643 4334723 CR-442K 5A0A7D | |
| 129 | AETN A/10660334 92 | |
| 130 | Select div ision: ALL // | |
| 131 | (S)UMMARY OR (D)ETAI L?: D// ET AIL AND TO TALS | |
| 132 | START DATE : T-30 (M AR 01, 201 7) | |
| 133 | END DATE: MAR 1,2017 // T (MAR 31, 2017) | |
| 134 | RUN REPORT FOR (A)LL , (S)PECIF IC, OR (R) ANGE OF IN SURANCE CO MPANIES?: ALL// | |
| 135 | Show EFTs with debit s only? NO // YES | |
| 136 | Display in List Mana ger format ? (Y/N): N O// | |
| 137 | DEVICE: HO ME// HOM E (CRT) Right Ma rgin: 80// | |
| 138 | ED I LOCKBOX EFT DAILY ACTIVITY D ETAIL REPO RT P age: 1 | |
| 139 | RUN DATE: 03/3 1/17@08:21 :52 | |
| 140 | DIVISIO NS: ALL | |
| 141 | PAYERS : ALL | |
| 142 | DATE RANGE : 03/01/17 - 03/31/1 7 (Date De posit Adde d) Debit Only EFTs: YES | |
| 143 | DEP # DEPOSIT D T DEP AMOU NT FMS DEPO SIT STAT | |
| 144 | EFT # D ATE PD P AYMENT AMO UNT ERA M ATCH STATU S | |
| 145 | EFT PA YER TRACE # CR # | |
| 146 | PAYM ENT FROM | |
| 147 | TR # | |
| 148 | Debi t DEP RE CEIPT # DEP RECEIP T STATUS | |
| 149 | ========== ========== ========== ========== ========== ========== ========== ========= | |
| 150 | DATE EFT DEPOSIT R ECEIVED: 0 3/01/17 | |
| 151 | T334787 03/01/17 194.00 QUEUED | |
| 152 | 2131 03/01/17 194.00 MATC HED/ERA #9 2622 | |
| 153 | ABC643 4334723 CR-442K 5A0A7D | |
| 154 | AETN A/10660334 92 | |
| 155 | Current E RA Worklis t | |
| 156 | ERA List - Worklist Jun 05, 20 17@09:25:0 6 Page: 1 of 4487 | |
| 157 | SELECTED M ATCH STATU S: BOTH POST STAT US : B OTH | |
| 158 | DATE RANG E: 9/11/14 -6/5/17 AUTO-POST ING : B OTH | |
| 159 | ALL PAYERS PHARMACY/ MEDICAL: B OTH | |
| 160 | # ER A # Trace # | |
| 161 | PA YER NAME/M ATCH STATU S ERA PA ID DT TOT AMT PAID DT REC'D | |
| 162 | 1 80 933 62279037 | |
| 163 | 9/11/14 35.56 9/11/14 | |
| 164 | WO ODMEN OF W ORLD APPROX # EEOBs: 1 | |
| 165 | MA TCHED TO P APER CHECK (CHECK PAYMENT E XPECTED) | |
| 166 | 2 80 934 66857074 | |
| 167 | 9/11/14 60.39 9/11/14 | |
| 168 | UN ITED WORLD APPROX # EEOBs: 1 | |
| 169 | MA TCHED EFT RE CEIPT STAT US: ACCEPT ED BY FMS | |
| 170 | 3 80 980 NO-PAY-118 5 | |
| 171 | 9/12/14 0.00 9/12/14 | |
| 172 | HUMANA I NC. APPROX # EEOBs: 1 | |
| 173 | MATCH-0 PAYMENT (NO PA YMENT EXPE CTED | |
| 174 | New ERA Wo rklist | |
| 175 | ERA List - Worklist Jun 05, 20 17@09:25:0 6 Page: 1 of 4487 | |
| 176 | SELECTED M ATCH STATU S: BOTH POST STAT US : B OTH | |
| 177 | DATE RANG E: 9/11/14 -6/5/17 AUTO-POST ING : B OTH | |
| 178 | ALL PAYERS PHARMACY/ MEDICAL: B OTH | |
| 179 | # ER A # Trace # | |
| 180 | PA YER NAME/M ATCH STATU S & DATE ERA PA ID DT TOT AMT PAID DT REC'D | |
| 181 | 1 80 933 62279037 | |
| 182 | 9/11/14 35.56 9/11/14 | |
| 183 | WO ODMEN OF W ORLD APPROX # EEOBs: 1 | |
| 184 | MA TCHED TO P APER CHECK 09/11/ 14 (CHECK PAYMENT E XPECTED) | |
| 185 | 2 80 934 66857074 | |
| 186 | 9/11/14 60.39 9/11/14 | |
| 187 | UN ITED WORLD APPROX # EEOBs: 1 | |
| 188 | MA TCHED 09/11/ 14 EFT RE CEIPT STAT US: ACCEPT ED BY FMS | |
| 189 | 3 80 980 NO-PAY-118 5 | |
| 190 | 9/12/14 0.00 9/12/14 | |
| 191 | HUMANA I NC. APPROX # EEOBs: 1 | |
| 192 | MATCH-0 PAYMENT (NO PA YMENT EXPE CTED | |
| 193 | Resolution – Added C hanged Obj ects | |
| 194 | RoutinesAc tivitiesRo utine Name RCDEWL7RCD PEDAREnhan cement Cat egory New Modify Del ete No Cha ngeRTMRela ted Option sRCDPE EDI LOCKBOX W ORKLISTACT REPORT Re lated Rout inesRoutin es “Called By”Routin es “Called ” RCDPEM 2AR1 | |
| 195 | RCDPEWLAR2 | |
| 196 | RCDPEWL8LA R | |
| 197 | RCDPEWLP | |
| 198 | RCDPRUM1$$ ASKLM^RCDP EARLUNBAL^ RCDPEAP1 | |
| 199 | $$ENDORPRT ^RCDPEARL$ $UP^RCDPEA RL | |
| 200 | ASK^RCDPEA RLDISP^RCD PEWL | |
| 201 | LMRPT^RCDP EARL$$FILT ER^RCDPEWL 0 | |
| 202 | RPT2^RCDPE DA2PRERA^R CDPEWL0 | |
| 203 | HDR^RCDPED A3$$HASADJ ^RCDPEWL8 | |
| 204 | LMHDR^RCDP EDA3SELBAT ^RCDPEWL8 | |
| 205 | SL^RCDPEDA 3$$CTEEOB^ RCDPEWLB | |
| 206 | TOTSDAY^RC DPEDA3$$AG EDEFTS^RCD PEWLP | |
| 207 | TOTSF^RCDP EDA3$$PHAR M^RCDPEWLP | |
| 208 | $$ERASTA^R CDPEM3$$XC EPT^RCDPEW LP | |
| 209 | $$GETPAY^R CDPEM9EXCD ENY^RCDPEW LP | |
| 210 | DIVISION^V AUTOMA$$FN SSTAT^RCDP EURECCurre nt Logic. | |
| 211 | . | |
| 212 | . | |
| 213 | EXTRACT(RC SRT1,RCSRT 2,RCT) ; E xtract the data | |
| 214 | ; RCSRT1 = data val ue at 1st sort level | |
| 215 | ; RCSRT2 = data val ue at 2nd sort level | |
| 216 | ; RCT = r unning ent ry counter - returne d if passe d by ref | |
| 217 | N AUTOCOM P,FIRST,RC 0,RCEFT,RC EXCEP,RCPO ST,RCSTAT, RCZ,X,XX,Z ,Z0 ;PRCA* 4.5*318 Va riable XX added | |
| 218 | S RCZ=0 F S RCZ=$O (^TMP($J," RCERA_LIST ",RCSRT1,R CSRT2,RCZ) ) Q:'RCZ D | |
| 219 | . S RCT=R CT+1,RC0=$ G(^RCY(344 .4,RCZ,0)) | |
| 220 | . S RCEFT =+$O(^RCY( 344.31,"AE RA",RCZ,0) ) | |
| 221 | . S RCEXC EP=$$XCEPT ^RCDPEWLP( RCZ) ; prc a*4.5*298 assignment of ERA ex ception fl ag | |
| 222 | . S AUTOC OMP=$S($P( $G(^RCY(34 4.4,RCZ,4) ),U,2)=2:" A",1:"") ; prca*4.5*2 98 AUTO-PO STED COMPL ETE indica tor ("A") | |
| 223 | . S RCSTA T=$S('RCEF T:U_$S($P( RC0,U,15)= "CHK":"(CH ECK PAYMEN T EXPECTED )",$P(RC0, U,15)="NON ":"(NO PAY MENT EXPEC TED)",$P(R C0,U,9)=2: "(CHECK PA YMENT CHOS EN)",1:"N/ A"),1:$$FM SSTAT^RCDP UREC(+$P($ G(^RCY(344 .31,RCEFT, 0)),U,9))) | |
| 224 | . S RCPOS T=$S(RCEFT :"EFT RECE IPT STATUS : ",1:"")_ $P(RCSTAT, U,2) | |
| 225 | . ;prca*4 .5*298 inc lude Auto- Post Compl ete indica tor and ER A exceptio n flag in $SELECT st atement | |
| 226 | . S X=$E( RCT_$J("", 5),1,5)_" "_$S(RCEXC EP]"":RCEX CEP,AUTOCO MP]"":AUTO COMP,$D(^R CY(344.49, RCZ)):" ", 1:"-")_$E( $P(RC0,U)_ $J("",10), 1,10)_" "_ $E($P(RC0, U,2)_$J("" ,50),1,50) | |
| 227 | . D SET(X ,RCT,RCZ) | |
| 228 | . S X=$J( "",40)_$J( $$FMTE^XLF DT($P(RC0, U,7),"2D") ,8)_$J("", 5)_$J(+$P( RC0,U,5),1 2,2) | |
| 229 | . S $E(X, 73,80)=$$F MTE^XLFDT( $P(RC0,U,7 ),"2D") | |
| 230 | . D SET(X ,RCT,RCZ) | |
| 231 | . S X=$J( "",12)_$E( $P(RC0,U,6 )_$J("",30 ),1,30)_" APPROX # E EOBs: "_+$ $CTEEOB^RC DPEWLB(RCZ ) | |
| 232 | . D SET(X ,RCT,RCZ) | |
| 233 | . S XX=$$ EXTERNAL^D ILFD(344.4 ,.09,"",$P (RC0,U,9)) | |
| 234 | . S:$$UNB AL^RCDPEAP 1(RCZ) XX= XX_" - UNB ALANCED" ; PRCA*4.5*3 18 added l ine | |
| 235 | . S X=$J( "",12)_$E( XX_$J("",3 0),1,30)_" "_RCPOST ;PRCA*4.5* 318 modifi ed line | |
| 236 | . D SET(X ,RCT) | |
| 237 | . D SET(" ",RCT) | |
| 238 | ;.; prca* 4.5*298 pe r patch re quirements , keep cod e related to | |
| 239 | ;. ; crea ting/maint aining bat ches but j ust remove from exec ution. | |
| 240 | ;. ;I $G( ^TMP("RCER A_PARAMS", $J,"BATCHO N")) D | |
| 241 | ;.. ;S Z= 0 F S Z=$O (^RCY(344. 49,RCZ,3,Z )) Q:'Z S Z0=$G(^(Z, 0)) I Z0'= "" D | |
| 242 | ;...; S X =$J("",12) _$E("- BAT CH #"_$P(Z 0,U)_$J("" ,4),1,13)_ " "_$E($P( Z0,U,2)_$J ("",30),1, 30)_" "_$S ('$P(Z0,U, 3):"NOT ", 1:"")_"REA DY TO POST " | |
| 243 | ;... ;D S ET(X,RCT) | |
| 244 | ; | |
| 245 | S VALMSG= "|'-' No s cratchpad| 'x' EXC |' A' autopos t complete " | |
| 246 | ; | |
| 247 | Q | |
| 248 | ; | |
| 249 | . | |
| 250 | . | |
| 251 | .. | |
| 252 | . | |
| 253 | . | |
| 254 | ; | |
| 255 | ; Get ins urance com pany to be used as f ilter | |
| 256 | ; PRCA*4. 5*284 - RC NP is Type of Respon se (1=Rang e,2=All,3= Specific) ^ From Ran ge^ Thru R ange | |
| 257 | S RCNP=$$ GETPAY^RCD PEM9(344.3 1) | |
| 258 | Q:+RCNP=- 1 ; No Ins urance Com pany selec ted S RCLS TMGR=$$ASK LM^RCDPEAR L ; Ask to Display i n Listman Template | |
| 259 | S RCLSTMG R=$$ASKLM^ RCDPEARL ; Ask to Di splay in L istman Tem plate | |
| 260 | Q:RCLSTMG R<0 ; '^' or timeout | |
| 261 | ; | |
| 262 | I RCLSTMG R=1 D Q ; List Man Templa te format, put in ar ray | |
| 263 | . S RCTMP ND="RCDPE_ DAR" | |
| 264 | . K ^TMP( $J,RCTMPND ) | |
| 265 | . D EN(RC DET,RCDT1, RCDT2,RCLS TMGR) | |
| 266 | . D LMHDR ^ZZFARCDPE DA3b2(.RCS TOP,RCDET, 1,RCDT1,RC DT2,.RCHDR ) | |
| 267 | . D LMRPT ^RCDPEARL( .RCHDR,$NA (^TMP($J,R CTMPND))) ; Generate ListMan d isplay | |
| 268 | . K ^TMP( $J,RCTMPND ) | |
| 269 | ; | |
| 270 | . | |
| 271 | . | |
| 272 | . | |
| 273 | U IO | |
| 274 | D EN(RCDE T,RCDT1,RC DT2,RCLSTM GR) | |
| 275 | Q | |
| 276 | ; | |
| 277 | RTYPE() ; Allows the user to s elect the report typ e (Summary /Detail) | |
| 278 | . | |
| 279 | . | |
| 280 | . | |
| 281 | EN(RCDET,R CDT1,RCDT2 ,RCLSTMGR) ; Entry p oint for r eport, mig ht be queu ed | |
| 282 | ; Input: RCDET - 1 - Detail R eport, 0 - Summary | |
| 283 | ; RCDT1 - Internal Fileman St art date | |
| 284 | ; RCDT2 - Internal Fileman En d date | |
| 285 | ; RCLSTMG R - 1 disp lay in lis t manager, 0 otherwi se | |
| 286 | ; Optiona l, default s to 0 | |
| 287 | ; RCNP - A1^A2^A3 W here: | |
| 288 | ; A1 - 1 - Range of Payers | |
| 289 | ; 2 - All Payers se lected | |
| 290 | ; 3 - Spe cific paye rs | |
| 291 | ; A2 - Fr om Range ( When a fro m/thru ran ge is sele cted by us er) | |
| 292 | ; A3 - Th ru Range ( When a fro m/thru ran ge is sele cted by us er) | |
| 293 | ; RCPYRSE L - Array of selecte d payers ( Only prese nt if A1=3 above | |
| 294 | ; VAUTD - 1 - All s elected di visions OR an array of selecte d division s | |
| 295 | N DFLG,DT ADD,IEN344 3,IEN34431 ,INPUT,RCF LG,RCJOB,R CT,XX,Z | |
| 296 | N:$G(ZTSK ) ZTSTOP ; Job was tasked , ZTSTOP = flag to s top | |
| 297 | S:'$D(RCL STMGR) RCL STMGR=0 | |
| 298 | ; | |
| 299 | ; PRCA*4. 5*284 - Qu eued job n eeds to re load payer selection list | |
| 300 | I $D(RCPY RSEL) D | |
| 301 | . K ^TMP( "RCSELPAY" ,$J) | |
| 302 | . M ^TMP( "RCSELPAY" ,$J)=RCPYR SEL | |
| 303 | ; | |
| 304 | S XX=$S(R CLSTMGR:1, 1:0) | |
| 305 | S INPUT=X X_"^"_RCLS TMGR_"^"_+ RCDET | |
| 306 | S RCNP=+R CNP,RCJOB= $J | |
| 307 | K ^TMP("R CDAILYACT" ,$J) | |
| 308 | K ^TMP($J ,"TOTALS") ; Initial ize Totals temp work space | |
| 309 | ; | |
| 310 | ; Loop th rough all of the EDI LOCKBOX D EPOSIT rec ords in th e selected date | |
| 311 | ; range a nd add any that pass the payer and divis ion filter s into ^TM P | |
| 312 | ; by the internal d ate added | |
| 313 | S DTADD=R CDT1-.0001 ,RCT=0 | |
| 314 | S $P(INPU T,"^",4)=0 ; Current Page Numb er | |
| 315 | S $P(INPU T,"^",5)=0 ; Stop Fl ag | |
| 316 | F D Q:' DTADD Q:D TADD>(RCDT 2_".9999") Q:$P(INPU T,"^",5)=1 | |
| 317 | . S DTADD =$O(^RCY(3 44.3,"AREC DT",DTADD) ) | |
| 318 | . Q:'DTAD D | |
| 319 | . Q:DTADD >(RCDT2_". 9999") | |
| 320 | . S IEN34 43=0 | |
| 321 | . F D Q :'IEN3443 Q:$P(INPU T,"^",5)=1 | |
| 322 | . . S IEN 3443=$O(^R CY(344.3," ARECDT",DT ADD,IEN344 3)) | |
| 323 | . . Q:'IE N3443 | |
| 324 | . . S IEN 34431="",R CFLG=0 | |
| 325 | . . F D Q:IEN3443 1="" | |
| 326 | . . . S I EN34431=$O (^RCY(344. 31,"B",IEN 3443,IEN34 431)) | |
| 327 | . . . Q:I EN34431="" | |
| 328 | . . . Q:' $$CHKPYR(I EN34431,0, RCJOB,RCNP ) ; Not a selected p ayer PRCA* 4.5(318 ad ded ,RCNP | |
| 329 | . . . Q:' $$CHKDIV(I EN34431,0, .VAUTD) ; Not a sele cted stati on/divisio n | |
| 330 | . . . S R CFLG=1 | |
| 331 | . . . S ^ TMP("RCDAI LYACT",$J, DTADD\1,IE N3443,"EFT ",IEN34431 )="" | |
| 332 | . . ; | |
| 333 | . | |
| 334 | . | |
| 335 | .Modified Logic (Cha nges are i n bold). | |
| 336 | . | |
| 337 | . | |
| 338 | EXTRACT(RC SRT1,RCSRT 2,RCT) ; E xtract the data | |
| 339 | ; RCSRT1 = data val ue at 1st sort level | |
| 340 | ; RCSRT2 = data val ue at 2nd sort level | |
| 341 | ; RCT = r unning ent ry counter - returne d if passe d by ref | |
| 342 | N AUTOCOM P,FIRST,MD T,RC0,RCEF T,RCEXCEP, RCPOST,RCS TAT,RCZ,X, XX,Z,Z0 ;P RCA*4.5*31 8 Variable XX added | |
| 343 | S RCZ=0 F S RCZ=$O (^TMP($J," RCERA_LIST ",RCSRT1,R CSRT2,RCZ) ) Q:'RCZ D | |
| 344 | . S RCT=R CT+1,RC0=$ G(^RCY(344 .4,RCZ,0)) | |
| 345 | . S RCEFT =+$O(^RCY( 344.31,"AE RA",RCZ,0) ) | |
| 346 | . S MDT=$ $MATCHDT^R CDPEWL7(RC EFT) | |
| 347 | . S RCEXC EP=$$XCEPT ^RCDPEWLP( RCZ) ; prc a*4.5*298 assignment of ERA ex ception fl ag | |
| 348 | . S AUTOC OMP=$S($P( $G(^RCY(34 4.4,RCZ,4) ),U,2)=2:" A",1:"") ; prca*4.5*2 98 AUTO-PO STED COMPL ETE indica tor ("A") | |
| 349 | . S RCSTA T=$S('RCEF T:U_$S($P( RC0,U,15)= "CHK":"(CH ECK PAYMEN T EXPECTED )",$P(RC0, U,15)="NON ":"(NO PAY MENT EXPEC TED)",$P(R C0,U,9)=2: "(CHECK PA YMENT CHOS EN)",1:"N/ A"),1:$$FM SSTAT^RCDP UREC(+$P($ G(^RCY(344 .31,RCEFT, 0)),U,9))) | |
| 350 | . S RCPOS T=$S(RCEFT :"EFT RECE IPT STATUS : ",1:"")_ $P(RCSTAT, U,2) | |
| 351 | . ;prca*4 .5*298 inc lude Auto- Post Compl ete indica tor and ER A exceptio n flag in $SELECT st atement | |
| 352 | . S X=$E( RCT_$J("", 5),1,5)_" "_$S(RCEXC EP]"":RCEX CEP,AUTOCO MP]"":AUTO COMP,$D(^R CY(344.49, RCZ)):" ", 1:"-")_$E( $P(RC0,U)_ $J("",10), 1,10)_" "_ $E($P(RC0, U,2)_$J("" ,50),1,50) | |
| 353 | . D SET(X ,RCT,RCZ) | |
| 354 | . S X=$J( "",40)_$J( $$FMTE^XLF DT($P(RC0, U,7),"2D") ,8)_$J("", 5)_$J(+$P( RC0,U,5),1 2,2) | |
| 355 | . S $E(X, 73,80)=$$F MTE^XLFDT( $P(RC0,U,7 ),"2D") | |
| 356 | . D SET(X ,RCT,RCZ) | |
| 357 | . S X=$J( "",12)_$E( $P(RC0,U,6 )_$J("",30 ),1,30)_" APPROX # E EOBs: "_+$ $CTEEOB^RC DPEWLB(RCZ ) | |
| 358 | . D SET(X ,RCT,RCZ) | |
| 359 | . S XX=$$ EXTERNAL^D ILFD(344.4 ,.09,"",$P (RC0,U,9)) | |
| 360 | . S:$$UNB AL^RCDPEAP 1(RCZ) XX= XX_" - UNB ALANCED" ; PRCA*4.5*3 18 added l ine | |
| 361 | . S XX=XX _$J(“”,21- $L(XX)_MDT | |
| 362 | . S X=$J( "",12)_$E( XX_$J("",3 0),1,30)_" "_RCPOST ;PRCA*4.5* 318 modifi ed line | |
| 363 | . D SET(X ,RCT) | |
| 364 | . D SET(" ",RCT) | |
| 365 | ;.; prca* 4.5*298 pe r patch re quirements , keep cod e related to | |
| 366 | ;. ; crea ting/maint aining bat ches but j ust remove from exec ution. | |
| 367 | ;. ;I $G( ^TMP("RCER A_PARAMS", $J,"BATCHO N")) D | |
| 368 | ;.. ;S Z= 0 F S Z=$O (^RCY(344. 49,RCZ,3,Z )) Q:'Z S Z0=$G(^(Z, 0)) I Z0'= "" D | |
| 369 | ;...; S X =$J("",12) _$E("- BAT CH #"_$P(Z 0,U)_$J("" ,4),1,13)_ " "_$E($P( Z0,U,2)_$J ("",30),1, 30)_" "_$S ('$P(Z0,U, 3):"NOT ", 1:"")_"REA DY TO POST " | |
| 370 | ;... ;D S ET(X,RCT) | |
| 371 | ; | |
| 372 | S VALMSG= "|'-' No s cratchpad| 'x' EXC |' A' autopos t complete " | |
| 373 | ; | |
| 374 | Q | |
| 375 | ; | |
| 376 | MATCHDT(RC EFT) ;EP | |
| 377 | ; Get the Date the ERA was ma tched | |
| 378 | ; Input: RCEFT - IEN for f ile 344.31 | |
| 379 | ; Returns : External date when the ERA w as matched or “” | |
| 380 | N IENS,XX | |
| 381 | S XX=$O(^ RCY(344.31 ,RCEFT,4,” ”),-1) ; Get last Match Stat us History record | |
| 382 | Q:XX=”” “ ” | |
| 383 | S IENS=XX _”,”_RCEFT _”,” | |
| 384 | S XX=$$GE T1^DIQ(344 .31,IENS,. 02,”I) | |
| 385 | Q:XX=”” “ ” | |
| 386 | S XX=$$FM TE^XLFDT(X X,”2DZ”) | |
| 387 | Q XX | |
| 388 | ; | |
| 389 | . | |
| 390 | . | |
| 391 | .. | |
| 392 | . | |
| 393 | . | |
| 394 | ; | |
| 395 | ; Get ins urance com pany to be used as f ilter | |
| 396 | ; PRCA*4. 5*284 - RC NP is Type of Respon se (1=Rang e,2=All,3= Specific) ^ From Ran ge^ Thru R ange | |
| 397 | S RCNP=$$ GETPAY^RCD PEM9(344.3 1) | |
| 398 | Q:+RCNP=- 1 ; No Ins urance Com pany selec ted | |
| 399 | S DONLY=$ $DBTONLY() ; Debit O nly filter | |
| 400 | Q:DONLY=- 1 ; '^' or time out ; | |
| 401 | S RCLSTMG R=$$ASKLM^ RCDPEARL ; Ask to Di splay in L istman Tem plate | |
| 402 | Q:RCLSTMG R<0 ; '^' or timeout | |
| 403 | ; | |
| 404 | I RCLSTMG R=1 D Q ; List Man Templa te format, put in ar ray | |
| 405 | . S RCTMP ND="RCDPE_ DAR" | |
| 406 | . K ^TMP( $J,RCTMPND ) | |
| 407 | . D EN(RC DET,RCDT1, RCDT2,RCLS TMGR,DONLY ) | |
| 408 | . D LMHDR ^ZZFARCDPE DA3b2(.RCS TOP,RCDET, 1,RCDT1,RC DT2,.RCHDR ,DONLY) | |
| 409 | . D LMRPT ^RCDPEARL( .RCHDR,$NA (^TMP($J,R CTMPND))) ; Generate ListMan d isplay | |
| 410 | . K ^TMP( $J,RCTMPND ) | |
| 411 | ; | |
| 412 | . | |
| 413 | . | |
| 414 | . | |
| 415 | U IO | |
| 416 | D EN(RCDE T,RCDT1,RC DT2,RCLSTM GR,DONLY) | |
| 417 | Q | |
| 418 | ; | |
| 419 | DBTONLY() ; Allows t he user to select fi lter to on ly show EF Ts with de bits | |
| 420 | ; Input: None | |
| 421 | ; Returns : 0 - All EFTs to di splay | |
| 422 | ; 1 - Onl y EFTs wit h debits t o be displ ayed | |
| 423 | ; -1 - Us er up-arro wed or tim ed out | |
| 424 | N DIR,DIR OUT,DIRUT, DTOUT,DUOU T | |
| 425 | S DIR("A" )="Show EF Ts with de bits only? " | |
| 426 | S DIR(0)= "SA^Y:YES; N:NO" | |
| 427 | S DIR("B" )="NO" | |
| 428 | S DIR("?" ,1)="Enter 'YES' to only show EFTs with a debit fl ag of 'D'. " | |
| 429 | S DIR("?" )="Enter ' NO' to sho w all EFTs ." | |
| 430 | D ^DIR | |
| 431 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q -1 | |
| 432 | Q $E(Y,1) ="Y" | |
| 433 | ; | |
| 434 | RTYPE() ; Allows the user to s elect the report typ e (Summary /Detail) | |
| 435 | . | |
| 436 | . | |
| 437 | . | |
| 438 | EN(RCDET,R CDT1,RCDT2 ,RCLSTMGR, DONLY) ; E ntry point for repor t, might b e queued | |
| 439 | ; Input: RCDET - 1 - Detail R eport, 0 - Summary | |
| 440 | ; RCDT1 - Internal Fileman St art date | |
| 441 | ; RCDT2 - Internal Fileman En d date | |
| 442 | ; RCLSTMG R - 1 disp lay in lis t manager, 0 otherwi se | |
| 443 | ; Optiona l, default s to 0 | |
| 444 | ; DONLY - 1 only di splay EFTs with a de bit flag o f 'D' | |
| 445 | ; 0 displ ay all EFT s | |
| 446 | ; RCNP - A1^A2^A3 W here: | |
| 447 | ; A1 - 1 - Range of Payers | |
| 448 | ; 2 - All Payers se lected | |
| 449 | ; 3 - Spe cific paye rs | |
| 450 | ; A2 - Fr om Range ( When a fro m/thru ran ge is sele cted by us er) | |
| 451 | ; A3 - Th ru Range ( When a fro m/thru ran ge is sele cted by us er) | |
| 452 | ; RCPYRSE L - Array of selecte d payers ( Only prese nt if A1=3 above | |
| 453 | ; VAUTD - 1 - All s elected di visions OR an array of selecte d division s | |
| 454 | N DFLG,DT ADD,IEN344 3,IEN34431 ,INPUT,RCF LG,RCJOB,R CT,XX,Z | |
| 455 | N:$G(ZTSK ) ZTSTOP ; Job was tasked , ZTSTOP = flag to s top | |
| 456 | S:'$D(RCL STMGR) RCL STMGR=0 | |
| 457 | ; | |
| 458 | ; PRCA*4. 5*284 - Qu eued job n eeds to re load payer selection list | |
| 459 | I $D(RCPY RSEL) D | |
| 460 | . K ^TMP( "RCSELPAY" ,$J) | |
| 461 | . M ^TMP( "RCSELPAY" ,$J)=RCPYR SEL | |
| 462 | ; | |
| 463 | S XX=$S(R CLSTMGR:1, 1:0) | |
| 464 | S INPUT=X X_"^"_RCLS TMGR_"^"_+ RCDET | |
| 465 | S RCNP=+R CNP,RCJOB= $J | |
| 466 | K ^TMP("R CDAILYACT" ,$J) | |
| 467 | K ^TMP($J ,"TOTALS") ; Initial ize Totals temp work space | |
| 468 | ; | |
| 469 | ; Loop th rough all of the EDI LOCKBOX D EPOSIT rec ords in th e selected date | |
| 470 | ; range a nd add any that pass the payer and divis ion filter s into ^TM P | |
| 471 | ; by the internal d ate added | |
| 472 | S DTADD=R CDT1-.0001 ,RCT=0 | |
| 473 | S $P(INPU T,"^",4)=0 ; Current Page Numb er | |
| 474 | S $P(INPU T,"^",5)=0 ; Stop Fl ag | |
| 475 | S $P(INPU T,"^",10)= DONLY | |
| 476 | F D Q:' DTADD Q:D TADD>(RCDT 2_".9999") Q:$P(INPU T,"^",5)=1 | |
| 477 | . S DTADD =$O(^RCY(3 44.3,"AREC DT",DTADD) ) | |
| 478 | . Q:'DTAD D | |
| 479 | . Q:DTADD >(RCDT2_". 9999") | |
| 480 | . S IEN34 43=0 | |
| 481 | . F D Q :'IEN3443 Q:$P(INPU T,"^",5)=1 | |
| 482 | . . S IEN 3443=$O(^R CY(344.3," ARECDT",DT ADD,IEN344 3)) | |
| 483 | . . Q:'IE N3443 | |
| 484 | . . S IEN 34431="",R CFLG=0 | |
| 485 | . . F D Q:IEN3443 1="" | |
| 486 | . . . S I EN34431=$O (^RCY(344. 31,"B",IEN 3443,IEN34 431)) | |
| 487 | . . . Q:I EN34431="" | |
| 488 | . . . Q:' $$CHKPYR(I EN34431,0, RCJOB,RCNP ) ; Not a selected p ayer PRCA* 4.5(318 ad ded ,RCNP | |
| 489 | . . . Q:' $$CHKDIV(I EN34431,0, .VAUTD) ; Not a sele cted stati on/divisio n | |
| 490 | . . . I D ONLY D Q: DFLG'="D" ; Not a EFT with a debit f lag of 'D' | |
| 491 | . . . . S DFLG=$$GE T1^DIQ(344 .31,IEN344 31,.20,"E" ) | |
| 492 | . . . S R CFLG=1 | |
| 493 | . . . S ^ TMP("RCDAI LYACT",$J, DTADD\1,IE N3443,"EFT ",IEN34431 )="" | |
| 494 | . . ; | |
| 495 | . | |
| 496 | . | |
| 497 | .RoutinesA ctivitiesR outine Nam eRCDPEDA2R CDPEDA2Enh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsRCDPE E DI LOCKBOX ACT REPOR TRelated R outinesRou tines “Cal led By”Rou tines “Cal led” RCD PEDAR | |
| 498 | ASK^RCDPEA DP | |
| 499 | $$STATUS^G ECSSGET | |
| 500 | EFTERRSHDR ^RCDPEDA3 | |
| 501 | SL^RCDPEDA 3 | |
| 502 | EFTERRS^RC DPEDA4 | |
| 503 | ERRMSGS^RC DPEDA4 | |
| 504 | GETTR^RCDP EDA4Curren t Logic. | |
| 505 | . | |
| 506 | . | |
| 507 | ; | |
| 508 | DETLN(INPU T,IEN3443, TOTDEP) ; Display de tail line | |
| 509 | ; Input: INPUT - Se e RPT2 for details | |
| 510 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 511 | ; TOTDEP - Total De posit Amou nt (344.3, .08) | |
| 512 | ; ^TMP($J ,"TOTALS", "FMS") - F MS Documen t # or "NO FMS DOC" | |
| 513 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 514 | ; A5 - Up dated Page Number | |
| 515 | ; A6 - St op Flag | |
| 516 | ; A8 - Up dated Line Counter | |
| 517 | ; | |
| 518 | N DTADD,D ETL,LSTMAN ,NJ,X,XX,Y Y | |
| 519 | S LSTMAN= $P(INPUT," ^",2),NJ=$ P(INPUT,"^ ",1) | |
| 520 | S DETL=$P (INPUT,"^" ,3) | |
| 521 | S XX=$$GE T1^DIQ(344 .3,IEN3443 ,.06,"I") ; Deposit Number | |
| 522 | ; | |
| 523 | ; PRCA*4. 5*283 - ch ange lengt h of DEP # from 6 to 9 to allo w for 9 di git DEP #' s | |
| 524 | S X=$$SET STR^VALM1( XX,"",1,9) | |
| 525 | ; | |
| 526 | ; Change DEPOSIT DT 's startin g position from 9 to 12 | |
| 527 | S YY=$$GE T1^DIQ(344 .3,IEN3443 ,.07,"I") ; Deposit Date | |
| 528 | S X=$$SET STR^VALM1( $$FMTE^XLF DT(YY\1,"2 Z"),X,12,1 0) | |
| 529 | ; | |
| 530 | ; Change starting p osition fr om 21 to 2 3 & reduce length of spaces fr om 10 to 8 . | |
| 531 | S X=$$SET STR^VALM1( "",X,23,8) | |
| 532 | S X=$$SET STR^VALM1( "",X,32,10 ) | |
| 533 | S XX=^TMP ($J,"TOTAL S","FMS") | |
| 534 | S X=$$SET STR^VALM1( $E($J(TOTD EP,"",2)_$ J("",20),1 ,20)_XX,X, 43,37) | |
| 535 | S ^TMP($J ,"ONEDEP", 0,1)=X ; PRCA*4.5 *321 | |
| 536 | Q | |
| 537 | ; | |
| 538 | . | |
| 539 | . | |
| 540 | . | |
| 541 | ; | |
| 542 | EFTDTL(INP UT,IEN3443 ,IEN34431, RCFMS1,EFT CTR) ; Dis play EFT D etail | |
| 543 | ; Input: INPUT - Se e RPT2 for details | |
| 544 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 545 | ; IEN3443 1 - Intern al IEN for file 344. 31 | |
| 546 | ; RCFMS1( IEN34431) - FMS Docu ment Statu s for EFT IEN | |
| 547 | ; EFTCTR - Used to store line s for an E FT | |
| 548 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 549 | ; Output: INPUT - S ee RPT2 fo r details | |
| 550 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 551 | ; ^TMP($J ,ONEDEP,EF TCTR) - # of lines f or EFT | |
| 552 | ; ^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 | |
| 553 | N EFTLN,P AY,PAYER,P AYID,X,XX, YY,ZZ | |
| 554 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.01,"I" ) ; EFT Tr ansaction IEN | |
| 555 | S X=$$SET STR^VALM1( XX,"",3,6) | |
| 556 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.12,"I" ) ; Date C laims Paid | |
| 557 | S X=$$SET STR^VALM1( $$FMTE^XLF DT(XX\1,"2 Z"),X,31,8 ) | |
| 558 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.07,"I" ) ; Amount of Paymen t | |
| 559 | S X=$$SET STR^VALM1( $J(XX,"",2 ),X,41,18) | |
| 560 | ; | |
| 561 | ; PRCA*4. 5*284, Mov e to left 3 space (6 1 to 58) t o allow fo r 10 digit ERA #'s | |
| 562 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.08,"I" ) ; Match Status | |
| 563 | S YY=$$GE T1^DIQ(344 .31,IEN344 31,.1,"I") ; ERA IEN | |
| 564 | S X=$$SET STR^VALM1( $$EXTERNAL ^DILFD(344 .31,.08,"" ,+XX)_$S(X X=1:"/ERA #"_YY,1:"" ),X,57,20) | |
| 565 | S ^TMP($J ,"ONEDEP", EFTCTR,1)= X | |
| 566 | ; | |
| 567 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.04,"I" ) ; Trace Number | |
| 568 | S X=$$SET STR^VALM1( XX,"",5,$L (XX)) | |
| 569 | S XX=$G(^ TMP($J,"TO TALS","CRD OC",IEN344 3)) | |
| 570 | S X=$$SET STR^VALM1( XX,X,59,$L (XX)) ; CR Document Number ; P RCA*4.5*31 8 add | |
| 571 | S ^TMP($J ,"ONEDEP", EFTCTR,2)= X | |
| 572 | ; | |
| 573 | S PAYER=$ $GET1^DIQ( 344.31,IEN 34431,.02, "I") ; Pay er Name | |
| 574 | S:PAYER=" " PAYER="N O PAYER NA ME RECEIVE D" ; PRCA*4.5*2 98 | |
| 575 | S PAYID=$ $GET1^DIQ( 344.31,IEN 34431,.03, "I") ; Pay er ID | |
| 576 | S PAY=PAY ER_"/"_PAY ID | |
| 577 | I $L(PAY) >74 D ; PRCA*4.5*3 18 added i f statemen t | |
| 578 | . S ZZ=$L (PAY,"/"), XX=$P(PAY, "/",1,ZZ-1 ),YY=$P(PA Y,"/",ZZ) | |
| 579 | . S XX=$E (XX,1,$L(X X)-($L(PAY )-74)),PAY =XX_"/"_YY | |
| 580 | S X=$$SET STR^VALM1( PAY,"",7,7 4) | |
| 581 | S ^TMP($J ,"ONEDEP", EFTCTR,3)= X | |
| 582 | S ^TMP($J ,"ONEDEP", EFTCTR)=3 | |
| 583 | ; | |
| 584 | ; PRCA*4. 5*318 add TR #s to d etail rpt | |
| 585 | ; Gather & display all TR Doc #s for EF T detail r ecord | |
| 586 | D GETTR^R CDPEDA4(IE N34431,.IN PUT) ; PRC A*4.5*321 moved for routine si ze | |
| 587 | S X="" | |
| 588 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,3,"E") ; Debit Fl ag ; PRCA 4.5*321 Ad ded line | |
| 589 | S XX=$S(X X="D":"DEB IT",1:" ") ; PRCA*4. 5*321 Adde d line | |
| 590 | S X=$$SET STR^VALM1( XX,X,37,5) | |
| 591 | ; | |
| 592 | ; PRCA*4. 5*304 - le ngthen rec eipt numbe r display to 12 | |
| 593 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.09,"I" ) ; Receip t IEN | |
| 594 | I XX'="" D | |
| 595 | . S YY=$$ GET1^DIQ(3 44,XX,.01, "I") ; Rec eipt Numbe r | |
| 596 | . S X=$$S ETSTR^VALM 1(YY,X,45, 12) ; PRCA *4.5*321 c hanged 46 to 45 | |
| 597 | S X=$$SET STR^VALM1( $G(RCFMS1( IEN34431)) ,X,61,19) | |
| 598 | S EFTLN=$ G(^TMP($J, "ONEDEP",E FTCTR))+1 | |
| 599 | S ^TMP($J ,"ONEDEP", EFTCTR)=EF TLN | |
| 600 | S ^TMP($J ,"ONEDEP", EFTCTR,EFT LN)=X | |
| 601 | D EFTERRS ^RCDPEDA4( .INPUT,IEN 34431,EFTC TR) ; Disp lay any EF T Errors | |
| 602 | D DUP(.IN PUT,IEN344 31,EFTCTR) ; Display any Dupli cate Error s | |
| 603 | Q | |
| 604 | ; | |
| 605 | . | |
| 606 | . | |
| 607 | .. | |
| 608 | . | |
| 609 | . | |
| 610 | RPT2(INPUT ) ; Entry point from RCDPEDAR | |
| 611 | ; Loop th rough EDI LOCKBOX DE POSIT entr ies | |
| 612 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 613 | ; A1 - 1 - Called b y nightly job, 0 oth erwise | |
| 614 | ; A2 - 1 - Display to list ma nager, 0 o therwise | |
| 615 | ; A3 - 1 - Detail r eport, 0 - Summary r eport | |
| 616 | ; A4 - Cu rrent Page Number | |
| 617 | ; A5 - St op Flag | |
| 618 | ; A6 - St art of Dat e Range | |
| 619 | ; A7 - En d of Date Range | |
| 620 | ; A8 - Cu rrent Line Number | |
| 621 | ; A9 - In ternal Dat e being pr ocessed | |
| 622 | ; 0 - Dis play all E FTs | |
| 623 | ; ^TMP(B1 ,$J,B2,B3) = "" | |
| 624 | ; ^TMP(B1 ,$J,B2,B3, "EFT",B4) = "" Where : | |
| 625 | ; B1 - "R CDAILYACT" | |
| 626 | ; B2 - In ternal Dat e from DAT E/TIME ADD ED | |
| 627 | ; (344.3, .13) | |
| 628 | ; B3 - In ternal IEN for 344.3 | |
| 629 | ; B4 - In ternal IEN for file 344.31 | |
| 630 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces | |
| 631 | ; may be updated | |
| 632 | ; A4 - Up dated Page Number | |
| 633 | ; A5 - St op Flag | |
| 634 | ; A6 - Up dated Line number | |
| 635 | ; ^TMP($J ,"TOTALS", "DEP",C1) - Total # of deposit s by Inter nal date ( C1) | |
| 636 | ; ^TMP($J ,"TOTALS", "DEP",C1) - Total # of deposit s by Inter nal date ( C1) | |
| 637 | ; ^TMP($J ,"TOTALS", "DEPA",C1) - Total D eposit Amo unt by Int ernal date (C1) | |
| 638 | ; ^TMP($J ,"TOTALS", "EFT","D") - Total D eposit Amo unt by EFT s for date | |
| 639 | ; ^TMP($J ,"TOTALS", "FMS") - F MS Documen t Status o r "NO FMS DOC" | |
| 640 | ; ^TMP($J ,"TOTALS", "FMS","D", -1) - Tota l Deposit Amount by FMS Docume nt | |
| 641 | ; ^TMP($J ,"TOTALS", "FMS","D", 0) - Total Amount fo r Error/Re jected doc uments | |
| 642 | ; ^TMP($J ,"TOTALS", "FMS","D", 1") - Tota l Amount f or 'A','M' ,"F' or 'T ' docs | |
| 643 | ; ^TMP($J ,"TOTALS", "FMS","D", 2") - Tota l Amount f or queued docs | |
| 644 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Updated Total Depo sit Amount for date range | |
| 645 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Curre nt Total m atched EFT s for date | |
| 646 | N CRDOC,D ETL,DTADD, IEN344,IEN 3443,IEN34 431,TOTDEP ,Q,X,XX,YY | |
| 647 | S DETL=$P (INPUT,"^" ,3),DTADD= $P(INPUT," ^",9) | |
| 648 | ; | |
| 649 | ; Clear t he followi ng daily t otals | |
| 650 | K ^TMP($J ,"TOTALS", "EFT","D") | |
| 651 | K ^TMP($J ,"TOTALS", "FMS","D") | |
| 652 | K ^TMP($J ,"TOTALS", "MATCH","D ") | |
| 653 | S IEN3443 ="" | |
| 654 | . | |
| 655 | . | |
| 656 | . | |
| 657 | PROCEFT(IN PUT,IEN344 3) ; Entry Point fro m RCDPEDAR | |
| 658 | . | |
| 659 | . | |
| 660 | . | |
| 661 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 662 | ; ^TMP($J ,"TOTALS", "EFT","D") - Current Total Dep osit Amoun t by EFTs for date | |
| 663 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Curre nt Total m atched EFT s for date | |
| 664 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Current Total Depo sit Amount for date range | |
| 665 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces | |
| 666 | ; may be updated | |
| 667 | ; A5 - Up dated Page Number | |
| 668 | ; A6 - St op Flag | |
| 669 | ; A8 - Up dated Line Counter | |
| 670 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Updated Total Depo sit Amount for date range | |
| 671 | ; ^TMP($J ,"TOTALS", "EFT","D") - Updated Total Dep osit Amoun t by EFTs for date | |
| 672 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Updat ed Total m atched EFT s for date | |
| 673 | N DETL,DT ADD,IEN344 31,PAMT,RC FMS1,TRDOC ,X,XX,YY | |
| 674 | S ^TMP($J ,"TOTALS", "FMSTOT")= 0 | |
| 675 | S DTADD=$ P(INPUT,"^ ",9) | |
| 676 | S RCFMS1= "NO FMS DO C" | |
| 677 | S DETL=$P (INPUT,"^" ,3) | |
| 678 | S IEN3443 1="" | |
| 679 | F D Q:I EN34431="" Q:$P(INP UT,"^",5)= 1 | |
| 680 | . S IEN34 431=$O(^TM P("RCDAILY ACT",$J,DT ADD,IEN344 3,"EFT",IE N34431)) | |
| 681 | . Q:IEN34 431="" | |
| 682 | . S XX=$G (^TMP($J," TOTALS","E FT","D"))+ 1 | |
| 683 | . S ^TMP( $J,"TOTALS ","EFT","D ")=XX ; Total # EFTs for date | |
| 684 | . S XX=+$ $GET1^DIQ( 344.31,IEN 34431,.09, "I") ; Rec eipt # fro m 344.31 | |
| 685 | . S XX=+$ $GET1^DIQ( 344.31,IEN 34431,.09, "I") ; Rec eipt # fro m 344.31 | |
| 686 | . S TRDOC =$$GET1^DI Q(344,XX,2 00,"I") ; FMS Docume nt # | |
| 687 | . S X=$S( TRDOC'="": $$STATUS^G ECSSGET(TR DOC),1:"") | |
| 688 | . I X'="" ,X'=-1,$E( X,1)'="R", $E(X,1)'=" E" D | |
| 689 | . . S XX= $G(^TMP($J ,"TOTALS", "FMSTOT")) | |
| 690 | . . S YY= $$GET1^DIQ (344.31,IE N34431,.07 ,"I") ; Am ount of Pa yment | |
| 691 | . . S ^TM P($J,"TOTA LS","FMSTO T")=XX+YY | |
| 692 | . . S RCF MS1=$S($E( X,1)="Q":" QUEUED TO POST",1:"P OSTED") | |
| 693 | . | |
| 694 | . | |
| 695 | . | |
| 696 | EFTDTL(INP UT,IEN3443 ,IEN34431, RCFMS1) ; Display EF T Detail | |
| 697 | . | |
| 698 | . | |
| 699 | . | |
| 700 | ; PRCA*4. 5*318 add TR #s to d etail rpt | |
| 701 | D GETTR(I EN34431,.I NPUT) ; Ga ther & dis play all T R Doc #s f or EFT det ail record | |
| 702 | S X="" | |
| 703 | ; | |
| 704 | ; PRCA*4. 5*304 - le ngthen rec eipt numbe r display to 12 | |
| 705 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.09,"I" ) ; Receip t IEN | |
| 706 | I XX'="" D | |
| 707 | . S YY=$$ GET1^DIQ(3 44,XX,.01, "I") ; Rec eipt Numbe r | |
| 708 | . S X=$$S ETSTR^VALM 1(YY,X,46, 12) | |
| 709 | . | |
| 710 | . | |
| 711 | .Modified Logic (Cha nges are i n bold). | |
| 712 | . | |
| 713 | . | |
| 714 | ; | |
| 715 | DETLN(INPU T,IEN3443, TOTDEP) ; Display de tail line | |
| 716 | ; Input: INPUT - Se e RPT2 for details | |
| 717 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 718 | ; TOTDEP - Total De posit Amou nt (344.3, .08) | |
| 719 | ; ^TMP($J ,"TOTALS", "FMS") - F MS Documen t # or "NO FMS DOC" | |
| 720 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 721 | ; A5 - Up dated Page Number | |
| 722 | ; A6 - St op Flag | |
| 723 | ; A8 - Up dated Line Counter | |
| 724 | ; | |
| 725 | N DTADD,D ETL,LSTMAN ,NJ,X,XX,Y Y | |
| 726 | S LSTMAN= $P(INPUT," ^",2),NJ=$ P(INPUT,"^ ",1) | |
| 727 | S DETL=$P (INPUT,"^" ,3) | |
| 728 | S XX=$$GE T1^DIQ(344 .3,IEN3443 ,.06,"I") ; Deposit Number | |
| 729 | ; | |
| 730 | ; PRCA*4. 5*283 - ch ange lengt h of DEP # from 6 to 9 to allo w for 9 di git DEP #' s | |
| 731 | S X=$$SET STR^VALM1( XX,"",1,9) | |
| 732 | ; | |
| 733 | ; Change DEPOSIT DT 's startin g position from 9 to 12 | |
| 734 | S YY=$$GE T1^DIQ(344 .3,IEN3443 ,.07,"I") ; Deposit Date | |
| 735 | S X=$$SET STR^VALM1( $$FMTE^XLF DT(YY\1,"2 Z"),X,12,1 0) | |
| 736 | ; | |
| 737 | ; Change starting p osition fr om 21 to 2 3 & reduce length of spaces fr om 10 to 8 . | |
| 738 | S X=$$SET STR^VALM1( "",X,23,9) | |
| 739 | S X=$$SET STR^VALM1( "",X,32,10 ) | |
| 740 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.12,"I" ) ; Date C laims Paid | |
| 741 | S X=$$SET STR^VALM1( $$FMTE^XLF DT(XX\1,"2 Z"),X,32,1 0) | |
| 742 | S XX=^TMP ($J,"TOTAL S","FMS") | |
| 743 | S X=$$SET STR^VALM1( $E($J(TOTD EP,"",2)_$ J("",20),1 ,20)_XX,X, 43,37) | |
| 744 | S ^TMP($J ,"ONEDEP", 0,1)=X ; PRCA*4.5 *321 | |
| 745 | Q | |
| 746 | ; | |
| 747 | . | |
| 748 | . | |
| 749 | . | |
| 750 | ; | |
| 751 | EFTDTL(INP UT,IEN3443 ,IEN34431, RCFMS1,EFT CTR) ; Dis play EFT D etail | |
| 752 | ; Input: INPUT - Se e RPT2 for details | |
| 753 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 754 | ; IEN3443 1 - Intern al IEN for file 344. 31 | |
| 755 | ; RCFMS1( IEN34431) - FMS Docu ment Statu s for EFT IEN | |
| 756 | ; EFTCTR - Used to store line s for an E FT | |
| 757 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 758 | ; Output: INPUT - S ee RPT2 fo r details | |
| 759 | ; ^TMP($J ,ONEDEP,0, 1) - Depos it Detail line | |
| 760 | ; ^TMP($J ,ONEDEP,EF TCTR) - # of lines f or EFT | |
| 761 | ; ^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 | |
| 762 | N EFTLN,P AY,PAYER,P AYID,X,XX, YY,ZZ | |
| 763 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.01,"I" ) ; EFT Tr ansaction IEN | |
| 764 | S X=$$SET STR^VALM1( XX,"",3,6) | |
| 765 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.12,"I" ) ; Date C laims Paid | |
| 766 | S XX=$$MA TCHDT^RCDP EWL7(IEN34 431) | |
| 767 | S X=$$SET STR^VALM1( $$FMTE^XLF DT(XX\1,"2 Z"),X,31,8 ) | |
| 768 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.07,"I" ) ; Amount of Paymen t | |
| 769 | S X=$$SET STR^VALM1( $J(XX,"",2 ),X,41,18) | |
| 770 | ; | |
| 771 | ; PRCA*4. 5*284, Mov e to left 3 space (6 1 to 58) t o allow fo r 10 digit ERA #'s | |
| 772 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.08,"I" ) ; Match Status | |
| 773 | S YY=$$GE T1^DIQ(344 .31,IEN344 31,.1,"I") ; ERA IEN | |
| 774 | S X=$$SET STR^VALM1( $$EXTERNAL ^DILFD(344 .31,.08,"" ,+XX)_$S(X X=1:"/ERA #"_YY,1:"" ),X,57,20) | |
| 775 | S ^TMP($J ,"ONEDEP", EFTCTR,1)= X | |
| 776 | ; | |
| 777 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.04,"I" ) ; Trace Number | |
| 778 | S X=$$SET STR^VALM1( XX,"",5,$L (XX)) | |
| 779 | S XX=$G(^ TMP($J,"TO TALS","CRD OC",IEN344 3)) | |
| 780 | S X=$$SET STR^VALM1( XX,X,59,$L (XX)) ; CR Document Number ; P RCA*4.5*31 8 add | |
| 781 | S ^TMP($J ,"ONEDEP", EFTCTR,2)= X | |
| 782 | ; | |
| 783 | S PAYER=$ $GET1^DIQ( 344.31,IEN 34431,.02, "I") ; Pay er Name | |
| 784 | S:PAYER=" " PAYER="N O PAYER NA ME RECEIVE D" ; PRCA*4.5*2 98 | |
| 785 | S PAYID=$ $GET1^DIQ( 344.31,IEN 34431,.03, "I") ; Pay er ID | |
| 786 | S PAY=PAY ER_"/"_PAY ID | |
| 787 | I $L(PAY) >74 D ; PRCA*4.5*3 18 added i f statemen t | |
| 788 | . S ZZ=$L (PAY,"/"), XX=$P(PAY, "/",1,ZZ-1 ),YY=$P(PA Y,"/",ZZ) | |
| 789 | . S XX=$E (XX,1,$L(X X)-($L(PAY )-74)),PAY =XX_"/"_YY | |
| 790 | S X=$$SET STR^VALM1( PAY,"",7,7 4) | |
| 791 | S ^TMP($J ,"ONEDEP", EFTCTR,3)= X | |
| 792 | S ^TMP($J ,"ONEDEP", EFTCTR)=3 | |
| 793 | ; | |
| 794 | ; PRCA*4. 5*318 add TR #s to d etail rpt | |
| 795 | ; Gather & display all TR Doc #s for EF T detail r ecord | |
| 796 | D GETTR^R CDPEDA4(IE N34431,.IN PUT) ; PRC A*4.5*321 moved for routine si ze | |
| 797 | S X="" | |
| 798 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,3,"E") ; Debit Fl ag ; PRCA 4.5*321 Ad ded line | |
| 799 | S XX=$S(X X="D":"DEB IT",1:" ") ; PRCA*4. 5*321 Adde d line | |
| 800 | S X=$$SET STR^VALM1( XX,X,37,5) | |
| 801 | ; | |
| 802 | ; PRCA*4. 5*304 - le ngthen rec eipt numbe r display to 12 | |
| 803 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.09,"I" ) ; Receip t IEN | |
| 804 | I XX'="" D | |
| 805 | . S YY=$$ GET1^DIQ(3 44,XX,.01, "I") ; Rec eipt Numbe r | |
| 806 | . S X=$$S ETSTR^VALM 1(YY,X,45, 12) ; PRCA *4.5*321 c hanged 46 to 45 | |
| 807 | S X=$$SET STR^VALM1( $G(RCFMS1( IEN34431)) ,X,61,19) | |
| 808 | S EFTLN=$ G(^TMP($J, "ONEDEP",E FTCTR))+1 | |
| 809 | S ^TMP($J ,"ONEDEP", EFTCTR)=EF TLN | |
| 810 | S ^TMP($J ,"ONEDEP", EFTCTR,EFT LN)=X | |
| 811 | D EFTERRS ^RCDPEDA4( .INPUT,IEN 34431,EFTC TR) ; Disp lay any EF T Errors | |
| 812 | D DUP(.IN PUT,IEN344 31,EFTCTR) ; Display any Dupli cate Error s | |
| 813 | Q | |
| 814 | ; | |
| 815 | . | |
| 816 | . | |
| 817 | .. | |
| 818 | . | |
| 819 | . | |
| 820 | RPT2(INPUT ) ; Entry point from RCDPEDAR | |
| 821 | ; Loop th rough EDI LOCKBOX DE POSIT entr ies | |
| 822 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 823 | ; A1 - 1 - Called b y nightly job, 0 oth erwise | |
| 824 | ; A2 - 1 - Display to list ma nager, 0 o therwise | |
| 825 | ; A3 - 1 - Detail r eport, 0 - Summary r eport | |
| 826 | ; A4 - Cu rrent Page Number | |
| 827 | ; A5 - St op Flag | |
| 828 | ; A6 - St art of Dat e Range | |
| 829 | ; A7 - En d of Date Range | |
| 830 | ; A8 - Cu rrent Line Number | |
| 831 | ; A9 - In ternal Dat e being pr ocessed | |
| 832 | ; A10- 1 - Only Dis play EFTs with a deb it flag of 'D' | |
| 833 | ; 0 - Dis play all E FTs | |
| 834 | ; ^TMP(B1 ,$J,B2,B3) = "" | |
| 835 | ; ^TMP(B1 ,$J,B2,B3, "EFT",B4) = "" Where : | |
| 836 | ; B1 - "R CDAILYACT" | |
| 837 | ; B2 - In ternal Dat e from DAT E/TIME ADD ED | |
| 838 | ; (344.3, .13) | |
| 839 | ; B3 - In ternal IEN for 344.3 | |
| 840 | ; B4 - In ternal IEN for file 344.31 | |
| 841 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces | |
| 842 | ; may be updated | |
| 843 | ; A4 - Up dated Page Number | |
| 844 | ; A5 - St op Flag | |
| 845 | ; A6 - Up dated Line number | |
| 846 | ; ^TMP($J ,"TOTALS", "DEBIT") - Current T otal # of debits for date rang e | |
| 847 | ; ^TMP($J ,"TOTALS", "DEBIT","D ") - Total # of debi ts for Int ernal date | |
| 848 | ; ^TMP($J ,"TOTALS", "DEBITA") - Current Total Debi t Amount f or date ra nge | |
| 849 | ; ^TMP($J ,"TOTALS", "DEBITA"," D") - Tota l Debit Am ount for I nternal da te | |
| 850 | ; ^TMP($J ,"TOTALS", "DEP",C1) - Total # of deposit s by Inter nal date ( C1) | |
| 851 | ; ^TMP($J ,"TOTALS", "DEPA",C1) - Total D eposit Amo unt by Int ernal date (C1) | |
| 852 | ; ^TMP($J ,"TOTALS", "EFT","D") - Total D eposit Amo unt by EFT s for date | |
| 853 | ; ^TMP($J ,"TOTALS", "FMS") - F MS Documen t Status o r "NO FMS DOC" | |
| 854 | ; ^TMP($J ,"TOTALS", "FMS","D", -1) - Tota l Deposit Amount by FMS Docume nt | |
| 855 | ; ^TMP($J ,"TOTALS", "FMS","D", 0) - Total Amount fo r Error/Re jected doc uments | |
| 856 | ; ^TMP($J ,"TOTALS", "FMS","D", 1") - Tota l Amount f or 'A','M' ,"F' or 'T ' docs | |
| 857 | ; ^TMP($J ,"TOTALS", "FMS","D", 2") - Tota l Amount f or queued docs | |
| 858 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Updated Total Depo sit Amount for date range | |
| 859 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Curre nt Total m atched EFT s for date | |
| 860 | N CRDOC,D ETL,DTADD, IEN344,IEN 3443,IEN34 431,TOTDEP ,Q,X,XX,YY | |
| 861 | S DETL=$P (INPUT,"^" ,3),DTADD= $P(INPUT," ^",9) | |
| 862 | ; | |
| 863 | ; Clear t he followi ng daily t otals | |
| 864 | K ^TMP($J ,"TOTALS", "EFT","D") | |
| 865 | K ^TMP($J ,"TOTALS", "FMS","D") | |
| 866 | K ^TMP($J ,"TOTALS", "MATCH","D ") | |
| 867 | K ^TMP($J ,"TOTALS", "DEBIT","D ") | |
| 868 | K ^TMP($J ,"TOTALS", "DEBITA"," D") | |
| 869 | S IEN3443 ="" | |
| 870 | . | |
| 871 | . | |
| 872 | . | |
| 873 | PROCEFT(IN PUT,IEN344 3) ; Entry Point fro m RCDPEDAR | |
| 874 | . | |
| 875 | . | |
| 876 | . | |
| 877 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 878 | ; ^TMP($J ,"TOTALS", "DEBIT","D ") - Curre nt Total # of Debit EFTs for d ate | |
| 879 | ; ^TMP($J ,"TOTALS", "DEBITA"," D") - Curr ent Total Amount of Debit EFTs for dat | |
| 880 | ; ^TMP($J ,"TOTALS", "EFT","D") - Current Total Dep osit Amoun t by EFTs for date | |
| 881 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Curre nt Total m atched EFT s for date | |
| 882 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Current Total Depo sit Amount for date range | |
| 883 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces | |
| 884 | ; may be updated | |
| 885 | ; A5 - Up dated Page Number | |
| 886 | ; A6 - St op Flag | |
| 887 | ; A8 - Up dated Line Counter | |
| 888 | ; ^TMP($J ,"TOTALS", "DEBIT","D ") - Updat ed Total # of Debit EFTs for d ate | |
| 889 | ; ^TMP($J ,"TOTALS", "DEBITA"," D") - Upda ted Total Amount of Debit EFTs for date | |
| 890 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Updated Total Depo sit Amount for date range | |
| 891 | ; ^TMP($J ,"TOTALS", "EFT","D") - Updated Total Dep osit Amoun t by EFTs for date | |
| 892 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Updat ed Total m atched EFT s for date | |
| 893 | N DETL,DF LG,DTADD,I EN34431,PA MT,RCFMS1, TRDOC,X,XX ,YY ;**FA ** | |
| 894 | S ^TMP($J ,"TOTALS", "FMSTOT")= 0 | |
| 895 | S DTADD=$ P(INPUT,"^ ",9) | |
| 896 | S RCFMS1= "NO FMS DO C" | |
| 897 | S DETL=$P (INPUT,"^" ,3) | |
| 898 | S IEN3443 1="" | |
| 899 | F D Q:I EN34431="" Q:$P(INP UT,"^",5)= 1 | |
| 900 | . S IEN34 431=$O(^TM P("RCDAILY ACT",$J,DT ADD,IEN344 3,"EFT",IE N34431)) | |
| 901 | . Q:IEN34 431="" | |
| 902 | . S XX=$G (^TMP($J," TOTALS","E FT","D"))+ 1 | |
| 903 | . S ^TMP( $J,"TOTALS ","EFT","D ")=XX ; Total # EFTs for date | |
| 904 | . S YY=$$ GET1^DIQ(3 44.31,,IEN 34431,.20, "E") ; Deb it/Credit flag | |
| 905 | . S DFLG= $S(YY="D": 1,1:0) ; * *FA** | |
| 906 | . S PAMT= $$GET1^DIQ (344.31,IE N34431,.07 ,"I") ; Am ount of Pa yment | |
| 907 | . I DFLG D | |
| 908 | . . S XX= $G(^TMP($J ,"TOTALS", "DEBIT","D "))+1 | |
| 909 | . . S ^TM P($J,"TOTA LS","DEBIT ","D")=XX ; Total # Debit EFT s for date | |
| 910 | . . S XX= $G(^TMP($J ,"TOTALS", "DEBITA"," D")) ; Tot al Debit A mounts for date | |
| 911 | . . S ^TM P($J,"TOTA LS","DEBIT A","D")=XX +PAMT | |
| 912 | . . S XX= $G(^TMP($J ,"TOTALS", "DEBIT","D ")) ; Tota l # Debit EFTs for d ate | |
| 913 | . . S ^TM P($J,"TOTA LS","DEBIT ","D")=XX+ 1 | |
| 914 | . S XX=+$ $GET1^DIQ( 344.31,IEN 34431,.09, "I") ; Rec eipt # fro m 344.31 | |
| 915 | . S XX=+$ $GET1^DIQ( 344.31,IEN 34431,.09, "I") ; Rec eipt # fro m 344.31 | |
| 916 | . S TRDOC =$$GET1^DI Q(344,XX,2 00,"I") ; FMS Docume nt # | |
| 917 | . S X=$S( TRDOC'="": $$STATUS^G ECSSGET(TR DOC),1:"") | |
| 918 | . I X'="" ,X'=-1,$E( X,1)'="R", $E(X,1)'=" E" D | |
| 919 | . . S XX= $G(^TMP($J ,"TOTALS", "FMSTOT")) | |
| 920 | . . S ^TM P($J,"TOTA LS","FMSTO T")=XX+PAM T | |
| 921 | . . S RCF MS1=$S($E( X,1)="Q":" QUEUED TO POST",1:"P OSTED") | |
| 922 | . | |
| 923 | . | |
| 924 | EFTDTL(INP UT,IEN3443 ,IEN34431, RCFMS1) ; Display EF T Detail | |
| 925 | . | |
| 926 | . | |
| 927 | . | |
| 928 | ; PRCA*4. 5*318 add TR #s to d etail rpt | |
| 929 | D GETTR(I EN34431,.I NPUT) ; Ga ther & dis play all T R Doc #s f or EFT det ail record | |
| 930 | S X="" | |
| 931 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.20,"E" ) ; Debit Flag | |
| 932 | S X=$$SET STR^VALM1( XX,X,39,1) | |
| 933 | ; | |
| 934 | ; PRCA*4. 5*304 - le ngthen rec eipt numbe r display to 12 | |
| 935 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.09,"I" ) ; Receip t IEN | |
| 936 | I XX'="" D | |
| 937 | . S YY=$$ GET1^DIQ(3 44,XX,.01, "I") ; Rec eipt Numbe r | |
| 938 | . S X=$$S ETSTR^VALM 1(YY,X,45, 12) | |
| 939 | . | |
| 940 | . | |
| 941 | .Subroutin e HDR – Mo dified to display ‘ DATE PD’ a fter ‘DEPO SIT DT’ an d replace ‘DATE PD’ on its cur rent line with ‘MATC H DT’ | |
| 942 | RoutinesAc tivitiesRo utine Name RCDPEDA3En 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 DPEDA2 | |
| 943 | RCCPEDARCu rrent Logi c. | |
| 944 | . | |
| 945 | . | |
| 946 | HDR(INPUT) ;EP from RCDPEDAR | |
| 947 | ; Display s report h eader | |
| 948 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 949 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 950 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 951 | ; A3 - 1 if Detail report, 0 if summary report | |
| 952 | ; A4 - Cu rrent Page Number | |
| 953 | ; A5 - St op Flag | |
| 954 | ; A6 - St art of Dat e Range | |
| 955 | ; A7 - En d of Date Range | |
| 956 | ; A9 - Cu rrent line count | |
| 957 | ; A10- 1 - Only Dis play EFTs with a deb it flag of 'D' | |
| 958 | ; 0 - Dis play all E FTs | |
| 959 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 960 | ; A4 - Cu rrent Page Number | |
| 961 | ; A5 - St op Flag | |
| 962 | ; A8 - Up dated line count | |
| 963 | N CTR,CUR PG,DETL,DO NLY,DTST,D TEND,NJ,NO JUST,PLN,S TOP,X,XX,Y ,Z,Z0,Z1 | |
| 964 | S DETL=$P (INPUT,"^" ,3) | |
| 965 | S CURPG=$ P(INPUT,"^ ",4) | |
| 966 | S STOP=$P (INPUT,"^" ,5) | |
| 967 | S DTST=$P (INPUT,"^" ,6) ; Date Range Sta rt | |
| 968 | S DTEND=$ P(INPUT,"^ ",7) ; Dat e Range En ds | |
| 969 | S DONLY=$ P(INPUT,"^ ",10) ; EF Ts with De bits Only ;PRCA*4.5* 321 add de bit logic | |
| 970 | S NJ=$P(I NPUT,"^",1 ) | |
| 971 | Q:NJ&(CUR PG) | |
| 972 | I CURPG!( $E(IOST,1, 2)="C-") D | |
| 973 | . Q:NJ | |
| 974 | . I CURPG ,($E(IOST, 1,2)="C-") D Q:STOP | |
| 975 | . . S STO P=$$ASK() | |
| 976 | . W @IOF ; Write fo rm feed | |
| 977 | I STOP S $P(INPUT," ^",5)=1 Q | |
| 978 | S CURPG=C URPG+1,$P( INPUT,"^", 4)=CURPG | |
| 979 | ; | |
| 980 | ; PRCA276 if coming from nigh tly job ne ed to defi ne payer s election v ariable | |
| 981 | I NJ N RC NP S RCNP= 2 | |
| 982 | ; | |
| 983 | ; PRCA276 if coming from nigh tly job ne ed to defi ne divisio n selectio n variable | |
| 984 | I NJ N VA UTD S VAUT D=1 | |
| 985 | S Z0="EDI LOCKBOX E FT DAILY A CTIVITY "_ $S(DETL:"D ETAIL",1:" SUMMARY")_ " REPORT" | |
| 986 | S Z=$$SET STR^VALM1( $J("",80-$ L(Z0)\2)_Z 0,"",1,79) | |
| 987 | S Z=$$SET STR^VALM1( "Page: "_C URPG,Z,70, 10) | |
| 988 | D SL(.INP UT,Z) | |
| 989 | S Z="RUN DATE: "_$$ FMTE^XLFDT ($$NOW^XLF DT(),"2Z") ,Z=$J("",8 0-$L(Z)\2) _Z | |
| 990 | D SL(.INP UT,Z) | |
| 991 | ; | |
| 992 | ; PRCA276 add divis ions to he ader | |
| 993 | S Z1="" | |
| 994 | I 'VAUTD D | |
| 995 | . S Z0=0 | |
| 996 | . F D Q :'Z0 | |
| 997 | .. S Z0=$ O(VAUTD(Z0 )) | |
| 998 | .. Q:'Z0 | |
| 999 | .. S XX=$ $GET1^DIQ( 40.8,Z0,1, "I") ;Faci lity Numbe r ;PRCA*4. 5*321 | |
| 1000 | .. ;S Z1= Z1_VAUTD(Z 0)_", " | |
| 1001 | .. S Z1=Z 1_XX_", " | |
| 1002 | S Z="DIVI SIONS: "_$ S(VAUTD:"A LL",1:$E(Z 1,1,$L(Z1) -2)),Z=$J( "",80-$L(Z )\2)_Z | |
| 1003 | D SL(.INP UT,Z) | |
| 1004 | ; | |
| 1005 | ; PRCA276 add payer selection list to h eader | |
| 1006 | S NOJUST= 0 | |
| 1007 | I RCNP'=2 D | |
| 1008 | . S CTR=1 ,Z0=0,PLN( CTR)="" | |
| 1009 | . F D Q :'Z0 | |
| 1010 | . . S Z0= $O(^TMP("R CSELPAY",$ J,Z0)) | |
| 1011 | . . Q:'Z0 | |
| 1012 | . . S XX= ^TMP("RCSE LPAY",$J,Z 0) | |
| 1013 | . . I ($L (XX)+$L(PL N(CTR))+10 )>80 D | |
| 1014 | . . . S C TR=CTR+1,P LN(CTR)=" "_XX,NOJUS T=1 | |
| 1015 | . . E S PLN(CTR)=P LN(CTR)_$S (PLN(CTR)= "":XX,1:", "_XX) | |
| 1016 | S Z="PAYE RS: "_$S(R CNP=2:"ALL ",1:PLN(1) ) | |
| 1017 | S:'NOJUST Z=$J("",8 0-$L(Z)\2) _Z | |
| 1018 | D SL(.INP UT,Z) | |
| 1019 | S CTR=1 | |
| 1020 | F D Q:C TR="" | |
| 1021 | . S CTR=$ O(PLN(CTR) ) | |
| 1022 | . Q:CTR=" " | |
| 1023 | . D SL(.I NPUT,PLN(C TR)) | |
| 1024 | ; | |
| 1025 | ; PRCA276 add date filter to header | |
| 1026 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(DTST,"2 Z")_" - "_ $$FMTE^XLF DT(DTEND," 2Z") | |
| 1027 | S Z=Z_" ( DATE DEPOS IT ADDED) DEBIT ONLY EFTs: " ; PRCA*4. 5*321 debi t info | |
| 1028 | S Z=Z_$S( DONLY:"YES ",1:"NO") | |
| 1029 | S Z=$J("" ,80-$L(Z)\ 2)_Z | |
| 1030 | D SL(.INP UT,Z) | |
| 1031 | I DETL D | |
| 1032 | . ; | |
| 1033 | . ; PRCA* 4.5*283 - Add 3 more spaces be tween DEP # and DEPO SIT DT | |
| 1034 | . ; and r emove 3 sp aces betwe en DEPOSIT DT and DE P AMOUNT t o allow fo r 9 digit DEP #'s | |
| 1035 | . D SL(.I NPUT,"") | |
| 1036 | . S XX="D EP # DEPOS IT DT "_$J ("",19)_"D EP AMOUNT FMS DEPOSI T STAT" | |
| 1037 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1038 | . D SL(.I NPUT,Z) | |
| 1039 | . ; | |
| 1040 | . ; PRCA* 4.5*318, M ove entire EFT # row to left 1 space to adjust for other row s needing space | |
| 1041 | . ; PRCA* 4.5*284, M ove Match Status to left 3 spa ce to allo w for 10 d igit ERA # 's | |
| 1042 | . S XX=$J ("",2)_"EF T #"_$J("" ,22)_"DATE PD PAYMEN T AMOUNT E RA MATCH S TATUS" | |
| 1043 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1044 | . D SL(.I NPUT,Z) | |
| 1045 | . ; PRCA* 4.5*318, M ove entire EFT Payer Trace # r ow to left 6 spaces to adjust for other rows needi ng space | |
| 1046 | . S Z=$$S ETSTR^VALM 1($J("",4) _"EFT PAYE R TRACE #" ,"",1,52) | |
| 1047 | . S Z=$$S ETSTR^VALM 1("CR #",Z ,59,4) ;PR CA*4.5*318 add CR # | |
| 1048 | . D SL(.I NPUT,Z) | |
| 1049 | . ; PRCA* 4.5*318, M ove entire Payment F rom row to left 8 sp aces to ad just | |
| 1050 | . ; a pos sible 60 c haracter P ayer Name and 20 cha racter Pay er ID | |
| 1051 | . S XX=$J ("",6)_"PA YMENT FROM " | |
| 1052 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1053 | . D SL(.I NPUT,Z) | |
| 1054 | . S XX=$J ("",3)_"TR #" ;PRCA*4 .5*318 add TR # | |
| 1055 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1056 | . D SL(.I NPUT,Z) ; TR DOC hea der | |
| 1057 | . S XX=$J ("",36)_"D EBIT DEP R ECEIPT #" ;PRCA*4.5 *321 | |
| 1058 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1059 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1060 | . D SL(.I NPUT,Z) | |
| 1061 | D SL(.INP UT,$TR($J( "",IOM-1), " ","=")) | |
| 1062 | Q | |
| 1063 | ; | |
| 1064 | LMHDR(RCST OP,RCDET,R CNJ,RCDT1, RCDT2,RCHD R) ; Entry Point fro m RCDPEDAR | |
| 1065 | ; ListMan report he ading | |
| 1066 | ; | |
| 1067 | ; Input: RCDET - 1 to display detail, 0 otherwise | |
| 1068 | ; RCNJ - Set 1, ind icates rep ort was ca lled from the nightl y | |
| 1069 | ; process OR displa ying to li stman. Use d to set l ines | |
| 1070 | ; into a ^TMP array instead o f displayi ng them. | |
| 1071 | ; RCDT1 - Internal Start Date of date r ange | |
| 1072 | ; RCDT2 - Internal End Date o f date ran ge | |
| 1073 | ; RCNP - Payer Sele ction flag A1^A2^A3 Where: | |
| 1074 | . | |
| 1075 | . | |
| 1076 | . | |
| 1077 | ; | |
| 1078 | I 'RCDET D | |
| 1079 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1080 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(RCDT1," 2Z")_" - " | |
| 1081 | S Z=Z_$$F MTE^XLFDT( RCDT2,"2Z" )_" (Date Deposit Ad ded)" | |
| 1082 | I 'RCDET D | |
| 1083 | . | |
| 1084 | . | |
| 1085 | . | |
| 1086 | . S Z=$$S ETSTR^VALM 1($J("",6) _"PAYMENT FROM","",1 ,30) | |
| 1087 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT #",Z, 31,30) | |
| 1088 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1089 | . | |
| 1090 | . | |
| 1091 | . | |
| 1092 | ; | |
| 1093 | HDR(INPUT) ; Display s report h eader | |
| 1094 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 1095 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 1096 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 1097 | ; A3 - 1 if Detail report, 0 if summary report | |
| 1098 | ; A4 - Cu rrent Page Number | |
| 1099 | ; A5 - St op Flag | |
| 1100 | ; A6 - St art of Dat e Range | |
| 1101 | ; A7 - En d of Date Range | |
| 1102 | ; A9 - Cu rrent line count | |
| 1103 | ; 0 - Dis play all E FTs | |
| 1104 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 1105 | ; A4 - Cu rrent Page Number | |
| 1106 | ; A5 - St op Flag | |
| 1107 | ; A8 - Up dated line count | |
| 1108 | N CURPG,D ETL,DONLY, DTST,DTEND ,NJ,STOP,X ,XX,Y,Z,Z0 ,Z1 ;**F A** | |
| 1109 | S DETL=$P (INPUT,"^" ,3) | |
| 1110 | S STOP=$P (INPUT,"^" ,5) | |
| 1111 | S DTST=$P (INPUT,"^" ,6) ; Date Range Sta rt | |
| 1112 | S DTEND=$ P(INPUT,"^ ",7) ; Dat e Range En d | |
| 1113 | S NJ=$P(I NPUT,"^",1 ),CURPG=$P (INPUT,"^" ,4) | |
| 1114 | . | |
| 1115 | . | |
| 1116 | . | |
| 1117 | ; | |
| 1118 | ; PRCA276 add date filter to header | |
| 1119 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(DTST,"2 Z")_" - "_ $$FMTE^XLF DT(DTEND," 2Z") | |
| 1120 | S Z=$J("" ,80-$L(Z)\ 2)_Z | |
| 1121 | D SL(.INP UT,Z) | |
| 1122 | I DETL D | |
| 1123 | . | |
| 1124 | . | |
| 1125 | . | |
| 1126 | . D SL(.I NPUT,Z) ; TR DOC hea der | |
| 1127 | . S XX=$J ("",45)_"D EP RECEIPT #" | |
| 1128 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1129 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1130 | . D SL(.I NPUT,Z) | |
| 1131 | D SL(.INP UT,$TR($J( "",IOM-1), " ","=")) | |
| 1132 | Q | |
| 1133 | ; | |
| 1134 | TOTSDAY(IN PUT) ; Ent ry Point f rom RCDPED AR | |
| 1135 | ; Display the total s for the specified date | |
| 1136 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 1137 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 1138 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 1139 | ; A3 - 1 if Detail report, 0 if summary report | |
| 1140 | ; A4 - Cu rrent Page Number | |
| 1141 | ; A5 - St op Flag | |
| 1142 | ; A6 - St art of Dat e Range | |
| 1143 | ; A7 - En d of Date Range | |
| 1144 | ; A8 - Cu rrent Line Counter | |
| 1145 | ; A9 - In ternal Dat e being pr ocessed | |
| 1146 | ; ^TMP($J ,"TOTALS", "DEP") - C urrent Tot al # of de posits for date rang e | |
| 1147 | ; ^TMP($J ,"TOTALS", "DEP",C1) - Total # of deposit s for Inte rnal date (C1) | |
| 1148 | ; ^TMP($J ,"TOTALS", "DEPA") - Current To tal Deposi t Amount f or date ra nge | |
| 1149 | ; ^TMP($J ,"TOTALS", "DEPA",C1) - Total D eposit Amo unt for In ternal dat e (C1) | |
| 1150 | ; ^TMP($J ,"TOTALS", "EFT","D") - Total D eposit Amo unt by EFT s for date | |
| 1151 | ; ^TMP($J ,"TOTALS", "EFT","T") - Current Total Dep osit Amoun t by EFTs for range | |
| 1152 | ; ^TMP($J ,"TOTALS", "FMS") - F MS Documen t Status o r "NO FMS DOC" | |
| 1153 | ; ^TMP($J ,"TOTALS", "FMS","D", -1) - Tota l Deposit Amount by FMS Docume nt | |
| 1154 | ; ^TMP($J ,"TOTALS", "FMS","D", 0) - Total Amount fo r Error/Re jected doc uments | |
| 1155 | ; ^TMP($J ,"TOTALS", "FMS","D", 1") - Tota l Amount f or 'A','M' ,"F' or 'T ' docs | |
| 1156 | ; ^TMP($J ,"TOTALS", "FMS","D", 2") - Tota l Amount f or queued docs | |
| 1157 | ; ^TMP($J ,"TOTALS", "FMS","T", -1) - Tota l Deposit Amount by FMS Docume nt for ran ge | |
| 1158 | ; ^TMP($J ,"TOTALS", "FMS","T", 0) - Total Amount fo r Error/Re jected doc s for rang e | |
| 1159 | ; ^TMP($J ,"TOTALS", "FMS","T", 1") - Tota l Amount f or 'A','M' ,"F' or 'T ' docs ran ge | |
| 1160 | ; ^TMP($J ,"TOTALS", "FMS","T", 2") - Tota l Amount f or queued docs for r ange | |
| 1161 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Updated Total Depo sit Amount for date range | |
| 1162 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Curre nt Total m atched EFT s for date | |
| 1163 | ; ^TMP($J ,"TOTALS", "MATCH","T ") - Curre nt Total m atched EFT s for date range | |
| 1164 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 1165 | ; A4 - Up dated Page Number | |
| 1166 | ; A5 - St op Flag | |
| 1167 | ; A8 - Up dated Line Counter | |
| 1168 | ; ^TMP($J ,"TOTALS", "DEP") - U pdated Tot al # of de posits for date rang e | |
| 1169 | . | |
| 1170 | . | |
| 1171 | . | |
| 1172 | S XX=$J(" ",37)_"NOT IN FMS: $ "_$J(YY,"" ,2) | |
| 1173 | D SL(.INP UT,XX) | |
| 1174 | D SL(.INP UT," ") | |
| 1175 | S YY=+$G( ^TMP($J,"T OTALS","EF T","D")) | |
| 1176 | . | |
| 1177 | . | |
| 1178 | . | |
| 1179 | . | |
| 1180 | . | |
| 1181 | . | |
| 1182 | TOTSF(INPU T) ; Entry Point fro m RCDPEDAR | |
| 1183 | ; Display Final Tot als | |
| 1184 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 1185 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 1186 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 1187 | ; A3 - 1 if Detail report, 0 if summary report | |
| 1188 | ; A4 - Cu rrent Page Number | |
| 1189 | ; A5 - St op Flag | |
| 1190 | ; A6 - St art of Dat e Range | |
| 1191 | ; A7 - En d of Date Range | |
| 1192 | ; A8 - Cu rrent Line Counter | |
| 1193 | ; A9 - In ternal Dat e being pr ocessed | |
| 1194 | ; ^TMP($J ,"TOTALS", "EFT","T") - Total D eposit Amo unt by EFT s for rang e | |
| 1195 | . | |
| 1196 | . | |
| 1197 | . | |
| 1198 | S XX=$J(" ",37)_"NOT IN FMS: $ "_$J(YY,"" ,2) | |
| 1199 | D SL(.INP UT,XX) | |
| 1200 | D SL(.INP UT," ") | |
| 1201 | S YY=+$G( ^TMP($J,"T OTALS","EF T","T")) | |
| 1202 | . | |
| 1203 | . | |
| 1204 | .Modified Logic. | |
| 1205 | . | |
| 1206 | . | |
| 1207 | HDR(INPUT) ;EP from RCDPEDAR | |
| 1208 | ; Display s report h eader | |
| 1209 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 1210 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 1211 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 1212 | ; A3 - 1 if Detail report, 0 if summary report | |
| 1213 | ; A4 - Cu rrent Page Number | |
| 1214 | ; A5 - St op Flag | |
| 1215 | ; A6 - St art of Dat e Range | |
| 1216 | ; A7 - En d of Date Range | |
| 1217 | ; A9 - Cu rrent line count | |
| 1218 | ; A10- 1 - Only Dis play EFTs with a deb it flag of 'D' | |
| 1219 | ; 0 - Dis play all E FTs | |
| 1220 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 1221 | ; A4 - Cu rrent Page Number | |
| 1222 | ; A5 - St op Flag | |
| 1223 | ; A8 - Up dated line count | |
| 1224 | N CTR,CUR PG,DETL,DO NLY,DTST,D TEND,NJ,NO JUST,PLN,S TOP,X,XX,Y ,Z,Z0,Z1 | |
| 1225 | S DETL=$P (INPUT,"^" ,3) | |
| 1226 | S CURPG=$ P(INPUT,"^ ",4) | |
| 1227 | S STOP=$P (INPUT,"^" ,5) | |
| 1228 | S DTST=$P (INPUT,"^" ,6) ; Date Range Sta rt | |
| 1229 | S DTEND=$ P(INPUT,"^ ",7) ; Dat e Range En ds | |
| 1230 | S DONLY=$ P(INPUT,"^ ",10) ; EF Ts with De bits Only ;PRCA*4.5* 321 add de bit logic | |
| 1231 | S NJ=$P(I NPUT,"^",1 ) | |
| 1232 | Q:NJ&(CUR PG) | |
| 1233 | I CURPG!( $E(IOST,1, 2)="C-") D | |
| 1234 | . Q:NJ | |
| 1235 | . I CURPG ,($E(IOST, 1,2)="C-") D Q:STOP | |
| 1236 | . . S STO P=$$ASK() | |
| 1237 | . W @IOF ; Write fo rm feed | |
| 1238 | I STOP S $P(INPUT," ^",5)=1 Q | |
| 1239 | S CURPG=C URPG+1,$P( INPUT,"^", 4)=CURPG | |
| 1240 | ; | |
| 1241 | ; PRCA276 if coming from nigh tly job ne ed to defi ne payer s election v ariable | |
| 1242 | I NJ N RC NP S RCNP= 2 | |
| 1243 | ; | |
| 1244 | ; PRCA276 if coming from nigh tly job ne ed to defi ne divisio n selectio n variable | |
| 1245 | I NJ N VA UTD S VAUT D=1 | |
| 1246 | S Z0="EDI LOCKBOX E FT DAILY A CTIVITY "_ $S(DETL:"D ETAIL",1:" SUMMARY")_ " REPORT" | |
| 1247 | S Z=$$SET STR^VALM1( $J("",80-$ L(Z0)\2)_Z 0,"",1,79) | |
| 1248 | S Z=$$SET STR^VALM1( "Page: "_C URPG,Z,70, 10) | |
| 1249 | D SL(.INP UT,Z) | |
| 1250 | S Z="RUN DATE: "_$$ FMTE^XLFDT ($$NOW^XLF DT(),"2Z") ,Z=$J("",8 0-$L(Z)\2) _Z | |
| 1251 | D SL(.INP UT,Z) | |
| 1252 | ; | |
| 1253 | ; PRCA276 add divis ions to he ader | |
| 1254 | S Z1="" | |
| 1255 | I 'VAUTD D | |
| 1256 | . S Z0=0 | |
| 1257 | . F D Q :'Z0 | |
| 1258 | .. S Z0=$ O(VAUTD(Z0 )) | |
| 1259 | .. Q:'Z0 | |
| 1260 | .. S XX=$ $GET1^DIQ( 40.8,Z0,1, "I") ;Faci lity Numbe r ;PRCA*4. 5*321 | |
| 1261 | .. ;S Z1= Z1_VAUTD(Z 0)_", " | |
| 1262 | .. S Z1=Z 1_XX_", " | |
| 1263 | S Z="DIVI SIONS: "_$ S(VAUTD:"A LL",1:$E(Z 1,1,$L(Z1) -2)),Z=$J( "",80-$L(Z )\2)_Z | |
| 1264 | D SL(.INP UT,Z) | |
| 1265 | ; | |
| 1266 | ; PRCA276 add payer selection list to h eader | |
| 1267 | S NOJUST= 0 | |
| 1268 | I RCNP'=2 D | |
| 1269 | . S CTR=1 ,Z0=0,PLN( CTR)="" | |
| 1270 | . F D Q :'Z0 | |
| 1271 | . . S Z0= $O(^TMP("R CSELPAY",$ J,Z0)) | |
| 1272 | . . Q:'Z0 | |
| 1273 | . . S XX= ^TMP("RCSE LPAY",$J,Z 0) | |
| 1274 | . . I ($L (XX)+$L(PL N(CTR))+10 )>80 D | |
| 1275 | . . . S C TR=CTR+1,P LN(CTR)=" "_XX,NOJUS T=1 | |
| 1276 | . . E S PLN(CTR)=P LN(CTR)_$S (PLN(CTR)= "":XX,1:", "_XX) | |
| 1277 | S Z="PAYE RS: "_$S(R CNP=2:"ALL ",1:PLN(1) ) | |
| 1278 | S:'NOJUST Z=$J("",8 0-$L(Z)\2) _Z | |
| 1279 | D SL(.INP UT,Z) | |
| 1280 | S CTR=1 | |
| 1281 | F D Q:C TR="" | |
| 1282 | . S CTR=$ O(PLN(CTR) ) | |
| 1283 | . Q:CTR=" " | |
| 1284 | . D SL(.I NPUT,PLN(C TR)) | |
| 1285 | ; | |
| 1286 | ; PRCA276 add date filter to header | |
| 1287 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(DTST,"2 Z")_" - "_ $$FMTE^XLF DT(DTEND," 2Z") | |
| 1288 | S Z=Z_" ( DATE DEPOS IT ADDED) DEBIT ONLY EFTs: " ; PRCA*4. 5*321 debi t info | |
| 1289 | S Z=Z_$S( DONLY:"YES ",1:"NO") | |
| 1290 | S Z=$J("" ,80-$L(Z)\ 2)_Z | |
| 1291 | D SL(.INP UT,Z) | |
| 1292 | I DETL D | |
| 1293 | . ; | |
| 1294 | . ; PRCA* 4.5*283 - Add 3 more spaces be tween DEP # and DEPO SIT DT | |
| 1295 | . ; and r emove 3 sp aces betwe en DEPOSIT DT and DE P AMOUNT t o allow fo r 9 digit DEP #'s | |
| 1296 | . D SL(.I NPUT,"") | |
| 1297 | . S XX="D EP # DEPOS IT DT "_$J ("",8)_"DA TE PD DEP AMOUN T FMS DEPO SIT STAT" | |
| 1298 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1299 | . D SL(.I NPUT,Z) | |
| 1300 | . ; | |
| 1301 | . ; PRCA* 4.5*318, M ove entire EFT # row to left 1 space to adjust for other row s needing space | |
| 1302 | . ; PRCA* 4.5*284, M ove Match Status to left 3 spa ce to allo w for 10 d igit ERA # 's | |
| 1303 | . S XX=$J ("",2)_"EF T #"_$J("" ,19)_"MATC HED DT P AYMENT AMO UNT ERA MA TCH STATUS " | |
| 1304 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1305 | . D SL(.I NPUT,Z) | |
| 1306 | . ; PRCA* 4.5*318, M ove entire EFT Payer Trace # r ow to left 6 spaces to adjust for other rows needi ng space | |
| 1307 | . S Z=$$S ETSTR^VALM 1($J("",4) _"EFT PAYE R TRACE #" ,"",1,52) | |
| 1308 | . S Z=$$S ETSTR^VALM 1("CR #",Z ,59,4) ;PR CA*4.5*318 add CR # | |
| 1309 | . D SL(.I NPUT,Z) | |
| 1310 | . ; PRCA* 4.5*318, M ove entire Payment F rom row to left 8 sp aces to ad just | |
| 1311 | . ; a pos sible 60 c haracter P ayer Name and 20 cha racter Pay er ID | |
| 1312 | . S XX=$J ("",6)_"PA YMENT FROM " | |
| 1313 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1314 | . D SL(.I NPUT,Z) | |
| 1315 | . S XX=$J ("",3)_"TR #" ;PRCA*4 .5*318 add TR # | |
| 1316 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1317 | . D SL(.I NPUT,Z) ; TR DOC hea der | |
| 1318 | . S XX=$J ("",36)_"D EBIT DEP R ECEIPT #" ;PRCA*4.5 *321 | |
| 1319 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1320 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1321 | . D SL(.I NPUT,Z) | |
| 1322 | D SL(.INP UT,$TR($J( "",IOM-1), " ","=")) | |
| 1323 | Q | |
| 1324 | ; | |
| 1325 | . | |
| 1326 | . | |
| 1327 | .. | |
| 1328 | . | |
| 1329 | . | |
| 1330 | LMHDR(RCST OP,RCDET,R CNJ,RCDT1, RCDT2,RCHD R,DONLY) ; Entry Poi nt from RC DPEDAR | |
| 1331 | ; ListMan report he ading | |
| 1332 | ; | |
| 1333 | ; Input: RCDET - 1 to display detail, 0 otherwise | |
| 1334 | ; RCNJ - Set 1, ind icates rep ort was ca lled from the nightl y | |
| 1335 | ; process OR displa ying to li stman. Use d to set l ines | |
| 1336 | ; into a ^TMP array instead o f displayi ng them. | |
| 1337 | ; RCDT1 - Internal Start Date of date r ange | |
| 1338 | ; RCDT2 - Internal End Date o f date ran ge | |
| 1339 | ; DONLY - 1 - Only EFTs with debits, 0 - display all EFTs | |
| 1340 | ; RCNP - Payer Sele ction flag A1^A2^A3 Where: | |
| 1341 | . | |
| 1342 | . | |
| 1343 | . | |
| 1344 | ; | |
| 1345 | I 'RCDET D | |
| 1346 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1347 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(RCDT1," 2Z")_" - " | |
| 1348 | S Z=Z_$$F MTE^XLFDT( RCDT2,"2Z" )_" (Date Deposit Ad ded)" | |
| 1349 | S Z=Z_" D ebit Only EFTs: "_$S (DONLY=1:" YES",1:"NO ") | |
| 1350 | I 'RCDET D | |
| 1351 | . | |
| 1352 | . | |
| 1353 | . | |
| 1354 | . S Z=$$S ETSTR^VALM 1($J("",6) _"PAYMENT FROM","",1 ,30) | |
| 1355 | . S Z=$$S ETSTR^VALM 1("Debit", Z,37,5) | |
| 1356 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT #",Z, 45,30) | |
| 1357 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1358 | . | |
| 1359 | . | |
| 1360 | . | |
| 1361 | ; | |
| 1362 | HDR(INPUT) ; Display s report h eader | |
| 1363 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 1364 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 1365 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 1366 | ; A3 - 1 if Detail report, 0 if summary report | |
| 1367 | ; A4 - Cu rrent Page Number | |
| 1368 | ; A5 - St op Flag | |
| 1369 | ; A6 - St art of Dat e Range | |
| 1370 | ; A7 - En d of Date Range | |
| 1371 | ; A9 - Cu rrent line count | |
| 1372 | ; A10- 1 - Only Dis play EFTs with a deb it flag of 'D' | |
| 1373 | ; 0 - Dis play all E FTs | |
| 1374 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 1375 | ; A4 - Cu rrent Page Number | |
| 1376 | ; A5 - St op Flag | |
| 1377 | ; A8 - Up dated line count | |
| 1378 | N CURPG,D ETL,DONLY, DTST,DTEND ,NJ,STOP,X ,XX,Y,Z,Z0 ,Z1 | |
| 1379 | S DETL=$P (INPUT,"^" ,3) | |
| 1380 | S STOP=$P (INPUT,"^" ,5) | |
| 1381 | S DTST=$P (INPUT,"^" ,6) ; Date Range Sta rt | |
| 1382 | S DTEND=$ P(INPUT,"^ ",7) ; Dat e Range En d | |
| 1383 | S DONLY=$ P(INPUT,"^ ",10) ; EF Ts with De bits Only | |
| 1384 | S NJ=$P(I NPUT,"^",1 ),CURPG=$P (INPUT,"^" ,4) | |
| 1385 | . | |
| 1386 | . | |
| 1387 | . | |
| 1388 | ; | |
| 1389 | ; PRCA276 add date filter to header | |
| 1390 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(DTST,"2 Z")_" - "_ $$FMTE^XLF DT(DTEND," 2Z") | |
| 1391 | S Z=Z_" ( Date Depos it Added) Debit Only EFTs: " | |
| 1392 | S Z=Z_$S( DONLY:"YES ",1:"NO") | |
| 1393 | S Z=$J("" ,80-$L(Z)\ 2)_Z | |
| 1394 | D SL(.INP UT,Z) | |
| 1395 | I DETL D | |
| 1396 | . | |
| 1397 | . | |
| 1398 | . | |
| 1399 | . D SL(.I NPUT,Z) ; TR DOC hea der | |
| 1400 | . S XX=$J ("",36)_"D ebit DEP R ECEIPT #" | |
| 1401 | . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) | |
| 1402 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1403 | . D SL(.I NPUT,Z) | |
| 1404 | D SL(.INP UT,$TR($J( "",IOM-1), " ","=")) | |
| 1405 | Q | |
| 1406 | ; | |
| 1407 | TOTSDAY(IN PUT) ; Ent ry Point f rom RCDPED AR | |
| 1408 | ; Display the total s for the specified date | |
| 1409 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 1410 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 1411 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 1412 | ; A3 - 1 if Detail report, 0 if summary report | |
| 1413 | ; A4 - Cu rrent Page Number | |
| 1414 | ; A5 - St op Flag | |
| 1415 | ; A6 - St art of Dat e Range | |
| 1416 | ; A7 - En d of Date Range | |
| 1417 | ; A8 - Cu rrent Line Counter | |
| 1418 | ; A9 - In ternal Dat e being pr ocessed | |
| 1419 | ; ^TMP($J ,"TOTALS", "DEBIT") - Current T otal # of debits for date rang e | |
| 1420 | ; ^TMP($J ,"TOTALS", "DEBIT","D ") - Total # of debi ts for Int ernal date (C1) | |
| 1421 | ; ^TMP($J ,"TOTALS", "DEBITA") - Current Total Debi t Amount f or date ra nge | |
| 1422 | ; ^TMP($J ,"TOTALS", "DEBITA"," D") - Tota l Debit Am ount for I nternal da te (C1) | |
| 1423 | ; ^TMP($J ,"TOTALS", "DEP") - C urrent Tot al # of de posits for date rang e | |
| 1424 | ; ^TMP($J ,"TOTALS", "DEP",C1) - Total # of deposit s for Inte rnal date (C1) | |
| 1425 | ; ^TMP($J ,"TOTALS", "DEPA") - Current To tal Deposi t Amount f or date ra nge | |
| 1426 | ; ^TMP($J ,"TOTALS", "DEPA",C1) - Total D eposit Amo unt for In ternal dat e (C1) | |
| 1427 | ; ^TMP($J ,"TOTALS", "EFT","D") - Total D eposit Amo unt by EFT s for date | |
| 1428 | ; ^TMP($J ,"TOTALS", "EFT","T") - Current Total Dep osit Amoun t by EFTs for range | |
| 1429 | ; ^TMP($J ,"TOTALS", "FMS") - F MS Documen t Status o r "NO FMS DOC" | |
| 1430 | ; ^TMP($J ,"TOTALS", "FMS","D", -1) - Tota l Deposit Amount by FMS Docume nt | |
| 1431 | ; ^TMP($J ,"TOTALS", "FMS","D", 0) - Total Amount fo r Error/Re jected doc uments | |
| 1432 | ; ^TMP($J ,"TOTALS", "FMS","D", 1") - Tota l Amount f or 'A','M' ,"F' or 'T ' docs | |
| 1433 | ; ^TMP($J ,"TOTALS", "FMS","D", 2") - Tota l Amount f or queued docs | |
| 1434 | ; ^TMP($J ,"TOTALS", "FMS","T", -1) - Tota l Deposit Amount by FMS Docume nt for ran ge | |
| 1435 | ; ^TMP($J ,"TOTALS", "FMS","T", 0) - Total Amount fo r Error/Re jected doc s for rang e | |
| 1436 | ; ^TMP($J ,"TOTALS", "FMS","T", 1") - Tota l Amount f or 'A','M' ,"F' or 'T ' docs ran ge | |
| 1437 | ; ^TMP($J ,"TOTALS", "FMS","T", 2") - Tota l Amount f or queued docs for r ange | |
| 1438 | ; ^TMP($J ,"TOTALS", "FMSTOT") - Updated Total Depo sit Amount for date range | |
| 1439 | ; ^TMP($J ,"TOTALS", "MATCH","D ") - Curre nt Total m atched EFT s for date | |
| 1440 | ; ^TMP($J ,"TOTALS", "MATCH","T ") - Curre nt Total m atched EFT s for date range | |
| 1441 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed | |
| 1442 | ; A4 - Up dated Page Number | |
| 1443 | ; A5 - St op Flag | |
| 1444 | ; A8 - Up dated Line Counter | |
| 1445 | ; ^TMP($J ,"TOTALS", "DEBIT") - Updated T otal # of debits for date rang e | |
| 1446 | ; ^TMP($J ,"TOTALS", "DEBIT","D ") - Updat ed Total # of debits for Inter nal date | |
| 1447 | ; ^TMP($J ,"TOTALS", "DEBITA") - Updated Total Debi t Amount f or date ra nge | |
| 1448 | ; ^TMP($J ,"TOTALS", "DEBITA"," D") - Upda ted Total Debit Amou nt for Int ernal date | |
| 1449 | ; ^TMP($J ,"TOTALS", "DEP") - U pdated Tot al # of de posits for date rang e | |
| 1450 | . | |
| 1451 | . | |
| 1452 | . | |
| 1453 | S XX=$J(" ",37)_"NOT IN FMS: $ "_$J(YY,"" ,2) | |
| 1454 | D SL(.INP UT,XX) | |
| 1455 | D SL(.INP UT," ") | |
| 1456 | ; | |
| 1457 | S XX=$G(^ TMP($J,"TO TALS","DEB IT")) ; Cu rrent Tota l # of deb it EFTs fo r date ran ge | |
| 1458 | S YY=$G(^ TMP($J,"TO TALS","DEB IT","D")) ; Total # of debit E FTs for da te | |
| 1459 | S ^TMP($J ,"TOTALS", "DEBIT")=X X+YY ; Upda ted Total # of debit EFTs for range | |
| 1460 | S XX=$G(^ TMP($J,"TO TALS","DEB ITA")) ; C urrent Tot al amount of debit E FTs for da te range | |
| 1461 | S YY=$G(^ TMP($J,"TO TALS","DEB ITA","D")) ; Total a mount of d ebit EFTs for date | |
| 1462 | S ^TMP($J ,"TOTALS", "DEBITA")= XX+YY ; Upda ted Total amount of debit EFTs for range | |
| 1463 | S YY=+$G( ^TMP($J,"T OTALS","DE BIT","D")) | |
| 1464 | S XX=$J(" ",27)_"# E FT DEBIT V OUCHERS: " _YY | |
| 1465 | D SL(.INP UT,XX) | |
| 1466 | S YY=+$G( ^TMP($J,"T OTALS","DE BITA","D") ) | |
| 1467 | S XX=$J(" ",27)_"TOT AL DEBIT V OUCHERS: $ "_$J(YY,"" ,2) | |
| 1468 | D SL(.INP UT,XX) | |
| 1469 | D SL(.INP UT," ") | |
| 1470 | ; | |
| 1471 | S YY=+$G( ^TMP($J,"T OTALS","EF T","D")) | |
| 1472 | . | |
| 1473 | . | |
| 1474 | . | |
| 1475 | TOTSF(INPU T) ; Entry Point fro m RCDPEDAR | |
| 1476 | ; Display Final Tot als | |
| 1477 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 1478 | ; A1 - 1 if called from Night ly Process , 0 otherw ise | |
| 1479 | ; A2 - 1 if display ing to Lis tman, 0 ot herwise | |
| 1480 | ; A3 - 1 if Detail report, 0 if summary report | |
| 1481 | ; A4 - Cu rrent Page Number | |
| 1482 | ; A5 - St op Flag | |
| 1483 | ; A6 - St art of Dat e Range | |
| 1484 | ; A7 - En d of Date Range | |
| 1485 | ; A8 - Cu rrent Line Counter | |
| 1486 | ; A9 - In ternal Dat e being pr ocessed | |
| 1487 | ; ^TMP($J ,"TOTALS", "DEP") - T otal # of deposits f or date ra nge | |
| 1488 | ; ^TMP($J ,"TOTALS", "DEPA") - Total Depo sit Amount for date range | |
| 1489 | ; ^TMP($J ,"TOTALS", "EFT","T") - Total D eposit Amo unt by EFT s for rang e | |
| 1490 | ; | |
| 1491 | . | |
| 1492 | . | |
| 1493 | . | |
| 1494 | S XX=$J(" ",37)_"NOT IN FMS: $ "_$J(YY,"" ,2) | |
| 1495 | D SL(.INP UT,XX) | |
| 1496 | D SL(.INP UT," ") | |
| 1497 | ; | |
| 1498 | S YY=+$G( ^TMP($J,"T OTALS","DE BIT")) | |
| 1499 | S XX=$J(" ",21)_"TOT AL # EFT D EBIT VOUCH ERS: "_YY | |
| 1500 | D SL(.INP UT,XX) | |
| 1501 | S YY=+$G( ^TMP($J,"T OTALS","DE BITA")) | |
| 1502 | S XX=$J(" ",27)_"TOT AL DEBIT V OUCHERS: $ "_$J(YY,"" ,2) | |
| 1503 | D SL(.INP UT,XX) | |
| 1504 | D SL(.INP UT," ") | |
| 1505 | ; | |
| 1506 | S YY=+$G( ^TMP($J,"T OTALS","EF T","T")) | |
| 1507 | . | |
| 1508 | . | |
| 1509 | .RoutinesA ctivitiesR outine Nam eRCDPEDA4S R3Enhancem ent Catego ry New Mod ify Delete No Change RTMRelated OptionsRC DPE EDU LO CKBOX ACT REPORTRela ted Routin esRoutines “Called B y”Routines “Called” RCDPEDA2 EM | |
| 1510 | RCDPEDARSR 2 | |
| 1511 | RCDPESRVBU LLEFT^RCDP SR0 | |
| 1512 | ERRUPD^RCD PESR1 | |
| 1513 | TAXERR^RCD PESR1 | |
| 1514 | BULL2^RCDP ESR5 | |
| 1515 | DISP^RCDPE SR8 | |
| 1516 | $$FDT^RCDP ESR9 | |
| 1517 | $$ZERO^RCD PESR9Curre nt Logic. | |
| 1518 | . | |
| 1519 | . | |
| 1520 | LMHDR(RCST OP,RCDET,R CNJ,RCDT1, RCDT2,RCHD R,DONLY) ; EP from RC DPEDAR | |
| 1521 | ; ListMan report he ading | |
| 1522 | ; Input: RCDET - 1 to display detail, 0 otherwise | |
| 1523 | ; RCNJ - Set 1, ind icates rep ort was ca lled from the nightl y | |
| 1524 | ; process OR displa ying to li stman. Use d to set l ines | |
| 1525 | ; into a ^TMP array instead o f displayi ng them. | |
| 1526 | ; RCDT1 - Internal Start Date of date r ange | |
| 1527 | ; RCDT2 - Internal End Date o f date ran ge | |
| 1528 | ; DONLY - 1 - Only EFTs with debits, 0 - display all EFTs | |
| 1529 | ; RCNP - Payer Sele ction flag A1^A2^A3 Where: | |
| 1530 | ; A1 - 1 - Range,2 - All,3 -S pecific | |
| 1531 | ; A2 - Fr om Payer t ext (only set if A1= 1) | |
| 1532 | ; A3 - Th rough text (only set if A1=1) | |
| 1533 | ; ^TMP("R CSELPAY",$ J,B1) - Se lected pay ers to be displayed | |
| 1534 | ; Output: RCHDR - A rray of li stman head er lines | |
| 1535 | ; RCSTOP - 1 if use r stopped | |
| 1536 | ; | |
| 1537 | N RCCT,X, XX,Y,Z,Z0, Z1 | |
| 1538 | S RCCT=0 | |
| 1539 | S XX=$S(R CDET:"DETA IL",1:"SUM MARY")_" R EPORT" | |
| 1540 | S RCHDR(" TITLE")="E DI LOCKBOX EFT DAILY ACTIVITY "_XX | |
| 1541 | S Z1="" | |
| 1542 | I 'VAUTD D | |
| 1543 | . S Z0=0 | |
| 1544 | . F D Q :'Z0 | |
| 1545 | . . S Z0= $O(VAUTD(Z 0)) | |
| 1546 | . . Q:'Z0 | |
| 1547 | . . S XX= $$GET1^DIQ (40.8,Z0,1 ,"I") ; Fa cility Num ber ;PRCA* 4.5*321 | |
| 1548 | . . ;S Z1 =Z1_VAUTD( Z0)_", " | |
| 1549 | . . S Z1= Z1_XX_", " | |
| 1550 | S Z="DIVI SIONS: "_$ S(VAUTD:"A LL",1:$E(Z 1,1,$L(Z1) -2)) | |
| 1551 | I 'RCDET D | |
| 1552 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1553 | S RCCT=RC CT+1,RCHDR (RCCT)=Z | |
| 1554 | ; | |
| 1555 | I 'RCDET D | |
| 1556 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1557 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(RCDT1," 2Z")_" - " | |
| 1558 | S Z=Z_$$F MTE^XLFDT( RCDT2,"2Z" )_" (DATE DEPOSIT AD DED)" | |
| 1559 | S Z=Z_" D EBIT ONLY EFTs: "_$S (DONLY=1:" YES",1:"NO ") ; PRCA* 4.5*321 Ad ded line | |
| 1560 | I 'RCDET D | |
| 1561 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1562 | S RCCT=RC CT+1,RCHDR (RCCT)=Z | |
| 1563 | I RCDET D | |
| 1564 | . S XX="D EP # DEPOS IT DT "_$J ("",19) | |
| 1565 | . S XX=XX _"DEP AMOU NT FMS DEP OSIT STAT" | |
| 1566 | . S Z=$$S ETSTR^VALM 1(XX,"",1, 80) | |
| 1567 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1568 | . ; PRCA* 4.5*318, M ove entire EFT # row to left 1 space to adjust for other row s needing space | |
| 1569 | . S XX=$J ("",2)_"EF T #"_$J("" ,22)_"DATE PD PAYMEN T AMOUNT E RA MATCH S TATUS" | |
| 1570 | . S Z=$$S ETSTR^VALM 1(XX,"",1, 80) | |
| 1571 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1572 | . ; PRCA* 4.5*318, M ove entire EFT Payer Trace # r ow to left 6 spaces to adjust for other rows needi ng space | |
| 1573 | . S Z=$$S ETSTR^VALM 1($J("",4) _"EFT PAYE R TRACE #" ,"",1,30) | |
| 1574 | . ;PRCA*4 .5*318 add CR # | |
| 1575 | . S Z=$$S ETSTR^VALM 1("CR #",Z ,59,80) | |
| 1576 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1577 | . ; PRCA* 4.5*318, M ove entire Payment F rom row to left 8 sp aces to ad just | |
| 1578 | . ; a pos sible 60 c haracter P ayer Name and 20 cha racter Pay er ID | |
| 1579 | . S Z=$$S ETSTR^VALM 1($J("",6) _"PAYMENT FROM","",1 ,30) | |
| 1580 | . S Z=$$S ETSTR^VALM 1("DEBIT", Z,37,5) ; PRCA*4.5*3 21 Added l ine | |
| 1581 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT #",Z, 45,30) ; P RCA*4.5*32 1 used to be 31,30 | |
| 1582 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1583 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1584 | . ;PRCA*4 .5*318 add TR #s | |
| 1585 | . S Z=$$S ETSTR^VALM 1("TR #"," ",4,30) | |
| 1586 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1587 | Q | |
| 1588 | ;. | |
| 1589 | . | |
| 1590 | . | |
| 1591 | ; | |
| 1592 | EFTIN(RCTX N,RCD,XMZ, RCGBL,RCEF LG) ; Adds a new EFT record to AR file 3 44.3 | |
| 1593 | ; from Lo ckbox EFT msg | |
| 1594 | ; RCTXN = the data on the hea der record of the me ssage text | |
| 1595 | ; RCD = a rray conta ining form atted mail message h eader data | |
| 1596 | ; XMZ = t he mail me ssage numb er | |
| 1597 | ; RCGBL = the name of the arr ay or glob al where t he message is stored | |
| 1598 | ; RCEFLG = error fl ag returne d if passe d by refer ence | |
| 1599 | ; | |
| 1600 | N CT,RC,R C1,RCLAST, RCEFT,RCTD A,RCERR,RC TYP1,DA,DI K,RCZ,Z,Z0 ,DLAYGO | |
| 1601 | ; | |
| 1602 | ; Take da ta out of mail messa ge | |
| 1603 | S (RCEFLG ,RCLAST)=0 ,CT=0,RCTY P1="835EFT " | |
| 1604 | F X XMRE C Q:XMER<0 D Q:RCLA ST | |
| 1605 | . I +XMRG =99,$P(XMR G,U,2)="$" S RCLAST= 1 Q | |
| 1606 | . S:XMRG' ="" CT=CT+ 1,@RCGBL@( 2,"D",CT)= XMRG | |
| 1607 | ; | |
| 1608 | I 'RCLAST ,'$G(RCERR ) K @RCGBL S RCERR=2 ;No $ as last chara cter of ms g | |
| 1609 | ; | |
| 1610 | I $G(RCER R)>0 D G EFTQ | |
| 1611 | . D ERRUP D^RCDPESR1 (RCGBL,.RC D,RCTYP1,. RCERR) | |
| 1612 | . S RCEFL G=1 | |
| 1613 | ; | |
| 1614 | ; Add top -level ent ry to file 344.3 | |
| 1615 | S RCEFT=$ $ADDEFT(RC TXN,XMZ,RC GBL,.RCERR ) | |
| 1616 | ; | |
| 1617 | I $G(RCER R) D G EF TQ ; 'BAD' EFT's | |
| 1618 | . D ERRUP D^RCDPESR1 (RCGBL,.RC D,RCTYP1,. RCERR) | |
| 1619 | . S RCEFL G=1 | |
| 1620 | ; | |
| 1621 | G:'RCEFT EFTQ | |
| 1622 | ; | |
| 1623 | ; Add the detail da ta to file 344.31 fo r this EFT record | |
| 1624 | S Z=0 F S Z=$O(^RC Y(344.31," B",RCEFT,Z )) Q:'Z S DA=Z,DIK= "^RCY(344. 31," D ^DI K ; Delete any detai l data alr eady there | |
| 1625 | ; | |
| 1626 | S (RC,RC1 ,RCZ)=0 | |
| 1627 | F S RCZ= $O(@RCGBL@ (2,"D",RCZ )) Q:'RCZ S Z0=$G(^ (RCZ)) I Z 0'="" D Q :$G(RCERR) | |
| 1628 | . I $P(Z0 ,U)="01" D ; Each p ayer's dat a | |
| 1629 | .. N DA,D IE,DR,X,Y, DO,DD,DIC | |
| 1630 | .. S X=RC EFT | |
| 1631 | .. S DIC( "DR")=".11 ////0;.04/ ///"_$P(Z0 ,U,2)_";.0 8////0"_$S ($P(Z0,U,5 )'="":";.0 2////"_$P( Z0,U,5),1: "")_$S($P( Z0,U,6)'=" ":";.03/// /"_$P(Z0,U ,6),1:"")_ ";.07////" _$J(+$P(Z0 ,U,4)/100, "",2)_";.0 6////"_$S( $P(Z0,U,8) '="":1,1:0 ) | |
| 1632 | .. S DIC( "DR")=DIC( "DR")_";.1 2///"_$$FD T^RCDPESR9 ($P(Z0,U,3 ))_";.13// //"_DT_$S( $P(Z0,U,7) '="":";.05 ////"_$P(Z 0,U,7),1:" ")_$S($P(Z 0,U,9)'="" :";.15//// "_$P(Z0,U, 9),1:"") | |
| 1633 | .. ; | |
| 1634 | . | |
| 1635 | . | |
| 1636 | . | |
| 1637 | . | |
| 1638 | . | |
| 1639 | .Modified Logic (Cha nges are i n bold). | |
| 1640 | . | |
| 1641 | . | |
| 1642 | LMHDR(RCST OP,RCDET,R CNJ,RCDT1, RCDT2,RCHD R,DONLY) ; EP from RC DPEDAR | |
| 1643 | ; ListMan report he ading | |
| 1644 | ; Input: RCDET - 1 to display detail, 0 otherwise | |
| 1645 | ; RCNJ - Set 1, ind icates rep ort was ca lled from the nightl y | |
| 1646 | ; process OR displa ying to li stman. Use d to set l ines | |
| 1647 | ; into a ^TMP array instead o f displayi ng them. | |
| 1648 | ; RCDT1 - Internal Start Date of date r ange | |
| 1649 | ; RCDT2 - Internal End Date o f date ran ge | |
| 1650 | ; DONLY - 1 - Only EFTs with debits, 0 - display all EFTs | |
| 1651 | ; RCNP - Payer Sele ction flag A1^A2^A3 Where: | |
| 1652 | ; A1 - 1 - Range,2 - All,3 -S pecific | |
| 1653 | ; A2 - Fr om Payer t ext (only set if A1= 1) | |
| 1654 | ; A3 - Th rough text (only set if A1=1) | |
| 1655 | ; ^TMP("R CSELPAY",$ J,B1) - Se lected pay ers to be displayed | |
| 1656 | ; Output: RCHDR - A rray of li stman head er lines | |
| 1657 | ; RCSTOP - 1 if use r stopped | |
| 1658 | ; | |
| 1659 | N RCCT,X, XX,Y,Z,Z0, Z1 | |
| 1660 | S RCCT=0 | |
| 1661 | S XX=$S(R CDET:"DETA IL",1:"SUM MARY")_" R EPORT" | |
| 1662 | S RCHDR(" TITLE")="E DI LOCKBOX EFT DAILY ACTIVITY "_XX | |
| 1663 | S Z1="" | |
| 1664 | I 'VAUTD D | |
| 1665 | . S Z0=0 | |
| 1666 | . F D Q :'Z0 | |
| 1667 | . . S Z0= $O(VAUTD(Z 0)) | |
| 1668 | . . Q:'Z0 | |
| 1669 | . . S XX= $$GET1^DIQ (40.8,Z0,1 ,"I") ; Fa cility Num ber ;PRCA* 4.5*321 | |
| 1670 | . . ;S Z1 =Z1_VAUTD( Z0)_", " | |
| 1671 | . . S Z1= Z1_XX_", " | |
| 1672 | S Z="DIVI SIONS: "_$ S(VAUTD:"A LL",1:$E(Z 1,1,$L(Z1) -2)) | |
| 1673 | I 'RCDET D | |
| 1674 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1675 | S RCCT=RC CT+1,RCHDR (RCCT)=Z | |
| 1676 | ; | |
| 1677 | I 'RCDET D | |
| 1678 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1679 | S Z="DATE RANGE: "_ $$FMTE^XLF DT(RCDT1," 2Z")_" - " | |
| 1680 | S Z=Z_$$F MTE^XLFDT( RCDT2,"2Z" )_" (DATE DEPOSIT AD DED)" | |
| 1681 | S Z=Z_" D EBIT ONLY EFTs: "_$S (DONLY=1:" YES",1:"NO ") ; PRCA* 4.5*321 Ad ded line | |
| 1682 | I 'RCDET D | |
| 1683 | . S RCCT= RCCT+1,RCH DR(RCCT)=" " | |
| 1684 | S RCCT=RC CT+1,RCHDR (RCCT)=Z | |
| 1685 | I RCDET D | |
| 1686 | . S XX="D EP # DEPOS IT DT "_$J ("",18)_”D ATE PD” | |
| 1687 | . S XX=XX _"DEP AMOU NT FMS DEP OSIT STAT" | |
| 1688 | . S Z=$$S ETSTR^VALM 1(XX,"",1, 80) | |
| 1689 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1690 | . ; PRCA* 4.5*318, M ove entire EFT # row to left 1 space to adjust for other row s needing space | |
| 1691 | . S XX=$J ("",2)_"EF T #"_$J("" ,19)_"MATC HED DT P AYMENT AMO UNT ERA MA TCH STATUS " | |
| 1692 | . S Z=$$S ETSTR^VALM 1(XX,"",1, 80) | |
| 1693 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1694 | . ; PRCA* 4.5*318, M ove entire EFT Payer Trace # r ow to left 6 spaces to adjust for other rows needi ng space | |
| 1695 | . S Z=$$S ETSTR^VALM 1($J("",4) _"EFT PAYE R TRACE #" ,"",1,30) | |
| 1696 | . ;PRCA*4 .5*318 add CR # | |
| 1697 | . S Z=$$S ETSTR^VALM 1("CR #",Z ,59,80) | |
| 1698 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1699 | . ; PRCA* 4.5*318, M ove entire Payment F rom row to left 8 sp aces to ad just | |
| 1700 | . ; a pos sible 60 c haracter P ayer Name and 20 cha racter Pay er ID | |
| 1701 | . S Z=$$S ETSTR^VALM 1($J("",6) _"PAYMENT FROM","",1 ,30) | |
| 1702 | . S Z=$$S ETSTR^VALM 1("DEBIT", Z,37,5) ; PRCA*4.5*3 21 Added l ine | |
| 1703 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT #",Z, 45,30) ; P RCA*4.5*32 1 used to be 31,30 | |
| 1704 | . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) | |
| 1705 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1706 | . ;PRCA*4 .5*318 add TR #s | |
| 1707 | . S Z=$$S ETSTR^VALM 1("TR #"," ",4,30) | |
| 1708 | . S RCCT= RCCT+1,RCH DR(RCCT)=Z | |
| 1709 | Q | |
| 1710 | ; | |
| 1711 | . | |
| 1712 | . | |
| 1713 | .. | |
| 1714 | . | |
| 1715 | . | |
| 1716 | ; | |
| 1717 | EFTIN(RCTX N,RCD,XMZ, RCGBL,RCEF LG) ; Adds a new EFT record to AR file 3 44.3 | |
| 1718 | ; from Lo ckbox EFT msg | |
| 1719 | ; RCTXN = the data on the hea der record of the me ssage text | |
| 1720 | ; RCD = a rray conta ining form atted mail message h eader data | |
| 1721 | ; XMZ = t he mail me ssage numb er | |
| 1722 | ; RCGBL = the name of the arr ay or glob al where t he message is stored | |
| 1723 | ; RCEFLG = error fl ag returne d if passe d by refer ence | |
| 1724 | ; | |
| 1725 | N CT,RC,R C1,RCLAST, RCEFT,RCTD A,RCERR,RC TYP1,DA,DI K,RCZ,Z,Z0 ,DLAYGO | |
| 1726 | ; | |
| 1727 | ; Take da ta out of mail messa ge | |
| 1728 | S (RCEFLG ,RCLAST)=0 ,CT=0,RCTY P1="835EFT " | |
| 1729 | F X XMRE C Q:XMER<0 D Q:RCLA ST | |
| 1730 | . I +XMRG =99,$P(XMR G,U,2)="$" S RCLAST= 1 Q | |
| 1731 | . S:XMRG' ="" CT=CT+ 1,@RCGBL@( 2,"D",CT)= XMRG | |
| 1732 | ; | |
| 1733 | I 'RCLAST ,'$G(RCERR ) K @RCGBL S RCERR=2 ;No $ as last chara cter of ms g | |
| 1734 | ; | |
| 1735 | I $G(RCER R)>0 D G EFTQ | |
| 1736 | . D ERRUP D^RCDPESR1 (RCGBL,.RC D,RCTYP1,. RCERR) | |
| 1737 | . S RCEFL G=1 | |
| 1738 | ; | |
| 1739 | ; Add top -level ent ry to file 344.3 | |
| 1740 | S RCEFT=$ $ADDEFT(RC TXN,XMZ,RC GBL,.RCERR ) | |
| 1741 | ; | |
| 1742 | I $G(RCER R) D G EF TQ ; 'BAD' EFT's | |
| 1743 | . D ERRUP D^RCDPESR1 (RCGBL,.RC D,RCTYP1,. RCERR) | |
| 1744 | . S RCEFL G=1 | |
| 1745 | ; | |
| 1746 | G:'RCEFT EFTQ | |
| 1747 | ; | |
| 1748 | ; Add the detail da ta to file 344.31 fo r this EFT record | |
| 1749 | S Z=0 F S Z=$O(^RC Y(344.31," B",RCEFT,Z )) Q:'Z S DA=Z,DIK= "^RCY(344. 31," D ^DI K ; Delete any detai l data alr eady there | |
| 1750 | ; | |
| 1751 | S (RC,RC1 ,RCZ)=0 | |
| 1752 | F S RCZ= $O(@RCGBL@ (2,"D",RCZ )) Q:'RCZ S Z0=$G(^ (RCZ)) I Z 0'="" D Q :$G(RCERR) | |
| 1753 | . I $P(Z0 ,U)="01" D ; Each p ayer's dat a | |
| 1754 | .. N DA,D IE,DR,X,Y, DO,DD,DIC | |
| 1755 | .. S X=RC EFT | |
| 1756 | .. S DIC( "DR")=".11 ////0;.04/ ///"_$P(Z0 ,U,2)_";.0 8////0"_$S ($P(Z0,U,5 )'="":";.0 2////"_$P( Z0,U,5),1: "")_$S($P( Z0,U,6)'=" ":";.03/// /"_$P(Z0,U ,6),1:"")_ ";.07////" _$J(+$P(Z0 ,U,4)/100, "",2)_";.0 6////"_$S( $P(Z0,U,8) '="":1,1:0 ) | |
| 1757 | .. S DIC( "DR")=DIC( "DR")_";.1 2///"_$$FD T^RCDPESR9 ($P(Z0,U,3 ))_";.13// //"_DT_$S( $P(Z0,U,7) '="":";.05 ////"_$P(Z 0,U,7),1:" ")_$S($P(Z 0,U,9)'="" :";.15//// "_$P(Z0,U, 9),1:"") | |
| 1758 | .. ; | |
| 1759 | .. S DIC( "DR")=".11 ////0;.04/ ///"_$P(Z0 ,U,2)_";.0 8////0" | |
| 1760 | .. S DIC( "DR")=DIC( "DR")_$S($ P(Z0,U,5)' ="":";.02/ ///"_$P(Z0 ,U,5),1:"" ) | |
| 1761 | .. S DIC( "DR")=DIC( "DR")_$S($ P(Z0,U,6)' ="":";.03/ ///"_$P(Z0 ,U,6),1:"" ) | |
| 1762 | .. S DIC( "DR")=DIC( "DR")_";.0 7////"_$J( +$P(Z0,U,4 )/100,"",2 ) | |
| 1763 | .. S DIC( "DR")=DIC( "DR")_";.0 6////"_$S( $P(Z0,U,8) '="":1,1:0 ) | |
| 1764 | .. S DIC( "DR")=DIC( "DR")_";.1 2///"_$$FD T^RCDPESR9 ($P(Z0,U,3 )) | |
| 1765 | .. S DIC( "DR")=DIC( "DR")_";.1 3////"_DT_ $S($P(Z0,U ,7)'="":"; .05////"_$ P(Z0,U,7), 1:"") | |
| 1766 | .. S DIC( "DR")=DIC( "DR")_$S($ P(Z0,U,9)' ="":";.15/ ///"_$P(Z0 ,U,9),1:"" ) | |
| 1767 | .. S XX=$ S($P(Z0,U, 10)="D":"D ",$P(Z0,U, 10)="-":"D ",1:"") | |
| 1768 | .. S DIC( "DR")=DIC( "DR")_";.2 0////"_XX | |
| 1769 | . | |
| 1770 | . | |
| 1771 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.