- ONCGPC3 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/01
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- ;First Course of Treatment
- S SUR=$$GET1^DIQ(165.5,ONCONUM,58.2)
- S RAD=$$GET1^DIQ(165.5,ONCONUM,51.2,"I")
- S CHE=$$GET1^DIQ(165.5,ONCONUM,53.2,"I")
- S IMM=$$GET1^DIQ(165.5,ONCONUM,55.2,"I")
- K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
- W @IOF D HEAD^ONCGPC0
- W !," FIRST COURSE OF TREATMENT - SURGERY"
- W !," -----------------------------------"
- S DR(1,165.5,3)="I (SUR="""")!($E(SUR,1,2)=""00"")!($E(SUR,1,2)=99) D NOSUR^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@38"")"
- S DR(1,165.5,4)="1556 28. ADHERENCE OF RESECTED PRIMARY SPECIMEN....................."
- S DR(1,165.5,5)="W !"
- S DR(1,165.5,6)="1557 29. MARGIN STATUS OF RESECTED PRIMARY SPECIMEN............."
- S DR(1,165.5,7)="W !"
- S DR(1,165.5,8)="W !,"" 30. EXTENT OF FREE MARGIN:"""
- S DR(1,165.5,9)="1558 PROXIMAL MARGIN.............."
- S DR(1,165.5,10)="1558.1 DISTAL MARGIN................"
- S DR(1,165.5,11)="W !"
- S DR(1,165.5,12)="W !,"" 31. RESECTION BEYOND STOMACH:"""
- S DR(1,165.5,13)="1559 SPLEEN......................."
- S DR(1,165.5,14)="1559.1 TRANVERSE COLON.............."
- S DR(1,165.5,15)="1559.2 LIVER........................"
- S DR(1,165.5,16)="1559.3 DIAPHRAGM...................."
- S DR(1,165.5,17)="1559.4 PANCREAS....................."
- S DR(1,165.5,18)="1559.5 ABDOMINAL WALL..............."
- S DR(1,165.5,19)="1559.6 ADRENAL GLAND................"
- S DR(1,165.5,20)="1559.7 KIDNEY......................."
- S DR(1,165.5,21)="1559.8 SMALL INTESTINE.............."
- S DR(1,165.5,22)="1559.9 RETROPERITONEUM.............."
- S DR(1,165.5,23)="1560 PERIGASTRIC LYMPH NODES......"
- S DR(1,165.5,24)="1560.1 COMMON HEPATIC LYMPH NODES..."
- S DR(1,165.5,25)="1560.2 CELIAC LYMPH NODES..........."
- S DR(1,165.5,26)="1560.3 SPLENIC LYMPH NODES.........."
- S DR(1,165.5,27)="1560.4 OTHER INTRA-ABDOMINAL NODES.."
- S DR(1,165.5,28)="W !"
- S DR(1,165.5,29)="1561 32. GROSSLY INVOLVED REGIONAL LYMPH NODES.................."
- S DR(1,165.5,30)="W !"
- S DR(1,165.5,31)="1562 33. HCT (HEMATOCRIT) VALUES BEFORE TRANSFUSION.................."
- S DR(1,165.5,32)="W !"
- S DR(1,165.5,33)="1563 34. TOTAL OPERATIVE BLOOD REPLACEMENT.................."
- S DR(1,165.5,34)="W !"
- S DR(1,165.5,35)="1564 35. INTRA/PERI-OPERATIVE DEATH...."
- S DR(1,165.5,36)="W !"
- S DR(1,165.5,37)="W !,"" 36. COMPLICATIONS REQUIRING RE-OPERATION:"""
- S DR(1,165.5,38)="1565 ANASTOMOTIC LEAK............."
- S DR(1,165.5,39)="1565.1 STUMP LEAK..................."
- S DR(1,165.5,40)="1565.2 BLEEDING....................."
- S DR(1,165.5,41)="1565.3 WOUND INFECTION.............."
- S DR(1,165.5,42)="1565.4 SEPSIS......................."
- S DR(1,165.5,43)="1565.5 PANCREATITIS................."
- S DR(1,165.5,44)="1565.6 DEAD BOWEL..................."
- S DR(1,165.5,45)="1565.7 OTHER........................"
- S DR(1,165.5,46)="W !"
- S DR(1,165.5,47)="1566 37. DATE OF SURGICAL DISCHARGE...."
- S DR(1,165.5,48)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@38"" S:$D(DUOUT) Y=""@99"""
- S DR(1,165.5,49)="@38"
- S DR(1,165.5,50)="D HEAD^ONCGPC0"
- S DR(1,165.5,51)="W !,"" FIRST COURSE OF TREATMENT - RADIATION"""
- S DR(1,165.5,52)="W !,"" -------------------------------------"""
- S DR(1,165.5,53)="I (RAD="""")!(RAD=0)!(RAD=9) D NORAD^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@42"")"
- S DR(1,165.5,54)="442 38. REGIONAL DOSE (cGy)..........."
- S DR(1,165.5,55)="W !"
- S DR(1,165.5,56)="1575 39. BOOST DOSE (cGy).............."
- S DR(1,165.5,57)="W !"
- S DR(1,165.5,58)="1567 40. INTRA-OPERATIVE RADIATION THERAPY, DOSE (cGy).........."
- S DR(1,165.5,59)="W !"
- S DR(1,165.5,60)="1568 41. CONCURRENT CHEMOTHERAPY......."
- S DR(1,165.5,61)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@42"" S:$D(DUOUT) Y=""@99"""
- S DR(1,165.5,62)="@42"
- S DR(1,165.5,63)="D HEAD^ONCGPC0"
- S DR(1,165.5,64)="W !,"" FIRST COURSE OF TREATMENT - CHEMOTHERAPY"""
- S DR(1,165.5,65)="W !,"" ----------------------------------------"""
- S DR(1,165.5,66)="I (CHE="""")!(CHE=0)!(CHE=9) D NOCHE^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@46"")"
- S DR(1,165.5,67)="W !,"" 42. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"""
- S DR(1,165.5,68)="1576 AGENT #1....................."
- S DR(1,165.5,69)="1576.1 AGENT #2....................."
- S DR(1,165.5,70)="1576.2 AGENT #3....................."
- S DR(1,165.5,71)="W !"
- S DR(1,165.5,72)="1569 43. INTRAPERITONEAL CHEMOTHERAPY.."
- S DR(1,165.5,73)="W !"
- S DR(1,165.5,74)="1577 44. CHEMOTHERAPEUTIC TOXICITY....."
- S DR(1,165.5,75)="W !"
- S DR(1,165.5,76)="1578 45. CHEMOTHERAPY/SURGERY SEQUENCE."
- S DR(1,165.5,77)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@46"" S:$D(DUOUT) Y=""@99"""
- S DR(1,165.5,78)="@46"
- S DR(1,165.5,79)="D HEAD^ONCGPC0"
- S DR(1,165.5,80)="W !,"" FIRST COURSE OF TREATMENT - IMMUNOTHERAPY"""
- S DR(1,165.5,81)="W !,"" -----------------------------------------"""
- S DR(1,165.5,82)="I (IMM="""")!(IMM=0)!(IMM=9) D NOIMM^ONCGPC3 S Y=""@99"""
- S DR(1,165.5,83)="1570 46. ADMINSTRATION OF INTERFERON..."
- S DR(1,165.5,84)="@99"
- D ^DIE
- K DR
- W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
- EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- K SUR,RAD,CHE,IMM
- Q
- NOSUR ;No surgery
- F PIECE=71:1:74 S $P(^ONCO(165.5,D0,"GAS1"),U,PIECE)=""
- F PIECE=1:1:28 S $P(^ONCO(165.5,D0,"GAS2"),U,PIECE)=""
- W !," No surgery of the primary site was performed."
- W !," Proceed to data item 38."
- W !
- K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99"
- K PIECE
- Q
- NORAD ;No radiation
- S $P(^ONCO(165.5,D0,"THY1"),U,43)=0
- S $P(^ONCO(165.5,D0,"GAS2"),U,42)="00000"
- S $P(^ONCO(165.5,D0,"GAS2"),U,29)="00000"
- S $P(^ONCO(165.5,D0,"GAS2"),U,30)=""
- W !," No radiation therapy was administered."
- W !," Code data items 38-40 to 00000."
- W !," Do not answer data item 41, and proceed to data item 42."
- W !
- W !," 38. REGIONAL DOSE (cGy)...........: 00000"
- W !
- W !," 39. BOOST DOSE (cGy)..............: Not administered"
- W !
- W !," 40. INTRA-OPERATIVE RADIATION"
- W !," THERAPY, DOSE (cGy)..........: Not administered"
- W !
- W !," 41. CONCURRENT CHEMOTHERAPY.......:"
- W !
- K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99"
- Q
- NOCHE ;No chemotherapy
- W !," No chemotherapy was administered."
- W !," Proceed to data item 46."
- S $P(^ONCO(165.5,D0,"GAS2"),U,43)=""
- S $P(^ONCO(165.5,D0,"GAS2"),U,44)=""
- S $P(^ONCO(165.5,D0,"GAS2"),U,45)=""
- S $P(^ONCO(165.5,D0,"GAS2"),U,31)=""
- S $P(^ONCO(165.5,D0,"GAS2"),U,46)=""
- S $P(^ONCO(165.5,D0,"GAS2"),U,47)=""
- W !
- K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99"
- Q
- NOIMM ;No immunotherapy
- W !," No immunotherapy administered."
- W !," Proceed to Treatment Complications."
- S $P(^ONCO(165.5,D0,"GAS2"),U,32)=""
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCGPC3 7221 printed Feb 18, 2025@23:49:21 Page 2
- ONCGPC3 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/01
- +1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- +2 ;First Course of Treatment
- +3 SET SUR=$$GET1^DIQ(165.5,ONCONUM,58.2)
- +4 SET RAD=$$GET1^DIQ(165.5,ONCONUM,51.2,"I")
- +5 SET CHE=$$GET1^DIQ(165.5,ONCONUM,53.2,"I")
- +6 SET IMM=$$GET1^DIQ(165.5,ONCONUM,55.2,"I")
- +7 KILL DR
- SET DIE="^ONCO(165.5,"
- SET DA=ONCONUM
- SET DR=""
- +8 WRITE @IOF
- DO HEAD^ONCGPC0
- +9 WRITE !," FIRST COURSE OF TREATMENT - SURGERY"
- +10 WRITE !," -----------------------------------"
- +11 SET DR(1,165.5,3)="I (SUR="""")!($E(SUR,1,2)=""00"")!($E(SUR,1,2)=99) D NOSUR^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@38"")"
- +12 SET DR(1,165.5,4)="1556 28. ADHERENCE OF RESECTED PRIMARY SPECIMEN....................."
- +13 SET DR(1,165.5,5)="W !"
- +14 SET DR(1,165.5,6)="1557 29. MARGIN STATUS OF RESECTED PRIMARY SPECIMEN............."
- +15 SET DR(1,165.5,7)="W !"
- +16 SET DR(1,165.5,8)="W !,"" 30. EXTENT OF FREE MARGIN:"""
- +17 SET DR(1,165.5,9)="1558 PROXIMAL MARGIN.............."
- +18 SET DR(1,165.5,10)="1558.1 DISTAL MARGIN................"
- +19 SET DR(1,165.5,11)="W !"
- +20 SET DR(1,165.5,12)="W !,"" 31. RESECTION BEYOND STOMACH:"""
- +21 SET DR(1,165.5,13)="1559 SPLEEN......................."
- +22 SET DR(1,165.5,14)="1559.1 TRANVERSE COLON.............."
- +23 SET DR(1,165.5,15)="1559.2 LIVER........................"
- +24 SET DR(1,165.5,16)="1559.3 DIAPHRAGM...................."
- +25 SET DR(1,165.5,17)="1559.4 PANCREAS....................."
- +26 SET DR(1,165.5,18)="1559.5 ABDOMINAL WALL..............."
- +27 SET DR(1,165.5,19)="1559.6 ADRENAL GLAND................"
- +28 SET DR(1,165.5,20)="1559.7 KIDNEY......................."
- +29 SET DR(1,165.5,21)="1559.8 SMALL INTESTINE.............."
- +30 SET DR(1,165.5,22)="1559.9 RETROPERITONEUM.............."
- +31 SET DR(1,165.5,23)="1560 PERIGASTRIC LYMPH NODES......"
- +32 SET DR(1,165.5,24)="1560.1 COMMON HEPATIC LYMPH NODES..."
- +33 SET DR(1,165.5,25)="1560.2 CELIAC LYMPH NODES..........."
- +34 SET DR(1,165.5,26)="1560.3 SPLENIC LYMPH NODES.........."
- +35 SET DR(1,165.5,27)="1560.4 OTHER INTRA-ABDOMINAL NODES.."
- +36 SET DR(1,165.5,28)="W !"
- +37 SET DR(1,165.5,29)="1561 32. GROSSLY INVOLVED REGIONAL LYMPH NODES.................."
- +38 SET DR(1,165.5,30)="W !"
- +39 SET DR(1,165.5,31)="1562 33. HCT (HEMATOCRIT) VALUES BEFORE TRANSFUSION.................."
- +40 SET DR(1,165.5,32)="W !"
- +41 SET DR(1,165.5,33)="1563 34. TOTAL OPERATIVE BLOOD REPLACEMENT.................."
- +42 SET DR(1,165.5,34)="W !"
- +43 SET DR(1,165.5,35)="1564 35. INTRA/PERI-OPERATIVE DEATH...."
- +44 SET DR(1,165.5,36)="W !"
- +45 SET DR(1,165.5,37)="W !,"" 36. COMPLICATIONS REQUIRING RE-OPERATION:"""
- +46 SET DR(1,165.5,38)="1565 ANASTOMOTIC LEAK............."
- +47 SET DR(1,165.5,39)="1565.1 STUMP LEAK..................."
- +48 SET DR(1,165.5,40)="1565.2 BLEEDING....................."
- +49 SET DR(1,165.5,41)="1565.3 WOUND INFECTION.............."
- +50 SET DR(1,165.5,42)="1565.4 SEPSIS......................."
- +51 SET DR(1,165.5,43)="1565.5 PANCREATITIS................."
- +52 SET DR(1,165.5,44)="1565.6 DEAD BOWEL..................."
- +53 SET DR(1,165.5,45)="1565.7 OTHER........................"
- +54 SET DR(1,165.5,46)="W !"
- +55 SET DR(1,165.5,47)="1566 37. DATE OF SURGICAL DISCHARGE...."
- +56 SET DR(1,165.5,48)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@38"" S:$D(DUOUT) Y=""@99"""
- +57 SET DR(1,165.5,49)="@38"
- +58 SET DR(1,165.5,50)="D HEAD^ONCGPC0"
- +59 SET DR(1,165.5,51)="W !,"" FIRST COURSE OF TREATMENT - RADIATION"""
- +60 SET DR(1,165.5,52)="W !,"" -------------------------------------"""
- +61 SET DR(1,165.5,53)="I (RAD="""")!(RAD=0)!(RAD=9) D NORAD^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@42"")"
- +62 SET DR(1,165.5,54)="442 38. REGIONAL DOSE (cGy)..........."
- +63 SET DR(1,165.5,55)="W !"
- +64 SET DR(1,165.5,56)="1575 39. BOOST DOSE (cGy).............."
- +65 SET DR(1,165.5,57)="W !"
- +66 SET DR(1,165.5,58)="1567 40. INTRA-OPERATIVE RADIATION THERAPY, DOSE (cGy).........."
- +67 SET DR(1,165.5,59)="W !"
- +68 SET DR(1,165.5,60)="1568 41. CONCURRENT CHEMOTHERAPY......."
- +69 SET DR(1,165.5,61)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@42"" S:$D(DUOUT) Y=""@99"""
- +70 SET DR(1,165.5,62)="@42"
- +71 SET DR(1,165.5,63)="D HEAD^ONCGPC0"
- +72 SET DR(1,165.5,64)="W !,"" FIRST COURSE OF TREATMENT - CHEMOTHERAPY"""
- +73 SET DR(1,165.5,65)="W !,"" ----------------------------------------"""
- +74 SET DR(1,165.5,66)="I (CHE="""")!(CHE=0)!(CHE=9) D NOCHE^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@46"")"
- +75 SET DR(1,165.5,67)="W !,"" 42. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"""
- +76 SET DR(1,165.5,68)="1576 AGENT #1....................."
- +77 SET DR(1,165.5,69)="1576.1 AGENT #2....................."
- +78 SET DR(1,165.5,70)="1576.2 AGENT #3....................."
- +79 SET DR(1,165.5,71)="W !"
- +80 SET DR(1,165.5,72)="1569 43. INTRAPERITONEAL CHEMOTHERAPY.."
- +81 SET DR(1,165.5,73)="W !"
- +82 SET DR(1,165.5,74)="1577 44. CHEMOTHERAPEUTIC TOXICITY....."
- +83 SET DR(1,165.5,75)="W !"
- +84 SET DR(1,165.5,76)="1578 45. CHEMOTHERAPY/SURGERY SEQUENCE."
- +85 SET DR(1,165.5,77)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@46"" S:$D(DUOUT) Y=""@99"""
- +86 SET DR(1,165.5,78)="@46"
- +87 SET DR(1,165.5,79)="D HEAD^ONCGPC0"
- +88 SET DR(1,165.5,80)="W !,"" FIRST COURSE OF TREATMENT - IMMUNOTHERAPY"""
- +89 SET DR(1,165.5,81)="W !,"" -----------------------------------------"""
- +90 SET DR(1,165.5,82)="I (IMM="""")!(IMM=0)!(IMM=9) D NOIMM^ONCGPC3 S Y=""@99"""
- +91 SET DR(1,165.5,83)="1570 46. ADMINSTRATION OF INTERFERON..."
- +92 SET DR(1,165.5,84)="@99"
- +93 DO ^DIE
- +94 KILL DR
- +95 WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if $DATA(DIRUT)
- SET OUT="Y"
- EXIT KILL DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- +1 KILL SUR,RAD,CHE,IMM
- +2 QUIT
- NOSUR ;No surgery
- +1 FOR PIECE=71:1:74
- SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,PIECE)=""
- +2 FOR PIECE=1:1:28
- SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,PIECE)=""
- +3 WRITE !," No surgery of the primary site was performed."
- +4 WRITE !," Proceed to data item 38."
- +5 WRITE !
- +6 KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if $DATA(DUOUT)
- SET Y="@99"
- +7 KILL PIECE
- +8 QUIT
- NORAD ;No radiation
- +1 SET $PIECE(^ONCO(165.5,D0,"THY1"),U,43)=0
- +2 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,42)="00000"
- +3 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,29)="00000"
- +4 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,30)=""
- +5 WRITE !," No radiation therapy was administered."
- +6 WRITE !," Code data items 38-40 to 00000."
- +7 WRITE !," Do not answer data item 41, and proceed to data item 42."
- +8 WRITE !
- +9 WRITE !," 38. REGIONAL DOSE (cGy)...........: 00000"
- +10 WRITE !
- +11 WRITE !," 39. BOOST DOSE (cGy)..............: Not administered"
- +12 WRITE !
- +13 WRITE !," 40. INTRA-OPERATIVE RADIATION"
- +14 WRITE !," THERAPY, DOSE (cGy)..........: Not administered"
- +15 WRITE !
- +16 WRITE !," 41. CONCURRENT CHEMOTHERAPY.......:"
- +17 WRITE !
- +18 KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if $DATA(DUOUT)
- SET Y="@99"
- +19 QUIT
- NOCHE ;No chemotherapy
- +1 WRITE !," No chemotherapy was administered."
- +2 WRITE !," Proceed to data item 46."
- +3 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,43)=""
- +4 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,44)=""
- +5 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,45)=""
- +6 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,31)=""
- +7 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,46)=""
- +8 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,47)=""
- +9 WRITE !
- +10 KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if $DATA(DUOUT)
- SET Y="@99"
- +11 QUIT
- NOIMM ;No immunotherapy
- +1 WRITE !," No immunotherapy administered."
- +2 WRITE !," Proceed to Treatment Complications."
- +3 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,32)=""
- +4 QUIT