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

ONCDTX.m

Go to the documentation of this file. 
  1. ONCDTX ;HINES OIFO/GWB - Delete treatment data ;06/23/10
  1.  ;;2.2;ONCOLOGY;**1,5,15,20**;Jul 31, 2013;Build 5
  1.  ;
  1. DEL ;Delete all First Course of Treatment data
  1.  I '$D(DATEDX) Q
  1.  ;
  1.  ;DATE FIRST SURGICAL PROCEDURE (165.5,170)
  1.  N TXDT
  1.  S TXDT=$P(^ONCO(165.5,DA,3.1),U,38)_"S0"
  1.  S $P(^ONCO(165.5,DA,3.1),U,38)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  ;
  1.  S $P(^ONCO(165.5,DA,3),U,38)="" D SURR
  1.  S $P(^ONCO(165.5,DA,3.1),U,29)="" D SUR
  1.  S $P(^ONCO(165.5,DA,3.2),U,9)="" D SUR
  1.  S $P(^ONCO(165.5,DA,3),U,40)="" D SCOPER
  1.  S $P(^ONCO(165.5,DA,3.1),U,31)="" D SCOPE
  1.  S $P(^ONCO(165.5,DA,3),U,41)="" D SOSNR
  1.  S $P(^ONCO(165.5,DA,3.1),U,33)="" D SOSN
  1.  S $P(^ONCO(165.5,DA,3),U,33)=""
  1.  S $P(^ONCO(165.5,DA,3),U,6)="" D RAD
  1.  S $P(^ONCO(165.5,DA,3),U,35)=""
  1.  S $P(^ONCO(165.5,DA,3),U,13)="" D CHE
  1.  S $P(^ONCO(165.5,DA,3),U,16)="" D HOR
  1.  S $P(^ONCO(165.5,DA,3),U,19)="" D IMM
  1.  S $P(^ONCO(165.5,DA,3.1),U,36)="" D HTEP
  1.  S $P(^ONCO(165.5,DA,3.1),U,39)=""
  1.  S $P(^ONCO(165.5,DA,3),U,25)="" D OTH
  1.  S $P(^ONCO(165.5,DA,7),U,19)=""
  1.  D DELATF^ONCDTX1
  1.  K NTDEL
  1.  Q
  1.  ;
  1. SURR ;SURGERY OF PRIMARY (R) (165.5,58.2)
  1.  Q:$P(^ONCO(165.5,DA,3),U,38)'=""
  1.  S $P(^ONCO(165.5,DA,3),U,34)=""
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  SURGERY OF PRIMARY (R)"
  1.  W !,"  SURGICAL APPROACH (R)"
  1.  N COC,DSATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DSATF=1,$P(^ONCO(165.5,D0,3.1),U,7)=""
  1.  D SPSATFR^ONCDTX1
  1.  Q
  1.  ;
  1. SUR ;RX SUMM--SURG PRIMSITE 03-2022 (165.5,58.6)
  1.  Q  ;patch ONC*2.2*18 -- remove deletions when deleting SPS (165.5,58.6)
  1.  ; eventually can remove the trigger x-ref -- for now just QUIT
  1.  Q:$P(^ONCO(165.5,DA,3.1),U,29)'=""
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,1)_"S1"
  1.  S $P(^ONCO(165.5,DA,3),U,1)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  S $P(^ONCO(165.5,DA,2.3),U,4)=""
  1.  S $P(^ONCO(165.5,DA,3),U,28)=""
  1.  S $P(^ONCO(165.5,DA,"THY1"),U,36)=""
  1.  S $P(^ONCO(165.5,DA,3.1),U,28)=""
  1.  S $P(^ONCO(165.5,DA,3),U,26)=""
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  "
  1.  W !,"  MOST DEFINITIVE SURG DATE"
  1.  W !,"  RX HOSP--SURG APP 2010"
  1.  W !,"  SURGICAL MARGINS"
  1.  W !,"  DATE OF SURGICAL DISCHARGE"
  1.  W !,"  READMISSION W/I 30 DAYS/SURG"
  1.  W !,"  REASON NO SURGERY OF PRIMARY"
  1.  N COC,DSATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DSATF=1,$P(^ONCO(165.5,D0,3.1),U,30)=""
  1.  D SPSATF^ONCDTX1
  1.  Q
  1.  ;
  1. SCOPER ;SCOPE OF LN SURGERY (R) (165.5,138)
  1.  Q:$P(^ONCO(165.5,DA,3),U,40)'=""
  1.  S $P(^ONCO(165.5,DA,3),U,42)=""
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  SCOPE OF LN SURGERY (R)"
  1.  W !,"  NUMBER OF LN REMOVED (R)"
  1.  N COC,DSCATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DSCATF=1,$P(^ONCO(165.5,D0,3.1),U,9)=""
  1.  D SCPATFR^ONCDTX1
  1.  Q
  1.  ;
  1. SCOPE ;SCOPE OF LN SURGERY (F) (165.5,138.4)
  1.  Q:$P(^ONCO(165.5,DA,3.1),U,31)'=""
  1.  S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,22)_"S2"
  1.  S $P(^ONCO(165.5,DA,3.1),U,22)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  SCOPE OF LN SURGERY (F)"
  1.  W !,"  SCOPE OF LN SURGERY DATE"
  1.  N COC,DSCATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DSCATF=1,$P(^ONCO(165.5,D0,3.1),U,32)=""
  1.  D SCPATF^ONCDTX1
  1.  Q
  1.  ;
  1. SOSNR ;SURG PROC/OTHER SITE (R) (165.5,139)
  1.  Q:$P(^ONCO(165.5,DA,3),U,41)'=""
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  SURG PROC/OTHER SITE (R)"
  1.  N COC,DSOATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DSOATF=1,$P(^ONCO(165.5,D0,3.1),U,10)=""
  1.  D SOSATFR^ONCDTX1
  1.  Q
  1.  ;
  1. SOSN ;SURG PROC/OTHER SITE (F) (165.5,139.4)
  1.  Q:$P(^ONCO(165.5,DA,3.1),U,33)'=""
  1.  S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,24)_"S3"
  1.  S $P(^ONCO(165.5,DA,3.1),U,24)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  SURG PROC/OTHER SITE (F)"
  1.  W !,"  SURG PROC/OTHER SITE DATE"
  1.  N COC,DSOATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DSOATF=1,$P(^ONCO(165.5,D0,3.1),U,34)=""
  1.  D SOSNATF^ONCDTX1
  1.  Q
  1.  ;
  1. RAD ;RADIATON (165.5,51.2)
  1.  Q:$P(^ONCO(165.5,DA,3),U,6)'=""
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,4)_"R"
  1.  S $P(^ONCO(165.5,DA,3),U,4)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  S $P(^ONCO(165.5,DA,3),U,22)=""
  1.  S $P(^ONCO(165.5,DA,3),U,21)=""
  1.  S $P(^ONCO(165.5,DA,"BLA2"),U,18)=""
  1.  S $P(^ONCO(165.5,DA,"THY1"),U,43)=""
  1.  S $P(^ONCO(165.5,DA,24),U,9)=""
  1.  S $P(^ONCO(165.5,DA,"THY1"),U,44)=""
  1.  S $P(^ONCO(165.5,DA,3),U,20)=""
  1.  S $P(^ONCO(165.5,DA,3),U,7)=""
  1.  S $P(^ONCO(165.5,DA,"BLA2"),U,16)=""
  1.  S $P(^ONCO(165.5,DA,3),U,35)=""
  1.  K ^ONCO(165.5,DA,15)
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  RADIATION"
  1.  W !,"  DATE RADIATION STARTED"
  1.  W !,"  LOCATION OF RADIATION TX"
  1.  W !,"  RADIATION TREATMENT VOLUME"
  1.  W !,"  REGIONAL TREATMENT MODALITY"
  1.  W !,"  REGIONAL DOSE:cGy"
  1.  W !,"  BOOST TREATMENT MODALITY"
  1.  W !,"  BOOST DOSE:cGy"
  1.  W !,"  NUMBER OF TXS TO THIS VOLUME"
  1.  W !,"  RADIATION/SURGERY SEQUENCE"
  1.  W !,"  DATE RADIATION ENDED"
  1.  W !,"  REASON FOR NO RADIATION"
  1.  W !,"  RX TEXT-RADIATION"
  1.  N COC,DRATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DRATF=1,$P(^ONCO(165.5,D0,3.1),U,12)=""
  1.  D RADATF^ONCDTX1
  1.  Q
  1.  ;
  1. CHE ;CHEMOTHERAPY (165.5,53.2)
  1.  Q:$P(^ONCO(165.5,DA,3),U,13)'=""
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,11)_"C"
  1.  S $P(^ONCO(165.5,DA,3),U,11)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  K ^ONCO(165.5,DA,17)
  1.  S $P(^ONCO(165.5,DA,3),U,36)=""
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  CHEMOTHERAPY"
  1.  W !,"  CHEMOTHERAPY DATE"
  1.  W !,"  RX TEXT-CHEMO"
  1.  N COC,DCATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DCATF=1,$P(^ONCO(165.5,D0,3.1),U,14)=""
  1.  D CHEMATF^ONCDTX1
  1.  Q
  1.  ;
  1. HOR ;HORMONE THERAPY (165.5,54.2)
  1.  Q:$P(^ONCO(165.5,DA,3),U,16)'=""
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,14)_"H"
  1.  S $P(^ONCO(165.5,DA,3),U,14)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  K ^ONCO(165.5,DA,18)
  1.  S $P(^ONCO(165.5,DA,3),U,37)=""
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  HORMONE THERAPY"
  1.  W !,"  HORMONE THERAPY DATE"
  1.  W !,"  RX TEXT-HORMONE"
  1.  N COC,DHATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DHATF=1,$P(^ONCO(165.5,D0,3.1),U,16)=""
  1.  D HORATF^ONCDTX1
  1.  Q
  1.  ;
  1. IMM ;IMMUNOTHERAPY (165.5,55.2)
  1.  Q:$P(^ONCO(165.5,DA,3),U,19)'=""
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,17)_"B"
  1.  S $P(^ONCO(165.5,DA,3),U,17)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  K ^ONCO(165.5,DA,20)
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  IMMUNOTHERAPY"
  1.  W !,"  IMMUNOTHERAPY DATE"
  1.  W !,"  RX TEXT-BRM"
  1.  N COC,DIATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DIATF=1,$P(^ONCO(165.5,D0,3.1),U,18)=""
  1.  D IMMATF^ONCDTX1
  1.  Q
  1.  ;
  1. HTEP ;HEMA TRANS/ENDOCRINE PROC (165.5,53)
  1.  Q:$P(^ONCO(165.5,DA,3.1),U,36)'=""
  1.  S TXDT=$P(^ONCO(165.5,DA,3.1),U,35)_"E"
  1.  S $P(^ONCO(165.5,DA,3.1),U,35)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  HEMA TRANS/ENDOCRINE PROC"
  1.  W !,"  HEMA TRANS/ENDOCRINE PROC DATE"
  1.  N COC,DEATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DEATF=1,$P(^ONCO(165.5,D0,3.2),U,2)=""
  1.  D HTEATF^ONCDTX1
  1.  Q
  1.  ;
  1. OTH ;OTHER TREATMENT (165.5,57.2)
  1.  Q:$P(^ONCO(165.5,DA,3),U,25)'=""
  1.  S TXDT=$P(^ONCO(165.5,DA,3),U,23)_"O"
  1.  S $P(^ONCO(165.5,DA,3),U,23)=""
  1.  K ^ONCO(165.5,"ATX",DA,TXDT)
  1.  K TXDT
  1.  K ^ONCO(165.5,DA,21)
  1.  I $D(NTDEL) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  OTHER TREATMENT"
  1.  W !,"  OTHER TREATMENT START DATE"
  1.  W !,"  RX TEXT-OTHER"
  1.  N COC,DOATF
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  S DOATF=1,$P(^ONCO(165.5,D0,3.1),U,20)=""
  1.  D OTHATF^ONCDTX1
  1.  Q
  1.  ;
  1. PP ;PALLIATIVE CARE (165.5,12)
  1.  Q:$P(^ONCO(165.5,DA,3.1),U,26)'=""
  1.  N COC
  1.  D CHKCOC^ONCATF
  1.  I (COC="00")!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=40)!(COC=41) Q
  1.  W !!,"Deleting data from the following fields...",!
  1.  S $P(^ONCO(165.5,DA,3.1),U,27)=""
  1.  W !,"  PALLIATIVE CARE @FAC",!
  1.  Q
  1.  ;
  1. NCDS ;SURGICAL DX/STAGING PROC (165.5,58.1)
  1.  Q:$P(^ONCO(165.5,DA,3),U,27)'=""
  1.  S $P(^ONCO(165.5,DA,3),U,31)=""
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !," SURGICAL DX/STAGING PROC"
  1.  W !," SURGICAL DX/STAGING PROC DATE"
  1.  N COC,DNCATF
  1.  D CHKCOC^ONCATF
  1.  I (COC=20)!(COC=21)!(COC=22)!(COC=30)!(COC=31)!(COC=32)!(COC=33)!(COC=36)!(COC=37) Q
  1.  S DNCATF=1,$P(^ONCO(165.5,D0,3.1),U,5)=""
  1.  D NCDSATF^ONCDTX1
  1.  Q
  1.  ;
  1. SCT ;SUBSEQUENT COURSE OF TREATMENT (165.5,60)
  1.  Q:$P(^ONCO(165.5,DA(1),4,DA,0),U,4)'=""
  1.  S $P(^ONCO(165.5,DA(1),4,DA,0),U,11)=""
  1.  W !!,"Deleting data from the following fields...",!
  1.  W !,"  SURGERY OF PRIMARY SITE"
  1.  W !,"  SURGERY OF PRIMARY SITE DATE",!
  1.  Q
  1.  ;
  1. CLEANUP ;Cleanup
  1.  K D0,DA,DATEDX