source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCLPC5.m@ 812

Last change on this file since 812 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 4.8 KB
Line 
1ONCLPC5 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;03/08/01
2 ;;2.11;ONCOLOGY;**29,30,33**;Mar 07, 1995
3 ;First Course of Treatment
4 S SUR=$$GET1^DIQ(165.5,ONCONUM,58.2)
5 S RAD=$$GET1^DIQ(165.5,ONCONUM,51.2,"I")
6 S CHE=$$GET1^DIQ(165.5,ONCONUM,53.2,"I")
7 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
8 W @IOF D HEAD^ONCLPC0
9 W !," FIRST COURSE OF TREATMENT - SURGERY"
10 W !," -----------------------------------"
11 S DR(1,165.5,1)="I (SUR="""")!($E(SUR,1,2)=""00"")!($E(SUR,1,2)=99) D NOSUR^ONCLPC5 S Y=$S($D(DUOUT):""@99"",1:""@19"")"
12 S DR(1,165.5,2)="W !,"" 15. SCOPE OF OPERATIVE MEDIASTINAL LYMPH NODE ASSESSMENT:"""
13 S DR(1,165.5,3)="1419 HIGHEST MEDIASTINAL (level 1)"
14 S DR(1,165.5,4)="1419.1 UPPER PARATRACHEAL (level 2)"
15 S DR(1,165.5,5)="1419.2 PREVASCULAR AND RETROTRACHEAL (level 3)"
16 S DR(1,165.5,6)="1419.3 LOWER PARATRACHEAL (level 4)"
17 S DR(1,165.5,7)="1419.4 SUBAORTIC (level 5)"
18 S DR(1,165.5,8)="1419.5 PARAORTIC (level 6)"
19 S DR(1,165.5,9)="1419.6 SUBCARINAL (level 7)"
20 S DR(1,165.5,10)="1419.7 PARAESOPHAGEAL (level 8)"
21 S DR(1,165.5,11)="1419.8 PULMONARY LIGAMENT (level 9)"
22 S DR(1,165.5,12)="W !"
23 S DR(1,165.5,13)="1430 16. HCT (HEMOCRIT) VALUES BEFORE TRANSFUSION.................."
24 S DR(1,165.5,14)="W !"
25 S DR(1,165.5,15)="1420 17. TOTAL PERI-OPERATIVE BLOOD REPLACEMENT.................."
26 S DR(1,165.5,16)="W !"
27 S DR(1,165.5,17)="1421 18. PERI-OPERATIVE DEATH.........."
28 S DR(1,165.5,19)="W ! K DIR,OUT S DIR(0)=""E"" D ^DIR S Y=""@19"" I $D(DUOUT) S Y=""@99"",OUT=""Y"""
29 S DR(1,165.5,20)="@19"
30 S DR(1,165.5,21)="D HEAD^ONCLPC0"
31 S DR(1,165.5,22)="W !,"" FIRST COURSE OF TREATMENT - RADIATION THERAPY"""
32 S DR(1,165.5,23)="W !,"" ---------------------------------------------"""
33 S DR(1,165.5,24)="I (RAD="""")!(RAD=0)!(RAD=9) D NORAD^ONCLPC5 S Y=$S($D(DUOUT):""@99"",1:""@26"")"
34 S DR(1,165.5,25)="442 19. REGIONAL DOSE (cGy)..........."
35 S DR(1,165.5,26)="W !"
36 S DR(1,165.5,27)="56 20. NUMBER OF TREATMENTS TO THIS VOLUME......................."
37 S DR(1,165.5,28)="W !"
38 S DR(1,165.5,29)="363 21. REGIONAL TREATMENT MODALITY..."
39 S DR(1,165.5,30)="W !"
40 S DR(1,165.5,31)="51.3 22. RADIATION/SURGERY SEQUENCE...."
41 S DR(1,165.5,32)="W !"
42 S DR(1,165.5,33)="1422 23. BOOST DOSE (cGy).............."
43 S DR(1,165.5,34)="W !"
44 S DR(1,165.5,35)="127 24. INTENT OF RADIATION TREATMENT."
45 S DR(1,165.5,36)="W !"
46 S DR(1,165.5,37)="75 25. REASON FOR NO RADIATION......."
47 S DR(1,165.5,38)="W ! K DIR,OUT S DIR(0)=""E"" D ^DIR S Y=""@26"" I $D(DUOUT) S Y=""@99"",OUT=""Y"""
48 S DR(1,165.5,39)="@26"
49 S DR(1,165.5,40)="D HEAD^ONCLPC0"
50 S DR(1,165.5,41)="W !,"" FIRST COURSE OF TREATMENT - CHEMOTHERAPY"""
51 S DR(1,165.5,42)="W !,"" ----------------------------------------"""
52 S DR(1,165.5,43)="I (CHE="""")!(CHE=0)!(CHE=9) D NOCHE^ONCLPC5 S Y=""@99"""
53 S DR(1,165.5,44)="W !,"" 26. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"""
54 S DR(1,165.5,45)="1423 AGENT #1....................."
55 S DR(1,165.5,46)="1423.1 AGENT #2....................."
56 S DR(1,165.5,47)="1423.2 AGENT #3....................."
57 S DR(1,165.5,48)="W !"
58 S DR(1,165.5,49)="1424 27. CHEMOTHERAPEUTIC TOXICITY....."
59 S DR(1,165.5,50)="W !"
60 S DR(1,165.5,51)="1425 28. CHEMOTHERAPY/SURGERY SEQUENCE."
61 S DR(1,165.5,53)="@99"
62 D ^DIE
63 W !
64 G:$G(OUT)="Y" EXIT
65 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
66EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
67 K SUR,RAD,CHE
68 Q
69NOSUR ;No surgery
70 F PIECE=16:1:26 S $P(^ONCO(165.5,D0,"LUN2"),U,PIECE)=""
71 S $P(^ONCO(165.5,D0,"LUN2"),U,43)=""
72 W !," No surgery of the primary site was performed."
73 W !," Do not answer data items 15-18."
74 W !," Proceed to data item 19."
75 W !
76 K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99",OUT="Y"
77 K PIECE
78 Q
79NORAD ;No radiation
80 S $P(^ONCO(165.5,D0,"LUN2"),U,27)="00000"
81 W !," 19. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,D0,442)
82 W !
83 W !," 20. NUMBER OF TREATMENTS TO THIS"
84 W !," VOLUME.......................: ",$$GET1^DIQ(165.5,D0,56)
85 W !
86 W !," 21. REGIONAL TREATMENT MODALITY...: ",$$GET1^DIQ(165.5,D0,363)
87 W !
88 W !," 22. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,D0,51.3)
89 W !
90 W !," 23. BOOST DOSE (cGy)..............: Not administered"
91 W !
92 W !," 24. INTENT OF RADIATION TREATMENT.: ",$$GET1^DIQ(165.5,D0,127)
93 W !
94 W !," 25. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,D0,75)
95 W !
96 K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99",OUT="Y"
97 Q
98NOCHE ;No chemotherapy
99 F PIECE=28:1:32 S $P(^ONCO(165.5,D0,"LUN2"),U,PIECE)=""
100 W !," No chemotherapy was administered."
101 W !," Do not answer data items 26-28."
102 W !," Proceed to data item 29."
103 K PIECE
104 Q
Note: See TracBrowser for help on using the repository browser.