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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 6 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$NAME^XUSER  OWNSKEY^XUSRB  
Accounts Receivable 5 ($$ASKLM,$$ENDORPRT,$$NOW,$$PAD,ASK,HDRLST,LMRPT,SL)^RCDPEARL  ($$DTPRB,$$DTRNG)^RCDPEM4  INFO^RCDPEM6  ($$ISTYPE,$$RTYPE)^RCDPEU1  $$ASKEFT^RCDPEU2  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
Registration 1 DIVISION^VAUTOMA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Accounts Receivable 11 RCDPE REMOVE DUP DEPOSITS  RCDPE REMOVED ERA AUDIT  RCDPE8NZ  RCDPEAC  RCDPEAR1  RCDPEAR2  RCDPEDAR  RCDPEM2  
RCDPEM6  RCDPESP2  RCDPESPA  

Entry Points

Name Comments DBIA/ICR reference
OUT(RCEFT) ; EP UNMATCH^RCDPEM2
; INPUT - RCEFT - #344.31 ien
; OUTPUT - EFT_"."_TRAN - formatted EFT line
EN ; entry point for Remove ERA from Active Worklist Audit Report [RCDPE REMOVED ERA AUDIT]
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)
REPRT ; Generate the report ^TMP array
; INPUT:
; RCSSD
; RCDTRNG
HDRNM()
ERASTA(ERAIEN) ; function, returns "station name ^ station #" for an ERA
; ERAIEN - ien of the ERA
RETN ; Entry point for Remove Duplicate EFT Deposits [RCDPE REMOVE DUP DEPOSITS]
DISPTY() ; function, ask display/output type
; input from user
; returns: Output destination (0=Display, 1=MS Excel, -1=timeout or '^')
HDRLM ; create the Listman header
; returns RCHDR
; RCHDR(0) = header text line count
; INPUT:
; RCDTRNG - date range
; RCXCLUDE - TRICARE /CHAMPVA flags
PROC(ERAIEN) ; Put data into ^TMP based on filters
; ERAIEN - ien of the ERA
EXIT ;
HDRBLD ; create the report header
; returns RCHDR, RCPGNUM, RCSTOP
; 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
; INPUT:
; RCDISPTY - Display/print/Excel flag
; RCDTRNG - date range
; RCXCLUDE - TRICARE /CHAMPVA flags
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")
ENFRMQ ; entry point from queue
WP(RR) ; format Removed Reason comments
; RR - Removed Reason
NOCHNG ;

External References

Name Field # of Occurrence
^%ZIS EN+47
HOME^%ZIS EN+55
^%ZISC EXIT+1
^%ZTLOAD EN+53
^DIE RETN+27, RETN+33
$$GET1^DIQ ERASTA+18, PROC+32, RETN+18, DICW+8, DICW+9, DICW+10, DICW+11, DICW+12, DICW+13, OUT+4
, OUT+5
^DIR DISPTY+5, RETN+3, RETN+9, RETN+25, RETN+38, NOCHNG+5
$$ASKLM^RCDPEARL EN+34
$$ENDORPRT^RCDPEARL DISP+24
$$NOW^RCDPEARL HDRBLD+12
$$PAD^RCDPEARL DISP+12, DISP+13, DISP+14, DISP+17
ASK^RCDPEARL DISP+26
HDRLST^RCDPEARL DISP+6, DISP+11
LMRPT^RCDPEARL EN+45
SL^RCDPEARL DISP+12, DISP+18, DISP+23, DISP+24, WP+13
$$DTPRB^RCDPEM4 EN+19
$$DTRNG^RCDPEM4 EN+20
INFO^RCDPEM6 EN+32
$$ISTYPE^RCDPEU1 REPRT+22, REPRT+24, REPRT+35, REPRT+37
$$RTYPE^RCDPEU1 EN+28
$$ASKEFT^RCDPEU2 RETN+16
DIVISION^VAUTOMA EN+23
$$FMTE^XLFDT PROC+22, PROC+26, HDRBLD+25, HDRLM+11, DICW+13
$$NOW^XLFDT RETN+33
$$NAME^XUSER PROC+29
OWNSKEY^XUSRB RETN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: DISP+10
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+17
Function Call: WRITE
  • Prompt: !,?20," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+18
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+19
Function Call: WRITE
  • Prompt: ?25," ",PAYNAM
  • Line Location: DICW+23
Function Call: WRITE
  • Prompt: !,?25," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+24
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+25
Function Call: WRITE
  • Prompt: " ",EFTID
  • Line Location: DICW+27
Function Call: WRITE
  • Prompt: !,?20," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+28
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+29
Function Call: WRITE
  • Prompt: " ",EFTID,?25," ",PAYNAM
  • Line Location: DICW+31
Function Call: WRITE
  • Prompt: !,?25," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: DICW+32
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+33
Function Call: WRITE
  • Prompt: " ",EFTID,?48,$J(PAYAMT,10),?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: DICW+35
Function Call: WRITE
  • Prompt: !,?25," ",PAYNAM
  • Line Location: DICW+36
Routine Call
  • %ZIS
  • Line Location:
    • EN+55
Routine Call
  • DIE
  • Line Location:
    • RETN+27
    • RETN+33
Routine Call
  • DIR
  • Line Location:
    • DISPTY+5
    • RETN+3
    • RETN+9
    • RETN+25
    • RETN+38
    • NOCHNG+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+47

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
^DIC(36 - [#36] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] ERASTA+20
^DGCR(399 - [#399] ERASTA+16
^IBM(361.1 - [#361.1] ERASTA+12, PROC+32
^RCY(344.31 - [#344.31] DICW+5
^RCY(344.4 - [#344.4] ERASTA+10, REPRT+19, REPRT+21, REPRT+31, REPRT+32, REPRT+33, PROC+20
^TMP($J EN+37!, EN+43*, EN+45, REPRT+15!, REPRT+23, REPRT+34, REPRT+36, DISP+9, PROC+41*, EXIT+2!

Label References

Name Line Occurrences
$$DISPTY EN+30
$$ERASTA PROC+16
$$HDRNM EN+40, EN+51, HDRBLD+20
DISP EN+38, ENFRMQ+2
EXIT EN+19, EN+20, EN+24, EN+28, EN+30, EN+34, EN+36, ENFRMQ+3
HDRBLD DISP+3
HDRLM DISP+4
NOCHNG RETN+26, RETN+28
PROC REPRT+26, REPRT+38
REPRT EN+38, ENFRMQ+1
WP DISP+19

Naked Globals

Name Field # of Occurrence
^( ERASTA+10, DISP+9
^("TRICARE" REPRT+23*, REPRT+36*
^(0 ERASTA+12, REPRT+21, REPRT+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+1~, EN+47*
A DISP+5~, DISP+12*, DISP+13*, DISP+14*, DISP+17*, DISP+18
AMT PROC+2~, PROC+25*, PROC+41
BILLPTR ERASTA+3~, ERASTA+14*, ERASTA+16
C EN+26~*
CMNT WP+3~
CMNT( WP+7*, WP+10*, WP+11*, WP+13
CNTR WP+3~, WP+7*, WP+10*, WP+11, WP+13
>> D DICW+22, DICW+26, DICW+30, DICW+34
DA RETN+1~, RETN+27*
DATA DICW+4~, DICW+5*, DICW+6, DICW+7
DEPDAT DICW+4~, DICW+13*, DICW+19, DICW+25, DICW+29, DICW+33, DICW+35
DEPNO DICW+4~, DICW+12*, DICW+19, DICW+25, DICW+29, DICW+33, DICW+35
DEPTCKT PROC+2~
DIC RETN+1~
DIC("A" RETN+15*, RETN+16
DIC("S" RETN+14*, RETN+16
DIC(0 DICW+40*
DIE RETN+1~, RETN+27*
DIR DISPTY+3~, RETN+1~, RETN+3!, RETN+9!, RETN+21!, RETN+25!, RETN+35!, NOCHNG+1~
DIR("A" DISPTY+4*, RETN+8*, RETN+22*, RETN+23*, RETN+36*, RETN+37*, NOCHNG+3*, NOCHNG+4*
DIR("B" DISPTY+4*, RETN+7*, RETN+21*
DIR(0 DISPTY+4*, RETN+3*, RETN+7*, RETN+21*, RETN+35*, NOCHNG+2*
>> DIRUT DISPTY+6
DIV HDRBLD+17~, HDRLM+7~
DR RETN+1~, RETN+27*, RETN+33*
DTERA REPRT+4~, REPRT+38*, PROC+2~, PROC+22*, PROC+41
DTOUT RETN+1~, RETN+10, RETN+26, NOCHNG+1~
DTRTN PROC+2~, PROC+26*, PROC+41
DTXREF REPRT+4~, REPRT+18*, REPRT+19*, REPRT+21, REPRT+30*, REPRT+31*, REPRT+32
DUOUT DISPTY+3~, DISPTY+6, RETN+10, RETN+26, NOCHNG+1~
DUZ RETN+2, RETN+33
>> DZ DICW+15
EFT OUT+3~, OUT+4*, OUT+6
EFTID DICW+4~, DICW+7*, DICW+17, DICW+27, DICW+31, DICW+35
EFTIEN DICW+4~, DICW+6*, DICW+7, DICW+12, DICW+13
EFTTR DICW+4~, DICW+7*
END REPRT+4~, REPRT+18*, REPRT+19, REPRT+30*, REPRT+31
ERA PROC+2~, PROC+23*, PROC+41
ERAEOB ERASTA+3~, ERASTA+12*, ERASTA+13, PROC+2~, PROC+21*, PROC+32
ERAIEN ERASTA~, ERASTA+2, ERASTA+10, REPRT+4~, REPRT+20*, REPRT+21*, REPRT+22, REPRT+24, REPRT+26, REPRT+32*
, REPRT+33, REPRT+35, REPRT+37, REPRT+38, PROC~, PROC+16, PROC+20
H EN+39~, EN+41*, EN+43*
HCNT HDRBLD+17~, HDRBLD+18*, HDRBLD+20*, HDRBLD+22*, HDRBLD+28*, HDRBLD+30*, HDRBLD+33*, HDRBLD+34*, HDRBLD+35*, HDRBLD+36*
, HDRBLD+37*, HDRBLD+38*, HDRBLD+40, HDRLM+7~, HDRLM+8*, HDRLM+14*, HDRLM+16*, HDRLM+19*, HDRLM+20*, HDRLM+21*
, HDRLM+22*, HDRLM+23*, HDRLM+25
HDR EN+39~, EN+45
HDR( EN+41*
HDR("TITLE" EN+40*
I EN+1~, WP+3~, WP+8*, WP+9, WP+13*
IEN DISP+5~, DISP+7*, DISP+9*
IO EN+57
IO("Q" EN+48, EN+55!
IOSL DISP+11
J EN+26~*, ERASTA+3~, ERASTA+10*, ERASTA+11~
L EN+39~*, EN+41*, EN+42, EN+43
LEN DISP+5~
M ERASTA+3~, ERASTA+10*, ERASTA+12
MSG RETN+1~, RETN+2
MSG(0 RETN+3
N EN+43~*, REPRT+23~*, REPRT+36~*
P ERASTA+3~, ERASTA+12*, PROC+2~, PROC+32*
PAYAMT DICW+4~, DICW+11*, DICW+18, DICW+24, DICW+28, DICW+32, DICW+35
PAYER PROC+2~, PROC+30*, PROC+32*, PROC+33*, PROC+41
PAYNAM DICW+4~, DICW+8*, DICW+16*, DICW+17, DICW+21*, DICW+23, DICW+31, DICW+36
PAYTR DICW+4~, DICW+10*, DICW+18, DICW+24, DICW+28, DICW+32
PCS WP+3~, WP+7*, WP+8
>> POP EN+47
RCDISPTY EN+1~, EN+30*, EN+32, EN+38, ENFRMQ+2, DISP~, DISP+10, HDRBLD+13
RCDIV EN+1~, EN+18*, EN+26*, PROC+19, HDRBLD+30, HDRLM+16
RCDTRNG EN+1~, EN+20*, EN+21, REPRT+18, REPRT+30, HDRBLD+24, HDRLM+10
RCEFT OUT~, OUT+4, OUT+5
RCEND EN+1~, EN+21*
RCERANUM RETN+1~, RETN+18*, RETN+22, RETN+37
RCHDR EN+1~, DISP+6, DISP+11, HDRBLD+12!
RCHDR( EN+41, EN+42, EN+43, HDRBLD+20*, HDRBLD+22*, HDRBLD+28*, HDRBLD+30*, HDRBLD+33*, HDRBLD+34*, HDRBLD+35*
, HDRBLD+36*, HDRBLD+37*, HDRBLD+38*, HDRLM+14*, HDRLM+16*, HDRLM+19*, HDRLM+20*, HDRLM+21*, HDRLM+22*, HDRLM+23*
RCHDR("RUNDATE" HDRBLD+12*, HDRBLD+22
RCHDR("XECUTE" HDRBLD+14*, HDRBLD+21*
RCHDR(0 DISP+11, HDRBLD+14*, HDRBLD+40*, HDRLM+25*
RCHDR(1 HDRBLD+15*
RCLNCNT EN+1~, EN+14*, DISP+12, DISP+18, DISP+23, DISP+24, WP+13
RCLOCDV PROC+2~
RCLSTMGR EN+1~, EN+12*, EN+32*, EN+34*, EN+36, DISP+3, DISP+4, DISP+6, DISP+11, DISP+26
RCNAM DISP+5~, DISP+15*, DISP+17
RCNTRY PROC+2~, PROC+20*
RCNTRY(0 PROC+22, PROC+23, PROC+24, PROC+25
RCNTRY(1 PROC+21
RCNTRY(6 PROC+26, PROC+27, PROC+29
RCPAGE EN+1~, EN+16*
RCPG EN+1~, EN+14*
>> RCPGNUM HDRBLD+12*, HDRBLD+14*
RCSSD EN+1~, EN+19*, REPRT+17, REPRT+29, HDRBLD+27, HDRLM+13
RCSTA EN+1~, PROC+17*, PROC+19, PROC+41
RCSTART EN+1~, EN+21*
RCSTNO EN+1~, PROC+17*
RCSTOP EN+1~, EN+14*, DISP+6, DISP+9, DISP+11, DISP+21, DISP+26, HDRBLD+12*
RCTMPND EN+1~, EN+13*, EN+37*, EN+43, EN+45, DISP+12, DISP+18, DISP+23, DISP+24, WP+13
RCTYPE EN+2~, EN+28*, REPRT+24, REPRT+37, HDRBLD+32, HDRLM+18
RCY RETN+1~, RETN+16*, RETN+17, RETN+18, RETN+27
RMVRSN PROC+2~, PROC+27*, PROC+41
RR WP~, WP+2, WP+7, WP+9
SP DICW+4~, DICW+6*
STANMBR ERASTA+3~, ERASTA+20*, ERASTA+22*, ERASTA+23
STAPTR ERASTA+3~, ERASTA+16*, ERASTA+18, ERASTA+20
START REPRT+4~, REPRT+18*, REPRT+30*
STNAM ERASTA+3~, ERASTA+7*, ERASTA+10, ERASTA+18*, ERASTA+19, ERASTA+22*, ERASTA+23
TIN DICW+4~, DICW+9*, DICW+16, DICW+21
TRACE PROC+2~, PROC+24*
TRAN OUT+3~, OUT+5*, OUT+6
U EN+21, ERASTA+12, ERASTA+14, ERASTA+16, ERASTA+20, REPRT+18, REPRT+30, REPRT+34, REPRT+38, DISP+12
, DISP+13, DISP+14, DISP+15, DISP+17, DISP+19, PROC+17, PROC+21, PROC+22, PROC+23, PROC+24
, PROC+25, PROC+26, PROC+27, PROC+29, PROC+32, PROC+41, HDRBLD+24, HDRLM+10, DICW+6, DICW+7
USER PROC+2~, PROC+29*, PROC+41
VAUTD EN+2~, EN+24, EN+25, PROC+19
VAUTD( EN+26
X EN+2~, DISPTY+3~, REPRT+4~, RETN+1~, NOCHNG+1~
Y EN+2~, EN+23, DISPTY+3~, DISPTY+6*, DISPTY+7, ERASTA+3~, ERASTA+11~, ERASTA+12*, ERASTA+14, DISP+5~
, DISP+9*, DISP+10, DISP+12, DISP+13, DISP+14, DISP+15, DISP+17, DISP+19, PROC+2~, PROC+16*
, PROC+17, PROC+22*, PROC+26*, PROC+29*, HDRBLD+17~, HDRBLD+20*, HDRBLD+22*, HDRBLD+25*, HDRBLD+26*, HDRBLD+27*
, HDRBLD+28, HDRBLD+29!, HDRBLD+30*, HDRBLD+31*, HDRBLD+32*, HDRBLD+33, HDRBLD+38*, HDRLM+7~, HDRLM+11*, HDRLM+12*
, HDRLM+13*, HDRLM+14, HDRLM+15!, HDRLM+16*, HDRLM+17*, HDRLM+18*, HDRLM+19, WP+3~, WP+9*, WP+10
, WP+11, RETN+1~, RETN+10, RETN+26, RETN+28, NOCHNG+1~, DICW+5, DICW+8, DICW+9, DICW+10
, DICW+11
Y( HDRBLD+25*, HDRLM+11*
Y("1ST" HDRBLD+24*, HDRBLD+26, HDRLM+10*, HDRLM+12
Y("LST" HDRBLD+24*, HDRBLD+26, HDRLM+10*, HDRLM+12
ZROND REPRT+4~, REPRT+21*, REPRT+33*, REPRT+34, REPRT+38
ZTDESC EN+49~, EN+51*
>> ZTQUEUED DISP+26
ZTRTN EN+49~, EN+50*
ZTSAVE EN+49~
ZTSAVE("RC*" EN+52*
ZTSAVE("VAUTD" EN+52*
ZTSK EN+49~, EN+54

Marked Items

Name Field # of Occurrence
$T( EN+37, HDRBLD+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All