BEHODMA.m

BEHODMA ;IHS/MSC/PLS - DIRECT Email support;30-Jun-2016 13:40;PLS

 ;;1.1;BEH COMPONENTS;**069001**;Mar 20, 2007

 ;Returns DIRECT email address for patient

 ; Input - Patient IEN (DFN)

 ;Output - String

PTEMADR(DATA,DFN) ;EP-

 S DATA=""

 D PHR^BPHRMUPM(DFN,,,.DATA)

 S DATA=$P(DATA,U,7)

 Q

 ;

BEHODMA   ;IHS/MSC/PLS - DIRECT Email support;30-Jun-2016 13:40;PLS

 +1       ;;1.1;BEH COMPONENTS;**069001**;Mar 20, 2007

 +2       ;Returns DIRECT email address for patient

 +3       ; Input - Patient IEN (DFN)

 +4       ;Output - String

PTEMADR(DATA,DFN) ;EP-

 +1        SET DATA=""

 +2        DO PHR^BPHRMUPM(DFN,,,.DATA)

 +3        SET DATA=$PIECE(DATA,U,7)

 +4        QUIT 

 +5       ;