source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPDI.m@ 1046

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1ONCPDI ;Hines OIFO/GWB - Patient information; 9/24/97
2 ;;2.11;ONCOLOGY;**18,27,33,34,37,45**;Mar 07, 1995
3 ;
4PRT 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 ;
28PH ;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
Note: See TracBrowser for help on using the repository browser.