XDREMSG.m

XDREMSG ;SF-IRMFO/IHS/OHPRD/JCM - ERROR MESSAGE PROCESSOR ;12/2/96  12:58 [ 04/02/2003   8:47 AM ]

 ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 ;;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

XDREMSG   ;SF-IRMFO/IHS/OHPRD/JCM - ERROR MESSAGE PROCESSOR ;12/2/96  12:58 [ 04/02/2003   8:47 AM ]

 +1       ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 +2       ;;7.3;TOOLKIT;**23**;Apr 25, 1995

 +3       ;;

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