| 1 | ONCPDI ;Hines OIFO/GWB - Patient information; 9/24/97
|
|---|
| 2 | ;;2.11;ONCOLOGY;**18,27,33,34,37,45**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | PRT N DI,DIC,DR,DA,DIQ
|
|---|
| 5 | K ONC
|
|---|
| 6 | S DIC="^ONCO(160,",DR="7;8;8.1;8.2;8.3;8.4;9;10;25;25.1;25.2;25.3;25.4;25.5;25.6;25.7;25.8;25.9;48;50;51;52;61;55;56"
|
|---|
| 7 | S DA=D0,DIQ="ONC"
|
|---|
| 8 | D EN^DIQ1
|
|---|
| 9 | F I=7,8,8.1,8.2,8.3,8.4,9,10,48,50,51,52,61,55,56 S X=ONC(160,D0,I) D UCASE^ONCPCI S ONC(160,D0,I)=X
|
|---|
| 10 | W !
|
|---|
| 11 | W !," Place of birth.............: ",ONC(160,D0,7)
|
|---|
| 12 | W !," Race 1.....................: ",ONC(160,D0,8)
|
|---|
| 13 | W !," Race 2.....................: ",ONC(160,D0,8.1)
|
|---|
| 14 | W !," Race 3.....................: ",ONC(160,D0,8.2)
|
|---|
| 15 | W !," Race 4.....................: ",ONC(160,D0,8.3)
|
|---|
| 16 | W !," Race 5.....................: ",ONC(160,D0,8.4)
|
|---|
| 17 | W !," Spanish origin.............: ",ONC(160,D0,9)
|
|---|
| 18 | W !," Sex........................: ",ONC(160,D0,10)
|
|---|
| 19 | W !," Agent Orange exposure......: ",ONC(160,D0,48)
|
|---|
| 20 | W !," Ionizing radiation exposure: ",ONC(160,D0,50)
|
|---|
| 21 | W !," Chemical exposure..........: ",ONC(160,D0,52)
|
|---|
| 22 | W !," Asbestos exposure..........: ",ONC(160,D0,61)
|
|---|
| 23 | W !," Persian Gulf service.......: ",ONC(160,D0,51)
|
|---|
| 24 | W !," Middle East service........: ",ONC(160,D0,55)
|
|---|
| 25 | W !," Somalia service............: ",ONC(160,D0,56)
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | PH ;Patient History
|
|---|
| 29 | K ONC S IEN=D0_","
|
|---|
| 30 | D GETS^DIQ(160,IEN,"38;39;42*;43;44*","","ONC")
|
|---|
| 31 | F I=38,39,43 S X=ONC(160,D0_",",I) D UCASE^ONCPCI S ONC(160,D0_",",I)=X
|
|---|
| 32 | W @IOF
|
|---|
| 33 | S SUB=0 F S SUB=$O(ONC(160.042,SUB)) Q:SUB'>0 D
|
|---|
| 34 | .W !," Usual Occupation...........: ",ONC(160.042,SUB,.01)
|
|---|
| 35 | .W !," Usual Industry.............: ",ONC(160.042,SUB,3)
|
|---|
| 36 | .W !
|
|---|
| 37 | W !," Tobacco History............: ",ONC(160,IEN,38)
|
|---|
| 38 | W !," Alcohol History............: ",ONC(160,IEN,39)
|
|---|
| 39 | W !
|
|---|
| 40 | W !," Family History of Cancer...: ",ONC(160,IEN,43)
|
|---|
| 41 | S SUB=0 F S SUB=$O(ONC(160.044,SUB)) Q:SUB'>0 D
|
|---|
| 42 | .W !," Family Member with Cancer..: ",ONC(160.044,SUB,.01),?50,"(",ONC(160.044,SUB,1),")"
|
|---|
| 43 | W !
|
|---|
| 44 | K ONC,IEN,SUB
|
|---|
| 45 | Q
|
|---|
