ONCSYMP.m

ONCSYMP ;Hines OIFO/GWB - LUNG AND COLON SYMPTOMS ;05/24/05

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;

LUNG S SECTION="Cancer Identification" D SECTION^ONCOAIP

 W !," SYMPTOMS AND INITIAL DIAGNOSTIC STUDIES"

 W !," ---------------------------------------"

 N DI,DIC,DR,DA,DIQ,ONC

 S DIC="^ONCO(165.5,"

 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"

 S DA=D0,DIQ="ONC" D EN^DIQ1

 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

 W !," Blood in Sputum Per Pt.......: ",ONC(165.5,D0,174.1),?44,ONC(165.5,D0,174)

 W !," Dyspnea......................: ",ONC(165.5,D0,186.1),?44,ONC(165.5,D0,186)

 W !," Increased Cough..............: ",ONC(165.5,D0,187.1),?44,ONC(165.5,D0,187)

 W !," Fever........................: ",ONC(165.5,D0,188.1),?44,ONC(165.5,D0,188)

 W !," Night Sweats.................: ",ONC(165.5,D0,189.1),?44,ONC(165.5,D0,189)

 W !," Weight Loss Per Pt...........: ",?44,ONC(165.5,D0,190)

 W !," Chest X-Ray..................: ",ONC(165.5,D0,175.1),?44,ONC(165.5,D0,175)

 W !," CT Scan......................: ",ONC(165.5,D0,176.1),?44,ONC(165.5,D0,176)

 W !," Bronchoscopy.................: ",ONC(165.5,D0,177.1),?44,ONC(165.5,D0,177)

 W !," Mediastinoscopy..............: ",ONC(165.5,D0,178.1),?44,ONC(165.5,D0,178)

 W !," PET Scan.....................: ",ONC(165.5,D0,179.1),?44,ONC(165.5,D0,179)

 W !,DASHES

 Q

 ;

COLON S HDL=$L("Cancer Identification"),TAB=(80-HDL)\2,TAB=TAB-1

 W @IOF,DASHES

 W !,?1,PATNAM,?TAB,"Cancer Identification",?SITTAB,SITEGP

 W !,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD

 W !,DASHES

 W !," SYMPTOMS AND INITIAL DIAGNOSTIC STUDIES"

 W !," ---------------------------------------"

 N DI,DIC,DR,DA,DIQ,ONC

 S DIC="^ONCO(165.5,"

 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"

 S DA=D0,DIQ="ONC" D EN^DIQ1

 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

 W !," Ulcerative Colitis (UC)...................: ",?45,ONC(165.5,D0,191)

 W !," Familial Adenomatous Polyps...............: ",?45,ONC(165.5,D0,711)

 W !," HNPCC.....................................: ",?45,ONC(165.5,D0,712)

 W !," Crohn's Disease...........................: ",?45,ONC(165.5,D0,809)

 W !," Inflammatory Bowel Disease................: ",?45,ONC(165.5,D0,713)

 W !," Sporadic Polyps...........................: ",?45,ONC(165.5,D0,192)

 W !," Change in Bowel Habits Per Pt.: ",ONC(165.5,D0,180.1),?45,ONC(165.5,D0,180)

 W !," Fecal Occult Blood Test (FOBT): ",ONC(165.5,D0,181.1),?45,ONC(165.5,D0,181)

 W !," Barium Enema..................: ",ONC(165.5,D0,182.1),?45,ONC(165.5,D0,182)

 W !," Sigmoidoscopy.................: ",ONC(165.5,D0,183.1),?45,ONC(165.5,D0,183)

 W !," Colonoscopy...................: ",ONC(165.5,D0,185.1),?45,ONC(165.5,D0,185)

 W !," CT of Abdomen/Pelvis..........: ",ONC(165.5,D0,184.1),?45,ONC(165.5,D0,184)

 W !," PET Scan......................: ",ONC(165.5,D0,179.1),?45,ONC(165.5,D0,179)

 W !,DASHES

 Q

 ;

UCASE S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 Q

 ;

STUFF ;Stuff symptom date with 00/00/0000 or 99/99/9999

 S:X=0 $P(^ONCO(165.5,D0,2.2),U,PIECE)="0000000"

 S:X=9 $P(^ONCO(165.5,D0,2.2),U,PIECE)=9999999

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCSYMP   3355     printed  Sep 15, 2024@21:52:59                                                                                                                                                                                                     Page 2

ONCSYMP   ;Hines OIFO/GWB - LUNG AND COLON SYMPTOMS ;05/24/05

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

LUNG       SET SECTION="Cancer Identification"

           DO SECTION^ONCOAIP

 +1        WRITE !," SYMPTOMS AND INITIAL DIAGNOSTIC STUDIES"

 +2        WRITE !," ---------------------------------------"

 +3        NEW DI,DIC,DR,DA,DIQ,ONC

 +4        SET DIC="^ONCO(165.5,"

 +5        SET 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"

 +6        SET DA=D0

           SET DIQ="ONC"

           DO EN^DIQ1

 +7        FOR I=174,186,187,188,189,190,175,176,177,178,179

               SET X=ONC(165.5,D0,I)

               DO UCASE

               SET ONC(165.5,D0,I)=X

 +8        WRITE !," Blood in Sputum Per Pt.......: ",ONC(165.5,D0,174.1),?44,ONC(165.5,D0,174)

 +9        WRITE !," Dyspnea......................: ",ONC(165.5,D0,186.1),?44,ONC(165.5,D0,186)

 +10       WRITE !," Increased Cough..............: ",ONC(165.5,D0,187.1),?44,ONC(165.5,D0,187)

 +11       WRITE !," Fever........................: ",ONC(165.5,D0,188.1),?44,ONC(165.5,D0,188)

 +12       WRITE !," Night Sweats.................: ",ONC(165.5,D0,189.1),?44,ONC(165.5,D0,189)

 +13       WRITE !," Weight Loss Per Pt...........: ",?44,ONC(165.5,D0,190)

 +14       WRITE !," Chest X-Ray..................: ",ONC(165.5,D0,175.1),?44,ONC(165.5,D0,175)

 +15       WRITE !," CT Scan......................: ",ONC(165.5,D0,176.1),?44,ONC(165.5,D0,176)

 +16       WRITE !," Bronchoscopy.................: ",ONC(165.5,D0,177.1),?44,ONC(165.5,D0,177)

 +17       WRITE !," Mediastinoscopy..............: ",ONC(165.5,D0,178.1),?44,ONC(165.5,D0,178)

 +18       WRITE !," PET Scan.....................: ",ONC(165.5,D0,179.1),?44,ONC(165.5,D0,179)

 +19       WRITE !,DASHES

 +20       QUIT 

 +21      ;

COLON      SET HDL=$LENGTH("Cancer Identification")

           SET TAB=(80-HDL)\2

           SET TAB=TAB-1

 +1        WRITE @IOF,DASHES

 +2        WRITE !,?1,PATNAM,?TAB,"Cancer Identification",?SITTAB,SITEGP

 +3        WRITE !,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD

 +4        WRITE !,DASHES

 +5        WRITE !," SYMPTOMS AND INITIAL DIAGNOSTIC STUDIES"

 +6        WRITE !," ---------------------------------------"

 +7        NEW DI,DIC,DR,DA,DIQ,ONC

 +8        SET DIC="^ONCO(165.5,"

 +9        SET 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"

 +10       SET DA=D0

           SET DIQ="ONC"

           DO EN^DIQ1

 +11       FOR I=180,191,711,712,809,713,181,182,183,184,185,179,192

               SET X=ONC(165.5,D0,I)

               DO UCASE

               SET ONC(165.5,D0,I)=X

 +12       WRITE !," Ulcerative Colitis (UC)...................: ",?45,ONC(165.5,D0,191)

 +13       WRITE !," Familial Adenomatous Polyps...............: ",?45,ONC(165.5,D0,711)

 +14       WRITE !," HNPCC.....................................: ",?45,ONC(165.5,D0,712)

 +15       WRITE !," Crohn's Disease...........................: ",?45,ONC(165.5,D0,809)

 +16       WRITE !," Inflammatory Bowel Disease................: ",?45,ONC(165.5,D0,713)

 +17       WRITE !," Sporadic Polyps...........................: ",?45,ONC(165.5,D0,192)

 +18       WRITE !," Change in Bowel Habits Per Pt.: ",ONC(165.5,D0,180.1),?45,ONC(165.5,D0,180)

 +19       WRITE !," Fecal Occult Blood Test (FOBT): ",ONC(165.5,D0,181.1),?45,ONC(165.5,D0,181)

 +20       WRITE !," Barium Enema..................: ",ONC(165.5,D0,182.1),?45,ONC(165.5,D0,182)

 +21       WRITE !," Sigmoidoscopy.................: ",ONC(165.5,D0,183.1),?45,ONC(165.5,D0,183)

 +22       WRITE !," Colonoscopy...................: ",ONC(165.5,D0,185.1),?45,ONC(165.5,D0,185)

 +23       WRITE !," CT of Abdomen/Pelvis..........: ",ONC(165.5,D0,184.1),?45,ONC(165.5,D0,184)

 +24       WRITE !," PET Scan......................: ",ONC(165.5,D0,179.1),?45,ONC(165.5,D0,179)

 +25       WRITE !,DASHES

 +26       QUIT 

 +27      ;

UCASE      SET X=$TRANSLATE(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 +1        QUIT 

 +2       ;

STUFF     ;Stuff symptom date with 00/00/0000 or 99/99/9999

 +1        if X=0

               SET $PIECE(^ONCO(165.5,D0,2.2),U,PIECE)="0000000"

 +2        if X=9

               SET $PIECE(^ONCO(165.5,D0,2.2),U,PIECE)=9999999

 +3        QUIT