RCDPEU2 ;AITC/CJE - ELECTRONIC PAYER UTILITIES ;05-NOV-02
Source file <RCDPEU2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 4 | RCDPEM3 RCDPLPL3 RCDPLPL4 RCDPUREC |
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 |
Name | Field # of Occurrence |
---|---|
FIND^DIC | ASKEFT+22 |
LIST^DIC | ASKEFT+20 |
FILE^DIE | EFT344+19 |
$$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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine 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 |
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 |
Name | Line Occurrences |
---|---|
$$ASKEFT | EFT344+16 |
$$ORIG | CHKEOB+13 |
$$PICKEFT | ASKEFT+27 |
$$READ | PICKEFT+10 |
WRITE | PICKEFT+8 |
>> | 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 |
EFTTR | WRITE+3~ |
FDA | EFT344+5~ |
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* |
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* |
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 |