Produced by Araxis Merge on 8/2/2017 2:39:08 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 US172 SDD.docx | Wed Jun 21 15:37:42 2017 UTC |
| 2 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US172 SDD.docx | Wed Aug 2 15:23:07 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 532 |
| 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 US172 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*3 18 | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | February 2 017 | |
| 10 | Version 1. 1 | |
| 11 | User Story Number: U S172 | |
| 12 | User Story Name: Enh ance Daily Activity Report to show CR an d TR numbe rs | |
| 13 | Story | |
| 14 | As a clerk , I need t o know the correspon ding CR (c ash receip t) and TR (transfer) documents for any g iven EFT. Additiona lly, accou nting need s this qui ck referen ce, if the y find som ething out of balanc e. Curren tly, I hav e to resea rch multip le receipt s to find the inform ation. Wi th auto-po sting, I c ould have MANY TR do cuments as sociated w ith my EFT , since th ere is a T R document associate d with eac h payment receipt. If all ap plicable C R and TR d ocuments a re added t o the Dail y Activity Report, i t can save me many h ours of re search. | |
| 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 | ||
| 54 | ||
| 55 | ||
| 56 | ||
| 57 | Related Ro utines | |
| 58 | Routines “ Called By” | |
| 59 | Routines “ Called” | |
| 60 | ||
| 61 | RPTOUT^RCD PEAR1 | |
| 62 | RPTOUT^RCD PEAR2 | |
| 63 | EN2^RCDPEM 1 | |
| 64 | ||
| 65 | DIVISION^V AUTOMA | |
| 66 | $$GETPAY^R CDPEM9 | |
| 67 | ASKLM^RCDP EARL | |
| 68 | LMHDR^RCDP EDA3 | |
| 69 | LMRPT^RCDP EARL | |
| 70 | ASK^RCDPEA RL | |
| 71 | HDR^RCDPED A3 | |
| 72 | SL^RCDPEDA 3 | |
| 73 | RPT2^RCDPE DA2 | |
| 74 | TOTSDAY^RC DPEDA3 | |
| 75 | TOTSF^RCDP EDA3 | |
| 76 | $$ENDORPRT ^RCDPEARL | |
| 77 | $$ERASTA^R CDPEM3 | |
| 78 | ENDORPRT^R CDPEARL | |
| 79 | ERASTA^RCD PEM3 | |
| 80 | ||
| 81 | ||
| 82 | ||
| 83 | Current Lo gic | |
| 84 | RCDPEDAR ; ALB/TMK - ACTIVITY R EPORT ;Jun 06, 2014@ 19:11:19 ; ;4.5;Accou nts Receiv able;**173 ,276,284,2 83,298,304 **;Mar 20, 1995;Buil d 99 ;Per VA Directi ve 6402, t his routin e should n ot be modi fied. Q ;R PT ; Daily Activity Rpt On Dem and N RCDE T,RCDIV,RC DT1,RCDT2, RCHDR,RCIN C,RCLSTMGR ,RCNJ,RCNP ,RCPG,RCPY RSEL,RCRAN GE,RCTMPND ,VAUTD,X,Y ; RCDT1 - date rang e start ; RCDT2 - da te range e nd ; RCNP - payer se lection ; RCPYRSEL - payer sel ection, us ed for tas ked job to store ^TM P("RCSELPA Y",$J) ; R CTMPND - s torage nod e ; S RCNJ =0 ; not t he nightly job, user interacti ons ; Get division/s tation D D IVISION^VA UTOMA ; se ts VAUTD I 'VAUTD&($ D(VAUTD)'= 11) G RPTQ N DIR,DTO UT,DUOUT S DIR("A")= "(S)UMMARY OR (D)ETA IL?: ",DIR (0)="SA^S: SUMMARY TO TALS ONLY; D:DETAIL A ND TOTALS" S DIR("B" )="D" D ^D IR K DIR I $D(DTOUT) !$D(DUOUT) !(Y="") G RPTQ S RCD ET=(Y="D") K DIR S D IR("?")="E NTER THE E ARLIEST DA TE OF RECE IPT OF DEP OSIT TO IN CLUDE ON T HE REPORT" S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="ST ART DATE: " D ^DIR K DIR I $D( DTOUT)!$D( DUOUT)!(Y= "") G RPTQ S RCDT1=Y K DIR S D IR("?")="E NTER THE L ATEST DATE OF RECEIP T OF DEPOS IT TO INCL UDE ON THE REPORT" S DIR("B")= Y(0) S DIR (0)="DAO^" _RCDT1_":" _DT_":APE" ,DIR("A")= "END DATE: " D ^DIR K DIR I $D (DTOUT)!$D (DUOUT)!(Y ="") G RPT Q S RCDT2= Y ;Get ins urance com pany to be used as f ilter ; PR CA*4.5*284 - RCNP is Type of R esponse (1 =Range,2=A ll,3=Speci fic) ^ Fro m Range^ T hru Range S RCNP=$$G ETPAY^RCDP EM9(344.31 ) I +RCNP= -1 G RPTQ ; ; PRCA*4 .5*298 - A dd List Ma nager Prom pts S RCLS TMGR=$$ASK LM^RCDPEAR L I RCLSTM GR<0 G RPT Q ; '^' o r timeout ; I RCLSTM GR=1 D G RPTQ ; Li stMan form at, put in array .S RCTMPND="R CDPE_DAR" .K ^TMP($J ,RCTMPND) .N RCCT,RC NJ,RCPG .S RCNJ=1,RC PG=1,RCCT= 0 .D EN(RC DET,RCDT1, RCDT2) .D LMHDR(.RCS TOP,RCDET, 1) .D LMRP T^RCDPEARL (.RCHDR,$N A(^TMP($J, RCTMPND))) ; generat e ListMan display .I $D(RCTMPN D) K ^TMP( $J,RCTMPND ) ; ; Ask device N % ZIS,POP S %ZIS="QM" D ^%ZIS G: POP RPTQ I $D(IO("Q" )) D G RP TQ .N ZTDS C,ZTRTN,ZT SK .S ZTRT N="EN^RCDP EDAR("_RCD ET_","_RCD T1_","_RCD T2_")",ZTD ESC="AR - EDI LOCKBO X EFT DAIL Y ACTIVITY REPORT" . S ZTSAVE(" RC*")="",Z TSAVE("VAU TD")="" .; PRCA*4.5* 284 - Beca use TMP gl obal may b e on anoth er server, save off specific p ayers in l ocal .M RC PYRSEL=^TM P("RCSELPA Y",$J) .D ^%ZTLOAD . W !!,$S($D (ZTSK):"Ta sk number "_ZTSK_" w as queued. ",1:"Unabl e to queue this task .") .K ZTS K,IO("Q") D HOME^%ZI S ; U IO D EN(RCDET, RCDT1,RCDT 2) ;RPTQ ; Q ;EN(RCD ET,RCDT1,R CDT2) ; En try point for report , might be queued ; RCDET = 1 to include detail, 0 for total s only ; R CDT1, RCDT 2 = date f rom, to N DATA,RC,RC FLG,RCIEN, RCJOB,RCPG ,RCSTOP,RC T,STATION, Z,Z0 ; I $ G(ZTSK) N ZTSTOP ; job was ta sked, ZTST OP = flag to stop ; PRCA*4.5*2 84 - Queue d job need s to reloa d payer se lection li st I $D(RC PYRSEL) D .K ^TMP("R CSELPAY",$ J) M ^TMP( "RCSELPAY" ,$J)=RCPYR SEL ; S RC NP=+RCNP,R CJOB=$J K ^TMP("RCDA ILYACT",$J ) S Z=RCDT 1-.0001,(R CSTOP,RCT) =0 F S Z= $O(^RCY(34 4.3,"ARECD T",Z)) Q:' Z!(Z>(RCDT 2_".9999") )!RCSTOP D .S Z0=0 F S Z0=$O (^RCY(344. 3,"ARECDT" ,Z,Z0)) Q: 'Z0!RCSTOP D ..S DA TA=$G(^RCY (344.3,Z0, 0)),RCFLG= 0 ..S RCIE N="" F S RCIEN=$O(^ RCY(344.31 ,"B",Z0,RC IEN)) Q:RC IEN="" D ...I '$$CH KPYR(RCIEN ,0,RCJOB) Q ; check payer ... I '$$CHKDI V(RCIEN,0, .VAUTD) Q ; check s tation/div ision ...S RCFLG=1,^ TMP("RCDAI LYACT",$J, Z\1,Z0,"EF T",RCIEN)= "" ..; ..I RCFLG S ^ TMP("RCDAI LYACT",$J, Z\1,Z0)=DA TA ..S RCT =RCT+1 I ' (RCT#100), $D(ZTQUEUE D),$$S^%ZT LOAD S (RC STOP,ZTSTO P)=1 K ZTR EQ Q ; Ch eck for us er stopped every 100 records ; D:'RCSTOP RPT1(RCNJ ,RCDET,RCD T1,RCDT2,. RCSTOP,.RC PG) D ENQ( RCSTOP,$G( RCPG)) Q ; RPT1(RCNJ, RCDET,RCDT 1,RCDT2,RC STOP,RCPG) ; Entry p oint for r eport ; RC NJ - 1 if called by nightly jo b, 0 if ca lled on de mand ; RCD ET - 1 to include de tail, 0 fo r totals o nly ; RCDT 1, RCDT2 - date from , to ; RCS TOP - stop flag, 1 i f user ele cted to qu it job ; R CPG - page #, return ed if pass ed by refe rence ; N X,Q,Q0,Z,Z 0,Z1,Z2,Z3 ,ZCT,RCCT, RCDEP,RCDE PA,RCDEPAP ,RCFMS,RCF MS1,RCD1,R CFMSTOT,RC EFT,RCMATC H,RCDEPREC ,RCDT N D, DIC,I,RCIE N,RCPAY ; ; RCCT - l ine counte r S (RCCT, RCDEP,RCDE PA,RCDEPAP ,RCDEPREC, RCPG,RCSTO P,Z,ZCT)=0 ,RCD1=1 S RCNJ=+$G(R CNJ) F S Z=$O(^TMP( "RCDAILYAC T",$J,Z)) Q:'Z D G :RCSTOP RP T1Q ; Z = date .I '$ G(RCLSTMGR ),'RCPG!$S ('$G(RCNJ) :($Y+5)>IO SL,1:0) D: '$G(RCLSTM GR) HDR(.R CSTOP,RCDE T,RCNJ) S RCDT=1 Q:R CSTOP .S Q ="DATE EFT DEPOSIT R ECEIVED: " _$$FMTE^XL FDT(Z,2),Q =$J("",80- $L(Q)\2)_Q ; Center it .I 'RCD 1,$G(RCDET ) D SL(" " ) ; Skip l ine if >1 dt on pg . S RCDT=0 . D:$$PC HDR (.RCSTOP,R CDET,RCNJ) Q:RCSTOP .I $G(RCDE T) D ..D S L(Q) ..D S L(" ") .; Z0 = ien o f entry in file 344. 3 .K RCEFT ("D"),RCMA TCH("D"),R CFMS("D") .S Z0=0 F S Z0=$O(^ TMP("RCDAI LYACT",$J, Z,Z0)) Q:' Z0 D Q:R CSTOP ..S Z1=$G(^TMP ("RCDAILYA CT",$J,Z,Z 0)) ..S RC DEPREC=+$O (^RCY(344, "AD",+$P(Z 1,U,3),0)) ,RCDEP(Z)= $G(RCDEP(Z ))+1,RCDEP A(Z)=$G(RC DEPA(Z))+$ P(Z1,U,8) ..I $P($G( ^RCY(344,R CDEPREC,2) ),U)="" S RCFMS("D", -1)=$G(RCF MS("D",-1) )+$P(Z1,U, 8),RCFMS=" NO FMS DOC " ..I $P($ G(^RCY(344 ,RCDEPREC, 2)),U)'="" D ...S X= $$STATUS^G ECSSGET($P (^RCY(344, RCDEPREC,2 ),U)) ...I X=-1 S RC FMS("D",-1 )=$G(RCFMS ("D",-1))+ $P(Z1,U,8) Q ...S RC FMS=$E($P( X," "),1,1 0),Q=$E(X) ,Q=$S(Q="E "!(Q="R"): 0,Q="Q":2, 1:1),RCFMS ("D",Q)=$G (RCFMS("D" ,Q))+$P(Z1 ,U,8) ...; ..I $G(RC DET) D Q: RCSTOP ... ; PRCA*4.5 *283 - cha nge length of DEP # from 6 to 9 to allow for 9 dig it DEP #'s ...S X=$$ SETSTR^VAL M1($P(Z1,U ,6),"",1,9 ) ...; Cha nge DEPOSI T DT's sta rting posi tion from 9 to 12 .. .S X=$$SET STR^VALM1( $$FMTE^XLF DT($P(Z1,U ,7)\1,2),X ,12,10) .. .; Change starting p osition fr om 21 to 2 3 & reduce length of spaces fr om 10 to 8 . ...S X=$ $SETSTR^VA LM1("",X,2 3,8) ...S X=$$SETSTR ^VALM1("", X,32,10) . ..S X=$$SE TSTR^VALM1 ($E($J($P( Z1,U,8),"" ,2)_$J("", 20),1,20)_ RCFMS,X,43 ,37) ...D: $$PC HDR(. RCSTOP,RCD ET,RCNJ) Q :RCSTOP .. .D SL(X) . .S RCFMSTO T=0,RCFMS1 ="NO FMS D OC" ..I $O (^RCY(344. 3,Z0,2,0)) D Q:RCST OP ...N V ...D:$$PC HDR(.RCSTO P,RCDET,RC NJ) Q:RCST OP ...D SL ($J("",10) _"ERROR ME SSAGES FOR EFT:") .. .S V=0 F S V=$O(^RC Y(344.3,Z0 ,2,V)) Q:' V D Q:RC STOP ....D :$$PC HDR( .RCSTOP,RC DET,RCNJ) Q:RCSTOP . ...D SL($J ("",12)_$G (^RCY(344. 3,Z0,2,V,0 ))) ..S Z2 =0 F S Z2 =$O(^TMP(" RCDAILYACT ",$J,Z,Z0, "EFT",Z2)) Q:'Z2 S Z3=$G(^RCY (344.31,Z2 ,0)) D Q: RCSTOP ... S RCEFT("D ")=$G(RCEF T("D"))+1 ...S X=$S( $P($G(^RCY (344,+$P(Z 3,U,9),2)) ,U)'="":$$ STATUS^GEC SSGET($P(^ RCY(344,+$ P(Z3,U,9), 2),U)),1:" ") ...I X' ="",X'=-1, $E(X)'="R" ,$E(X)'="E " S RCFMST OT=RCFMSTO T+$P(Z3,U, 7),RCFMS1= $S($E(X)=" Q":"QUEUED TO POST", 1:"POSTED" ) ...S RCF MS1(Z2)=$S (X="":"",X =-1:"NO FM S DOC",1:$ E($P(X," " ),1,10)) . ..I $P(Z3, U,8) S RCM ATCH("D")= $G(RCMATCH ("D"))+1 . ..I $G(RCD ET) D EFTD TL(Z2,Z3,. RCSTOP,RCD ET,.RCFMS1 ,RCNJ) Q:R CSTOP ..; ..Q:RCSTOP ..I RCDET D SL(" ") .; .Q:RCS TOP .S RCD EPA=RCDEPA +$G(RCDEPA (Z)),RCDEP =RCDEP+$G( RCDEP(Z)), RCDEPAP=RC DEPAP+$G(R CDEPAP(Z)) ,RCFMSTOT( "D")=$G(RC FMSTOT("D" ))+$G(RCFM STOT),RCEF T("T")=$G( RCEFT("T") )+$G(RCEFT ("D")),RCM ATCH("T")= $G(RCMATCH ("T"))+$G( RCMATCH("D ")) .F Q=- 1,0,1,2 S RCFMS("T", Q)=$G(RCFM S("T",Q))+ $G(RCFMS(" D",Q)) .D SL(" ") .I $S('$G(RC NJ):($Y+5) >IOSL,1:0) !'RCPG D:' $G(RCLSTMG R) HDR(.RC STOP,RCDET ,RCNJ) Q:R CSTOP .D S L($E("**TO TALS FOR D ATE: "_$$F MTE^XLFDT( Z\1,2)_$J( "",30),1,3 0)_" # OF DEPOSIT TI CKETS RECE IVED: "_+$ G(RCDEP(Z) )_$J("",5) ) .D SL($J ("",29)_"T OTAL AMOUN T OF DEPOS ITS RECEIV ED: $"_$J( +$G(RCDEPA (Z)),"",2) ) .D:$$PC HDR(.RCSTO P,RCDET,RC NJ) Q:RCST OP .D SL(" ") .D SL( $J("",20)_ "DEPOSIT A MOUNTS SEN T TO FMS:" ) .D:$$PC HDR(.RCSTO P,RCDET,RC NJ) Q:RCST OP .D SL($ J("",39)_" ACCEPTED: $"_$J(+$G( RCFMS("D", 1)),"",2)) .D:$$PC H DR(.RCSTOP ,RCDET,RCN J) Q:RCSTO P .D SL($J ("",41)_"Q UEUED: $"_ $J(+$G(RCF MS("D",2)) ,"",2)) .D :$$PC HDR( .RCSTOP,RC DET,RCNJ) Q:RCSTOP . D SL($J("" ,35)_"ERRO R/REJECT: $"_$J(+$G( RCFMS("D", 0)),"",2)) .D:$$PC H DR(.RCSTOP ,RCDET,RCN J) Q:RCSTO P .D SL($J ("",37)_"N OT IN FMS: $"_$J(+$G (RCFMS("D" ,-1)),"",2 )) .D SL(" ") .D:$$P C HDR(.RCS TOP,RCDET, RCNJ) Q:RC STOP .D SL ($J("",26) _"# EFT PA YMENT RECO RDS: "_(+$ G(RCEFT("D ")))) .D:$ $PC HDR(.R CSTOP,RCDE T,RCNJ) Q: RCSTOP .D SL($J("",2 5)_"# EFT PAYMENTS M ATCHED: "_ +($G(RCMAT CH("D")))) .D:$$PC H DR(.RCSTOP ,RCDET,RCN J) Q:RCSTO P .D SL($J ("",18)_"M ATCHED PAY MENT AMOUN T POSTED: $"_$J(+$G( RCDEPAP(Z) ),"",2)) . D SL(" ") ; I '$O(^T MP("RCDAIL YACT",$J,0 )) D:'$G(R CLSTMGR) H DR(.RCSTOP ,RCDET,RCN J) G:RCSTO P!(RCNJ&(+ $G(RCLSTMG R)=0)) RPT 1Q D SL(" ") D:$$PC HDR(.RCSTO P,RCDET,RC NJ) G:RCST OP RPT1Q D SL($E("** ** TOTALS FOR DATE R ANGE:"_$J( "",30),1,3 0)_" # OF DEPOSIT TI CKETS RECE IVED: "_+$ G(RCDEP)_$ J("",5)) D SL($J("", 29)_"TOTAL AMOUNT OF DEPOSITS RECEIVED: $"_$J(+$G( RCDEPA),"" ,2)) D:$$P C HDR(.RCS TOP,RCDET, RCNJ) G:RC STOP RPT1Q D SL(" ") D SL($J(" ",20)_"DEP OSIT AMOUN TS SENT TO FMS:") D: $$PC HDR(. RCSTOP,RCD ET,RCNJ) G :RCSTOP RP T1Q D SL($ J("",39)_" ACCEPTED: $"_$J(+$G( RCFMS("T", 1)),"",2)) D:$$PC HD R(.RCSTOP, RCDET,RCNJ ) G:RCSTOP RPT1Q D S L($J("",41 )_"QUEUED: $"_$J(+$G (RCFMS("T" ,2)),"",2) ) D:$$PC H DR(.RCSTOP ,RCDET,RCN J) G:RCSTO P RPT1Q D SL($J("",3 5)_"ERROR/ REJECT: $" _$J(+$G(RC FMS("T",0) ),"",2)) D :$$PC HDR( .RCSTOP,RC DET,RCNJ) G:RCSTOP R PT1Q D SL( $J("",37)_ "NOT IN FM S: $"_$J(+ $G(RCFMS(" T",-1)),"" ,2)) D SL( " ") D:$$P C HDR(.RCS TOP,RCDET, RCNJ) G:RC STOP RPT1Q D SL($J(" ",26)_"# E FT PAYMENT RECORDS: "_+$G(RCEF T("T"))) D :$$PC HDR( .RCSTOP,RC DET,RCNJ) G:RCSTOP R PT1Q D SL( $J("",25)_ "# EFT PAY MENTS MATC HED: "_+$G (RCMATCH(" T"))) D:$$ PC HDR(.RC STOP,RCDET ,RCNJ) G:R CSTOP RPT1 Q D SL($J( "",18)_"MA TCHED PAYM ENT AMOUNT POSTED: $ "_$J(+$G(R CDEPAP),"" ,2)) D SL( " ") ; D S L(" ") D S L($$ENDORP RT^RCDPEAR L) ;PC() ; boolean f unction, p age check I '$G(RCLS TMGR),$G(R CNJ),$Y+5> IOSL Q 1 Q 0 ;RPT1Q ; exit poi nt K ^TMP( "RCDAILYAC T",$J) Q ; ENQ(RCSTOP ,RCPG) ; C lean up I '$D(ZTQUEU ED) D ^%ZI SC I 'RCNJ ,'RCSTOP,R CPG S X="" D ASK^RCD PEARL(.X) I $D(ZTQUE UED) S ZTR EQ="@" Q ; SL(Z) ; Wr ites or st ores line ; RCNJ and RCCT set before cal ling ; RCN J = 1 to s et array, 0 to write line ; Z = text to handle ; R CCT = line counter S RCCT=RCCT +1 I $G(RC NJ) S ^TMP ($J,"RCDPE _DAR",RCCT )=Z Q W !, Z Q ;CHKPY R(IEN,FLG, RCJOB) ; f unction ; IEN - ien in file 34 4.31 or 34 4.4 ; FLG - 0 if IEN contains ien in fil e 344.31, 1 if IEN c ontains ie n in file 344.4 ; RC JOB - $J ; returns 1 if payer in 344.31/ .02 or 344 .4/.06 is in the lis t of selec ted payers ^TMP("RCS ELPAY",$J) ; returns 0 otherwi se ; N RCP AY,RES,Z S RES=0 ; r esult S RC PAY="" I I EN S RCPAY =$S(FLG:$P ($G(^RCY(3 44.4,IEN,0 )),U,6),1: $P($G(^RCY (344.31,IE N,0)),U,2) ) I RCPAY' ="" S (RCF LG,Z)=0 D .F S Z=$O (^TMP("RCS ELPAY",RCJ OB,Z)) Q:Z ="" I $E( RCPAY,1,30 )=$G(^TMP( "RCSELPAY" ,RCJOB,Z)) S RES=1 Q ;Include EFT with n ull Payer Names in r eports for ALL payer s - PRCA*4 .5*298 I FLG=0,$G(R CNP)=2,RCP AY="" S RE S=1 ; PRCA *4.5*298 Q RES ;CHKD IV(IEN,FLG ,VAUTD) ; ; IEN - ie n in file 344.31 or 344.4 ; FL G - 0 if I EN contain s ien in f ile 344.31 , 1 if IEN contains ien in fil e 344.4 ; VAUTD - ar ray of sel ected divi sions from DIVISION^ VAUTOMA AP I call ; r eturns 1 i f division associate d with an entry in 3 44.31 is o n the list in VAUTD ; returns 0 otherwis e N ERA,I, NAME,RCSTA ,RES S RES =0 I VAUTD =1 S RES=1 G CHKDIVX I 'IEN G CHKDIVX S ERA=$S(FLG :IEN,1:$P( $G(^RCY(34 4.31,IEN,0 )),U,10)) S RCSTA=$$ ERASTA^RCD PEM3(ERA), NAME=$P(RC STA,U) I N AME="UNKNO WN" G CHKD IVX S I=0 I 'VAUTD F S I=$O(V AUTD(I)) Q :'I!RES I NAME=VAUT D(I) S RES =1CHKDIVX ; Q RES ;H DR(RCSTOP, RCDET,RCNJ ) ;Prints report hea ding ; RCS TOP - flag to stop ; variables RCCT,RCPG ,RCDT1,RCD T2 set bef ore callin g this sub routine ; RCCT - lin e count ; RCPG - pag e number ; RCDT1, RC DT2 - from , to date ; RCDET - flag is 1 if detail is desired N Z,Z0,Z1 ,X,Y Q:RCN J&(RCPG) I RCPG!($E( IOST,1,2)= "C-") D .Q :$G(RCNJ) .I RCPG&($ E(IOST,1,2 )="C-") D ASK(.RCSTO P) Q:RCSTO P .W @IOF ; Write fo rm feed Q: RCSTOP S R CPG=RCPG+1 I '$D(RCN P) N RCNP S RCNP=2 ; PRCA276 i f coming f rom nightl y job need to define payer sel ection var iable I '$ D(VAUTD) N VAUTD S V AUTD=1 ; P RCA276 if coming fro m nightly job need t o define d ivision se lection va riable S Z 0="EDI LOC KBOX EFT D AILY ACTIV ITY "_$S($ G(RCDET):" DETAIL",1: "SUMMARY") _" REPORT" S Z=$$SET STR^VALM1( $J("",80-$ L(Z0)\2)_Z 0,"",1,79) S Z=$$SET STR^VALM1( "Page: "_R CPG,Z,70,1 0) D SL(Z) S Z="RUN DATE: "_$$ FMTE^XLFDT ($$NOW^XLF DT(),2),Z= $J("",80-$ L(Z)\2)_Z D SL(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(Z) ; prca 27 6 add paye r selectio n list to header S Z 1="" I RCN P'=2 S Z0= 0 F S Z0= $O(^TMP("R CSELPAY",$ J,Z0)) Q:' Z0 S Z1=Z 1_^TMP("RC SELPAY",$J ,Z0)_", " S Z="PAYER S: "_$S(RC NP=2:"ALL" ,1:$E(Z1,1 ,$L(Z1)-2) ),Z=$J("", 80-$L(Z)\2 )_Z D SL(Z ) ;prca 27 6 add date filter to header S Z="DATE RA NGE: "_$$F MTE^XLFDT( RCDT1,2)_" - "_$$FMT E^XLFDT(RC DT2,2)_" ( Date Depos it Added)" ,Z=$J("",8 0-$L(Z)\2) _Z D SL(Z) I $G(RCDE T) D .; PR CA*4.5*283 - Add 3 m ore spaces between D EP # and D EPOSIT DT .; and re move 3 spa ces betwee n DEPOSIT DT and DEP AMOUNT to allow for 9 digit D EP #'s .D SL("") .S Z=$$SETSTR ^VALM1("DE P # DEPOSI T DT "_$J( "",19)_"DE P AMOUNT F MS DEPOSIT STAT","", 1,80) .D S L(Z) .; PR CA*4.5*284 , Move Mat ch Status to left 3 space to a llow for 1 0 digit ER A #'s .S Z =$$SETSTR^ VALM1($J(" ",3)_"EFT #"_$J("",2 3)_"DATE P D PAYMENT AMOUNT ERA MATCH STA TUS","",1, 80) .D SL( Z) .S Z=$$ SETSTR^VAL M1($J("",1 0)_"EFT PA YER TRACE #","",1,30 ) .D SL(Z) .S Z=$$SE TSTR^VALM1 ($J("",14) _"PAYMENT FROM","",1 ,30) .D SL (Z) .S Z=$ $SETSTR^VA LM1($J("", 45)_"DEP R ECEIPT #", "",1,60) . S Z=$$SETS TR^VALM1(" DEP RECEIP T STATUS", Z,61,19) . D SL(Z) ; D SL($TR($ J("",IOM-1 )," ","=") ) Q ;ASK(R CSTOP) ; A sk to cont inue ; If passed by reference ,RCSTOP is returned as 1 if pr int is abo rted I $E( IOST,1,2)' ["C-" Q N DIR,DIROUT ,DIRUT,DTO UT,DUOUT S DIR(0)="E " W ! D ^D IR I ($D(D IRUT))!($D (DUOUT)) S RCSTOP=1 Q Q ;LMHDR (RCSTOP,RC DET,RCNJ) ; ListMan report hea ding ; RCS TOP - stop flag, pas sed by ref erence ; > RCSTOP mu st be pass ed by refe rence ; RC DET = flag is 1 if d etail is d esired ; ; RCCT = li ne counter ; RCPG = page # ; R CDT1, RCDT 2 = from, to date N Z,Z0,Z1,X, Y S RCPG=R CPG+1 S RC HDR("TITLE ")="EDI LO CKBOX EFT DAILY ACTI VITY "_$S( $G(RCDET): "DETAIL",1 :"SUMMARY" )_" REPORT " 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) ) D:'$G(RC DET) ADLM( "") D ADLM (Z) ; prca 276 add p ayer selec tion list to header S Z1="" I RCNP'=2 S Z0=0 F S Z0=$O(^TMP ("RCSELPAY ",$J,Z0)) Q:'Z0 S Z 1=Z1_^TMP( "RCSELPAY" ,$J,Z0)_", " S Z="PA YERS: "_$S (RCNP=2:"A LL",1:$E(Z 1,1,$L(Z1) -2)) D:'$G (RCDET) AD LM("") D A DLM(Z) S Z ="DATE RAN GE: "_$$FM TE^XLFDT(R CDT1,2)_" - "_$$FMTE ^XLFDT(RCD T2,2)_" (D ate Deposi t Added)" D:'$G(RCDE T) ADLM("" ) D ADLM(Z ) I $G(RCD ET) D .S Z =$$SETSTR^ VALM1("DEP # DEPOSIT DT "_$J(" ",19)_"DEP AMOUNT FM S DEPOSIT STAT","",1 ,80) .D AD LM(Z) .S Z =$$SETSTR^ VALM1($J(" ",3)_"EFT #"_$J("",2 3)_"DATE P D PAYMENT AMOUNT ERA MATCH STA TUS","",1, 80) .D ADL M(Z) .S Z= $$SETSTR^V ALM1($J("" ,10)_"EFT PAYER TRAC E #","",1, 30) .D ADL M(Z) .S Z= $$SETSTR^V ALM1($J("" ,14)_"PAYM ENT FROM", "",1,30) . S Z=$$SETS TR^VALM1($ J("",15)_" DEP RECEIP T #",Z,31, 30) .S Z=$ $SETSTR^VA LM1("DEP R ECEIPT STA TUS",Z,61, 19) .D ADL M(Z) ; Q ; ADLM(Z) ; add to Lis tMan heade r S RCCT=R CCT+1,RCHD R(RCCT)=Z Q ;EFTDTL( Z2,Z3,RCST OP,RCDET,R CFMS1,RCNJ ) ; Displa y EFT Deta il N DATA, X S X=$$SE TSTR^VALM1 ($P(Z3,U), "",4,6) S X=$$SETSTR ^VALM1($$F MTE^XLFDT( $P(Z3,U,12 )\1,2),X,3 2,8) S X=$ $SETSTR^VA LM1($J($P( Z3,U,7),"" ,2),X,42,1 8) ; PRCA* 4.5*284, M ove to lef t 3 space (61 to 58) to allow for 10 dig it ERA #'s S X=$$SET STR^VALM1( $$EXTERNAL ^DILFD(344 .31,.08,"" ,+$P(Z3,U, 8))_$S($P( Z3,U,8)=1: "/ERA #"_$ P(Z3,U,10) ,1:""),X,5 8,20) D:$$ PC HDR(.RC STOP,RCDET ,RCNJ) Q:R CSTOP D SL (X) S X=$$ SETSTR^VAL M1($P(Z3,U ,4),"",11, 61) D SL(X ) N RCPAY S RCPAY=$P (Z3,U,2),R CPAY=$S(RC PAY="":"NO PAYER NAM E RECEIVED ",1:RCPAY) ; PRCA*4. 5*298 S X= $$SETSTR^V ALM1(RCPAY _"/"_$P(Z3 ,U,3),"",1 5,65) ; PR CA*4.5*298 D SL(X) S X="" ;PRC A*4.5*304 - lengthen receipt n umber disp lay to 12 I $P(Z3,U, 9) S X=$$S ETSTR^VALM 1($P($G(^R CY(344,+$P (Z3,U,9),0 )),U),X,46 ,12) S X=$ $SETSTR^VA LM1($G(RCF MS1(Z2)),X ,61,19) D: $$PC HDR(. RCSTOP,RCD ET,RCNJ) Q :RCSTOP D SL(X) I $O (^RCY(344. 31,Z2,2,0) ) D Q:RCS TOP . N V . D:$$PC H DR(.RCSTOP ,RCDET,RCN J) Q:RCSTO P . D SL($ J("",10)_" ERROR MESS AGES FOR E FT DETAIL: ") . S V=0 F S V=$O (^RCY(344. 31,Z2,2,V) ) Q:'V D Q:RCSTOP .. D:$$PC HDR(.RCSTO P,RCDET,RC NJ) Q:RCST OP .. D SL ($J("",12) _$G(^RCY(3 44.31,Z2,2 ,V,0))) I $D(^RCY(34 4.31,Z2,3) ) D .S DAT A=$G(^RCY( 344.31,Z2, 3)) .S X=" MARKED AS DUPLICATE : "_$$FMTE ^XLFDT($P( DATA,U,2), 5)_" "_$$E XTERNAL^DI LFD(344.31 ,.17,,$P(D ATA,U)) .D SL(X) .D SL(" ") ; Q ; | |
| 85 | ||
| 86 | ||
| 87 | Modified L ogic | |
| 88 | RCDPEDAR ; ALB/TMK - ACTIVITY R EPORT ;Jun 06, 2014@ 19:11:19 ; ;4.5;Accou nts Receiv able;**173 ,276,284,2 83,298,304 ,318**;Mar 20, 1995; Build 99 ; Per VA Dir ective 640 2, this ro utine shou ld not be modified. Q ;RPT ; D aily Activ ity Rpt On Demand N POP,RCDET, RCDIV,RCDT 1,RCDT2,RC HDR,RCINC, RCLSTMGR,R CNP,RCNJ N RCPYRSEL, RCRANGE,RC STOP,RCTMP ND,VAUTD,X ,XX,Y,%ZIS S RCNJ=0 ; Not the nightly jo b, user in teractions D DIVISIO N^VAUTOMA ; Select D ivision/St ation - se ts VAUTD I 'VAUTD,($ D(VAUTD)'= 11) Q S RC DET=$$RTYP E() ; Sele ct Report Type (Summ ary/Detail ) Q:RCDET= -1 S XX=$$ DTRANGE(.R CDT1,.RCDT 2) ; Selec t Date Ran ge to be u sed Q:'XX ; ; Get in surance co mpany to b e used as filter ; P RCA*4.5*28 4 - RCNP i s Type of Response ( 1=Range,2= All,3=Spec ific) ^ Fr om Range^ Thru Range S RCNP=$$ GETPAY^RCD PEM9(344.3 1) Q:+RCNP =-1 ; No I nsurance C ompany sel ected S RC LSTMGR=$$A SKLM^RCDPE ARL ; Ask to Display in Listma n Template Q:RCLSTMG R<0 ; '^' or timeout ; I RCLST MGR=1 D Q ; Li stMan Temp late forma t, put in array . S RCTMPND="R CDPE_DAR" . K ^TMP($ J,RCTMPND) . D EN(RC DET,RCDT1, RCDT2,RCLS TMGR) . D LMHDR^RCDP EDA3(.RCST OP,RCDET,1 ,RCDT1,RCD T2,.RCHDR) . D LMRPT ^RCDPEARL( .RCHDR,$NA (^TMP($J,R CTMPND))) ; Generate ListMan d isplay . K ^TMP($J,R CTMPND) ; ; Ask devi ce S %ZIS= "QM" D ^%Z IS Q:POP ; I $D(IO(" Q")) D Q ; Queu ed Report . N ZTDSC, ZTRTN,ZTSK . S ZTRTN ="EN^RCDPE DAR("_RCDE T_","_RCDT 1_","_RCDT 2_")" . S ZTDESC="AR - EDI LOC KBOX EFT D AILY ACTIV ITY REPORT " . S ZTSA VE("RC*")= "",ZTSAVE( "VAUTD")=" " . ; . ; PRCA*4.5*2 84 - Becau se TMP glo bal may be on anothe r server, save off s pecific pa yers in lo cal . M RC PYRSEL=^TM P("RCSELPA Y",$J) . D ^%ZTLOAD . W !!,$S( $D(ZTSK):" Task numbe r "_ZTSK_" was queue d.",1:"Una ble to que ue this ta sk.") . K ZTSK,IO("Q ") . D HOM E^%ZIS ; U IO D EN(R CDET,RCDT1 ,RCDT2,RCL STMGR) Q ; RTYPE() ; Allows the user to s elect the report typ e (Summary /Detail) ; Input: No ne ; Retur ns: 0 - Su mmary Disp lay ; 1 - Detail Dis play ; -1 - User up- arrowed or timed out N DIR,DTO UT,DUOUT S DIR("A")= "(S)UMMARY OR (D)ETA IL?: " S D IR(0)="SA^ S:SUMMARY TOTALS ONL Y;D:DETAIL AND TOTAL S" S DIR(" B")="D" D ^DIR I $D( DTOUT)!$D( DUOUT)!(Y= "") Q -1 Q Y="D" ;DT RANGE(STDA TE,ENDDATE ) ; Allows the user to select the date r ange to by used ; In put: None ; Output: STDATE = I nternal Fi leman Date to start at ; ENDDA TE - Inter nal Filema n Date to end at ; R eturns: 0 - User up- arrowed or timed out , 1 otherw ise N DIR, DTOUT,DUOU T S DIR("? ")="Enter the earlie st date of receipt o f deposit to include on the re port." S D IR(0)="DAO ^:"_DT_":A PE" S DIR( "A")="STAR T DATE: " D ^DIR Q:$ D(DTOUT)!$ D(DUOUT)!( Y="") 0 S STDATE=Y K DIR S DIR ("?")="Ent er the lat est date o f receipt of deposit to includ e on the r eport." S DIR("B")=Y (0) S DIR( 0)="DAO^"_ RCDT1_":"_ DT_":APE", DIR("A")=" END DATE: " D ^DIR Q :$D(DTOUT) !$D(DUOUT) !(Y="") 0 S ENDDATE= Y Q 1 ;EN( RCDET,RCDT 1,RCDT2,RC LSTMGR) ; Entry poin t for repo rt, might be queued ; Input: R CDET - 1 - Detail Re port, 0 - Summary ; RCDT1 - In ternal Fil eman Start date ; RC DT2 - Inte rnal Filem an End dat e ; RCLSTM GR - 1 dis play in li st manager , 0 otherw ise ; Opti onal, defa ults to 0 ; RCNP - A 1^A2^A3 Wh ere: ; A1 - 1 - Rang e of Payer s ; 2 - Al l Payers s elected ; 3 - Specif ic payers ; A2 - Fro m Range (W hen a from /thru rang e is selec ted by use r) ; A3 - Thru Range (When a f rom/thru r ange is se lected by user) ; RC PYRSEL - A rray of se lected pay ers (Only present if A1=3 abov e ; VAUTD - 1 - All selected d ivisions O R an array of select ed divisio ns N DTADD ,IEN3443,I EN34431,IN PUT,RCFLG, RCJOB,RCT, XX,Z N:$G( ZTSK) ZTST OP ; Job was ta sked, ZTST OP = flag to stop S: '$D(RCLSTM GR) RCLSTM GR=0 ; ; P RCA*4.5*28 4 - Queued job needs to reload payer sel ection lis t I $D(RCP YRSEL) D . K ^TMP("R CSELPAY",$ J) . M ^TM P("RCSELPA Y",$J)=RCP YRSEL ; S XX=$S(RCLS TMGR:1,1:0 ) S INPUT= XX_"^"_RCL STMGR_"^"_ +RCDET S R CNP=+RCNP, RCJOB=$J K ^TMP("RCD AILYACT",$ J) K ^TMP( $J,"TOTALS ") ; Initi alize Tota ls temp wo rkspace ; ; Loop thr ough all o f the EDI LOCKBOX DE POSIT reco rds in the selected date ; ran ge and add any that pass the p ayer and d ivision fi lters into ^TMP ; by the inter nal date a dded S DTA DD=RCDT1-. 0001,RCT=0 S $P(INPU T,"^",4)=0 ; Current Page Numb er S $P(IN PUT,"^",5) =0 ; Stop Flag F D Q:'DTADD Q:DTADD>( RCDT2_".99 99") Q:$P( INPUT,"^", 5)=1 . S D TADD=$O(^R CY(344.3," ARECDT",DT ADD)) . Q: 'DTADD . Q :DTADD>(RC DT2_".9999 ") . S IEN 3443=0 . F D Q:'IE N3443 Q:$ P(INPUT,"^ ",5)=1 . . S IEN3443 =$O(^RCY(3 44.3,"AREC DT",DTADD, IEN3443)) . . Q:'IEN 3443 . . S IEN34431= "",RCFLG=0 . . F D Q:IEN3443 1="" . . . S IEN3443 1=$O(^RCY( 344.31,"B" ,IEN3443,I EN34431)) . . . Q:IE N34431="" . . . Q:'$ $CHKPYR(IE N34431,0,R CJOB,RCNP) ; Not a s elected pa yer . . . Q:'$$CHKDI V(IEN34431 ,0,.VAUTD) ; Not a s elected st ation/divi sion . . . S RCFLG=1 . . . S ^ TMP("RCDAI LYACT",$J, DTADD\1,IE N3443,"EFT ",IEN34431 )="" . . ; . . S:RCF LG ^TMP("R CDAILYACT" ,$J,DTADD\ 1,IEN3443) ="" . . S RCT=RCT+1 ; Current Record Cou nt . . ; . . ; Check for user stopped ev ery 100 re cords . . I '(RCT#10 0),$D(ZTQU EUED),$$S^ %ZTLOAD D Q . . . S ZTSTOP=1 . . . S $P (INPUT,"^" ,5)=1 ; St op now . . . K ZTREQ ; I '$P(I NPUT,"^",5 ) D . S $P (INPUT,"^" ,6)=RCDT1 ; S tart of Da te Range . S $P(INPU T,"^",7)=R CDT2 ; End of Date Rang e . D RPT1 (.INPUT) D ENQ(INPUT ) Q ;ENQ(I NPUT) ; Cl ean up ; I nput: INPU T - A1^A2^ A3^...^A8 Where: ; A 1 - 1 if D etail repo rt, 0 if s ummary rep ort ; A2 - 1 if disp laying to Listman, 0 otherwise ; A3 - 0 if NOT cal led from N ightly Pro cess, 1 ot herwise ; A4 - Curre nt Page Nu mber ; A5 - Stop Fla g ; A6 - S tart of Da te Range ; A7 - End of Date Ra nge ; ZTQU EUED - Def ined if Jo h was queu ed ; Outpu t: ZTREQ - "@" Only returned i nf ZTQUEUE D is defin ed N XX,YY ,ZZ K ^TMP ("RCDAILYA CT",$J),^T MP("RCSELP AY",$J) K ^TMP($J,"T OTALS") I '$D(ZTQUEU ED) D . D ^%ZISC . S XX=$P(INP UT,"^",1) ; Nightly Process Fl ag . S YY= $P(INPUT," ^",5) ; St op Flag . S ZZ=$P(IN PUT,"^",4) ; Current Page Numb er . I 'XX ,'YY,ZZ D . . S XX=" " . . D AS K^RCDPEARL (.XX) I $D (ZTQUEUED) S ZTREQ=" @" Q ;RPT1 (INPUT) ;E P from RCD PEM1 (Nigh tly Proces s) ; Outpu t the repo rt ; Input : INPUT - A1^A2^A3^. ..^An Wher e: ; A1 - 1 if calle d from Nig htly Proce ss, 0 othe rwise ; A2 - 1 if di splaying t o Listman, 0 otherwi se ; A4 - Current Pa ge Number ; A5 - Sto p Flag ; A 6 - Start of Date Ra nge ; A7 - End of Da te Range ; ^TMP(B1,$ J,B2,B3) = "" - Arra y of recor d IENs in 344.3 in d ate range ; and for selected p ayer(s) an d division (s) ; ^TMP (B1,$J,B2, B3,"EFT",B 4) = "" - Array of r ecord IENS in 344.31 for above Where: ; B1 - "RCDA ILYACT" ; B2 - Inter nal Date f rom DATE/T IME ADDED (344.3, .1 3) ; B3 - Internal I EN for 344 .3 ; B4 - Internal I EN for fil e 344.31 ; Output: I NPUT - A1^ A2^A3^...^ An - The f ollowing p ieces may be updated ; A4 - Cu rrent Page Number ; A5 - Stop Flag ; N C URPG,DETL, DTADD,DTEN D,DTST,HDR 1,LSTMAN,N J S DETL=$ P(INPUT,"^ ",3) ; Det ail Report flag S LS TMAN=$P(IN PUT,"^",2) ; Listman flag S NJ =$P(INPUT, "^",1) ; N ightly Pro cess flag S CURPG=$P (INPUT,"^" ,4) ; Curr ent Page N umber S DT ST=$P(INPU T,"^",6) ; Date Rang e Start S DTEND=$P(I NPUT,"^",7 ) ; Date R ange End S $P(INPUT, "^",8)=0 ; Current l ine counte r S DTADD= "" F D Q :DTADD="" Q:$P(INPU T,"^",5)=1 . S DTADD =$O(^TMP(" RCDAILYACT ",$J,DTADD )) . Q:DTA DD="" . ; . ; If not being dis played in the list m anager and either th is is the initial . ; page hea der (RCPG= 0) OR this wasn't ca lled by th e nightly job and we have . ; reached th e end of t he page, t hen print a page hea der . I 'L STMAN,'CUR PG!$S('NJ: ($Y+5)>IOS L,1:0) D Q:$P(INPUT ,"^",5)=1 . . D HDR^ RCDPEDA3(. INPUT) . S HDR1="DAT E EFT DEPO SIT RECEIV ED: "_$$FM TE^XLFDT(D TADD,"2Z") . S HDR1= $J("",80-$ L(HDR1)\2) _HDR1 ; Cent er it . Q: $P(INPUT," ^",5)=1 ; User quit . I DETL D ; Detai l Report . . D SL^RC DPEDA3(.IN PUT,HDR1) . . D SL^R CDPEDA3(.I NPUT," ") . S $P(INP UT,"^",9)= DTADD . D RPT2^RCDPE DA2(.INPUT ) ; Proces s all 344. 3 records found . Q: $P(INPUT," ^",5)=1 ; User quit . D TOTSDA Y^RCDPEDA3 (.INPUT) ; Display T otals for Date ; Q:$ P(INPUT,"^ ",5)=1 ; U ser quit D TOTSF^RCD PEDA3(.INP UT) ; Disp lay Final Totals D S L^RCDPEDA3 (.INPUT,$$ ENDORPRT^R CDPEARL) ; Display E nd of Repo rt Q ;CHKP YR(IEN,FLG ,RCJOB,RCN P) ;EP fro m RCDPEAR2 ; Checks to be sure the speci fied payer has been selected ; Input: IE N - Intern al IEN int o file 344 .31 (EDI T HIRD PARTY EFT DETAI ) OR ; fil e 344.4 (E LECTRONIC REMITTANCE ADVICE) ; Used to r etrieve th e payer ; FLG - 0 if IEN conta ins ien in file 344. 31 ; 1 if IEN contai ns ien in file 344.4 ; RCJOB - $J ; RCNP - 0 - Not passed ; 1 - Range of Payers ; 2 - All Payers sel ected ; 3 - Specific payers ; Optional, defaults t o 0 ; ^TMP ("RCSELPAY ",$J,CNT)= A1 Where: ; CNT - Co unter of t he number of payers 1-n ; A1 - Payer Nam e ; Return s: 1 if pa yer in 344 .31/.02 or 344.4/.06 is in the list of s elected pa yers ; ^TM P("RCSELPA Y",$J) ; 0 otherwise N RCPAY,R ES,Z S:'$D (RCNP) RCN P=0 S RCPA Y="" I IEN D . I FLG S RCPAY=$ $GET1^DIQ( 344.4,IEN, .06,"I") Q ; PAYM ENT FROM f ield (35 C haracters) . S RCPAY =$$GET1^DI Q(344.31,I EN,.02,"I" ) ; PAYER NAME field (50 Chara cters) ; ; Include E FT with nu ll Payer N ames in re ports for ALL payers - PRCA*4. 5*298 I F LG=0,RCNP= 2,RCPAY="" Q 1 Q:RCP AY="" 0 ; No Payer t o compare, invalid S Z=0,RES=0 F D Q:Z ="" Q:RES . S Z=$O( ^TMP("RCSE LPAY",RCJO B,Z)) . Q: Z="" . I F LG=0 D Q . . S:RCPA Y=$G(^TMP( "RCSELPAY" ,RCJOB,Z)) RES=1 . ; . ; Payer Name is a max of 35 character s in the E RA file (3 44.4) . ; Payer in t he ^TMP gl obal is fr om 344.31 and a max of 50 char acters . ; Match on however ma ny charact ers we ret rieved fro 344.4 . I RCPAY=$E( $G(^TMP("R CSELPAY",R CJOB,Z)),1 ,$L(RCPAY) ) S RES=1 Q Q RES ;C HKDIV(IEN, FLG,VAUTD) ; ; 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 ; VAUTD - array of selected d ivisions f rom DIVISI ON^VAUTOMA API call ; returns 1 if divis ion associ ated with an entry i n 344.31 i s on the l ist in VAU TD ; retur ns 0 other wise N ERA ,I,NAME,RC STA,RES S RES=0 I VA UTD=1 S RE S=1 G CHKD IVX I 'IEN G CHKDIVX S ERA=$S( FLG:IEN,1: $P($G(^RCY (344.31,IE N,0)),U,10 )) S RCSTA =$$ERASTA^ RCDPEM3(ER A),NAME=$P (RCSTA,U) I NAME="UN KNOWN" G C HKDIVX S I =0 I 'VAUT D F S I=$ O(VAUTD(I) ) Q:'I!RES I NAME=V AUTD(I) S RES=1CHKDI VX ; Q RES | |
| 89 | ||
| 90 | ||
| 91 | Routines | |
| 92 | Activities | |
| 93 | Routine Na me | |
| 94 | RCDPEDA2 | |
| 95 | Enhancemen t Category | |
| 96 | New | |
| 97 | Modify | |
| 98 | Delete | |
| 99 | No Change | |
| 100 | RTM | |
| 101 | ||
| 102 | Related Op tions | |
| 103 | RCDPE EDI LOCKBOX AC T REPORT | |
| 104 | Routines | |
| 105 | Activities | |
| 106 | Data Dicti onary (DD) Reference s | |
| 107 | ||
| 108 | Related Pr otocols | |
| 109 | ||
| 110 | Related In tegration Control Re gistration s (ICRs) | |
| 111 | ||
| 112 | Data Passi ng | |
| 113 | Input | |
| 114 | Output Re ference | |
| 115 | Both | |
| 116 | Global Re ference | |
| 117 | Local | |
| 118 | Input Attr ibute Name and Defin ition | |
| 119 | Name: | |
| 120 | Definition : | |
| 121 | Output Att ribute Nam e and Defi nition | |
| 122 | Name: | |
| 123 | Definition : | |
| 124 | ||
| 125 | Related Ro utines | |
| 126 | Routines “ Called By” | |
| 127 | Routines “ Called” | |
| 128 | ||
| 129 | RPT1^RCDPE DAR | |
| 130 | $$STATUS^G ECSSGET | |
| 131 | $$SETSTR^V ALM1 | |
| 132 | SL^RCDPEDA 3 | |
| 133 | EFTERRS^RC DPEDA3 | |
| 134 | ||
| 135 | ||
| 136 | Current Lo gic | |
| 137 | ||
| 138 | ||
| 139 | ||
| 140 | Modified L ogic | |
| 141 | RCDPEDA2 ; EDE/DW - A CTIVITY RE PORT ;Feb 17, 2017@1 0:37:00 ;; 4.5;Accoun ts Receiva ble;**318* *;Mar 20, 1995;Build 99 ;Per V A Directiv e 6402, th is routine should no t be modif ied. Q ;RP T2(INPUT) ; Entry po int from R CDPEDAR ; Loop throu gh EDI LOC KBOX DEPOS IT entries ; Input: INPUT - A1 ^A2^A3^... ^An Where: ; A1 - 1 - Called b y nightly job, 0 oth erwise ; A 2 - 1 - Di splay to l ist manage r, 0 other wise ; A3 - 1 - Deta il report, 0 - Summa ry report ; A4 - Cur rent Page Number ; A 5 - Stop F lag ; A6 - Start of Date Range ; A7 - En d of Date Range ; A8 - Current Line Numb er ; A9 - Internal D ate being processed ; ^TMP(B1, $J,B2,B3) = "" ; ^TM P(B1,$J,B2 ,B3,"EFT", B4) = "" W here: ; B1 - "RCDAIL YACT" ; B2 - Interna l Date fro m DATE/TIM E ADDED ; (344.3, .1 3) ; B3 - Internal I EN for 344 .3 ; B4 - Internal I EN for fil e 344.31 ; Output: I NPUT - A1^ A2^A3^...^ An - The f ollowing p ieces ; m ay be upda ted ; A4 - Updated P age Number ; A5 - St op Flag ; A6 - Updat ed Line nu mber ; ^TM P($J,"TOTA LS","DEP", C1) - Tota l # of dep osits by I nternal da te (C1) ; ^TMP($J,"T OTALS","DE PA",C1) - Total Depo sit Amount by Intern al date (C 1) ; ^TMP( $J,"TOTALS ","EFT","D ") - Total Deposit A mount by E FTs for da te ; ^TMP( $J,"TOTALS ","FMS") - FMS Docum ent Status or "NO FM S DOC" ; ^ TMP($J,"TO TALS","FMS ","D",-1) - Total De posit Amou nt by FMS Document ; ^TMP($J," TOTALS","F MS","D",0) - Total A mount for Error/Reje cted docum ents ; ^TM P($J,"TOTA LS","FMS", "D",1") - Total Amou nt for 'A' ,'M',"F' o r 'T' docs ; ^TMP($J ,"TOTALS", "FMS","D", 2") - Tota l Amount f or queued docs ; ^TM P($J,"TOTA LS","FMSTO T") - Upda ted Total Deposit Am ount for d ate range ; ^TMP($J, "TOTALS"," MATCH","D" ) - Curren t Total ma tched EFTs for date N CRDOC,DE TL,DTADD,I EN344,IEN3 443,IEN344 31,TOTDEP, Q,X,XX,YY S DETL=$P( INPUT,"^", 3),DTADD=$ P(INPUT,"^ ",9) ; ; C lear the f ollowing d aily total s K ^TMP($ J,"TOTALS" ,"EFT","D" ) K ^TMP($ J,"TOTALS" ,"FMS","D" ) K ^TMP($ J,"TOTALS" ,"MATCH"," D") S IEN3 443="" F D Q:IEN34 43="" Q:$ P(INPUT,"^ ",5)=1 . S IEN3443=$ O(^TMP("RC DAILYACT", $J,DTADD,I EN3443)) . Q:IEN3443 ="" . S XX =$$GET1^DI Q(344.3,IE N3443,.03, "I") ; IEN for 344.1 . S IEN34 4=+$O(^RCY (344,"AD", +XX,0)) ; IEN for 34 4 . S XX=$ G(^TMP($J, "TOTALS"," DEP",DTADD )) . S ^TM P($J,"TOTA LS","DEP", DTADD)=XX+ 1 ; # of d eposits fo r day . S TOTDEP=$$G ET1^DIQ(34 4.3,IEN344 3,.08,"I") ; Total D eposit Amo unt . S XX =$G(^TMP($ J,"TOTALS" ,"DEPA",DT ADD)) . S ^TMP($J,"T OTALS","DE PA",DTADD) =XX+TOTDEP ; Total Deposit A mount for day . S CR DOC=$$GET1 ^DIQ(344,I EN344,200, "I") ; FMS Document Number . S ^TMP($J," TOTALS","C RDOC",IEN3 443)=CRDOC . I CRDOC ="" D ; No FMS Doc ument Numb er . . S Y Y=$G(^TMP( $J,"TOTALS ","FMS","D ",-1)) . . S ^TMP($J ,"TOTALS", "FMS","D", -1)=YY+TOT DEP . . S ^TMP($J,"T OTALS","FM S")="NO FM S DOC" . I CRDOC'="" D ; FMS Document N umber foun d . . S YY =$$STATUS^ GECSSGET(C RDOC) ; Ge t the stat us of the doc . . I YY=-1 D Q ; Documen t wasn't f ound . . . S XX=$G(^ TMP($J,"TO TALS","FMS ","D",-1)) . . . S ^ TMP($J,"TO TALS","FMS ","D",-1)= XX+TOTDEP . . S XX=$ E($P(YY," "),1,10) ; First Wor d of the s tatus . . S ^TMP($J, "TOTALS"," FMS")=XX ; First Word of t he status . . S Q=$E (YY,1) ; F irst Chara cter of th e status . . S Q=$S( Q="E"!(Q=" R"):0,Q="Q ":2,1:1) ; Q=0 - Rej ect or Err or, 2 - Qu eued, 1 - good . . S XX=$G(^TM P($J,"TOTA LS","FMS", "D",Q)) . . S ^TMP($ J,"TOTALS" ,"FMS","D" ,Q)=XX+TOT DEP ; Rej /Err, Queu ed OR good Amount fo r day . ; . I DETL D Q:$P(IN PUT,"^",5) =1 ; Displ ay Detail Line . . D DETLN(.IN PUT,IEN344 3,TOTDEP) . S ^TMP($ J,"TOTALS" ,"FMSTOT") =0 ; Initi alize FMS total for range . D ERRMSGS(.I NPUT,IEN34 43) ; Disp lay any er ror messag es . Q:$P( INPUT,"^", 5)=1 . D P ROCEFT(.IN PUT,IEN344 3) ; Proce ss EFT rec ords Q ;DE TLN(INPUT, IEN3443,TO TDEP) ; Di splay deta il line ; Input: INP UT - A1^A2 ^A3^...^An Where: ; A1 - 1 if called fro m Nightly Process ; 0 otherwis e ; A2 - 1 if displa ying to Li stman ; 0 otherwise ; A3 - 1 i f Detail r eport ; 0 if summary report ; A4 - Curre nt Page Nu mber ; A5 - Stop Fla g ; A6 - S tart of Da te Range ; A7 - End of Date Ra nge ; A8 - Current L ine Counte r ; A9 - I nternal Da te being p rocessed ; IEN3443 - Internal IEN for fi le 344.3 ; TOTDEP - Total Depo sit Amount (344.3, . 08) ; ^TMP ($J,"TOTAL S","FMS") - FMS Docu ment # or "NO FMS DO C" ; Outpu t: INPUT - A1^A2^A3^ ...^An - T he followi ng pieces ; may be u pdated ; A 5 - Update d Page Num ber ; A6 - Stop Flag ; A8 - Up dated Line Counter ; N DTADD,D ETL,LSTMAN ,NJ,X,XX,Y Y S LSTMAN =$P(INPUT, "^",2),NJ= $P(INPUT," ^",1) S DE TL=$P(INPU T,"^",3) S XX=$$GET1 ^DIQ(344.3 ,IEN3443,. 06,"I") ; Deposit Nu mber ; ; P RCA*4.5*28 3 - change length of DEP # fro m 6 to 9 t o allow fo r 9 digit DEP #'s S X=$$SETSTR ^VALM1(XX, "",1,9) ; ; Change D EPOSIT DT' s starting position from 9 to 12 S YY=$$ GET1^DIQ(3 44.3,IEN34 43,.07,"I" ) ; Deposi t Date S X =$$SETSTR^ VALM1($$FM TE^XLFDT(Y Y\1,"2Z"), X,12,10) ; ; Change starting p osition fr om 21 to 2 3 & reduce length of spaces fr om 10 to 8 . S X=$$SE TSTR^VALM1 ("",X,23,8 ) S X=$$SE TSTR^VALM1 ("",X,32,1 0) S XX=^T MP($J,"TOT ALS","FMS" ) S X=$$SE TSTR^VALM1 ($E($J(TOT DEP,"",2)_ $J("",20), 1,20)_XX,X ,43,37) D SL^RCDPEDA 3(.INPUT,X ) Q ;PROCE FT(INPUT,I EN3443) ; Entry Poin t from RCD PEDAR ; Pr ocess EFT records ; Input: INP UT - A1^A2 ^A3^...^An Where: ; A1 - 1 if called fro m Nightly Process ; 0 otherwis e ; A2 - 1 if displa ying to Li stman ; 0 otherwise ; A3 - 1 i f Detail r eport ; 0 if summary report ; A4 - Curre nt Page Nu mber ; A5 - Stop Fla g ; A6 - S tart of Da te Range ; A7 - End of Date Ra nge ; A8 - Current L ine Counte r ; A9 - I nternal Da te being p rocessed ; IEN3443 - Internal IEN for fi le 344.3 ; ^TMP($J," TOTALS","E FT","D") - Current T otal Depos it Amount by EFTs fo r date ; ^ TMP($J,"TO TALS","MAT CH","D") - Current T otal match ed EFTs fo r date ; ^ TMP($J,"TO TALS","FMS TOT") - Cu rrent Tota l Deposit Amount for date rang e ; Output : INPUT - A1^A2^A3^. ..^An - Th e followin g pieces ; may be up dated ; A5 - Updated Page Numb er ; A6 - Stop Flag ; A8 - Upd ated Line Counter ; ^TMP($J,"T OTALS","FM STOT") - U pdated Tot al Deposit Amount fo r date ran ge ; ^TMP( $J,"TOTALS ","EFT","D ") - Updat ed Total D eposit Amo unt by EFT s for date ; ^TMP($J ,"TOTALS", "MATCH","D ") - Updat ed Total m atched EFT s for date N DETL,DT ADD,IEN344 31,RCFMS1, TRDOC,X,XX ,YY S ^TMP ($J,"TOTAL S","FMSTOT ")=0 S DTA DD=$P(INPU T,"^",9) S RCFMS1="N O FMS DOC" S DETL=$P (INPUT,"^" ,3) S IEN3 4431="" F D Q:IEN3 4431="" Q :$P(INPUT, "^",5)=1 . S IEN3443 1=$O(^TMP( "RCDAILYAC T",$J,DTAD D,IEN3443, "EFT",IEN3 4431)) . Q :IEN34431= "" . S XX= $G(^TMP($J ,"TOTALS", "EFT","D") )+1 . S ^T MP($J,"TOT ALS","EFT" ,"D")=XX ; Tota l # EFTs f or date . S XX=+$$GE T1^DIQ(344 .31,IEN344 31,.09,"I" ) ; Receip t # from 3 44.31 . S TRDOC=$$GE T1^DIQ(344 ,XX,200,"I ") ; FMS D ocument # . S X=$S(T RDOC'="":$ $STATUS^GE CSSGET(TRD OC),1:"") . I X'="", X'=-1,$E(X ,1)'="R",$ E(X,1)'="E " D . . S XX=$G(^TMP ($J,"TOTAL S","FMSTOT ")) . . S YY=$$GET1^ DIQ(344.31 ,IEN34431, .07,"I") ; Amount of Payment . . S ^TMP( $J,"TOTALS ","FMSTOT" )=XX+YY . . S RCFMS1 =$S($E(X,1 )="Q":"QUE UED TO POS T",1:"POST ED") . S X X=$S(X="": "",X=-1:"N O FMS DOC" ,1:$E($P(X ," ",1),1, 10)) . S R CFMS1(IEN3 4431)=XX ; FMS Document Status for EFT . S X X=$$GET1^D IQ(344.31, IEN34431,. 08,"I") ; Match Stat us . I XX D . . S XX =$G(^TMP($ J,"TOTALS" ,"MATCH"," D")) . . S ^TMP($J," TOTALS","M ATCH","D") =XX+1 ; To tal Matche d EFTS by date . D:D ETL EFTDTL (.INPUT,IE N3443,IEN3 4431,.RCFM S1) . Q:$P (INPUT,"^" ,5)=1 . D: DETL SL^RC DPEDA3(.IN PUT," ") Q ;EFTDTL(I NPUT,IEN34 43,IEN3443 1,RCFMS1) ; Display EFT Detail ; Input: INPUT - A1 ^A2^A3^... ^An Where: ; A1 - 1 if called from Night ly Process ; 0 other wise ; A2 - 1 if dis playing to Listman ; 0 otherwi se ; A3 - 1 if Detai l 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 8 - Curren t Line Cou nter ; A9 - Internal Date bein g processe d ; IEN344 3 - Intern al IEN for file 344. 3 ; IEN344 31 - Inter nal IEN fo r file 344 .31 ; RCFM S1(IEN3443 1) - FMS D ocument St atus for E FT IEN ; O utput: INP UT - A1^A2 ^A3^...^An - The fol lowing pie ces ; may be updated ; A5 - Up dated Page Number ; A6 - Stop Flag ; A8 - Updated Line Count er N PAYER ,X,XX,YY S XX=$$GET1 ^DIQ(344.3 1,IEN34431 ,.01,"I") ; EFT Tran saction IE N S X=$$SE TSTR^VALM1 (XX,"",4,6 ) S XX=$$G ET1^DIQ(34 4.31,IEN34 431,.12,"I ") ; Date Claims Pai d S X=$$SE TSTR^VALM1 ($$FMTE^XL FDT(XX\1," 2Z"),X,32, 8) S XX=$$ GET1^DIQ(3 44.31,IEN3 4431,.07," I") ; Amou nt of Paym ent S X=$$ SETSTR^VAL M1($J(XX," ",2),X,42, 18) ; ; PR CA*4.5*284 , Move to left 3 spa ce (61 to 58) to all ow for 10 digit ERA #'s S XX=$ $GET1^DIQ( 344.31,IEN 34431,.08, "I") ; Mat ch Status S YY=$$GET 1^DIQ(344. 31,IEN3443 1,.1,"I") ; ERA IEN S X=$$SETS TR^VALM1($ $EXTERNAL^ DILFD(344. 31,.08,"", +XX)_$S(XX =1:"/ERA # "_YY,1:"") ,X,58,20) Q:$P(INPUT ,"^",5)=1 D SL^RCDPE DA3(.INPUT ,X) S XX=$ $GET1^DIQ( 344.31,IEN 34431,.04, "I") ; Tra ce Number S X=$$SETS TR^VALM1(X X,"",11,$L (XX)) S XX =$G(^TMP($ J,"TOTALS" ,"CRDOC",I EN3443)) ; PRCA*4.5* 318 add CR # to deta il rpt S X =$$SETSTR^ VALM1(XX,X ,60,$L(XX) ) ; CR Doc ument Numb er D SL^RC DPEDA3(.IN PUT,X) S P AYER=$$GET 1^DIQ(344. 31,IEN3443 1,.02,"I") ; Payer N ame S:PAYE R="" PAYER ="NO PAYER NAME RECE IVED" ; PRCA*4. 5*298 S XX =$$GET1^DI Q(344.31,I EN34431,.0 3,"I") ; P ayer ID S X=$$SETSTR ^VALM1(PAY ER_"/"_XX, "",15,65) ; PRCA*4.5 *298 D SL^ RCDPEDA3(. INPUT,X) ; PRCA*4.5* 318 add TR #s to det ail rpt D GETTR(IEN3 4431,.INPU T) ; Gathe r & displa y all TR D oc #s for EFT detail record S X="" ; ; PRCA*4.5*3 04 - lengt hen receip t number d isplay to 12 S XX=$$ GET1^DIQ(3 44.31,IEN3 4431,.09," I") ; Rece ipt IEN I XX'="" D . S YY=$$GE T1^DIQ(344 ,XX,.01,"I ") ; Recei pt Number . S X=$$SE TSTR^VALM1 (YY,X,46,1 2) S X=$$S ETSTR^VALM 1($G(RCFMS 1(IEN34431 )),X,61,19 ) D SL^RCD PEDA3(.INP UT,X) Q:$P (INPUT,"^" ,5)=1 D EF TERRS^RCDP EDA3(.INPU T,IEN34431 ) ; Displa y any EFT Errors D D UP(.INPUT, IEN34431) ; Check if this was a duplicat e EFT Q ;G ETTR(IEN34 431,INPUT) ;Gathers and Displa ys all TR Doc #s for a specifi ed EFT ; d etail reco rd ; PRCA* 4.5*318 ad d TR #s to detail rp t ; Input: IEN34431 - Internal IEN for f ile #344.3 1 ; INPUT - A1^A2^A3 ^...^An Wh ere: ; A1 - 1 if cal led from N ightly Pro cess ; 0 o therwise ; A2 - 1 if displayin g to Listm an ; 0 oth erwise ; A 3 - 1 if D etail repo rt ; 0 if summary re port ; A4 - Current Page Numbe r ; A5 - S top Flag ; A6 - Star t of Date Range ; A7 - End of Date Range ; A8 - Cu rrent Line Counter ; A9 - Inte rnal Date being proc essed; ; N CTR,IEN34 44,IENS,RE CEIPT,TRDO C,TRDOCS,X X ; First gather up all the TR Document numbers in to as many lines as needed S C TR=1 S IEN 3444=$$GET 1^DIQ(344. 31,IEN3443 1,.1,"I") ; Internal IEN for f or 344.4 S RECEIPT=$ $GET1^DIQ( 344.4,IEN3 444,.08,"I ") ; Recei pt # from 344.4 I RE CEIPT'="" D . S TRDO C=$TR($$GE T1^DIQ(344 ,RECEIPT,2 00,"I")," ") ; FMS D ocument # . I TRDOC= "" Q . S T RDOCS(CTR) =TRDOC . S XX="" . F D Q:XX= "" .. S XX =$O(^RCY(3 44.4,IEN34 44,8,XX)) .. Q:XX="" .. S IENS =XX_","_IE N3444_"," .. S RECEI PT=$$GET1^ DIQ(344.48 ,IENS,.01, "I") ; Oth er receipt numbers . . I RECEIP T="" Q .. S TRDOC=$T R($$GET1^D IQ(344,REC EIPT,200," I")," ") ; FMS Docum ent # .. Q :TRDOC="" .. I $L(TR DOC)+$L($G (TRDOCS(CT R)))+1>73 D Q .. . S CTR=CTR+ 1,TRDOCS(C TR)=TRDOC .. S TRDOC S(CTR)=TRD OCS(CTR)_" , "_TRDOC ; ; Now di splay the TR Documen t numbers I '$D(TRDO CS) D SL^R CDPEDA3(.I NPUT," ") Q ; bla nk line fo r TR#s S X X="" F D Q:XX="" . S XX=$O(T RDOCS(XX)) . Q:XX="" . D SL^RC DPEDA3(.IN PUT,$J("", 3)_TRDOCS( XX)) Q ;DU P(INPUT,IE N34431) ; Check to s ee if the EFT was a duplicate ; Input: I NPUT - A1^ A2^A3^...^ An Where: ; A1 - 1 i f called f rom Nightl y Process, 0 otherwi se ; A2 - 1 if displ aying to L istman, 0 otherwise ; A3 - Cur rent Page Number ; A 1 - 1 if D etail repo rt, 0 if s ummary rep ort ; A5 - Stop Flag ; A6 - St art of Dat e Range ; A7 - End o f Date Ran ge ; A8 - Current Li ne Counter ; A9 - In ternal Dat e being pr ocessed ; IEN34431 - Internal IEN for fi le 344.31 ; 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 XX,Y Y Q:'$D(^R CY(344.31, IEN34431,3 )) ; Not a duplicate S XX=$$GE T1^DIQ(344 .31,IEN344 31,.18,"I" ) ; Date/T ime Remove d S YY=$$G ET1^DIQ(34 4.31,IEN34 431,.17,"I ") ; User who remove d it S X=" MARKED AS DUPLICATE : "_$$FMTE ^XLFDT(XX) _" "_$$EXT ERNAL^DILF D(344.31,. 17,,YY) D SL^RCDPEDA 3(.INPUT,X ) D SL^RCD PEDA3(.INP UT," ") Q ;ERRMSGS(I NPUT,IEN34 43) ; Disp lay any EF T error me ssages ; 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 ; IEN 3443 - Int ernal IEN for file 3 44.3 ; Out put: INPUT - A1^A2^A 3^...^An - The follo wing piece s may be u pdated ; A 5 - Update d Page Num ber ; A6 - Stop Flag ; A8 - Up dated Line Counter ; N DETL,ER RS,XX S DE TL=$P(INPU T,"^",3) S XX=$$GET1 ^DIQ(344.3 ,IEN3443,2 ,"I","ERRS ") ; Error Message W P field Q: '$D(ERRS) ; No error s Q:$P(INP UT,"^",5)= 1 D SL^RCD PEDA3(.INP UT,$J("",1 0)_"ERROR MESSAGES F OR EFT:") S XX="" F D Q:XX=" " Q:$P(IN PUT,"^",5) =1 . S XX= $O(ERRS(XX )) . Q:XX= "" . Q:$P( INPUT,"^", 5)=1 . D S L^RCDPEDA3 (.INPUT,$J ("",12)_ER RS(XX)) Q ;. D RPT1^ RCDPEDAR(" 1^0^0^0^0^ "_DT_"^"_D T) | |
| 142 | . | |
| 143 | . | |
| 144 | . | |
| 145 | ||
| 146 | ||
| 147 | ||
| 148 | Routines | |
| 149 | Activities | |
| 150 | Routine Na me | |
| 151 | RCDPEDA3 | |
| 152 | Enhancemen t Category | |
| 153 | New | |
| 154 | Modify | |
| 155 | Delete | |
| 156 | No Change | |
| 157 | RTM | |
| 158 | ||
| 159 | Related Op tions | |
| 160 | RCDPE EDI LOCKBOX AC T REPORT | |
| 161 | Routines | |
| 162 | Activities | |
| 163 | Data Dicti onary (DD) Reference s | |
| 164 | ||
| 165 | Related Pr otocols | |
| 166 | ||
| 167 | Related In tegration Control Re gistration s (ICRs) | |
| 168 | ||
| 169 | Data Passi ng | |
| 170 | Input | |
| 171 | Output Re ference | |
| 172 | Both | |
| 173 | Global Re ference | |
| 174 | Local | |
| 175 | Input Attr ibute Name and Defin ition | |
| 176 | Name: | |
| 177 | Definition : | |
| 178 | Output Att ribute Nam e and Defi nition | |
| 179 | Name: | |
| 180 | Definition : | |
| 181 | ||
| 182 | Related Ro utines | |
| 183 | Routines “ Called By” | |
| 184 | Routines “ Called” | |
| 185 | ||
| 186 | RPT^RCDPED AR | |
| 187 | RPT1^RCDPE DAR | |
| 188 | DETLN^RCDP EDA2 | |
| 189 | PROCEFT^RC DPEDA2 | |
| 190 | EFTDTL^RCD PEDA2 | |
| 191 | GETTR^RCDP EDA2 | |
| 192 | DUP^RCDPED A2 | |
| 193 | ERRMSGS^RC DPEDA2 | |
| 194 | $$SETSTR^V ALM1 | |
| 195 | ||
| 196 | ||
| 197 | Current Lo gic | |
| 198 | ||
| 199 | ||
| 200 | Modified L ogic | |
| 201 | RCDPEDA3 ; EDE/DW - A CTIVITY RE PORT ;Feb 17, 2017@1 0:37:00 ;; 4.5;Accoun ts Receiva ble;**318* *;Mar 20, 1995;Build 99 ;Per V A Directiv e 6402, th is routine should no t be modif ied. Q ;EF TERRS(INPU T,IEN34431 ) ; Entry Point from RCDPEDA2 ; Output a ny EFT Det ail errors ; ; Input : INPUT - A1^A2^A3^. ..^An Wher e: ; A1 - 1 if calle d from Nig htly Proce ss, 0 othe rwise ; A2 - 1 if di splaying t o Listman, 0 otherwi se ; A3 - 1 if Detai l report, 0 if summa ry report ; A4 - Cur rent Page Number ; A 5 - Stop F lag ; A6 - Start of Date Range ; A7 - En d of Date Range ; A8 - Current Line Coun ter ; A9 - Internal Date being processed ; IEN3443 1 - Intern al IEN for file 344. 31 ; Outpu t: INPUT - A1^A2^A3^ ...^An - T he followi ng pieces may be upd ated ; A5 - Updated Page Numbe r ; A6 - S top Flag ; A8 - Upda ted Line C ounter Q:' $O(^RCY(34 4.31,IEN34 431,2,0)) ; No error message N ERRS,V,XX ,YY Q:$P(I NPUT,"^",5 )=1 D SL(. INPUT,$J(" ",10)_"ERR OR MESSAGE S FOR EFT DETAIL:") S XX=$$GET 1^DIQ(344. 31,IEN3443 1,2,"I","E RRS") S V= "" F D Q :V="" Q:$ P(INPUT,"^ ",5)=1 . S V=$O(ERRS (V)) . Q:V ="" . Q:$P (INPUT,"^" ,5)=1 . D SL(.INPUT, $J("",12)_ ERRS(V)) Q ;LMHDR(RC STOP,RCDET ,RCNJ,RCDT 1,RCDT2,RC HDR) ; Ent ry Point f rom RCDPED AR ; List Man report heading ; ; Input: RCDET - 1 to display detail, 0 otherwise ; RCNJ - Set 1, ind icates rep ort was ca lled from the nightl y ; proces s OR displ aying to l istman. Us ed to set lines ; in to a ^TMP array inst ead of dis playing th em. ; RCDT 1 - Intern al Start D ate of dat e range ; RCDT2 - In ternal End Date of d ate range ; RCNP - P ayer Selec tion flag A1^A2^A3 W here: ; A1 - 1 - Ran ge,2 - All ,3 -Specif ic ; A2 - From Payer text (onl y set if A 1=1) ; A3 - Through text (only set if A1 =1) ; ^TMP ("RCSELPAY ",$J,B1) - Selected payers to be display ed ; Outpu t: RCHDR - Array of listman he ader lines ; RCSTOP - 1 if use r stopped ; N RCCT, X,XX,Y,Z,Z 0,Z1 S RCC T=0 S XX=$ S(RCDET:"D ETAIL",1:" SUMMARY")_ " REPORT" S RCHDR("T ITLE")="ED I LOCKBOX EFT DAILY ACTIVITY " _XX 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)) I 'RCD ET D . S R CCT=RCCT+1 ,RCHDR(RCC T)="" S RC CT=RCCT+1, RCHDR(RCCT )=Z ; I 'R CDET D . S RCCT=RCCT +1,RCHDR(R CCT)="" S Z="DATE RA NGE: "_$$F MTE^XLFDT( RCDT1,"2Z" )_" - " S Z=Z_$$FMTE ^XLFDT(RCD T2,"2Z")_" (Date Dep osit Added )" I 'RCDE T D . S RC CT=RCCT+1, RCHDR(RCCT )="" S RCC T=RCCT+1,R CHDR(RCCT) =Z I RCDET D . S XX= "DEP # DEP OSIT DT "_ $J("",19) . S XX=XX_ "DEP AMOUN T FMS DEPO SIT STAT" . S Z=$$SE TSTR^VALM1 (XX,"",1,8 0) . S RCC T=RCCT+1,R CHDR(RCCT) =Z . S XX= $J("",3)_" EFT #"_$J( "",23)_"DA TE PD PAYM ENT AMOUNT ERA MATCH STATUS" . S Z=$$SET STR^VALM1( XX,"",1,80 ) . S RCCT =RCCT+1,RC HDR(RCCT)= Z . S Z=$$ SETSTR^VAL M1($J("",1 0)_"EFT PA YER TRACE #","",1,30 ) . ;PRCA* 4.5*318 ad d CR # . S Z=$$SETST R^VALM1("C R #",Z,60, 80) . S RC CT=RCCT+1, RCHDR(RCCT )=Z . S Z= $$SETSTR^V ALM1($J("" ,14)_"PAYM ENT FROM", "",1,30) . S Z=$$SET STR^VALM1( $J("",15)_ "DEP RECEI PT #",Z,31 ,30) . S Z =$$SETSTR^ VALM1("DEP RECEIPT S TATUS",Z,6 1,19) . S RCCT=RCCT+ 1,RCHDR(RC CT)=Z . ;P RCA*4.5*31 8 add TR # s . S Z=$$ SETSTR^VAL M1("TR #", "",1,30) . S RCCT=RC CT+1,RCHDR (RCCT)=Z Q ;HDR(INPU T) ; Entry Point fro m RCDPEDA3 ; Display s report h eader ; 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 ; A9 - Curr ent line c ount ; Out put: INPUT - A1^A2^A 3^...^An - The follo wing piece s may be u pdated ; A 4 - Curren t Page Num ber ; A5 - Stop Flag ; A8 - Up dated line count N C URPG,DETL, DTST,DTEND ,NJ,STOP,X ,XX,Y,Z,Z0 ,Z1 S DETL =$P(INPUT, "^",3) S S TOP=$P(INP UT,"^",5) S DTST=$P( INPUT,"^", 6) ; Date Range Star t S DTEND= $P(INPUT," ^",7) ; Da te Range E ndS STOP=0 S NJ=$P(I NPUT,"^",1 ),CURPG=$P (INPUT,"^" ,4) Q:NJ&( CURPG) I C URPG!($E(I OST,1,2)=" C-") D . Q :NJ . I CU RPG,($E(IO ST,1,2)="C -") D ASK( .STOP) Q:S TOP . W @I OF ; Write form feed I STOP S $P(INPUT," ^",5)=1 Q S CURPG=CU RPG+1,$P(I NPUT,"^",4 )=CURPG ; ; PRCA276 if coming from night ly job nee d to defin e payer se lection va riable I N J N RCNP S RCNP=2 ; ; PRCA276 if coming from night ly job nee d to defin e division selection variable I NJ N VAU TD S VAUTD =1 S Z0="E DI LOCKBOX EFT DAILY ACTIVITY "_$S(DETL: "DETAIL",1 :"SUMMARY" )_" REPORT " S Z=$$SE TSTR^VALM1 ($J("",80- $L(Z0)\2)_ Z0,"",1,79 ) S Z=$$SE TSTR^VALM1 ("Page: "_ CURPG,Z,70 ,10) D SL( .INPUT,Z) S Z="RUN D ATE: "_$$F MTE^XLFDT( $$NOW^XLFD T(),"2Z"), Z=$J("",80 -$L(Z)\2)_ Z D SL(.IN PUT,Z) ; ; PRCA276 a dd divisio ns to head er S Z1="" I 'VAUTD S Z0=0 F S Z0=$O(VA UTD(Z0)) Q :'Z0 S Z1 =Z1_VAUTD( Z0)_", " S Z="DIVISI ONS: "_$S( VAUTD:"ALL ",1:$E(Z1, 1,$L(Z1)-2 )),Z=$J("" ,80-$L(Z)\ 2)_Z D SL( .INPUT,Z) ; ; PRCA27 6 add paye r selectio n list to header I R CNP'=2 D . S Z0=0,Z1 ="" . F D Q:'Z0 . . S Z0=$O( ^TMP("RCSE LPAY",$J,Z 0)) . . Q: 'Z0 . . S Z1=Z1_^TMP ("RCSELPAY ",$J,Z0)_" , " S Z="P AYERS: "_$ S(RCNP=2:" ALL",1:$E( Z1,1,$L(Z1 )-2)),Z=$J ("",80-$L( Z)\2)_Z D SL(.INPUT, Z) ; ; PRC A276 add d ate filter to header S Z="DATE RANGE: "_ $$FMTE^XLF DT(DTST,"2 Z")_" - "_ $$FMTE^XLF DT(DTEND," 2Z") S Z=Z _" (Date D eposit Add ed)",Z=$J( "",80-$L(Z )\2)_Z D S L(.INPUT,Z ) I DETL D . ; . ; P RCA*4.5*28 3 - Add 3 more space s between DEP # and DEPOSIT DT . ; and remove 3 s paces betw een DEPOSI T DT and D EP AMOUNT to allow f or 9 digit DEP #'s . D SL(.INP UT,"") . S XX="DEP # DEPOSIT D T "_$J("", 19)_"DEP A MOUNT FMS DEPOSIT ST AT" . S Z= $$SETSTR^V ALM1(XX,"" ,1,$L(XX)) . D SL(.I NPUT,Z) . ; . ; PRCA *4.5*284, Move Match Status to left 3 sp ace to all ow for 10 digit ERA #'s . S XX =$J("",3)_ "EFT #"_$J ("",23)_"D ATE PD PAY MENT AMOUN T ERA MATC H STATUS" . S Z=$$SE TSTR^VALM1 (XX,"",1,$ L(XX)) . D SL(.INPUT ,Z) . S Z= $$SETSTR^V ALM1($J("" ,10)_"EFT PAYER TRAC E #","",1, 52) . S Z= $$SETSTR^V ALM1("CR # ",Z,60,4) ;PRCA*4.5* 318 add CR # . D SL( .INPUT,Z) . S XX=$J( "",14)_"PA YMENT FROM " . S Z=$$ SETSTR^VAL M1(XX,"",1 ,$L(XX)) . D SL(.INP UT,Z) . S XX=$J("",3 )_"TR #" ;PRC A*4.5*318 add TR # . S Z=$$SET STR^VALM1( XX,"",1,$L (XX)) . D SL(.INPUT, Z) ; TR DO C header . S XX=$J(" ",45)_"DEP RECEIPT # " . S Z=$$ SETSTR^VAL M1(XX,"",1 ,$L(XX)) . S Z=$$SET STR^VALM1( "DEP RECEI PT STATUS" ,Z,61,19) . D SL(.IN PUT,Z) D S L(.INPUT,$ TR($J("",I OM-1)," ", "=")) Q ;T OTSDAY(INP UT) ; Entr y Point fr om RCDPEDA R ; Displa y the tota ls for the specified date ; ; Input: INP UT - A1^A2 ^A3^...^An Where: ; A1 - 1 if called fro m Nightly Process, 0 otherwise ; A2 - 1 if display ing to Lis tman, 0 ot herwise ; A3 - 1 if Detail rep ort, 0 if summary re port ; A4 - Current Page Numbe r ; A5 - S top Flag ; A6 - Star t of Date Range ; A7 - End of Date Range ; A8 - Cu rrent Line Counter ; A9 - Inte rnal Date being proc essed ; ^T MP($J,"TOT ALS","DEP" ) - Curren t Total # of deposit s for date range ; ^ TMP($J,"TO TALS","DEP ",C1) - To tal # of d eposits fo r Internal date (C1) ; ^TMP($J ,"TOTALS", "DEPA") - Current To tal Deposi t Amount f or date ra nge ; ^TMP ($J,"TOTAL S","DEPA", C1) - Tota l Deposit Amount for Internal date (C1) ; ^TMP($J, "TOTALS"," EFT","D") - Total De posit Amou nt by EFTs for date ; ^TMP($J, "TOTALS"," EFT","T") - Current Total Depo sit Amount by EFTs f or range ; ^TMP($J," TOTALS","F MS") - FMS Document Status or "NO FMS DO C" ; ^TMP( $J,"TOTALS ","FMS","D ",-1) - To tal Deposi t Amount b y FMS Docu ment ; ^TM P($J,"TOTA LS","FMS", "D",0) - T otal Amoun t for Erro r/Rejected documents ; ^TMP($J ,"TOTALS", "FMS","D", 1") - Tota l Amount f or 'A','M' ,"F' or 'T ' docs ; ^ TMP($J,"TO TALS","FMS ","D",2") - Total Am ount for q ueued docs ; ^TMP($J ,"TOTALS", "FMS","T", -1) - Tota l Deposit Amount by FMS Docume nt for ran ge ; ^TMP( $J,"TOTALS ","FMS","T ",0) - Tot al Amount for Error/ Rejected d ocs for ra nge ; ^TMP ($J,"TOTAL S","FMS"," T",1") - T otal Amoun t for 'A', 'M',"F' or 'T' docs range ; ^T MP($J,"TOT ALS","FMS" ,"T",2") - Total Amo unt for qu eued docs for range ; ^TMP($J, "TOTALS"," FMSTOT") - Updated T otal Depos it Amount for date r ange ; ^TM P($J,"TOTA LS","MATCH ","D") - C urrent Tot al matched EFTs for date ; ^TM P($J,"TOTA LS","MATCH ","T") - C urrent Tot al matched EFTs for date range ; Output: INPUT - A 1^A2^A3^.. .^An - The following pieces ma y be updat ed ; A4 - Updated Pa ge Number ; A5 - Sto p Flag ; A 8 - Update d Line Cou nter ; ^TM P($J,"TOTA LS","DEP") - Updated Total # o f deposits for date range ; ^T MP($J,"TOT ALS","DEPA ") - Updat ed Total D eposit Amo unt for da te range ; ^TMP($J," TOTALS","E FT","T") - Updated T otal Depos it Amount by EFTs fo r range ; ^TMP($J,"T OTALS","FM S","T",-1) - Updated Deposit A mount by F MS Documen t for rang e ; ^TMP($ J,"TOTALS" ,"FMS","T" ,0) - Upda ted Amount for Error /Rejected docs for r ange ; ^TM P($J,"TOTA LS","FMS", "T",1") - Updated Am ount for ' A','M',"F' or 'T' do cs range ; ^TMP($J," TOTALS","F MS","T",2" ) - Update d Amount f or queued docs for r ange ; ^TM P($J,"TOTA LS","MATCH ","T") - U pdated Tot al Matched EFTs for date range N CURPG,D TADD,LSTMA N,NL,Q,XX, YY S LSTMA N=$P(INPUT ,"^",2) ; Display to Listman f lag S NJ=$ P(INPUT,"^ ",1) ; Cal led from N ightly Pro cess flag S CURPG=$P (INPUT,"^" ,4) ; Curr ent Page C ounter S D TADD=$P(IN PUT,"^",9) ; Date to display t otals for S XX=$G(^T MP($J,"TOT ALS","DEPA ")) ; Curr ent Total Deposit Am ount for d ate range S YY=$G(^T MP($J,"TOT ALS","DEPA ",DTADD)) ; Total De posit Amou nt for dat e S ^TMP($ J,"TOTALS" ,"DEPA")=X X+YY ; Upd ated Total for range ; S XX=$G (^TMP($J," TOTALS","D EP")) ; Cu rrent Tota l # of Dep osits for date range S YY=$G(^ TMP($J,"TO TALS","DEP ",DTADD)) ; Total # of Deposit s for date S ^TMP($J ,"TOTALS", "DEP")=XX+ YY ; Upda ted Total # for rang e ; S XX=$ G(^TMP($J, "TOTALS"," EFT","T")) ; Current Total Amo unt by EFT s for date range S Y Y=$G(^TMP( $J,"TOTALS ","EFT","D ")) ; Tota l Amount b y EFTs for date S ^T MP($J,"TOT ALS","EFT" ,"T")=XX+Y Y ; Updated T otal Amoun t for rang e ; S XX=$ G(^TMP($J, "TOTALS"," MATCH","T" )) ; Curre nt Total # Matched E FTs for da te range S YY=$G(^TM P($J,"TOTA LS","MATCH ","D")) ; # Matched EFTs for d ate S ^TMP ($J,"TOTAL S","MATCH" ,"T")=XX+Y Y ; U pdated Tot al # Match ed EFTs fo r date ran ge ; ; Upd ate docume nt status totals for range F Q =-1,0,1,2 D . S XX=$ G(^TMP($J, "TOTALS"," FMS","T",Q )) ; Curre nt Total # of Q stat us for dat e range . S YY=$G(^T MP($J,"TOT ALS","FMS" ,"D",Q)) ; # of Q st atus for d ate . S ^T MP($J,"TOT ALS","FMS" ,"T",Q)=XX +YY ; U pdated Tot al # of Q status for date rang e ; ; Disp lay the da ily totals D SL(.INP UT," ") I $S('NJ:($Y +5)>IOSL,1 :0)!'CURPG D Q:$P(I NPUT,"^",5 )=1 . D:'L STMAN HDR^ RCDPEDA3(. INPUT) S X X=$E("**TO TALS FOR D ATE: "_$$F MTE^XLFDT( DTADD\1,"2 Z")_$J("", 30),1,30) S YY=$G(^T MP($J,"TOT ALS","DEP" ,DTADD)) S XX=XX_" # OF DEPOSI T TICKETS RECEIVED: "_+YY_$J(" ",5) D SL( .INPUT,XX) S YY=$G(^ TMP($J,"TO TALS","DEP A",DTADD)) S XX=$J(" ",29)_"TOT AL AMOUNT OF DEPOSIT S RECEIVED : $"_$J(YY ,"",2) D S L(.INPUT,X X) Q:$P(IN PUT,"^",5) =1 D SL(.I NPUT," ") D SL(.INPU T,$J("",20 )_"DEPOSIT AMOUNTS S ENT TO FMS :") Q:$P(I NPUT,"^",5 )=1 S YY=+ $G(^TMP($J ,"TOTALS", "FMS","D", 1)) S XX=$ J("",39)_" ACCEPTED: $"_$J(YY," ",2) D SL( .INPUT,XX) Q:$P(INPU T,"^",5)=1 S YY=+$G( ^TMP($J,"T OTALS","FM S","D",2)) S XX=$J(" ",41)_"QUE UED: $"_$J (YY,"",2) D SL(.INPU T,XX) Q:$P (INPUT,"^" ,5)=1 S YY =+$G(^TMP( $J,"TOTALS ","FMS","D ",0)) S XX =$J("",35) _"ERROR/RE JECT: $"_$ J(YY,"",2) D SL(.INP UT,XX) Q:$ P(INPUT,"^ ",5)=1 S Y Y=+$G(^TMP ($J,"TOTAL S","FMS"," D",-1)) S XX=$J("",3 7)_"NOT IN FMS: $"_$ J(YY,"",2) D SL(.INP UT,XX) D S L(.INPUT," ") Q:$P(I NPUT,"^",5 )=1 S YY=+ $G(^TMP($J ,"TOTALS", "EFT","D") ) S XX=$J( "",26)_"# EFT PAYMEN T RECORDS: "_YY D SL (.INPUT,XX ) Q:$P(INP UT,"^",5)= 1 S YY=+$G (^TMP($J," TOTALS","M ATCH","D") ) S XX=$J( "",25)_"# EFT PAYMEN TS MATCHED : "_YY D S L(.INPUT,X X) Q:$P(IN PUT,"^",5) =1 S YY=+$ G(^TMP($J, "TOTALS"," DEPAP",DTA DD)) S XX= $J("",18)_ "MATCHED P AYMENT AMO UNT POSTED : $"_$J(YY ,"",2) D S L(.INPUT,X X) D SL(.I NPUT," ") Q ;TOTSF(I NPUT) ; En try Point from RCDPE DAR ; Disp lay Final Totals ; ; Input: IN PUT - A1^A 2^A3^...^A n Where: ; A1 - 1 if called fr om Nightly Process, 0 otherwis e ; A2 - 1 if displa ying to Li stman, 0 o therwise ; A3 - 1 if Detail re port, 0 if summary r eport ; A4 - Current Page Numb er ; A5 - Stop Flag ; A6 - Sta rt of Date Range ; A 7 - End of Date Rang e ; A8 - C urrent Lin e Counter ; A9 - Int ernal Date being pro cessed ; ^ TMP($J,"TO TALS","DEP ") - Total # of depo sits for d ate range ; ^TMP($J, "TOTALS"," DEPA") - T otal Depos it Amount for date r ange ; ^TM P($J,"TOTA LS","EFT", "T") - Tot al Deposit Amount by EFTs for range ; ^T MP($J,"TOT ALS","FMS" ,"T",-1) - Total Dep osit Amoun t by FMS D ocument fo r range ; ^TMP($J,"T OTALS","FM S","T",0) - Total Am ount for E rror/Rejec ted docs f or range ; ^TMP($J," TOTALS","F MS","T",1" ) - Total Amount for 'A','M'," F' or 'T' docs range ; ^TMP($J ,"TOTALS", "FMS","T", 2") - Tota l Amount f or queued docs for r ange ; ^TM P($J,"TOTA LS","MATCH ","T") - T otal Match ed EFTs fo r date ran ge ; Outpu t: INPUT - A1^A2^A3^ ...^An - T he followi ng pieces may be upd ated ; A5 - Updated Page Numbe r ; A6 - S top Flag ; A8 - Upda ted Line C ounter N L STMAN,NJ,X X,YY S LST MAN=$P(INP UT,"^",2), NJ=$P(INPU T,"^",1) ; ; Display header if no output was displ ayed and n ot being d isplayed i n listman I '$O(^TMP ("RCDAILYA CT",$J,0)) ,'LSTMAN D HDR^RCDPE DA3(.INPUT ) ; ; If u ser quit o r (Nightly process f lag AND no t display to listman ) - end he re I $P(IN PUT,"^",5) =1!(NJ&'LS TMAN) Q D SL(.INPUT, " ") S XX= $E("**** T OTALS FOR DATE RANGE :"_$J("",3 0),1,30) S YY=+$G(^T MP($J,"TOT ALS","DEP" )) S XX=XX _" # OF DE POSIT TICK ETS RECEIV ED: "_YY_$ J("",5) D SL(.INPUT, XX) S YY=+ $G(^TMP($J ,"TOTALS", "DEPA")) S XX=$J("", 29)_"TOTAL AMOUNT OF DEPOSITS RECEIVED: $"_$J(YY," ",2) D SL( .INPUT,XX) D SL(.INP UT," ") D SL(.INPUT, $J("",20)_ "DEPOSIT A MOUNTS SEN T TO FMS:" ) S YY=+$G (^TMP($J," TOTALS","F MS","T",1) ) S XX=$J( "",39)_"AC CEPTED: $" _$J(YY,"", 2) D SL(.I NPUT,XX) S YY=+$G(^T MP($J,"TOT ALS","FMS" ,"T",2)) S XX=$J("", 41)_"QUEUE D: $"_$J(Y Y,"",2) D SL(.INPUT, XX) S YY=+ $G(^TMP($J ,"TOTALS", "FMS","T", 0)) S XX=$ J("",35)_" ERROR/REJE CT: $"_$J( YY,"",2) D SL(.INPUT ,XX) S YY= +$G(^TMP($ J,"TOTALS" ,"FMS","T" ,-1)) S XX =$J("",37) _"NOT IN F MS: $"_$J( YY,"",2) D SL(.INPUT ,XX) D SL( .INPUT," " ) S YY=+$G (^TMP($J," TOTALS","E FT","T")) S XX=$J("" ,26)_"# EF T PAYMENT RECORDS: " _YY D SL(. INPUT,XX) S YY=+$G(^ TMP($J,"TO TALS","MAT CH","T")) S XX=$J("" ,25)_"# EF T PAYMENTS MATCHED: "_YY D SL( .INPUT,XX) S YY=+$G( ^TMP($J,"T OTALS","DE PAP")) S X X=$J("",18 )_"MATCHED PAYMENT A MOUNT POST ED: $"_$J( YY,"",2) D SL(.INPUT ,XX) D SL( .INPUT," " ) D SL(.IN PUT," ") Q ;ASK(RCST OP) ; Ask to continu e ; If pas sed by ref erence ,RC STOP is re turned as 1 if print is aborte d I $E(IOS T,1,2)'["C -" Q N DIR ,DIROUT,DI RUT,DTOUT, DUOUT S DI R(0)="E" W ! D ^DIR I ($D(DIRU T))!($D(DU OUT)) S RC STOP=1 Q Q ;SL(INPUT ,Z) ; Entr y Point fr om RCDPEDA R & RCDEPA 2 ; Writes or stores line ; ; Input: INP UT - A1^A2 ^A3^...^An Where: ; A1 - 1 if called fro m Nightly Process, 0 otherwise ; A2 - 1 if display ing to Lis tman, 0 ot herwise ; A3 - 1 if Detail rep ort, 0 if summary re port ; A4 - Current Page Numbe r ; A5 - S top Flag ; A6 - Star t of Date Range ; A7 - End of Date Range ; A8 - Cu rrent Line Number ; Z - Data l ine to wri te or stor e ; RCCT - Current l ine counte r ; RCNJ - 1 to set array, 0 t o write li ne ; ^TMP( $J,"RCDPE_ DAR") - Cu rrent arra y of store d lines (i f RCNJ=1) ; Output: INPUT - A1 ^A2^A3^... ^An - The following pieces may be update d ; A11 - Updated Li ne Number ; Output: ; ^TMP($J ,"RCDPE_DA R") - Upda ted array of stored lines (if RCNJ=1) N XX S XX=$P (INPUT,"^" ,8)+1 S $P (INPUT,"^" ,8)=XX ; ; Called fr om nightly process I $P(INPUT, "^",1) S ^ TMP($J,"RC DPE_DAR",X X)=Z Q W ! ,Z Q | |
| 202 | ||
| 203 | ||
| 204 | ||
| 205 | Routines | |
| 206 | Activities | |
| 207 | Routine Na me | |
| 208 | RCDPEM1 | |
| 209 | Enhancemen t Category | |
| 210 | New | |
| 211 | Modify | |
| 212 | Delete | |
| 213 | No Change | |
| 214 | RTM | |
| 215 | ||
| 216 | Related Op tions | |
| 217 | Nightly Pr ocess | |
| 218 | Routines | |
| 219 | Activities | |
| 220 | Data Dicti onary (DD) Reference s | |
| 221 | ||
| 222 | Related Pr otocols | |
| 223 | ||
| 224 | Related In tegration Control Re gistration s (ICRs) | |
| 225 | ||
| 226 | Data Passi ng | |
| 227 | Input | |
| 228 | Output Re ference | |
| 229 | Both | |
| 230 | Global Re ference | |
| 231 | Local | |
| 232 | Input Attr ibute Name and Defin ition | |
| 233 | Name: | |
| 234 | Definition : | |
| 235 | Output Att ribute Nam e and Defi nition | |
| 236 | Name: | |
| 237 | Definition : | |
| 238 | ||
| 239 | Related Ro utines | |
| 240 | Routines “ Called By” | |
| 241 | Routines “ Called” | |
| 242 | ||
| 243 | RCDPEM | |
| 244 | RCDPEM9 | |
| 245 | ||
| 246 | RPT1^RCDPE DAR | |
| 247 | ||
| 248 | ||
| 249 | ||
| 250 | Current Lo gic | |
| 251 | . | |
| 252 | . | |
| 253 | . | |
| 254 | . D RPT1^ RCDPEDAR(1 ,0,DT,DT) | |
| 255 | . | |
| 256 | . | |
| 257 | . | |
| 258 | ||
| 259 | Modified L ogic | |
| 260 | . | |
| 261 | . | |
| 262 | . | |
| 263 | . D RPT1^R CDPEDAR("1 ^0^0^0^0^" _DT_"^"_DT ) | |
| 264 | . | |
| 265 | . | |
| 266 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.