source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDREMSG.m@ 719

Last change on this file since 719 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1XDREMSG ;SF-IRMFO/IHS/OHPRD/JCM - ERROR MESSAGE PROCESSOR ;12/2/96 12:58
2 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
3 ;;
4START ;
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
10END D EOJ
11 Q
12 ;
13BULL ;
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
25BULLX Q
26 ;
27EOJ ;
28 K XMB,XDREMSG,XDRERR
29 Q
30ERRTXT ;;
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
Note: See TracBrowser for help on using the repository browser.