Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCNPC3

ONCNPC3.m

Go to the documentation of this file.
  1. 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
  1. K TABLE,HTABLE
  1. S TABLE("AJCC CLINICAL STAGE GROUP")="ACS"
  1. S TABLE("CLINICALLY STAGED BY")="CSB"
  1. S TABLE("AJCC PATHOLOGIC STAGE GROUP")="APS"
  1. S TABLE("PATHOLOGICALLY STAGED BY")="PSB"
  1. S TABLE("TYPE OF STAGING SYSTEM (PEDIATRIC)")="TOSS"
  1. S TABLE("PEDIATRIC STAGE")="PS"
  1. S TABLE("STAGED BY (PEDIATRIC STAGE)")="SB"
  1. S TABLE("EXTRANODAL SITES")="ES"
  1. S HTABLE(1)="AJCC CLINICAL STAGE GROUP"
  1. S HTABLE(2)="CLINICALLY STAGED BY"
  1. S HTABLE(3)="AJCC PATHOLOGIC STAGE GROUP"
  1. S HTABLE(4)="PATHOLOGICALLY STAGED BY"
  1. S HTABLE(5)="TYPE OF STAGING SYSTEM (PEDIATRIC)"
  1. S HTABLE(6)="PEDIATRIC STAGE"
  1. S HTABLE(7)="STAGED BY (PEDIATRIC STAGE)"
  1. S HTABLE(8)="EXTRANODAL SITES"
  1. S CHOICES=8
  1. K DIQ S DIC="^ONCO(165.5,",DR="38;88",DA=ONCONUM,DIQ="ONC" D EN^DIQ1
  1. W @IOF D HEAD^ONCNPC0
  1. W !?18,"TABLE III- EXTENT OF DISEASE AND AJCC STAGE"
  1. W !?18,"-------------------------------------------"
  1. S DIE="^ONCO(165.5,",DA=ONCONUM
  1. ACS W !!,"AJCC CLINICAL STAGE GROUP......: ",ONC(165.5,ONCONUM,38)
  1. CSB S DR="19CLINICALLY STAGED BY..........." D ^DIE G:$D(Y) JUMP
  1. APS W !!,"AJCC PATHOLOGIC STAGE GROUP ...: ",ONC(165.5,ONCONUM,88)
  1. PSB S DR="89PATHOLOGICALLY STAGED BY......." D ^DIE G:$D(Y) JUMP
  1. W !
  1. TOSS S DR="849TYPE OF STAGING SYS (PEDIATRIC)" D ^DIE G:$D(Y) JUMP
  1. PS S DR="850PEDIATRIC STAGE................" D ^DIE G:$D(Y) JUMP
  1. SB S DR="851STAGED BY (PEDIATRIC STAGE)...." D ^DIE G:$D(Y) JUMP
  1. ES W !!,"EXTRANODAL SITES:",!
  1. S DR="852 EXTRANODAL SITE 1............" D ^DIE G:$D(Y) JUMP
  1. S DR="853 EXTRANODAL SITE 2............" D ^DIE G:$D(Y) JUMP
  1. S DR="854 EXTRANODAL SITE 3............" D ^DIE G:$D(Y) JUMP
  1. W ! K DIR S DIR(0)="E" D ^DIR
  1. G EXIT
  1. JUMP ;Jump to prompts
  1. S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
  1. I X["?" D G JUMP
  1. .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
  1. I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
  1. .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
  1. S X=TABLE(X)
  1. G @X
  1. EXIT K HTABLE,TABLE,CHOICES
  1. K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
  1. Q