Produced by Araxis Merge on 8/2/2017 2:39:10 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US189 SDD.docx | Wed Jun 21 18:21:36 2017 UTC |
| 2 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US189 SDD.docx | Wed Aug 2 15:49:57 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 1592 |
| 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 USPY-18 9 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*3 18 | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | March 2017 | |
| 10 | Version 1. 2 | |
| 11 | User Story Number: U SPY-189 | |
| 12 | User Story Name: Exp and payer name to 60 character s on EFT r eports (Ba cklog #xx, Row 358) | |
| 13 | Story | |
| 14 | As a user, I need to see all t ransmitted EFTs on m y Daily Ac tivity Rep ort [RCDPE EDI LOCKB OX ACT REP ORT], EFT Unmatched Aging Repo rt [RCDPE EFT AGING REPORT] an d Unapplie d EFT Repo rt [RCDPE UNAPPLIED EFT DEP R EPORT]. | |
| 15 | ||
| 16 | ||
| 17 | Resoluti on – Added Changed O bjects | |
| 18 | ||
| 19 | Routines | |
| 20 | Activities | |
| 21 | Routine Na me | |
| 22 | RCDPEDAR | |
| 23 | Enhancemen t Category | |
| 24 | New | |
| 25 | Modify | |
| 26 | Delete | |
| 27 | No Change | |
| 28 | RTM | |
| 29 | ||
| 30 | Related Op tions | |
| 31 | RCDPE EDI LOCKBOX AC T REPORT | |
| 32 | Routines | |
| 33 | Activities | |
| 34 | Data Dicti onary (DD) Reference s | |
| 35 | ||
| 36 | Related Pr otocols | |
| 37 | ||
| 38 | Related In tegration Control Re gistration s (ICRs) | |
| 39 | ||
| 40 | Data Passi ng | |
| 41 | Input | |
| 42 | Output Re ference | |
| 43 | Both | |
| 44 | Global Re ference | |
| 45 | Local | |
| 46 | Input Attr ibute Name and Defin ition | |
| 47 | Name: | |
| 48 | Definition : | |
| 49 | Output Att ribute Nam e and Defi nition | |
| 50 | Name: | |
| 51 | Definition : | |
| 52 | ||
| 53 | Related Ro utines | |
| 54 | Routines “ Called By” | |
| 55 | Routines “ Called” | |
| 56 | ||
| 57 | RPTOUT^RCD PEAR1 | |
| 58 | RPTOUT^RCD PEAR2 | |
| 59 | EN2^RCDPEM 1 | |
| 60 | ||
| 61 | DIVISION^V AUTOMA | |
| 62 | $$GETPAY^R CDPEM9 | |
| 63 | ASKLM^RCDP EARL | |
| 64 | LMHDR^RCDP EDA3 | |
| 65 | LMRPT^RCDP EARL | |
| 66 | ASK^RCDPEA RL | |
| 67 | HDR^RCDPED A3 | |
| 68 | SL^RCDPEDA 3 | |
| 69 | RPT2^RCDPE DA2 | |
| 70 | TOTSDAY^RC DPEDA3 | |
| 71 | TOTSF^RCDP EDA3 | |
| 72 | $$ENDORPRT ^RCDPEARL | |
| 73 | $$ERASTA^R CDPEM3 | |
| 74 | ENDORPRT^R CDPEARL | |
| 75 | ERASTA^RCD PEM3 | |
| 76 | ||
| 77 | ||
| 78 | ||
| 79 | Current Lo gic | |
| 80 | . | |
| 81 | . | |
| 82 | . | |
| 83 | ;EN(RCDET ,RCDT1,RCD T2) ; Entr y point fo r report, might be q ueued | |
| 84 | . | |
| 85 | . | |
| 86 | . | |
| 87 | ...I '$$C HKPYR(RCIE N,0,RCJOB) Q ; chec k payer | |
| 88 | . | |
| 89 | . | |
| 90 | . | |
| 91 | CHKPYR(IEN ,FLG,RCJOB ) ; functi on ; IEN - ien in fi le 344.31 or 344.4 ; FLG - 0 i f IEN cont ains ien i n file 344 .31, 1 if IEN contai ns ien in file 344.4 ; RCJOB - $J ; retu rns 1 if p ayer in 34 4.31/.02 o r 344.4/.0 6 is in th e list of selected p ayers ^TMP ("RCSELPAY ",$J) ; re turns 0 ot herwise ; N RCPAY,RE S,Z S RES= 0 ; result S RCPAY=" " I IEN S RCPAY=$S(F LG:$P($G(^ RCY(344.4, IEN,0)),U, 6),1:$P($G (^RCY(344. 31,IEN,0)) ,U,2)) I R CPAY'="" S (RCFLG,Z) =0 D .F S Z=$O(^TMP ("RCSELPAY ",RCJOB,Z) ) Q:Z="" I $E(RCPAY ,1,30)=$G( ^TMP("RCSE LPAY",RCJO B,Z)) S RE S=1 Q ;Inc lude EFT w ith null P ayer Names in report s for ALL payers - P RCA*4.5*29 8 I FLG=0 ,$G(RCNP)= 2,RCPAY="" S RES=1 ; PRCA*4.5* 298 Q RES ; | |
| 92 | . | |
| 93 | . | |
| 94 | . | |
| 95 | ||
| 96 | Modified L ogic | |
| 97 | . | |
| 98 | . | |
| 99 | . | |
| 100 | ;EN(RCDET ,RCDT1,RCD T2) ; Entr y point fo r report, might be q ueued | |
| 101 | . | |
| 102 | . | |
| 103 | . | |
| 104 | ...I '$$C HKPYR(RCIE N,0,RCJOB, RCNP) Q ; check pay er | |
| 105 | . | |
| 106 | . | |
| 107 | . | |
| 108 | CHKPYR(IEN ,FLG,RCJOB ,RCNP) ;EP from RCDP EAR2 ; Che cks to be sure the s pecified p ayer has b een select ed ; Input : IEN - In ternal IEN into file 344.31 (E DI THIRD P ARTY EFT D ETAIL) OR ; file 344 .4 (ELECTR ONIC REMIT TANCE ADVI CE) ; Used to retrie ve the pay er ; FLG - 0 if IEN contains i en in file 344.31 ; 1 if IEN c ontains ie n in file 344.4 ; RC JOB - $J ; RCNP - 0 - Not pass ed ; 1 - R ange of Pa yers ; 2 - All Payer s selected ; 3 - Spe cific paye rs ; Optio nal, defau lts to 0 ; ^TMP("RC SELPAY",$J ,CNT)=A1 W here: ; CN T - Counte r of the n umber of p ayers 1-n ; A1 - Pay er Name | |
| 109 | ; Returns : 1 if pay er in 344. 31/.02 or 344.4/.06 is in the list of se lected pay ers ; ^TMP ("RCSELPAY ",$J) ; 0 otherwise N RCPAY,RE S,Z S:'$D( RCNP) RCNP =0 S RCPAY ="" I IEN D . I FLG S RCPAY=$$ GET1^DIQ(3 44.4,IEN,. 06,"I") Q ; PAYME NT FROM fi eld . S RC PAY=$$GET1 ^DIQ(344.3 1,IEN,.02, "I") ; PAY ER NAME fi eld | |
| 110 | ; ; Inclu de EFT wit h null Pay er Names i n reports for ALL pa yers - PRC A*4.5*298 I FLG=0,R CNP=2,RCPA Y="" Q 1 ; PRCA*4. 5*298 Q:RC PAY="" 0 ; No Payer to compare , invalid S Z=0,RES= 0 F D Q:Z="" Q:RES . S Z=$O(^TMP( "RCSELPAY" ,RCJOB,Z)) . Q:Z="" . S:RCPAY= $G(^TMP("R CSELPAY",R CJOB,Z)) R ES=1 Q RES ; | |
| 111 | ||
| 112 | . | |
| 113 | . | |
| 114 | . | |
| 115 | ||
| 116 | Routines | |
| 117 | Activities | |
| 118 | Routine Na me | |
| 119 | RCDPEAR2 | |
| 120 | Enhancemen t Category | |
| 121 | New | |
| 122 | Modify | |
| 123 | Delete | |
| 124 | No Change | |
| 125 | RTM | |
| 126 | ||
| 127 | Related Op tions | |
| 128 | RCDPE EFT AGING REPO RT | |
| 129 | Routines | |
| 130 | Activities | |
| 131 | Data Dicti onary (DD) Reference s | |
| 132 | ||
| 133 | Related Pr otocols | |
| 134 | ||
| 135 | Related In tegration Control Re gistration s (ICRs) | |
| 136 | ||
| 137 | Data Passi ng | |
| 138 | Input | |
| 139 | Output Re ference | |
| 140 | Both | |
| 141 | Global Re ference | |
| 142 | Local | |
| 143 | Input Attr ibute Name and Defin ition | |
| 144 | Name: | |
| 145 | Definition : | |
| 146 | Output Att ribute Nam e and Defi nition | |
| 147 | Name: | |
| 148 | Definition : | |
| 149 | ||
| 150 | Related Ro utines | |
| 151 | Routines “ Called By” | |
| 152 | Routines “ Called” | |
| 153 | ||
| 154 | RCDPEAR | |
| 155 | ||
| 156 | RLOAD^RCDP EAR1 | |
| 157 | SELPAY^RCD PEAR1 | |
| 158 | ASKLM^RCDP EARL | |
| 159 | ENDOPRT^RC DPEARL | |
| 160 | NOW^RCDPEA RL | |
| 161 | ASK^RCDPEA RL | |
| 162 | HDRLST^RCD PEARL | |
| 163 | LMRPT^RCDP EARL | |
| 164 | SL^RCDPEAR L | |
| 165 | CHKPYR^RCD PEDAR | |
| 166 | DISPTY^RCD PEM3 | |
| 167 | DTRNG^RCDP EM4 | |
| 168 | INFO^RCDPE M6 | |
| 169 | GETPAY^RCD PEM8 | |
| 170 | ||
| 171 | ||
| 172 | ||
| 173 | Current Lo gic | |
| 174 | . | |
| 175 | . | |
| 176 | . | |
| 177 | EN1 ; opti on: EFT Un matched Ag ing Report [RCDPE EF T AGING RE PORT] N %Z IS,DIC,DIR ,POP,RCDIS PTY,RCDTRN G,RCEND,RC HDR,RCJOB, RCJOB1,RCL STMGR,RCNP ,RCPYRLST, RCPGNUM,RC START,X,Y ; RCDISPTY = display type ; RC END = end date ; RCL STMGR = li st manager flag ; RC NP = payer info: "1^ first paye r^last pay er" or "2^ ^" (for al l) ; RCPYR LST - paye r list for selected payers ; R CDTRNG= "1 ^start dat e^end date " ; RCSTAR T = start date ; S R CLSTMGR="" ; initia l value | |
| 178 | . | |
| 179 | . | |
| 180 | . | |
| 181 | ;RPTOUT ; Entry poin t for queu ed job, ni ghtly job ; RCTMPND = name of the subscr ipt for ^T MP to use to return all lines ; If undef ined or nu ll, output is printe d ; Return global if RCTMPND n ot null: ^ TMP($J,RCT MPND,line# )=line tex t N DIC,DU OUT,RC0,RC 13,RC3443, RCCT,RCIEN ,RCNT,RCOU T,RCPAY,RC STOP,RCTOT ,RCZ,X,Z,Z 0 S RCTMPN D=$G(RCTMP ND) S (RCC T,RCSTOP,R CNT,RCTOT) =0 K ^TMP( $J,"RCERA_ AGED"),^TM P($J,"RCER A_ADJ") ; PRCA*4.5*2 84 - Queue d job need s to reloa d payer se lection li st I $G(RC JOB)'="",R CJOB'=$J D .K ^TMP(" RCSELPAY", $J) .D RLO AD^RCDPEAR 1(344.31) .S RCJOB=$ J ; build local paye r array he re S RCNP= +RCNP D SE LPAY^RCDPE AR1(RCNP,R CJOB,.RCPA Y) I RCTMP ND'="" K ^ TMP($J,RCT MPND) ; cr oss-ref on file #344 .31 field #.08 - MAT CH STATUS S RCIEN=0 F S RCIEN =$O(^RCY(3 44.31,"AMA TCH",0,RCI EN)) Q:'RC IEN D ; unmatched entries on ly .Q:$P($ G(^RCY(344 .31,RCIEN, 3)),U) ; E FT has bee n removed .Q:$P($G(^ RCY(344.31 ,RCIEN,0)) ,U,7)=0 ; payment of zero .; . S RC13=$P( $G(^RCY(34 4.31,RCIEN ,0)),U,13) ; date re ceived .; Check for payer matc h .I '$$CH KPYR^RCDPE DAR(RCIEN, 0,RCJOB) Q .; Check date range .Q:(RCSTA RT>RC13)!( RC13>RCEND ) .; Passe d all the filters - include on report .S ^TMP($J," RCEFT_AGED ",$$FMDIFF ^XLFDT(RC1 3,DT),RCIE N)=0,RCNT= RCNT+1 ; D :'RCLSTMGR HDRBLD ; create he ader D:RCL STMGR HDRL M ; creat e Listman header ; I RCDISPTY D EXCEL Q ; ; Find t otal amoun t of EFTs S RCZ="" F S RCZ=$O (^TMP($J," RCEFT_AGED ",RCZ)) Q: RCZ="" S RCIEN=0 F S RCIEN=$ O(^TMP($J, "RCEFT_AGE D",RCZ,RCI EN)) Q:'RC IEN D G: RCSTOP PRT Q .I $D(ZT QUEUED),$$ S^%ZTLOAD S (RCSTOP, ZTSTOP)=1 K ZTREQ I +$G(RCPGNU M) W:RCTMP ND="" !!," ***TASK ST OPPED BY U SER***" Q .S RC0=$G( ^RCY(344.3 1,RCIEN,0) ),RC3443=$ G(^RCY(344 .3,+RC0,0) ) .S RCTOT =RCTOT+$P( RC0,U,7) ; D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; ini tial repor t header ; S Z=$$SET STR^VALM1( "Totals:", "",1,79) D SL^RCDPEA RL(Z,.RCCT ,RCTMPND) S Z=$$SETS TR^VALM1(" Number Ag ed Electro nic EFT Me ssages Fou nd: "_RCNT ,"",1,79) D SL^RCDPE ARL(Z,.RCC T,RCTMPND) S Z=$$SET STR^VALM1( " Amount A ged Electr onic EFT M essages Fo und: $"_$F N(+RCTOT," ,",2),"",1 ,79) D SL^ RCDPEARL(Z ,.RCCT,RCT MPND) D SL ^RCDPEARL( $TR($J("", IOM)," "," ="),.RCCT, RCTMPND) ; S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ .I $D(Z TQUEUED),$ $S^%ZTLOAD S (RCSTOP ,ZTSTOP)=1 K ZTREQ I +$G(RCPGN UM) W:RCTM PND="" !!, "***TASK S TOPPED BY USER***" Q .I RCPGNU M D SL^RCD PEARL(" ", .RCCT,.RCT MPND) ; On detail li st, skip l ine .I 'RC LSTMGR,$Y> (IOSL-RCHD R(0)) D HD RLST^RCDPE ARL(.RCSTO P,.RCHDR) Q:RCSTOP . S RC0=$G(^ RCY(344.31 ,RCIEN,0)) ,RC3443=$G (^RCY(344. 3,+RC0,0)) .S RCTOT= RCTOT+$P(R C0,U,7) .S Z=$$SETST R^VALM1($J (-RCZ,4)," ",1,4) .S Z=$$SETSTR ^VALM1(" " _$P(RC0,U, 4),Z,5,75) .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) .N RCPA Y S RCPAY= $P(RC0,U,2 ) S:RCPAY= "" RCPAY=" NO PAYER N AME RECEIV ED" ; PRCA *4.5*298 . S Z=$$SETS TR^VALM1(R CPAY_"/"_$ P(RC0,U,3) ,"",11,69) ; PRCA*4. 5*298 .S Z =$$SETSTR^ VALM1(" "_ $$FMTE^XLF DT($P(RC0, U,12),2),Z ,70,10) .D SL^RCDPEA RL(Z,.RCCT ,RCTMPND) .S Z=$$SET STR^VALM1( $J("",6)_$ S($P(RC0,U ,13):$$FMT E^XLFDT($P (RC0,U,13) ,2),1:""), "",1,17) . S Z=$$SETS TR^VALM1(" "_$J($P(R C0,U,7),15 ,2),Z,18,1 7) .; PRCA *4.5*283 - change le ngth from 8 to 11 to allow for 9 digit D EP #'s .S Z=$$SETSTR ^VALM1(" " _$P(RC3443 ,U,6),Z,35 ,11) .S Z= $$SETSTR^V ALM1(" "_$ S($P(RC344 3,U,12):"" ,1:"NOT ") _"Posted t o 8NZZ"_$S ($P(RC3443 ,U,12):" " _$$FMTE^XL FDT($P(RC3 443,U,11), 2),1:""),Z ,47,36) .D SL^RCDPEA RL(Z,.RCCT ,RCTMPND) .K RCOUT . D GETS^DIQ (344.31,RC IEN_",",2, "E","RCOUT ") .Q:'$O( RCOUT(344. 31,RCIEN_" ,",2,0)) . D SL^RCDPE ARL($J("", 8)_"--EXCE PTION NOTE S--",.RCCT ,RCTMPND) .S Z=0 F S Z=$O(RCO UT(344.31, RCIEN_",", 2,Z)) Q:'Z D Q:RCS TOP ..I 'R CLSTMGR,$Y >(IOSL-RCH DR(0)) D H DRLST^RCDP EARL(.RCST OP,.RCHDR) Q:RCSTOP ..D SL^RCD PEARL($J(" ",8)_" "_R COUT(344.3 1,RCIEN_", ",2,Z),.RC CT,RCTMPND ) ; ; ; PR CA*4.5*298 , put end- of-report into SL^RC DPEARL D S L^RCDPEARL (" ",.RCCT ,RCTMPND) ; skip a l ine D SL^R CDPEARL($$ ENDORPRT^R CDPEARL,.R CCT,RCTMPN D) ;PRTQ ; ; PRCA*4. 5*298, add ed ListMan check I ' $D(ZTQUEUE D),'RCLSTM GR,'RCSTOP D ASK^RCD PEARL(.RCS TOP) I $D( ZTQUEUED) S ZTREQ="@ " I '$D(ZT QUEUED) D ^%ZISC K ^ TMP($J,"RC EFT_AGED") ,ZTQUEUED Q ; ; extr insic vari able, text for heade r PRCA*4.5 *298HDRNM( ) Q "EFT U NMATCHED A GING REPOR T" ;HDRBLD ; create the report header ; returns RC HDR, RCPGN UM, RCSTOP ; RCHDR(0 ) = header text line count ; R CHDR("XECU TE") = M c ode for pa ge number ; RCHDR("R UNDATE") = date/time report ge nerated, e xternal fo rmat ; RCP GNUM - pag e counter ; RCSTOP - flag to e xit ;INPUT : ; RCDTRN G - date r ange filte r value to be printe d as part of the hea der ; RCPA Y - Payer filter val ue(s) ; RC LSTMGR ; K RCHDR S R CHDR("RUND ATE")=$$NO W^RCDPEARL ,RCPGNUM=0 ,RCSTOP=0 ; I RCDISP TY D Q ; Excel for mat, xecut e code is QUIT, null page numb er .S RCHD R(0)=1,RCH DR("XECUTE ")="Q",RCP GNUM="" .S RCHDR(1)= "Aged Days ^Trace #^D eposit Fro m/ID^File Date^Depos it Amount^ Deposit #^ Deposit Po st Status^ Deposit Da te" ; N ST ART,END,MS G,DATE,Y,D IV,HCNT S START=$$FM TE^XLFDT($ P(RCDTRNG, U,2),2),EN D=$$FMTE^X LFDT($P(RC DTRNG,U,3) ,2) ; S Y= $$HDRNM,HC NT=1,RCHDR (HCNT)=$J( "",80-$L(Y )\2)_Y ; line 1 wil l be repla ced by XEC UTE code b elow S RCH DR("XECUTE ")="N Y S RCPGNUM=RC PGNUM+1,Y= $$HDRNM^"_ $T(+0)_"_$ S(RCLSTMGR :"""",1:$J (""Page: " "_RCPGNUM, 12)),RCHDR (1)=$J("" "",80-$L(Y )\2)_Y" S Y="RUN DAT E: "_RCHDR ("RUNDATE" ),HCNT=HCN T+1,RCHDR( HCNT)=$J(" ",80-$L(Y) \2)_Y ; l ine 1 will be replac ed by XECU TE code be low ; ; Pa yer(s) S Y ="PAYERS: " D .I $D( RCPAY)=1 S Y=Y_RCPAY ,HCNT=HCNT +1,RCHDR(H CNT)=$J("" ,80-$L(Y)\ 2)_Y Q .N S,X S S=0 F S S=$O( RCPAY(S)) Q:'S D .. S X=RCPAY( S)_$S($O(R CPAY(S)):" , ",1:"") ..I $L(X)+ $L(Y)>80 S HCNT=HCNT +1,RCHDR(H CNT)=Y,Y=$ J(" ",8) . .S Y=Y_X . ; .S:$TR(Y ," ")]"" H CNT=HCNT+1 ,RCHDR(HCN T)=Y ; an y residual data S Y= "DATE RANG E: "_$P($$ FMTE^XLFDT (START,2), "@")_" - " _$P($$FMTE ^XLFDT(END ,2),"@")_" (DATE EFT FILED)" S Y=$J("",8 0-$L(Y)\2) _Y,HCNT=HC NT+1,RCHDR (HCNT)=Y ; S Y="AGED ",HCNT=HCN T+1,RCHDR( HCNT)=Y S Y="DAYS TR ACE #",HCN T=HCNT+1,R CHDR(HCNT) =Y S Y=" D EPOSIT FRO M/ID DEP D ATE",HCNT= HCNT+1,RCH DR(HCNT)=Y S Y=" FIL E DATE DEP OSIT AMOUN T DEP # DE POSIT POST STATUS",H CNT=HCNT+1 ,RCHDR(HCN T)=Y S Y=" ",$P(Y,"=" ,81)="",HC NT=HCNT+1, RCHDR(HCNT )=Y ; row of equal signs at b ottom ; S RCHDR(0)=H CNT ; Q ;H DRLM ; cre ate the Li stman head er section ; returns RCHDR ; R CHDR(0) = header tex t line cou nt ;INPUT: ; RCDTRNG - date ra nge filter value to be printed as part o f the head er ; RCPAY - Payer f ilter valu e(s) ; K R CHDR S RCP GNUM=0,RCS TOP=0 ; N START,END, MSG,DATE,Y ,DIV,HCNT S START=$$ FMTE^XLFDT ($P(RCDTRN G,U,2),2), END=$$FMTE ^XLFDT($P( RCDTRNG,U, 3),2) S Y= "DATE RANG E: "_$P($$ FMTE^XLFDT (START,2), "@")_" - " _$P($$FMTE ^XLFDT(END ,2),"@")_" (DATE EFT FILED)" S HCNT=1,RC HDR(HCNT)= Y ; Payer( s) S Y="PA YERS: " D .I $D(RCPA Y)=1 S Y=Y _RCPAY,HCN T=HCNT+1,R CHDR(HCNT) =Y Q .N S, X S S=0 F S S=$O(RC PAY(S)) Q: 'S D ..S X=RCPAY(S) _$S($O(RCP AY(S)):", ",1:"") .. I $L(X)+$L (Y)>80 S H CNT=HCNT+1 ,RCHDR(HCN T)=Y,Y=$J( " ",8) ..S Y=Y_X .; .S:$TR(Y," ")]"" HCN T=HCNT+1,R CHDR(HCNT) =Y ; any residual d ata ; S HC NT=HCNT+1, RCHDR(HCNT )="" S Y=" AGED",HCNT =HCNT+1,RC HDR(HCNT)= Y S Y="DAY S TRACE #" ,HCNT=HCNT +1,RCHDR(H CNT)=Y S Y =" DEPOSIT FROM/ID D EP DATE",H CNT=HCNT+1 ,RCHDR(HCN T)=Y S Y=" FILE DATE DEPOSIT A MOUNT DEP # DEPOSIT POST STATU S",HCNT=HC NT+1,RCHDR (HCNT)=Y ; S RCHDR(0 )=HCNT ; Q ;. | |
| 182 | . | |
| 183 | . | |
| 184 | ;EXCEL ; P rint repor t to scree n, one rec ord per li ne for exp ort to MS Excel. W ! !,"Aged Da ys^Trace # ^Deposit F rom/ID^Fil e Date^Dep osit Amoun t^Deposit #^Deposit Post Statu s^Deposit Date" S RC Z="" F S RCZ=$O(^TM P($J,"RCEF T_AGED",RC Z)) Q:RCZ= "" S RCIE N=0 F S R CIEN=$O(^T MP($J,"RCE FT_AGED",R CZ,RCIEN)) Q:'RCIEN D G:RCST OP PRTQ2 | |
| 185 | . | |
| 186 | . | |
| 187 | . | |
| 188 | ||
| 189 | Modified L ogic | |
| 190 | . | |
| 191 | . | |
| 192 | . | |
| 193 | EN1 ; opti on: EFT Un matched Ag ing Report [RCDPE EF T AGING RE PORT]N %ZI S,DIC,DIR, DTOUT,DUOU T,POP,RCDI SPTY,RCDTR NG,RCEND,R CHDR,RCJOB N RCJOB1, RCLSTMGR,R CNP,RCPYRL ST,RCPGNUM ,RCSTART,R CTMPND,X,Y ; RCDISPTY = display type | |
| 194 | ; RCEND = end date; RCLSTMGR = list mana ger flag; RCNP = pay er info: " 1^first pa yer^last p ayer" or " 2^^" (for all); RCPY RLST - pay er list fo r selected payers; R CDTRNG= "1 ^start dat e^end date "; RCSTART = start d ate; RCTMP ND = name of the sub script for ^TMP to u se;S RCLST MGR="" ; initial va lue. | |
| 195 | . | |
| 196 | . | |
| 197 | ;RPTOUT ; Entry poin t for queu ed job, ni ghtly job | |
| 198 | ; RCTMPND = name of the subsc ript for ^ TMP to use to return all lines | |
| 199 | ; If undefi ned or nul l, output is printed | |
| 200 | ; Return global if RCTMPND no t null: ^T MP($J,RCTM PND,line#) =line text | |
| 201 | N DIC,DUO UT,RC0,RC1 3,RC3443,R CCT,RCIEN, RCNT,RCOUT ,RCPAY,RCP AYER,RCPAY ID | |
| 202 | N RCSTOP, RCTOT,RCZ, X,XX,YY,Z, Z0,ZZ | |
| 203 | S RCTMPND =$G(RCTMPN D) | |
| 204 | S (RCCT,R CSTOP,RCNT ,RCTOT)=0 | |
| 205 | K ^TMP($J ,"RCERA_AG ED"),^TMP( $J,"RCERA_ ADJ") | |
| 206 | ; PRCA*4. 5*284 - Qu eued job n eeds to re load payer selection list | |
| 207 | I $G(RCJO B)'="",RCJ OB'=$J D | |
| 208 | .K ^TMP(" RCSELPAY", $J) | |
| 209 | .D RLOAD^ RCDPEAR1(3 44.31) | |
| 210 | .S RCJOB= $J | |
| 211 | ; build l ocal payer array her e | |
| 212 | S RCNP=+R CNP | |
| 213 | D SELPAY^ RCDPEAR1(R CNP,RCJOB, .RCPAY) | |
| 214 | I RCTMPND '="" K ^TM P($J,RCTMP ND) | |
| 215 | ; cross-r ef on file #344.31 f ield #.08 - MATCH ST ATUS | |
| 216 | S RCIEN=0 F S RCIE N=$O(^RCY( 344.31,"AM ATCH",0,RC IEN)) Q:'R CIEN D ;unmatched entries o nly | |
| 217 | .Q:$P($G( ^RCY(344.3 1,RCIEN,3) ),U) ; EF T has been removed | |
| 218 | .Q:$P($G( ^RCY(344.3 1,RCIEN,0) ),U,7)=0 ; payment of zero | |
| 219 | .; | |
| 220 | .S RC13=$ P($G(^RCY( 344.31,RCI EN,0)),U,1 3) ; date received | |
| 221 | .; Check for payer match | |
| 222 | .I '$$CHK PYR^RCDPED AR(RCIEN,0 ,RCJOB,RCN P) Q ;PR CA*4.5*318 passed ex isting var iable RCNP | |
| 223 | .; Check date range | |
| 224 | .Q:(RCSTA RT>RC13)!( RC13>RCEND ) | |
| 225 | .; Passed all the f ilters - i nclude on report | |
| 226 | .S ^TMP($ J,"RCEFT_A GED",$$FMD IFF^XLFDT( RC13,DT),R CIEN)=0,RC NT=RCNT+1 | |
| 227 | ; | |
| 228 | D:'RCLSTM GR HDRBLD ; create header | |
| 229 | D:RCLSTMG R HDRLM ; create Li stman head er | |
| 230 | ; | |
| 231 | I RCDISPT Y D EXCEL Q | |
| 232 | ; | |
| 233 | ; Find to tal amount of EFTs | |
| 234 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ | |
| 235 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPGNUM ) W:RCTMPN D="" !!,"* **TASK STO PPED BY US ER***" Q | |
| 236 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 237 | .S RCTOT= RCTOT+$P(R C0,U,7) | |
| 238 | ; | |
| 239 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; in itial repo rt header | |
| 240 | ; | |
| 241 | S Z=$$SET STR^VALM1( "Totals:", "",1,79) | |
| 242 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 243 | S Z=$$SET STR^VALM1( " Number A ged Electr onic EFT M essages Fo und: "_RCN T,"",1,79) | |
| 244 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 245 | S Z=$$SET STR^VALM1( " Amount A ged Electr onic EFT M essages Fo und: $"_$F N(+RCTOT," ,",2),"",1 ,79) | |
| 246 | D SL^RCDP EARL(Z,.RC CT,RCTMPND ) | |
| 247 | D SL^RCDP EARL($TR($ J("",IOM), " ","="),. RCCT,RCTMP ND) | |
| 248 | ; | |
| 249 | S RCZ="" F S RCZ=$ O(^TMP($J, "RCEFT_AGE D",RCZ)) Q :RCZ="" S RCIEN=0 F S RCIEN= $O(^TMP($J ,"RCEFT_AG ED",RCZ,RC IEN)) Q:'R CIEN D G :RCSTOP PR TQ | |
| 250 | .I $D(ZTQ UEUED),$$S ^%ZTLOAD S (RCSTOP,Z TSTOP)=1 K ZTREQ I + $G(RCPGNUM ) W:RCTMPN D="" !!,"* **TASK STO PPED BY US ER***" Q | |
| 251 | .I RCPGNU M D SL^RCD PEARL(" ", .RCCT,.RCT MPND) ; On detail li st, skip l ine | |
| 252 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 253 | .S RC0=$G (^RCY(344. 31,RCIEN,0 )),RC3443= $G(^RCY(34 4.3,+RC0,0 )) | |
| 254 | .S RCTOT= RCTOT+$P(R C0,U,7) | |
| 255 | .S Z=$$SE TSTR^VALM1 ($J(-RCZ,4 ),"",1,4) | |
| 256 | .; PRCA*4 .5*318 mov ed deposit date up a row to gi ve more ro om for pay er/payer I D | |
| 257 | .S Z=$$SE TSTR^VALM1 (" "_$P(R C0,U,4),Z, 5,52) ;tr ace# | |
| 258 | .S Z=$$SE TSTR^VALM1 ($$FMTE^XL FDT($P(RC0 ,U,12),2), Z,73,8) ; deposit d ate | |
| 259 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 260 | .N RCPAY S RCPAY=$P (RC0,U,2) S:RCPAY="" RCPAY="NO PAYER NAM E RECEIVED " ; PRCA*4 .5*298 | |
| 261 | .S RCPAYI D=$P(RC0,U ,3) ; Payer ID ;PRCA*4 .5*298 | |
| 262 | .;PRCA*4. 5*318 dyna mically di splay paye r name/ID based on l ength | |
| 263 | .S RCPAYE R=RCPAY_"/ "_RCPAYID | |
| 264 | .I $L(RCP AYER)>76 D | |
| 265 | . . S ZZ= $L(RCPAYER ,"/"),XX=$ P(RCPAYER, "/",1,ZZ-1 ),YY=$P(RC PAYER,"/", ZZ) | |
| 266 | . . S XX= $E(RCPAYER ,1,$L(XX)- ($L(RCPAYE R)-76)),RC PAYER=XX_" /"_YY | |
| 267 | .S Z=$$SE TSTR^VALM1 (RCPAYER," ",5,76) ; PRCA*4.5*2 98 (payer /payer ID) | |
| 268 | .;S Z=$$S ETSTR^VALM 1(" "_$$F MTE^XLFDT( $P(RC0,U,1 2),2),Z,70 ,10) ; de posit date | |
| 269 | .;end of PRCA*4.5*3 18 display change | |
| 270 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 271 | .S Z=$$SE TSTR^VALM1 ($J("",6)_ $S($P(RC0, U,13):$$FM TE^XLFDT($ P(RC0,U,13 ),2),1:"") ,"",1,17) | |
| 272 | .S Z=$$SE TSTR^VALM1 (" "_$J($ P(RC0,U,7) ,15,2),Z,1 8,17) | |
| 273 | .; PRCA*4 .5*283 - c hange leng th from 8 to 11 to a llow for 9 digit DEP #'s | |
| 274 | .S Z=$$SE TSTR^VALM1 (" "_$P(R C3443,U,6) ,Z,35,11) | |
| 275 | .S Z=$$SE TSTR^VALM1 (" "_$S($ P(RC3443,U ,12):"",1: "NOT ")_"P osted to 8 NZZ"_$S($P (RC3443,U, 12):" "_$$ FMTE^XLFDT ($P(RC3443 ,U,11),2), 1:""),Z,47 ,36) | |
| 276 | .D SL^RCD PEARL(Z,.R CCT,RCTMPN D) | |
| 277 | .K RCOUT | |
| 278 | .D GETS^D IQ(344.31, RCIEN_",", 2,"E","RCO UT") | |
| 279 | .Q:'$O(RC OUT(344.31 ,RCIEN_"," ,2,0)) | |
| 280 | .D SL^RCD PEARL($J(" ",8)_"--EX CEPTION NO TES--",.RC CT,RCTMPND ) | |
| 281 | .S Z=0 F S Z=$O(RC OUT(344.31 ,RCIEN_"," ,2,Z)) Q:' Z D Q:RC STOP | |
| 282 | ..I 'RCLS TMGR,$Y>(I OSL-RCHDR( 0)) D HDRL ST^RCDPEAR L(.RCSTOP, .RCHDR) Q: RCSTOP | |
| 283 | ..D SL^RC DPEARL($J( "",8)_" "_ RCOUT(344. 31,RCIEN_" ,",2,Z),.R CCT,RCTMPN D) | |
| 284 | ; | |
| 285 | ; | |
| 286 | ; PRCA*4. 5*298, put end-of-re port into SL^RCDPEAR L | |
| 287 | D SL^RCDP EARL(" ",. RCCT,RCTMP ND) ; ski p a line | |
| 288 | D SL^RCDP EARL($$END ORPRT^RCDP EARL,.RCCT ,RCTMPND) | |
| 289 | ; | |
| 290 | PRTQ ; | |
| 291 | ; PRCA*4. 5*298, add ed ListMan check | |
| 292 | I '$D(ZTQ UEUED),'RC LSTMGR,'RC STOP D ASK ^RCDPEARL( .RCSTOP) | |
| 293 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 294 | I '$D(ZTQ UEUED) D ^ %ZISC | |
| 295 | K ^TMP($J ,"RCEFT_AG ED"),ZTQUE UED | |
| 296 | Q | |
| 297 | ; | |
| 298 | ; extrins ic variabl e, text fo r header P RCA*4.5*29 8 | |
| 299 | HDRNM() Q "EFT UNMAT CHED AGING REPORT" | |
| 300 | ; | |
| 301 | HDRBLD ; c reate the report hea der | |
| 302 | ; returns RCHDR, RC PGNUM, RCS TOP | |
| 303 | ; RCHDR (0) = head er text li ne count | |
| 304 | ; RCHDR ("XECUTE") = M code for page n umber | |
| 305 | ; RCHDR ("RUNDATE" ) = date/t ime report generated , external format | |
| 306 | ; RCPGN UM - page counter | |
| 307 | ; RCSTO P - flag t o exit | |
| 308 | ;INPUT: | |
| 309 | ; RCDTRNG - date ra nge filter value to be printed as part o f the head er | |
| 310 | ; RCPAY - Payer fil ter value( s) | |
| 311 | ; RCLSTMG R | |
| 312 | ; | |
| 313 | K RCHDR S RCHDR("RU NDATE")=$$ NOW^RCDPEA RL,RCPGNUM =0,RCSTOP= 0 | |
| 314 | ; | |
| 315 | I RCDISPT Y D Q ; Excel form at, xecute code is Q UIT, null page numbe r | |
| 316 | .S RCHDR( 0)=1,RCHDR ("XECUTE") ="Q",RCPGN UM="" | |
| 317 | .S RCHDR( 1)="Aged D ays^Trace #^Deposit From/ID^Fi le Date^De posit Amou nt^Deposit #^Deposit Post Stat us^Deposit Date" | |
| 318 | ; | |
| 319 | N START,E ND,MSG,DAT E,Y,DIV,HC NT | |
| 320 | S START=$ $FMTE^XLFD T($P(RCDTR NG,U,2),2) ,END=$$FMT E^XLFDT($P (RCDTRNG,U ,3),2) | |
| 321 | ; | |
| 322 | S Y=$$HDR NM,HCNT=1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y ; line 1 will be replaced b y XECUTE c ode below | |
| 323 | S RCHDR(" XECUTE")=" N Y S RCPG NUM=RCPGNU M+1,Y=$$HD RNM^"_$T(+ 0)_"_$S(RC LSTMGR:""" ",1:$J(""P age: ""_RC PGNUM,12)) ,RCHDR(1)= $J("" "",8 0-$L(Y)\2) _Y" | |
| 324 | S Y="RUN DATE: "_RC HDR("RUNDA TE"),HCNT= HCNT+1,RCH DR(HCNT)=$ J("",80-$L (Y)\2)_Y ; line 1 w ill be rep laced by X ECUTE code below | |
| 325 | ; | |
| 326 | ; Payer(s ) | |
| 327 | S Y="PAYE RS: " D | |
| 328 | .I $D(RCP AY)=1 S Y= Y_RCPAY,HC NT=HCNT+1, RCHDR(HCNT )=$J("",80 -$L(Y)\2)_ Y Q | |
| 329 | .N S,X S S=0 F S S =$O(RCPAY( S)) Q:'S D | |
| 330 | ..S X=RCP AY(S)_$S($ O(RCPAY(S) ):", ",1:" ") | |
| 331 | ..I $L(X) +$L(Y)>80 S HCNT=HCN T+1,RCHDR( HCNT)=Y,Y= $J(" ",8) | |
| 332 | ..S Y=Y_X | |
| 333 | .; | |
| 334 | .S:$TR(Y, " ")]"" HC NT=HCNT+1, RCHDR(HCNT )=Y ; any residual data | |
| 335 | S Y="DATE RANGE: "_ $P($$FMTE^ XLFDT(STAR T,2),"@")_ " - "_$P($ $FMTE^XLFD T(END,2)," @")_" (DAT E EFT FILE D)" | |
| 336 | S Y=$J("" ,80-$L(Y)\ 2)_Y,HCNT= HCNT+1,RCH DR(HCNT)=Y | |
| 337 | ; | |
| 338 | S Y="AGED ",HCNT=HCN T+1,RCHDR( HCNT)=Y | |
| 339 | ; PRCA*4. 5*318 move d deposit date up a row | |
| 340 | S Y="DAYS TRACE # DE P DATE",HC NT=HCNT+1, RCHDR(HCNT )=Y | |
| 341 | S Y=" DEPOSIT FR OM/ID",HCN T=HCNT+1,R CHDR(HCNT) =Y | |
| 342 | S Y=" FILE DAT E DEPO SIT AMOUNT DEP # DEPOSI T POST STA TUS",HCNT= HCNT+1,RCH DR(HCNT)=Y | |
| 343 | S Y="",$P (Y,"=",81) ="",HCNT=H CNT+1,RCHD R(HCNT)=Y ; row of equal sign s at botto m | |
| 344 | ; | |
| 345 | S RCHDR(0 )=HCNT | |
| 346 | ; | |
| 347 | Q | |
| 348 | ; | |
| 349 | HDRLM ; cr eate the L istman hea der sectio n | |
| 350 | ; returns RCHDR | |
| 351 | ; RCHDR (0) = head er text li ne count | |
| 352 | ;INPUT: | |
| 353 | ; RCDTRNG - date ra nge filter value to be printed as part o f the head er | |
| 354 | ; RCPAY - Payer fil ter value( s) | |
| 355 | ; | |
| 356 | K RCHDR S RCPGNUM=0 ,RCSTOP=0 | |
| 357 | ; | |
| 358 | N START,E ND,MSG,DAT E,Y,DIV,HC NT | |
| 359 | S START=$ $FMTE^XLFD T($P(RCDTR NG,U,2),2) ,END=$$FMT E^XLFDT($P (RCDTRNG,U ,3),2) | |
| 360 | S Y="DATE RANGE: "_ $P($$FMTE^ XLFDT(STAR T,2),"@")_ " - "_$P($ $FMTE^XLFD T(END,2)," @")_" (DAT E EFT FILE D)" | |
| 361 | S HCNT=1, RCHDR(HCNT )=Y | |
| 362 | ; Payer(s ) | |
| 363 | S Y="PAYE RS: " D | |
| 364 | .I $D(RCP AY)=1 S Y= Y_RCPAY,HC NT=HCNT+1, RCHDR(HCNT )=Y Q | |
| 365 | .N S,X S S=0 F S S =$O(RCPAY( S)) Q:'S D | |
| 366 | ..S X=RCP AY(S)_$S($ O(RCPAY(S) ):", ",1:" ") | |
| 367 | ..I $L(X) +$L(Y)>80 S HCNT=HCN T+1,RCHDR( HCNT)=Y,Y= $J(" ",8) | |
| 368 | ..S Y=Y_X | |
| 369 | .; | |
| 370 | .S:$TR(Y, " ")]"" HC NT=HCNT+1, RCHDR(HCNT )=Y ; any residual data | |
| 371 | ; | |
| 372 | S HCNT=HC NT+1,RCHDR (HCNT)="" | |
| 373 | S Y="AGED ",HCNT=HCN T+1,RCHDR( HCNT)=Y | |
| 374 | ; PRCA*4. 5*318 move d deposit date up a row | |
| 375 | S Y="DAYS TRACE # DEP DATE",HCN T=HCNT+1,R CHDR(HCNT) =Y | |
| 376 | S Y=" DEPOSIT FR OM/ID",HCN T=HCNT+1,R CHDR(HCNT) =Y | |
| 377 | S Y=" FILE DATE DEPOS IT AMOUNT DEP # DEPOSIT POST STAT US",HCNT=H CNT+1,RCHD R(HCNT)=Y | |
| 378 | ; | |
| 379 | S RCHDR(0 )=HCNT | |
| 380 | ; | |
| 381 | Q | |
| 382 | ; | |
| 383 | . | |
| 384 | . | |
| 385 | . | |
| 386 | ;EXCEL ; Print repo rt to scre en, one re cord per l ine for ex port to MS Excel. ; RCTMPND = name of th e subscrip t for ^TMP to use W !!,"Aged D ays^Trace #^Deposit From/ID^Fi le Date^De posit Amou nt^Deposit #^Deposit Post Stat us^Deposit Date" | |
| 387 | . | |
| 388 | . | |
| 389 | . | |
| 390 | ||
| 391 | ||
| 392 | Routines | |
| 393 | Activities | |
| 394 | Routine Na me | |
| 395 | RCDPEDA2 | |
| 396 | Enhancemen t Category | |
| 397 | New | |
| 398 | Modify | |
| 399 | Delete | |
| 400 | No Change | |
| 401 | RTM | |
| 402 | ||
| 403 | Related Op tions | |
| 404 | RCDPE EDI LOCKBOX AC T REPORT | |
| 405 | Routines | |
| 406 | Activities | |
| 407 | Data Dicti onary (DD) Reference s | |
| 408 | ||
| 409 | Related Pr otocols | |
| 410 | ||
| 411 | Related In tegration Control Re gistration s (ICRs) | |
| 412 | ||
| 413 | Data Passi ng | |
| 414 | Input | |
| 415 | Output Re ference | |
| 416 | Both | |
| 417 | Global Re ference | |
| 418 | Local | |
| 419 | Input Attr ibute Name and Defin ition | |
| 420 | Name: | |
| 421 | Definition : | |
| 422 | Output Att ribute Nam e and Defi nition | |
| 423 | Name: | |
| 424 | Definition : | |
| 425 | ||
| 426 | Related Ro utines | |
| 427 | Routines “ Called By” | |
| 428 | Routines “ Called” | |
| 429 | ||
| 430 | RPT1^RCDPE DAR | |
| 431 | $$STATUS^G ECSSGET | |
| 432 | $$SETSTR^V ALM1 | |
| 433 | SL^RCDPEDA 3 | |
| 434 | EFTERRS^RC DPEDA3 | |
| 435 | ||
| 436 | ||
| 437 | Current Lo gic | |
| 438 | . | |
| 439 | . | |
| 440 | . | |
| 441 | EFTDTL(INP UT,IEN3443 ,IEN34431, RCFMS1) ; Display EF T Detail ; Input: IN PUT - A1^A 2^A3^...^A n Where: ; A1 - 1 if called fr om Nightly Process ; 0 otherwi se ; A2 - 1 if displ aying to L istman ; 0 otherwise ; A3 - 1 if Detail report ; 0 if summar y report ; A4 - Curr ent Page N umber ; A5 - Stop Fl ag ; A6 - Start of D ate Range ; A7 - End of Date R ange ; A8 - Current Line Count er ; A9 - Internal D ate being processed ; IEN3443 - Internal IEN for f ile 344.3 ; IEN34431 - Interna l IEN for file 344.3 1 ; RCFMS1 (IEN34431) - FMS Doc ument Stat us for EFT IEN ; Out put: INPUT - A1^A2^A 3^...^An - The follo wing piece s ; may be updated ; A5 - Upda ted Page N umber ; A6 - Stop Fl ag ; A8 - Updated Li ne Counter N PAYER,X ,XX,YY S X X=$$GET1^D IQ(344.31, IEN34431,. 01,"I") ; EFT Transa ction IEN S X=$$SETS TR^VALM1(X X,"",4,6) S XX=$$GET 1^DIQ(344. 31,IEN3443 1,.12,"I") ; Date Cl aims Paid S X=$$SETS TR^VALM1($ $FMTE^XLFD T(XX\1,"2Z "),X,32,8) S XX=$$GE T1^DIQ(344 .31,IEN344 31,.07,"I" ) ; Amount of Paymen t S X=$$SE TSTR^VALM1 ($J(XX,"", 2),X,42,18 ) ; ; PRCA *4.5*284, Move to le ft 3 space (61 to 58 ) to allow for 10 di git ERA #' s S XX=$$G ET1^DIQ(34 4.31,IEN34 431,.08,"I ") ; Match Status S YY=$$GET1^ DIQ(344.31 ,IEN34431, .1,"I") ; ERA IEN S X=$$SETSTR ^VALM1($$E XTERNAL^DI LFD(344.31 ,.08,"",+X X)_$S(XX=1 :"/ERA #"_ YY,1:""),X ,58,20) Q: $P(INPUT," ^",5)=1 D SL^RCDPEDA 3(.INPUT,X ) S XX=$$G ET1^DIQ(34 4.31,IEN34 431,.04,"I ") ; Trace Number S X=$$SETSTR ^VALM1(XX, "",11,$L(X X)) S XX=$ G(^TMP($J, "TOTALS"," CRDOC",IEN 3443)) ; P RCA*4.5*31 8 add CR # to detail rpt S X=$ $SETSTR^VA LM1(XX,X,6 0,$L(XX)) ; CR Docum ent Number D SL^RCDP EDA3(.INPU T,X) S PAY ER=$$GET1^ DIQ(344.31 ,IEN34431, .02,"I") ; Payer Nam e S:PAYER= "" PAYER=" NO PAYER N AME RECEIV ED" ; PRCA*4.5* 298 S XX=$ $GET1^DIQ( 344.31,IEN 34431,.03, "I") ; Pay er ID S X= $$SETSTR^V ALM1(PAYER _"/"_XX,"" ,15,65) ; PRCA*4.5*2 98 D SL^RC DPEDA3(.IN PUT,X) ; P RCA*4.5*31 8 add TR # s to detai l rpt D GE TTR(IEN344 31,.INPUT) ; Gather & display all TR Doc #s for EF T detail r ecord S X ="" ; ; PR CA*4.5*304 - lengthe n receipt number dis play to 12 S XX=$$GE T1^DIQ(344 .31,IEN344 31,.09,"I" ) ; Receip t IEN I XX '="" D . S YY=$$GET1 ^DIQ(344,X X,.01,"I") ; Receipt Number . S X=$$SETS TR^VALM1(Y Y,X,46,12) S X=$$SET STR^VALM1( $G(RCFMS1( IEN34431)) ,X,61,19) D SL^RCDPE DA3(.INPUT ,X) Q:$P(I NPUT,"^",5 )=1 D EFTE RRS^RCDPED A3(.INPUT, IEN34431) ; Display any EFT Er rors D DUP (.INPUT,IE N34431) ; Check if t his was a duplicate EFT Q ; | |
| 442 | . | |
| 443 | . | |
| 444 | . | |
| 445 | ||
| 446 | Modified L ogic | |
| 447 | . | |
| 448 | . | |
| 449 | . | |
| 450 | EFTDTL(INP UT,IEN3443 ,IEN34431, RCFMS1) ; Display EF T Detail | |
| 451 | ; Input: INPUT - A1 ^A2^A3^... ^An Where: | |
| 452 | ; A1 - 1 if called from Night ly Process | |
| 453 | ; 0 other wise | |
| 454 | ; A2 - 1 if display ing to Lis tman | |
| 455 | ; 0 other wise | |
| 456 | ; A3 - 1 if Detail report | |
| 457 | ; 0 if su mmary repo rt | |
| 458 | ; A4 - Cu rrent Page Number | |
| 459 | ; A5 - St op Flag | |
| 460 | ; A6 - St art of Dat e Range | |
| 461 | ; A7 - En d of Date Range | |
| 462 | ; A8 - Cu rrent Line Counter | |
| 463 | ; A9 - In ternal Dat e being pr ocessed | |
| 464 | ; IEN3443 - Interna l IEN for file 344.3 | |
| 465 | ; IEN3443 1 - Intern al IEN for file 344. 31 | |
| 466 | ; RCFMS1( IEN34431) - FMS Docu ment Statu s for EFT IEN | |
| 467 | ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces | |
| 468 | ; may be updated | |
| 469 | ; A5 - Up dated Page Number | |
| 470 | ; A6 - St op Flag | |
| 471 | ; A8 - Up dated Line Counter | |
| 472 | N PAY,PAY ER,PAYID,X ,XX,YY,ZZ | |
| 473 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.01,"I" ) ; EFT Transa ction IEN | |
| 474 | S X=$$SET STR^VALM1( XX,"",3,6) | |
| 475 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.12,"I" ) ; Date Claim s Paid | |
| 476 | S X=$$SET STR^VALM1( $$FMTE^XLF DT(XX\1,"2 Z"),X,31,8 ) | |
| 477 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.07,"I" ) ; Amount of Payment | |
| 478 | S X=$$SET STR^VALM1( $J(XX,"",2 ),X,41,18) | |
| 479 | ; | |
| 480 | ; PRCA*4. 5*284, Mov e to left 3 space (6 1 to 58) t o allow fo r 10 digit ERA #'s | |
| 481 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.08,"I" ) ; Match Stat us | |
| 482 | S YY=$$GE T1^DIQ(344 .31,IEN344 31,.1,"I") ; ERA IEN | |
| 483 | S X=$$SET STR^VALM1( $$EXTERNAL ^DILFD(344 .31,.08,"" ,+XX)_$S(X X=1:"/ERA #"_YY,1:"" ),X,57,20) | |
| 484 | Q:$P(INPU T,"^",5)=1 | |
| 485 | D SL^RCDP EDA3(.INPU T,X) | |
| 486 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.04,"I" ) ; Trace Numb er | |
| 487 | S X=$$SET STR^VALM1( XX,"",5,$L (XX)) | |
| 488 | S XX=$G(^ TMP($J,"TO TALS","CRD OC",IEN344 3)) | |
| 489 | ; PRCA*4. 5*318 add CR # to de tail rpt | |
| 490 | S X=$$SET STR^VALM1( XX,X,54,$L (XX)) ; CR Documen t Number | |
| 491 | D SL^RCDP EDA3(.INPU T,X) | |
| 492 | S PAYER=$ $GET1^DIQ( 344.31,IEN 34431,.02, "I") ; Payer Name | |
| 493 | S:PAYER=" " PAYER="N O PAYER NA ME RECEIVE D" ; PRCA*4.5*2 98 | |
| 494 | S PAYID=$ $GET1^DIQ( 344.31,IEN 34431,.03, "I") ; Payer ID | |
| 495 | S PAY=PAY ER_"/"_PAY ID | |
| 496 | I $L(PAY) >74 D ; PRCA*4.5*3 18 added i f statemen t | |
| 497 | . S ZZ=$L (PAY,"/"), XX=$P(PAY, "/",1,ZZ-1 ),YY=$P(PA Y,"/",ZZ) | |
| 498 | . S XX=$E (XX,1,$L(X X)-($L(PAY )-74)),PAY =XX_"/"_YY | |
| 499 | S XX=$$SE TSTR^VALM1 (PAY,"",7, 74) | |
| 500 | D SL^RCDP EDA3(.INPU T,XX) | |
| 501 | ; PRCA*4. 5*318 add TR #s to d etail rpt | |
| 502 | D GETTR(I EN34431,.I NPUT) ; Gather & display al l TR Doc # s for EFT detail rec ord | |
| 503 | S X="" | |
| 504 | ; | |
| 505 | ; PRCA*4. 5*304 - le ngthen rec eipt numbe r display to 12 | |
| 506 | S XX=$$GE T1^DIQ(344 .31,IEN344 31,.09,"I" ) ; Receipt IE N | |
| 507 | I XX'="" D | |
| 508 | . S YY=$$ GET1^DIQ(3 44,XX,.01, "I") ; Receipt Nu mber | |
| 509 | . S X=$$S ETSTR^VALM 1(YY,X,46, 12) | |
| 510 | S X=$$SET STR^VALM1( $G(RCFMS1( IEN34431)) ,X,61,19) | |
| 511 | D SL^RCDP EDA3(.INPU T,X) | |
| 512 | Q:$P(INPU T,"^",5)=1 | |
| 513 | D EFTERRS ^RCDPEDA3( .INPUT,IEN 34431) ; Display an y EFT Erro rs | |
| 514 | D DUP(.IN PUT,IEN344 31) ; Check if t his was a duplicate EFT | |
| 515 | Q | |
| 516 | ; | |
| 517 | . | |
| 518 | . | |
| 519 | . | |
| 520 | ||
| 521 | ||
| 522 | Routines | |
| 523 | Activities | |
| 524 | Routine Na me | |
| 525 | RCDPEDA3 | |
| 526 | Enhancemen t Category | |
| 527 | New | |
| 528 | Modify | |
| 529 | Delete | |
| 530 | No Change | |
| 531 | RTM | |
| 532 | ||
| 533 | Related Op tions | |
| 534 | RCDPE EDI LOCKBOX AC T REPORT | |
| 535 | Routines | |
| 536 | Activities | |
| 537 | Data Dicti onary (DD) Reference s | |
| 538 | ||
| 539 | Related Pr otocols | |
| 540 | ||
| 541 | Related In tegration Control Re gistration s (ICRs) | |
| 542 | ||
| 543 | Data Passi ng | |
| 544 | Input | |
| 545 | Output Re ference | |
| 546 | Both | |
| 547 | Global Re ference | |
| 548 | Local | |
| 549 | Input Attr ibute Name and Defin ition | |
| 550 | Name: | |
| 551 | Definition : | |
| 552 | Output Att ribute Nam e and Defi nition | |
| 553 | Name: | |
| 554 | Definition : | |
| 555 | ||
| 556 | Related Ro utines | |
| 557 | Routines “ Called By” | |
| 558 | Routines “ Called” | |
| 559 | ||
| 560 | RPT^RCDPED AR | |
| 561 | RPT1^RCDPE DAR | |
| 562 | DETLN^RCDP EDA2 | |
| 563 | PROCEFT^RC DPEDA2 | |
| 564 | EFTDTL^RCD PEDA2 | |
| 565 | GETTR^RCDP EDA2 | |
| 566 | DUP^RCDPED A2 | |
| 567 | ERRMSGS^RC DPEDA2 | |
| 568 | $$SETSTR^V ALM1 | |
| 569 | ||
| 570 | ||
| 571 | Current Lo gic | |
| 572 | . | |
| 573 | . | |
| 574 | . | |
| 575 | LMHDR(RCST OP,RCDET,R CNJ,RCDT1, RCDT2,RCHD R) ; Entry Point fro m RCDPEDAR ; ListMa n report h eading ; ; Input: RC DET - 1 to display d etail, 0 o therwise ; RCNJ - Se t 1, indic ates repor t was call ed from th e nightly ; process OR display ing to lis tman. Used to set li nes ; into a ^TMP ar ray instea d of displ aying them . ; RCDT1 - Internal Start Dat e of date range ; RC DT2 - Inte rnal End D ate of dat e range ; RCNP - Pay er Selecti on flag A1 ^A2^A3 Whe re: ; A1 - 1 - Range ,2 - All,3 -Specific ; A2 - Fr om Payer t ext (only set if A1= 1) ; A3 - Through te xt (only s et if A1=1 ) ; ^TMP(" RCSELPAY", $J,B1) - S elected pa yers to be displayed ; Output: RCHDR - A rray of li stman head er lines ; RCSTOP - 1 if user stopped ; N RCCT,X, XX,Y,Z,Z0, Z1 S RCCT= 0 S XX=$S( RCDET:"DET AIL",1:"SU MMARY")_" REPORT" S RCHDR("TIT LE")="EDI LOCKBOX EF T DAILY AC TIVITY "_X X S Z1="" I 'VAUTD S Z0=0 F S Z0=$O(VAU TD(Z0)) Q: 'Z0 S Z1= Z1_VAUTD(Z 0)_", " S Z="DIVISIO NS: "_$S(V AUTD:"ALL" ,1:$E(Z1,1 ,$L(Z1)-2) ) I 'RCDET D . S RCC T=RCCT+1,R CHDR(RCCT) ="" S RCCT =RCCT+1,RC HDR(RCCT)= Z ; I 'RCD ET D . S R CCT=RCCT+1 ,RCHDR(RCC T)="" S Z= "DATE RANG E: "_$$FMT E^XLFDT(RC DT1,"2Z")_ " - " S Z= Z_$$FMTE^X LFDT(RCDT2 ,"2Z")_" ( Date Depos it Added)" I 'RCDET D . S RCCT =RCCT+1,RC HDR(RCCT)= "" S RCCT= RCCT+1,RCH DR(RCCT)=Z I RCDET D . S XX="D EP # DEPOS IT DT "_$J ("",19) . S XX=XX_"D EP AMOUNT FMS DEPOSI T STAT" . S Z=$$SETS TR^VALM1(X X,"",1,80) . S RCCT= RCCT+1,RCH DR(RCCT)=Z . S XX=$J ("",3)_"EF T #"_$J("" ,23)_"DATE PD PAYMEN T AMOUNT E RA MATCH S TATUS" . S Z=$$SETST R^VALM1(XX ,"",1,80) . S RCCT=R CCT+1,RCHD R(RCCT)=Z . S Z=$$SE TSTR^VALM1 ($J("",10) _"EFT PAYE R TRACE #" ,"",1,30) . ;PRCA*4. 5*318 add CR # . S Z =$$SETSTR^ VALM1("CR #",Z,60,80 ) . S RCCT =RCCT+1,RC HDR(RCCT)= Z . S Z=$$ SETSTR^VAL M1($J("",1 4)_"PAYMEN T FROM","" ,1,30) . S Z=$$SETST R^VALM1($J ("",15)_"D EP RECEIPT #",Z,31,3 0) . S Z=$ $SETSTR^VA LM1("DEP R ECEIPT STA TUS",Z,61, 19) . S RC CT=RCCT+1, RCHDR(RCCT )=Z . ;PRC A*4.5*318 add TR #s . S Z=$$SE TSTR^VALM1 ("TR #","" ,1,30) . S RCCT=RCCT +1,RCHDR(R CCT)=Z Q ; HDR(INPUT) ; Entry P oint from RCDPEDA3 ; Displays report hea der ; Inpu t: INPUT - A1^A2^A3^ ...^An Whe re: ; A1 - 1 if call ed from Ni ghtly Proc ess, 0 oth erwise ; A 2 - 1 if d isplaying to Listman , 0 otherw ise ; A3 - 1 if Deta il report, 0 if summ ary report ; A4 - Cu rrent Page Number ; A5 - Stop Flag ; A6 - Start of Date Rang e ; A7 - E nd of Date Range ; A 9 - Curren t line cou nt ; Outpu t: INPUT - A1^A2^A3^ ...^An - T he followi ng pieces may be upd ated ; A4 - Current Page Numbe r ; A5 - S top Flag ; A8 - Upda ted line c ount N CUR PG,DETL,DT ST,DTEND,N J,STOP,X,X X,Y,Z,Z0,Z 1 S DETL=$ P(INPUT,"^ ",3) S STO P=$P(INPUT ,"^",5) S DTST=$P(IN PUT,"^",6) ; Date Ra nge Start S DTEND=$P (INPUT,"^" ,7) ; Date Range End S STOP=0 S NJ=$P(INP UT,"^",1), CURPG=$P(I NPUT,"^",4 ) Q:NJ&(CU RPG) I CUR PG!($E(IOS T,1,2)="C- ") D . Q:N J . I CURP G,($E(IOST ,1,2)="C-" ) D ASK(.S TOP) Q:STO P . W @IOF ; Write f orm feed I STOP S $P (INPUT,"^" ,5)=1 Q S CURPG=CURP G+1,$P(INP UT,"^",4)= CURPG ; ; PRCA276 if coming fr om nightly job need to define payer sele ction vari able I NJ N RCNP S R CNP=2 ; ; PRCA276 if coming fr om nightly job need to define division s election v ariable I NJ N VAUTD S VAUTD=1 S Z0="EDI LOCKBOX E FT DAILY A CTIVITY "_ $S(DETL:"D ETAIL",1:" SUMMARY")_ " REPORT" S Z=$$SETS TR^VALM1($ J("",80-$L (Z0)\2)_Z0 ,"",1,79) S Z=$$SETS TR^VALM1(" Page: "_CU RPG,Z,70,1 0) D SL(.I NPUT,Z) S Z="RUN DAT E: "_$$FMT E^XLFDT($$ NOW^XLFDT( ),"2Z"),Z= $J("",80-$ L(Z)\2)_Z D SL(.INPU T,Z) ; ; P RCA276 add divisions to header S Z1="" I 'VAUTD S Z0=0 F S Z0=$O(VAUT D(Z0)) Q:' Z0 S Z1=Z 1_VAUTD(Z0 )_", " S Z ="DIVISION S: "_$S(VA UTD:"ALL", 1:$E(Z1,1, $L(Z1)-2)) ,Z=$J("",8 0-$L(Z)\2) _Z D SL(.I NPUT,Z) ; ; PRCA276 add payer selection list to he ader I RCN P'=2 D . S Z0=0,Z1=" " . F D Q:'Z0 . . S Z0=$O(^T MP("RCSELP AY",$J,Z0) ) . . Q:'Z 0 . . S Z1 =Z1_^TMP(" RCSELPAY", $J,Z0)_", " S Z="PAY ERS: "_$S( RCNP=2:"AL L",1:$E(Z1 ,1,$L(Z1)- 2)),Z=$J(" ",80-$L(Z) \2)_Z D SL (.INPUT,Z) ; ; PRCA2 76 add dat e filter t o header S Z="DATE R ANGE: "_$$ FMTE^XLFDT (DTST,"2Z" )_" - "_$$ FMTE^XLFDT (DTEND,"2Z ") S Z=Z_" (Date Dep osit Added )",Z=$J("" ,80-$L(Z)\ 2)_Z D SL( .INPUT,Z) I DETL D . ; . ; PRC A*4.5*283 - Add 3 mo re spaces between DE P # and DE POSIT DT . ; and re move 3 spa ces betwee n DEPOSIT DT and DEP AMOUNT to allow for 9 digit D EP #'s . D SL(.INPUT ,"") . S X X="DEP # D EPOSIT DT "_$J("",19 )_"DEP AMO UNT FMS DE POSIT STAT " . S Z=$$ SETSTR^VAL M1(XX,"",1 ,$L(XX)) . D SL(.INP UT,Z) . ; . ; PRCA*4 .5*284, Mo ve Match S tatus to l eft 3 spac e to allow for 10 di git ERA #' s . S XX=$ J("",3)_"E FT #"_$J(" ",23)_"DAT E PD PAYME NT AMOUNT ERA MATCH STATUS" . S Z=$$SETS TR^VALM1(X X,"",1,$L( XX)) . D S L(.INPUT,Z ) . S Z=$$ SETSTR^VAL M1($J("",1 0)_"EFT PA YER TRACE #","",1,52 ) . S Z=$$ SETSTR^VAL M1("CR #", Z,60,4) ;P RCA*4.5*31 8 add CR # . D SL(.I NPUT,Z) . S XX=$J("" ,14)_"PAYM ENT FROM" . S Z=$$SE TSTR^VALM1 (XX,"",1,$ L(XX)) . D SL(.INPUT ,Z) . S XX =$J("",3)_ "TR #" ;PRCA* 4.5*318 ad d TR # . S Z=$$SETST R^VALM1(XX ,"",1,$L(X X)) . D SL (.INPUT,Z) ; TR DOC header . S XX=$J("", 45)_"DEP R ECEIPT #" . S Z=$$SE TSTR^VALM1 (XX,"",1,$ L(XX)) . S Z=$$SETST R^VALM1("D EP RECEIPT STATUS",Z ,61,19) . D SL(.INPU T,Z) D SL( .INPUT,$TR ($J("",IOM -1)," ","= ")) Q ;. | |
| 576 | . | |
| 577 | .TOTSF(INP UT) ; Entr y Point fr om RCDPEDA R ; Displa y Final To tals ; ; I nput: INPU T - A1^A2^ A3^...^An Where: ; A 1 - 1 if c alled from Nightly P rocess, 0 otherwise ; A2 - 1 i f displayi ng to List man, 0 oth erwise ; A 3 - 1 if D etail repo rt, 0 if s ummary rep ort ; A4 - Current P age Number ; A5 - St op Flag ; A6 - Start of Date R ange ; A7 - End of D ate Range ; A8 - Cur rent Line Counter ; A9 - Inter nal Date b eing proce ssed ; ^TM P($J,"TOTA LS","DEP") - Total # of deposi ts for dat e range ; ^TMP($J,"T OTALS","DE PA") - Tot al Deposit Amount fo r date ran ge ; ^TMP( $J,"TOTALS ","EFT","T ") - Total Deposit A mount by E FTs for ra nge ; ^TMP ($J,"TOTAL S","FMS"," T",-1) - T otal Depos it Amount by FMS Doc ument for range ; ^T MP($J,"TOT ALS","FMS" ,"T",0) - Total Amou nt for Err or/Rejecte d docs for range ; ^ TMP($J,"TO TALS","FMS ","T",1") - Total Am ount for ' A','M',"F' or 'T' do cs range ; ^TMP($J," TOTALS","F MS","T",2" ) - Total Amount for queued do cs for ran ge ; ^TMP( $J,"TOTALS ","MATCH", "T") - Tot al Matched EFTs for date range ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed ; A5 - Updated Pa ge Number ; A6 - Sto p Flag ; A 8 - Update d Line Cou nter N LST MAN,NJ,XX, YY S LSTMA N=$P(INPUT ,"^",2),NJ =$P(INPUT, "^",1) ; ; Display h eader if n o output w as display ed and not being dis played in listman I '$O(^TMP(" RCDAILYACT ",$J,0)),' LSTMAN D H DR^RCDPEDA 3(.INPUT) ; ; If use r quit or (Nightly p rocess fla g AND not display to listman) - end here I $P(INPU T,"^",5)=1 !(NJ&'LSTM AN) Q | |
| 578 | . | |
| 579 | . | |
| 580 | . | |
| 581 | ||
| 582 | Modified L ogic | |
| 583 | . | |
| 584 | . | |
| 585 | . | |
| 586 | LMHDR(RCST OP,RCDET,R CNJ,RCDT1, RCDT2,RCHD R) ; Entry Point fro m RCDPEDAR ; ListMa n report h eading ; ; Input: RC DET - 1 to display d etail, 0 o therwise ; RCNJ - Se t 1, indic ates repor t was call ed from th e nightly ; process OR display ing to lis tman. Used to set li nes ; into a ^TMP ar ray instea d of displ aying them . ; RCDT1 - Internal Start Dat e of date range ; RC DT2 - Inte rnal End D ate of dat e range ; RCNP - Pay er Selecti on flag A1 ^A2^A3 Whe re: ; A1 - 1 - Range ,2 - All,3 -Specific ; A2 - Fr om Payer t ext (only set if A1= 1) ; A3 - Through te xt (only s et if A1=1 ) ; ^TMP(" RCSELPAY", $J,B1) - S elected pa yers to be displayed ; Output: RCHDR - A rray of li stman head er lines ; RCSTOP - 1 if user stopped ; N RCCT,X, XX,Y,Z,Z0, Z1 S RCCT= 0 S XX=$S( RCDET:"DET AIL",1:"SU MMARY")_" REPORT" S RCHDR("TIT LE")="EDI LOCKBOX EF T DAILY AC TIVITY "_X X S Z1="" I 'VAUTD S Z0=0 F S Z0=$O(VAU TD(Z0)) Q: 'Z0 S Z1= Z1_VAUTD(Z 0)_", " S Z="DIVISIO NS: "_$S(V AUTD:"ALL" ,1:$E(Z1,1 ,$L(Z1)-2) ) I 'RCDET D . S RCC T=RCCT+1,R CHDR(RCCT) ="" S RCCT =RCCT+1,RC HDR(RCCT)= Z ; I 'RCD ET D . S R CCT=RCCT+1 ,RCHDR(RCC T)="" S Z= "DATE RANG E: "_$$FMT E^XLFDT(RC DT1,"2Z")_ " - " S Z= Z_$$FMTE^X LFDT(RCDT2 ,"2Z")_" ( Date Depos it Added)" I 'RCDET D . S RCCT =RCCT+1,RC HDR(RCCT)= "" S RCCT= RCCT+1,RCH DR(RCCT)=Z I RCDET D . S XX="D EP # DEPOS IT DT "_$J ("",19) . S XX=XX_"D EP AMOUNT FMS DEPOSI T STAT" . S Z=$$SETS TR^VALM1(X X,"",1,80) . S RCCT= RCCT+1,RCH DR(RCCT)=Z . ; PRCA* 4.5*318, M ove entire EFT # row to left 1 space to adjust for other row s needing space . S XX=$J("",2 )_"EFT #"_ $J("",22)_ "DATE PD P AYMENT AMO UNT ERA MA TCH STATUS " . S Z=$$ SETSTR^VAL M1(XX,"",1 ,80) . S R CCT=RCCT+1 ,RCHDR(RCC T)=Z . ; P RCA*4.5*31 8, Move en tire EFT P ayer Trace # row to left 6 spa ces to adj ust for ot her rows n eeding spa ce . S Z=$ $SETSTR^VA LM1($J("", 4)_"EFT PA YER TRACE #","",1,30 ) . ;PRCA* 4.5*318 ad d CR # . S Z=$$SETST R^VALM1("C R #",Z,54, 80) . S RC CT=RCCT+1, RCHDR(RCCT )=Z . ; PR CA*4.5*318 , Move ent ire Paymen t From row to left 8 spaces to adjust . ; a possi ble 60 cha racter Pay er Name an d 20 chara cter Payer ID . S Z= $$SETSTR^V ALM1($J("" ,6)_"PAYME NT FROM"," ",1,30) . S Z=$$SETS TR^VALM1($ J("",15)_" DEP RECEIP T #",Z,31, 30) . S Z= $$SETSTR^V ALM1("DEP RECEIPT ST ATUS",Z,61 ,19) . S R CCT=RCCT+1 ,RCHDR(RCC T)=Z . ;PR CA*4.5*318 add TR #s . S Z=$$S ETSTR^VALM 1("TR #"," ",1,30) . S RCCT=RCC T+1,RCHDR( RCCT)=Z Q ;HDR(INPUT ) ; Displa ys report header ; I nput: INPU T - A1^A2^ A3^...^An Where: ; A 1 - 1 if c alled from Nightly P rocess, 0 otherwise ; A2 - 1 i f displayi ng to List man, 0 oth erwise ; A 3 - 1 if D etail repo rt, 0 if s ummary rep ort ; A4 - Current P age Number ; A5 - St op Flag ; A6 - Start of Date R ange ; A7 - End of D ate Range ; A9 - Cur rent line count ; Ou tput: INPU T - A1^A2^ A3^...^An - The foll owing piec es may be updated ; A4 - Curre nt Page Nu mber ; A5 - Stop Fla g ; A8 - U pdated lin e count N CURPG,DETL ,DTST,DTEN D,NJ,STOP, X,XX,Y,Z,Z 0,Z1 S DET L=$P(INPUT ,"^",3) S STOP=$P(IN PUT,"^",5) S DTST=$P (INPUT,"^" ,6) ; Date Range Sta rt S DTEND =$P(INPUT, "^",7) ; D ate Range EndS STOP= 0 S NJ=$P( INPUT,"^", 1),CURPG=$ P(INPUT,"^ ",4) Q:NJ& (CURPG) I CURPG!($E( IOST,1,2)= "C-") D . Q:NJ . I C URPG,($E(I OST,1,2)=" C-") D ASK (.STOP) Q: STOP . W @ IOF ; Writ e form fee d I STOP S $P(INPUT, "^",5)=1 Q S CURPG=C URPG+1,$P( INPUT,"^", 4)=CURPG ; ; PRCA276 if coming from nigh tly job ne ed to defi ne payer s election v ariable I NJ N RCNP S RCNP=2 ; ; PRCA276 if coming from nigh tly job ne ed to defi ne divisio n selectio n variable I NJ N VA UTD S VAUT D=1 S Z0=" EDI LOCKBO X EFT DAIL Y ACTIVITY "_$S(DETL :"DETAIL", 1:"SUMMARY ")_" REPOR T" S Z=$$S ETSTR^VALM 1($J("",80 -$L(Z0)\2) _Z0,"",1,7 9) S Z=$$S ETSTR^VALM 1("Page: " _CURPG,Z,7 0,10) D SL (.INPUT,Z) S Z="RUN DATE: "_$$ FMTE^XLFDT ($$NOW^XLF DT(),"2Z") ,Z=$J("",8 0-$L(Z)\2) _Z D SL(.I NPUT,Z) ; ; PRCA276 add divisi ons to hea der S Z1=" " I 'VAUTD S Z0=0 F S Z0=$O(V AUTD(Z0)) Q:'Z0 S Z 1=Z1_VAUTD (Z0)_", " S Z="DIVIS IONS: "_$S (VAUTD:"AL L",1:$E(Z1 ,1,$L(Z1)- 2)),Z=$J(" ",80-$L(Z) \2)_Z D SL (.INPUT,Z) ; ; PRCA2 76 add pay er selecti on list to header I RCNP'=2 D . S Z0=0,Z 1="" . F D Q:'Z0 . . S Z0=$O (^TMP("RCS ELPAY",$J, Z0)) . . Q :'Z0 . . S Z1=Z1_^TM P("RCSELPA Y",$J,Z0)_ ", " S Z=" PAYERS: "_ $S(RCNP=2: "ALL",1:$E (Z1,1,$L(Z 1)-2)),Z=$ J("",80-$L (Z)\2)_Z D SL(.INPUT ,Z) ; ; PR CA276 add date filte r to heade r S Z="DAT E RANGE: " _$$FMTE^XL FDT(DTST," 2Z")_" - " _$$FMTE^XL FDT(DTEND, "2Z") S Z= Z_" (Date Deposit Ad ded)",Z=$J ("",80-$L( Z)\2)_Z D SL(.INPUT, Z) I DETL D . ; . ; PRCA*4.5*2 83 - Add 3 more spac es between DEP # and DEPOSIT D T . ; and remove 3 spaces bet ween DEPOS IT DT and DEP AMOUNT to allow for 9 digi t DEP #'s . D SL(.IN PUT,"") . S XX="DEP # DEPOSIT DT "_$J("" ,19)_"DEP AMOUNT FMS DEPOSIT S TAT" . S Z =$$SETSTR^ VALM1(XX," ",1,$L(XX) ) . D SL(. INPUT,Z) . ; . ; PRC A*4.5*318, Move enti re EFT # r ow to left 1 space t o adjust f or other r ows needin g space . ; PRCA*4.5 *284, Move Match Sta tus to lef t 3 space to allow f or 10 digi t ERA #'s . S XX=$J( "",2)_"EFT #"_$J("", 22)_"DATE PD PAYMENT AMOUNT ER A MATCH ST ATUS" . S Z=$$SETSTR ^VALM1(XX, "",1,$L(XX )) . D SL( .INPUT,Z) . ; PRCA*4 .5*318, Mo ve entire EFT Payer Trace # ro w to left 6 spaces t o adjust f or other r ows needin g space . S Z=$$SETS TR^VALM1($ J("",4)_"E FT PAYER T RACE #","" ,1,52) . S Z=$$SETST R^VALM1("C R #",Z,54, 4) ;PRCA*4 .5*318 add CR # . D SL(.INPUT, Z) . ; PRC A*4.5*318, Move enti re Payment From row to left 8 spaces to adjust . ; a possib le 60 char acter Paye r Name and 20 charac ter Payer ID . S XX= $J("",6)_" PAYMENT FR OM" . S Z= $$SETSTR^V ALM1(XX,"" ,1,$L(XX)) . D SL(.I NPUT,Z) . S XX=$J("" ,3)_"TR #" ;P RCA*4.5*31 8 add TR # . S Z=$$S ETSTR^VALM 1(XX,"",1, $L(XX)) . D SL(.INPU T,Z) ; TR DOC header . S XX=$J ("",45)_"D EP RECEIPT #" . S Z= $$SETSTR^V ALM1(XX,"" ,1,$L(XX)) . S Z=$$S ETSTR^VALM 1("DEP REC EIPT STATU S",Z,61,19 ) . D SL(. INPUT,Z) D SL(.INPUT ,$TR($J("" ,IOM-1)," ","=")) Q ; | |
| 587 | . | |
| 588 | . | |
| 589 | . | |
| 590 | TOTSF(INPU T) ; Entry Point fro m RCDPEDAR ; Display Final Tot als ; ; In put: INPUT - A1^A2^A 3^...^An W here: ; A1 - 1 if ca lled from Nightly Pr ocess, 0 o therwise ; A2 - 1 if displayin g to Listm an, 0 othe rwise ; A3 - 1 if De tail repor t, 0 if su mmary repo rt ; A4 - Current Pa ge Number ; A5 - Sto p Flag ; A 6 - Start of Date Ra nge ; A7 - End of Da te Range ; A8 - Curr ent Line C ounter ; A 9 - Intern al Date be ing proces sed ; ^TMP ($J,"TOTAL S","DEP") - Total # of deposit s for date range ; ^ TMP($J,"TO TALS","DEP A") - Tota l Deposit Amount for date rang e ; ^TMP($ J,"TOTALS" ,"EFT","T" ) - Total Deposit Am ount by EF Ts for ran ge ; ^TMP( $J,"TOTALS ","FMS","T ",-1) - To tal Deposi t Amount b y FMS Docu ment for r ange ; ^TM P($J,"TOTA LS","FMS", "T",0) - T otal Amoun t for Erro r/Rejected docs for range ; ^T MP($J,"TOT ALS","FMS" ,"T",1") - Total Amo unt for 'A ','M',"F' or 'T' doc s range ; ^TMP($J,"T OTALS","FM S","T",2") - Total A mount for queued doc s for rang e ; ^TMP($ J,"TOTALS" ,"MATCH"," T") - Tota l Matched EFTs for d ate range ; Output: INPUT - A1 ^A2^A3^... ^An - The following pieces may be update d ; A5 - U pdated Pag e Number ; A6 - Stop Flag ; A8 - Updated Line Coun ter N LSTM AN,NJ,XX,Y Y S LSTMAN =$P(INPUT, "^",2),NJ= $P(INPUT," ^",1) ; ; Display he ader if no output wa s displaye d and not being disp layed in l istman I ' $O(^TMP("R CDAILYACT" ,$J,0)),'L STMAN D HD R(.INPUT) ; ; If use r quit or (Nightly p rocess fla g AND not display to listman) - end here I $P(INPU T,"^",5)=1 !(NJ&'LSTM AN) Q | |
| 591 | . | |
| 592 | . | |
| 593 | . | |
| 594 | ||
| 595 | ||
| 596 | Routines | |
| 597 | Activities | |
| 598 | Routine Na me | |
| 599 | RCDPE8NZ | |
| 600 | Enhancemen t Category | |
| 601 | New | |
| 602 | Modify | |
| 603 | Delete | |
| 604 | No Change | |
| 605 | RTM | |
| 606 | ||
| 607 | Related Op tions | |
| 608 | RCDPE UNAP PLIED EFT DEP REPORT | |
| 609 | Routines | |
| 610 | Activities | |
| 611 | Data Dicti onary (DD) Reference s | |
| 612 | ||
| 613 | Related Pr otocols | |
| 614 | ||
| 615 | Related In tegration Control Re gistration s (ICRs) | |
| 616 | ||
| 617 | Data Passi ng | |
| 618 | Input | |
| 619 | Output Re ference | |
| 620 | Both | |
| 621 | Global Re ference | |
| 622 | Local | |
| 623 | Input Attr ibute Name and Defin ition | |
| 624 | Name: | |
| 625 | Definition : | |
| 626 | Output Att ribute Nam e and Defi nition | |
| 627 | Name: | |
| 628 | Definition : | |
| 629 | ||
| 630 | Related Ro utines | |
| 631 | Routines “ Called By” | |
| 632 | Routines “ Called” | |
| 633 | ||
| 634 | NONE | |
| 635 | $$DTRNG^RC DPEM4() | |
| 636 | $$DISPTY^R CDPEM3() | |
| 637 | INFO^RCDPE M6 | |
| 638 | $$ASKLM^RC DPEARL | |
| 639 | LMRPT^RCDP EARL | |
| 640 | $$FMSSTAT^ RCDPUREC(R CREC) | |
| 641 | HDRLST^RCD PEARL | |
| 642 | SL^RCDPEAR L | |
| 643 | $$HACEFT^R CDPEU(RCAR DEP) | |
| 644 | $$ENDORPRT ^RCDPEARL | |
| 645 | ASK^RCDPEA RL | |
| 646 | $$NOW^RCDP EARL | |
| 647 | ||
| 648 | ||
| 649 | Current Lo gic | |
| 650 | . | |
| 651 | . | |
| 652 | . | |
| 653 | EN ; entry point for Unapplied EFT Depos its Report [RCDPE UN APPLIED EF T DEP REPO RT] | |
| 654 | ; ^RCY(34 4.3,0) = E DI LOCKBOX DEPOSIT^3 44.3I^ | |
| 655 | ; | |
| 656 | N %ZIS,DI R,RCDISPTY ,RCDTRNG,R CENDT,RCHD R,RCLNCNT, RCLSTMGR,R CPGNUM,RCR PLST,RCSTD T,RCTMPND, X,Y | |
| 657 | ; RCDISPT Y - displa y taype fo r Excel | |
| 658 | . | |
| 659 | . | |
| 660 | RPT ; dis play/print the repor t using da ta populat ed in temp orary glob al array | |
| 661 | ; | |
| 662 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; in itial repo rt header | |
| 663 | ; | |
| 664 | S RCDT=0 | |
| 665 | F S RCDT =$O(^TMP(R CRPLST,$J, RCDT)) Q:' RCDT D Q :RCSTOP | |
| 666 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 667 | .D SL^RCD PEARL(" ", .RCLNCNT,R CTMPND) ; skip a li ne | |
| 668 | .S Y="DEP OSIT DATE: "_$$FMTE^ XLFDT(RCDT ,1),Y=$J(" ",80-$L(Y) \2)_Y D SL ^RCDPEARL( Y,.RCLNCNT ,RCTMPND) | |
| 669 | .S RCARDE P=0 F S R CARDEP=$O( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) Q:'RCARDE P D | |
| 670 | ..D SL^RC DPEARL(" " ,.RCLNCNT, RCTMPND) ; skip a l ine | |
| 671 | ..S RCTSK CNT=RCTSKC NT+1 I 'RC LSTMGR,(RC TSKCNT#100 ),$D(ZTQUE UED),$$S^% ZTLOAD D Q ; stop task | |
| 672 | ...S (RCS TOP,ZTSTOP )=1 D SL^R CDPEARL("T ASK STOPPE D BY USER! !",.RCLNCN T,RCTMPND) K ZTREQ | |
| 673 | ..; | |
| 674 | ..S RCDAT A(0)=$G(^R CY(344.3,R CARDEP,0)) | |
| 675 | ..I 'RCLS TMGR,$Y>(I OSL-RCHDR( 0)) D HDRL ST^RCDPEAR L(.RCSTOP, .RCHDR) Q: RCSTOP | |
| 676 | ..; PRCA* 4.5*283 - Change the spaces fo r DEP # fr om 10 to 1 3 to allow 9 digit D EP # | |
| 677 | ..; PRCA* 4.5*317 Sh ift line 2 chars to the right | |
| 678 | ..S Y=" "_$E($P(RC DATA(0),U, 6)_$S('$$H ACEFT^RCDP EU(RCARDEP ):"",1:"-H AC")_$J("" ,13),1,13) ;deposit # | |
| 679 | ..S Y=Y_" "_$E($$F MTE^XLFDT( $P(RCDATA( 0),U,7),2) _$J("",16) ,1,16) ; deposit date | |
| 680 | ..S Y=Y_" "_$E($J( +$P(RCDATA (0),U,8)," ",2)_$J("" ,20),1,20) ; total a mt deposit | |
| 681 | ..S Y=Y_" "_$J(+$G (^TMP(RCRP LST,$J,RCD T,RCARDEP) ),"",2) ; total a mt unposte d | |
| 682 | ..D SL^RC DPEARL(Y,. RCLNCNT,RC TMPND) | |
| 683 | ..S RCEFT IEN=0 F S RCEFTIEN= $O(^TMP(RC RPLST,$J,R CDT,RCARDE P,RCEFTIEN )) Q:'RCEF TIEN S RC DATA=$G(^( RCEFTIEN)) ,RCEFT("DE P")=$G(^RC Y(344.31,R CEFTIEN,0) ) D | |
| 684 | ...I 'RCL STMGR,$Y>( IOSL-RCHDR (0)) D HDR LST^RCDPEA RL(.RCSTOP ,.RCHDR) Q :RCSTOP | |
| 685 | ...N RCPA Y S RCPAY= $P(RCEFT(" DEP"),U,2) S:RCPAY=" " RCPAY="N O PAYER NA ME RECEIVE D" ; PRCA* 4.5*298 | |
| 686 | ...; | |
| 687 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 688 | ...S Y=" "_RCPAY_ "/"_$P(RCE FT("DEP"), U,3) D SL ^RCDPEARL( Y,.RCLNCNT ,RCTMPND) ; payer/ ID | |
| 689 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 690 | ...S Y=" "_$E($P (RCEFT("DE P"),U,4)_$ J("",50),1 ,50) ; trace # | |
| 691 | ...S Y=Y_ " "_$E($J( +$P(RCEFT( "DEP"),U,7 ),"",2)_$J ("",12),1, 12) ; payment amt | |
| 692 | ...; | |
| 693 | ...; PRCA *4.5*317 S hift lines 2 to thr right to a llow 12 di git receip t # | |
| 694 | ...S Y=Y_ " "_$S($P( RCDATA,U,4 )'="":$P(R CDATA,U,4) ,1:"NO REC EIPT") ; receipt # | |
| 695 | ... D SL^ RCDPEARL(Y ,.RCLNCNT, RCTMPND) | |
| 696 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 697 | ...S Z=$P (RCEFT("DE P"),U,8) | |
| 698 | ...S Y=" "_$E( $S('Z:"UNM ATCHED",Z= 2:"PAPER E OB",1:"MAT CHED TO ER A #: "_$P( RCEFT("DEP "),U,10)_$ S(Z=-1:" ( TOTALS MIS MATCH)",1: ""))_$J("" ,40),1,40) _" " | |
| 699 | ...S Y=Y_ $S($P(RCDA TA,U)=-1:" NO RECEIPT ",$P(RCDAT A,U)=-2:"N O FMS DOCU MENT",1:$E ($P(RCDATA ,U,2)_" - "_$P(RCDAT A,U,3),1,3 0)) | |
| 700 | ...D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) | |
| 701 | ; | |
| 702 | I '$D(^TM P(RCRPLST, $J)) D SL^ RCDPEARL(" *** NO REC ORDS TO PR INT ***",. RCLNCNT,RC TMPND) | |
| 703 | ; | |
| 704 | I 'RCSTOP D SL^RCDP EARL(" ",. RCLNCNT,RC TMPND),SL^ RCDPEARL($ $ENDORPRT^ RCDPEARL,. RCLNCNT,RC TMPND) | |
| 705 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 706 | D:'$D(ZTQ UEUED) ^%Z ISC | |
| 707 | G:RCSTOP RPTQ | |
| 708 | ; | |
| 709 | I 'RCLSTM GR,'RCSTOP ,$E(IOST,1 ,2)="C-" D ASK^RCDPE ARL(.RCSTO P) | |
| 710 | ; | |
| 711 | RPTQ ; | |
| 712 | K ^TMP(RC RPLST,$J) | |
| 713 | Q | |
| 714 | ; | |
| 715 | . | |
| 716 | . | |
| 717 | ||
| 718 | Modified L ogic | |
| 719 | . | |
| 720 | . | |
| 721 | . | |
| 722 | EN ; entry point for Unapplied EFT Depos its Report [RCDPE UN APPLIED EF T DEP REPO RT] | |
| 723 | ; ^RCY(34 4.3,0) = E DI LOCKBOX DEPOSIT^3 44.3I^ | |
| 724 | ; | |
| 725 | N %ZIS,DI R,RCDISPTY ,RCDTRNG,R CENDT,RCHD R,RCLNCNT, RCLSTMGR,R CPGNUM,RCR PLST,RCSTD T,RCTMPND, X,Y | |
| 726 | ; RCDISPT Y - displa y type for Excel | |
| 727 | . | |
| 728 | . | |
| 729 | . | |
| 730 | RPT ; dis play/print the repor t using da ta populat ed in temp orary glob al array | |
| 731 | N RCPAYID ,RCPAYER,X X,YY,ZZ ;PRCA*4. 5*318 | |
| 732 | ; | |
| 733 | D:'RCLSTM GR HDRLST^ RCDPEARL(. RCSTOP,.RC HDR) ; in itial repo rt header | |
| 734 | ; | |
| 735 | S RCDT=0 | |
| 736 | F S RCDT =$O(^TMP(R CRPLST,$J, RCDT)) Q:' RCDT D Q :RCSTOP | |
| 737 | .I 'RCLST MGR,$Y>(IO SL-RCHDR(0 )) D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) Q:R CSTOP | |
| 738 | .D SL^RCD PEARL(" ", .RCLNCNT,R CTMPND) ; skip a li ne | |
| 739 | .S Y="DEP OSIT DATE: "_$$FMTE^ XLFDT(RCDT ,1),Y=$J(" ",80-$L(Y) \2)_Y D SL ^RCDPEARL( Y,.RCLNCNT ,RCTMPND) | |
| 740 | .S RCARDE P=0 F S R CARDEP=$O( ^TMP(RCRPL ST,$J,RCDT ,RCARDEP)) Q:'RCARDE P D | |
| 741 | ..D SL^RC DPEARL(" " ,.RCLNCNT, RCTMPND) ; skip a l ine | |
| 742 | ..S RCTSK CNT=RCTSKC NT+1 I 'RC LSTMGR,(RC TSKCNT#100 ),$D(ZTQUE UED),$$S^% ZTLOAD D Q ; stop task | |
| 743 | ...S (RCS TOP,ZTSTOP )=1 D SL^R CDPEARL("T ASK STOPPE D BY USER! !",.RCLNCN T,RCTMPND) K ZTREQ | |
| 744 | ..; | |
| 745 | ..S RCDAT A(0)=$G(^R CY(344.3,R CARDEP,0)) | |
| 746 | ..I 'RCLS TMGR,$Y>(I OSL-RCHDR( 0)) D HDRL ST^RCDPEAR L(.RCSTOP, .RCHDR) Q: RCSTOP | |
| 747 | ..; PRCA* 4.5*283 - Change the spaces fo r DEP # fr om 10 to 1 3 to allow 9 digit D EP # | |
| 748 | ..; PRCA* 4.5*317 Sh ift line 2 chars to the right | |
| 749 | ..S Y=" "_$E($P(RC DATA(0),U, 6)_$S('$$H ACEFT^RCDP EU(RCARDEP ):"",1:"-H AC")_$J("" ,13),1,13) ;deposit # | |
| 750 | ..S Y=Y_" "_$E($$F MTE^XLFDT( $P(RCDATA( 0),U,7),2) _$J("",16) ,1,16) ; deposit date | |
| 751 | ..S Y=Y_" "_$E($J( +$P(RCDATA (0),U,8)," ",2)_$J("" ,20),1,20) ; total a mt deposit | |
| 752 | ..S Y=Y_" "_$J(+$G (^TMP(RCRP LST,$J,RCD T,RCARDEP) ),"",2) ; total a mt unposte d | |
| 753 | ..D SL^RC DPEARL(Y,. RCLNCNT,RC TMPND) | |
| 754 | ..S RCEFT IEN=0 F S RCEFTIEN= $O(^TMP(RC RPLST,$J,R CDT,RCARDE P,RCEFTIEN )) Q:'RCEF TIEN S RC DATA=$G(^( RCEFTIEN)) ,RCEFT("DE P")=$G(^RC Y(344.31,R CEFTIEN,0) ) D | |
| 755 | ...I 'RCL STMGR,$Y>( IOSL-RCHDR (0)) D HDR LST^RCDPEA RL(.RCSTOP ,.RCHDR) Q :RCSTOP | |
| 756 | ...N RCPA Y S RCPAY= $P(RCEFT(" DEP"),U,2) S:RCPAY=" " RCPAY="N O PAYER NA ME RECEIVE D" ; PRCA* 4.5*298 | |
| 757 | ...; | |
| 758 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 759 | ...;S Y=" "_RCPAY _"/"_$P(RC EFT("DEP") ,U,3) D S L^RCDPEARL (Y,.RCLNCN T,RCTMPND) ; payer /ID | |
| 760 | ...; PRCA *4.5*318 A ccount for payer nam es of 60 c haracters and payer ID of 20 c haracters | |
| 761 | ...S RCPA YID=$P(RCE FT("DEP"), U,3) | |
| 762 | ...S RCPA YER=RCPAY_ "/"_RCPAYI D ; p ayer/ID | |
| 763 | ...I $L(R CPAYER)>77 D | |
| 764 | ... . S Z Z=$L(RCPAY ER,"/"),XX =$P(RCPAYE R,"/",1,ZZ -1),YY=$P( RCPAYER,"/ ",ZZ) | |
| 765 | ... . S X X=$E(XX,1, $L(XX)-($L (RCPAYER)- 77)),RCPAY ER=XX_"/"_ YY | |
| 766 | ...S Y=" "_RCPAYE R | |
| 767 | ...; end of PRCA*4. 5*318 | |
| 768 | ...D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) ; payer/ID | |
| 769 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 770 | ...S Y=" "_$E($P (RCEFT("DE P"),U,4)_$ J("",50),1 ,50) ; trace # | |
| 771 | ...S Y=Y_ " "_$E($J( +$P(RCEFT( "DEP"),U,7 ),"",2)_$J ("",12),1, 12) ; payment amt | |
| 772 | ...; | |
| 773 | ...; PRCA *4.5*317 S hift lines 2 to thr right to a llow 12 di git receip t # | |
| 774 | ...S Y=Y_ " "_$S($P( RCDATA,U,4 )'="":$P(R CDATA,U,4) ,1:"NO REC EIPT") ; receipt # | |
| 775 | ... D SL^ RCDPEARL(Y ,.RCLNCNT, RCTMPND) | |
| 776 | ...; PRCA *4.5*317 S hift line 2 chars to the right | |
| 777 | ...S Z=$P (RCEFT("DE P"),U,8) | |
| 778 | ...S Y=" "_$E( $S('Z:"UNM ATCHED",Z= 2:"PAPER E OB",1:"MAT CHED TO ER A #: "_$P( RCEFT("DEP "),U,10)_$ S(Z=-1:" ( TOTALS MIS MATCH)",1: ""))_$J("" ,40),1,40) _" " | |
| 779 | ...S Y=Y_ $S($P(RCDA TA,U)=-1:" NO RECEIPT ",$P(RCDAT A,U)=-2:"N O FMS DOCU MENT",1:$E ($P(RCDATA ,U,2)_" - "_$P(RCDAT A,U,3),1,3 0)) | |
| 780 | ...D SL^R CDPEARL(Y, .RCLNCNT,R CTMPND) | |
| 781 | ; | |
| 782 | I '$D(^TM P(RCRPLST, $J)) D SL^ RCDPEARL(" *** NO REC ORDS TO PR INT ***",. RCLNCNT,RC TMPND) | |
| 783 | ; | |
| 784 | I 'RCSTOP D SL^RCDP EARL(" ",. RCLNCNT,RC TMPND),SL^ RCDPEARL($ $ENDORPRT^ RCDPEARL,. RCLNCNT,RC TMPND) | |
| 785 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 786 | D:'$D(ZTQ UEUED) ^%Z ISC | |
| 787 | G:RCSTOP RPTQ | |
| 788 | ; | |
| 789 | I 'RCLSTM GR,'RCSTOP ,$E(IOST,1 ,2)="C-" D ASK^RCDPE ARL(.RCSTO P) | |
| 790 | ; | |
| 791 | RPTQ ; | |
| 792 | K ^TMP(RC RPLST,$J) | |
| 793 | Q | |
| 794 | ; | |
| 795 | . | |
| 796 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.