LRUMSG.m

LRUMSG ;AVAMC/REG - SEND SPECIAL MESSAGE ; 12/14/88  09:16 ;

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

 ;Per VHA Directive 97-033 this routine should not be modified.  Medical Device # BK970021

 K XMY,XMDUZ,XMSUB,XMTEXT S XMDUZ=DUZ F A=0:0 S A=$O(^XUSEC(LR("KEY"),A)) Q:'A  S XMY(A)=""

 Q:'$D(XMY)

 S XMSUB=LR("SUB"),XMTEXT="LR(""TXT""," D ^XMD K XMY,LR("TXT"),LR("SUB"),XMSUB,XMDUZ,LR("KEY") Q

 ;XMY= local array of users's DUZ's

 ;XMDUZ= sender's DUZ

 ;XMSUB=subject of message ;LR("TXT") variable passed from a routine

 ;XMTEXT= name of message array for mailman

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRUMSG   574     printed  Apr 09, 2024@21:11:35                                                                                                                                                                                                       Page 2

LRUMSG    ;AVAMC/REG - SEND SPECIAL MESSAGE ; 12/14/88  09:16 ;

 +1       ;;5.2;LAB SERVICE;**247**;Sep 27, 1994

 +2       ;Per VHA Directive 97-033 this routine should not be modified.  Medical Device # BK970021

 +3        KILL XMY,XMDUZ,XMSUB,XMTEXT

           SET XMDUZ=DUZ

           FOR A=0:0

               SET A=$ORDER(^XUSEC(LR("KEY"),A))

               if 'A

                   QUIT 

               SET XMY(A)=""

 +4        if '$DATA(XMY)

               QUIT 

 +5        SET XMSUB=LR("SUB")

           SET XMTEXT="LR(""TXT"","

           DO ^XMD

           KILL XMY,LR("TXT"),LR("SUB"),XMSUB,XMDUZ,LR("KEY")

           QUIT 

 +6       ;XMY= local array of users's DUZ's

 +7       ;XMDUZ= sender's DUZ

 +8       ;XMSUB=subject of message ;LR("TXT") variable passed from a routine

 +9       ;XMTEXT= name of message array for mailman