source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSYMP.m@ 814

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

initial load of WorldVistAEHR
File size: 3.2 KB
Line 
1ONCSYMP ;Hines OIFO/GWB - LUNG AND COLON SYMPTOMS ;05/24/05
2 ;;2.11;ONCOLOGY;**43,47**;Mar 07, 1995;Build 19
3 ;
4LUNG S SECTION="Cancer Identification" D SECTION^ONCOAIP
5 W !," SYMPTOMS AND INITIAL DIAGNOSTIC STUDIES"
6 W !," ---------------------------------------"
7 N DI,DIC,DR,DA,DIQ,ONC
8 S DIC="^ONCO(165.5,"
9 S DR="174;174.1;186;186.1;187;187.1;188;188.1;189;189.1;190;175;175.1;176;176.1;177;177.1;178;178.1;179;179.1"
10 S DA=D0,DIQ="ONC" D EN^DIQ1
11 F I=174,186,187,188,189,190,175,176,177,178,179 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X
12 W !," Blood in Sputum Per Pt.......: ",ONC(165.5,D0,174.1),?44,ONC(165.5,D0,174)
13 W !," Dyspnea......................: ",ONC(165.5,D0,186.1),?44,ONC(165.5,D0,186)
14 W !," Increased Cough..............: ",ONC(165.5,D0,187.1),?44,ONC(165.5,D0,187)
15 W !," Fever........................: ",ONC(165.5,D0,188.1),?44,ONC(165.5,D0,188)
16 W !," Night Sweats.................: ",ONC(165.5,D0,189.1),?44,ONC(165.5,D0,189)
17 W !," Weight Loss Per Pt...........: ",?44,ONC(165.5,D0,190)
18 W !," Chest X-Ray..................: ",ONC(165.5,D0,175.1),?44,ONC(165.5,D0,175)
19 W !," CT Scan......................: ",ONC(165.5,D0,176.1),?44,ONC(165.5,D0,176)
20 W !," Bronchoscopy.................: ",ONC(165.5,D0,177.1),?44,ONC(165.5,D0,177)
21 W !," Mediastinoscopy..............: ",ONC(165.5,D0,178.1),?44,ONC(165.5,D0,178)
22 W !," PET Scan.....................: ",ONC(165.5,D0,179.1),?44,ONC(165.5,D0,179)
23 W !,DASHES
24 Q
25 ;
26COLON S HDL=$L("Cancer Identification"),TAB=(80-HDL)\2,TAB=TAB-1
27 W @IOF,DASHES
28 W !,?1,PATNAM,?TAB,"Cancer Identification",?SITTAB,SITEGP
29 W !,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD
30 W !,DASHES
31 W !," SYMPTOMS AND INITIAL DIAGNOSTIC STUDIES"
32 W !," ---------------------------------------"
33 N DI,DIC,DR,DA,DIQ,ONC
34 S DIC="^ONCO(165.5,"
35 S DR="180;180.1;191;711;712;809;713;181;181.1;182;182.1;183;183.1;185;185.1;184;184.1;179;179.1;192"
36 S DA=D0,DIQ="ONC" D EN^DIQ1
37 F I=180,191,711,712,809,713,181,182,183,184,185,179,192 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X
38 W !," Ulcerative Colitis (UC)...................: ",?45,ONC(165.5,D0,191)
39 W !," Familial Adenomatous Polyps...............: ",?45,ONC(165.5,D0,711)
40 W !," HNPCC.....................................: ",?45,ONC(165.5,D0,712)
41 W !," Crohn's Disease...........................: ",?45,ONC(165.5,D0,809)
42 W !," Inflammatory Bowel Disease................: ",?45,ONC(165.5,D0,713)
43 W !," Sporadic Polyps...........................: ",?45,ONC(165.5,D0,192)
44 W !," Change in Bowel Habits Per Pt.: ",ONC(165.5,D0,180.1),?45,ONC(165.5,D0,180)
45 W !," Fecal Occult Blood Test (FOBT): ",ONC(165.5,D0,181.1),?45,ONC(165.5,D0,181)
46 W !," Barium Enema..................: ",ONC(165.5,D0,182.1),?45,ONC(165.5,D0,182)
47 W !," Sigmoidoscopy.................: ",ONC(165.5,D0,183.1),?45,ONC(165.5,D0,183)
48 W !," Colonoscopy...................: ",ONC(165.5,D0,185.1),?45,ONC(165.5,D0,185)
49 W !," CT of Abdomen/Pelvis..........: ",ONC(165.5,D0,184.1),?45,ONC(165.5,D0,184)
50 W !," PET Scan......................: ",ONC(165.5,D0,179.1),?45,ONC(165.5,D0,179)
51 W !,DASHES
52 Q
53 ;
54UCASE S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
55 Q
56 ;
57STUFF ;Stuff symptom date with 00/00/0000 or 99/99/9999
58 S:X=0 $P(^ONCO(165.5,D0,2.2),U,PIECE)="0000000"
59 S:X=9 $P(^ONCO(165.5,D0,2.2),U,PIECE)=9999999
60 Q
Note: See TracBrowser for help on using the repository browser.