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 Apr 09, 2024@21:27:09 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
