ONCCPC2 ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table II;2/12/97
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
K TABLE,HTABLE
S TABLE("CLASS OF CASE")="COC"
S TABLE("DURATION OF SIGNS/SYMPTOMS PRESENT AT INITIAL DIAGNOSIS (months)")="DOS"
S TABLE("INITIAL METHODS OF DIAGNOSIS")="IMOD"
S TABLE("REASON LEADING TO EVENTUAL DX")="RLTED"
S TABLE("DIAGNOSTIC EVALUATION")="DE"
S TABLE("LEVEL OF TUMOR BY ENDOSCOPIC EXAM")="LOTBEE"
S TABLE("LEVEL OF RECTAL TUMOR")="LORT"
S TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
S TABLE("PRIMARY SITE")="PS"
S TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
S TABLE("GRADE")="G"
S TABLE("DIAGNOSTIC CONFIRMATION")="DC"
S HTABLE(1)="CLASS OF CASE"
S HTABLE(2)="DURATION OF SIGNS/SYMPTOMS PRESENT AT INITIAL DIAGNOSIS (months)"
S HTABLE(3)="INITIAL METHODS OF DIAGNOSIS"
S HTABLE(4)="REASON LEADING TO EVENTUAL DX"
S HTABLE(5)="DIAGNOSTIC EVALUATION"
S HTABLE(6)="LEVEL OF TUMOR BY ENDOSCOPIC EXAM"
S HTABLE(7)="LEVEL OF RECTAL TUMOR"
S HTABLE(8)="DATE OF INITIAL DIAGNOSIS"
S HTABLE(9)="PRIMARY SITE"
S HTABLE(10)="HISTOLOGY/BEHAVIOR CODE"
S HTABLE(11)="GRADE"
S HTABLE(12)="DIAGNOSTIC CONFIRMATION"
S CHOICES=12
K DIQ S DIC="^ONCO(165.5,",DR=".04;22;24;26",DA=ONCONUM,DIQ="ONC"
D EN^DIQ1
S Y=$P(^ONCO(165.5,ONCONUM,0),U,16) D DATEOT^ONCOPCE S DOID=Y
W @IOF D HEAD^ONCCPC0
W !?26,"TABLE II- INITIAL DIAGNOSIS"
W !?26,"---------------------------"
S DIE="^ONCO(165.5,",DA=ONCONUM
COC W !,"CLASS OF CLASS...................: ",ONC(165.5,ONCONUM,.04)
DOS W !!,"DURATION OF SIGNS/SYMPTOMS PRESENT AT INITIAL DIAGNOSIS (months):",!
S DR="716 ANEMIA........................." D ^DIE G:$D(Y) JUMP
S DR="717 BOWEL OBSTRUCTION.............." D ^DIE G:$D(Y) JUMP
S DR="718 CHANGE IN BOWEL HABIT.........." D ^DIE G:$D(Y) JUMP
S DR="719 EMER PRESENTATION-OBSTRUCTION.." D ^DIE G:$D(Y) JUMP
S DR="720 JAUNDICE......................." D ^DIE G:$D(Y) JUMP
S DR="721 MALAISE........................" D ^DIE G:$D(Y) JUMP
S DR="722 OCCULT BLOOD ONLY IN STOOL....." D ^DIE G:$D(Y) JUMP
S DR="723 PAIN (ABDOMINAL)..............." D ^DIE G:$D(Y) JUMP
S DR="724 PAIN (PELVIC).................." D ^DIE G:$D(Y) JUMP
S DR="725 RECTAL BLEEDING (MELENA)......." D ^DIE G:$D(Y) JUMP
S DR="726 OTHER.........................." D ^DIE G:$D(Y) JUMP
IMOD W !!,"INITIAL METHODS OF DIAGNOSIS:",!
S DR="727 ENDOSCOPIC....................." D ^DIE G:$D(Y) JUMP
S DR="728 RADIOGRAPHIC..................." D ^DIE G:$D(Y) JUMP
S DR="729 SCREENING DIGITAL RECTAL EXAM.." D ^DIE G:$D(Y) JUMP
S DR="730 SCREENING PHYSICAL EXAM........" D ^DIE G:$D(Y) JUMP
S DR="731 OTHER.........................." D ^DIE G:$D(Y) JUMP
RLTED W !
S DR="732REASON LEADING TO EVENTUAL DX...." D ^DIE G:$D(Y) JUMP
DE W !!,"DIAGNOSTIC EVALUATION:",!
S DR="733 BARIUM ENEMA, DOUBLE CONTRAST.." D ^DIE G:$D(Y) JUMP
S DR="734 BARIUM ENEMA, SINGLE CONTRAST.." D ^DIE G:$D(Y) JUMP
S DR="735 BARIUM ENEMA, NOS.............." D ^DIE G:$D(Y) JUMP
S DR="736 BIOPSY OF PRIMARY SITE........." D ^DIE G:$D(Y) JUMP
S DR="737 BIOPSY OF METASTATIC SITE......" D ^DIE G:$D(Y) JUMP
S DR="421 CT SCAN OF CHEST..............." D ^DIE G:$D(Y) JUMP
S DR="738 CT SCAN OF LIVER..............." D ^DIE G:$D(Y) JUMP
S DR="739 CT SCAN OF PRIMARY SITE........" D ^DIE G:$D(Y) JUMP
S DR="740 CEA (PREOPERATIVE)............." D ^DIE G:$D(Y) JUMP
S DR="741 CHEST ROENTGENOGRAM............" D ^DIE G:$D(Y) JUMP
S DR="742 COLONOSCOPY...................." D ^DIE G:$D(Y) JUMP
S DR="743 DIGITAL RECTAL EXAM............" D ^DIE G:$D(Y) JUMP
S DR="744 FLEXIBLE SIGMOIDOSCOPY........." D ^DIE G:$D(Y) JUMP
S DR="745 INTRAVENOUS PYELOGRAM (IVP)...." D ^DIE G:$D(Y) JUMP
S DR="746 SERUM-LIVER FUNCTION TEST......" D ^DIE G:$D(Y) JUMP
S DR="747 MRI............................" D ^DIE G:$D(Y) JUMP
S DR="748 PROCTOSCOPY (RIGID)............" D ^DIE G:$D(Y) JUMP
S DR="749 STOOL GUAIAC (OCCULT BLOOD)...." D ^DIE G:$D(Y) JUMP
S DR="750 ULTRASOUND, LIVER, ABDOMEN....." D ^DIE G:$D(Y) JUMP
S DR="751 ULTRASOUND, ENDORECTAL........." D ^DIE G:$D(Y) JUMP
S DR="430 OTHER.........................." D ^DIE G:$D(Y) JUMP
W !
LOTBEE S DR="752LEVEL OF TUMOR BY ENDOSCOPIC EXAM" D ^DIE G:$D(Y) JUMP
LORT S DR="753LEVEL OF RECTAL TUMOR............" D ^DIE G:$D(Y) JUMP
DOID W !,"DATE OF INITIAL DIAGNOSIS........: ",DOID
PS W !,"PRIMARY SITE.....................: ",TOPCOD
H W !,"HISTOLOGY/BEHAVIOR CODE..........: ",ONC(165.5,ONCONUM,22)
G S DR="24GRADE............................" D ^DIE G:$D(Y) JUMP
DC S DR="26DIAGNOSTIC CONFIRMATION.........." D ^DIE G:$D(Y) JUMP
W ! K DIR S DIR(0)="E" D ^DIR
G EXIT
JUMP ;Jump to prompts
S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
I X["?" D G JUMP
.W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
.W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
S X=TABLE(X)
G @X
EXIT K HTABLE,TABLE,CHOICES
K DOID,HST,HSTCD,HSTNAM,PRINODE0,PRINODE2,TOPOG,TOPCD,SITE
K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCPC2 5186 printed Dec 13, 2024@02:22:29 Page 2
ONCCPC2 ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table II;2/12/97
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 KILL TABLE,HTABLE
+3 SET TABLE("CLASS OF CASE")="COC"
+4 SET TABLE("DURATION OF SIGNS/SYMPTOMS PRESENT AT INITIAL DIAGNOSIS (months)")="DOS"
+5 SET TABLE("INITIAL METHODS OF DIAGNOSIS")="IMOD"
+6 SET TABLE("REASON LEADING TO EVENTUAL DX")="RLTED"
+7 SET TABLE("DIAGNOSTIC EVALUATION")="DE"
+8 SET TABLE("LEVEL OF TUMOR BY ENDOSCOPIC EXAM")="LOTBEE"
+9 SET TABLE("LEVEL OF RECTAL TUMOR")="LORT"
+10 SET TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
+11 SET TABLE("PRIMARY SITE")="PS"
+12 SET TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
+13 SET TABLE("GRADE")="G"
+14 SET TABLE("DIAGNOSTIC CONFIRMATION")="DC"
+15 SET HTABLE(1)="CLASS OF CASE"
+16 SET HTABLE(2)="DURATION OF SIGNS/SYMPTOMS PRESENT AT INITIAL DIAGNOSIS (months)"
+17 SET HTABLE(3)="INITIAL METHODS OF DIAGNOSIS"
+18 SET HTABLE(4)="REASON LEADING TO EVENTUAL DX"
+19 SET HTABLE(5)="DIAGNOSTIC EVALUATION"
+20 SET HTABLE(6)="LEVEL OF TUMOR BY ENDOSCOPIC EXAM"
+21 SET HTABLE(7)="LEVEL OF RECTAL TUMOR"
+22 SET HTABLE(8)="DATE OF INITIAL DIAGNOSIS"
+23 SET HTABLE(9)="PRIMARY SITE"
+24 SET HTABLE(10)="HISTOLOGY/BEHAVIOR CODE"
+25 SET HTABLE(11)="GRADE"
+26 SET HTABLE(12)="DIAGNOSTIC CONFIRMATION"
+27 SET CHOICES=12
+28 KILL DIQ
SET DIC="^ONCO(165.5,"
SET DR=".04;22;24;26"
SET DA=ONCONUM
SET DIQ="ONC"
+29 DO EN^DIQ1
+30 SET Y=$PIECE(^ONCO(165.5,ONCONUM,0),U,16)
DO DATEOT^ONCOPCE
SET DOID=Y
+31 WRITE @IOF
DO HEAD^ONCCPC0
+32 WRITE !?26,"TABLE II- INITIAL DIAGNOSIS"
+33 WRITE !?26,"---------------------------"
+34 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
COC WRITE !,"CLASS OF CLASS...................: ",ONC(165.5,ONCONUM,.04)
DOS WRITE !!,"DURATION OF SIGNS/SYMPTOMS PRESENT AT INITIAL DIAGNOSIS (months):",!
+1 SET DR="716 ANEMIA........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="717 BOWEL OBSTRUCTION.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="718 CHANGE IN BOWEL HABIT.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="719 EMER PRESENTATION-OBSTRUCTION.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="720 JAUNDICE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="721 MALAISE........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="722 OCCULT BLOOD ONLY IN STOOL....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="723 PAIN (ABDOMINAL)..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="724 PAIN (PELVIC).................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="725 RECTAL BLEEDING (MELENA)......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="726 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
IMOD WRITE !!,"INITIAL METHODS OF DIAGNOSIS:",!
+1 SET DR="727 ENDOSCOPIC....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="728 RADIOGRAPHIC..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="729 SCREENING DIGITAL RECTAL EXAM.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="730 SCREENING PHYSICAL EXAM........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="731 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RLTED WRITE !
+1 SET DR="732REASON LEADING TO EVENTUAL DX...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DE WRITE !!,"DIAGNOSTIC EVALUATION:",!
+1 SET DR="733 BARIUM ENEMA, DOUBLE CONTRAST.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="734 BARIUM ENEMA, SINGLE CONTRAST.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="735 BARIUM ENEMA, NOS.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="736 BIOPSY OF PRIMARY SITE........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="737 BIOPSY OF METASTATIC SITE......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="421 CT SCAN OF CHEST..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="738 CT SCAN OF LIVER..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="739 CT SCAN OF PRIMARY SITE........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="740 CEA (PREOPERATIVE)............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="741 CHEST ROENTGENOGRAM............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="742 COLONOSCOPY...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="743 DIGITAL RECTAL EXAM............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="744 FLEXIBLE SIGMOIDOSCOPY........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 SET DR="745 INTRAVENOUS PYELOGRAM (IVP)...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+15 SET DR="746 SERUM-LIVER FUNCTION TEST......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+16 SET DR="747 MRI............................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+17 SET DR="748 PROCTOSCOPY (RIGID)............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+18 SET DR="749 STOOL GUAIAC (OCCULT BLOOD)...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+19 SET DR="750 ULTRASOUND, LIVER, ABDOMEN....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+20 SET DR="751 ULTRASOUND, ENDORECTAL........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+21 SET DR="430 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+22 WRITE !
LOTBEE SET DR="752LEVEL OF TUMOR BY ENDOSCOPIC EXAM"
DO ^DIE
if $DATA(Y)
GOTO JUMP
LORT SET DR="753LEVEL OF RECTAL TUMOR............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DOID WRITE !,"DATE OF INITIAL DIAGNOSIS........: ",DOID
PS WRITE !,"PRIMARY SITE.....................: ",TOPCOD
H WRITE !,"HISTOLOGY/BEHAVIOR CODE..........: ",ONC(165.5,ONCONUM,22)
G SET DR="24GRADE............................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DC SET DR="26DIAGNOSTIC CONFIRMATION.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+2 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+5 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT KILL HTABLE,TABLE,CHOICES
+1 KILL DOID,HST,HSTCD,HSTNAM,PRINODE0,PRINODE2,TOPOG,TOPCD,SITE
+2 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+3 QUIT
