| 1 | PRCFARRD ;WISC@ALTOONA/CTB-ROUTINE TO DISPLAY FMS RECEIVING REPORT TRANSACTION ;6/23/95 14:44
|
|---|
| 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(^TMP("PRCFARR",$J)) N X,X5,X8 S X=$G(^TMP("PRCFARR",$J,1,0))
|
|---|
| 6 | I '$D(PRCFPO) N PRCFPO S PRCFPO=$G(PRCFA("PODA"))
|
|---|
| 7 | S X5=$G(^TMP("PRCFARR",$J,5,0))
|
|---|
| 8 | S C(1)="RR" ; Transaction Type
|
|---|
| 9 | S C(2)=$P(X,U,6) ; Transaction Date
|
|---|
| 10 | S C(3)=$P(X,U,3)_"-"_$P(X,U,4)_"-"_$P(X,U,5) ; Obligation Number
|
|---|
| 11 | S C(4)=$P(X5,U,11) ; Liquidation Code
|
|---|
| 12 | N BOC,FMSLN,I,L,LNO I +$G(PRCFPO) D
|
|---|
| 13 | . S I=0 F S I=$O(^PRC(442,PRCFPO,22,"B",I)) Q:I="" S LNO="" D
|
|---|
| 14 | . . S LNO=$O(^PRC(442,PRCFPO,22,"B",I,LNO)) Q:LNO=""
|
|---|
| 15 | . . S FMSLN=$P($G(^PRC(442,PRCFPO,22,LNO,0)),U,3)
|
|---|
| 16 | . . S FMSLN="000"_FMSLN,L=$L(FMSLN),FMSLN=$E(FMSLN,L-2,L)
|
|---|
| 17 | . . S BOC(FMSLN)=I
|
|---|
| 18 | . . Q
|
|---|
| 19 | . Q
|
|---|
| 20 | I $D(BOC(991)),$D(PRCFPO) S BOC(991)=$P($G(^PRC(442,PRCFPO,23)),U,1)
|
|---|
| 21 | SE S $P(SP," ",20)=""
|
|---|
| 22 | W @IOF,!,IOINLOW,$E(SP,1,15),"OBLIGATION NUMBER: ",IOINHI,C(3),IOINLOW," PARTIAL #: ",IOINHI W:$D(PRCFA("PARTIAL")) PRCFA("PARTIAL")
|
|---|
| 23 | I $D(PO(11)) S XX=$P(PO(11),"^",12) I XX]"" W !!,IOINLOW,$E(SP,1,10),"TOTAL AMOUNT OF RECEIVING REPORT: ",IOINHI,"$",$FN(XX,",",2) K XX
|
|---|
| 24 | W !!,IOINLOW,"TRANSACTION TYPE: ",IOINHI,C(1),IOINLOW,$E(SP,1,5),"TRANSACTION DATE: ",IOINHI,C(2),IOINLOW," REF #: ",IOINHI,C(3)
|
|---|
| 25 | W !,IOINLOW,$E(SP,1,7),"LIQ. CODE: ",IOINHI,$E(C(4)_" ",1,4),!
|
|---|
| 26 | N J,K S J=7,K=8
|
|---|
| 27 | F S J=$O(^TMP("PRCFARR",$J,J)) Q:+J'=J D G:K["^" EXIT
|
|---|
| 28 | . S X8=$G(^TMP("PRCFARR",$J,J,0)) Q:$P(X8,U)'=8
|
|---|
| 29 | . I K+3>IOSL R:$E(IOST,1,2)="C-" !," ** More ** Hit <Return> to Continue, Enter '^' to Exit ",K:DTIME Q:K["^" W @IOF S K=1
|
|---|
| 30 | . W !,IOINLOW,"Item #: ",IOINHI,$J($P(X8,U,3),4)
|
|---|
| 31 | . W IOINLOW," FMS Line #: ",IOINHI,$E($P(X8,U,2)_" ",1,3)
|
|---|
| 32 | . W IOINLOW," BOC: ",IOINHI,$G(BOC($P(X8,U,2)))
|
|---|
| 33 | . W IOINLOW," FMS Amount: ",IOINHI,$J($FN($P(X8,U,10)/100,",",2),14)
|
|---|
| 34 | . ;W IOINLOW," Liq. Amount: ",IOINHI,$FN($P(X8,U,4)/100,"",2)
|
|---|
| 35 | . S K=K+1
|
|---|
| 36 | . Q
|
|---|
| 37 | EXIT K SP W ! I IOST'["C-Q" W IOINLOW K C,IOINLOW,IOINHI
|
|---|
| 38 | Q
|
|---|
