ONCIPC2A ;HINES OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;01/18/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Tumor Identification (continued)
PTDS W !," 20. PRE-THERAPY DIAGNOSTIC STUDIES:"
S DR="1274 ANGIOGRAPHY.................." D ^DIE G:$D(Y) JUMP
S DR="1275 CT SCAN OF BRAIN............." D ^DIE G:$D(Y) JUMP
S DR="1276 CT SCAN OF SPINE............." D ^DIE G:$D(Y) JUMP
S DR="1277 EEG.........................." D ^DIE G:$D(Y) JUMP
S DR="1278 ISOTOPE BRAIN SCAN..........." D ^DIE G:$D(Y) JUMP
S DR="1279 PET SCAN....................." D ^DIE G:$D(Y) JUMP
S DR="1280 SPECT SCAN..................." D ^DIE G:$D(Y) JUMP
S DR="1281 MRI OF BRAIN................." D ^DIE G:$D(Y) JUMP
S DR="1282 MRI OF SPINE................." D ^DIE G:$D(Y) JUMP
S DR="1283 FUNCTIONAL MRI..............." D ^DIE G:$D(Y) JUMP
S DR="1284 MYELOGRAPHY.................." D ^DIE G:$D(Y) JUMP
S DR="1285 MRS.........................." D ^DIE G:$D(Y) JUMP
TLI W !!," 21. TUMOR LOCATION/INVOLVEMENT:"
S DR="1286 FRONTAL LOBE................." D ^DIE G:$D(Y) JUMP
S DR="1287 TEMPORAL LOBE................" D ^DIE G:$D(Y) JUMP
S DR="1288 PARIETAL LOBE................" D ^DIE G:$D(Y) JUMP
S DR="1289 OCCIPITAL LOBE..............." D ^DIE G:$D(Y) JUMP
S DR="1290 OPTIC NERVES................." D ^DIE G:$D(Y) JUMP
S DR="1291 PITUITARY GLAND.............." D ^DIE G:$D(Y) JUMP
S DR="1292 PINEAL GLAND................." D ^DIE G:$D(Y) JUMP
S DR="1293 CEREBELLUM..................." D ^DIE G:$D(Y) JUMP
S DR="1294 BRAIN STEM..................." D ^DIE G:$D(Y) JUMP
S DR="1295 SKULL BASE..................." D ^DIE G:$D(Y) JUMP
S DR="1296 OTHER SKULL.................." D ^DIE G:$D(Y) JUMP
S DR="1297 SPINAL CORD.................." D ^DIE G:$D(Y) JUMP
S DR="1298 CEREBRAL SPINAL FLUID (CSF).." D ^DIE G:$D(Y) JUMP
S DR="1299 CRANIAL MENINGES............." D ^DIE G:$D(Y) JUMP
S DR="1300 SPINAL MENINGES.............." D ^DIE G:$D(Y) JUMP
S DR="1301 OTHER........................" D ^DIE G:$D(Y) JUMP
SIDE W !!," 22. SIDE:"
S DR="1302 LEFT........................." D ^DIE G:$D(Y) JUMP
S DR="1303 RIGHT........................" D ^DIE G:$D(Y) JUMP
S DR="1304 MIDLINE......................" D ^DIE G:$D(Y) JUMP
NT W !
S DR="1305 23. NUMBER OF TUMORS.............." D ^DIE G:$D(Y) JUMP
DFS S DR="1306 24. DATE OF FIRST SYMPTOMS........" D ^DIE G:$D(Y) JUMP
DID S IDX=$E(DATEDX,4,5)_"/"_$E(DATEDX,6,7)_"/"_(1700+$E(DATEDX,1,3))
W !," 25. DATE OF INITIAL DIAGNOSIS.....: ",IDX
DPD S DR="1307 26. DATE OF PATHOLOGIC DIAGNOSIS.." D ^DIE G:$D(Y) JUMP
PS W !," 27. PRIMARY SITE (ICD-O-2)........: ",$$GET1^DIQ(165.5,IE,20.1)
WHCT S DR="1308 28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR....................." D ^DIE G:$D(Y) JUMP
BC W !," 29. BEHAVIOR CODE (ICD-O-2).......: ",$E($$GET1^DIQ(165.5,IE,22,"I"),5)
GRADE S DR="24 30. GRADE........................." D ^DIE G:$D(Y) JUMP
DC W !," 31. DIAGNOSTIC CONFIRMAITON.......: ",$$GET1^DIQ(165.5,IE,26)
MM S DR="1309 32. MOLECULAR MARKERS............." D ^DIE G:$D(Y) JUMP
TS S DR="1394 33. TUMOR SIZE...................." D ^DIE G:$D(Y) JUMP
I X=999 D G KRPT
.S $P(^ONCO(165.5,ONCONUM,"CNS2"),U,25)=0
.W !," 34. TUMOR SIZE (SOURCE)...........: Size not recorded"
TSS S DR="1310 34. TUMOR SIZE (SOURCE)..........." D ^DIE G:$D(Y) JUMP
KRPT S DR="1311 35. KARNOFSKY'S RATING PRIOR TO THERAPY......................" D ^DIE G:$D(Y) JUMP
PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
G EXIT
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 G EXIT^ONCIPC2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCIPC2A 4153 printed Dec 13, 2024@02:23:19 Page 2
ONCIPC2A ;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 (continued)
PTDS WRITE !," 20. PRE-THERAPY DIAGNOSTIC STUDIES:"
+1 SET DR="1274 ANGIOGRAPHY.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1275 CT SCAN OF BRAIN............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1276 CT SCAN OF SPINE............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="1277 EEG.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="1278 ISOTOPE BRAIN SCAN..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="1279 PET SCAN....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="1280 SPECT SCAN..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="1281 MRI OF BRAIN................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="1282 MRI OF SPINE................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="1283 FUNCTIONAL MRI..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="1284 MYELOGRAPHY.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="1285 MRS.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
TLI WRITE !!," 21. TUMOR LOCATION/INVOLVEMENT:"
+1 SET DR="1286 FRONTAL LOBE................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1287 TEMPORAL LOBE................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1288 PARIETAL LOBE................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="1289 OCCIPITAL LOBE..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="1290 OPTIC NERVES................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="1291 PITUITARY GLAND.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="1292 PINEAL GLAND................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="1293 CEREBELLUM..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="1294 BRAIN STEM..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="1295 SKULL BASE..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="1296 OTHER SKULL.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="1297 SPINAL CORD.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="1298 CEREBRAL SPINAL FLUID (CSF).."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 SET DR="1299 CRANIAL MENINGES............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+15 SET DR="1300 SPINAL MENINGES.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+16 SET DR="1301 OTHER........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
SIDE WRITE !!," 22. SIDE:"
+1 SET DR="1302 LEFT........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1303 RIGHT........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1304 MIDLINE......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
NT WRITE !
+1 SET DR="1305 23. NUMBER OF TUMORS.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DFS SET DR="1306 24. DATE OF FIRST SYMPTOMS........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DID SET IDX=$EXTRACT(DATEDX,4,5)_"/"_$EXTRACT(DATEDX,6,7)_"/"_(1700+$EXTRACT(DATEDX,1,3))
+1 WRITE !," 25. DATE OF INITIAL DIAGNOSIS.....: ",IDX
DPD SET DR="1307 26. DATE OF PATHOLOGIC DIAGNOSIS.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PS WRITE !," 27. PRIMARY SITE (ICD-O-2)........: ",$$GET1^DIQ(165.5,IE,20.1)
WHCT SET DR="1308 28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
BC WRITE !," 29. BEHAVIOR CODE (ICD-O-2).......: ",$EXTRACT($$GET1^DIQ(165.5,IE,22,"I"),5)
GRADE SET DR="24 30. GRADE........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DC WRITE !," 31. DIAGNOSTIC CONFIRMAITON.......: ",$$GET1^DIQ(165.5,IE,26)
MM SET DR="1309 32. MOLECULAR MARKERS............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
TS SET DR="1394 33. TUMOR SIZE...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF X=999
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"CNS2"),U,25)=0
+3 WRITE !," 34. TUMOR SIZE (SOURCE)...........: Size not recorded"
End DoDot:1
GOTO KRPT
TSS SET DR="1310 34. TUMOR SIZE (SOURCE)..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
KRPT SET DR="1311 35. KARNOFSKY'S RATING PRIOR TO THERAPY......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
PRTC WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
+1 GOTO EXIT
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 GOTO EXIT^ONCIPC2
