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.041

Package: Oncology

ONCOLOGY PATIENT(#160)-->160.041

Sub-Field: 160.041

Information

Parent File	Name	Number	Package
ONCOLOGY PATIENT(#160)	ALCOHOL USAGE	160.041	Oncology

Details

Field #	Name	Loc	Type	Details
.01	TYPE OF ALCOHOL USER	0;1	SET	'B' FOR BEER; 'W' FOR WINE; 'H' FOR HARD LIQUOR; 'M' FOR MODERATE/SOCIAL; 'S' FOR SERIOUS/HEAVY; 'U' FOR UNKNOWN; LAST EDITED: `JAN 06, 1992` DESCRIPTION: `This is a code indicating the kind or frequency of patient's alcohol consumption.`
1	YRS OF ALCOHOL USE	0;2	NUMBER	INPUT TRANSFORM: `S:X["U" X="U" Q:X="U" K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `S:Y="U" Y="Unknown"` LAST EDITED: `FEB 12, 1992` HELP-PROMPT: `Type a Number between 0 and 99, or "U","Unk" for Unknown` DESCRIPTION: `This is the number of years that patient consumed alcohol.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	DRINKS PER DAY	0;3	NUMBER	INPUT TRANSFORM: `S:X["U" X="U" Q:X="U" K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `S:Y="U" Y="Unknown"` LAST EDITED: `AUG 27, 1993` HELP-PROMPT: `Enter amount of alcohol consumed per day in whiskey equivalents.` DESCRIPTION: `Number of whiskey equivalents consumed per day.` TECHNICAL DESCR: `This field allows for the entry of alcohol consumption in terms of whiskey equivalents.` EXECUTABLE HELP: `I X="??" D ^ONCOHELP ;S XQH="ONCO DRINKS/DAY" D EN^XQH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	YR QUIT DRINKING	0;4	DATE	INPUT TRANSFORM: `S:X["U" S="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":"Unknown",1:Y) D:Y?1.N DD^%DT` LAST EDITED: `DEC 19, 1996` DESCRIPTION: `This is the year in which patient stopped consuming alcohol, if applicable.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`