| 1 | PRCUDCT ;WISC/DJM-INDEX FMS DOCUMENT TRANSACTION REJECTS ;4/15/94 1:25 PM
|
|---|
| 2 | V ;;5.0;IFCAP;;4/21/95
|
|---|
| 3 | IN ;THIS ROUTINE WILL BE CALLED FROM THE 'FMS' SERVER VIA FILE 423.5
|
|---|
| 4 | ;ENTRY FOR THE DOCUMENT CONFIRMATION TRANSACTION.
|
|---|
| 5 | ;PRCDA IS THE INTERNAL ENTRY NUMBER FOR THE RECORD FROM FILE 423.6.
|
|---|
| 6 | ;Q:'$D(LEM)
|
|---|
| 7 | N PRCMG,PRCXM,LINE,STATION,STCK,ENTRY,ENCK,MGP,NAME,DIE,DR,DA,MTI
|
|---|
| 8 | S LINE=$G(^PRCF(423.6,PRCDA,1,10000,0))
|
|---|
| 9 | S MGP=$O(^PRCF(423.5,"B",$P(LINE,U)_"-"_$P(LINE,U,5),0))
|
|---|
| 10 | S MGP=$G(^PRCF(423.5,MGP,0)),PRCMG=$P($G(^XMB(3.8,$P(MGP,U,2),0)),U)
|
|---|
| 11 | N XL S XL=1 D D PERROR^PRCODCT1 Q
|
|---|
| 12 | .S LINE=$G(^PRCF(423.6,PRCDA,1,10000,0)) I $P(LINE,U,5)'="DCT" Q
|
|---|
| 13 | .S STATION=$P(LINE,U,4),STCK=$O(^PRC(411,"B",STATION,0)) I STCK'>0 S PRCXM(XL)=$P($T(ERROR+2),";;",2) Q
|
|---|
| 14 | .S ENTRY=$P(LINE,U,6) I ENTRY="" S PRCXM(XL)=$P($T(ERROR+4),";;",2) Q
|
|---|
| 15 | ENCK .Q
|
|---|
| 16 | ;
|
|---|
| 17 | ERROR ;HERE IS THE LIST OF ERROR MESSAGES
|
|---|
| 18 | ;;This message is not identified as a Document Confirmation Transaction (DCT).
|
|---|
| 19 | ;;The STATION number sent from FMS can not be found at this location.
|
|---|
| 20 | ;;The TRANSACTION file entry returned from FMS can not be found.
|
|---|
| 21 | ;;This FMS transaction has no FMS TRANSACTION CODE.
|
|---|
