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

Package: Accounts Receivable

Routine: RCDPEM3


Information

RCDPEM3 ;OIFO-BAYPINES/RBN - ERA AUDIT REPORT and return EFT function ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEM3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; EP - Remove ERA from Active Worklist Audit Report [RCDPE REMOVED ERA AUDIT]
ENFRMQ ; entry point from queue
DISPTY() ; Ask display/output type
; Input: None
; Returns: 0-Display, 1-MS Excel, -1=timeout or '^'
ERASTA(ERAIEN) ; Returns "station name ^ station #" for an ERA
; Input: ERAIEN - IEN of the ERA
REPRT ; Generate the report lines into ^TMP array
; Input: RCSSD - Selected Start Date
; W:Date Removed from Worklist R:Date ERA Received B:Both Dates
; RCDTRNG - Date/Time range of report (range flag^start date^end date)
DISP(RCDISPTY) ; Format the display for screen/printer or MS Excel
; RCDISPTY - Display/print/Excel flag
; LOCAL VARIABLES: IEN - line number of the data in ^TMP (see above)
PROC(ERAIEN) ; Put data into ^TMP based on filters
; Input: ERAIEN - IEN of the ERA
HDRBLD ; Create the report header
; Input: RCDISPTY - Display/print/Excel flag
; RCDTRNG - Date range
; RCXCLUDE - TRICARE /CHAMPVA flags
; Returns: RCHDR(0) - Header text line count
; RCHDR("XECUTE") - M code for page number
; RCHDR("RUNDATE")- Date/time report generated, external format
; RCPGNUM - Page counter
; RCSTOP - Flag to exit
HDRLM ; Create the Listman header
; Input: RCDTRNG - Date range
; RCXCLUDE - TRICARE /CHAMPVA flags
; Returns: RCHDR(0) - Header text line count
HDRNM() ; Returns the report name
EXIT ; Exit the report
WP(RR) ; Format Removed Reason comments
; Input: RR - Removed Reason
RETN ; Entry point for Remove Duplicate EFT Deposits [RCDPE REMOVE DUP DEPOSITS]
NOCHNG ;
DICW ; Identifier code for EFT lookup - EP MATCH1^RCDPEM3 and MATCH2^RCDPEM2
; Input - Y = EFT DETAIL #344.31 IEN
; D = Index ("B","C","E","F","FNLZ")
; DZ = User input from ^DIE call, "?" or "??" if help list was requested
OUT(RCEFT) ; EP UNMATCH^RCDPEM2
; INPUT - RCEFT - #344.31 ien
; OUTPUT - EFT_"."_TRAN - formatted EFT line

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" queued.",1:"Unable to queue this task.")
  • Line Location: EN+66
Function Call: WRITE
  • Prompt: !,ZZ
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option.",!
  • Line Location: RETN+3
Function Call: WRITE
  • Prompt: !!," WARNING: Removing an EFT is **NOT** reversible."
  • Line Location: RETN+4
Function Call: WRITE
  • Prompt: !," Use this option only if you are sure you want to remove this EFT."
  • Line Location: RETN+5
Function Call: WRITE
  • Prompt: !," Please be aware that once an EFT is removed - it cannot be restored.",!!
  • Line Location: RETN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RETN+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: RETN+34
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOCHNG+5
Function Call: WRITE
  • Prompt: ?10,EFTID,?20," ",PAYNAM
  • Line Location: DICW+19
Function Call: WRITE
  • Prompt: !,?20," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+20
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+21
Function Call: WRITE
  • Prompt: ?25," ",PAYNAM
  • Line Location: DICW+25
Function Call: WRITE
  • Prompt: !,?25," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+26
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+27
Function Call: WRITE
  • Prompt: " ",EFTID
  • Line Location: DICW+29
Function Call: WRITE
  • Prompt: !,?20," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+30
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+31
Function Call: WRITE
  • Prompt: " ",EFTID,?25," ",PAYNAM
  • Line Location: DICW+33
Function Call: WRITE
  • Prompt: !,?25," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+34
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+35
Function Call: WRITE
  • Prompt: " ",EFTID,?48,$J(PAYAMT,10),?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+37
Function Call: WRITE
  • Prompt: !,?25," ",PAYNAM
  • Line Location: DICW+38

FileMan Files Accessed Via FileMan Db Call

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