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

ONCHPC4A.m

Go to the documentation of this file.
  1. ONCHPC4A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/10/00
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;First Course of Treatment (continued)
  1. R W @IOF D HEAD^ONCHPC0
  1. W !," RADIATION THERAPY"
  1. W !," -----------------"
  1. DRS W !," 44. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
  1. RT W !," 45. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,51.2)
  1. W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
  1. C W @IOF D HEAD^ONCHPC0
  1. W !," CHEMOTHERAPY"
  1. W !," ------------"
  1. DCS W !," 46. DATE CHEMOTHERAPY STARTED.....: ",$$GET1^DIQ(165.5,IE,53)
  1. CT W !," 47. CHEMOTHERAPY..................: ",$$GET1^DIQ(165.5,IE,53.2)
  1. TCAA W !!," 48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
  1. I CHE=0 D G RCA
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=0
  1. .W !," CISPLATIN....................: No"
  1. .W !," FUDR.........................: No"
  1. .W !," 5-FU.........................: No"
  1. .W !," FU & LEUCOVORIN..............: No"
  1. .W !," IRINOTECAN (CPT-11)..........: No"
  1. .W !," MITOMYCIN C..................: No"
  1. .W !," OXALIPLATIN..................: No"
  1. .W !," GEMCITABINE..................: No"
  1. I CHE=9 D G RCA
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=9
  1. .W !," CISPLATIN....................: Unknown if recommended or administered"
  1. .W !," FUDR.........................: Unknown if recommended or administered"
  1. .W !," 5-FU.........................: Unknown if recommended or administered"
  1. .W !," FU & LEUCOVORIN..............: Unknown if recommended or administered"
  1. .W !," IRINOTECAN (CPT-11)..........: Unknown if recommended or administered"
  1. .W !," MITOMYCIN C..................: Unknown if recommended or administered"
  1. .W !," OXALIPLATIN..................: Unknown if recommended or administered"
  1. .W !," GEMCITABINE..................: Unknown if recommended or administered"
  1. S DR="1061 CISPLATIN...................." D ^DIE G:$D(Y) JUMP
  1. S DR="1062 FUDR........................." D ^DIE G:$D(Y) JUMP
  1. S DR="1063 5-FU........................." D ^DIE G:$D(Y) JUMP
  1. S DR="1064 FU & LEUCOVORIN.............." D ^DIE G:$D(Y) JUMP
  1. S DR="1065 IRINOTECAN (CPT-11).........." D ^DIE G:$D(Y) JUMP
  1. S DR="1066 MITOMYCIN C.................." D ^DIE G:$D(Y) JUMP
  1. S DR="1067 OXALIPLATIN.................." D ^DIE G:$D(Y) JUMP
  1. S DR="1068 GEMCITABINE.................." D ^DIE G:$D(Y) JUMP
  1. RCA W !
  1. I (CHE=0)!(CHE=9) D G CSS
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,70)=88
  1. .W !," 49. ROUTE CHEMOTHERAPY ADMIN......: NA"
  1. S DR="1069 49. ROUTE CHEMOTHERAPY ADMIN" D ^DIE G:$D(Y) JUMP
  1. CSS I (CDS="00")!(CDS=99)!(CHE=0)!(CHE=9) D G DIR
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=0
  1. .W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: No chemotherapy and/or no surgery"
  1. S CDSDT=$$GET1^DIQ(165.5,IE,50,"I")
  1. S CHEDT=$$GET1^DIQ(165.5,IE,53,"I")
  1. I (CDSDT="")!(CHEDT="") G CSS1
  1. I CHEDT<CDSDT D G DIR
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=1
  1. .W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy before surgery"
  1. I CHEDT>CDSDT D G DIR
  1. .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=2
  1. .W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy after surgery"
  1. CSS1 S DR="1070 50. CHEMOTHERAPY/SURGERY SEQUENCE." D ^DIE G:$D(Y) JUMP
  1. DIR K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
  1. O W @IOF D HEAD^ONCHPC0
  1. W !," OTHER THERAPY"
  1. W !," -------------"
  1. DOTS W !," 51. DATE OTHER TREATMENT STARTED..: ",$$GET1^DIQ(165.5,IE,57)
  1. OT W !," 52. OTHER TREATMENT...............: ",$$GET1^DIQ(165.5,IE,57.2)
  1. AE S DR="1071 53. ARTERIAL EMBOLIZATION........." D ^DIE G:$D(Y) JUMP
  1. DWTD S DR="1072 54. DEATH WITHIN 30 DAYS OF START OF INITIAL COURSE OF THERAPY." 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: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
  1. I X["?" D G:$D(DIRUT) EXIT G JUMP
  1. .W @IOF,!," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
  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) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
  1. S X=TABLE(X)
  1. G @X
  1. EXIT S:$D(DIRUT) OUT="Y"
  1. K CHOICES,PIECE,HTABLE,TABLE
  1. K CDS,CHE,LOS,NCDS,NOP,RAD,SA,SA1,SA2,SM,SM1,SM2
  1. K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
  1. Q