ONCPTHST ;Hines OIFO/GWB - PATIENT HISTORY ;03/08/02
 ;;2.11;ONCOLOGY;**33,34,37**;Mar 07, 1995
 K DR
 S DIE="^ONCO(160,",DA=ONCOD0,DR=""
 S DR(1,160,1)="42"
 S DR(2,160.042)="S X=X"
 S DR(2,160.042,1)=".01  USUAL OCCUPATION..........."
 S DR(2,160.042,4)="3  USUAL INDUSTRY............."
 S DR(1,160,2)="W !"
 S DR(1,160,3)="38    TOBACCO HISTORY............"
 S DR(1,160,4)="I X'=""Y"" K ^ONCO(160,D0,5) S Y=39"
 S DR(1,160,5)="W !"
 S DR(1,160,6)="40"
 S DR(2,160.02)="S X=X"
 S DR(2,160.02,1)=".01  TYPE OF TOBACCO USER......."
 S DR(2,160.02,2)="1  PACK-YEARS................."
 S DR(2,160.02,3)="2  YR QUIT TOBACCO USE........"
 S DR(1,160,7)="W !"
 S DR(1,160,8)="39    ALCOHOL HISTORY............"
 S DR(1,160,9)="I X'=""Y"" K ^ONCO(160,D0,6) S Y=43"
 S DR(1,160,10)="W !"
 S DR(1,160,11)="41"
 S DR(2,160.041)="S X=X"
 S DR(2,160.041,1)=".01  TYPE OF ALCOHOL USER......."
 S DR(2,160.041,2)="1  YRS OF ALCOHOL USE........."
 S DR(2,160.041,3)="2  DRINKS PER DAY............."
 S DR(2,160.041,4)="3  YR QUIT DRINKING..........."
 S DR(1,160,12)="W !"
 S DR(1,160,13)="43    FAMILY HISTORY OF CANCER..."
 S DR(1,160,14)="I X=1 S Y=""@44"""
 S DR(1,160,15)="K ^ONCO(160,DA,9)"
 S DR(1,160,16)="S Y="""""
 S DR(1,160,17)="@44"
 S DR(1,160,18)="W !"
 S DR(1,160,19)="44"
 S DR(2,160.044)="S X=X"
 S DR(2,160.044,1)=".01  FAMILY MEMBER WITH CANCER.."
 S DR(2,160.044,2)="1  CANCER....................."
 D ^DIE
 K DR
 Q