Routine: RCDPRSEA

Information

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

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)

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