XDREMSG ;SF-IRMFO/IHS/OHPRD/JCM - ERROR MESSAGE PROCESSOR ;12/2/96 12:58
;;7.3;TOOLKIT;**23**;Apr 25, 1995
;;
START ;
S XDRQFLG=1
S XDREMSG=$P($T(ERRTXT+XDRERR),";; ",2)
S ^XTMP("XDRERR",XDRFL)=XDREMSG
I '$D(ZTQUEUED) W !,XDREMSG,!
E D BULL
END D EOJ
Q
;
BULL ;
G:'$D(XDRD("DMAILGRP")) BULLX
F XDRI=0:0 S XDRI=$O(XDRD("DMAILGRP",XDRI)) Q:'XDRI S XMY(XDRI)=""
K XDRI
S XMB="XDR ERROR"
S:$D(XDRFL) XMB(1)=$P(^DIC(XDRFL,0),U)
S:$D(XDRMRG("FR")) XMB(2)=XDRMRG("FR")
S:$D(XDRMRG("TO")) XMB(3)=XDRMRG("TO")
I $D(XDRGL),$D(XDRMRG("FR")),$D(@(XDRGL_XDRMRG("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMRG("FR")_",0)"),U)
I $D(XDRGL),$D(XDRMRG("TO")),$D(@(XDRGL_XDRMRG("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMRG("TO")_",0)"),U)
S XMB(6)=XDREMSG,XMDUZ=.5
D ^XMB K XMB,XMDUZ
BULLX Q
;
EOJ ;
K XMB,XDREMSG,XDRERR
Q
ERRTXT ;;
;; The Candidate Collection Routine is Undefined
;; The Candidate Collection Routine is not present
;; The Potential Duplicate Threshold is Undefined
;; There are no Duplicate Tests entered for this Duplicate Resolution entry
;; The Global root node in DIC is undefined
;; No entry in Duplicate Resolution file for this file
;; The From and To Record are undefined
;; The test routine is not present
;; The routine defined as the Pre-Merge routine is not present
;; The routine defined as the Post-Merge routine is not present
;; The routine defined as the Verified Msg routine is not present
;; The routine defined as the Merged Msg routine is not present
;; You can not have a 'Non-Interactive' merge style with entries in the Dinum Files multiple
;; The file for checking duplicates is not defined (XDRFL)
;; The entry for checking duplicates is not defined (XDRCD)
;; The routine defined as the Merge Direction input transform routine is not present
;; The NEW x-ref has not been entered for this Duplicate Resolution entry
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXDREMSG 1921 printed Dec 13, 2024@02:39:21 Page 2
XDREMSG ;SF-IRMFO/IHS/OHPRD/JCM - ERROR MESSAGE PROCESSOR ;12/2/96 12:58
+1 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
+2 ;;
START ;
+1 SET XDRQFLG=1
+2 SET XDREMSG=$PIECE($TEXT(ERRTXT+XDRERR),";; ",2)
+3 SET ^XTMP("XDRERR",XDRFL)=XDREMSG
+4 IF '$DATA(ZTQUEUED)
WRITE !,XDREMSG,!
+5 IF '$TEST
DO BULL
END DO EOJ
+1 QUIT
+2 ;
BULL ;
+1 if '$DATA(XDRD("DMAILGRP"))
GOTO BULLX
+2 FOR XDRI=0:0
SET XDRI=$ORDER(XDRD("DMAILGRP",XDRI))
if 'XDRI
QUIT
SET XMY(XDRI)=""
+3 KILL XDRI
+4 SET XMB="XDR ERROR"
+5 if $DATA(XDRFL)
SET XMB(1)=$PIECE(^DIC(XDRFL,0),U)
+6 if $DATA(XDRMRG("FR"))
SET XMB(2)=XDRMRG("FR")
+7 if $DATA(XDRMRG("TO"))
SET XMB(3)=XDRMRG("TO")
+8 IF $DATA(XDRGL)
IF $DATA(XDRMRG("FR"))
IF $DATA(@(XDRGL_XDRMRG("FR")_",0)"))
SET XMB(4)=$PIECE(@(XDRGL_XDRMRG("FR")_",0)"),U)
+9 IF $DATA(XDRGL)
IF $DATA(XDRMRG("TO"))
IF $DATA(@(XDRGL_XDRMRG("TO")_",0)"))
SET XMB(5)=$PIECE(@(XDRGL_XDRMRG("TO")_",0)"),U)
+10 SET XMB(6)=XDREMSG
SET XMDUZ=.5
+11 DO ^XMB
KILL XMB,XMDUZ
BULLX QUIT
+1 ;
EOJ ;
+1 KILL XMB,XDREMSG,XDRERR
+2 QUIT
ERRTXT ;;
+1 ;; The Candidate Collection Routine is Undefined
+2 ;; The Candidate Collection Routine is not present
+3 ;; The Potential Duplicate Threshold is Undefined
+4 ;; There are no Duplicate Tests entered for this Duplicate Resolution entry
+5 ;; The Global root node in DIC is undefined
+6 ;; No entry in Duplicate Resolution file for this file
+7 ;; The From and To Record are undefined
+8 ;; The test routine is not present
+9 ;; The routine defined as the Pre-Merge routine is not present
+10 ;; The routine defined as the Post-Merge routine is not present
+11 ;; The routine defined as the Verified Msg routine is not present
+12 ;; The routine defined as the Merged Msg routine is not present
+13 ;; You can not have a 'Non-Interactive' merge style with entries in the Dinum Files multiple
+14 ;; The file for checking duplicates is not defined (XDRFL)
+15 ;; The entry for checking duplicates is not defined (XDRCD)
+16 ;; The routine defined as the Merge Direction input transform routine is not present
+17 ;; The NEW x-ref has not been entered for this Duplicate Resolution entry
