Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPLPS2

Package: Accounts Receivable

Routine: RCDPLPS2


Information

RCDPLPS2 ;ALB/SAB - link payment tracking report ;5 Feb 2015

Source Information

Source file <RCDPLPS2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DTRNG() ;
DATES(RCBDATE,RCEDATE) ;
USER() ;
ARCLERK() ;
RCPT() ; Prompt user for single receipt number for which to display entries
REPORT(RCBEGDT,RCENDDT,RCUSER,RCPT,RCEXCEL,RCENDFLG) ; report to show link payment audit log in FMS
DQ ;
EXTRACT(RCENTRY,RCCT) ; Extract and store data for a single suspense audit file entry
; Input: RCENTRY = IEN of SUSPENSE AUDIT FILE entry (#344.71)
; Output: ^TMP("RCDPLPS2",$J) containing report data
H ; header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Task number "_ZTSK_" has been queued."
  • Line Location: REPORT+13
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: $P(RCDATA,U,3)_U_$P(RCDATA,U,4)_U_$P(RCDATA,U)_U_$P(RCDATA,"^",5)_U_$P(RCDATA,U,6)_U
  • Line Location: DQ+40
Function Call: WRITE
  • Prompt: $P(RCDATA,U,2)_U_$P(RCDATA,U,7)_U_$P(RCDATA,U,8),!
  • Line Location: DQ+41
Function Call: WRITE
  • Prompt: "^^^^^^^^"_$P(RCDATA,U)_U_$P(RCDATA,U,2)_U_$P(RCDATA,U,3),!
  • Line Location: DQ+47
Function Call: WRITE
  • Prompt: $P(RCDATA,U,3),?15,$P(RCDATA,U,4),?22,$P(RCDATA,U),?32,$J($P(RCDATA,"^",5),10,2)
  • Line Location: DQ+51
Function Call: WRITE
  • Prompt: $P(RCDATA,U,3),?22,$P(RCDATA,U),?32,$J(RCMFST,10,2)
  • Line Location: DQ+52
Function Call: WRITE
  • Prompt: ?43,$P(RCDATA,U,6),?51,$P(RCDATA,U,2),?56,$E($P(RCDATA,U,7),1,11)
  • Line Location: DQ+54
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+57
Function Call: WRITE
  • Prompt: ?18,$P(RCDATA,U),?26,$J("$"_$J($P(RCDATA,U,2),0,2),10),?38,$E($P(RCDATA,U,3),1,40),!
  • Line Location: DQ+63
Function Call: WRITE
  • Prompt: !!,$$ENDORPRT^RCDPEARL
  • Line Location: DQ+71
Function Call: WRITE
  • Prompt: !,"RECEIPT#^TRANSACTION^DATE^AMOUNT^CLAIM^USER^DISPOSITION^REASON^CLAIMS^AMOUNT^COMMENT",!
  • Line Location: H+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+5
Function Call: WRITE
  • Prompt: $C(13),"LINK PAYMENT TRACKING REPORT",?50,%
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !," FOR THE DATE RANGE: ",$S(RCPT="":RCDTDIS1_" TO "_RCDTDIS2,1:"")
  • Line Location: H+7
Function Call: WRITE
  • Prompt: ?55,"FOR USER(S): ",$E($S(RCUSER="A":"ALL",1:$$GET1^DIQ(200,RCUSER_",",.01,"E")),1,10)
  • Line Location: H+9
Function Call: WRITE
  • Prompt: ?55,"RECEIPT#: "_RCPT
  • Line Location: H+11
Function Call: WRITE
  • Prompt: !,"RECEIPT#",?15,"TRANS#",?22,"DATE",?36,"AMOUNT",?43,"CLAIM",?51,"USER",?56,"DISPOSITION"
  • Line Location: H+12
Function Call: WRITE
  • Prompt: !,?5,"REASON",?18,"CLAIMS"
  • Line Location: H+13
Function Call: WRITE
  • Prompt: !,RCRJLINE,!
  • Line Location: H+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^RCY(344 - [#344] Classic Fileman Calls
^RCY(344.71 - [#344.71] GET1^DIQ
344.711 GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call