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

Package: Accounts Receivable

Routine: RCDPEMA1


Information

RCDPEMA1 ;EDE/FA - LIST ALL AUTO-POSTED RECEIPTS REPORT ;Nov 17, 2016

Source Information

Source file <RCDPEMA1.m>

Entry Points

Name Comments DBIA/ICR reference
RPTOUT(INPUT) ;EP from RCDPEMAP
; Output the report to paper/screen, listman or excel
; Input: INPUT - See REPORT^RCDPEMAP for a complete description
; ^TMP($J,A1,"SEL",A2)=External Auto-Post Date
; ^TMP($J,A1,"SEL",A3)=External lower cased sort value (Payer or User)
; ^TMP($J,A1,"SEL",A2,A3,A4,A5)=B1^B2^B3^B4^B5 - if record passed filters Where:
; A1 - "RCDPE_MAP"
; A2 - Internal Auto-Post Date (primary sort)
; A3 - Secondary Sort Value (Payer or User Name)
; A4 - IEN for file 344.4
; A5 - IEN for file 344.41
; B1 - Payer Name
; B2 - User Name
; B3 - ERA #
; B4 - Claim #
; B5 - Trace #
; Output: ^TMP("RCDPE_MAP",$J,CTR)=Line - Array of display lines (no headers)
; for output to Listman
; Only set when A7-1
RPT2(INPUT,A1,ADATE,SORT,OUTYPE,LNCNT,STOP,DATA) ; Report Output Continued
; Input: INPUT - See REPORT^RCDPEMAP for detail
; ADATE - Internal Auto-Post Date
; SORT - 2 - Sort by User, 1 - Sort by Payer
; OUTYPE - 2 - Excel, 1 - Listman, 0 - Paper/Screen
; LNCNT - Current line count (only if OUTYPE=0)
; ^TMP($J,A1,"SEL",...) - See RPTOUT for details
; Output: LNCNT - Updated line count (only if OUTYPE=0)
; STOP - 1 if user quit out (only if OUTYPE=0)
; INPUT - 9th '^' piece update with current line # is OUTYPE=1
; DATA - 1 if at least one line of data is fount
; ^TMP("RCDPE_MAP",$J,CTR) - Output lines for Listman (only if OUTYPE=1)
RPT3(INPUT,A1,ADATE,SORT,SVAL,OUTYPE,LNCNT,STOP,DATA) ; Report Output Continued
; Input: INPUT - See REPORT^RCDPEMAP for detail
; ADATE - Internal Auto-Post Date
; SORT - 1 - Sort by User, 2 - Sort by Payer
; SVAL - Current sort value (Upper cased Payer or User Name)
; OUTYPE - 2 - Excel, 1 - Listman, 0 - Paper/Screen
; LNCNT - Current line count (only if OUTYPE=0)
; ^TMP($J,A1,"SEL",...2) - See RPTOUT for details
; Output: LNCNT - Updated line count (only if OUTYPE=0)
; STOP - 1 if user quit out (only if OUTYPE=0)
; INPUT - 9th '^' piece update with current line # is OUTYPE=1
; DATA - 1 if at least one line of data is found
; ^TMP("RCDPE_MAP",$J,CTR) - Output lines for Listman (only if OUTYPE=1)
RPT3LM(A1,INPUT,FIRSTS,UORP,UORPL,UORPF,LN2,LN3) ; Continue listman output
; Input: A1 - "RCDPE_MAP"
; INPUT - 9th piece contains the current listman line counter
; FIRSTS - 1 if this is the first Payer for the current date, 0 otherwise
; UORP - Current User or Payer Name (whichever we're not sorting by)
; UORPL - Current last User or Payer Name (whichever we're not sorting by)
; UORPF - 1 if this is the first user or payer for the current sor value
; 0 otherwise
; LN2 - Payer or User Name (whatever is not the sort) display line
; LN3 - ERA display line
; ^TMP(A1,$J,XX) - Current listman display lines
; Output: INPUT - Updated 9th piece contains the current listman line counter
; FIRSTS - Updated to 0 (potentially)
; UORP - Updated User or Payer Name (potentially)
; UORPL - Updated last User or Payer Name (potentially)
; UORPF - Updated
; ^TMP(A1,$J,XX) - Current listman display lines
PHEADER(INPUT,LNCNT,PAGE) ; Display a Page Header
; Input: INPUT - See REPORT for a complete description
; LNCNT - Current Line Count
; PAGE - Current Page Count
; Output: LNCNT - Updated Line Count
; PAGE - Updated Page Count
HDRLN2(INPUT) ; Build the 2nd header line
; Input: INPUT - See REPORT^RCDPEMAP for a complete description
; Returns: Text for 2nd header line
HDRLN3(INPUT) ; Build the 3rd header line
; Input: INPUT - See REPORT^RCDPEMAP for a complete description
; Returns: Text for 3rd header line
HDRLN4(INPUT) ; Build the 4th header line
; Input: INPUT - See REPORT^RCDPEMAP for a complete description
; Returns: Text for 4th header line
DIVS(VAUTD) ;
; Input - VAUTD array of divisions selected
; Returns - List of station numbers

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: RPTOUT+33
Function Call: WRITE
  • Prompt: !,"Auto-Post Date: "_^TMP($J,A1,"SEL",ADATE)
  • Line Location: RPTOUT+53
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTOUT+59
Function Call: WRITE
  • Prompt: !,"Auto-Post Date: "_^TMP($J,A1,"SEL",ADATE)
  • Line Location: RPTOUT+60
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: RPTOUT+71
Function Call: WRITE
  • Prompt: !,"Auto-Post Date: "_^TMP($J,A1,"SEL",ADATE)
  • Line Location: RPT2+31
Function Call: WRITE
  • Prompt: !,CURS
  • Line Location: RPT2+32
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT2+36
Function Call: WRITE
  • Prompt: !," ",$S(SORT=2:"Payer: ",1:"User: "),CURS
  • Line Location: RPT2+37
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: RPT3+43
Function Call: WRITE
  • Prompt: !,"Auto-Post Date: "_^TMP($J,A1,"SEL",ADATE)
  • Line Location: RPT3+53
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: RPT3+55
Function Call: WRITE
  • Prompt: !,LN2
  • Line Location: RPT3+57
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT3+61
Function Call: WRITE
  • Prompt: !,LN2
  • Line Location: RPT3+62
Function Call: WRITE
  • Prompt: !,LN2
  • Line Location: RPT3+65
Function Call: WRITE
  • Prompt: !,LN3
  • Line Location: RPT3+66
Function Call: WRITE
  • Prompt: @IOF,XX
  • Line Location: PHEADER+12
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: PHEADER+16
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: PHEADER+20
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: PHEADER+24
Function Call: WRITE
  • Prompt: !,"ERA # Claim # Trace #"
  • Line Location: PHEADER+28
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: PHEADER+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call