| 1 | PRCFA924 ;WISC@ALTOONA/CTB-ROUTINE TO DISPLAY 924.00 RECEIVING REPORT TRANSACTION ;10 Sep 89/3:08 PM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | D HILO^PRCFQ
|
|---|
| 5 | LOAD Q:'$D(^PRCF(423,DA)) S X=^PRCF(423,DA,0),X1=^(1)
|
|---|
| 6 | S C(1)=$P(X,U,4),C(2)=$P(X,U,5),C(3)=$P(X,U,6)
|
|---|
| 7 | S C(4)=$P(X1,U,12),C(5)=$P(X1,U,8),C(6)=$P(X1,U,9),C(7)=$P(X1,U,13),C(8)=$P(X1,U,10),C(9)=$P(X1,U,11),C(10)=$P(X1,U,14)
|
|---|
| 8 | K X,X1
|
|---|
| 9 | SE S $P(SP," ",80)=""
|
|---|
| 10 | W @IOF,!,IOINLOW,$E(SP,1,15),"OBLIGATION NUMBER: ",IOINHI,C(3),IOINLOW," PARTIAL #: ",IOINHI W:$D(PRCFA("PARTIAL")) PRCFA("PARTIAL")
|
|---|
| 11 | I $D(PO(11)) S XX=$P(PO(11),"^",12) I XX]"" W !!,IOINLOW,$E(SP,1,10),"TOTAL AMT OF RECEIVING REPORT: ",IOINHI,$J(XX,0,2) K XX
|
|---|
| 12 | W !!,IOINLOW,"TRANSACTION TYPE: ",IOINHI,C(1),IOINLOW,$E(SP,1,5),"TRANSACTION DATE: ",IOINHI,C(2),IOINLOW," REF #: ",IOINHI,C(3)
|
|---|
| 13 | W !,IOINLOW,$E(SP,1,7),"LIQ. CODE: ",IOINHI,$E(C(4)_" ",1,4),!,IOINLOW," BOC 1: ",IOINHI,C(5),IOINLOW,$E(SP,1,3),"AMOUNT 1: ",IOINHI,$E(C(6)_$E(SP,1,13),1,13),IOINLOW," LIQ. AMOUNT 1: ",IOINHI,C(7)
|
|---|
| 14 | W !,IOINLOW," BOC 2: ",IOINHI,$E(C(8)_" ",1,4),IOINLOW," AMOUNT 2: ",IOINHI,$E(C(9)_$E(SP,1,13),1,13),IOINLOW," LIQ. AMOUNT 2: ",IOINHI,C(10)
|
|---|
| 15 | K SP I IOST'["C-Q" W IOINLOW K C,IOINLOW,IOINHI
|
|---|
