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 |  Local Variables  | All
Print Page as PDF
Routine: RCDPEU2

Package: Accounts Receivable

Routine: RCDPEU2


Information

RCDPEU2 ;AITC/CJE - ELECTRONIC PAYER UTILITIES ;05-NOV-02

Source Information

Source file <RCDPEU2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 (FIND,LIST)^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Accounts Receivable 1 (AUTOCOPY,AUTOMOVE,AUTOREM)^RCDPEM5  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Accounts Receivable 6 RCDPEM0  RCDPEM2  RCDPEM3  RCDPLPL3  RCDPLPL4  RCDPUREC  

Entry Points

Name Comments DBIA/ICR reference
EFT344(PROMPT,IEN344,AREVTYPE) ; Select and EFT and update reciept - EP
; Input: PROMPT - Prompt to use when picking an EFT
; IEN344 - Internal entry number to file 344
; AREVTYPE - AR Event Type IEN (344.1) optional, defaults to null
; Output
ASKEFT(PROMPT,SCREEN,AREVTYPE) ; Select an EFT for an EDI Lockbox receipt - EP
; Input: PROMPT - Prompt to use when asking user to enter an EFT.
; SCREEN - Screen for use in file 344.31 look-up
; AREVTYPE - AR Event Type IEN (344.1) optional, defaults to null
; Returns: IEN from file 344.31 or -1 if user times out or '^'
PICKEFT() ; Given output from FIND^DIC, pick an EFT from the list
; Input: ^TMP("DILIST",$J) in non-packed format
; Returns: IEN from file 344.31, or 0 if user does not pick an item from the list
READ(LAST) ;
; Input: LAST - The last number displayed that can be picked in the number range 1-LAST
; Returns: IEN from 344.31 if one is picked, otherwise -1 (^ or timeout) or 0 - nothing picked
WRITE(X) ; Write out one entry from 344.31
; Input: X=Counter from ^TMP("DILIST",$J) output from FIND^DIC
; Output: To screen
CHKEOB(RCRECTDA,RCTRANDA,RCARRAY) ; EP from RCDPLPL3/4- Link payment to account, move/copy remove EOBs
; Inputs RCRECTDA - Receipt IEN file 344
; RCTRANDA - Payment multiple 344.01 IEN under RCRECTDA
; RCARRAY - If linking to multiple claims this array contains the list of claims
; A1^A2^A3^A4 where A1=Account Linked to, A2=Amount, A3=Comment, A4=Account Name
; Outputs None
ORIG(RCERA,RCOSEQ) ; Get the original claim from the EOB worklist
; Inputs RCERA - ERA IEN from file 344.49
; RCOSEQ - Sequence number IEN from multiple 344.491
; Returns IEN from 361.1. EOB from 344.41
UPDMATCH(ERAIEN,EFTIEN,STATUS) ; Standardize update of ERA and EFT when matching. (EP)
; EFT should be updated with pointer to ERA first to ensure audit is correctly updated when ERA match status is changed.
; Inputs:
; ERAIEN - Pointer to file #344.4
; EFTIEN - Pointer to file #344.31
; STATUS - Match status - 1=MATCHED, -1=MATCHED WITH ERRORS
; Output - None. Files are updated

External References

Name Field # of Occurrence
FIND^DIC ASKEFT+22
LIST^DIC ASKEFT+20
FILE^DIE EFT344+19, UPDMATCH+11, UPDMATCH+15
$$GET1^DIQ WRITE+11, WRITE+12, CHKEOB+9, CHKEOB+10, CHKEOB+11, CHKEOB+15, CHKEOB+16, CHKEOB+26, CHKEOB+27, CHKEOB+31
, CHKEOB+39, ORIG+7, ORIG+9
^DIR READ+6
AUTOCOPY^RCDPEM5 CHKEOB+80
AUTOMOVE^RCDPEM5 CHKEOB+66
AUTOREM^RCDPEM5 CHKEOB+85
$$FMTE^XLFDT WRITE+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,IEN34431,!!
  • Line Location: EFT344+21
Function Call: WRITE
  • Prompt: !,PROMPT
  • Line Location: ASKEFT+14
Function Call: WRITE
  • Prompt: !,$J(X,4),?7,EFTID,?16," ",PAYNAM
  • Line Location: WRITE+15
Function Call: WRITE
  • Prompt: !,?16," ",PAYTR,?48," ",$J(PAYAMT,10)
  • Line Location: WRITE+16
Function Call: WRITE
  • Prompt: ?59," ",DEPNO,?71," ",DEPDAT
  • Line Location: WRITE+17
Routine Call
  • DIC
  • Line Location:
    • ASKEFT+22
Routine Call
  • DIC
  • Line Location:
    • ASKEFT+20
Routine Call
  • DIE
  • Line Location:
    • EFT344+19
    • UPDMATCH+11
    • UPDMATCH+15
Routine Call
  • DIR
  • Line Location:
    • READ+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344 - [#344] GET1^DIQ
344.01 GET1^DIQ
^RCY(344.3 - [#344.3] GET1^DIQ
344.41 GET1^DIQ
344.491 GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] CHKEOB+43, CHKEOB+55, CHKEOB+62, CHKEOB+73
^RCY(344.49 - [#344.49] CHKEOB+23, CHKEOB+25, ORIG+5
^TMP("DIERR" EFT344+20, ASKEFT+7!
^TMP("DILIST" ASKEFT+7!, ASKEFT+23, ASKEFT+25, PICKEFT+5, READ+8, WRITE+5, WRITE+6, WRITE+7, WRITE+8, WRITE+9
, WRITE+10

Label References

Name Line Occurrences
$$ASKEFT EFT344+16
$$ORIG CHKEOB+13
$$PICKEFT ASKEFT+27
$$READ PICKEFT+10
WRITE PICKEFT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AREVTYPE EFT344~, EFT344+6*, EFT344+10, EFT344+12, ASKEFT~
CCLAIM CHKEOB+6~
CLAIM CHKEOB+6~, CHKEOB+27*, CHKEOB+28, CHKEOB+51*, CHKEOB+52, CHKEOB+54, CHKEOB+55, CHKEOB+61!, CHKEOB+66, CHKEOB+71!
, CHKEOB+78, CHKEOB+80
CLAIM( CHKEOB+74*, CHKEOB+77*
CLAIM(1 CHKEOB+64*
CNT PICKEFT+4~, PICKEFT+7*, PICKEFT+8, PICKEFT+9, PICKEFT+10
COUNT ASKEFT+6~, ASKEFT+23*, ASKEFT+24, ASKEFT+26, PICKEFT+4~, PICKEFT+5*, PICKEFT+7, PICKEFT+9
DA ASKEFT+6~, READ+3~
DEPDAT WRITE+3~, WRITE+12*, WRITE+17
DEPNO WRITE+3~, WRITE+11*, WRITE+17
DIC ASKEFT+6~
DIC("W" EFT344+20!
DIR ASKEFT+6~, READ+3~
DIR(0 READ+5*
DIROUT ASKEFT+6~, READ+3~
DIRUT ASKEFT+6~, READ+3~
DT ASKEFT+14
DTOUT ASKEFT+6~, READ+3~, READ+7
DUOUT ASKEFT+6~, READ+3~, READ+7
EEOBS ORIG+4~, ORIG+7*, ORIG+8, ORIG+9
EFTID WRITE+3~, WRITE+6*, WRITE+15
EFTIEN WRITE+3~, WRITE+5*, WRITE+11, WRITE+12, UPDMATCH~, UPDMATCH+8
EFTTR WRITE+3~
ERAIEN UPDMATCH~, UPDMATCH+10, UPDMATCH+13
FDA EFT344+5~, UPDMATCH+7~, UPDMATCH+12!
FDA( UPDMATCH+9*, UPDMATCH+10*, UPDMATCH+14*
FDA(344 EFT344+18*
FIELDS ASKEFT+6~, ASKEFT+10*, ASKEFT+20, ASKEFT+22
FILE ASKEFT+6~, ASKEFT+9*, ASKEFT+20, ASKEFT+22
FLAGS ASKEFT+6~, ASKEFT+11*, ASKEFT+20, ASKEFT+22
IEN344 EFT344~, EFT344+17, EFT344+18
IEN34431 EFT344+5~, EFT344+16*, EFT344+17, EFT344+18, EFT344+21
IEN344491 CHKEOB+6~, CHKEOB+24*, CHKEOB+25*, CHKEOB+26, CHKEOB+27, CHKEOB+31
IEN3611 CHKEOB+6~, CHKEOB+13*, CHKEOB+14, CHKEOB+15, CHKEOB+16, CHKEOB+66, CHKEOB+80, CHKEOB+85
IEN491 ORIG+4~, ORIG+5*, ORIG+6, ORIG+7
IENS ASKEFT+6~, ASKEFT+9*, UPDMATCH+7~, UPDMATCH+8*, UPDMATCH+9, UPDMATCH+10, UPDMATCH+13*, UPDMATCH+14
IFN CHKEOB+6~, CHKEOB+31*, CHKEOB+32, CHKEOB+43*, CHKEOB+44, CHKEOB+55*, CHKEOB+56, CHKEOB+62*, CHKEOB+63, CHKEOB+64
, CHKEOB+73*, CHKEOB+74
INDEXES ASKEFT+6~, ASKEFT+12*
JUST CHKEOB+6~, CHKEOB+84*, CHKEOB+85
JUST1 CHKEOB+6~
LAST READ~, READ+5
LCLAIM CHKEOB+6~
LCLAIM( CHKEOB+44*, CHKEOB+56*, CHKEOB+76
NCLAIM CHKEOB+6~, CHKEOB+37*, CHKEOB+39*, CHKEOB+40*, CHKEOB+41, CHKEOB+43, CHKEOB+62, CHKEOB+73
NCLAIMS CHKEOB+6~, CHKEOB+37*, CHKEOB+53*, CHKEOB+54*, CHKEOB+84
OIFN CHKEOB+6~, CHKEOB+16*
ORIG CHKEOB+6~, CHKEOB+15*, CHKEOB+28, CHKEOB+41, CHKEOB+52
PAYAMT WRITE+3~, WRITE+10*, WRITE+16
PAYNAM WRITE+3~, WRITE+7*, WRITE+14*, WRITE+15
PAYTR WRITE+3~, WRITE+9*, WRITE+16
PROMPT EFT344~, EFT344+16, ASKEFT~, ASKEFT+14
QUIT ASKEFT+6~, ASKEFT+8*, ASKEFT+13, ASKEFT+15*, ASKEFT+16*, ASKEFT+17*, ASKEFT+25*, ASKEFT+28*, PICKEFT+4~, PICKEFT+6*
, PICKEFT+7, PICKEFT+9, PICKEFT+10*, READ+3~, CHKEOB+6~
RCARRAY CHKEOB~, CHKEOB+38, CHKEOB+60, CHKEOB+70, CHKEOB+72, CHKEOB+75
RCARRAY( CHKEOB+47, CHKEOB+49, CHKEOB+50, CHKEOB+51
RCERA CHKEOB+7~, CHKEOB+9*, CHKEOB+11, CHKEOB+13, CHKEOB+23, CHKEOB+25, CHKEOB+26, CHKEOB+27, CHKEOB+31, ORIG~
, ORIG+5, ORIG+7, ORIG+9
RCLORIG CHKEOB+7~, CHKEOB+18*, CHKEOB+41*, CHKEOB+52*, CHKEOB+60, CHKEOB+72, CHKEOB+83
RCLSUSP CHKEOB+7~, CHKEOB+18*, CHKEOB+50*, CHKEOB+83
RCORIG CHKEOB+7~
RCOSEQ CHKEOB+7~, CHKEOB+11*, CHKEOB+12, CHKEOB+13, CHKEOB+22, CHKEOB+23, ORIG~, ORIG+5
RCRECTDA CHKEOB~, CHKEOB+9, CHKEOB+10, CHKEOB+39
RCSEQ CHKEOB+7~, CHKEOB+10*, CHKEOB+11
RCSORIG CHKEOB+7~, CHKEOB+18*, CHKEOB+29*, CHKEOB+60, CHKEOB+70, CHKEOB+83
RCTRANDA CHKEOB~, CHKEOB+10, CHKEOB+39
RETURN ASKEFT+6~, ASKEFT+8*, ASKEFT+15*, ASKEFT+16*, ASKEFT+17*, ASKEFT+25*, ASKEFT+27*, ASKEFT+28, ASKEFT+29, PICKEFT+4~
, PICKEFT+6*, PICKEFT+10*, PICKEFT+11, READ+3~, READ+4*, READ+8*, READ+9
SCLAIM CHKEOB+7~, CHKEOB+60, CHKEOB+70
SCLAIM( CHKEOB+32*, CHKEOB+74, CHKEOB+77
SCREEN EFT344+5~, EFT344+7*, EFT344+11*, EFT344+13*, EFT344+16, ASKEFT~, ASKEFT+20, ASKEFT+22
SP WRITE+3~, WRITE+4*
STATUS UPDMATCH~, UPDMATCH+9, UPDMATCH+14
TIN WRITE+3~, WRITE+8*, WRITE+14
VALUE ASKEFT+6~, ASKEFT+14*, ASKEFT+16, ASKEFT+17, ASKEFT+18*, ASKEFT+19, ASKEFT+22, ASKEFT+24, READ+3~
X ASKEFT+6~, READ+3~, WRITE~, WRITE+5, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+15
, CHKEOB+7~, CHKEOB+22*, CHKEOB+23*, CHKEOB+25, CHKEOB+46*, CHKEOB+47*, CHKEOB+49, CHKEOB+50, CHKEOB+51, CHKEOB+76*
, CHKEOB+77
Y ASKEFT+6~, READ+3~, READ+8
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 |  Local Variables  | All