Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XDREMSG

XDREMSG.m

Go to the documentation of this file.
  1. XDREMSG ;SF-IRMFO/IHS/OHPRD/JCM - ERROR MESSAGE PROCESSOR ;12/2/96 12:58
  1. ;;7.3;TOOLKIT;**23**;Apr 25, 1995
  1. ;;
  1. START ;
  1. S XDRQFLG=1
  1. S XDREMSG=$P($T(ERRTXT+XDRERR),";; ",2)
  1. S ^XTMP("XDRERR",XDRFL)=XDREMSG
  1. I '$D(ZTQUEUED) W !,XDREMSG,!
  1. E D BULL
  1. END D EOJ
  1. Q
  1. ;
  1. BULL ;
  1. G:'$D(XDRD("DMAILGRP")) BULLX
  1. F XDRI=0:0 S XDRI=$O(XDRD("DMAILGRP",XDRI)) Q:'XDRI S XMY(XDRI)=""
  1. K XDRI
  1. S XMB="XDR ERROR"
  1. S:$D(XDRFL) XMB(1)=$P(^DIC(XDRFL,0),U)
  1. S:$D(XDRMRG("FR")) XMB(2)=XDRMRG("FR")
  1. S:$D(XDRMRG("TO")) XMB(3)=XDRMRG("TO")
  1. I $D(XDRGL),$D(XDRMRG("FR")),$D(@(XDRGL_XDRMRG("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMRG("FR")_",0)"),U)
  1. I $D(XDRGL),$D(XDRMRG("TO")),$D(@(XDRGL_XDRMRG("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMRG("TO")_",0)"),U)
  1. S XMB(6)=XDREMSG,XMDUZ=.5
  1. D ^XMB K XMB,XMDUZ
  1. BULLX Q
  1. ;
  1. EOJ ;
  1. K XMB,XDREMSG,XDRERR
  1. Q
  1. ERRTXT ;;
  1. ;; The Candidate Collection Routine is Undefined
  1. ;; The Candidate Collection Routine is not present
  1. ;; The Potential Duplicate Threshold is Undefined
  1. ;; There are no Duplicate Tests entered for this Duplicate Resolution entry
  1. ;; The Global root node in DIC is undefined
  1. ;; No entry in Duplicate Resolution file for this file
  1. ;; The From and To Record are undefined
  1. ;; The test routine is not present
  1. ;; The routine defined as the Pre-Merge routine is not present
  1. ;; The routine defined as the Post-Merge routine is not present
  1. ;; The routine defined as the Verified Msg routine is not present
  1. ;; The routine defined as the Merged Msg routine is not present
  1. ;; You can not have a 'Non-Interactive' merge style with entries in the Dinum Files multiple
  1. ;; The file for checking duplicates is not defined (XDRFL)
  1. ;; The entry for checking duplicates is not defined (XDRCD)
  1. ;; The routine defined as the Merge Direction input transform routine is not present
  1. ;; The NEW x-ref has not been entered for this Duplicate Resolution entry