source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPTHST.m@ 700

Last change on this file since 700 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1ONCPTHST ;Hines OIFO/GWB - PATIENT HISTORY ;03/08/02
2 ;;2.11;ONCOLOGY;**33,34,37**;Mar 07, 1995
3 K DR
4 S DIE="^ONCO(160,",DA=ONCOD0,DR=""
5 S DR(1,160,1)="42"
6 S DR(2,160.042)="S X=X"
7 S DR(2,160.042,1)=".01 USUAL OCCUPATION..........."
8 S DR(2,160.042,4)="3 USUAL INDUSTRY............."
9 S DR(1,160,2)="W !"
10 S DR(1,160,3)="38 TOBACCO HISTORY............"
11 S DR(1,160,4)="I X'=""Y"" K ^ONCO(160,D0,5) S Y=39"
12 S DR(1,160,5)="W !"
13 S DR(1,160,6)="40"
14 S DR(2,160.02)="S X=X"
15 S DR(2,160.02,1)=".01 TYPE OF TOBACCO USER......."
16 S DR(2,160.02,2)="1 PACK-YEARS................."
17 S DR(2,160.02,3)="2 YR QUIT TOBACCO USE........"
18 S DR(1,160,7)="W !"
19 S DR(1,160,8)="39 ALCOHOL HISTORY............"
20 S DR(1,160,9)="I X'=""Y"" K ^ONCO(160,D0,6) S Y=43"
21 S DR(1,160,10)="W !"
22 S DR(1,160,11)="41"
23 S DR(2,160.041)="S X=X"
24 S DR(2,160.041,1)=".01 TYPE OF ALCOHOL USER......."
25 S DR(2,160.041,2)="1 YRS OF ALCOHOL USE........."
26 S DR(2,160.041,3)="2 DRINKS PER DAY............."
27 S DR(2,160.041,4)="3 YR QUIT DRINKING..........."
28 S DR(1,160,12)="W !"
29 S DR(1,160,13)="43 FAMILY HISTORY OF CANCER..."
30 S DR(1,160,14)="I X=1 S Y=""@44"""
31 S DR(1,160,15)="K ^ONCO(160,DA,9)"
32 S DR(1,160,16)="S Y="""""
33 S DR(1,160,17)="@44"
34 S DR(1,160,18)="W !"
35 S DR(1,160,19)="44"
36 S DR(2,160.044)="S X=X"
37 S DR(2,160.044,1)=".01 FAMILY MEMBER WITH CANCER.."
38 S DR(2,160.044,2)="1 CANCER....................."
39 D ^DIE
40 K DR
41 Q
Note: See TracBrowser for help on using the repository browser.