| [613] | 1 | RCXVDC8 ;DAOU/ALA-AR Data Extraction Data Creation ;02-JUL-03
|
|---|
| 2 | ;;4.5;Accounts Receivable;**201,228**;Mar 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; AR Batch Payment File (# 344)
|
|---|
| 5 | Q
|
|---|
| 6 | D344 ;
|
|---|
| 7 | N RCSITE
|
|---|
| 8 | S RCXVD=$G(^RCY(344,RCXVD0,0)) ;
|
|---|
| 9 | S RCXVP1=$P(RCXVD,U,6) ; PTR TO DEPOSIT TICKET
|
|---|
| 10 | I RCXVP1="" Q
|
|---|
| 11 | S RCXVD1=$G(^RCY(344.1,RCXVP1,0))
|
|---|
| 12 | ;
|
|---|
| 13 | S RCXVDA=$P(RCXVD,U,1)
|
|---|
| 14 | S RCXVDA=RCXVDA_RCXVU_$P(RCXVD1,U,1) ; Ticket # (P)
|
|---|
| 15 | S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC($P(RCXVD,U,8)),1,8) ; Date/Time Proc
|
|---|
| 16 | S RCXVDA=RCXVDA_RCXVU_$P(RCXVD1,U,4) ; (344.1) Amt Deposit
|
|---|
| 17 | S RCXVDA=RCXVDA_RCXVU_$$RECTOTAL^RCDPURED(RCXVP1) ; Totl Amt of Receipts (Comp)
|
|---|
| 18 | S RCXVDA=RCXVDA_RCXVU_$$RECCOUNT^RCDPURED(RCXVP1) ; Totl Receipts (Comp)
|
|---|
| 19 | S RCSITE=$P($$SITE^VASITE(),U,3)
|
|---|
| 20 | S RCXVDA=RCXVDA_U_RCSITE
|
|---|
| 21 | S ^TMP($J,"RCXVDC8",RCXVD0)=RCXVDA
|
|---|
| 22 | W "REC:"_$P(RCXVDA,RCXVU,1),!
|
|---|
| 23 | W "344:"_$P(RCXVDA,RCXVU,2,7),!
|
|---|
| 24 | ;
|
|---|
| 25 | S RCXVI=""
|
|---|
| 26 | F S RCXVI=$O(^TMP($J,"7-162A",RCXVI)) Q:RCXVI="" D
|
|---|
| 27 | . W "162:"_$G(^TMP($J,"7-162A",RCXVI))
|
|---|
| 28 | . W !
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
