ONCPTHST.m

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 ---ONCPTHST   1758     printed  Apr 09, 2024@21:24:28                                                                                                                                                                                                    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