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: RCDPEFTL

Package: Accounts Receivable

Routine: RCDPEFTL


Information

RCDPEFTL ;EDE/FA - LIST LOCKED EFT REPORT ;18 July 2018 11:19:25

Source Information

Source file <RCDPEFTL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  
Accounts Receivable 3 $$ENDORPRT^RCDPEARL  INFO^RCDPEM6  ($$CUTOFF,$$PHARM,$$PROC)^RCDPEWLP  
VA FileMan 2 $$GET1^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: 1

Package Total Caller Graph
Accounts Receivable 1 RCDPE EFT OVERRIDE REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry from RCDPE EFT OVERRIDE REPORT option
REPORT(RCINPT) ; entry point from TaskMan and above
RPTCOMP(RCINPT) ; Full EFT scan to compile report
; Input:
; RCINPT("DateRange")= Report start date:Report end date
; Output:
; ^TMP("RCDPE_EFTL",$J) - compilation of report data
RPTOUT(RCINPT) ; Output the report to paper/screen or excel
; Input: RCINPT
; Output: OUTPUT
RPRT1EFT(DATA,RCRPRT) ; boolean function, Output one EFT record
; Input:
; DATA - EFT to write, See REPORT for a complete description
; RCRPRT("ExcelFrmt?"): zero - formatted Output to Screen /printer
; 1 - Output in Excel format
; RCRPRT("LineCount") - Line Count
; RCRPRT("Page") - Page Count
; Output:
; RCRPRT("LineCount") - Updated Line Count
; RCRPRT("Page") - Updated Page Count
; Returns:
; 1 if user indicates to quit, 0 otherwise
RPTHDR(RCRPRT) ; report header, line 1 is dynamic
RPTTOT ; Display report totals
PGEND() ; boolean function, end-of-page, Ask to continue
; Input: IOST - Device Type
; Returns: 1 - User wants to quit, 0 otherwise
DEVICE(EXCEL) ; boolean function to Select output device
; Input: EXCEL - 1 - Ouput in Excel format, 0 otherwise
; Output: IO,IOST arrays in symbol table
; Returns:
; 0 - No device selected, 1 otherwise
ASKXCEL() ; Ask user to export to Excel
; Input: None
; Returns: -1 - User up-arrowed or timed out
; zero - Output to selected device
; 1 - Output to Excel
GETFRST(LIMIT,END) ; scan for first EFT
; Input:
; LIMIT - Maximum days before aged UNPOSTED EFT lock the ERA worklist
; END - Today's date less LIMIT
; Output
; RET - Date of first 'lock' EFT or zero if none found
VALID(EFTDA) ; Check if EFT is a valid candidate
; Ignore zero payment amts
PAD(A,N) ; pad A with spaces to length N

External References

Name Field # of Occurrence
^%ZIS DEVICE+5
HOME^%ZIS EN+39
^%ZISC REPORT+3
^%ZTLOAD EN+42
$$GET1^DIQ EN+5, EN+8, EN+35, EN+36, EN+37, RPTCOMP+25, RPTCOMP+26, RPTCOMP+27, RPTCOMP+28, RPTCOMP+30
, RPTOUT+14, VALID+2, VALID+4, VALID+6, VALID+8, VALID+12
^DIR EN+22, RPTOUT+26, PGEND+5, ASKXCEL+10
$$ENDORPRT^RCDPEARL RPTOUT+24
INFO^RCDPEM6 EN+28
$$CUTOFF^RCDPEWLP GETFRST+9
$$PHARM^RCDPEWLP VALID+10
$$PROC^RCDPEWLP VALID+12
$$FMADD^XLFDT EN+9
$$FMDIFF^XLFDT RPTCOMP+23, GETFRST+18
$$FMTE^XLFDT RPTOUT+6, RPRT1EFT+14, RPRT1EFT+26
$$NOW^XLFDT RPTOUT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Medical Override "_$S($P(RCVAL("OverRide"),".")=DT:"",1:"not ")_"active for today's date"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Aged EFT days before Medical posting prevented = "_RCVAL("EFTPostLimit"),!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.")
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: !,"EFT^Match Status^Aged Days^ERA #^Date Received^Amount^Trace #"
  • Line Location: RPTOUT+16
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: RPRT1EFT+15
Function Call: WRITE
  • Prompt: !,$$PAD($P(DATA,U),9)_$P(DATA,U,7)
  • Line Location: RPRT1EFT+24
Function Call: WRITE
  • Prompt: !,$$PAD(" "_$P(DATA,U,4),10)_$$PAD($P(DATA,U,2),20)_$$PAD($$FMTE^XLFDT($P(DATA,U,5)),15)_$$PAD($P(DATA,U,3),10)_"$"_$FN($P(DATA,U,6),",",2),!
  • Line Location: RPRT1EFT+26
Function Call: WRITE
  • Prompt: !,A,!,RCRPRT("HeaderLine",2),!,RCRPRT("HeaderLine",3),!,RCRPRT("HeaderLine",4)
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: !!,"EFT Trace#",!," ERA Match Status EFT Received Aged Amount"
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: !,RCRPRT("HeaderBorder")
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: !,"Total Number of Unposted EFTs: "_$G(^TMP("RCDPE_EFTL",$J,"EFT count"))
  • Line Location: RPTTOT+1
Function Call: WRITE
  • Prompt: !,"Total Amount of Unposted EFTs: $"_$FN($G(^TMP("RCDPE_EFTL",$J,"Total Amt")),",",2)
  • Line Location: RPTTOT+2
Function Call: WRITE
  • Prompt: !,RCRPRT("HeaderBorder")
  • Line Location: RPTTOT+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+39
Routine Call
  • DIR
  • Line Location:
    • EN+22
    • RPTOUT+26
    • PGEND+5
    • ASKXCEL+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.31 - [#344.31] GET1^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.31 - [#344.31] RPTCOMP+16, RPTCOMP+19, GETFRST+11, GETFRST+14
^TMP("RCDPE_EFTL" EN+2!, REPORT+5!, RPTCOMP+10!, RPTCOMP+11*, RPTCOMP+33*, RPTCOMP+34*, RPTCOMP+35*, RPTOUT+19, RPTOUT+20, RPTTOT+1
, RPTTOT+2

Label References

Name Line Occurrences
$$ASKXCEL EN+26
$$DEVICE EN+29
$$GETFRST EN+13
$$PAD RPRT1EFT+24, RPRT1EFT+26
$$PGEND RPRT1EFT+19
$$RPRT1EFT RPTOUT+22
$$VALID RPTCOMP+21, GETFRST+16
REPORT EN+46
RPTCOMP REPORT+1
RPTHDR RPTOUT+17, RPRT1EFT+20
RPTOUT REPORT+2
RPTTOT RPTOUT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+5~*
A RPTOUT+3~, RPTOUT+12*, RPTOUT+13, RPTHDR+1~, RPTHDR+2*, RPTHDR+3, PAD~, PAD+1
AGED GETFRST+7~, GETFRST+18*, GETFRST+20
B RPTOUT+3~, RPTOUT+12*, RPTHDR+1~, RPTHDR+2*
DATA RPTOUT+3~, RPTOUT+20*, RPTOUT+22, RPRT1EFT~, RPRT1EFT+14, RPRT1EFT+24, RPRT1EFT+26
DIR EN+17~, RPTOUT+26~, PGEND+4~, ASKXCEL+5~
DIR("?" ASKXCEL+9*
DIR("A" EN+19*, EN+20*, EN+21*, RPTOUT+26*, PGEND+5*, ASKXCEL+7*
DIR("B" ASKXCEL+8*
DIR(0 EN+18*, RPTOUT+26*, PGEND+5*, ASKXCEL+6*
DIROUT PGEND+4~, ASKXCEL+5~
DIRUT PGEND+4~, PGEND+6, ASKXCEL+5~
DT EN+6, EN+9, RPTCOMP+23, GETFRST+18
DTOUT PGEND+4~, ASKXCEL+5~, ASKXCEL+11
DUOUT PGEND+4~, PGEND+6, ASKXCEL+5~, ASKXCEL+11
EFTDA GETFRST+7~, GETFRST+12*, GETFRST+14*, GETFRST+16, VALID~, VALID+2, VALID+4, VALID+6, VALID+12
END RPTCOMP+6~, RPTCOMP+13*, RPTCOMP+16, GETFRST~, GETFRST+11
EXCEL DEVICE~
IO("Q" EN+39, EN+44!
IOM RPTOUT+12, RPTOUT+15, RPTHDR+2
IOSL RPRT1EFT+18
IOST RPTOUT+25, RPRT1EFT+18, PGEND+3
LIMIT GETFRST~, GETFRST+20
N PAD~, PAD+1
POP DEVICE+5~, DEVICE+6
RCEFT RPTCOMP+6~
RCEFT("Amount" RPTCOMP+30*, RPTCOMP+33, RPTCOMP+35
RCEFT("Count" RPTCOMP+11*, RPTCOMP+32*, RPTCOMP+33, RPTCOMP+34
RCEFT("DaysAged" RPTCOMP+23*, RPTCOMP+24, RPTCOMP+33
RCEFT("ERARecord" RPTCOMP+28*, RPTCOMP+29*, RPTCOMP+33, VALID+6*, VALID+8, VALID+10, VALID+12
RCEFT("IEN" RPTCOMP+17*, RPTCOMP+19*, RPTCOMP+21, RPTCOMP+25, RPTCOMP+26, RPTCOMP+27, RPTCOMP+28, RPTCOMP+30
RCEFT("MatchStatus" RPTCOMP+26*, RPTCOMP+33
RCEFT("Trace#" RPTCOMP+25*, RPTCOMP+33
RCEFT("Trans#" RPTCOMP+27*, RPTCOMP+33
RCINPT EN+1~, EN+46, REPORT~, REPORT+1, REPORT+2, RPTCOMP~, RPTOUT~
RCINPT( EN+35*, EN+36*, EN+37*, RPTOUT+10, RPTOUT+12
RCINPT("1stEFT" EN+33*
RCINPT("2Excel?" EN+26*, EN+27, EN+28, EN+29, RPTOUT+7
RCINPT("AgedDays" EN+32*
RCINPT("DateRange" EN+25*, RPTCOMP+12, RPTCOMP+13
RCINPT("DeviceSelected?" EN+29*, EN+30
RCRPRT RPTOUT+3~, RPTOUT+17, RPTOUT+22, RPRT1EFT~, RPRT1EFT+20, RPTHDR~
RCRPRT("ExcelFrmt?" RPTOUT+7*, RPTOUT+16, RPTOUT+17, RPTOUT+24, RPTOUT+25, RPRT1EFT+13
RCRPRT("Exit" RPTOUT+8*, RPTOUT+19, RPTOUT+22*, RPTOUT+24
RCRPRT("HeaderBorder" RPTOUT+15*, RPTOUT+24, RPTHDR+5, RPTTOT+3
RCRPRT("HeaderLine" RPTOUT+10*, RPTOUT+13*, RPTOUT+14*, RPTHDR+3
RCRPRT("LineCount" RPTOUT+5*, RPTOUT+17*, RPRT1EFT+15*, RPRT1EFT+18, RPRT1EFT+20*, RPRT1EFT+23*
RCRPRT("ListCntr" RPTOUT+8*, RPTOUT+19*, RPTOUT+20
RCRPRT("Page" RPTOUT+5*, RPRT1EFT+20*, RPTHDR+2
RCRPRT("RunDate" RPTOUT+6*, RPTHDR+2
RCVAL EN+1~
RCVAL("1stEFTDate" EN+13*, EN+16, EN+25, EN+33
RCVAL("CutoffDate" EN+9*, EN+13, EN+25
RCVAL("EFTPostLimit" EN+8*, EN+9, EN+10, EN+13, EN+32, RPTCOMP+24
RCVAL("OverRide" EN+5*, EN+6
RECVDT RPTCOMP+6~, RPTCOMP+12*, RPTCOMP+16*, RPTCOMP+19, RPTCOMP+23, RPTCOMP+33, GETFRST+7~, GETFRST+9*, GETFRST+11*, GETFRST+14
, GETFRST+18, GETFRST+20
RET GETFRST+7~, GETFRST+9*, GETFRST+11, GETFRST+20*, GETFRST+22
STOP RPRT1EFT+12~, RPRT1EFT+17*, RPRT1EFT+19*, RPRT1EFT+22
U RPTCOMP+33, RPRT1EFT+14, RPRT1EFT+24, RPRT1EFT+26
X RPRT1EFT+14~*, ASKXCEL+5~
Y RPRT1EFT+14~*, RPRT1EFT+15, ASKXCEL+5~, ASKXCEL+12
ZTDESC EN+40~, EN+41*
ZTQUEUED REPORT+3, REPORT+4, REPORT+6!
>> ZTREQ REPORT+4*
ZTRTN EN+40~, EN+41*
ZTSAVE EN+40~
ZTSAVE("IO*" EN+42*
ZTSAVE("RC*" EN+42*
ZTSK EN+40~, EN+43
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