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

Package: Accounts Receivable

Routine: RCDPEDAR


Information

RCDPEDAR ;ALB/TMK - ACTIVITY REPORT ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEDAR.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Accounts Receivable 6 ($$ASKLM,$$ENDORPRT,ASK,LMRPT)^RCDPEARL  RPT2^RCDPEDA2  (HDR,SL,TOTSDAY,TOTSF)^RCDPEDA3  LMHDR^RCDPEDA4  $$ERASTA^RCDPEM3  ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 DIVISION^VAUTOMA  

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 RCDPELAR  RCDPEMAP  

Entry Points

Name Comments DBIA/ICR reference
RPT ; Daily Activity Rpt On Demand
DBTONLY() ; Allows the user to select filter to only show EFTs with debits
; PRCA*4.5*321 Added subroutine
; Input: None
; Returns: 0 - All EFTs to display
; 1 - Only EFTs with debits to be displayed
; -1 - User up-arrowed or timed out
RTYPE() ; Allows the user to select the report type (Summary/Detail)
; Input: None
; Returns: 0 - Summary Display
; 1 - Detail Display
; -1 - User up-arrowed or timed out
DTRANGE(STDATE,ENDDATE) ; Allows the user to select the date range to by used
; Input: None
; Output: STDATE = Internal Fileman Date to start at
; ENDDATE - Internal Fileman Date to end at
; Returns: 0 - User up-arrowed or timed out, 1 otherwise
EN(RCDET,RCDT1,RCDT2,RCLSTMGR,DONLY) ; Entry point for report, might be queued
; Input: RCDET - 1 - Detail Report, 0 - Summary
; RCDT1 - Internal Fileman Start date
; RCDT2 - Internal Fileman End date
; RCLSTMGR - 1 display in list manager, 0 otherwise
; Optional, defaults to 0
; DONLY - 1 only display EFTs with a debit flag of 'D'
; 0 display all EFTs
; RCPAY - A - All Payers selected
; - R - Range of Payers
; - S - Specific payers
; RCPYRSEL - Array of selected payers (Only present if A1=3 above
; VAUTD - 1 - All selected divisions OR an array of selected divisions
ENQ(INPUT) ; Clean up
; Input: INPUT - A1^A2^A3^...^A8 Where:
; A1 - 1 if Detail report, 0 if summary report
; A2 - 1 if displaying to Listman, 0 otherwise
; A3 - 0 if NOT called from Nightly Process, 1 otherwise
; A4 - Current Page Number
; A5 - Stop Flag
; A6 - Start of Date Range
; A7 - End of Date Range
; ZTQUEUED - Defined if Joh was queued
; Output: ZTREQ - "@" Only returned if ZTQUEUED is defined
RPT1(INPUT) ;EP from RCDPEM1 (Nightly Process)
; Output the report
; Input: INPUT - A1^A2^A3^...^An Where:
; A1 - 1 if called from Nightly Process, 0 otherwise
; A2 - 1 if displaying to Listman, 0 otherwise
; A4 - Current Page Number
; A5 - Stop Flag
; A6 - Start of Date Range
; A7 - End of Date Range
; ^TMP(B1,$J,B2,B3) = "" - Array of record IENs in 344.3 in date range
; and for selected payer(s) and division(s)
; ^TMP(B1,$J,B2,B3,"EFT",B4) = "" - Array of record IENS in 344.31 for above 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 - Current Page Number
; A5 - Stop Flag
CHKDIV(IEN,FLG,VAUTD) ;
; IEN - ien in file 344.31 or 344.4
; FLG - 0 if IEN contains ien in file 344.31, 1 if IEN contains ien in file 344.4
; VAUTD - array of selected divisions from DIVISION^VAUTOMA API call
; returns 1 if division associated with an entry in 344.31 is on the list in VAUTD
; returns 0 otherwise
CHKDIVX ;

External References

Name Field # of Occurrence
^%ZIS RPT+40
HOME^%ZIS RPT+53
^%ZISC ENQ+17
^%ZTLOAD RPT+50
$$S^%ZTLOAD EN+61
$$GET1^DIQ EN+53
^DIR DBTONLY+12, RTYPE+9, DTRANGE+9, DTRANGE+16
$$ASKLM^RCDPEARL RPT+27
$$ENDORPRT^RCDPEARL RPT1+48
ASK^RCDPEARL ENQ+23
LMRPT^RCDPEARL RPT+35
RPT2^RCDPEDA2 RPT1+42
HDR^RCDPEDA3 RPT1+34
SL^RCDPEDA3 RPT1+39, RPT1+40, RPT1+48
TOTSDAY^RCDPEDA3 RPT1+44
TOTSF^RCDPEDA3 RPT1+47
LMHDR^RCDPEDA4 RPT+34
$$ERASTA^RCDPEM3 CHKDIV+11
$$ISSEL^RCDPEU1 EN+45
$$ISTYPE^RCDPEU1 EN+47
$$PAYRNG^RCDPEU1 RPT+15
$$RTYPE^RCDPEU1 RPT+12
$$SELPAY^RCDPEU1 RPT+23
DIVISION^VAUTOMA RPT+4
$$FMTE^XLFDT RPT1+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.")
  • Line Location: RPT+51
Routine Call
  • %ZIS
  • Line Location:
    • RPT+40
Routine Call
  • %ZIS
  • Line Location:
    • RPT+53
Routine Call
  • DIR
  • Line Location:
    • DBTONLY+12
    • RTYPE+9
    • DTRANGE+9
    • DTRANGE+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.31 - [#344.31] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.3 - [#344.3] EN+32, EN+37
^RCY(344.31 - [#344.31] EN+41, CHKDIV+10
^TMP("RCDAILYACT" EN+21!, EN+55*, EN+57*, ENQ+13!, RPT1+30
^TMP("RCDPEU1" ENQ+15!
^TMP("RCSELPAY" ENQ+13!
^TMP($J RPT+32!, RPT+35, RPT+36!, EN+22!, ENQ+12!, ENQ+14!

Label References

Name Line Occurrences
$$CHKDIV EN+49
$$DBTONLY RPT+25
$$DTRANGE RPT+8
$$RTYPE RPT+6
CHKDIVX CHKDIV+8, CHKDIV+9, CHKDIV+12
EN RPT+33, RPT+56
ENQ EN+70
RPT1 EN+69

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RPT+2~, RPT+39*
CURPG RPT1+20~, RPT1+24*
DETL RPT1+20~, RPT1+21*, RPT1+33, RPT1+36
DFLG EN+13~, EN+52, EN+53*
DIR DBTONLY+6~, RTYPE+5~, DTRANGE+5~, DTRANGE+12!
DIR("?" DBTONLY+10*, DBTONLY+11*, DTRANGE+6*, DTRANGE+13*
DIR("A" DBTONLY+7*, RTYPE+6*, DTRANGE+8*, DTRANGE+15*
DIR("B" DBTONLY+9*, RTYPE+8*, DTRANGE+14*
DIR(0 DBTONLY+8*, RTYPE+7*, DTRANGE+7*, DTRANGE+15*
DIROUT DBTONLY+6~, RTYPE+5~, DTRANGE+5~
DIRUT DBTONLY+6~, RTYPE+5~, DTRANGE+5~
DONLY EN~, EN+30, EN+52
DT DTRANGE+7, DTRANGE+15
DTADD EN+13~, EN+27*, EN+31, EN+32*, EN+33, EN+34, EN+37, EN+55, EN+57, RPT1+20~
, RPT1+28*, RPT1+29, RPT1+30*, RPT1+31, RPT1+37, RPT1+41
DTEND RPT1+20~, RPT1+26*
DTOUT DBTONLY+6~, DBTONLY+13, RTYPE+5~, RTYPE+10, DTRANGE+5~, DTRANGE+10, DTRANGE+17
DTST RPT1+20~, RPT1+25*
DUOUT DBTONLY+6~, DBTONLY+13, RTYPE+5~, RTYPE+10, DTRANGE+5~, DTRANGE+10, DTRANGE+17
ENDDATE DTRANGE~, DTRANGE+18*
ERA CHKDIV+6~, CHKDIV+10*, CHKDIV+11
FLG CHKDIV~, CHKDIV+10
HDR1 RPT1+20~, RPT1+37*, RPT1+38*, RPT1+39
I CHKDIV+6~, CHKDIV+13*
IEN CHKDIV~, CHKDIV+9, CHKDIV+10
IEN3443 EN+13~, EN+35*, EN+36, EN+37*, EN+38, EN+41, EN+55, EN+57
IEN34431 EN+13~, EN+39*, EN+40, EN+41*, EN+42, EN+45, EN+47, EN+49, EN+53, EN+55
INPUT EN+13~, EN+19*, EN+28*, EN+29*, EN+30*, EN+31, EN+36, EN+63*, EN+66, EN+67*
, EN+68*, EN+69, EN+70, ENQ~, ENQ+18, ENQ+19, ENQ+20, RPT1~, RPT1+21, RPT1+22
, RPT1+23, RPT1+24, RPT1+25, RPT1+26, RPT1+27*, RPT1+29, RPT1+33, RPT1+34, RPT1+39, RPT1+40
, RPT1+41*, RPT1+42, RPT1+43, RPT1+44, RPT1+46, RPT1+47, RPT1+48
IO RPT+55
IO("Q" RPT+43, RPT+52!
LSTMAN RPT1+20~, RPT1+22*, RPT1+33
NAME CHKDIV+6~, CHKDIV+11*, CHKDIV+12, CHKDIV+13
NJ RPT1+20~, RPT1+23*
POP RPT+1~, RPT+41
RCDET RPT+1~, RPT+6*, RPT+7, RPT+33, RPT+34, RPT+45, RPT+56, EN~, EN+19
RCDIV RPT+1~
RCDONLY RPT+1~, RPT+25*, RPT+26, RPT+33, RPT+34, RPT+45, RPT+56
RCDT1 RPT+1~, RPT+8, RPT+33, RPT+34, RPT+45, RPT+56, DTRANGE+15, EN~, EN+27, EN+67
RCDT2 RPT+1~, RPT+8, RPT+33, RPT+34, RPT+45, RPT+56, EN~, EN+31, EN+34, EN+68
RCFLG EN+13~, EN+39*, EN+54*, EN+57
RCHDR RPT+1~, RPT+34, RPT+35
RCINC RPT+1~
RCJOB EN+13~, EN+20*
RCLSTMGR RPT+1~, RPT+27*, RPT+28, RPT+30, RPT+33, RPT+56, EN~, EN+15*, EN+18, EN+19
RCNJ RPT+1~, RPT+3*
RCPAR RPT+2~, RPT+23
RCPAR("DICA" RPT+22*
RCPAR("FILE" RPT+21*
RCPAR("SELC" RPT+19*
RCPAR("TYPE" RPT+20*
RCPAY RPT+2~, RPT+15*, RPT+16, RPT+18, RPT+19, EN+16*, EN+44
RCPYRSEL RPT+2~
RCRANGE RPT+2~
RCSTA CHKDIV+6~, CHKDIV+11*
RCSTOP RPT+2~, RPT+34
RCT EN+13~, EN+27*, EN+58*, EN+61
RCTMPND RPT+2~, RPT+31*, RPT+32, RPT+35, RPT+36
RCTYPE RPT+2~, RPT+12*, RPT+13, RPT+20, EN+46, EN+47
RES CHKDIV+6~, CHKDIV+7*, CHKDIV+8*, CHKDIV+13*, CHKDIVX+1
STDATE DTRANGE~, DTRANGE+11*
U CHKDIV+10, CHKDIV+11
VAUTD RPT+2~, RPT+5, EN+49, CHKDIV~, CHKDIV+8, CHKDIV+13
VAUTD( CHKDIV+13
X RPT+2~
XX RPT+2~, RPT+8*, RPT+9, RPT+18, RPT+23*, EN+13~, EN+18*, EN+19, EN+44, EN+45*
, EN+46, EN+47*, ENQ+11~, ENQ+18*, ENQ+21, ENQ+22*, ENQ+23
Y RPT+2~, DBTONLY+13, DBTONLY+14, RTYPE+10, RTYPE+11, DTRANGE+10, DTRANGE+11, DTRANGE+17, DTRANGE+18
Y(0 DTRANGE+14
YY ENQ+11~, ENQ+19*, ENQ+21
Z EN+13~
ZTDESC RPT+44~, RPT+46*
>> ZTQUEUED EN+61, ENQ+16, ENQ+24
ZTREQ EN+64!, ENQ+24*
ZTRTN RPT+44~, RPT+45*
ZTSAVE RPT+44~
ZTSAVE("RC*" RPT+47*
ZTSAVE("VAUTD" RPT+47*
ZTSAVE("^TMP(""RCDPEU1"",$J," RPT+48*
ZTSK RPT+44~, RPT+51, RPT+52!, EN+14
ZTSTOP EN+14~, EN+62*
ZZ ENQ+11~, ENQ+20*, ENQ+21
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