Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPTAR

Package: Accounts Receivable

Routine: RCDPTAR


Information

RCDPTAR ;ALB/TJB - EFT TRANSACTION AUDIT REPORT ;1/02/15

Source Information

Source file <RCDPTAR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Accounts Receivable 4 ($$CUTOFF,CHKEFT)^RCDPEWLP  ($$DATE,$$NOW)^RCDPRU  (SUM,SUM2)^RCDPTAR1  $$FMSSTAT^RCDPUREC  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$UP^XLFSTR  
VA FileMan 3 (,IX)^DIC  ($$GET1,GETS)^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Accounts Receivable 2 RCDPE EFT TRANSACTION AUD REP  RCDPTAR1  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for this report
; Ask Summary or Detail output
ASKSUM2() ; Ask the user if they want to display the summary report by Deposit Date
; or by Deposit Number
; Input: None
; Returns: -1 - User quit or timed out
; 1 - Display Summary report by Deposit Date
; 2 - Display Summary report by Deposit Number
DET ; Entry point for detailed report
; Input: variable RCREP defined and equal to "D"
; Output: Written to device
DET1 ; Prompt for user selection criteria
DETQ ;
RUN(RCDATA) ; Compile and output the report
; Input: RCDATA - see subroutine EFTDA for delimited list of fields
; Output: none
DN(RCDATA) ; Lookup by Deposit Number
; Input: RCDATA - null on entry
; Output: RCDATA passed by refence - see subroutine EFTDA for delimited list of fields
; Note variable RCDEFLUP is needed by LOOKUP^RCDPUDEP, which is called by the .01 field
DT(RCDATA) ; Deposit Date
; Input: RCDATA - null on entry
; Output: RCDATA passed by refence - see subroutine EFTDA for delimited list of fields
DT1 ; Ask the user for the Deposit Date
RC(RCDATA) ; Lookup by Receipt Number
; Input: RCDATA - null on entry
; Output: RCDATA passed by refence - see subroutine EFTDA for delimited list of fields
TR(RCDATA) ; Lookup by Trace Number
; Input: RCDATA - null on entry
; Output: RCDATA passed by refence - see subroutine EFTDA for delimited list of fields
EFT(LOCKIEN) ; Select a single EFT Number
; Input: LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3)
; Return: LIST(Y) - Delimiter list of information as returned by suboutine EFTDATA
EFT1 ;
EFTDATA(EFTIEN) ; Get associated records for this EFT
; Input: EFTIEN - IEN for EFT [344.31]
; Returns: A1^A2^A3^A4^45
; where A1=ERAIEN - IEN for ERA (#344.4)
; A2=LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3)
; A3=EFTIEN - IEN for EFT (#344.31)
; A4=DEPIEN - IEN for AR DEPOSIT (#344.1)
; A5=BATCHIEN - IEN for AR BATCH PAYMENT (#344)
DISPLAY(EFTIEN,LOCKIEN) ; Display EFT detail during user selection process
; Input: EFTIEN - IEN for EFT (#344.31)
; LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3)
; Return: X1_" "_X2_" "_X3_" "_X4_" "_X5
; where X1=PAYER NAME
; X2=TRACE NUMBER
; X3=AMOUNT OF PAYMENT
; X4=DEPOSIT NUMBER
; X5=DEPOSIT DATE
COMPILE(RCDATA) ; Compile data for display
; Input: RCDATA - see subroutine EFTDA for delimited list of fields
; Output: ^TMP("RCDPTAR",$J)
REPORT(RCDATA) ; Print out the report
; Input: RCDATA - see subroutine EFTDA about for delimited list of fields
; Output: Write statements
HEADER(RCNOW,RCPG,RCHR,RCDATA) ; Print Header Section
; Input: RCNOW - DATE/TIME in external format
; RCPG - Current page number
; RCHR - Line of "-" to margin width
; RCDATA - See subroutine EFTDA about for delimited list of fields
; Output: Write statements
PAUSE() ; Pause at end of each page for user input
; Input: None
; Output: User response
CHKP(RCNOW,RCPG,RCHR,RCDATA,RCSCR,LINES) ; Check if we need to do a page break
; Input: RCNOW - DATE/TIME in external format
; RCPG - Current page number
; RCHR - Line of "-" to margin width
; RCDATA - See subroutine EFTDA about for delimited list of fields
; RCSCR - 1 - Output is going to the users screen, 0 - to printer
; LINES - Current line count
AGED(EFTIEN) ; Check if EFT is locked or stale
; Input
; EFTIEN: IEN of EDI THIRD PARTY EFT DETAIL (#344.31)
; Output
; "*" - Warning; "**" - Error; Null - Good

External References

Name Field # of Occurrence
^%ZIS DET1+24
HOME^%ZIS DET1+33
^%ZISC REPORT+27
^%ZTLOAD DET1+31
^DIC DN+11, RC+10
IX^DIC TR+11
$$GET1^DIQ EFT+23, EFT+26, EFTDATA+13, EFTDATA+14, EFTDATA+15, DISPLAY+12, DISPLAY+15, DISPLAY+16, DISPLAY+17, COMPILE+23
, COMPILE+25, COMPILE+43, COMPILE+48, COMPILE+52, COMPILE+55, COMPILE+57, COMPILE+62, HEADER+16, AGED+6, AGED+8
GETS^DIQ COMPILE+17, COMPILE+36
^DIR EN+8, ASKSUM2+10, DET1+11, DT1+4, DT1+45, EFT+29, PAUSE+6
$$CUTOFF^RCDPEWLP AGED+7
CHKEFT^RCDPEWLP AGED+9
$$DATE^RCDPRU DT1+27, DT1+33, DISPLAY+17, COMPILE+44, COMPILE+62, REPORT+22, HEADER+18
$$NOW^RCDPRU REPORT+8
SUM^RCDPTAR1 EN+17
SUM2^RCDPTAR1 EN+18
$$FMSSTAT^RCDPUREC COMPILE+51, COMPILE+60
$$UP^XLFSTR REPORT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DET1+32
Function Call: WRITE
  • Prompt: !
  • Line Location: DN+8
Function Call: WRITE
  • Prompt: !!,"EFT NOT FOUND - please check Deposit"
  • Line Location: DN+15
Function Call: WRITE
  • Prompt: !,"Date ",$$DATE^RCDPRU(RCDT)," does not have any valid deposits, please try again...",!
  • Line Location: DT1+27
Function Call: WRITE
  • Prompt: !!,"Deposits on ",$$DATE^RCDPRU(RCDT)
  • Line Location: DT1+33
Function Call: WRITE
  • Prompt: !," ",$P(DATA,U,3)
  • Line Location: DT1+41
Function Call: WRITE
  • Prompt: !
  • Line Location: DT1+44
Function Call: WRITE
  • Prompt: !
  • Line Location: RC+6
Function Call: WRITE
  • Prompt: !!,"EFT NOT FOUND - please check Receipt"
  • Line Location: RC+36
Function Call: WRITE
  • Prompt: !
  • Line Location: TR+6
Function Call: WRITE
  • Prompt: !!,"No EFT detail for this selection"
  • Line Location: EFT+4
Function Call: WRITE
  • Prompt: !!,"No EFT detail for this selection"
  • Line Location: EFT+12
Function Call: WRITE
  • Prompt: !,"No data found"
  • Line Location: REPORT+12
Function Call: WRITE
  • Prompt: !,$$DATE^RCDPRU(DATE,"2DZ"),?10,$P(DATA,U,1),?51,$P(DATA,U,2)
  • Line Location: REPORT+22
Function Call: WRITE
  • Prompt: !,?10,$P(DATA,U,3),?51,$P(DATA,U,4)
  • Line Location: REPORT+23
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: REPORT+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: "EFT TRANSACTION AUDIT REPORT"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?(IOM-$L(LINE)),LINE
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,"EFT#: ",$$AGED(+$P(RCDATA,U,3)),$$GET1^DIQ(344.31,$P(RCDATA,U,3)_",",.01,"E"),?19,"DEPOSIT#: ",$P($G(^RCY(344.3,+$P(RCDATA,U,2),0)),U,6),?42,"EFT TOTAL AMT: "_$P(EFTDATA,U,7)
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: !,"EFT TRACE#: ",$P(EFTDATA,U,4)
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: !,"DATE RECEIVED: ",$$DATE^RCDPRU($P(EFTDATA,U,12)),?26,"PAYER/ID: "_$P(EFTDATA,U,2)_"/"_$P(EFTDATA,U,3)
  • Line Location: HEADER+18
Function Call: WRITE
  • Prompt: !,"DATE",?10,"ACTION/DETAILS",?51,"STATUS"
  • Line Location: HEADER+20
Function Call: WRITE
  • Prompt: !,RCHR
  • Line Location: HEADER+21
Routine Call
  • %ZIS
  • Line Location:
    • DET1+24
Routine Call
  • %ZIS
  • Line Location:
    • DET1+33
Routine Call
  • DIC
  • Line Location:
    • DN+11
    • RC+10
Routine Call
  • DIC
  • Line Location:
    • TR+11
Routine Call
  • DIR
  • Line Location:
    • EN+8
    • ASKSUM2+10
    • DET1+11
    • DT1+4
    • DT1+45
    • EFT+29
    • PAUSE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344 - [#344] Classic Fileman Calls,  GET1^DIQ
^RCY(344.1 - [#344.1] Classic Fileman Calls,  GET1^DIQ
^RCY(344.3 - [#344.3] GET1^DIQ,  GETS^DIQ
^RCY(344.31 - [#344.31] Classic Fileman Calls,  GET1^DIQ
344.314 GETS^DIQ
^RCY(344.4 - [#344.4] GET1^DIQ
^RCY(344.61 - [#344.61] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344 - [#344] RC+15, EFTDATA+16, COMPILE+24
^RCY(344.1 - [#344.1] DT1+14, RC+20
^RCY(344.3 - [#344.3] DN+14, DT1+10, DT1+11, DT1+12, RC+24, HEADER+16
^RCY(344.31 - [#344.31] RC+33, EFT+9, COMPILE+32, COMPILE+34, HEADER+8
^RCY(344.4 - [#344.4] RC+30, RC+31
^TMP("RCDPTAR" RUN+10!, COMPILE+8!, COMPILE+20*, COMPILE+27*, COMPILE+44*, COMPILE+52*, COMPILE+62*, COMPILE+63*, REPORT+12, REPORT+15
, REPORT+16, REPORT+17
^VA(200 - [#200] DT1+19

Label References

Name Line Occurrences
$$AGED HEADER+16
$$ASKSUM2 EN+14
$$DISPLAY EFT+25, EFT+28
$$EFT DN+18, DT1+30, DT1+48, RC+26
$$EFTDATA RC+34, TR+13, EFT+10
$$PAUSE CHKP+9
@( DET1+17
CHKP REPORT+21
COMPILE RUN+5
DET EN+19
DET1 DET1+19
DETQ DET1+12, DET1+18, DET1+25, DET1+26
DT1 DT1+27, DT1+47
EFT1 EFT+15
HEADER REPORT+11, CHKP+10
PAUSE DN+15, RC+36, EFT+4, EFT+12, REPORT+29
REPORT RUN+8
RUN DET1+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DET1+22~, DET1+23*
BATCHIEN EFTDATA+11~, EFTDATA+12*, EFTDATA+16*, EFTDATA+17, COMPILE+6~, COMPILE+12*, COMPILE+24, COMPILE+47, COMPILE+48, COMPILE+51
, COMPILE+52, COMPILE+55*, COMPILE+56, COMPILE+57, COMPILE+60, COMPILE+62
CNT DT+4~, DT1+10*, DT1+16*, DT1+18, DT1+24, DT1+27, DT1+30, DT1+38, DT1+43, EFT+6~
, EFT+8*, EFT+10*, EFT+12, EFT+15, EFT+22, EFT+26, EFT+27, EFT+28, REPORT+4~, REPORT+16*
, REPORT+17
D RC+4~, TR+3~, TR+7*
DATA DT+4~, DT1+14*, DT1+15, DT1+18, DT1+19, DT1+20*, DT1+21, DT1+22, DT1+23, DT1+24
DT1+39*, DT1+40, DT1+41, EFT+6~, EFT+10*, EFT+23*, EFT+26*, REPORT+4~, REPORT+17*, REPORT+19
, REPORT+22, REPORT+23
DATE REPORT+4~, REPORT+15*, REPORT+16, REPORT+17, REPORT+22
DAYSLIMT AGED+5~, AGED+9
DAYSLIMT("M" AGED+8*
DAYSLIMT("P" AGED+8*
DEPDATE COMPILE+6~, COMPILE+25*, COMPILE+26, COMPILE+27, COMPILE+50, COMPILE+58
DEPIEN DT+4~, DT1+12*, DT1+13, DT1+14, EFTDATA+11~, EFTDATA+12*, EFTDATA+15*, EFTDATA+16, EFTDATA+17, COMPILE+6~
, COMPILE+12*, COMPILE+25
DIC DN+5~, DN+9*, RC+4~, RC+7*, TR+3~, TR+7*
DIC("A" DN+9*, RC+7*, TR+7*
DIC("S" RC+9*
DIC("W" DN+9*, RC+8*, TR+10*
DIC(0 DN+9*, RC+7*, TR+7*
DIR EN+3~, ASKSUM2+6~, DET1+1!, DT+4~, DT1+1!, DT1+34!, EFT+18~, PAUSE+4~
DIR("A" EN+6*, ASKSUM2+8*, DET1+10*, DT1+3*, DT1+36*, EFT+20*
DIR("B" EN+7*, ASKSUM2+9*, DT1+2*
DIR("L" DET1+4*, DET1+5*, DET1+6*, DET1+7*, DET1+8*, DET1+9*, DT1+37*, DT1+40*, DT1+43*!, EFT+21*
, EFT+25*, EFT+28*
DIR("PRE" DET1+3*
DIR(0 EN+5*, ASKSUM2+7*, DET1+2*, DT1+2*, DT1+35*, DT1+39*, DT1+42*, EFT+19*, EFT+24*, EFT+27*
, PAUSE+5*
DIROUT EN+3~, ASKSUM2+6~, DT+4~, EFT+18~, PAUSE+4~
DIRUT EN+3~, ASKSUM2+6~, DT+4~, EFT+18~, PAUSE+4~
DT DT1+2
DTOUT EN+3~, EN+9, ASKSUM2+6~, ASKSUM2+11, DET1+12, DN+5~, DN+12, DT+4~, DT1+5, DT1+46
, RC+4~, RC+11, TR+3~, TR+12, EFT+18~, EFT+30, PAUSE+4~
DUOUT EN+3~, EN+9, ASKSUM2+6~, ASKSUM2+11, DET1+12, DN+5~, DN+12, DT+4~, DT1+5, DT1+46
, RC+4~, RC+11, TR+3~, TR+12, EFT+18~, EFT+30, PAUSE+4~
EFTDATA HEADER+7~, HEADER+8*, HEADER+16, HEADER+17, HEADER+18
EFTIEN RC+33*, RC+34, EFT+6~, EFT+8*, EFT+9*, EFT+10, EFT+23*, EFT+25, EFT+26*, EFT+28
, EFTDATA~, EFTDATA+9, EFTDATA+13, EFTDATA+14, EFTDATA+17, DISPLAY~, DISPLAY+10*, DISPLAY+12, DISPLAY+15, DISPLAY+16
, COMPILE+6~, COMPILE+11*, COMPILE+23, COMPILE+30, COMPILE+32, COMPILE+34, COMPILE+35, COMPILE+43, AGED~, AGED+6
, AGED+9
ERAIEN RC+30*, RC+31*, RC+32, RC+33, EFTDATA+11~, EFTDATA+12*, EFTDATA+13*, EFTDATA+17, COMPILE+6~, COMPILE+11*
, COMPILE+55
FILEDATE COMPILE+6~, COMPILE+18*, COMPILE+19, COMPILE+20
FMSDOCNO COMPILE+6~, COMPILE+51*, COMPILE+52, COMPILE+60*, COMPILE+63
IENS COMPILE+6~, COMPILE+35*, COMPILE+36, COMPILE+37, COMPILE+39, COMPILE+44
IO DET1+34, REPORT+10
IO("Q" DET1+26
IOF REPORT+25, HEADER+10
IOM REPORT+8, HEADER+14
ION DET1+28
IOSL CHKP+8
IOST REPORT+7
ITEM DT+4~, DT1+34!
ITEM( DT1+40*, DT1+48
LASTIEN COMPILE+6~, COMPILE+32*, COMPILE+43
LINE DT+4~, DT1+18*, DT1+19*, DT1+21*, DT1+22*, DT1+23*, DT1+24, DT1+38*, DT1+39, DT1+40
, COMPILE+6~, COMPILE+41*, COMPILE+43*, COMPILE+44, HEADER+7~, HEADER+13*, HEADER+14
LINES REPORT+4~, REPORT+18*, REPORT+19*, REPORT+20*, REPORT+21, CHKP~, CHKP+8
LIST DT+4~, DT1+9!, EFT+6~
LIST( DT1+24*, DT1+30, DT1+39, EFT+10*, EFT+23, EFT+26, EFT1+1
LOCKIEN DN+5~, DN+14*, DN+15, DN+18, EFT~, EFT+4, EFT+9, EFT+23*, EFT+25, EFT+26*
, EFT+28, EFTDATA+11~, EFTDATA+14*, EFTDATA+15, EFTDATA+17, DISPLAY~, DISPLAY+11*, DISPLAY+16, DISPLAY+17, COMPILE+6~
, COMPILE+11*, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+20, COMPILE+24, COMPILE+27
MATCHDATE COMPILE+7~, COMPILE+37*, COMPILE+38, COMPILE+44
MATCHIEN COMPILE+7~, COMPILE+34*, COMPILE+35, COMPILE+43
POP DET1+22~, DET1+25
PROCDATE COMPILE+7~, COMPILE+48*, COMPILE+49, COMPILE+50*, COMPILE+52, COMPILE+57*, COMPILE+58*, COMPILE+59, COMPILE+62, COMPILE+63
RCDATA DET+4~, DET1+16*, DET1+18, DET1+19, DET1+36, RUN~, RUN+5, RUN+8, DN~, DN+12*
, DN+18*, DT~, DT1+5*, DT1+30*, DT1+46*, DT1+48*, RC~, RC+11*, RC+14*, RC+26*
, RC+34*, RC+36, TR~, TR+12*, TR+13*, COMPILE~, COMPILE+4, COMPILE+11, COMPILE+12, COMPILE+15!
, REPORT~, REPORT+11, REPORT+12, REPORT+21, HEADER~, HEADER+8, HEADER+16, CHKP~, CHKP+10
RCDATA( COMPILE+18, COMPILE+20, COMPILE+24, COMPILE+27, COMPILE+37, COMPILE+39, COMPILE+44
RCDEFLUP DN+5~, DN+10*
RCDET DET+4~, DET1+13*, DET1+17
RCDT DT+4~, DT1+6*, DT1+10, DT1+11, DT1+27, DT1+33
RCDTN RC+4~, RC+20*, RC+21, RC+24
RCED RC+4~, RC+24*, RC+25, RC+26
RCHR REPORT+4~, REPORT+8*, REPORT+11, REPORT+21, HEADER~, HEADER+21, CHKP~, CHKP+10
RCI DT+4~, DT1+10*, DT1+11
RCIEN DT+4~, DT1+11*, DT1+12, DT1+24, RC+4~, RC+15*, RC+18, RC+20, RC+29
RCNOW REPORT+4~, REPORT+8*, REPORT+11, REPORT+21, HEADER~, HEADER+13, CHKP~, CHKP+10
RCPG REPORT+4~, REPORT+8*, REPORT+11, REPORT+15, REPORT+16, REPORT+21, REPORT+29, HEADER~, HEADER+11*, HEADER+13
, CHKP~, CHKP+9*, CHKP+10
RCREP EN+3~, EN+10*, EN+14, EN+17, EN+18, EN+19
RCREP2 EN+3~, EN+13*, EN+14*, EN+15, EN+17, EN+18
RCSCR REPORT+4~, REPORT+7*, REPORT+20, REPORT+21, REPORT+25, REPORT+29, CHKP~, CHKP+9
RECVDT AGED+5~, AGED+6*, AGED+7, AGED+9
ROW EFT+18~, EFT+22*, EFT+23, EFT+24, EFT+25
STATUS COMPILE+7~, COMPILE+39*, COMPILE+40*, COMPILE+41, COMPILE+43
SUFX DISPLAY+9~, DISPLAY+12*, DISPLAY+13*, DISPLAY+14
TRANS EFT+18~, EFT+23*, EFT+24, EFT+25, EFT+26*, EFT+27, EFT+28, COMPILE+7~, COMPILE+23*, COMPILE+24
TRARRY AGED+5~, AGED+9
TRARRY("ERROR" AGED+10
TRARRY("WARNING" AGED+11
U DT1+12, DT1+18, DT1+24, DT1+39, DT1+40, DT1+41, RC+15, RC+20, EFT+23, EFT+26
, EFTDATA+17, COMPILE+11, COMPILE+12, COMPILE+52, COMPILE+63, REPORT+19, REPORT+22, REPORT+23, HEADER+8, HEADER+16
, HEADER+17, HEADER+18
X EN+3~, ASKSUM2+6~, DT+4~, RC+4~, TR+3~, EFT+18~, DISPLAY+9~, DISPLAY+14*, DISPLAY+15*, DISPLAY+16*
, DISPLAY+17*, DISPLAY+18, PAUSE+4~
Y EN+3~, EN+9, EN+10, ASKSUM2+6~, ASKSUM2+12, DET1+12, DET1+13, DN+5~, DN+12, DN+14
, DT+4~, DT1+5, DT1+6, DT1+47, DT1+48, RC+4~, RC+11, RC+15, RC+30, RC+31
, TR+3~, TR+12, TR+13, EFT+6~, EFT+15*, EFT+30, EFT1+1, PAUSE+4~, PAUSE+7
ZTDESC DET1+22~, DET1+30*
ZTIO DET1+22~, DET1+28*
>> ZTQUEUED REPORT+26
>> ZTREQ REPORT+26*
ZTRTN DET1+22~, DET1+27*
ZTSAVE DET1+22~
ZTSAVE("*" DET1+29*
ZTSK DET1+22~, DET1+32
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All