| 1 | PRCUFCD ;WISC/SJG-CONVERSION PROCESSING ;4/30/93 3:02 PM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; Routine is modification of PRCFAC02 for conversion processing
|
|---|
| 6 | ;
|
|---|
| 7 | S PRCFA("MOP")=$P(^PRC(442,PRCFA("PODA"),0),"^",2) I 12348'[PRCFA("MOP") Q
|
|---|
| 8 | I PRCFA("MOP") D @PRCFA("MOP")
|
|---|
| 9 | D OBD Q
|
|---|
| 10 | 1 ;INVOICE/RR
|
|---|
| 11 | D OBL Q
|
|---|
| 12 | Q
|
|---|
| 13 | 2 ;CERTIFIED INVOICE
|
|---|
| 14 | D TC Q
|
|---|
| 15 | 3 ;PAYMENT IN ADVANCE
|
|---|
| 16 | D TC Q
|
|---|
| 17 | 8 ;REQUISITION
|
|---|
| 18 | D OBL Q
|
|---|
| 19 | 4 ;GUARANTEED DELIVERY
|
|---|
| 20 | D TC Q
|
|---|
| 21 | Q
|
|---|
| 22 | OBL ;MARK AS "OBLIGATED"
|
|---|
| 23 | Q:SCP=1!(SCP=2)
|
|---|
| 24 | S FSO=$P(^PRC(442,PRCFA("PODA"),7),U,1) S:FSO="" FSO=10 S FSO=$P(^PRCD(442.3,FSO,0),"^",3)+15,X=FSO,DA=PRCFA("PODA") D ENF^PRCHSTAT
|
|---|
| 25 | K FSO Q
|
|---|
| 26 | TC ;MARK PO AS "TRANSACTION COMPLETE"
|
|---|
| 27 | S X=40,DA=PRCFA("PODA") D ENF^PRCHSTAT Q
|
|---|
| 28 | OAI ;MARK AS "OBLIGATED - AWAITING INVOICE"
|
|---|
| 29 | S X=42,DA=PRCFA("PODA") D ENF^PRCHSTAT Q
|
|---|
| 30 | OBD ;PASS OBLIGATION DATA TO CPA MODULE AND PO
|
|---|
| 31 | K PODA I $S('$D(PRCFA("PODA")):1,'$D(^PRC(442,PRCFA("PODA"),0)):1,1:0) D OUT Q
|
|---|
| 32 | S PODA=PRCFA("PODA"),PO(0)=^PRC(442,PODA,0)
|
|---|
| 33 | S AMT=+$S($P(PRCFMO,"^",12)="N":$P(PO(0),"^",16),1:$P(PO(0),"^",15))
|
|---|
| 34 | S DEL=$P(PO(0),"^",10),TRDA=$P(PO(0),"^",12) D NOW^%DTC S TIME=X
|
|---|
| 35 | I TRDA="" D G OUT
|
|---|
| 36 | . N A
|
|---|
| 37 | . S A=$P($G(^PRC(442,PRCFA("PODA"),1)),"^",15) QUIT:A=""
|
|---|
| 38 | . S A=$$DATE^PRC0C(A,"I")
|
|---|
| 39 | . S A=+PO(0)_"^"_$P(PO(0),"^",3)_"^"_$E(A,3,4)_"^"_$P(A,"^",2)_"^"_AMT
|
|---|
| 40 | . D EBAL^PRCSEZ(A,"C"),EBAL^PRCSEZ(A,"O")
|
|---|
| 41 | . QUIT
|
|---|
| 42 | I '$D(^PRCS(410,TRDA,4)) D OUT Q
|
|---|
| 43 | S X=$P(^PRCS(410,TRDA,4),"^",8),DA=TRDA D TRANK^PRCSES
|
|---|
| 44 | S $P(^PRCS(410,TRDA,9),"^",2)=DEL
|
|---|
| 45 | S X=(^PRCS(410,TRDA,4))
|
|---|
| 46 | S $P(X,"^",3,4)=AMT_"^"_TIME
|
|---|
| 47 | S $P(X,"^",8)=AMT
|
|---|
| 48 | S (^PRCS(410,TRDA,4))=X
|
|---|
| 49 | S MESSAGE=""
|
|---|
| 50 | D ENCODE^PRCSC2(DA,DUZ,.MESSAGE)
|
|---|
| 51 | K MESSAGE
|
|---|
| 52 | S X=AMT
|
|---|
| 53 | D TRANS1^PRCSES,TRANS^PRCSES
|
|---|
| 54 | OUT K CSDA,PODA,AMT,CS,PO(0),DEL,TRDA,DA,TIME
|
|---|
| 55 | Q
|
|---|
