| 1 | XDREMSG ;SF-IRMFO/IHS/OHPRD/JCM - ERROR MESSAGE PROCESSOR ;12/2/96 12:58
|
|---|
| 2 | ;;7.3;TOOLKIT;**23**;Apr 25, 1995
|
|---|
| 3 | ;;
|
|---|
| 4 | START ;
|
|---|
| 5 | S XDRQFLG=1
|
|---|
| 6 | S XDREMSG=$P($T(ERRTXT+XDRERR),";; ",2)
|
|---|
| 7 | S ^XTMP("XDRERR",XDRFL)=XDREMSG
|
|---|
| 8 | I '$D(ZTQUEUED) W !,XDREMSG,!
|
|---|
| 9 | E D BULL
|
|---|
| 10 | END D EOJ
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | BULL ;
|
|---|
| 14 | G:'$D(XDRD("DMAILGRP")) BULLX
|
|---|
| 15 | F XDRI=0:0 S XDRI=$O(XDRD("DMAILGRP",XDRI)) Q:'XDRI S XMY(XDRI)=""
|
|---|
| 16 | K XDRI
|
|---|
| 17 | S XMB="XDR ERROR"
|
|---|
| 18 | S:$D(XDRFL) XMB(1)=$P(^DIC(XDRFL,0),U)
|
|---|
| 19 | S:$D(XDRMRG("FR")) XMB(2)=XDRMRG("FR")
|
|---|
| 20 | S:$D(XDRMRG("TO")) XMB(3)=XDRMRG("TO")
|
|---|
| 21 | I $D(XDRGL),$D(XDRMRG("FR")),$D(@(XDRGL_XDRMRG("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMRG("FR")_",0)"),U)
|
|---|
| 22 | I $D(XDRGL),$D(XDRMRG("TO")),$D(@(XDRGL_XDRMRG("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMRG("TO")_",0)"),U)
|
|---|
| 23 | S XMB(6)=XDREMSG,XMDUZ=.5
|
|---|
| 24 | D ^XMB K XMB,XMDUZ
|
|---|
| 25 | BULLX Q
|
|---|
| 26 | ;
|
|---|
| 27 | EOJ ;
|
|---|
| 28 | K XMB,XDREMSG,XDRERR
|
|---|
| 29 | Q
|
|---|
| 30 | ERRTXT ;;
|
|---|
| 31 | ;; The Candidate Collection Routine is Undefined
|
|---|
| 32 | ;; The Candidate Collection Routine is not present
|
|---|
| 33 | ;; The Potential Duplicate Threshold is Undefined
|
|---|
| 34 | ;; There are no Duplicate Tests entered for this Duplicate Resolution entry
|
|---|
| 35 | ;; The Global root node in DIC is undefined
|
|---|
| 36 | ;; No entry in Duplicate Resolution file for this file
|
|---|
| 37 | ;; The From and To Record are undefined
|
|---|
| 38 | ;; The test routine is not present
|
|---|
| 39 | ;; The routine defined as the Pre-Merge routine is not present
|
|---|
| 40 | ;; The routine defined as the Post-Merge routine is not present
|
|---|
| 41 | ;; The routine defined as the Verified Msg routine is not present
|
|---|
| 42 | ;; The routine defined as the Merged Msg routine is not present
|
|---|
| 43 | ;; You can not have a 'Non-Interactive' merge style with entries in the Dinum Files multiple
|
|---|
| 44 | ;; The file for checking duplicates is not defined (XDRFL)
|
|---|
| 45 | ;; The entry for checking duplicates is not defined (XDRCD)
|
|---|
| 46 | ;; The routine defined as the Merge Direction input transform routine is not present
|
|---|
| 47 | ;; The NEW x-ref has not been entered for this Duplicate Resolution entry
|
|---|
