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

ONCIPC4.m

Go to the documentation of this file.
  1. ONCIPC4 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;Recurrence/Progression
  1. K TABLE,HTABLE
  1. S TABLE("70. DATE OF FIRST RECURRENCE")="DFR"
  1. S TABLE("71. TYPE OF FIRST RECURRENCE")="TFR"
  1. S TABLE("72. DATE OF PROGRESSION")="DP"
  1. S TABLE("73. TYPE OF PROGRESSION")="TP"
  1. S TABLE("74. RECURRENCE/PROGRESSION DOCUMENTATION")="RPD"
  1. S TABLE("75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION")="KRTRP"
  1. S HTABLE(1)="70. TYPE OF FIRST RECURRENCE"
  1. S HTABLE(2)="71. DATE OF FIRST RECURRENCE"
  1. S HTABLE(3)="72. DATE OF PROGRESSION"
  1. S HTABLE(4)="73. TYPE OF PROGRESSION"
  1. S HTABLE(5)="74. RECURRENCE/PROGRESSION DOCUMENTATION"
  1. S HTABLE(6)="75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION"
  1. S CHOICES=6
  1. S IE=ONCONUM
  1. S TFR=$$GET1^DIQ(165.5,IE,1372,"I")
  1. S TP=$$GET1^DIQ(165.5,IE,1369,"I")
  1. W @IOF D HEAD^ONCIPC0
  1. W !," RECURRENCE/PROGRESSION"
  1. W !," ---------------------"
  1. S DIE="^ONCO(165.5,",DA=ONCONUM
  1. DFR S DR="70 70. DATE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
  1. TFR S DR="1372 71. TYPE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
  1. DP S DR="1368 72. DATE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
  1. TP S DR="1369 73. TYPE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
  1. RPD I (TFR=0)&((TP=0)!(TP=8)) D G KRTRP
  1. .S $P(^ONCO(165.5,IE,"CNS2"),U,85)=0
  1. .W !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: No recurrence/progression"
  1. I (TFR=9)&(TP=9) D G KRTRP
  1. .S $P(^ONCO(165.5,IE,"CNS2"),U,85)=9
  1. .W !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: Unknown"
  1. S DR="1370 74. RECURRENCE/PROGRESSION DOCUMENTATION................" D ^DIE G:$D(Y) JUMP
  1. KRTRP I (TFR=0)&((TP=0)!(TP=8)) D G PRTC
  1. .S $P(^ONCO(165.5,IE,"CNS2"),U,86)=13
  1. .W !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 888"
  1. I (TFR=9)&(TP=9) D G PRTC
  1. .S $P(^ONCO(165.5,IE,"CNS2"),U,86)=12
  1. .W !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 999"
  1. S DR="1371 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION......." D ^DIE G:$D(Y) JUMP
  1. PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
  1. G EXIT
  1. JUMP ;Jump to prompts
  1. S XX="" R !!," GO TO ITEM NUMBER: ",X:DTIME
  1. 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:X?1.2N X=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 CHOICES,HTABLE,TABLE
  1. K TFR,TP
  1. K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
  1. Q