- ONCNPC3 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table III;4/15/97
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- K TABLE,HTABLE
- S TABLE("AJCC CLINICAL STAGE GROUP")="ACS"
- S TABLE("CLINICALLY STAGED BY")="CSB"
- S TABLE("AJCC PATHOLOGIC STAGE GROUP")="APS"
- S TABLE("PATHOLOGICALLY STAGED BY")="PSB"
- S TABLE("TYPE OF STAGING SYSTEM (PEDIATRIC)")="TOSS"
- S TABLE("PEDIATRIC STAGE")="PS"
- S TABLE("STAGED BY (PEDIATRIC STAGE)")="SB"
- S TABLE("EXTRANODAL SITES")="ES"
- S HTABLE(1)="AJCC CLINICAL STAGE GROUP"
- S HTABLE(2)="CLINICALLY STAGED BY"
- S HTABLE(3)="AJCC PATHOLOGIC STAGE GROUP"
- S HTABLE(4)="PATHOLOGICALLY STAGED BY"
- S HTABLE(5)="TYPE OF STAGING SYSTEM (PEDIATRIC)"
- S HTABLE(6)="PEDIATRIC STAGE"
- S HTABLE(7)="STAGED BY (PEDIATRIC STAGE)"
- S HTABLE(8)="EXTRANODAL SITES"
- S CHOICES=8
- K DIQ S DIC="^ONCO(165.5,",DR="38;88",DA=ONCONUM,DIQ="ONC" D EN^DIQ1
- W @IOF D HEAD^ONCNPC0
- W !?18,"TABLE III- EXTENT OF DISEASE AND AJCC STAGE"
- W !?18,"-------------------------------------------"
- S DIE="^ONCO(165.5,",DA=ONCONUM
- ACS W !!,"AJCC CLINICAL STAGE GROUP......: ",ONC(165.5,ONCONUM,38)
- CSB S DR="19CLINICALLY STAGED BY..........." D ^DIE G:$D(Y) JUMP
- APS W !!,"AJCC PATHOLOGIC STAGE GROUP ...: ",ONC(165.5,ONCONUM,88)
- PSB S DR="89PATHOLOGICALLY STAGED BY......." D ^DIE G:$D(Y) JUMP
- W !
- TOSS S DR="849TYPE OF STAGING SYS (PEDIATRIC)" D ^DIE G:$D(Y) JUMP
- PS S DR="850PEDIATRIC STAGE................" D ^DIE G:$D(Y) JUMP
- SB S DR="851STAGED BY (PEDIATRIC STAGE)...." D ^DIE G:$D(Y) JUMP
- ES W !!,"EXTRANODAL SITES:",!
- S DR="852 EXTRANODAL SITE 1............" D ^DIE G:$D(Y) JUMP
- S DR="853 EXTRANODAL SITE 2............" D ^DIE G:$D(Y) JUMP
- S DR="854 EXTRANODAL SITE 3............" D ^DIE G:$D(Y) JUMP
- W ! K DIR S DIR(0)="E" D ^DIR
- G EXIT
- JUMP ;Jump to prompts
- S XX="" R !!,"GO TO: ",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 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 HTABLE,TABLE,CHOICES
- K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCNPC3 2210 printed Feb 18, 2025@23:50:25 Page 2
- ONCNPC3 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table III;4/15/97
- +1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- +2 KILL TABLE,HTABLE
- +3 SET TABLE("AJCC CLINICAL STAGE GROUP")="ACS"
- +4 SET TABLE("CLINICALLY STAGED BY")="CSB"
- +5 SET TABLE("AJCC PATHOLOGIC STAGE GROUP")="APS"
- +6 SET TABLE("PATHOLOGICALLY STAGED BY")="PSB"
- +7 SET TABLE("TYPE OF STAGING SYSTEM (PEDIATRIC)")="TOSS"
- +8 SET TABLE("PEDIATRIC STAGE")="PS"
- +9 SET TABLE("STAGED BY (PEDIATRIC STAGE)")="SB"
- +10 SET TABLE("EXTRANODAL SITES")="ES"
- +11 SET HTABLE(1)="AJCC CLINICAL STAGE GROUP"
- +12 SET HTABLE(2)="CLINICALLY STAGED BY"
- +13 SET HTABLE(3)="AJCC PATHOLOGIC STAGE GROUP"
- +14 SET HTABLE(4)="PATHOLOGICALLY STAGED BY"
- +15 SET HTABLE(5)="TYPE OF STAGING SYSTEM (PEDIATRIC)"
- +16 SET HTABLE(6)="PEDIATRIC STAGE"
- +17 SET HTABLE(7)="STAGED BY (PEDIATRIC STAGE)"
- +18 SET HTABLE(8)="EXTRANODAL SITES"
- +19 SET CHOICES=8
- +20 KILL DIQ
- SET DIC="^ONCO(165.5,"
- SET DR="38;88"
- SET DA=ONCONUM
- SET DIQ="ONC"
- DO EN^DIQ1
- +21 WRITE @IOF
- DO HEAD^ONCNPC0
- +22 WRITE !?18,"TABLE III- EXTENT OF DISEASE AND AJCC STAGE"
- +23 WRITE !?18,"-------------------------------------------"
- +24 SET DIE="^ONCO(165.5,"
- SET DA=ONCONUM
- ACS WRITE !!,"AJCC CLINICAL STAGE GROUP......: ",ONC(165.5,ONCONUM,38)
- CSB SET DR="19CLINICALLY STAGED BY..........."
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- APS WRITE !!,"AJCC PATHOLOGIC STAGE GROUP ...: ",ONC(165.5,ONCONUM,88)
- PSB SET DR="89PATHOLOGICALLY STAGED BY......."
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- +1 WRITE !
- TOSS SET DR="849TYPE OF STAGING SYS (PEDIATRIC)"
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- PS SET DR="850PEDIATRIC STAGE................"
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- SB SET DR="851STAGED BY (PEDIATRIC STAGE)...."
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- ES WRITE !!,"EXTRANODAL SITES:",!
- +1 SET DR="852 EXTRANODAL SITE 1............"
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- +2 SET DR="853 EXTRANODAL SITE 2............"
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- +3 SET DR="854 EXTRANODAL SITE 3............"
- DO ^DIE
- if $DATA(Y)
- GOTO JUMP
- +4 WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- +5 GOTO EXIT
- JUMP ;Jump to prompts
- +1 SET XX=""
- READ !!,"GO TO: ",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 !,?5,HTABLE(I)
- End DoDot:1
- GOTO JUMP
- +4 IF '$DATA(TABLE(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 !,?5,HTABLE(I)
- End DoDot:1
- GOTO JUMP
- +6 SET X=TABLE(X)
- +7 GOTO @X
- EXIT KILL HTABLE,TABLE,CHOICES
- +1 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
- +2 QUIT