RCDPEDA2 ;AITC/DW - ACTIVITY REPORT ;Feb 17, 2017@10:37:00
Source file <RCDPEDA2.m>
| Package | Total | Call Graph |
|---|---|---|
| Accounts Receivable | 3 | (HDR,SL)^RCDPEDA3 (EFTERRS,ERRMSGS,GETTR)^RCDPEDA4 $$MATCHDT^RCDPEWL7 |
| VA FileMan | 2 | $$EXTERNAL^DILFD $$GET1^DIQ |
| Generic Code Sheet | 1 | $$STATUS^GECSSGET |
| Kernel | 1 | $$FMTE^XLFDT |
| List Manager | 1 | $$SETSTR^VALM1 |
| 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 |
|---|---|---|
| RPT2(INPUT) | ;EP from RCDPEDAR
; Loop through EDI LOCKBOX DEPOSIT entries ; Input: INPUT - A1^A2^A3^...^An Where: ; A1 - 1 - Called by nightly job, 0 otherwise ; A2 - 1 - Display to list manager, 0 otherwise ; A3 - 1 - Detail report, 0 - Summary report ; A4 - Current Page Number ; A5 - Stop Flag ; A6 - Start of Date Range ; A7 - End of Date Range ; A8 - Current Line Number ; A9 - Internal Date being processed ; A10- 1 - Only Display EFTs with a debit flag of 'D' ; 0 - Display all EFTs ; ^TMP(B1,$J,B2,B3) = "" ; ^TMP(B1,$J,B2,B3,"EFT",B4) = "" Where: ; B1 - "RCDAILYACT" ; B2 - Internal Date from DATE/TIME ADDED ; (344.3, .13) ; B3 - Internal IEN for 344.3 ; B4 - Internal IEN for file 344.31 ; Output: INPUT - A1^A2^A3^...^An - The following pieces ; may be updated ; A4 - Updated Page Number ; A5 - Stop Flag ; A6 - Updated Line number ; ^TMP($J,"TOTALS","DEBIT") - Current Total # of debits for date range ; ^TMP($J,"TOTALS","DEBIT","D") - Total # of debits for Internal date (C1) ; ^TMP($J,"TOTALS","DEBITA") - Current Total Debit Amount for date range ; ^TMP($J,"TOTALS","DEBITA","D") - Total Debit Amount for Internal date (C1) ; ^TMP($J,"TOTALS","DEP",C1) - Total # of deposits by Internal date (C1) ; ^TMP($J,"TOTALS","DEPA",C1) - Total Deposit Amount by Internal date (C1) ; ^TMP($J,"TOTALS","EFT","D") - Total Deposit Amount by EFTs for date ; ^TMP($J,"TOTALS","FMS") - FMS Document Status or "NO FMS DOC" ; ^TMP($J,"TOTALS","FMS","D",-1) - Total Deposit Amount by FMS Document ; ^TMP($J,"TOTALS","FMS","D",0) - Total Amount for Error/Rejected documents ; ^TMP($J,"TOTALS","FMS","D",1") - Total Amount for 'A','M',"F' or 'T' docs ; ^TMP($J,"TOTALS","FMS","D",2") - Total Amount for queued docs ; ^TMP($J,"TOTALS","FMSTOT") - Updated Total Deposit Amount for date range ; ^TMP($J,"TOTALS","MATCH","D") - Current Total matched EFTs for date |
|
| ONEDEP(INPUT,IEN3443,TOTDEP,DLNCT) | ; Gather and display lines for one Deposit
; PRCA*4.5*321 new method to first gather all the lines before displaying them ; Input: INPUT - See RPT2 for details ; ^TMP(B1,$J,B2,B3) - See RPT2 for details ; IEN3443 - Internal IEN for file 344.3 ; TOTDEP - Total Deposit Amount (344.3, .08) ; DLNCT - Current # of deposit lines displayed ; ^TMP($J,"DEPERRS") - Current Line Count ; Note: Only passed if not in detail mode ; ^TMP($J,"DEPERRS,X) - Error line(s) ; Output: INPUT - See RPT2 for details ; DLNCT - Updated # of deposit lines displayed ; ^TMP(B1,$J,B2,B3,"EFT",B4) - See RPT2 for details ; ^TMP($J,"TOTALS","DEP",C1) - See RPT2 for details ; ^TMP($J,"DEPERRS") - Updated Line Count ; Note: Only passed if not in detail mode |
|
| NEWDHDR(INPUT,DTADD) | ; display a new deposit header for the specified date
; Input: INPUT - See RPT2 for details ; DTADD - Internal Date deposit are being displayed for |
|
| DETLN(INPUT,IEN3443,TOTDEP) | ; Display detail line
; Input: INPUT - See RPT2 for details ; IEN3443 - Internal IEN for file 344.3 ; TOTDEP - Total Deposit Amount (344.3, .08) ; ^TMP($J,"TOTALS","FMS") - FMS Document # or "NO FMS DOC" ; Output: INPUT - A1^A2^A3^...^An - The following pieces may be updated ; A5 - Updated Page Number ; A6 - Stop Flag ; A8 - Updated Line Counter |
|
| PROCEFT(INPUT,IEN3443) | ||
| EFTDTL(INPUT,IEN3443,IEN34431,RCFMS1,EFTCTR) | ||
| DUP(INPUT,IEN34431,EFTCTR) | ; Check to see if the EFT was a duplicate
; Input: IEN34431 - Internal IEN for file 344.31 ; INPUT - See RPT2 for details ; EFTCTR - Used to store lines for EFT ; ^TMP($J,ONEDEP,EFTCTE) - Current # of lines for EFT ; ^TMP($J,ONEDEP,EFTCTR,xx)- Current Deposit Lines ; Output: ^TMP($J,ONEDEP,EFTCTR) - Updated # of lines for EFT ; ^TMP($J,ONEDEP,EFTCTR,xx)- Updated EFT Lines |
| Name | Field # of Occurrence |
|---|---|
| $$EXTERNAL^DILFD | EFTDTL+27, DUP+14 |
| $$GET1^DIQ | RPT2+54, RPT2+58, RPT2+61, RPT2+68, DETLN+16, PROCEFT+37, PROCEFT+39, PROCEFT+46, PROCEFT+47, PROCEFT+48 , PROCEFT+56, EFTDTL+12, EFTDTL+14, EFTDTL+16, EFTDTL+17, EFTDTL+22, EFTDTL+23, EFTDTL+30, EFTDTL+36, EFTDTL+38 , EFTDTL+51, EFTDTL+53, DUP+12, DUP+13 |
| $$STATUS^GECSSGET | RPT2+69, PROCEFT+49 |
| HDR^RCDPEDA3 | NEWDHDR+4 |
| SL^RCDPEDA3 | ONEDEP+45, ONEDEP+62, ONEDEP+77, ONEDEP+84, NEWDHDR+8, NEWDHDR+9 |
| EFTERRS^RCDPEDA4 | EFTDTL+59 |
| ERRMSGS^RCDPEDA4 | ONEDEP+24 |
| GETTR^RCDPEDA4 | EFTDTL+49 |
| $$MATCHDT^RCDPEWL7 | EFTDTL+25 |
| $$SETSTR^VALM1 | DETLN+21, DETLN+25, DETLN+27, DETLN+28, DETLN+30, EFTDTL+13, EFTDTL+15, EFTDTL+19, EFTDTL+27, EFTDTL+31 , EFTDTL+33, EFTDTL+43, EFTDTL+54, EFTDTL+55 |
| $$FMTE^XLFDT | NEWDHDR+6, DETLN+25, EFTDTL+15, DUP+14 |
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | GET1^DIQ |
| ^RCY(344.3 - [#344.3] | GET1^DIQ |
| ^RCY(344.31 - [#344.31] | EXTERNAL^DILFD, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY(344 - [#344] | RPT2+55 |
| ^RCY(344.3 - [#344.3] | DETLN+14, DETLN+17 |
| ^RCY(344.31 - [#344.31] | DUP+11 |
| ^TMP("RCDAILYACT" | RPT2+52, PROCEFT+32 |
| ^TMP($J | RPT2+44!, RPT2+45!, RPT2+46!, RPT2+47!, RPT2+48!, RPT2+49!, RPT2+56, RPT2+57*, RPT2+59, RPT2+60* , RPT2+62*, RPT2+64, RPT2+65*, RPT2+66*, RPT2+71, RPT2+72*, RPT2+73*, RPT2+75*, RPT2+78, RPT2+79* , ONEDEP+19!, ONEDEP+23*, ONEDEP+30, ONEDEP+31, ONEDEP+32, ONEDEP+44, ONEDEP+49, ONEDEP+59, ONEDEP+61, ONEDEP+67 , ONEDEP+72, ONEDEP+76, ONEDEP+81, ONEDEP+83, DETLN+29, DETLN+31*, PROCEFT+26*, PROCEFT+34, PROCEFT+35*, PROCEFT+41 , PROCEFT+42*, PROCEFT+43, PROCEFT+44*, PROCEFT+51, PROCEFT+52*, PROCEFT+58, PROCEFT+59*, PROCEFT+63, PROCEFT+64*, PROCEFT+65* , EFTDTL+28*, EFTDTL+32, EFTDTL+34*, EFTDTL+44*, EFTDTL+45*, EFTDTL+56, EFTDTL+57*, EFTDTL+58*, DUP+15, DUP+16* , DUP+17*, DUP+19*, DUP+20* |
| Name | Line Occurrences |
|---|---|
| DETLN | ONEDEP+22 |
| DUP | EFTDTL+60 |
| EFTDTL | PROCEFT+62 |
| NEWDHDR | ONEDEP+40, ONEDEP+52, ONEDEP+74 |
| ONEDEP | RPT2+81 |
| PROCEFT | ONEDEP+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CRDOC | RPT2+40~, RPT2+61*, RPT2+62, RPT2+63, RPT2+67, RPT2+69 |
| CURLNS | ONEDEP+16~ |
| DEPDT | DETLN+10~, DETLN+16*, DETLN+17, DETLN+23 |
| DEPLNS | ONEDEP+16~, ONEDEP+33*, ONEDEP+38 |
| DEPNUM | DETLN+10~, DETLN+16*, DETLN+17, DETLN+19 |
| DETL | RPT2+40~, RPT2+41*, ONEDEP+16~, ONEDEP+17*, ONEDEP+19, ONEDEP+21, ONEDEP+26, DETLN+10~, DETLN+12*, PROCEFT+24~ , PROCEFT+29*, PROCEFT+60 |
| DFLG | PROCEFT+24~, PROCEFT+38*, PROCEFT+40 |
| DLNCT | RPT2+40~, RPT2+50*, RPT2+81, ONEDEP~, ONEDEP+38, ONEDEP+39*, ONEDEP+43*, ONEDEP+50, ONEDEP+51*, ONEDEP+54* , ONEDEP+73, ONEDEP+78*, ONEDEP+85* |
| DTADD | RPT2+40~, RPT2+41*, RPT2+52, RPT2+56, RPT2+57, RPT2+59, RPT2+60, ONEDEP+16~, ONEDEP+18*, ONEDEP+40 , ONEDEP+52, ONEDEP+74, NEWDHDR~, NEWDHDR+6, DETLN+10~, PROCEFT+24~, PROCEFT+27*, PROCEFT+32 |
| EFTCTR | ONEDEP+16~, ONEDEP+65*, ONEDEP+66, ONEDEP+67*, ONEDEP+68, ONEDEP+72, ONEDEP+81, ONEDEP+83, PROCEFT+24~, PROCEFT+26* , PROCEFT+61*, PROCEFT+62, PROCEFT+63, PROCEFT+64, PROCEFT+65, EFTDTL~, EFTDTL+28, EFTDTL+34, EFTDTL+44, EFTDTL+45 , EFTDTL+56, EFTDTL+57, EFTDTL+58, EFTDTL+59, EFTDTL+60, DUP~, DUP+15, DUP+16, DUP+17, DUP+19 , DUP+20 |
| EFTLN | ONEDEP+16~, ONEDEP+79*, ONEDEP+80, ONEDEP+81*, ONEDEP+82, ONEDEP+83, EFTDTL+11~, EFTDTL+56*, EFTDTL+57, EFTDTL+58 , DUP+10~, DUP+15*, DUP+16, DUP+17, DUP+18*, DUP+19, DUP+20 |
| EFTLNS | ONEDEP+16~, ONEDEP+72*, ONEDEP+73 |
| IEN344 | RPT2+40~, RPT2+55*, RPT2+61, RPT2+68 |
| IEN3443 | RPT2+40~, RPT2+50*, RPT2+51, RPT2+52*, RPT2+53, RPT2+54, RPT2+58, RPT2+62, RPT2+81, ONEDEP~ , ONEDEP+22, ONEDEP+24, ONEDEP+25, DETLN~, DETLN+14, DETLN+16, PROCEFT~, PROCEFT+32, PROCEFT+62, EFTDTL~ , EFTDTL+32 |
| IEN34431 | RPT2+40~, PROCEFT+24~, PROCEFT+30*, PROCEFT+31, PROCEFT+32*, PROCEFT+33, PROCEFT+37, PROCEFT+39, PROCEFT+46, PROCEFT+55 , PROCEFT+56, PROCEFT+62, EFTDTL~, EFTDTL+12, EFTDTL+14, EFTDTL+16, EFTDTL+17, EFTDTL+22, EFTDTL+23, EFTDTL+25 , EFTDTL+30, EFTDTL+36, EFTDTL+38, EFTDTL+49, EFTDTL+51, EFTDTL+55, EFTDTL+59, EFTDTL+60, DUP~, DUP+11 , DUP+12, DUP+13 |
| INPUT | RPT2~, RPT2+41, RPT2+51, RPT2+81, ONEDEP~, ONEDEP+17, ONEDEP+18, ONEDEP+20, ONEDEP+22, ONEDEP+24 , ONEDEP+25, ONEDEP+38, ONEDEP+40, ONEDEP+41, ONEDEP+45, ONEDEP+50, ONEDEP+52, ONEDEP+53, ONEDEP+62, ONEDEP+66 , ONEDEP+73, ONEDEP+74, ONEDEP+75, ONEDEP+77, ONEDEP+84, NEWDHDR~, NEWDHDR+4, NEWDHDR+5, NEWDHDR+8, NEWDHDR+9 , DETLN~, DETLN+11, DETLN+12, PROCEFT~, PROCEFT+27, PROCEFT+29, PROCEFT+31, PROCEFT+62, EFTDTL~, EFTDTL+49 , EFTDTL+59, EFTDTL+60, DUP~ |
| IOSL | ONEDEP+38, ONEDEP+50, ONEDEP+73 |
| LSTMAN | ONEDEP+16~, ONEDEP+20*, ONEDEP+38, ONEDEP+50, ONEDEP+73, DETLN+10~, DETLN+11* |
| MDT | EFTDTL+11~, EFTDTL+24*, EFTDTL+25*, EFTDTL+27 |
| MULT | DETLN+10~, DETLN+14*, DETLN+18*, DETLN+25 |
| NJ | DETLN+10~, DETLN+11* |
| PAMT | PROCEFT+24~, PROCEFT+39*, PROCEFT+44, PROCEFT+52 |
| PAY | EFTDTL+11~, EFTDTL+39*, EFTDTL+40, EFTDTL+41, EFTDTL+42*, EFTDTL+43 |
| PAYER | EFTDTL+11~, EFTDTL+36*, EFTDTL+37*, EFTDTL+39 |
| PAYID | EFTDTL+11~, EFTDTL+38*, EFTDTL+39 |
| Q | RPT2+40~, RPT2+76*, RPT2+77*, RPT2+78, RPT2+79 |
| RCDEBIT | EFTDTL+11~, EFTDTL+17*, EFTDTL+18 |
| RCFMS1 | PROCEFT+24~, PROCEFT+28*, PROCEFT+53*, PROCEFT+62, EFTDTL~ |
| RCFMS1( | PROCEFT+55*, EFTDTL+55 |
| TOTDEP | RPT2+40~, RPT2+58*, RPT2+60, RPT2+65, RPT2+72, RPT2+79, RPT2+81, ONEDEP~, ONEDEP+22, DETLN~ , DETLN+30 |
| TRDOC | PROCEFT+24~, PROCEFT+47*, PROCEFT+49 |
| X | RPT2+40~, DETLN+10~, DETLN+21*, DETLN+25*, DETLN+27*, DETLN+28*, DETLN+30*, DETLN+31, PROCEFT+24~, PROCEFT+48* , PROCEFT+49*, PROCEFT+50, PROCEFT+53, PROCEFT+54, EFTDTL+11~, EFTDTL+13*, EFTDTL+15*, EFTDTL+19*, EFTDTL+27*, EFTDTL+28 , EFTDTL+31*, EFTDTL+33*, EFTDTL+34, EFTDTL+43*, EFTDTL+44, EFTDTL+50*, EFTDTL+54*, EFTDTL+55*, EFTDTL+58, DUP+14* , DUP+17 |
| XX | RPT2+40~, RPT2+54*, RPT2+55, RPT2+56*, RPT2+57, RPT2+59*, RPT2+60, RPT2+71*, RPT2+72, RPT2+74* , RPT2+75, RPT2+78*, RPT2+79, ONEDEP+16~, ONEDEP+31*, ONEDEP+32, ONEDEP+44*, ONEDEP+45, ONEDEP+49*, ONEDEP+50 , ONEDEP+54, ONEDEP+57*, ONEDEP+58, ONEDEP+59*, ONEDEP+60, ONEDEP+61, ONEDEP+76*, ONEDEP+77, NEWDHDR+3~, NEWDHDR+6* , NEWDHDR+7*, NEWDHDR+8, DETLN+10~, DETLN+17*, DETLN+18, DETLN+19*, DETLN+21, DETLN+29*, DETLN+30, PROCEFT+24~ , PROCEFT+34*, PROCEFT+35, PROCEFT+41*, PROCEFT+42, PROCEFT+43*, PROCEFT+44, PROCEFT+46*, PROCEFT+47, PROCEFT+48, PROCEFT+51* , PROCEFT+52, PROCEFT+54*, PROCEFT+55, PROCEFT+56*, PROCEFT+57, PROCEFT+58*, PROCEFT+59, EFTDTL+11~, EFTDTL+12*, EFTDTL+13 , EFTDTL+14*, EFTDTL+15, EFTDTL+16*, EFTDTL+18*, EFTDTL+19, EFTDTL+22*, EFTDTL+25, EFTDTL+27, EFTDTL+30*, EFTDTL+31 , EFTDTL+32*, EFTDTL+33, EFTDTL+41*, EFTDTL+42*, EFTDTL+51*, EFTDTL+52, EFTDTL+53, DUP+10~, DUP+12*, DUP+14 |
| YY | RPT2+40~, RPT2+64*, RPT2+65, RPT2+68*, RPT2+69*, RPT2+70, RPT2+74, RPT2+76, ONEDEP+16~, ONEDEP+61* , ONEDEP+62, DETLN+10~, DETLN+23*, DETLN+25, PROCEFT+24~, PROCEFT+37*, PROCEFT+38, PROCEFT+63*, PROCEFT+64, PROCEFT+65 , EFTDTL+11~, EFTDTL+23*, EFTDTL+27, EFTDTL+41*, EFTDTL+42, EFTDTL+53*, EFTDTL+54, DUP+10~, DUP+13*, DUP+14 |
| ZZ | ONEDEP+16~, ONEDEP+29*, ONEDEP+30*, ONEDEP+32*, ONEDEP+33, ONEDEP+83*, ONEDEP+84, EFTDTL+11~, EFTDTL+41* |
