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