ONCIPC2 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;01/18/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Tumor Identification
K TABLE,HTABLE
S TABLE("17. CLASS OF CASE")="CC^ONCIPC2"
S TABLE("18. SYMPTOMS")="SYM^ONCIPC2"
S TABLE("19. NEUROLOGICAL FINDINGS")="NF^ONCIPC2"
S TABLE("20. PRE-THERAPY DIAGNOSTIC STUDIES")="PTDS^ONCIPC2A"
S TABLE("21. TUMOR LOCATION/INVOLVEMENT")="TLI^ONCIPC2A"
S TABLE("22. SIDE")="SIDE^ONCIPC2A"
S TABLE("23. NUMBER OF TUMORS")="NT^ONCIPC2A"
S TABLE("24. DATE OF FIRST SYMPTOMS")="DFS^ONCIPC2A"
S TABLE("25. DATE OF INITIAL DIAGNOSIS")="DID^ONCIPC2A"
S TABLE("26. DATE OF PATHOLOGIC DIAGNOSIS")="DPD^ONCIPC2A"
S TABLE("27. PRIMARY SITE (ICD-O-2)")="PS^ONCIPC2A"
S TABLE("28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR")="WHCT^ONCIPC2A"
S TABLE("29. BEHAVIOR CODE (ICD-O-2)")="BC^ONCIPC2A"
S TABLE("30. GRADE")="GRADE^ONCIPC2A"
S TABLE("31. DIAGNOSTIC CONFIRMATION")="DC^ONCIPC2A"
S TABLE("32. MOLECULAR MARKERS")="MM^ONCIPC2A"
S TABLE("33. TUMOR SIZE")="TS^ONCIPC2A"
S TABLE("34. TUMOR SIZE (SOURCE")="TSS^ONCIPC2A"
S TABLE("35. KARNOFSKY'S RATING PRIOR TO THERAPY")="KRPT^ONCIPC2A"
S HTABLE(1)="17. CLASS OF CASE"
S HTABLE(2)="18. SYMPTOMS"
S HTABLE(3)="19. NEUROLOGICAL FINDINGS"
S HTABLE(4)="20. PRE-THERAPY DIAGNOSTIC STUDIES"
S HTABLE(5)="21. TUMOR LOCATION/INVOLVEMENT"
S HTABLE(6)="22. SIDE"
S HTABLE(7)="23. NUMBER OF TUMORS"
S HTABLE(8)="24. DATE OF FIRST SYMPTOMS"
S HTABLE(9)="25. DATE OF INITIAL DIAGNOSIS"
S HTABLE(10)="26. DATE OF PATHOLOGIC DIAGNOSIS"
S HTABLE(11)="27. PRIMARY SITE (ICD-O-2)"
S HTABLE(12)="28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR"
S HTABLE(13)="29. BEHAVIOR CODE (ICD-O-2)"
S HTABLE(14)="30. GRADE"
S HTABLE(15)="31. DIAGNOSTIC CONFIRMATION"
S HTABLE(16)="32. MOLECULAR MARKERS"
S HTABLE(17)="33. TUMOR SIZE"
S HTABLE(18)="34. TUMOR SIZE (SOURCE)"
S HTABLE(19)="35. KARNOFSKY'S RATING PRIOR TO THERAPY"
S CHOICES=19
S IE=ONCONUM
S DIE="^ONCO(165.5,",DA=ONCONUM
W @IOF D HEAD^ONCIPC0
W !," TUMOR IDENTIFICATION"
W !," --------------------"
CC W !," 17. CLASS OF CASE.................: ",$$GET1^DIQ(165.5,IE,.04)
W !
SYM W !," 18. SYMPTOMS:"
S DR="1220 HEADACHE....................." D ^DIE G:$D(Y) JUMP
S DR="1221 NAUSEA/VOMITING.............." D ^DIE G:$D(Y) JUMP
S DR="1222 CHANGE IN SENSE OF SMELL AND/ OR TASTE...................." D ^DIE G:$D(Y) JUMP
S DR="1223 ALTERED ALERTNESS............" D ^DIE G:$D(Y) JUMP
S DR="1224 FATIGUE......................" D ^DIE G:$D(Y) JUMP
S DR="1225 SPEECH DISTURBANCE..........." D ^DIE G:$D(Y) JUMP
S DR="1226 PERSONALITY CHANGES.........." D ^DIE G:$D(Y) JUMP
S DR="1227 DEPRESSION..................." D ^DIE G:$D(Y) JUMP
S DR="1228 MEMORY LOSS.................." D ^DIE G:$D(Y) JUMP
S DR="1229 LACK OF CONCENTRATION........" D ^DIE G:$D(Y) JUMP
S DR="1230 DOUBLE VISION................" D ^DIE G:$D(Y) JUMP
S DR="1231 OTHER VISUAL DISTURBANCE....." D ^DIE G:$D(Y) JUMP
S DR="1232 DECREASED HEARING............" D ^DIE G:$D(Y) JUMP
S DR="1233 VERTIGO......................" D ^DIE G:$D(Y) JUMP
S DR="1234 TINNITUS....................." D ^DIE G:$D(Y) JUMP
S DR="1235 NUMBNESS/TINGLING............" D ^DIE G:$D(Y) JUMP
S DR="1236 WEAKNESS OR PARALYSIS........" D ^DIE G:$D(Y) JUMP
S DR="1237 DIFFICULTY IN COORDINATION/ BALANCE....................." D ^DIE G:$D(Y) JUMP
S DR="1238 GENERALIZED SEIZURE.........." D ^DIE G:$D(Y) JUMP
S DR="1239 FOOD SEIZURE................." D ^DIE G:$D(Y) JUMP
S DR="1240 BLADDER INCONTINENCE........." D ^DIE G:$D(Y) JUMP
S DR="1241 BOWEL INCONTINENCE..........." D ^DIE G:$D(Y) JUMP
S DR="1242 PAIN (OTHER THAN HEADACHE)..." D ^DIE G:$D(Y) JUMP
S DR="1243 WEIGHT CHANGE................" D ^DIE G:$D(Y) JUMP
S DR="1244 OTHER........................" D ^DIE G:$D(Y) JUMP
W !
NF W !," 19. NEUROLOGICAL FINDINGS:"
S DR="1245 ALERTNESS...................." D ^DIE G:$D(Y) JUMP
S DR="1246 SPEECH......................." D ^DIE G:$D(Y) JUMP
S DR="1247 PERSONALITY.................." D ^DIE G:$D(Y) JUMP
S DR="1248 MEMORY OR JUDGEMENT.........." D ^DIE G:$D(Y) JUMP
S DR="1249 VISUAL ACUITY................" D ^DIE G:$D(Y) JUMP
S DR="1250 VISUAL FIELDS................" D ^DIE G:$D(Y) JUMP
S DR="1251 EYE MOVEMENTS (EOM).........." D ^DIE G:$D(Y) JUMP
S DR="1252 FACIAL SENSATION............." D ^DIE G:$D(Y) JUMP
S DR="1253 FACIAL MOVEMENT.............." D ^DIE G:$D(Y) JUMP
S DR="1254 HEARING......................" D ^DIE G:$D(Y) JUMP
S DR="1255 GAG REFLEX..................." D ^DIE G:$D(Y) JUMP
S DR="1256 STERNOCLEIDOMASTOID/SHOULDER SHRUG STRENGTH.............." D ^DIE G:$D(Y) JUMP
S DR="1257 ARTICULATION OR ENUNCIATION.." D ^DIE G:$D(Y) JUMP
S DR="1258 PAPILLEDEMA.................." D ^DIE G:$D(Y) JUMP
S DR="1259 TONGUE FASCICULATIONS OR ATROPHY....................." D ^DIE G:$D(Y) JUMP
S DR="1260 DECREASE IN SENSATION OF ANY SITE........................" D ^DIE G:$D(Y) JUMP
S DR="1261 CORTICAL SENSORY DEFICIT....." D ^DIE G:$D(Y) JUMP
S DR="1262 WEAKNESS, ATROPHY OR FASCICULATION OF ANY SITE................." D ^DIE G:$D(Y) JUMP
S DR="1263 ATAXIA OF GAIT..............." D ^DIE G:$D(Y) JUMP
S DR="1264 TRUNCAL ATAXIA..............." D ^DIE G:$D(Y) JUMP
S DR="1265 DYSMETRIA...................." D ^DIE G:$D(Y) JUMP
S DR="1266 RAPID ALTERNATING MOVEMENTS.." D ^DIE G:$D(Y) JUMP
S DR="1267 FINGER TO FINGER NOSE TESTING" D ^DIE G:$D(Y) JUMP
S DR="1268 HEEL TO KNEE TO SHIN TESTING." D ^DIE G:$D(Y) JUMP
S DR="1269 DEEP TENDON REFLEXES IN UPPER EXTREMITIES................." D ^DIE G:$D(Y) JUMP
S DR="1270 DEEP TENDON REFLEXES IN LOWER EXTREMITIES................." D ^DIE G:$D(Y) JUMP
S DR="1271 BABINSKI SIGN................" D ^DIE G:$D(Y) JUMP
S DR="1272 HOFFMAN REFLEX..............." D ^DIE G:$D(Y) JUMP
S DR="1273 OTHER ABNORMAL REFLEXES......" D ^DIE G:$D(Y) JUMP
W !
G ^ONCIPC2A
JUMP ;Jump to prompts
S XX="" R !!," GO TO ITEM NUMBER: ",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:X?1.2N X=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 CHOICES,HTABLE,IE,TABLE
K DID,DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCIPC2 7101 printed Oct 16, 2024@18:23:58 Page 2
ONCIPC2 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;01/18/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Tumor Identification
+3 KILL TABLE,HTABLE
+4 SET TABLE("17. CLASS OF CASE")="CC^ONCIPC2"
+5 SET TABLE("18. SYMPTOMS")="SYM^ONCIPC2"
+6 SET TABLE("19. NEUROLOGICAL FINDINGS")="NF^ONCIPC2"
+7 SET TABLE("20. PRE-THERAPY DIAGNOSTIC STUDIES")="PTDS^ONCIPC2A"
+8 SET TABLE("21. TUMOR LOCATION/INVOLVEMENT")="TLI^ONCIPC2A"
+9 SET TABLE("22. SIDE")="SIDE^ONCIPC2A"
+10 SET TABLE("23. NUMBER OF TUMORS")="NT^ONCIPC2A"
+11 SET TABLE("24. DATE OF FIRST SYMPTOMS")="DFS^ONCIPC2A"
+12 SET TABLE("25. DATE OF INITIAL DIAGNOSIS")="DID^ONCIPC2A"
+13 SET TABLE("26. DATE OF PATHOLOGIC DIAGNOSIS")="DPD^ONCIPC2A"
+14 SET TABLE("27. PRIMARY SITE (ICD-O-2)")="PS^ONCIPC2A"
+15 SET TABLE("28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR")="WHCT^ONCIPC2A"
+16 SET TABLE("29. BEHAVIOR CODE (ICD-O-2)")="BC^ONCIPC2A"
+17 SET TABLE("30. GRADE")="GRADE^ONCIPC2A"
+18 SET TABLE("31. DIAGNOSTIC CONFIRMATION")="DC^ONCIPC2A"
+19 SET TABLE("32. MOLECULAR MARKERS")="MM^ONCIPC2A"
+20 SET TABLE("33. TUMOR SIZE")="TS^ONCIPC2A"
+21 SET TABLE("34. TUMOR SIZE (SOURCE")="TSS^ONCIPC2A"
+22 SET TABLE("35. KARNOFSKY'S RATING PRIOR TO THERAPY")="KRPT^ONCIPC2A"
+23 SET HTABLE(1)="17. CLASS OF CASE"
+24 SET HTABLE(2)="18. SYMPTOMS"
+25 SET HTABLE(3)="19. NEUROLOGICAL FINDINGS"
+26 SET HTABLE(4)="20. PRE-THERAPY DIAGNOSTIC STUDIES"
+27 SET HTABLE(5)="21. TUMOR LOCATION/INVOLVEMENT"
+28 SET HTABLE(6)="22. SIDE"
+29 SET HTABLE(7)="23. NUMBER OF TUMORS"
+30 SET HTABLE(8)="24. DATE OF FIRST SYMPTOMS"
+31 SET HTABLE(9)="25. DATE OF INITIAL DIAGNOSIS"
+32 SET HTABLE(10)="26. DATE OF PATHOLOGIC DIAGNOSIS"
+33 SET HTABLE(11)="27. PRIMARY SITE (ICD-O-2)"
+34 SET HTABLE(12)="28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR"
+35 SET HTABLE(13)="29. BEHAVIOR CODE (ICD-O-2)"
+36 SET HTABLE(14)="30. GRADE"
+37 SET HTABLE(15)="31. DIAGNOSTIC CONFIRMATION"
+38 SET HTABLE(16)="32. MOLECULAR MARKERS"
+39 SET HTABLE(17)="33. TUMOR SIZE"
+40 SET HTABLE(18)="34. TUMOR SIZE (SOURCE)"
+41 SET HTABLE(19)="35. KARNOFSKY'S RATING PRIOR TO THERAPY"
+42 SET CHOICES=19
+43 SET IE=ONCONUM
+44 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
+45 WRITE @IOF
DO HEAD^ONCIPC0
+46 WRITE !," TUMOR IDENTIFICATION"
+47 WRITE !," --------------------"
CC WRITE !," 17. CLASS OF CASE.................: ",$$GET1^DIQ(165.5,IE,.04)
+1 WRITE !
SYM WRITE !," 18. SYMPTOMS:"
+1 SET DR="1220 HEADACHE....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1221 NAUSEA/VOMITING.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1222 CHANGE IN SENSE OF SMELL AND/ OR TASTE...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="1223 ALTERED ALERTNESS............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="1224 FATIGUE......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="1225 SPEECH DISTURBANCE..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="1226 PERSONALITY CHANGES.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="1227 DEPRESSION..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="1228 MEMORY LOSS.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="1229 LACK OF CONCENTRATION........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="1230 DOUBLE VISION................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="1231 OTHER VISUAL DISTURBANCE....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="1232 DECREASED HEARING............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 SET DR="1233 VERTIGO......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+15 SET DR="1234 TINNITUS....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+16 SET DR="1235 NUMBNESS/TINGLING............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+17 SET DR="1236 WEAKNESS OR PARALYSIS........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+18 SET DR="1237 DIFFICULTY IN COORDINATION/ BALANCE....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+19 SET DR="1238 GENERALIZED SEIZURE.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+20 SET DR="1239 FOOD SEIZURE................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+21 SET DR="1240 BLADDER INCONTINENCE........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+22 SET DR="1241 BOWEL INCONTINENCE..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+23 SET DR="1242 PAIN (OTHER THAN HEADACHE)..."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+24 SET DR="1243 WEIGHT CHANGE................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+25 SET DR="1244 OTHER........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+26 WRITE !
NF WRITE !," 19. NEUROLOGICAL FINDINGS:"
+1 SET DR="1245 ALERTNESS...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1246 SPEECH......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1247 PERSONALITY.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="1248 MEMORY OR JUDGEMENT.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="1249 VISUAL ACUITY................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="1250 VISUAL FIELDS................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="1251 EYE MOVEMENTS (EOM).........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="1252 FACIAL SENSATION............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="1253 FACIAL MOVEMENT.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="1254 HEARING......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="1255 GAG REFLEX..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="1256 STERNOCLEIDOMASTOID/SHOULDER SHRUG STRENGTH.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="1257 ARTICULATION OR ENUNCIATION.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 SET DR="1258 PAPILLEDEMA.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+15 SET DR="1259 TONGUE FASCICULATIONS OR ATROPHY....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+16 SET DR="1260 DECREASE IN SENSATION OF ANY SITE........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+17 SET DR="1261 CORTICAL SENSORY DEFICIT....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+18 SET DR="1262 WEAKNESS, ATROPHY OR FASCICULATION OF ANY SITE................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+19 SET DR="1263 ATAXIA OF GAIT..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+20 SET DR="1264 TRUNCAL ATAXIA..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+21 SET DR="1265 DYSMETRIA...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+22 SET DR="1266 RAPID ALTERNATING MOVEMENTS.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+23 SET DR="1267 FINGER TO FINGER NOSE TESTING"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+24 SET DR="1268 HEEL TO KNEE TO SHIN TESTING."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+25 SET DR="1269 DEEP TENDON REFLEXES IN UPPER EXTREMITIES................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+26 SET DR="1270 DEEP TENDON REFLEXES IN LOWER EXTREMITIES................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+27 SET DR="1271 BABINSKI SIGN................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+28 SET DR="1272 HOFFMAN REFLEX..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+29 SET DR="1273 OTHER ABNORMAL REFLEXES......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+30 WRITE !
+31 GOTO ^ONCIPC2A
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM NUMBER: ",X:DTIME
+2 IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+3 IF X["?"
Begin DoDot:1
+4 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+5 IF '$DATA(TABLE(X))
if X?1.2N
SET X=X_"."
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+6 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+7 SET X=TABLE(X)
+8 GOTO @X
EXIT KILL CHOICES,HTABLE,IE,TABLE
+1 KILL DID,DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+2 QUIT
