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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCDPRSEA

Package: Accounts Receivable

Routine: RCDPRSEA


Information

RCDPRSEA ;WISC/RFJ,PJH,hrub - extended search ;4 Feb 2019 09:24:27

Source Information

Source file <RCDPRSEA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Accounts Receivable 2 ($$ASKCHEK,$$ASKCRED,$$ASKTRACE,$$ASKTYPE)^RCDPLPL1  DATESEL^RCRJRTRA  
VA FileMan 1 ^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 RCDP EXTENDED CHECK/CC SEARCH  

Entry Points

Name Comments DBIA/ICR reference
DQ ; entry from TaskMan or from above
CHKTRANS(RCXREFDT) ; check TRANSACTION multiple on date RCXREFDT
DISPLAY(RCPAYTYP,RCITMFND) ; display the payment
; RCPAYTYP - 1:check #, 2: credit card, 3:trace #
; RCITMFND - value found
H ; header
TRACE(RC344ZRO) ; Return trace # for receipt, RC344ZRO - zero node from file #344
ASKSEA() ; ask search field
ASK4ALL() ; Ask the ePayments trace value for ALL types, returns '^' on null or timeout
ASK2CONT() ; Boolean function, ask user if they want to search again
; returns 1 if user wants a new search, else zero
ASKDUP() ; Boolean function, ask user if they wish to include trace numbers ending in "-DUPn"
; returns 1 if user wants to include duplicate trace#, else zero
CHKTRACE(TYPE,TRACE,TARGET,DUP) ; Check if Trace# is a match
; Input: TYPE - Type of search E=equals, C=CONTAINS
; TRACE - TRACE# from receipt
; TARGET - String user is searching for
; DUP - 1 - include duplicates, otherwise 0.
; Output: 1 - trace number matches the target, otherwise 0.
SBSCRPT(X)
UP(T)

External References

Name Field # of Occurrence
^%ZIS RCDPRSEA+36
^%ZISC DQ+13
^%ZTLOAD RCDPRSEA+41
^DIR RCDPRSEA+56, DQ+16, DISPLAY+8, ASKSEA+5, ASK4ALL+6, ASK2CONT+8, ASKDUP+9
$$ASKCHEK^RCDPLPL1 RCDPRSEA+13
$$ASKCRED^RCDPLPL1 RCDPRSEA+15
$$ASKTRACE^RCDPLPL1 RCDPRSEA+17
$$ASKTYPE^RCDPLPL1 RCDPRSEA+22
DATESEL^RCRJRTRA RCDPRSEA+29
$$FMTE^XLFDT RCDPRSEA+34, DQ+3
$$NOW^XLFDT DQ+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Extended AR BATCH PAYMENT file search.",!
  • Line Location: RCDPRSEA+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRSEA+29
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRSEA+36
Function Call: WRITE
  • Prompt: !!,$S($G(ZTSK):"Report queued as task #"_ZTSK,1:"Unable to queue this report.")
  • Line Location: RCDPRSEA+42
Function Call: READ
  • Variable: X
  • Timeout: 0
  • Line Location: CHKTRANS+6
Function Call: WRITE
  • Prompt: !,J
  • Line Location: DISPLAY+24
Function Call: WRITE
  • Prompt: !," "_J
  • Line Location: DISPLAY+29
Function Call: WRITE
  • Prompt: @IOF,B
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !," For the Date Range: "_RCRPRT("HdrFrom")_" to "_RCRPRT("HdrTo")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,B
  • Line Location: H+8
Function Call: WRITE
  • Prompt: !,"Receipt Open Date Trans Account Amount"
  • Line Location: H+9
Function Call: WRITE
  • Prompt: !," "_$S(RCSRCH=1:"Check #",RCSRCH=2:"Credit Card #",RCSRCH=3:"Trace #",1:"Any #")
  • Line Location: H+10
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","=")
  • Line Location: H+11
Routine Call
  • %ZIS
  • Line Location:
    • RCDPRSEA+36
Routine Call
  • DIR
  • Line Location:
    • RCDPRSEA+56
    • DQ+16
    • DISPLAY+8
    • ASKSEA+5
    • ASK4ALL+6
    • ASK2CONT+8
    • ASKDUP+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DISPLAY+21
^PRCA(430 - [#430] DISPLAY+20
^RCY(344 - [#344] DQ+9, CHKTRANS+2, CHKTRANS+3, CHKTRANS+5, CHKTRANS+7
^RCY(344.31 - [#344.31] TRACE+3
^RCY(344.4 - [#344.4] TRACE+2

Label References

Name Line Occurrences
$$ASK2CONT RCDPRSEA+49
$$ASK4ALL RCDPRSEA+19
$$ASKDUP RCDPRSEA+26
$$ASKSEA RCDPRSEA+9, RCDPRSEA+51
$$CHKTRACE CHKTRANS+17
$$SBSCRPT RCDPRSEA+11, RCDPRSEA+32, RCDPRSEA+59, RCDPRSEA+61, RCDPRSEA+62, DQ+6, H+7, ASK2CONT+5
$$TRACE CHKTRANS+16
$$UP RCDPRSEA+32, CHKTRANS+11, CHKTRANS+12, CHKTRANS+16, ASK4ALL+8
CHKTRANS DQ+9
DISPLAY CHKTRANS+13, CHKTRANS+18, CHKTRANS+24
DQ RCDPRSEA+46
H DQ+7, DISPLAY+11, DISPLAY+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RCDPRSEA+36~*
A DQ+1~, DISPLAY+15*, DISPLAY+16, H+1*, H+2
B DQ+1~, H+2*, H+3, H+5*, H+6*, H+7*, H+8
DATEEND RCDPRSEA+5~, RCDPRSEA+30, RCDPRSEA+33
DATESTRT RCDPRSEA+5~, RCDPRSEA+30, RCDPRSEA+33
DIR RCDPRSEA+53~, DQ+16~, DISPLAY+7~, ASKSEA+1~, ASK4ALL+1~, ASK2CONT+2~, ASKDUP+2~
DIR("?" ASK4ALL+5*, ASK2CONT+7*, ASKDUP+9*
DIR("A" RCDPRSEA+54*, RCDPRSEA+55*, RCDPRSEA+56*, DQ+16*, DISPLAY+8*, ASKSEA+3*, ASK4ALL+3*, ASK4ALL+4*, ASK2CONT+3*, ASK2CONT+4*
, ASK2CONT+5*, ASK2CONT+6*, ASKDUP+3*, ASKDUP+4*, ASKDUP+5*, ASKDUP+6*, ASKDUP+7*, ASKDUP+8*
DIR("B" ASKSEA+4*, ASK2CONT+7*, ASKDUP+9*
DIR(0 RCDPRSEA+54*, DQ+16*, DISPLAY+8*, ASKSEA+2*, ASK4ALL+2*, ASK2CONT+3*, ASKDUP+3*
DIRUT ASKSEA+1~
DTOUT RCDPRSEA+53~, RCDPRSEA+57, DISPLAY+9, ASKSEA+1~, ASKSEA+6, ASK4ALL+7, ASK2CONT+2~, ASK2CONT+9, ASKDUP+2~, ASKDUP+10
DUOUT RCDPRSEA+53~, RCDPRSEA+57, DISPLAY+9, ASKSEA+1~, ASKSEA+6, ASK4ALL+7, ASK2CONT+2~, ASK2CONT+9, ASKDUP+2~, ASKDUP+10
DUP CHKTRACE~
FOUND CHKTRACE+7~, CHKTRACE+10*, CHKTRACE+13*, CHKTRACE+14*
IO DQ+7
IO("Q" RCDPRSEA+37, RCDPRSEA+43!
IO(0 DQ+13
IOF H+3
IOSL DISPLAY+5, DISPLAY+13
IOST DQ+12, CHKTRANS+6, DISPLAY+5, DISPLAY+13
J DQ+1~, DISPLAY+15*, DISPLAY+16*, DISPLAY+17*, DISPLAY+22*, DISPLAY+23*, DISPLAY+24, DISPLAY+26*, DISPLAY+28*, DISPLAY+29
P TRACE+1~, TRACE+2*, TRACE+3*
>> POP RCDPRSEA+36
RC344ZRO TRACE~, TRACE+2, TRACE+3
RCACCNT DQ+1~, DISPLAY+19*, DISPLAY+20*, DISPLAY+21*, DISPLAY+22
RCACCNT("Pntr" DISPLAY+19*, DISPLAY+20, DISPLAY+21
RCBTCH DQ+1~, CHKTRANS+1*, CHKTRANS+2*, CHKTRANS+3, CHKTRANS+5, CHKTRANS+7
RCBTCH(0 CHKTRANS+3*, CHKTRANS+16, DISPLAY+15
RCDUP RCDPRSEA+5~, RCDPRSEA+24*, RCDPRSEA+25, RCDPRSEA+26*, CHKTRANS+17, CHKTRACE+10
RCITMFND DISPLAY~, DISPLAY+26
RCPAYTYP RCDPRSEA+5~, DQ+1~, DISPLAY~, DISPLAY+28
RCRPRT RCDPRSEA+5~
RCRPRT("HdrFrom" RCDPRSEA+34*, H+4
RCRPRT("HdrPage#" DQ+4*, H+1*
RCRPRT("HdrTime" DQ+3*, H+1
RCRPRT("HdrTo" RCDPRSEA+34*, H+4
RCRTRN RCDPRSEA+5~, ASK2CONT+3*, ASKDUP+3*
RCSRCH RCDPRSEA+5~, RCDPRSEA+9*, RCDPRSEA+13, RCDPRSEA+15, RCDPRSEA+17, RCDPRSEA+18, RCDPRSEA+25, RCDPRSEA+47, RCDPRSEA+48, RCDPRSEA+60*
, RCDPRSEA+61, RCDPRSEA+62, DQ+6, CHKTRANS+9, CHKTRANS+15, CHKTRANS+20, DISPLAY+28, H+5, H+6, H+7
, H+10
RCSRCH("Cntr" RCDPRSEA+46, DQ+4*, DQ+11, CHKTRANS+13*, CHKTRANS+18*, CHKTRANS+24*
RCSRCH("Exit" RCDPRSEA+45, RCDPRSEA+46*, RCDPRSEA+47*, RCDPRSEA+49*, RCDPRSEA+50, RCDPRSEA+51*, RCDPRSEA+57*, RCDPRSEA+58, DQ+4*, DQ+11
, DQ+12*, DQ+14, CHKTRANS+2, CHKTRANS+5, CHKTRANS+6*, DISPLAY+3, DISPLAY+5, DISPLAY+6*, DISPLAY+9*, DISPLAY+10
RCSRCH("FromDt" RCDPRSEA+33*, RCDPRSEA+34, DQ+9
RCSRCH("NewType" RCDPRSEA+51*, RCDPRSEA+52, RCDPRSEA+60
RCSRCH("PrevTrgt" RCDPRSEA+61, RCDPRSEA+62, DQ+6*
RCSRCH("PrevType" RCDPRSEA+48*, RCDPRSEA+50, RCDPRSEA+52, RCDPRSEA+60*, ASK2CONT+5
RCSRCH("ToDt" RCDPRSEA+33*, RCDPRSEA+34, DQ+8
RCSRCH("type" RCDPRSEA+22*, RCDPRSEA+23*, CHKTRANS+11, CHKTRANS+17, CHKTRANS+22, H+6
RCTRANS DQ+1~, CHKTRANS+4*, CHKTRANS+5*, CHKTRANS+7, DISPLAY+17
RCTRANS(0 CHKTRANS+7*, CHKTRANS+10, CHKTRANS+21, DISPLAY+19, DISPLAY+23
RCTRCNUM DQ+1~, CHKTRANS+16*, CHKTRANS+17, CHKTRANS+18
RCTRGT RCDPRSEA+5~
RCTRGT( RCDPRSEA+11*, RCDPRSEA+32*, RCDPRSEA+59*, RCDPRSEA+61*, RCDPRSEA+62*, DQ+6, H+7, ASK2CONT+5
RCTRGT("Any#" RCDPRSEA+11*, RCDPRSEA+18, RCDPRSEA+19*, RCDPRSEA+20
RCTRGT("Check#" RCDPRSEA+13*, RCDPRSEA+20*, CHKTRANS+11, CHKTRANS+12
RCTRGT("CredCard" RCDPRSEA+15*, RCDPRSEA+20*, CHKTRANS+22, CHKTRANS+23
RCTRGT("Trace#" RCDPRSEA+17*, RCDPRSEA+20*, RCDPRSEA+25, CHKTRANS+17
RCXREFDT DQ+1~, DQ+8*, DQ+9*, CHKTRANS~, CHKTRANS+2
T UP~
TARGET CHKTRACE~, CHKTRACE+8, CHKTRACE+9, CHKTRACE+13, CHKTRACE+14
TRACE CHKTRACE~, CHKTRACE+8, CHKTRACE+9, CHKTRACE+11, CHKTRACE+12
TYPE CHKTRACE~, CHKTRACE+8, CHKTRACE+9, CHKTRACE+13, CHKTRACE+14
U RCDPRSEA+11, RCDPRSEA+18, RCDPRSEA+19, RCDPRSEA+57, RCDPRSEA+59, CHKTRANS+6, CHKTRANS+10, CHKTRANS+21, DISPLAY+9, DISPLAY+15
, DISPLAY+19, DISPLAY+20, DISPLAY+21, DISPLAY+23, TRACE+2, TRACE+3, ASK4ALL+7, ASK4ALL+8, ASK2CONT+9, ASKDUP+10
X RCDPRSEA+5~, RCDPRSEA+11*, RCDPRSEA+32*, RCDPRSEA+53~, RCDPRSEA+57, RCDPRSEA+59*, RCDPRSEA+62*, DQ+1~, CHKTRANS+6*, CHKTRANS+10*
, CHKTRANS+11, CHKTRANS+12, CHKTRANS+13, CHKTRANS+21*, CHKTRANS+22, CHKTRANS+23, CHKTRANS+24, DISPLAY+7~, DISPLAY+9, ASKSEA+1~
, ASK4ALL+1~, ASK2CONT+2~, ASK2CONT+9, ASKDUP+2~, ASKDUP+10, CHKTRACE+7~, CHKTRACE+12*, CHKTRACE+13, CHKTRACE+14, SBSCRPT~
Y RCDPRSEA+5~, RCDPRSEA+53~, DQ+1~, DISPLAY+7~, ASKSEA+1~, ASKSEA+6*, ASKSEA+7, ASK4ALL+1~, ASK4ALL+7*, ASK4ALL+8
, ASK2CONT+2~, ASK2CONT+9, ASKDUP+2~, ASKDUP+10
ZTDESC RCDPRSEA+38~, RCDPRSEA+39*
ZTQUEUED RCDPRSEA+38~
ZTRTN RCDPRSEA+38~, RCDPRSEA+40*
ZTSAVE RCDPRSEA+38~
ZTSAVE("RC*" RCDPRSEA+40*
ZTSAVE("ZTREQ" RCDPRSEA+40*
ZTSK RCDPRSEA+38~, RCDPRSEA+42, DQ+12

Marked Items

Name Field # of Occurrence
$T( RCDPRSEA+40
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All