ONCPTHST ;Hines OIFO/GWB - PATIENT HISTORY ;10/07/11
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
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=1007"
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,6.1)="W !"
S DR(1,160,6.2)="1007 TOBACCO USE CIGARETTE......"
S DR(1,160,6.3)="1008 TOBACCO USE OTHER SMOKE...."
S DR(1,160,6.4)="1009 TOBACCO USE SMOKELESS......"
S DR(1,160,6.5)="1010 TOBACCO USE, NOS..........."
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
;
CLEANUP ;Cleanup
K DA,DIE,ONCOD0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPTHST 1758 printed Dec 13, 2024@02:27:37 Page 2
ONCPTHST ;Hines OIFO/GWB - PATIENT HISTORY ;10/07/11
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 KILL DR
+4 SET DIE="^ONCO(160,"
SET DA=ONCOD0
SET DR=""
+5 SET DR(1,160,1)="42"
+6 SET DR(2,160.042)="S X=X"
+7 SET DR(2,160.042,1)=".01 USUAL OCCUPATION..........."
+8 SET DR(2,160.042,4)="3 USUAL INDUSTRY............."
+9 SET DR(1,160,2)="W !"
+10 SET DR(1,160,3)="38 TOBACCO HISTORY............"
+11 SET DR(1,160,4)="I X'=""Y"" K ^ONCO(160,D0,5) S Y=1007"
+12 SET DR(1,160,5)="W !"
+13 SET DR(1,160,6)="40"
+14 SET DR(2,160.02)="S X=X"
+15 SET DR(2,160.02,1)=".01 TYPE OF TOBACCO USER......."
+16 SET DR(2,160.02,2)="1 PACK-YEARS................."
+17 SET DR(2,160.02,3)="2 YR QUIT TOBACCO USE........"
+18 SET DR(1,160,6.1)="W !"
+19 SET DR(1,160,6.2)="1007 TOBACCO USE CIGARETTE......"
+20 SET DR(1,160,6.3)="1008 TOBACCO USE OTHER SMOKE...."
+21 SET DR(1,160,6.4)="1009 TOBACCO USE SMOKELESS......"
+22 SET DR(1,160,6.5)="1010 TOBACCO USE, NOS..........."
+23 SET DR(1,160,7)="W !"
+24 SET DR(1,160,8)="39 ALCOHOL HISTORY............"
+25 SET DR(1,160,9)="I X'=""Y"" K ^ONCO(160,D0,6) S Y=43"
+26 SET DR(1,160,10)="W !"
+27 SET DR(1,160,11)="41"
+28 SET DR(2,160.041)="S X=X"
+29 SET DR(2,160.041,1)=".01 TYPE OF ALCOHOL USER......."
+30 SET DR(2,160.041,2)="1 YRS OF ALCOHOL USE........."
+31 SET DR(2,160.041,3)="2 DRINKS PER DAY............."
+32 SET DR(2,160.041,4)="3 YR QUIT DRINKING..........."
+33 SET DR(1,160,12)="W !"
+34 SET DR(1,160,13)="43 FAMILY HISTORY OF CANCER..."
+35 SET DR(1,160,14)="I X=1 S Y=""@44"""
+36 SET DR(1,160,15)="K ^ONCO(160,DA,9)"
+37 SET DR(1,160,16)="S Y="""""
+38 SET DR(1,160,17)="@44"
+39 SET DR(1,160,18)="W !"
+40 SET DR(1,160,19)="44"
+41 SET DR(2,160.044)="S X=X"
+42 SET DR(2,160.044,1)=".01 FAMILY MEMBER WITH CANCER.."
+43 SET DR(2,160.044,2)="1 CANCER....................."
+44 DO ^DIE
+45 KILL DR
+46 QUIT
+47 ;
CLEANUP ;Cleanup
+1 KILL DA,DIE,ONCOD0
