VEPEUTL ;EHR/DAOU/JLG - Utility Functions ; 2/7/05 9:40pm
 ;;1.0;t1;EHR VO UTILITIES;;Build 1
 ;
FNAME(DFN) ;Patient First name
 N FULNAME,FIRSTN
 S FULNAME=$$NAME^TIULO(DFN)
 S FIRSTN=$P($P(FULNAME,",",2)," ",1)
 I FIRSTN="" S FIRSTN="UNKNOWN"
 Q FIRSTN
 ;
BMI(DFN) ;Patient body mass index
 N PTWT,PTHT,BMI
 S PTWT=$$WEIGHT^TIULO(DFN)
 S PTHT=$$HEIGHT^TIULO(DFN)
 I PTWT,PTHT D
 .S BMI=703*(PTWT/(PTHT**2))+.5\1
 E  S BMI="UNK"
 Q BMI
 ;
PATID(DFN) ;Patient id (either SSN or HRN)
 ;At this stage it returns SSN if it exits.  Will probably need to
 ;be modified to return HRN even if SSN exists.
 N PATID
 S PATID=$$SSN^TIULO(DFN)
 I PATID["SSN" D
 .S PATID=$$HRN^AUPNPAT3(DFN,DUZ(2))
 .I PATID,$L(PATID)<7 S PATID="HRN-"_PATID Q
 .S PATID="UNKNOWN"
 Q PATID