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

ONCUTX.m

Go to the documentation of this file. 
  1. ONCUTX ;Hines OIFO/GWB - Unknown treatment stuffing ;06/23/10
  1.  ;;2.2;ONCOLOGY;**1,10**;Jul 31, 2013;Build 20
  1.  ;
  1. NCDS ;SURGICAL DX/STAGING PROC (165.5,58.1)
  1.  S $P(^ONCO(165.5,D0,3),U,31)=9999999
  1.  W !,"SURGICAL DX/STAGING PROC DATE: 99/99/9999" D NCDSDT^ONCATF
  1.  Q
  1.  ;
  1. SURR ;SURGERY OF PRIMARY (R) (165.5,58.2)
  1.  N SA,SCG,TOP
  1.  S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" Q
  1.  S SCG=$P($G(^ONCO(164,TOP,0)),U,16) I SCG="" Q
  1.  S:$E(SCG,3,4)=77 SCG=67422
  1.  S SA=$O(^ONCO(164,SCG,"SUA","C",9,0))
  1.  S $P(^ONCO(165.5,D0,3),U,34)=SA
  1.  N DIC,DIQ,DR K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR=74 D EN^DIQ1
  1.  W !,"SURGICAL APPROACH...........(R): "_ONC(165.5,DA,74,"E")
  1.  Q
  1.  ;
  1. SUR ;SURGERY OF PRIMARY (F) (165.5,58.6)
  1.  N SCG,TOP,TSDT,TXDT
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,1)_"S1"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  S $P(^ONCO(165.5,DA,3),U,1)=9999999 D SPSDT^ONCATF
  1.  S ^ONCO(165.5,"ATX",DA,"9999999S1")=""
  1.  S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" Q
  1.  S SCG=$P($G(^ONCO(164,TOP,0)),U,16) I SCG="" Q
  1.  ;S:DATEDX>3091231 $P(^ONCO(165.5,D0,2.3),U,4)=9
  1.  S $P(^ONCO(165.5,D0,3),U,28)=9
  1.  S $P(^ONCO(165.5,DA,"THY1"),U,36)=9999999
  1.  S $P(^ONCO(165.5,D0,3.1),U,28)=9
  1.  N DIC,DIQ,DR K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR="50;74;59;23;138;435;14;234" D EN^DIQ1
  1.  W !,"MOST DEFINITIVE SURG DATE......: "_ONC(165.5,DA,50,"E")
  1.  ;W:DATEDX>3091231 !,"APPROACH.......................: "_$E(ONC(165.5,DA,234,"E"),1,40)
  1.  W !,"SURGICAL MARGINS...............: "_$E(ONC(165.5,DA,59,"E"),1,40)
  1.  W !,"DATE OF SURGICAL DISCHARGE.....: "_ONC(165.5,DA,435,"E")
  1.  W !,"READMISSION W/I 30 DAYS/SURG...: "_ONC(165.5,DA,14,"E")
  1.  Q
  1.  ;
  1. NODER ;SCOPE OF LN SURGERY (R) (165.5,138)
  1.  S $P(^ONCO(165.5,D0,3),U,42)=99 D NUMND^ONCATF
  1.  N DR S DR=140 D DIQ1^ONCNTX
  1.  W !,"NUMBER OF LN REMOVED........(R): "_ONC(165.5,DA,140,"E")
  1.  Q
  1.  ;
  1. NODE ;SCOPE OF LN SURGERY (F) (165.5,138.4)
  1.  N TXDT
  1.  S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,22)_"S2"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  S $P(^ONCO(165.5,D0,3.1),U,22)="0000000" D SCPDT^ONCATF
  1.  S ^ONCO(165.5,"ATX",DA,"0000000S2")=""
  1.  N DR S DR=138.2 D DIQ1^ONCNTX
  1.  W !,"SCOPE OF LN SURGERY DATE.......: "_ONC(165.5,DA,138.2,"E")
  1.  Q
  1.  ;
  1. SOSN ;SURG PROC/OTHER SITE DATE (165.5,139.2)
  1.  N TXDT
  1.  S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,24)_"S3"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  S $P(^ONCO(165.5,D0,3.1),U,24)=9999999 D SOSNDT^ONCATF
  1.  S ^ONCO(165.5,"ATX",DA,"9999999S3")=""
  1.  N DR S DR="139.2" D DIQ1^ONCNTX
  1.  W !,"SURGICAL PROC/OTHER SITE DATE..: "_ONC(165.5,DA,139.2,"E")
  1.  Q
  1.  ;
  1. RAD ;Radiation
  1.  N RFNR,TXDT
  1.  S RFNR=$P($G(^ONCO(165.5,DA,3)),U,35)
  1.  I RFNR=8 D ^ONCRFNR G RAD1
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,4)_"R"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  S $P(^ONCO(165.5,DA,3),U,4)=9999999 D RADDT^ONCATF1
  1.  S ^ONCO(165.5,"ATX",DA,"9999999R")=""
  1. RAD1 S $P(^ONCO(165.5,DA,3),U,22)=9
  1.  I $P($G(^ONCO(165.5,DA,0)),"^",16)<3180000 D
  1.  .S $P(^ONCO(165.5,DA,3),U,21)=42
  1.  .S $P(^ONCO(165.5,DA,"BLA2"),U,18)=19
  1.  .S $P(^ONCO(165.5,DA,"THY1"),U,43)=99999
  1.  .S $P(^ONCO(165.5,DA,24),U,9)=19
  1.  .S $P(^ONCO(165.5,DA,"THY1"),U,44)=99999
  1.  .S $P(^ONCO(165.5,DA,3),U,20)=999
  1.  S $P(^ONCO(165.5,DA,"BLA2"),U,16)=9999999
  1.  N DIC,DIQ K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  N DR S DR="51;126;125;363;442;363.1;443;56;361" D EN^DIQ1
  1.  W !,"DATE RADIATION STARTED.........: ",ONC(165.5,DA,51,"E")
  1.  W !,"LOCATION OF RADIATION..........: ",ONC(165.5,DA,126,"E")
  1.  I $P($G(^ONCO(165.5,DA,0)),"^",16)<3180000 D
  1.  .W !,"RADIATION TREATMENT VOLUME.....: ",ONC(165.5,DA,125,"E")
  1.  .W !,"REGIONAL TREATMENT MODALITY....: ",ONC(165.5,DA,363,"E")
  1.  .W !,"REGIONAL DOSE:cGy..............: ",ONC(165.5,DA,442,"E")
  1.  .W !,"BOOST TREATMENT MODALITY.......: ",ONC(165.5,DA,363.1,"E")
  1.  .W !,"BOOST DOSE:cGy.................: ",ONC(165.5,DA,443,"E")
  1.  .W !,"NUMBER OF TREATMENTS...........: ",ONC(165.5,DA,56,"E")
  1.  I $P($G(^ONCO(165.5,DA,0)),"^",16)>3171231 D
  1.  .S $P(^ONCO(165.5,D0,"RAD18"),"^",4)=70
  1.  .D RADSTF^ONCOAIP2
  1.  .S $P(^ONCO(165.5,DA,"NCR18B"),U,1)="99"
  1.  .S $P(^ONCO(165.5,DA,"NCR18B"),U,2)="99"
  1.  .S $P(^ONCO(165.5,DA,"NCR18B"),U,3)="999999"
  1.  .W !,"NUMBER OF PHASES RAD TX..............: 99"
  1.  .W !,"RADIATION TREATMENT DISC EARLY.......: 99"
  1.  .W !,"TOTAL DOSE...........................: 999999"
  1.  .S $P(^ONCO(165.5,D0,3),"^",7)=0   ; SET RAD/SURG SEQUENCE = 0 (YES, 0)
  1.  .S $P(^ONCO(165.5,D0,3),"^",35)=9  ; SET REASON FOR NO RAD = 9
  1.  W !,"DATE RADIATION ENDED...........: ",ONC(165.5,DA,361,"E")
  1.  I $P($G(^ONCO(165.5,DA,0)),"^",16)>3171231 W !
  1.  K ONC,TXDT Q
  1.  ;
  1. CHE ;Chemotherapy
  1.  N TXDT
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,11)_"C"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  I X=88 D
  1.  .S $P(^ONCO(165.5,DA,3),U,11)=8888888 D CHEMDT^ONCATF1
  1.  .S ^ONCO(165.5,"ATX",DA,"8888888C")=""
  1.  I X=99 D
  1.  .S $P(^ONCO(165.5,DA,3),U,11)=9999999 D CHEMDT^ONCATF1
  1.  .S ^ONCO(165.5,"ATX",DA,"9999999C")=""
  1.  N DIC,DIQ,DR K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR=53
  1.  D EN^DIQ1
  1.  W !,"CHEMOTHERAPY DATE..............: "_ONC(165.5,DA,53,"E")
  1.  K ONC Q
  1.  ;
  1. HOR ;Hormone therapy
  1.  N TXDT
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,14)_"H"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  I X=88 D
  1.  .S $P(^ONCO(165.5,DA,3),U,14)=8888888 D HTDT^ONCATF1
  1.  .S ^ONCO(165.5,"ATX",DA,"8888888H")=""
  1.  I X=99 D
  1.  .S $P(^ONCO(165.5,DA,3),U,14)=9999999 D HTDT^ONCATF1
  1.  .S ^ONCO(165.5,"ATX",DA,"9999999H")=""
  1.  N DIC,DIQ,DR K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR=54 D EN^DIQ1
  1.  W !,"HORMONE THERAPY DATE:..........: "_ONC(165.5,DA,54,"E")
  1.  K ONC Q
  1.  ;
  1. IMM ;Immunotherapy
  1.  N TXDT
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,17)_"B"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  I X=88 D
  1.  .S $P(^ONCO(165.5,DA,3),U,17)=8888888 D IMMDT^ONCATF1
  1.  .S ^ONCO(165.5,"ATX",DA,"8888888B")=""
  1.  I X=99 D
  1.  .S $P(^ONCO(165.5,DA,3),U,17)=9999999 D IMMDT^ONCATF1
  1.  .S ^ONCO(165.5,"ATX",DA,"9999999B")=""
  1.  N DIC,DIQ,DR K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR=55 D EN^DIQ1
  1.  W !,"IMMUNOTHERAPY DATE:............: "_ONC(165.5,DA,55,"E")
  1.  K ONC Q
  1.  ;
  1. HTEP ;HEMA TRANS/ENDOCRINE PROC (165.5,153)
  1.  N TXDT
  1.  S TXDT=$P(^ONCO(165.5,DA,3.1),U,35)_"E"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  I HE=88 D
  1.  .S $P(^ONCO(165.5,DA,3.1),U,35)=8888888
  1.  .S ^ONCO(165.5,"ATX",DA,"8888888E")=""
  1.  I HE=99 D
  1.  .S $P(^ONCO(165.5,DA,3.1),U,35)=9999999
  1.  .S ^ONCO(165.5,"ATX",DA,"9999999E")=""
  1.  N DIC,DIQ,DR,X K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR=153.1 D EN^DIQ1
  1.  W !,"HEMA TRANS/ENDOCRINE PROC DATE.: "_ONC(165.5,DA,153.1,"E")
  1.  K ONC Q
  1.  ;
  1. OTH ;Other treatment
  1.  N TXDT
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,23)_"O"
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  S $P(^ONCO(165.5,DA,3),U,23)=9999999 D OTHDT^ONCATF1
  1.  S ^ONCO(165.5,"ATX",DA,"9999999O")=""
  1.  N DIC,DIQ,DR,X K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR="57" D EN^DIQ1
  1.  W !,"OTHER TREATMENT DATE:..........: "_ONC(165.5,DA,57,"E")
  1.  K ONC Q
  1.  ;
  1. PRO ;Protocol
  1.  S $P(^ONCO(165.5,DA,"STS2"),U,31)=99
  1.  S $P(^ONCO(165.5,DA,3.1),U,4)=9999
  1.  N DIC,DIQ,DR K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
  1.  S DR="133;560" D EN^DIQ1
  1.  W !,"PROTOCOL PARTICIPATION.........: "_ONC(165.5,DA,560,"E")
  1.  W !,"YEAR PUT ON PROTOCOL...........: "_ONC(165.5,DA,133,"E")
  1.  K ONC Q
  1.  ;
  1. EXIT ;Exit
  1.  W ! S Y="@113"
  1.  Q
  1.  ;
  1. CLEANUP ;Cleanup
  1.  K D0,DA,DATEDX,HE,Y