source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFA924.m@ 1078

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1PRCFA924 ;WISC@ALTOONA/CTB-ROUTINE TO DISPLAY 924.00 RECEIVING REPORT TRANSACTION ;10 Sep 89/3:08 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 D HILO^PRCFQ
5LOAD 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
9SE 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
Note: See TracBrowser for help on using the repository browser.