PRCUDCT ;WISC/DJM-INDEX FMS DOCUMENT TRANSACTION REJECTS ;4/15/94 1:25 PM
V ;;5.0;IFCAP;;4/21/95
IN ;THIS ROUTINE WILL BE CALLED FROM THE 'FMS' SERVER VIA FILE 423.5
;ENTRY FOR THE DOCUMENT CONFIRMATION TRANSACTION.
;PRCDA IS THE INTERNAL ENTRY NUMBER FOR THE RECORD FROM FILE 423.6.
;Q:'$D(LEM)
N PRCMG,PRCXM,LINE,STATION,STCK,ENTRY,ENCK,MGP,NAME,DIE,DR,DA,MTI
S LINE=$G(^PRCF(423.6,PRCDA,1,10000,0))
S MGP=$O(^PRCF(423.5,"B",$P(LINE,U)_"-"_$P(LINE,U,5),0))
S MGP=$G(^PRCF(423.5,MGP,0)),PRCMG=$P($G(^XMB(3.8,$P(MGP,U,2),0)),U)
N XL S XL=1 D D PERROR^PRCODCT1 Q
.S LINE=$G(^PRCF(423.6,PRCDA,1,10000,0)) I $P(LINE,U,5)'="DCT" Q
.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
.S ENTRY=$P(LINE,U,6) I ENTRY="" S PRCXM(XL)=$P($T(ERROR+4),";;",2) Q
ENCK .Q
;
ERROR ;HERE IS THE LIST OF ERROR MESSAGES
;;This message is not identified as a Document Confirmation Transaction (DCT).
;;The STATION number sent from FMS can not be found at this location.
;;The TRANSACTION file entry returned from FMS can not be found.
;;This FMS transaction has no FMS TRANSACTION CODE.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCUDCT 1159 printed Dec 13, 2024@02:19:32 Page 2
PRCUDCT ;WISC/DJM-INDEX FMS DOCUMENT TRANSACTION REJECTS ;4/15/94 1:25 PM
V ;;5.0;IFCAP;;4/21/95
IN ;THIS ROUTINE WILL BE CALLED FROM THE 'FMS' SERVER VIA FILE 423.5
+1 ;ENTRY FOR THE DOCUMENT CONFIRMATION TRANSACTION.
+2 ;PRCDA IS THE INTERNAL ENTRY NUMBER FOR THE RECORD FROM FILE 423.6.
+3 ;Q:'$D(LEM)
+4 NEW PRCMG,PRCXM,LINE,STATION,STCK,ENTRY,ENCK,MGP,NAME,DIE,DR,DA,MTI
+5 SET LINE=$GET(^PRCF(423.6,PRCDA,1,10000,0))
+6 SET MGP=$ORDER(^PRCF(423.5,"B",$PIECE(LINE,U)_"-"_$PIECE(LINE,U,5),0))
+7 SET MGP=$GET(^PRCF(423.5,MGP,0))
SET PRCMG=$PIECE($GET(^XMB(3.8,$PIECE(MGP,U,2),0)),U)
+8 NEW XL
SET XL=1
Begin DoDot:1
+9 SET LINE=$GET(^PRCF(423.6,PRCDA,1,10000,0))
IF $PIECE(LINE,U,5)'="DCT"
QUIT
+10 SET STATION=$PIECE(LINE,U,4)
SET STCK=$ORDER(^PRC(411,"B",STATION,0))
IF STCK'>0
SET PRCXM(XL)=$PIECE($TEXT(ERROR+2),";;",2)
QUIT
+11 SET ENTRY=$PIECE(LINE,U,6)
IF ENTRY=""
SET PRCXM(XL)=$PIECE($TEXT(ERROR+4),";;",2)
QUIT
ENCK QUIT
End DoDot:1
DO PERROR^PRCODCT1
QUIT
+1 ;
ERROR ;HERE IS THE LIST OF ERROR MESSAGES
+1 ;;This message is not identified as a Document Confirmation Transaction (DCT).
+2 ;;The STATION number sent from FMS can not be found at this location.
+3 ;;The TRANSACTION file entry returned from FMS can not be found.
+4 ;;This FMS transaction has no FMS TRANSACTION CODE.