LRIPOSXM.m

LRIPOSXM ;DALISC/PAC - SEND MAIL MESSAGE TO LAB DEVELOPERS ;7/10/92  12:35

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

EN ;

 Q:'$D(DIFQ)  S LRVR0=$P($T(+2),";",3)

 S LRTXT(2)="@"_$P($G(^DIC(4.2,$P(^XMB(1,1,0),U),0)),U)_"."

 ;The distributing ISC should edit the following line to the correct

 ;Domain and mail group

 S XMDUZ=DUZ,XMSUB="LAB PKG V"_LRVR0_" INSTALL"_LRTXT(2),XMTEXT="LRTXT(",XMY("G.LAB@DOMAIN.NAME")=""

 S LRTXT(1)="The Laboratory package V"_LRVR0_" has been installed " D ^XMD

EXIT K XMDUZ,XMSUB,XMTEXT,LRTXT Q  ;D ^LRINITY Q

LRIPOSXM  ;DALISC/PAC - SEND MAIL MESSAGE TO LAB DEVELOPERS ;7/10/92  12:35

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

EN        ;

 +1        IF '$DATA(DIFQ)

               QUIT 

           SET LRVR0=$PIECE($TEXT(+2),";",3)

 +2        SET LRTXT(2)="@"_$PIECE($GET(^DIC(4.2,$PIECE(^XMB(1,1,0),U),0)),U)_"."

 +3       ;The distributing ISC should edit the following line to the correct

 +4       ;Domain and mail group

 +5        SET XMDUZ=DUZ

           SET XMSUB="LAB PKG V"_LRVR0_" INSTALL"_LRTXT(2)

           SET XMTEXT="LRTXT("

           SET XMY("G.LAB@DOMAIN.NAME")=""

 +6        SET LRTXT(1)="The Laboratory package V"_LRVR0_" has been installed "

           DO ^XMD

EXIT      ;D ^LRINITY Q

           KILL XMDUZ,XMSUB,XMTEXT,LRTXT

           QUIT