Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP6D712

BGP6D712.m

Go to the documentation of this file.
  1. BGP6D712 ; IHS/CMI/LAB - TOBACCO HF ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;IHS/CMI/LAB
  1. TOBHF(P,BDATE,EDATE) ;EP - return DATE^SMOKER CAT^DATE^SMOKELESS CAT^DATE^ETS CATEGORY
  1. NEW SM,SL,EX,BGPTOB
  1. S BGPTOB=""
  1. S SM=$$LASTHF^BGP6D7(P,"TOBACCO (SMOKING)",BDATE,EDATE) K O,D,H
  1. S SL=$$LASTHF^BGP6D7(P,"TOBACCO (SMOKELESS - CHEWING/DIP)",BDATE,EDATE) K O,D,H
  1. S EX=$$LASTHF^BGP6D7(P,"TOBACCO (EXPOSURE)",BDATE,EDATE) K O,D,H
  1. I SM]""!(SL]"")!(EX]"") D TOBHFS Q BGPTOB
  1. S BGPTOB=$$LASTHF^BGP6D7(P,"TOBACCO",BDATE,EDATE) K O,D,H
  1. I $P(BGPTOB,U,1)["SMOKELESS" S $P(BGPTOB,U,4)=BGPTOB
  1. I $P(BGPTOB,U,1)["ENVIRON"!($P(BGPTOB,U,1)["IN HOME") S $P(BGPTOB,U,7)=BGPTOB
  1. Q BGPTOB
  1. TOBHFS ;
  1. I SM]"" S BGPTOB=SM
  1. I SL]"" S $P(BGPTOB,U,4)=SL
  1. I EX]"" S $P(BGPTOB,U,7)=EX
  1. Q