RCDPTAR1 ;ALB/DMB - EFT TRANSACTION AUDIT REPORT (Summary) ;08/19/15
Source file <RCDPTAR1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUM | ;EP from RCDPTAR
; Display EFT Transaction Audit Report in original summary mode by Deposit Date |
|
| SUM2 | ;EP from RCDPTAR
; Display EFT Transaction Audit Report in summary mode by Deposit Number |
|
| ASKDNUM() | ; Ask the user for the deposit number to select
; Input: None ; Returns: -1 - User quit or timed out ; Deposit Number |
|
| DNUM2 | ; looping tag
|
|
| SELDT(CTR,ARR,RCLOOP) | ; Ask the user to select a deposit date for the selected Deposit Number
; Input: CTR - Current # of choices displayed ; ARR - Array of available choices ARR(A1)=A2 Where: ; A1 - Selection # ; A2 - Deposit Date ; RCLOOP - Flag that indicates if selection is being made after displaying a EFT for the first time. ; Makes selection optional. PRCA*4.5*439 ; Returns: "" - Nothing selected, Otherwise selected deposit date is returned ; -1 if user '^' or timed out |
|
| ASKDEV(WHICH) | ; Prompt user for device
; Input: WHICH - 0 - Original summary report, 1 - New summary report ; Retunrs: -1 - Unable to open device, 1 otherwise ; Prompt for device |
|
| RUN(RCDT1,RCDT2,RCEXCEL) | ; Compile and run the report (original summary mode)
; Input: RCDT1 - Start Date ; RCDT2 - End Date ; RCEXCEL - 1 - Excel output, 0 otherwise |
|
| RUN2(RDNUM,RCDDT,RCEXCEL) | ; Compile and run the report (new summary mode)
; Input: RCDNUM - Deposit Number ; RCDDT - Deposit Date ; RCEXCEL - 1 - Excel output, 0 otherwise |
|
| COMPILE(RCDT1,RCDT2) | ; Compile the report (original summary mode)
; Input: RCDT1 - Start Date ; RCDT2 - End Date |
|
| COMPILE2(RCDNUM,RCDDT) | ; Compile the report (new summary mode)
; Input: RCDNUM - Deposit Number ; RCDDT - Deposit Date |
|
| REPORT(RCDT1,RCDT2,RCEXCEL) | ; Output the report (original summary mode)
; Input: RCDT1 - Start Date ; RCDT2 - End Date ; RCEXCEL - 1 - Excel output, 0 otherwise |
|
| REPORT2(RCDNUM,RCDDT,RCEXCEL) | ; Output the report (new summary mode)
; Input: RCDNUM - Deposit Number ; RCDDT - Deposit Date ; RCEXCEL - 1 - Excel output, 0 otherwise |
|
| HEADER(RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCEXCEL,RCDNUM,RCDDT,RCDBAL) | ; Display the report header
; Input: RCNOW - External Run Date/Time ; RCPG - Current page number ; RCHR - Dashed line ; RCDT1 - Start Date or null if new summary report ; RCDT2 - End Date or null if new summary report ; RCEXCEL - 1 - Excel output, 0 otherwise ; RCDNUM - Deposit Number or null if original summary report ; RCDDT - Internal Deposit Date or null if original summary report ; RCDBAL - Piece 1: 1 if deposit is in balance, 0 otherwise ; Add parameter PRCA*4.5*439 ; Piece 2: Total of EFTs on the deposit ; Piece 3: Deposit Total |
|
| EXMSG | ;
|
|
| PAUSE() | ; Display press return to continue message
|
|
| CHKP(RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCEXCEL,RCSCR,LINES,RCDNUM,RCDDT) | ; Check if we need to do a page break
; Input: RCNOW - Run date/time ; RCPG - Current Page Number ; RCHR - Dashed line ; RCDT1 - Start Date or null if new summary report ; RCDT2 - End Date or null if new summary report ; RCEXCEL - 1 if output to Excel, 0 otherwise ; RSCR - 1 output to screen, otherwise output to paper ; LINES - Current # of lines on the page ; RCDNUM - Deposit Number or null if original summary report ; RCDDT - Deposit Date or null if original summary report ; Output: RCPG - New Page Number or 0 if user quit display |
|
| EFT(EFTIEN) | ; Format EFT output - EFT.SEQ - PRCA*4.5*326
; Input: EFTIEN - Internal EFT number ; Returns: EFT.Sequence # |
|
| DEPEFTS(RCDNUM,RCDDT,RCEFTCNT) | ; List EFTs for a given deposit number and date. Added for PRCA*4.5*439
; Input - RCDNUM - Deposit # ; RCDDT - Deposit Date ; Output - Return value LIST(Y) containing data of selected EFT ; RCEFTCNT - Count of EFTs passed by reference |
|
| EFT1 | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | ASKDEV+6 |
| HOME^%ZIS | ASKDEV+16 |
| ^%ZISC | REPORT+36, REPORT2+48 |
| ^%ZTLOAD | ASKDEV+14 |
| $$GET1^DIQ | COMPILE+27, COMPILE2+10, EFT+3, DEPEFTS+28 |
| ^DIR | SUM+7, SUM+15, DNUM2+4, SELDT+13, PAUSE+3 |
| $$EXCEL^RCDMCUT2 | SUM+19, SUM2+28 |
| $$DATE^RCDPRU | COMPILE+27, COMPILE+29, COMPILE+30, COMPILE2+17, COMPILE2+19, HEADER+38, HEADER+44, DEPEFTS+29 |
| $$NOW^RCDPRU | REPORT+8, REPORT2+11 |
| $$AGED^RCDPTAR | COMPILE+34 |
| $$EFTDATA^RCDPTAR | DEPEFTS+18 |
| $$READ^RCDPTAR | DEPEFTS+38 |
| DISPLAY^RCDPTAR | DEPEFTS+36 |
| $$DEPBAL^RCDPTAR2 | SUM2+19, REPORT+24, REPORT+26, REPORT2+13, REPORT2+30, DEPEFTS+12 |
| $$MDATE^RCDPTAR2 | COMPILE+24 |
| $$FMTE^XLFDT | SUM2+15, REPORT2+42 |
| $$UP^XLFSTR | REPORT+8, REPORT2+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.3 - [#344.3] | GET1^DIQ |
| ^RCY(344.31 - [#344.31] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY(344.3 - [#344.3] | SUM2+9, SUM2+18, DNUM2+6, COMPILE+8, COMPILE+12, COMPILE+14, COMPILE2+8, DEPEFTS+10 |
| ^RCY(344.31 - [#344.31] | COMPILE+19, COMPILE+21, COMPILE2+13, COMPILE2+15, DEPEFTS+16 |
| ^TMP("RCDPTAR1" | RUN+8!, RUN2+10!, COMPILE+5!, COMPILE+27*, COMPILE+28*, COMPILE+29*, COMPILE+30*, COMPILE+31*, COMPILE+32*, COMPILE+33* , COMPILE+34*, COMPILE+35*, COMPILE2+4!, COMPILE2+16*, COMPILE2+18*, COMPILE2+20*, COMPILE2+22*, COMPILE2+24*, COMPILE2+26*, COMPILE2+28* , COMPILE2+29*, COMPILE2+30*, REPORT+15, REPORT+18, REPORT+19, REPORT2+19, REPORT2+22, REPORT2+23, REPORT2+24 |
| Name | Line Occurrences |
|---|---|
| $$ASKDEV | SUM+23, SUM2+32 |
| $$ASKDNUM | SUM2+4 |
| $$EFT | REPORT+26, REPORT+29, REPORT2+32, REPORT2+35 |
| $$PAUSE | CHKP+14 |
| $$SELDT | SUM2+12, SUM2+25 |
| CHKP | REPORT+22, REPORT2+27 |
| COMPILE | RUN+5 |
| COMPILE2 | RUN2+7 |
| DNUM2 | DNUM2+6 |
| EFT1 | DEPEFTS+24 |
| EXMSG | SUM+21, SUM2+30 |
| HEADER | REPORT+12, REPORT2+16, CHKP+15 |
| PAUSE | REPORT+38, REPORT2+50, DEPEFTS+21 |
| REPORT | RUN+7 |
| REPORT2 | RUN2+9 |
| RUN | SUM+26 |
| RUN2 | SUM2+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | ASKDEV+4~, ASKDEV+5* |
| ARR | SUM2+2~, SUM2+12, SUM2+25, SELDT~ |
| ARR( | SUM2+14*, SELDT+16 |
| CDDT | SUM2+2~, SUM2+6*, SUM2+9*, SUM2+10, SUM2+14, SUM2+15, SUM2+18 |
| CNT | DEPEFTS+6~, DEPEFTS+8*, DEPEFTS+18*, DEPEFTS+20, DEPEFTS+21, DEPEFTS+24, DEPEFTS+34, DEPEFTS+38 |
| CTR | SUM2+2~, SUM2+6*, SUM2+11, SUM2+12, SUM2+14*, SUM2+16, SUM2+24, SUM2+25, SELDT~, SELDT+11 , SELDT+12 |
| DA | ASKDNUM+4~ |
| DATA | REPORT+4~, REPORT+19*, REPORT+24, REPORT+26, REPORT+29, REPORT+31, REPORT+32, REPORT2+5~, REPORT2+24*, REPORT2+30 , REPORT2+32, REPORT2+35, REPORT2+36, REPORT2+38, REPORT2+39, DEPEFTS+6~, DEPEFTS+18*, DEPEFTS+35* |
| DIR | SUM+2~, SUM+12!, SUM2+2~, ASKDNUM+4~, SELDT+9~, PAUSE+1~ |
| DIR("?" | SUM+6*, SUM+14*, DNUM2+3*, SELDT+12* |
| DIR("A" | SUM+5*, SUM+13*, DNUM2+2*, SELDT+11* |
| DIR("B" | SUM+5*, SUM+13* |
| DIR(0 | SUM+5*, SUM+13*, DNUM2+1*, SELDT+10*, SELDT+11*, PAUSE+2* |
| DIROUT | SUM+2~, SUM2+2~, ASKDNUM+4~, SELDT+9~, PAUSE+1~ |
| DIRUT | SUM+2~, SUM2+2~, ASKDNUM+4~, SELDT+9~, SELDT+16, PAUSE+1~ |
| DT | SUM+5, SUM+13 |
| DTOUT | SUM+2~, SUM+8, SUM+16, SUM2+2~, ASKDNUM+4~, DNUM2+5, SELDT+9~, SELDT+15, PAUSE+1~ |
| DUOUT | SUM+2~, SUM+8, SUM+16, SUM2+2~, ASKDNUM+4~, DNUM2+5, SELDT+9~, SELDT+15, PAUSE+1~ |
| EFTDATA | COMPILE+3~, COMPILE+21*, COMPILE+24, COMPILE+27, COMPILE+28, COMPILE+31, COMPILE+32, COMPILE+33, COMPILE2+3~, COMPILE2+15* , COMPILE2+19, COMPILE2+21, COMPILE2+23, COMPILE2+25, COMPILE2+27 |
| EFTIEN | COMPILE+3~, COMPILE+17*, COMPILE+18, COMPILE+19*, COMPILE+20, COMPILE+21, COMPILE+24, COMPILE+27, COMPILE+28, COMPILE+29 , COMPILE+30, COMPILE+31, COMPILE+32, COMPILE+33, COMPILE+34, COMPILE+35, COMPILE2+3~, COMPILE2+11*, COMPILE2+12, COMPILE2+13* , COMPILE2+14, COMPILE2+15, COMPILE2+16, COMPILE2+18, COMPILE2+20, COMPILE2+22, COMPILE2+24, COMPILE2+26, COMPILE2+28, COMPILE2+29 , REPORT+4~, REPORT+18*, REPORT+19, REPORT+26, REPORT+29, REPORT2+5~, REPORT2+22*, REPORT2+23*, REPORT2+24, REPORT2+32 , REPORT2+35, EFT~, EFT+3, DEPEFTS+6~, DEPEFTS+14*, DEPEFTS+15, DEPEFTS+16*, DEPEFTS+17, DEPEFTS+18, DEPEFTS+35* , DEPEFTS+36 |
| GTOT | COMPILE2+3~, COMPILE2+5*, COMPILE2+21*, COMPILE2+30, REPORT2+5~, REPORT2+22*, REPORT2+44 |
| IO | SUM+25, SUM2+33, REPORT+11, REPORT2+15 |
| IO("Q" | ASKDEV+8 |
| IOF | REPORT+34, REPORT2+46, HEADER+15 |
| IOM | REPORT+8, REPORT2+11, HEADER+33, HEADER+35, HEADER+39, HEADER+46 |
| ION | ASKDEV+11 |
| IOSL | CHKP+13 |
| IOST | REPORT+7, REPORT2+10 |
| J | DEPEFTS+6~, DEPEFTS+13* |
| LCNT | DEPEFTS+32~, DEPEFTS+33* |
| LINE | HEADER+30~, HEADER+32*, HEADER+33, HEADER+34*, HEADER+35, HEADER+38*, HEADER+39, HEADER+44*, HEADER+46 |
| LINES | REPORT+4~, REPORT+20*, REPORT+21*, REPORT+22, REPORT2+5~, REPORT2+25*, REPORT2+26*, REPORT2+27, CHKP~, CHKP+13 |
| LIST | DEPEFTS+6~ |
| LIST( | DEPEFTS+18*, DEPEFTS+35, EFT1+1 |
| LOCKDATA | COMPILE+3~, COMPILE+14*, COMPILE+30 |
| LOCKIEN | COMPILE+3~, COMPILE+10*, COMPILE+11, COMPILE+12*, COMPILE+13, COMPILE+14, COMPILE+19, COMPILE+27, COMPILE+35, DEPEFTS+28 |
| MDATE | COMPILE+3~, COMPILE+24*, COMPILE+29 |
| POP | ASKDEV+4~, ASKDEV+7 |
| QUIT | DEPEFTS+32~, DEPEFTS+33*, DEPEFTS+34 |
| RCBAL | DEPEFTS+6~ |
| RCDBAL | SUM2+3~, SUM2+17*, SUM2+20*, SUM2+21*, SUM2+22, SUM2+23, REPORT+4~, REPORT+24*, REPORT+26, REPORT2+5~ , REPORT2+13*, REPORT2+16, REPORT2+30*, REPORT2+44, REPORT2+45, HEADER~, HEADER+17*, HEADER+44, DEPEFTS+6~, DEPEFTS+8* , DEPEFTS+13*, DEPEFTS+30 |
| RCDBAL1 | SUM2+19*, SUM2+20, SUM2+21, DEPEFTS+6~, DEPEFTS+12*, DEPEFTS+13 |
| RCDBAL2 | REPORT2+5~, REPORT2+30*, REPORT2+32 |
| RCDDT | SUM2+3~, SUM2+6*, SUM2+8, SUM2+12*, SUM2+13, SUM2+24, SUM2+25*, SUM2+26, SUM2+27, SUM2+34 , RUN2~, RUN2+7, RUN2+9, COMPILE2~, COMPILE2+8, COMPILE2+17, REPORT2~, REPORT2+16, REPORT2+27, REPORT2+42 , HEADER~, HEADER+44, CHKP~, CHKP+15, DEPEFTS~, DEPEFTS+10, DEPEFTS+29 |
| RCDIEN | SUM2+3~, SUM2+17*, SUM2+18*, SUM2+19, COMPILE2+3~, COMPILE2+6*, COMPILE2+7, COMPILE2+8*, COMPILE2+9, COMPILE2+13 , COMPILE2+29, REPORT+4~, REPORT+24*, REPORT+26, REPORT2+5~, REPORT2+30*, DEPEFTS+6~, DEPEFTS+8*, DEPEFTS+9, DEPEFTS+10* , DEPEFTS+11, DEPEFTS+12, DEPEFTS+16 |
| RCDNUM | SUM2+3~, SUM2+4*, SUM2+5, SUM2+9, SUM2+16, SUM2+18, SUM2+34, RUN2+7, RUN2+9, COMPILE2~ , COMPILE2+8, COMPILE2+16, REPORT2~, REPORT2+13, REPORT2+16, REPORT2+27, REPORT2+42, HEADER~, HEADER+44, HEADER+45 , CHKP~, CHKP+15, DEPEFTS~, DEPEFTS+10 |
| RCDT | COMPILE+3~, COMPILE+6*, COMPILE+7, COMPILE+8*, COMPILE+9, COMPILE+12 |
| RCDT1 | SUM+2~, SUM+9*, SUM+13, SUM+26, SUM2+3~, RUN~, RUN+5, RUN+7, COMPILE~, COMPILE+6 , REPORT~, REPORT+12, REPORT+22, HEADER~, HEADER+23, HEADER+37, HEADER+38, CHKP~, CHKP+15 |
| RCDT2 | SUM+2~, SUM+17*, SUM+26, SUM2+3~, RUN~, RUN+5, RUN+7, COMPILE~, COMPILE+6*, COMPILE+7 , COMPILE+9, REPORT~, REPORT+12, REPORT+22, HEADER~, HEADER+38, CHKP~, CHKP+15 |
| RCDTREC | COMPILE2+3~, COMPILE2+10* |
| RCEFTCNT | DEPEFTS~, DEPEFTS+20* |
| RCEXCEL | SUM+2~, SUM+19*, SUM+20, SUM+21, SUM+26, SUM2+3~, SUM2+28*, SUM2+29, SUM2+30, SUM2+34 , RUN~, RUN+7, RUN2~, RUN2+9, REPORT~, REPORT+12, REPORT+20, REPORT+22, REPORT+26, REPORT2~ , REPORT2+16, REPORT2+25, REPORT2+27, REPORT2+32, REPORT2+41, HEADER~, HEADER+20, CHKP~, CHKP+15 |
| RCHR | REPORT+4~, REPORT+8*, REPORT+12, REPORT+22, REPORT2+5~, REPORT2+11*, REPORT2+16, REPORT2+27, HEADER~, HEADER+42 , HEADER+49, CHKP~, CHKP+15 |
| RCLOOP | SUM2+3~, SUM2+6*, SUM2+12, SUM2+25, SELDT~, SELDT+10, SELDT+14 |
| RCNOW | REPORT+4~, REPORT+8*, REPORT+12, REPORT+22, REPORT2+5~, REPORT2+11*, REPORT2+16, REPORT2+27, HEADER~, HEADER+34 , CHKP~, CHKP+15 |
| RCPG | REPORT+4~, REPORT+8*, REPORT+12, REPORT+18, REPORT+22, REPORT+23, REPORT+38, REPORT2+5~, REPORT2+11*, REPORT2+16 , REPORT2+23, REPORT2+27, REPORT2+28, REPORT2+41, REPORT2+50, HEADER~, HEADER+27*, HEADER+31*, HEADER+32, CHKP~ , CHKP+14*, CHKP+15 |
| RCSCR | REPORT+4~, REPORT+7*, REPORT+21, REPORT+22, REPORT+34, REPORT+38, REPORT2+5~, REPORT2+10*, REPORT2+26, REPORT2+27 , REPORT2+46, REPORT2+50, CHKP~, CHKP+14 |
| RCSTOP | SUM2+3~, SUM2+6*, SUM2+8, SUM2+13*, SUM2+26*, SUM2+27 |
| RDNUM | RUN2~ |
| ROW | DEPEFTS+27~, DEPEFTS+34*, DEPEFTS+35, DEPEFTS+36, DEPEFTS+38 |
| TRANS | DEPEFTS+27~ |
| U | SUM2+20, SUM2+21, SUM2+22, COMPILE+24, COMPILE+27, COMPILE+28, COMPILE+29, COMPILE+30, COMPILE+31, COMPILE+32 , COMPILE+33, COMPILE+34, COMPILE+35, COMPILE2+21, REPORT+24, REPORT+26, REPORT+29, REPORT+31, REPORT+32, REPORT2+30 , REPORT2+32, REPORT2+35, REPORT2+36, REPORT2+38, REPORT2+39, REPORT2+45, DEPEFTS+13, DEPEFTS+30, DEPEFTS+35 |
| WHICH | ASKDEV~, ASKDEV+9, ASKDEV+10 |
| X | SUM+2~, SUM2+3~, ASKDNUM+4~, DNUM2+6, DNUM2+7, DNUM2+8, SELDT+9~, PAUSE+1~, DEPEFTS+27~ |
| XX | SUM2+3~, SUM2+15*, SUM2+16, COMPILE+3~, COMPILE2+3~, COMPILE2+17*, COMPILE2+18, COMPILE2+19*, COMPILE2+20, COMPILE2+21* , COMPILE2+22, COMPILE2+23*, COMPILE2+24, COMPILE2+25*, COMPILE2+26, COMPILE2+27*, COMPILE2+28 |
| Y | SUM+2~, SUM+8, SUM+9, SUM+16, SUM+17, SUM2+3~, ASKDNUM+4~, DNUM2+5, SELDT+9~, SELDT+14 , SELDT+15, SELDT+16, PAUSE+1~, PAUSE+4, DEPEFTS+6~, DEPEFTS+24*, DEPEFTS+33*, DEPEFTS+38*, DEPEFTS+39, EFT1+1 |
| ZTDESC | ASKDEV+4~, ASKDEV+13* |
| ZTIO | ASKDEV+4~, ASKDEV+11* |
| >> ZTQUEUED | REPORT+35, REPORT2+47 |
| >> ZTREQ | REPORT+35*, REPORT2+47* |
| ZTRTN | ASKDEV+4~, ASKDEV+9*, ASKDEV+10* |
| ZTSAVE | ASKDEV+4~ |
| ZTSAVE("*" | ASKDEV+12* |
| ZTSK | ASKDEV+4~, ASKDEV+15 |