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

ONCBPC4A.m

Go to the documentation of this file. 
  1. ONCBPC4A ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table IV;6/19/96
  1.  ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. RAD W !!,"RADIATION THERAPY:",!
  1.  S RAD=ONC(165.5,ONCONUM,51.2,"I"),RADOT=ONC(165.5,ONCONUM,51.2,"E")
  1.  W !,"  RADIATION THERAPY.................: ",RADOT
  1.  S RADDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,4)
  1.  S Y=RADDT D DATEOT^ONCOPCE S RADDT=Y
  1.  W !,"  DATE RADIATION THERAPY STARTED....: ",RADDT
  1.  I (RAD=0)!(RAD=7) D  G:(Y=0)!(Y="") EXIT W @IOF G CHEMO
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000" ; 2/2/98 WAA
  1.  .W !,"  DATE RADIATION THERAPY ENDED......: 00/00/0000"
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
  1.  .W !,"  TOTAL RAD (cGy/rad) DOSE..........: 00000"
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=1
  1.  .W !,"  REGIONAL TREATMENT MODALITY.......: No radiation therapy"
  1.  .W !!,"  RADIATION COMPLICATIONS:",!
  1.  .F PIECE=19:1:21 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=8
  1.  .W !,"    URINARY INCONTINENCE............: Not applicable"
  1.  .W !,"    HEMATURIA.......................: Not applicable"
  1.  .W !,"    RADIATION BOWEL INJURY..........: Not applicable"
  1.  .W ! K DIR S DIR(0)="E" D ^DIR
  1.  I (RAD=8)!(RAD=9) D  G:(Y=0)!(Y="") EXIT W @IOF G CHEMO
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999 ; 2/2/98 WAA
  1.  .W !,"  DATE RADIATION THERAPY ENDED......: 99/99/9999"
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
  1.  .W !,"  TOTAL RAD (cGy/rad) DOSE..........: 99999"
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=19
  1.  .W !,"  REGIONAL TREATMENT MODALITY.......: Unknown"
  1.  .W !!,"  RADIATION COMPLICATIONS:",!
  1.  .F PIECE=19:1:21 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
  1.  .W !,"    URINARY INCONTINENCE............: Unknown"
  1.  .W !,"    HEMATURIA.......................: Unknown"
  1.  .W !,"    RADIATION BOWEL INJURY..........: Unknown"
  1.  .W ! K DIR S DIR(0)="E" D ^DIR
  1.  S DR="361  DATE RADIATION THERAPY ENDED......" D ^DIE G:$D(Y) JUMP
  1.  S DR="362  TOTAL RAD (cGy/rad) DOSE.........." D ^DIE G:$D(Y) JUMP
  1.  S DR="363  REGIONAL TREATMENT MODALITY......." D ^DIE G:$D(Y) JUMP
  1.  W !!,"  RADIATION COMPLICATIONS:",!
  1.  S DR="364    URINARY INCONTINENCE............" D ^DIE G:$D(Y) JUMP
  1.  S DR="365    HEMATURIA......................." D ^DIE G:$D(Y) JUMP
  1.  S DR="366    RADIATION BOWEL INJURY.........." D ^DIE G:$D(Y) JUMP
  1. CHEMO W !!,"CHEMOTHERAPY:",!
  1.  S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
  1.  W !,"  CHEMOTHERAPY......................: ",CHEMOT
  1.  S CHEDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,11)
  1.  S Y=CHEDT D DATEOT^ONCOPCE S CHEDT=Y
  1.  W !,"  DATE CHEMOTHERAPY STARTED.........: ",CHEDT
  1.  I (CHEMO=0)!(CHEMO=7) D  G:(Y=0)!(Y="") EXIT W @IOF G BRM
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,22)="0000000" ; 2/2/98 WAA
  1.  .W !,"  DATE CHEMOTHERAPY ENDED...........: 00/00/0000"
  1.  .F PIECE=23:1:36 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
  1.  .W !,"  ROUTE CHEMOTHERAPY ADMINISTERED...: No chemotherapy"
  1.  .W !!,"  TYPES OF AGENTS ADMINISTERED:",!
  1.  .W !,"    ADRIAMYCIN......: None      IFOSFAMIDE......: None"
  1.  .W !,"    CARBOPLATINUM...: None      METHOTREXATE....: None"
  1.  .W !,"    CISPLATIN.......: None      TAXOL...........: None"
  1.  .W !,"    CYCLOPHOSPHAMIDE: None      THIOTEPA........: None"
  1.  .W !,"    5-FLUOROURACIL..: None      VINBLASTINE.....: None"
  1.  .W !,"    GALLIUM NITRATE.: None      OTHER...........: None"
  1.  .W !!,"  INDICATION FOR ADMIN OF AGENTS....: No agents administered, NA"
  1.  .W !!,"  REASON CHEMOTHERAPY STOPPED.......: Treatment completed, NA"
  1.  .W ! K DIR S DIR(0)="E" D ^DIR
  1.  I (CHEMO=8)!(CHEMO=9) D  G:(Y=0)!(Y="") EXIT W @IOF G BRM
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,22)=9999999 ; 2/2/98 WAA
  1.  .W !,"  DATE CHEMOTHERAPY ENDED...........: 99/99/9999"
  1.  .F PIECE=23:1:36 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
  1.  .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=9
  1.  .W !,"  ROUTE CHEMOTHERAPY ADMINISTERED...: Unknown"
  1.  .W !!,"  TYPES OF AGENTS ADMINISTERED:",!
  1.  .W !,"    ADRIAMYCIN......: Unknown   IFOSFAMIDE......: Unknown"
  1.  .W !,"    CARBOPLATINUM...: Unknown   METHOTREXATE....: Unknown"
  1.  .W !,"    CISPLATIN.......: Unknown   TAXOL...........: Unknown"
  1.  .W !,"    CYCLOPHOSPHAMIDE: Unknown   THIOTEPA........: Unknown"
  1.  .W !,"    5-FLUOROURACIL..: Unknown   VINBLASTINE.....: Unknown"
  1.  .W !,"    GALLIUM NITRATE.: Unknown   OTHER...........: Unknown"
  1.  .W !!,"  INDICATION FOR ADMIN OF AGENTS....: Unknown"
  1.  .W !!,"  REASON CHEMOTHERAPY STOPPED.......: Unknown"
  1.  .W ! K DIR S DIR(0)="E" D ^DIR
  1.  S DR="367  DATE CHEMOTHERAPY ENDED..........." D ^DIE G:$D(Y) JUMP
  1.  S DR="368  ROUTE CHEMOTHERAPY ADMINISTERED..." D ^DIE G:$D(Y) JUMP
  1.  W !!,"  TYPES OF AGENTS ADMINISTERED:",!
  1.  S DR="369    ADRIAMYCIN......................" D ^DIE G:$D(Y) JUMP
  1.  S DR="370    CARBOPLATINUM..................." D ^DIE G:$D(Y) JUMP
  1.  S DR="371    CISPLATIN......................." D ^DIE G:$D(Y) JUMP
  1.  S DR="372    CYCLOPHOSPHAMIDE................" D ^DIE G:$D(Y) JUMP
  1.  S DR="373    5-FLUOROURACIL.................." D ^DIE G:$D(Y) JUMP
  1.  S DR="374    GALLIUM NITRATE................." D ^DIE G:$D(Y) JUMP
  1.  S DR="375    IFOSFAMIDE......................" D ^DIE G:$D(Y) JUMP
  1.  S DR="376    METHOTREXATE...................." D ^DIE G:$D(Y) JUMP
  1.  S DR="377    TAXOL..........................." D ^DIE G:$D(Y) JUMP
  1.  S DR="378    THIOTEPA........................" D ^DIE G:$D(Y) JUMP
  1.  S DR="379    VINBLASTINE....................." D ^DIE G:$D(Y) JUMP
  1.  S DR="380    OTHER AGENT....................." D ^DIE G:$D(Y) JUMP
  1.  W !
  1.  S DR="381  INDICATION FOR ADMIN OF AGENTS...." D ^DIE G:$D(Y) JUMP
  1.  S DR="382  REASON CHEMOTHERAPY STOPPED......." D ^DIE G:$D(Y) JUMP
  1. BRM W !!,"IMMUNOTHERAPY:",!
  1.  S BRM=ONC(165.5,ONCONUM,55.2,"I"),BRMOT=ONC(165.5,ONCONUM,55.2,"E")
  1.  W !,"  IMMUNOTHERAPY (BRM)...............: ",BRMOT
  1.  W !!,"  TYPE OF IMMUNOTHERAPY (BRM):",!
  1.  I (BRM=6)!(BRM=7) D  W ! K DIR S DIR(0)="E" D ^DIR G EXIT
  1.  .F PIECE=37:1:40 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
  1.  .W !,"    BCG......................: None"
  1.  .W !,"    INTERFERON...............: None"
  1.  .W !,"    INTERLEUKIN-II...........: None"
  1.  .W !,"    OTHER....................: None"
  1.  I (BRM=8)!(BRM=9) D  W ! K DIR S DIR(0)="E" D ^DIR G EXIT
  1.  .F PIECE=37:1:40 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
  1.  .W !,"    BCG......................: Unknown"
  1.  .W !,"    INTERFERON...............: Unknown"
  1.  .W !,"    INTERLEUKIN-II...........: Unknown"
  1.  .W !,"    OTHER....................: Unknown"
  1.  S DR="383    BCG............................." D ^DIE G:$D(Y) JUMP
  1.  S DR="384    INTERFERON......................" D ^DIE G:$D(Y) JUMP
  1.  S DR="385    INTERLEUKIN-II.................." D ^DIE G:$D(Y) JUMP
  1.  S DR="386    OTHER..........................." 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 G:(X="")!(X[U) 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 CHOICES,HTABLE,TABLE
  1.  K BRM,CDS,CDSOT,CHEDT,CHEMO,DOIT,LOS,NCDS,NCDSOT,NOP,PIECE,RAD,RADDT
  1.  K SURG,SURG1,SURG2,SURGDT,Z
  1.  K DIC
  1.  Q