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

ONCLPC9B.m

Go to the documentation of this file.
ONCLPC9B ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/17/01
 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
 ;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