- ONCIPC8A ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- ;Print (continued)
- W !,"19. NEUROLOGICAL FINDINGS:"
- D P Q:EX=U
- W !," ALERTNESS....................: ",$$GET1^DIQ(165.5,IE,1245)
- D P Q:EX=U
- W !," SPEECH.......................: ",$$GET1^DIQ(165.5,IE,1246)
- D P Q:EX=U
- W !," PERSONALITY..................: ",$$GET1^DIQ(165.5,IE,1247)
- D P Q:EX=U
- W !," MEMORY OR JUDGEMENT..........: ",$$GET1^DIQ(165.5,IE,1248)
- D P Q:EX=U
- W !," VISUAL ACUITY................: ",$$GET1^DIQ(165.5,IE,1249)
- D P Q:EX=U
- W !," VISUAL FIELDS................: ",$$GET1^DIQ(165.5,IE,1250)
- D P Q:EX=U
- W !," EYE MOVEMENTS (EOM)..........: ",$$GET1^DIQ(165.5,IE,1251)
- D P Q:EX=U
- W !," FACIAL SENSATION.............: ",$$GET1^DIQ(165.5,IE,1252)
- D P Q:EX=U
- W !," FACIAL MOVEMENT..............: ",$$GET1^DIQ(165.5,IE,1253)
- D P Q:EX=U
- W !," HEARING......................: ",$$GET1^DIQ(165.5,IE,1254)
- D P Q:EX=U
- W !," GAG REFLEX...................: ",$$GET1^DIQ(165.5,IE,1255)
- D P Q:EX=U
- W !," STERNOCLEIDOMASTOID/SHOULDER"
- D P Q:EX=U
- W !," SHRUG STRENGTH..............: ",$$GET1^DIQ(165.5,IE,1256)
- D P Q:EX=U
- W !," ARTICULATION OR ENUNCIATION..: ",$$GET1^DIQ(165.5,IE,1257)
- D P Q:EX=U
- W !," PAPILLEDEMA..................: ",$$GET1^DIQ(165.5,IE,1258)
- D P Q:EX=U
- W !," TONGUE FASCICULATIONS OR"
- D P Q:EX=U
- W !," ATROPHY.....................: ",$$GET1^DIQ(165.5,IE,1259)
- D P Q:EX=U
- W !," DECREASE IN SENSATION OF ANY"
- D P Q:EX=U
- W !," SITE........................: ",$$GET1^DIQ(165.5,IE,1260)
- D P Q:EX=U
- W !," CORTICAL SENSORY DEFICIT.....: ",$$GET1^DIQ(165.5,IE,1261)
- D P Q:EX=U
- W !," WEAKNESS, ATROPHY OR"
- D P Q:EX=U
- W !," FASCICULATION OF ANY SITE...: ",$$GET1^DIQ(165.5,IE,1262)
- D P Q:EX=U
- W !," ATAXIA OF GAIT...............: ",$$GET1^DIQ(165.5,IE,1263)
- D P Q:EX=U
- W !," TRUNCAL ATAXIA...............: ",$$GET1^DIQ(165.5,IE,1264)
- D P Q:EX=U
- W !," DYSMETRIA....................: ",$$GET1^DIQ(165.5,IE,1265)
- D P Q:EX=U
- W !," RAPID ALTERNATING MOVEMENTS..: ",$$GET1^DIQ(165.5,IE,1266)
- D P Q:EX=U
- W !," FINGER TO FINGER NOSE TESTING: ",$$GET1^DIQ(165.5,IE,1267)
- D P Q:EX=U
- W !," HEEL TO KNEE TO SHIN TESTING.: ",$$GET1^DIQ(165.5,IE,1268)
- D P Q:EX=U
- W !," DEEP TENDON REFLEXES IN UPPER"
- D P Q:EX=U
- W !," EXTREMITIES.................: ",$$GET1^DIQ(165.5,IE,1269)
- D P Q:EX=U
- W !," DEEP TENDON REFLEXES IN LOWER"
- D P Q:EX=U
- W !," EXTREMITIES.................: ",$$GET1^DIQ(165.5,IE,1270)
- D P Q:EX=U
- W !," BABINSKI SIGN................: ",$$GET1^DIQ(165.5,IE,1271)
- D P Q:EX=U
- W !," HOFFMAN REFLEX...............: ",$$GET1^DIQ(165.5,IE,1272)
- D P Q:EX=U
- W !," OTHER ABNORMAL REFLEXES......: ",$$GET1^DIQ(165.5,IE,1273)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"20. PRE-THERAPY DIAGNOSTIC STUDIES:"
- D P Q:EX=U
- W !," ANGIOGRAPHY..................: ",$$GET1^DIQ(165.5,IE,1274)
- D P Q:EX=U
- W !," CT SCAN OF BRAIN.............: ",$$GET1^DIQ(165.5,IE,1275)
- D P Q:EX=U
- W !," CT SCAN OF SPINE.............: ",$$GET1^DIQ(165.5,IE,1276)
- D P Q:EX=U
- W !," EEG..........................: ",$$GET1^DIQ(165.5,IE,1277)
- D P Q:EX=U
- W !," ISOTOPE BRAIN SCAN...........: ",$$GET1^DIQ(165.5,IE,1278)
- D P Q:EX=U
- W !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1279)
- D P Q:EX=U
- W !," SPECT SCAN...................: ",$$GET1^DIQ(165.5,IE,1280)
- D P Q:EX=U
- W !," MRI OF BRAIN.................: ",$$GET1^DIQ(165.5,IE,1281)
- D P Q:EX=U
- W !," MRI OF SPINE.................: ",$$GET1^DIQ(165.5,IE,1282)
- D P Q:EX=U
- W !," FUNCTIONAL MRI...............: ",$$GET1^DIQ(165.5,IE,1283)
- D P Q:EX=U
- W !," MYELOGRAPHY..................: ",$$GET1^DIQ(165.5,IE,1284)
- D P Q:EX=U
- W !," MRS..........................: ",$$GET1^DIQ(165.5,IE,1285)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"21. TUMOR LOCATION/INVOLVEMENT:"
- D P Q:EX=U
- W !," FRONTAL LOBE.................: ",$$GET1^DIQ(165.5,IE,1286)
- D P Q:EX=U
- W !," TEMPORAL LOBE................: ",$$GET1^DIQ(165.5,IE,1287)
- D P Q:EX=U
- W !," PARIETAL LOBE................: ",$$GET1^DIQ(165.5,IE,1288)
- D P Q:EX=U
- W !," OCCIPITAL LOBE...............: ",$$GET1^DIQ(165.5,IE,1289)
- D P Q:EX=U
- W !," OPTIC NERVES.................: ",$$GET1^DIQ(165.5,IE,1290)
- D P Q:EX=U
- W !," PITUITARY GLAND..............: ",$$GET1^DIQ(165.5,IE,1291)
- D P Q:EX=U
- W !," PINEAL GLAND.................: ",$$GET1^DIQ(165.5,IE,1292)
- D P Q:EX=U
- W !," CEREBELLUM...................: ",$$GET1^DIQ(165.5,IE,1293)
- D P Q:EX=U
- W !," BRAIN STEM...................: ",$$GET1^DIQ(165.5,IE,1294)
- D P Q:EX=U
- W !," SKULL BASE...................: ",$$GET1^DIQ(165.5,IE,1295)
- D P Q:EX=U
- W !," OTHER SKULL..................: ",$$GET1^DIQ(165.5,IE,1296)
- D P Q:EX=U
- W !," SPINAL CORD..................: ",$$GET1^DIQ(165.5,IE,1297)
- D P Q:EX=U
- W !," CEREBRAL SPINAL FLUID........: ",$$GET1^DIQ(165.5,IE,1298)
- D P Q:EX=U
- W !," CRANIAL MENINGES.............: ",$$GET1^DIQ(165.5,IE,1299)
- D P Q:EX=U
- W !," SPINAL MENINGES..............: ",$$GET1^DIQ(165.5,IE,1300)
- D P Q:EX=U
- W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1301)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"22. SIDE:"
- D P Q:EX=U
- W !," LEFT.........................: ",$$GET1^DIQ(165.5,IE,1302)
- D P Q:EX=U
- W !," RIGHT........................: ",$$GET1^DIQ(165.5,IE,1303)
- D P Q:EX=U
- W !," MIDLINE......................: ",$$GET1^DIQ(165.5,IE,1304)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"23. NUMBER OF TUMORS..............: ",$$GET1^DIQ(165.5,IE,1305)
- D P Q:EX=U
- W !,"24. DATE OF FIRST SYMPTOMS........: ",$$GET1^DIQ(165.5,IE,1306)
- D P Q:EX=U
- W !,"25. DATE OF INITIAL DIAGNOSIS.....: ",$$GET1^DIQ(165.5,IE,3)
- D P Q:EX=U
- W !,"26. DATE OF PATHOLOGIC DIAGNOSIS..: ",$$GET1^DIQ(165.5,IE,1307)
- D P Q:EX=U
- W !,"27. PRIMARY SITE (ICD-O-2)........: ",$$GET1^DIQ(165.5,IE,20.1)
- D P Q:EX=U
- W !,"28. WHO HISTOLOGICAL CLASSIFI- "
- D P Q:EX=U
- W !," CATION OF TUMOR..............: ",$$GET1^DIQ(165.5,IE,1308)
- D P Q:EX=U
- W !,"29. BEHAVIOR CODE (ICD-O-2).......: ",$E($$GET1^DIQ(165.5,IE,22,"I"),5)
- D P Q:EX=U
- W !,"30. GRADE.........................: ",$$GET1^DIQ(165.5,IE,24)
- D P Q:EX=U
- W !,"31. DIAGNOSTIC CONFIRMATION.......: ",$$GET1^DIQ(165.5,IE,26)
- D P Q:EX=U
- W !,"32. MOLECULAR MARKERS.............: ",$$GET1^DIQ(165.5,IE,1309)
- D P Q:EX=U
- W !,"33. TUMOR SIZE....................: ",$$GET1^DIQ(165.5,IE,1394)
- D P Q:EX=U
- W !,"34. TUMOR SIZE (SOURCE)...........: ",$$GET1^DIQ(165.5,IE,1310)
- D P Q:EX=U
- W !,"35. KARNOFSKY'S RATING PRIOR TO TX: ",$$GET1^DIQ(165.5,IE,1311)
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y
- III D:IOST?1"C".E HEAD^ONCIPC0 D ^ONCIPC8B
- Q
- P ;Print
- I ($Y'<(LIN-1)) D Q:EX=U
- .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
- .D HEAD^ONCIPC0 Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCIPC8A 7129 printed Mar 13, 2025@21:28:14 Page 2
- ONCIPC8A ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
- +1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- +2 ;Print (continued)
- +3 WRITE !,"19. NEUROLOGICAL FINDINGS:"
- +4 DO P
- if EX=U
- QUIT
- +5 WRITE !," ALERTNESS....................: ",$$GET1^DIQ(165.5,IE,1245)
- +6 DO P
- if EX=U
- QUIT
- +7 WRITE !," SPEECH.......................: ",$$GET1^DIQ(165.5,IE,1246)
- +8 DO P
- if EX=U
- QUIT
- +9 WRITE !," PERSONALITY..................: ",$$GET1^DIQ(165.5,IE,1247)
- +10 DO P
- if EX=U
- QUIT
- +11 WRITE !," MEMORY OR JUDGEMENT..........: ",$$GET1^DIQ(165.5,IE,1248)
- +12 DO P
- if EX=U
- QUIT
- +13 WRITE !," VISUAL ACUITY................: ",$$GET1^DIQ(165.5,IE,1249)
- +14 DO P
- if EX=U
- QUIT
- +15 WRITE !," VISUAL FIELDS................: ",$$GET1^DIQ(165.5,IE,1250)
- +16 DO P
- if EX=U
- QUIT
- +17 WRITE !," EYE MOVEMENTS (EOM)..........: ",$$GET1^DIQ(165.5,IE,1251)
- +18 DO P
- if EX=U
- QUIT
- +19 WRITE !," FACIAL SENSATION.............: ",$$GET1^DIQ(165.5,IE,1252)
- +20 DO P
- if EX=U
- QUIT
- +21 WRITE !," FACIAL MOVEMENT..............: ",$$GET1^DIQ(165.5,IE,1253)
- +22 DO P
- if EX=U
- QUIT
- +23 WRITE !," HEARING......................: ",$$GET1^DIQ(165.5,IE,1254)
- +24 DO P
- if EX=U
- QUIT
- +25 WRITE !," GAG REFLEX...................: ",$$GET1^DIQ(165.5,IE,1255)
- +26 DO P
- if EX=U
- QUIT
- +27 WRITE !," STERNOCLEIDOMASTOID/SHOULDER"
- +28 DO P
- if EX=U
- QUIT
- +29 WRITE !," SHRUG STRENGTH..............: ",$$GET1^DIQ(165.5,IE,1256)
- +30 DO P
- if EX=U
- QUIT
- +31 WRITE !," ARTICULATION OR ENUNCIATION..: ",$$GET1^DIQ(165.5,IE,1257)
- +32 DO P
- if EX=U
- QUIT
- +33 WRITE !," PAPILLEDEMA..................: ",$$GET1^DIQ(165.5,IE,1258)
- +34 DO P
- if EX=U
- QUIT
- +35 WRITE !," TONGUE FASCICULATIONS OR"
- +36 DO P
- if EX=U
- QUIT
- +37 WRITE !," ATROPHY.....................: ",$$GET1^DIQ(165.5,IE,1259)
- +38 DO P
- if EX=U
- QUIT
- +39 WRITE !," DECREASE IN SENSATION OF ANY"
- +40 DO P
- if EX=U
- QUIT
- +41 WRITE !," SITE........................: ",$$GET1^DIQ(165.5,IE,1260)
- +42 DO P
- if EX=U
- QUIT
- +43 WRITE !," CORTICAL SENSORY DEFICIT.....: ",$$GET1^DIQ(165.5,IE,1261)
- +44 DO P
- if EX=U
- QUIT
- +45 WRITE !," WEAKNESS, ATROPHY OR"
- +46 DO P
- if EX=U
- QUIT
- +47 WRITE !," FASCICULATION OF ANY SITE...: ",$$GET1^DIQ(165.5,IE,1262)
- +48 DO P
- if EX=U
- QUIT
- +49 WRITE !," ATAXIA OF GAIT...............: ",$$GET1^DIQ(165.5,IE,1263)
- +50 DO P
- if EX=U
- QUIT
- +51 WRITE !," TRUNCAL ATAXIA...............: ",$$GET1^DIQ(165.5,IE,1264)
- +52 DO P
- if EX=U
- QUIT
- +53 WRITE !," DYSMETRIA....................: ",$$GET1^DIQ(165.5,IE,1265)
- +54 DO P
- if EX=U
- QUIT
- +55 WRITE !," RAPID ALTERNATING MOVEMENTS..: ",$$GET1^DIQ(165.5,IE,1266)
- +56 DO P
- if EX=U
- QUIT
- +57 WRITE !," FINGER TO FINGER NOSE TESTING: ",$$GET1^DIQ(165.5,IE,1267)
- +58 DO P
- if EX=U
- QUIT
- +59 WRITE !," HEEL TO KNEE TO SHIN TESTING.: ",$$GET1^DIQ(165.5,IE,1268)
- +60 DO P
- if EX=U
- QUIT
- +61 WRITE !," DEEP TENDON REFLEXES IN UPPER"
- +62 DO P
- if EX=U
- QUIT
- +63 WRITE !," EXTREMITIES.................: ",$$GET1^DIQ(165.5,IE,1269)
- +64 DO P
- if EX=U
- QUIT
- +65 WRITE !," DEEP TENDON REFLEXES IN LOWER"
- +66 DO P
- if EX=U
- QUIT
- +67 WRITE !," EXTREMITIES.................: ",$$GET1^DIQ(165.5,IE,1270)
- +68 DO P
- if EX=U
- QUIT
- +69 WRITE !," BABINSKI SIGN................: ",$$GET1^DIQ(165.5,IE,1271)
- +70 DO P
- if EX=U
- QUIT
- +71 WRITE !," HOFFMAN REFLEX...............: ",$$GET1^DIQ(165.5,IE,1272)
- +72 DO P
- if EX=U
- QUIT
- +73 WRITE !," OTHER ABNORMAL REFLEXES......: ",$$GET1^DIQ(165.5,IE,1273)
- +74 DO P
- if EX=U
- QUIT
- +75 WRITE !
- +76 DO P
- if EX=U
- QUIT
- +77 WRITE !,"20. PRE-THERAPY DIAGNOSTIC STUDIES:"
- +78 DO P
- if EX=U
- QUIT
- +79 WRITE !," ANGIOGRAPHY..................: ",$$GET1^DIQ(165.5,IE,1274)
- +80 DO P
- if EX=U
- QUIT
- +81 WRITE !," CT SCAN OF BRAIN.............: ",$$GET1^DIQ(165.5,IE,1275)
- +82 DO P
- if EX=U
- QUIT
- +83 WRITE !," CT SCAN OF SPINE.............: ",$$GET1^DIQ(165.5,IE,1276)
- +84 DO P
- if EX=U
- QUIT
- +85 WRITE !," EEG..........................: ",$$GET1^DIQ(165.5,IE,1277)
- +86 DO P
- if EX=U
- QUIT
- +87 WRITE !," ISOTOPE BRAIN SCAN...........: ",$$GET1^DIQ(165.5,IE,1278)
- +88 DO P
- if EX=U
- QUIT
- +89 WRITE !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1279)
- +90 DO P
- if EX=U
- QUIT
- +91 WRITE !," SPECT SCAN...................: ",$$GET1^DIQ(165.5,IE,1280)
- +92 DO P
- if EX=U
- QUIT
- +93 WRITE !," MRI OF BRAIN.................: ",$$GET1^DIQ(165.5,IE,1281)
- +94 DO P
- if EX=U
- QUIT
- +95 WRITE !," MRI OF SPINE.................: ",$$GET1^DIQ(165.5,IE,1282)
- +96 DO P
- if EX=U
- QUIT
- +97 WRITE !," FUNCTIONAL MRI...............: ",$$GET1^DIQ(165.5,IE,1283)
- +98 DO P
- if EX=U
- QUIT
- +99 WRITE !," MYELOGRAPHY..................: ",$$GET1^DIQ(165.5,IE,1284)
- +100 DO P
- if EX=U
- QUIT
- +101 WRITE !," MRS..........................: ",$$GET1^DIQ(165.5,IE,1285)
- +102 DO P
- if EX=U
- QUIT
- +103 WRITE !
- +104 DO P
- if EX=U
- QUIT
- +105 WRITE !,"21. TUMOR LOCATION/INVOLVEMENT:"
- +106 DO P
- if EX=U
- QUIT
- +107 WRITE !," FRONTAL LOBE.................: ",$$GET1^DIQ(165.5,IE,1286)
- +108 DO P
- if EX=U
- QUIT
- +109 WRITE !," TEMPORAL LOBE................: ",$$GET1^DIQ(165.5,IE,1287)
- +110 DO P
- if EX=U
- QUIT
- +111 WRITE !," PARIETAL LOBE................: ",$$GET1^DIQ(165.5,IE,1288)
- +112 DO P
- if EX=U
- QUIT
- +113 WRITE !," OCCIPITAL LOBE...............: ",$$GET1^DIQ(165.5,IE,1289)
- +114 DO P
- if EX=U
- QUIT
- +115 WRITE !," OPTIC NERVES.................: ",$$GET1^DIQ(165.5,IE,1290)
- +116 DO P
- if EX=U
- QUIT
- +117 WRITE !," PITUITARY GLAND..............: ",$$GET1^DIQ(165.5,IE,1291)
- +118 DO P
- if EX=U
- QUIT
- +119 WRITE !," PINEAL GLAND.................: ",$$GET1^DIQ(165.5,IE,1292)
- +120 DO P
- if EX=U
- QUIT
- +121 WRITE !," CEREBELLUM...................: ",$$GET1^DIQ(165.5,IE,1293)
- +122 DO P
- if EX=U
- QUIT
- +123 WRITE !," BRAIN STEM...................: ",$$GET1^DIQ(165.5,IE,1294)
- +124 DO P
- if EX=U
- QUIT
- +125 WRITE !," SKULL BASE...................: ",$$GET1^DIQ(165.5,IE,1295)
- +126 DO P
- if EX=U
- QUIT
- +127 WRITE !," OTHER SKULL..................: ",$$GET1^DIQ(165.5,IE,1296)
- +128 DO P
- if EX=U
- QUIT
- +129 WRITE !," SPINAL CORD..................: ",$$GET1^DIQ(165.5,IE,1297)
- +130 DO P
- if EX=U
- QUIT
- +131 WRITE !," CEREBRAL SPINAL FLUID........: ",$$GET1^DIQ(165.5,IE,1298)
- +132 DO P
- if EX=U
- QUIT
- +133 WRITE !," CRANIAL MENINGES.............: ",$$GET1^DIQ(165.5,IE,1299)
- +134 DO P
- if EX=U
- QUIT
- +135 WRITE !," SPINAL MENINGES..............: ",$$GET1^DIQ(165.5,IE,1300)
- +136 DO P
- if EX=U
- QUIT
- +137 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1301)
- +138 DO P
- if EX=U
- QUIT
- +139 WRITE !
- +140 DO P
- if EX=U
- QUIT
- +141 WRITE !,"22. SIDE:"
- +142 DO P
- if EX=U
- QUIT
- +143 WRITE !," LEFT.........................: ",$$GET1^DIQ(165.5,IE,1302)
- +144 DO P
- if EX=U
- QUIT
- +145 WRITE !," RIGHT........................: ",$$GET1^DIQ(165.5,IE,1303)
- +146 DO P
- if EX=U
- QUIT
- +147 WRITE !," MIDLINE......................: ",$$GET1^DIQ(165.5,IE,1304)
- +148 DO P
- if EX=U
- QUIT
- +149 WRITE !
- +150 DO P
- if EX=U
- QUIT
- +151 WRITE !,"23. NUMBER OF TUMORS..............: ",$$GET1^DIQ(165.5,IE,1305)
- +152 DO P
- if EX=U
- QUIT
- +153 WRITE !,"24. DATE OF FIRST SYMPTOMS........: ",$$GET1^DIQ(165.5,IE,1306)
- +154 DO P
- if EX=U
- QUIT
- +155 WRITE !,"25. DATE OF INITIAL DIAGNOSIS.....: ",$$GET1^DIQ(165.5,IE,3)
- +156 DO P
- if EX=U
- QUIT
- +157 WRITE !,"26. DATE OF PATHOLOGIC DIAGNOSIS..: ",$$GET1^DIQ(165.5,IE,1307)
- +158 DO P
- if EX=U
- QUIT
- +159 WRITE !,"27. PRIMARY SITE (ICD-O-2)........: ",$$GET1^DIQ(165.5,IE,20.1)
- +160 DO P
- if EX=U
- QUIT
- +161 WRITE !,"28. WHO HISTOLOGICAL CLASSIFI- "
- +162 DO P
- if EX=U
- QUIT
- +163 WRITE !," CATION OF TUMOR..............: ",$$GET1^DIQ(165.5,IE,1308)
- +164 DO P
- if EX=U
- QUIT
- +165 WRITE !,"29. BEHAVIOR CODE (ICD-O-2).......: ",$EXTRACT($$GET1^DIQ(165.5,IE,22,"I"),5)
- +166 DO P
- if EX=U
- QUIT
- +167 WRITE !,"30. GRADE.........................: ",$$GET1^DIQ(165.5,IE,24)
- +168 DO P
- if EX=U
- QUIT
- +169 WRITE !,"31. DIAGNOSTIC CONFIRMATION.......: ",$$GET1^DIQ(165.5,IE,26)
- +170 DO P
- if EX=U
- QUIT
- +171 WRITE !,"32. MOLECULAR MARKERS.............: ",$$GET1^DIQ(165.5,IE,1309)
- +172 DO P
- if EX=U
- QUIT
- +173 WRITE !,"33. TUMOR SIZE....................: ",$$GET1^DIQ(165.5,IE,1394)
- +174 DO P
- if EX=U
- QUIT
- +175 WRITE !,"34. TUMOR SIZE (SOURCE)...........: ",$$GET1^DIQ(165.5,IE,1310)
- +176 DO P
- if EX=U
- QUIT
- +177 WRITE !,"35. KARNOFSKY'S RATING PRIOR TO TX: ",$$GET1^DIQ(165.5,IE,1311)
- +178 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- III if IOST?1"C".E
- DO HEAD^ONCIPC0
- DO ^ONCIPC8B
- +1 QUIT
- P ;Print
- +1 IF ($Y'<(LIN-1))
- Begin DoDot:1
- +2 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- IF 'Y
- SET EX=U
- QUIT
- +3 DO HEAD^ONCIPC0
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +4 QUIT
