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

Print Page as PDF

Sub-Field: 160.02

Package: Oncology

ONCOLOGY PATIENT(#160)-->160.02

Sub-Field: 160.02

Information

Parent File	Name	Number	Package
ONCOLOGY PATIENT(#160)	TOBACCO USAGE	160.02	Oncology

Details

Field # Name Loc Type Details

TYPE OF TOBACCO USER

0;1

SET

'1' FOR CIGARETTE;
'2' FOR CIGARS;
'3' FOR PIPE;
'4' FOR CHEWING TOBACCO;
'5' FOR SNUFF;
'6' FOR MARIJUANA;
'7' FOR MORE THAN 1 TYPE;
'8' FOR UNKNOWN;

LAST EDITED: JUN 20, 1990
DESCRIPTION:
This is the code that describes the patient's tobacco use.

PACK-YEARS

0;2

NUMBER

INPUT TRANSFORM: S:X["U" X="U" Q:X="U" K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S:Y="U" Y="Unknown"
LAST EDITED: AUG 27, 1993
HELP-PROMPT: Enter the # of packs smoked per day times # of years, 0 to 400; or U for Unknown
DESCRIPTION: Enter the number of packs smoked per day times the number of years.
Example: 2 packs per day for 10 years equals 20 pack-years.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

YR QUIT TOBACCO USE

0;3

DATE

INPUT TRANSFORM: S:X["U" X="U" Q:X="U" S %DT="E",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
OUTPUT TRANSFORM: S Y=$S(Y'="U":Y,1:"Unknown") D:Y?1.N DD^%DT
LAST EDITED: DEC 19, 1996
DESCRIPTION:
This is the year in which the patient quit using tobacco.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER