source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAHIS1.m@ 1006

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

initial load of WorldVistAEHR

File size: 866 bytes
Line 
1PRCAHIS1 ;WASH-ISC@ALTOONA,PA/LDB-Transaction History Report (cont) ;9/27/93 10:33 AM
2V ;;4.5;Accounts Receivable;**100**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5TRANS ;Build array of transactions
6 ;Called from PRCAHIS
7 N PRCAHIST S PRCAHIST="THIST"
8 S PG=0,$P(LINE,"-",79)="-" K ^TMP("PRCAGT",$J) D DT^DICRW
9 S BDATE=(BDATE-1)_".999999999"
10 S EDATE=EDATE+.99999999
11 S:'TYP TYP="" D EN^PRCAGT(DEB,BDATE,EDATE,TYP)
12TBAL D TBAL^PRCAGT(DEB,.TBAL)
13 I 'TYP!(TYP=45) S TYP(1)=TYP D
14 .F TYP=1:1:$S(TYP(1)=45:1,1:3) S DAT1=0 F S DAT1=$O(^RC(341,"AD",+DEB,TYP,DAT1)) Q:'DAT1 D
15 ..S EVNT=0 F S EVNT=$O(^RC(341,"AD",+DEB,TYP,DAT1,EVNT)) Q:'EVNT I $D(^RC(341,+EVNT,0)) D
16 ...S DAT2=$P(^RC(341,+EVNT,0),"^",7)
17 ...I DAT2'<BDATE&(DAT2'>EDATE) D
18 ....S ^TMP("PRCAGT",$J,+DEB,DAT2,0)="0^"_$P($G(^RC(341,+EVNT,0)),"^",2)_"^"_EVNT
19 Q
Note: See TracBrowser for help on using the repository browser.