RCDPEUNB ;AITC/CJE - ePayments - Flag/Unflag Unbalanced EDI Lockbox Deposit
;;4.5;Accounts Receivable;**446**;Mar 20, 1995;Build 15
;Per VA Directive 6402, this routine should not be modified.
;
EN ; Entry Point from menu
N DA,DIE,DIC,DIR,DR,X,Y
W #
LOOP ;
W !,"Select EDI LOCKBOX DEPOSIT NUMBER: "
R X:DTIME I '$T Q
I $E(X)="^"!(X="") Q
I X="?" S Y=$$LIST("AU",1,1) G:'Y LOOP G NEXT
I X="??" S Y=$$LIST^RCDPEUNB("AU",1,0) G:'Y LOOP G NEXT
I '$D(^RCY(344.3,"C",X)) D G LOOP
. W !!,"** Invalid Deposit Number **"
S Y=$$LIST("C",X,0) I 'Y G LOOP
NEXT ;
S DIE=344.3,DIC(0)="AEMV"
S DA=+Y I 'DA Q
S DR=".15"
D ^DIE
I $D(DTOUT) Q
W !
G LOOP
Q
ULIST ; Write out a list of unbalanced deposits to the screen
N IEN
I $O(^RCY(344.3,"AU",1,""))="" D Q ;
. W !,"** No EDI Lockbox Deposits currently flagged as unbalanced **"
;
W !
W !,"Deposit Number",?20,"Depsosit Date",?40,"Amount"
S IEN=""
F S IEN=$O(^RCY(344.3,"AU",1,IEN)) Q:IEN="" D ;
. W !
. W $$GET1^DIQ(344.3,IEN_",",.06,"E"),?20
. W $$GET1^DIQ(344.3,IEN_",",.07,"E"),?34
. W $J($$GET1^DIQ(344.3,IEN_",",.08,"E"),12,2)
W !
Q
LIST(IX,VALUE,PROMPT) ; List unbalance EDI Lockbox deposits
; Inputs : IX - Index to use for look-up
; VALUE - Lookup Value on index to display
; PROMPT - Prompt for display
; Return : Internal entry number for 344.3 (or 0 if nothing selected, or '^', or timeout)
N COUNT,DIR,IEN,QUIT,RETURN,X,Y
K ^TMP("RCDPEUNB",$J)
S (QUIT,RETURN)=0
I PROMPT D G:QUIT LISTQ
. W !,"Answer with EDI LOCKBOX DEPOSIT NUMBER, or DEPOSIT NUMBER",!
. S DIR(0)="YA"
. S DIR("A")="Do you want the entire Unbalanced EDI LOCKBOX DEPOSIT List? "
. D ^DIR
. I Y'=1 S QUIT=1
;
; List Entries from index IX that match VALUE
W !," Choose from:"
S IEN="",COUNT=0
F S IEN=$O(^RCY(344.3,IX,VALUE,IEN)) Q:IEN="" D ;
. S COUNT=COUNT+1
. D DISPLAY(IEN,COUNT)
. S ^TMP("RCDPEUNB",$J,COUNT)=IEN
I COUNT=0 D G LISTQ
. W !!,"No entries matching the search value. Hit <RETURN> to continue:"
. R X:DTIME
. W !
K DIR
S DIR(0)="NAO^1:"_COUNT_":0"
S DIR("A")="Select from list 1-"_COUNT_": "
D ^DIR
I Y=""!($E(Y)="^") G LISTQ
S RETURN=+$G(^TMP("RCDPEUNB",$J,Y))
W ! D DISPLAY(RETURN,"") W !
;
LISTQ ;
K ^TMP("RCDPEUNB",$J)
Q RETURN
;
DISPLAY(IEN,C) ; Display an EDI Lockbox deposit
; Input - IEN - Internal entry number from 344.3
; C - Order number to display
;
N XX
W !,C,?3,$$GET1^DIQ(344.3,IEN_",",.06,"E")
S XX=$$GET1^DIQ(344.3,IEN_",",.07,"I")
S XX=$$FMTE^XLFDT(XX,"2DZ")
S XX=$TR(XX,"/","-")
W ?13,XX
W ?25,$J("$"_$FN($$GET1^DIQ(344.3,IEN_",",.08,"E"),"",2),12)
W ?45,$$GET1^DIQ(344.3,IEN_",",.15,"E")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPEUNB 2751 printed Jan 29, 2026@14:44:11 Page 2
RCDPEUNB ;AITC/CJE - ePayments - Flag/Unflag Unbalanced EDI Lockbox Deposit
+1 ;;4.5;Accounts Receivable;**446**;Mar 20, 1995;Build 15
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
EN ; Entry Point from menu
+1 NEW DA,DIE,DIC,DIR,DR,X,Y
+2 WRITE #
LOOP ;
+1 WRITE !,"Select EDI LOCKBOX DEPOSIT NUMBER: "
+2 READ X:DTIME
IF '$TEST
QUIT
+3 IF $EXTRACT(X)="^"!(X="")
QUIT
+4 IF X="?"
SET Y=$$LIST("AU",1,1)
if 'Y
GOTO LOOP
GOTO NEXT
+5 IF X="??"
SET Y=$$LIST^RCDPEUNB("AU",1,0)
if 'Y
GOTO LOOP
GOTO NEXT
+6 IF '$DATA(^RCY(344.3,"C",X))
Begin DoDot:1
+7 WRITE !!,"** Invalid Deposit Number **"
End DoDot:1
GOTO LOOP
+8 SET Y=$$LIST("C",X,0)
IF 'Y
GOTO LOOP
NEXT ;
+1 SET DIE=344.3
SET DIC(0)="AEMV"
+2 SET DA=+Y
IF 'DA
QUIT
+3 SET DR=".15"
+4 DO ^DIE
+5 IF $DATA(DTOUT)
QUIT
+6 WRITE !
+7 GOTO LOOP
+8 QUIT
ULIST ; Write out a list of unbalanced deposits to the screen
+1 NEW IEN
+2 ;
IF $ORDER(^RCY(344.3,"AU",1,""))=""
Begin DoDot:1
+3 WRITE !,"** No EDI Lockbox Deposits currently flagged as unbalanced **"
End DoDot:1
QUIT
+4 ;
+5 WRITE !
+6 WRITE !,"Deposit Number",?20,"Depsosit Date",?40,"Amount"
+7 SET IEN=""
+8 ;
FOR
SET IEN=$ORDER(^RCY(344.3,"AU",1,IEN))
if IEN=""
QUIT
Begin DoDot:1
+9 WRITE !
+10 WRITE $$GET1^DIQ(344.3,IEN_",",.06,"E"),?20
+11 WRITE $$GET1^DIQ(344.3,IEN_",",.07,"E"),?34
+12 WRITE $JUSTIFY($$GET1^DIQ(344.3,IEN_",",.08,"E"),12,2)
End DoDot:1
+13 WRITE !
+14 QUIT
LIST(IX,VALUE,PROMPT) ; List unbalance EDI Lockbox deposits
+1 ; Inputs : IX - Index to use for look-up
+2 ; VALUE - Lookup Value on index to display
+3 ; PROMPT - Prompt for display
+4 ; Return : Internal entry number for 344.3 (or 0 if nothing selected, or '^', or timeout)
+5 NEW COUNT,DIR,IEN,QUIT,RETURN,X,Y
+6 KILL ^TMP("RCDPEUNB",$JOB)
+7 SET (QUIT,RETURN)=0
+8 IF PROMPT
Begin DoDot:1
+9 WRITE !,"Answer with EDI LOCKBOX DEPOSIT NUMBER, or DEPOSIT NUMBER",!
+10 SET DIR(0)="YA"
+11 SET DIR("A")="Do you want the entire Unbalanced EDI LOCKBOX DEPOSIT List? "
+12 DO ^DIR
+13 IF Y'=1
SET QUIT=1
End DoDot:1
if QUIT
GOTO LISTQ
+14 ;
+15 ; List Entries from index IX that match VALUE
+16 WRITE !," Choose from:"
+17 SET IEN=""
SET COUNT=0
+18 ;
FOR
SET IEN=$ORDER(^RCY(344.3,IX,VALUE,IEN))
if IEN=""
QUIT
Begin DoDot:1
+19 SET COUNT=COUNT+1
+20 DO DISPLAY(IEN,COUNT)
+21 SET ^TMP("RCDPEUNB",$JOB,COUNT)=IEN
End DoDot:1
+22 IF COUNT=0
Begin DoDot:1
+23 WRITE !!,"No entries matching the search value. Hit <RETURN> to continue:"
+24 READ X:DTIME
+25 WRITE !
End DoDot:1
GOTO LISTQ
+26 KILL DIR
+27 SET DIR(0)="NAO^1:"_COUNT_":0"
+28 SET DIR("A")="Select from list 1-"_COUNT_": "
+29 DO ^DIR
+30 IF Y=""!($EXTRACT(Y)="^")
GOTO LISTQ
+31 SET RETURN=+$GET(^TMP("RCDPEUNB",$JOB,Y))
+32 WRITE !
DO DISPLAY(RETURN,"")
WRITE !
+33 ;
LISTQ ;
+1 KILL ^TMP("RCDPEUNB",$JOB)
+2 QUIT RETURN
+3 ;
DISPLAY(IEN,C) ; Display an EDI Lockbox deposit
+1 ; Input - IEN - Internal entry number from 344.3
+2 ; C - Order number to display
+3 ;
+4 NEW XX
+5 WRITE !,C,?3,$$GET1^DIQ(344.3,IEN_",",.06,"E")
+6 SET XX=$$GET1^DIQ(344.3,IEN_",",.07,"I")
+7 SET XX=$$FMTE^XLFDT(XX,"2DZ")
+8 SET XX=$TRANSLATE(XX,"/","-")
+9 WRITE ?13,XX
+10 WRITE ?25,$JUSTIFY("$"_$FNUMBER($$GET1^DIQ(344.3,IEN_",",.08,"E"),"",2),12)
+11 WRITE ?45,$$GET1^DIQ(344.3,IEN_",",.15,"E")
+12 QUIT
