source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXVDC8.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 962 bytes
Line 
1RCXVDC8 ;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
6D344 ;
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 ;
Note: See TracBrowser for help on using the repository browser.