| [613] | 1 | PRCAHIS1 ;WASH-ISC@ALTOONA,PA/LDB-Transaction History Report (cont) ;9/27/93 10:33 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**100**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | TRANS ;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)
|
|---|
| 12 | TBAL 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
|
|---|
