- 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 Feb 19, 2025@00:05:49 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