136 lines
4.8 KiB
Mathematica
136 lines
4.8 KiB
Mathematica
ONCLPC9B ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/17/01
|
|
;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
|
;Print (continued)
|
|
V S TABLE="FIRST COURSE OF TREATMENT - SURGERY"
|
|
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
|
|
K LINE S $P(LINE,"-",35)="-"
|
|
W !?4,TABLE,!?4,LINE
|
|
D P Q:EX=U
|
|
ITEM15 W !,"15. SCOPE OF OPERATIVE MEDIASTINAL LYMPH NODE ASSESSMENT:"
|
|
D P Q:EX=U
|
|
W !," HIGHEST MEDIASTINAL (level 1): ",$$GET1^DIQ(165.5,IE,1419)
|
|
D P Q:EX=U
|
|
W !," UPPER PARATRACHEAL (level 2): ",$$GET1^DIQ(165.5,IE,1419.1)
|
|
D P Q:EX=U
|
|
W !," PREVASCULAR AND RETROTRACHEAL"
|
|
D P Q:EX=U
|
|
W !," (level 3): ",$$GET1^DIQ(165.5,IE,1419.2)
|
|
D P Q:EX=U
|
|
W !," LOWER PARATRACHEAL (level 4): ",$$GET1^DIQ(165.5,IE,1419.3)
|
|
D P Q:EX=U
|
|
W !," SUBAORTIC (level 5): ",$$GET1^DIQ(165.5,IE,1419.4)
|
|
D P Q:EX=U
|
|
W !," PARAORTIC (level 6): ",$$GET1^DIQ(165.5,IE,1419.5)
|
|
D P Q:EX=U
|
|
W !," SUBCARINAL (level 7): ",$$GET1^DIQ(165.5,IE,1419.6)
|
|
D P Q:EX=U
|
|
W !," PARAESOPHAGEAL (level 8): ",$$GET1^DIQ(165.5,IE,1419.7)
|
|
D P Q:EX=U
|
|
W !," PULMONARY LIGAMENT (level 9): ",$$GET1^DIQ(165.5,IE,1419.8)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G ITEM16
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM16 W !,"16. HCT (HEMATOCRIT) VALUES BEFORE"
|
|
D P Q:EX=U
|
|
W !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1430)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM17 W !,"17. TOTAL PERI-OPERATIVE BLOOD"
|
|
D P Q:EX=U
|
|
W !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1420)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM18 W !,"18. PERI-OPERATIVE DEATH..........: ",$$GET1^DIQ(165.5,IE,1421)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
|
|
S TABLE="FIRST COURSE OF TREATMENT - RADIATION"
|
|
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
|
|
K LINE S $P(LINE,"-",37)="-"
|
|
W !?4,TABLE,!?4,LINE
|
|
D P Q:EX=U
|
|
ITEM19 W !,"19. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM20 W !,"20. NUMBER OF TREATMENTS TO THIS"
|
|
D P Q:EX=U
|
|
W !," VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM21 W !,"21. REGIONAL TREATMENT MODALITY...: ",$$GET1^DIQ(165.5,IE,363)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM22 W !,"22. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM23 W !,"23. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1422)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM24 W !,"24. INTENT OF RADIATION TREATMENT.: ",$$GET1^DIQ(165.5,IE,127)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM25 W !,"25. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
|
|
S TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
|
|
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
|
|
K LINE S $P(LINE,"-",40)="-"
|
|
W !?4,TABLE,!?4,LINE
|
|
D P Q:EX=U
|
|
ITEM26 W !,"26. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
|
|
D P Q:EX=U
|
|
W !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1423)
|
|
D P Q:EX=U
|
|
W !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1423.1)
|
|
D P Q:EX=U
|
|
W !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1423.2)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM27 W !,"27. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1424)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM28 W !,"28. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1425)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
|
|
VI S TABLE="TREATMENT COMPLICATIONS"
|
|
I IOST'?1"C".E W !
|
|
W !?4,TABLE,!?4,"-----------------------"
|
|
D P Q:EX=U
|
|
ITEM29 W !,"29. COMPLICATIONS:"
|
|
D P Q:EX=U
|
|
I TC="No" D G TC2
|
|
.W !," COMPLICATION #1..............: 000.00 No complications"
|
|
W !," COMPLICATION #1..............: ",$P($$GET1^DIQ(165.5,IE,1426)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426)," ",2,99)
|
|
TC2 D P Q:EX=U
|
|
W !," COMPLICATION #2..............: ",$P($$GET1^DIQ(165.5,IE,1426.1)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.1)," ",2,99)
|
|
D P Q:EX=U
|
|
W !," COMPLICATION #3..............: ",$P($$GET1^DIQ(165.5,IE,1426.2)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.2)," ",2,99)
|
|
D P Q:EX=U
|
|
W !," COMPLICATION #4..............: ",$P($$GET1^DIQ(165.5,IE,1426.3)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.3)," ",2,99)
|
|
D P Q:EX=U
|
|
W !," COMPLICATION #5..............: ",$P($$GET1^DIQ(165.5,IE,1426.4)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.4)," ",2,99)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
|
|
VII S TABLE="CASE REGISTRATION"
|
|
I IOST'?1"C".E W !
|
|
W !?4,TABLE,!?4,"-----------------"
|
|
D P Q:EX=U
|
|
ITEM30 W !,"29. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
|
|
D P Q:EX=U
|
|
W !
|
|
D P Q:EX=U
|
|
ITEM31 W !,"30. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
|
|
D P Q:EX=U
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
|
|
Q
|
|
P ;Print
|
|
I ($Y'<(LIN-1)) D Q:EX=U
|
|
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
|
|
.D HEAD^ONCLPC0 Q
|
|
Q
|