XDRMSG.m

XDRMSG ;IHS/OHPRD/JCM - SENDS VARIOUS DUPLICATE MESSAGES;   [ 08/13/92  09:50 AM ]

 ;;7.3;TOOLKIT;;Apr 25, 1995

START ;

 K XMB,XMY,XMTEXT

 D:$D(XDRMSG) @XDRMSG

END D EOJ

 Q

 ;

VERIFY ;

 I $D(XDRM("VERIFY-MSG")) D @XDRM("VERIFY-MSG") G VERIFYX

 I '$D(XDRM("VMAILGRP")) G VERIFYX

 F XDRI=0:0 S XDRI=$O(XDRD("VMAILGRP",XDRI)) Q:'XDRI  S XMY(XDRI)=""

 K XDRI

 S XMB="XDR VERIFIED",XMB(2)=XDRMAIN("FR"),XMB(3)=XDRMAIN("TO")

 I $D(@(XDRGL_XDRMAIN("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)

 I $D(@(XDRGL_XDRMAIN("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)

 D SEND

VERIFYX Q

 ;

MERGED ;

 I $D(XDRM("MERGE-MSG")) D @XDRM("MERGE-MSG") G MERGEDX

 I '$D(XDRM("MMAILGRP")) G MERGEDX

 F XDRI=0:0 S XDRI=$O(XDRM("MMAILGRP",XDRI)) Q:'XDRI  S XMY(XDRI)=""

 K XDRI

 S XMB="XDR MERGED",XMB(2)=XDRMAIN("FR"),XMB(3)=XDRMAIN("TO")

 I $D(XDRMERR)>9 S XMTEXT="XDRMERR("

 I $D(@(XDRGL_XDRMAIN("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)

 I $D(@(XDRGL_XDRMAIN("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)

 D SEND

MERGEDX Q

 ;

SEND ;

 I $D(@(XDRGL_XDRMAIN("FR")_",0)"))

 S XMDUZ=.5,XMB(1)=$P(^DIC(XDRFL,0),U,1)

 D ^XMB

 Q

 ;

EOJ ;

 K XMB,XMTEXT,XDRMERR,XMDUZ,XDRMSG

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XDRMSG   1247     printed  Apr 09, 2024@21:43:31                                                                                                                                                                                                      Page 2

XDRMSG    ;IHS/OHPRD/JCM - SENDS VARIOUS DUPLICATE MESSAGES;   [ 08/13/92  09:50 AM ]

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

START     ;

 +1        KILL XMB,XMY,XMTEXT

 +2        if $DATA(XDRMSG)

               DO @XDRMSG

END        DO EOJ

 +1        QUIT 

 +2       ;

VERIFY    ;

 +1        IF $DATA(XDRM("VERIFY-MSG"))

               DO @XDRM("VERIFY-MSG")

               GOTO VERIFYX

 +2        IF '$DATA(XDRM("VMAILGRP"))

               GOTO VERIFYX

 +3        FOR XDRI=0:0

               SET XDRI=$ORDER(XDRD("VMAILGRP",XDRI))

               if 'XDRI

                   QUIT 

               SET XMY(XDRI)=""

 +4        KILL XDRI

 +5        SET XMB="XDR VERIFIED"

           SET XMB(2)=XDRMAIN("FR")

           SET XMB(3)=XDRMAIN("TO")

 +6        IF $DATA(@(XDRGL_XDRMAIN("FR")_",0)"))

               SET XMB(4)=$PIECE(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)

 +7        IF $DATA(@(XDRGL_XDRMAIN("TO")_",0)"))

               SET XMB(5)=$PIECE(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)

 +8        DO SEND

VERIFYX    QUIT 

 +1       ;

MERGED    ;

 +1        IF $DATA(XDRM("MERGE-MSG"))

               DO @XDRM("MERGE-MSG")

               GOTO MERGEDX

 +2        IF '$DATA(XDRM("MMAILGRP"))

               GOTO MERGEDX

 +3        FOR XDRI=0:0

               SET XDRI=$ORDER(XDRM("MMAILGRP",XDRI))

               if 'XDRI

                   QUIT 

               SET XMY(XDRI)=""

 +4        KILL XDRI

 +5        SET XMB="XDR MERGED"

           SET XMB(2)=XDRMAIN("FR")

           SET XMB(3)=XDRMAIN("TO")

 +6        IF $DATA(XDRMERR)>9

               SET XMTEXT="XDRMERR("

 +7        IF $DATA(@(XDRGL_XDRMAIN("FR")_",0)"))

               SET XMB(4)=$PIECE(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)

 +8        IF $DATA(@(XDRGL_XDRMAIN("TO")_",0)"))

               SET XMB(5)=$PIECE(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)

 +9        DO SEND

MERGEDX    QUIT 

 +1       ;

SEND      ;

 +1        IF $DATA(@(XDRGL_XDRMAIN("FR")_",0)"))

 +2        SET XMDUZ=.5

           SET XMB(1)=$PIECE(^DIC(XDRFL,0),U,1)

 +3        DO ^XMB

 +4        QUIT 

 +5       ;

EOJ       ;

 +1        KILL XMB,XMTEXT,XDRMERR,XMDUZ,XDRMSG

 +2        QUIT