- 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 Feb 18, 2025@23:49:39 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