ONCIPC3A ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;First Course of Treatment (continued)
S W @IOF
W !," SURGERY"
W !," -------"
W !," NON CANCER-DIRECTED SURGERY"
DNCDS W !!," 41. DATE OF NON CA-DIR SURGERY...: ",$$GET1^DIQ(165.5,IE,58.3)
DEPS W !!," 42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CA-DIRECTED) SURGERY:"
NCDS00 I $E(NCDS,1,2)="00" D W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF G CDS
.S $P(^ONCO(165.5,IE,"CNS2"),U,29)=1
.F PIECE=30:1:40 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
.W !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE...: Yes"
.W !," VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN: No"
.W !," CSF SHUNT, VENTRICULOPERITONEAL...............: No"
.W !," CSF SHUNT, THIRD VENTRICULOSTOMY..............: No"
.W !," CSF SHUNT, OTHER..............................: No"
.W !," STEREOTACTIC BIOPSY...........................: No"
.W !," OPEN BRAIN BIOPSY.............................: No"
.W !," OPEN BIOPSY OF SPINAL CORD TUMOR..............: No"
.W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA........: No"
.W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA..........: No"
.W !," SURGERY, NOS..................................: No"
.W !," UNKNOWN IF SURGERY DONE.......................: No"
NCDS09 I $E(NCDS,1,2)="09" D W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF G CDS
.F PIECE=29:1:39 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
.S $P(^ONCO(165.5,IE,"CNS2"),U,40)=1
.W !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE...: Unknown"
.W !," VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN: Unknown"
.W !," CSF SHUNT, VENTRICULOPERITONEAL...............: Unknown"
.W !," CSF SHUNT, THIRD VENTRICULOSTOMY..............: Unknown"
.W !," CSF SHUNT, OTHER..............................: Unknown"
.W !," STEREOTACTIC BIOPSY...........................: Unknown"
.W !," OPEN BRAIN BIOPSY.............................: Unknown"
.W !," OPEN BIOPSY OF SPINAL CORD TUMOR..............: Unknown"
.W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA........: Unknown"
.W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA..........: Unknown"
.W !," SURGERY, NOS..................................: Unknown"
.W !," UNKNOWN IF SURGERY DONE.......................: Yes"
I NCDS'="" D G DEPS1
.S $P(^ONCO(165.5,IE,"CNS2"),U,29)=0
.W !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE..........: No"
S DR="1314 NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE.........." D ^DIE G:$D(Y) JUMP
I X=1 S NCDS="00" G NCDS00
I X=9 S NCDS="09" G NCDS09
DEPS1 S DR="1315 VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN..........." D ^DIE G:$D(Y) JUMP
S DR="1316 CSF SHUNT, VENTRICULOPERITONEAL........" D ^DIE G:$D(Y) JUMP
S DR="1317 CSF SHUNT, THIRD VENTRICULOSTOMY......." D ^DIE G:$D(Y) JUMP
S DR="1318 CSF SHUNT, OTHER......................." D ^DIE G:$D(Y) JUMP
S DR="1319 STEREOTACTIC BIOPSY.........." D ^DIE G:$D(Y) JUMP
S DR="1320 OPEN BRAIN BIOPSY............" D ^DIE G:$D(Y) JUMP
S DR="1321 OPEN BIOPSY OF SPINAL CORD TUMOR......................." D ^DIE G:$D(Y) JUMP
S DR="1322 LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA..........." D ^DIE G:$D(Y) JUMP
S DR="1323 LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA............." D ^DIE G:$D(Y) JUMP
S DR="1324 SURGERY, NOS................." D ^DIE G:$D(Y) JUMP
S DR="1325 UNKNOWN IF SURGERY DONE......" D ^DIE G:$D(Y) JUMP
CDS W !!," CANCER-DIRECTED SURGERY",!
DCDS W !," 43. DATE OF CA-DIRECTED SURGERY...: ",$$GET1^DIQ(165.5,IE,50)
I $E(CDS,1,2)="00" D G RFNS
.F PIECE=41,42,44 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
.S $P(^ONCO(165.5,IE,"CNS2"),U,43)=998
.F PIECE=45,46,47,48,49,50 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
.S $P(^ONCO(165.5,IE,"BLA2"),U,15)=8
.W !," 44. SURGICAL APPROACH.............: None, no ca-directed surgery"
.W !," 45. EXTENT OF SURGICAL RESECTION..: None, no surgery performed"
.W !," 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY.........: NA, surgical treatment not administered"
.W !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
.W !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
.W !," ANESTHETIC PROBLEM...........: NA, surgery not performed"
.W !," HEMORRHAGE AT OPERATIVE SITE.: NA, surgery not performed"
.W !," SEIZURE......................: NA, surgery not performed"
.W !," INFECTION(S).................: NA, surgery not performed"
.W !," DVT (DEEP VENOUS THROMBOSIS..: NA, surgery not performed"
.W !," PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP.........: NA, surgery not performed"
.W !," OTHER........................: NA, surgery not performed"
I $E(CDS,1,2)=99 D G RFNS
.F PIECE=41,42 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
.S $P(^ONCO(165.5,IE,"CNS2"),U,43)=999
.S $P(^ONCO(165.5,IE,"CNS2"),U,44)=0
.F PIECE=45,46,47,48,49,50 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
.S $P(^ONCO(165.5,IE,"BLA2"),U,15)=9
.W !," 44. SURGICAL APPROACH.............: Surgical approach unknown"
.W !," 45. EXTENT OF SURGICAL RESECTION..: Unknown if surgery performed"
.W !," 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY.........: Unknown, tumor not evaluated"
.W !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
.W !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
.W !," ANESTHETIC PROBLEM...........: Unknown"
.W !," HEMORRHAGE AT OPERATIVE SITE.: Unknown"
.W !," SEIZURE......................: Unknown"
.W !," INFECTION(S).................: Unknown"
.W !," DVT (DEEP VENOUS THROMBOSIS..: Unknown"
.W !," PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP.........: Unknown"
.W !," OTHER........................: Unknown"
SA S DR="1326 44. SURGICAL APPROACH............." D ^DIE G:$D(Y) JUMP
ESR S DR="1327 45. EXTENT OF SURGICAL RESECTION.." D ^DIE G:$D(Y) JUMP
SRPT S DR="1328 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY........." D ^DIE G:$D(Y) JUMP
I (X<1)!(X>997) D G SCPSE
.S $P(^ONCO(165.5,IE,"CNS2"),U,44)=0
.W !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
SRPTS S DR="1329 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE)" D ^DIE G:$D(Y) JUMP
SCPSE W !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
S DR="1330 ANESTHETIC PROBLEM..........." D ^DIE G:$D(Y) JUMP
S DR="1331 HEMORRHAGE AT OPERATIVE SITE." D ^DIE G:$D(Y) JUMP
S DR="1332 SEIZURE......................" D ^DIE G:$D(Y) JUMP
S DR="1333 INFECTION(S)................." D ^DIE G:$D(Y) JUMP
S DR="1334 DVT (DEEP VENOUS THROMBOSIS)." D ^DIE G:$D(Y) JUMP
S DR="1335 PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP........." D ^DIE G:$D(Y) JUMP
S DR="360 OTHER........................" D ^DIE G:$D(Y) JUMP
RFNS W ! S DR="58 49. REASON FOR NO SURGERY........." D ^DIE G:$D(Y) JUMP
RT G RT^ONCIPC3B
JUMP ;Jump to prompts
S XX="" R !!," GO TO ITEM: ",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 !," ",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 !," ",HTABLE(I)
S X=TABLE(X)
G @X
EXIT S:$D(DIRUT) OUT="Y"
G EXIT^ONCIPC3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCIPC3A 9088 printed Dec 13, 2024@02:23:21 Page 2
ONCIPC3A ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;First Course of Treatment (continued)
S WRITE @IOF
+1 WRITE !," SURGERY"
+2 WRITE !," -------"
+3 WRITE !," NON CANCER-DIRECTED SURGERY"
DNCDS WRITE !!," 41. DATE OF NON CA-DIR SURGERY...: ",$$GET1^DIQ(165.5,IE,58.3)
DEPS WRITE !!," 42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CA-DIRECTED) SURGERY:"
NCDS00 IF $EXTRACT(NCDS,1,2)="00"
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,29)=1
+2 FOR PIECE=30:1:40
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
+3 WRITE !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE...: Yes"
+4 WRITE !," VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN: No"
+5 WRITE !," CSF SHUNT, VENTRICULOPERITONEAL...............: No"
+6 WRITE !," CSF SHUNT, THIRD VENTRICULOSTOMY..............: No"
+7 WRITE !," CSF SHUNT, OTHER..............................: No"
+8 WRITE !," STEREOTACTIC BIOPSY...........................: No"
+9 WRITE !," OPEN BRAIN BIOPSY.............................: No"
+10 WRITE !," OPEN BIOPSY OF SPINAL CORD TUMOR..............: No"
+11 WRITE !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA........: No"
+12 WRITE !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA..........: No"
+13 WRITE !," SURGERY, NOS..................................: No"
+14 WRITE !," UNKNOWN IF SURGERY DONE.......................: No"
End DoDot:1
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
WRITE @IOF
GOTO CDS
NCDS09 IF $EXTRACT(NCDS,1,2)="09"
Begin DoDot:1
+1 FOR PIECE=29:1:39
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
+2 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,40)=1
+3 WRITE !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE...: Unknown"
+4 WRITE !," VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN: Unknown"
+5 WRITE !," CSF SHUNT, VENTRICULOPERITONEAL...............: Unknown"
+6 WRITE !," CSF SHUNT, THIRD VENTRICULOSTOMY..............: Unknown"
+7 WRITE !," CSF SHUNT, OTHER..............................: Unknown"
+8 WRITE !," STEREOTACTIC BIOPSY...........................: Unknown"
+9 WRITE !," OPEN BRAIN BIOPSY.............................: Unknown"
+10 WRITE !," OPEN BIOPSY OF SPINAL CORD TUMOR..............: Unknown"
+11 WRITE !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA........: Unknown"
+12 WRITE !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA..........: Unknown"
+13 WRITE !," SURGERY, NOS..................................: Unknown"
+14 WRITE !," UNKNOWN IF SURGERY DONE.......................: Yes"
End DoDot:1
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
WRITE @IOF
GOTO CDS
+15 IF NCDS'=""
Begin DoDot:1
+16 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,29)=0
+17 WRITE !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE..........: No"
End DoDot:1
GOTO DEPS1
+18 SET DR="1314 NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+19 IF X=1
SET NCDS="00"
GOTO NCDS00
+20 IF X=9
SET NCDS="09"
GOTO NCDS09
DEPS1 SET DR="1315 VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 SET DR="1316 CSF SHUNT, VENTRICULOPERITONEAL........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1317 CSF SHUNT, THIRD VENTRICULOSTOMY......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1318 CSF SHUNT, OTHER......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="1319 STEREOTACTIC BIOPSY.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="1320 OPEN BRAIN BIOPSY............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="1321 OPEN BIOPSY OF SPINAL CORD TUMOR......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="1322 LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="1323 LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="1324 SURGERY, NOS................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="1325 UNKNOWN IF SURGERY DONE......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
CDS WRITE !!," CANCER-DIRECTED SURGERY",!
DCDS WRITE !," 43. DATE OF CA-DIRECTED SURGERY...: ",$$GET1^DIQ(165.5,IE,50)
+1 IF $EXTRACT(CDS,1,2)="00"
Begin DoDot:1
+2 FOR PIECE=41,42,44
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
+3 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,43)=998
+4 FOR PIECE=45,46,47,48,49,50
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
+5 SET $PIECE(^ONCO(165.5,IE,"BLA2"),U,15)=8
+6 WRITE !," 44. SURGICAL APPROACH.............: None, no ca-directed surgery"
+7 WRITE !," 45. EXTENT OF SURGICAL RESECTION..: None, no surgery performed"
+8 WRITE !," 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY.........: NA, surgical treatment not administered"
+9 WRITE !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
+10 WRITE !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
+11 WRITE !," ANESTHETIC PROBLEM...........: NA, surgery not performed"
+12 WRITE !," HEMORRHAGE AT OPERATIVE SITE.: NA, surgery not performed"
+13 WRITE !," SEIZURE......................: NA, surgery not performed"
+14 WRITE !," INFECTION(S).................: NA, surgery not performed"
+15 WRITE !," DVT (DEEP VENOUS THROMBOSIS..: NA, surgery not performed"
+16 WRITE !," PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP.........: NA, surgery not performed"
+17 WRITE !," OTHER........................: NA, surgery not performed"
End DoDot:1
GOTO RFNS
+18 IF $EXTRACT(CDS,1,2)=99
Begin DoDot:1
+19 FOR PIECE=41,42
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
+20 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,43)=999
+21 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,44)=0
+22 FOR PIECE=45,46,47,48,49,50
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
+23 SET $PIECE(^ONCO(165.5,IE,"BLA2"),U,15)=9
+24 WRITE !," 44. SURGICAL APPROACH.............: Surgical approach unknown"
+25 WRITE !," 45. EXTENT OF SURGICAL RESECTION..: Unknown if surgery performed"
+26 WRITE !," 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY.........: Unknown, tumor not evaluated"
+27 WRITE !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
+28 WRITE !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
+29 WRITE !," ANESTHETIC PROBLEM...........: Unknown"
+30 WRITE !," HEMORRHAGE AT OPERATIVE SITE.: Unknown"
+31 WRITE !," SEIZURE......................: Unknown"
+32 WRITE !," INFECTION(S).................: Unknown"
+33 WRITE !," DVT (DEEP VENOUS THROMBOSIS..: Unknown"
+34 WRITE !," PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP.........: Unknown"
+35 WRITE !," OTHER........................: Unknown"
End DoDot:1
GOTO RFNS
SA SET DR="1326 44. SURGICAL APPROACH............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
ESR SET DR="1327 45. EXTENT OF SURGICAL RESECTION.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SRPT SET DR="1328 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF (X<1)!(X>997)
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,44)=0
+3 WRITE !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
End DoDot:1
GOTO SCPSE
SRPTS SET DR="1329 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE)"
DO ^DIE
if $DATA(Y)
GOTO JUMP
SCPSE WRITE !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
+1 SET DR="1330 ANESTHETIC PROBLEM..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1331 HEMORRHAGE AT OPERATIVE SITE."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1332 SEIZURE......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="1333 INFECTION(S)................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="1334 DVT (DEEP VENOUS THROMBOSIS)."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="1335 PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="360 OTHER........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
RFNS WRITE !
SET DR="58 49. REASON FOR NO SURGERY........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RT GOTO RT^ONCIPC3B
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !," ",HTABLE(I)
End DoDot:1
GOTO JUMP
+4 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
+5 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !," ",HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT if $DATA(DIRUT)
SET OUT="Y"
+1 GOTO EXIT^ONCIPC3
