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

ONCIPC8B.m

Go to the documentation of this file.
  1. ONCIPC8B ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;Print (continued)
  1. III S TABLE="FIRST COURSE OF TREATMENT"
  1. I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCIPC0
  1. K LINE S $P(LINE,"-",25)="-"
  1. W !?4,TABLE,!?4,LINE
  1. D P Q:EX=U
  1. S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
  1. W !,"36. PROTOCOL PARTICIPATION........: ",$$GET1^DIQ(165.5,IE,1312)
  1. D P Q:EX=U
  1. W !,"37. PROTOCOL PHASE................: ",$$GET1^DIQ(165.5,IE,1313)
  1. D P Q:EX=U
  1. W !,"38. DATE OF FIRST COURSE TREATMENT: ",DOFCT
  1. D P Q:EX=U
  1. W !,"39. DATE OF INPATIENT ADMISSION...: ",$$GET1^DIQ(165.5,IE,1)
  1. D P Q:EX=U
  1. W !,"40. DATE OF INPATIENT DISCHARGE...: ",$$GET1^DIQ(165.5,IE,1.1)
  1. D P Q:EX=U
  1. I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G S
  1. W !
  1. D P Q:EX=U
  1. S W !?4,"SURGERY",!?4,"-------"
  1. D P Q:EX=U
  1. W !?4,"NON CANCER-DIRECTED SURGERY"
  1. D P Q:EX=U
  1. W !?4,"---------------------------"
  1. D P Q:EX=U
  1. W !,"41. DATE OF NON CANCER-DIRECTED"
  1. D P Q:EX=U
  1. W !," SURGERY......................: ",$$GET1^DIQ(165.5,IE,58.3)
  1. D P Q:EX=U
  1. W !
  1. D P Q:EX=U
  1. W !,"42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CANCER-DIRECTED) SURGERY:"
  1. D P Q:EX=U
  1. W !," NONE, NO NON CA-DIRECTED"
  1. D P Q:EX=U
  1. W !," SURGICAL PROCEDURE..........: ",$$GET1^DIQ(165.5,IE,1314)
  1. D P Q:EX=U
  1. W !," VENTRICULOSTOMY, OR EXTERNAL"
  1. D P Q:EX=U
  1. W !," VENTRICULAR DRAIN...........: ",$$GET1^DIQ(165.5,IE,1315)
  1. D P Q:EX=U
  1. W !," CSF SHUNT,"
  1. D P Q:EX=U
  1. W !," VENTRICULOPERITONEAL........: ",$$GET1^DIQ(165.5,IE,1316)
  1. D P Q:EX=U
  1. W !," CSF SHUNT,"
  1. D P Q:EX=U
  1. W !," THIRD VENTRICULOSTOMY.......: ",$$GET1^DIQ(165.5,IE,1317)
  1. D P Q:EX=U
  1. W !," CSF SHUNT,"
  1. D P Q:EX=U
  1. W !," OTHER.......................: ",$$GET1^DIQ(165.5,IE,1318)
  1. D P Q:EX=U
  1. W !," STEREOTACTIC BIOPSY..........: ",$$GET1^DIQ(165.5,IE,1319)
  1. D P Q:EX=U
  1. W !," OPEN BRAIN BIOPSY............: ",$$GET1^DIQ(165.5,IE,1320)
  1. D P Q:EX=U
  1. W !," OPEN BIOPSY OF SPINAL CORD"
  1. D P Q:EX=U
  1. W !," TUMOR.......................: ",$$GET1^DIQ(165.5,IE,1321)
  1. D P Q:EX=U
  1. W !," LAMINECTOMY FOR SPINAL CORD"
  1. D P Q:EX=U
  1. W !," TUMOR, W/O TUMOR RESECTION,"
  1. D P Q:EX=U
  1. W !," W/O OPENING DURA...........: ",$$GET1^DIQ(165.5,IE,1322)
  1. D P Q:EX=U
  1. W !," LAMINECTOMY FOR SPINAL CORD"
  1. D P Q:EX=U
  1. W !," TUMOR, W/O TUMOR RESECTION,"
  1. D P Q:EX=U
  1. W !," W OPENING DURA.............: ",$$GET1^DIQ(165.5,IE,1323)
  1. D P Q:EX=U
  1. W !," SURGERY, NOS.................: ",$$GET1^DIQ(165.5,IE,1324)
  1. D P Q:EX=U
  1. W !," UNKNOWN IF SURGERY DONE......: ",$$GET1^DIQ(165.5,IE,1325)
  1. D P Q:EX=U
  1. I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G CDS
  1. W !
  1. D P Q:EX=U
  1. CDS W !?4,"CANCER-DIRECTED SURGERY"
  1. D P Q:EX=U
  1. W !?4,"-----------------------"
  1. D P Q:EX=U
  1. W !,"43. DATE OF CA-DIRECTED SURGERY...: ",$$GET1^DIQ(165.5,IE,50)
  1. D P Q:EX=U
  1. W !,"44. SURGICAL APPROACH.............: ",$$GET1^DIQ(165.5,IE,1326)
  1. D P Q:EX=U
  1. W !,"45. EXTENT OF SURGICAL RESECTION..: ",$$GET1^DIQ(165.5,IE,1327)
  1. D P Q:EX=U
  1. W !,"46. SIZE OF RESIDUAL PRIMARY TUMOR"
  1. D P Q:EX=U
  1. W !," AFTER CA-DIR SURGERY.........: ",$$GET1^DIQ(165.5,IE,1328)
  1. D P Q:EX=U
  1. W !,"47. SIZE OF RESIDUAL PRIMARY TUMOR"
  1. D P Q:EX=U
  1. W !," AFTER CA-DIR SURGERY (SOURCE): ",$$GET1^DIQ(165.5,IE,1329)
  1. D P Q:EX=U
  1. W !
  1. D P Q:EX=U
  1. W !,"48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
  1. D P Q:EX=U
  1. W !," ANESTHETIC PROBLEM...........: ",$$GET1^DIQ(165.5,IE,1330)
  1. D P Q:EX=U
  1. W !," HEMORRHAGE AT OPERATIVE SITE.: ",$$GET1^DIQ(165.5,IE,1331)
  1. D P Q:EX=U
  1. W !," SEIZURE......................: ",$$GET1^DIQ(165.5,IE,1332)
  1. D P Q:EX=U
  1. W !," INFECTION(S).................: ",$$GET1^DIQ(165.5,IE,1333)
  1. D P Q:EX=U
  1. W !," DVT (DEEP VENOUS THROMBOSIS).: ",$$GET1^DIQ(165.5,IE,1334)
  1. D P Q:EX=U
  1. W !," PERSISTENT NEUROLOGICAL"
  1. D P Q:EX=U
  1. W !," WORSENING > 4 DAYS POST-OP..: ",$$GET1^DIQ(165.5,IE,1335)
  1. D P Q:EX=U
  1. W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,360)
  1. D P Q:EX=U
  1. W !
  1. D P Q:EX=U
  1. W !,"49. REASON FOR NO SURGERY.........: ",$$GET1^DIQ(165.5,IE,58)
  1. D P Q:EX=U
  1. I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G R
  1. W !
  1. D P Q:EX=U
  1. R W !?4,"RADIATION THERAPY",!?4,"-----------------"
  1. D P Q:EX=U
  1. W !,"50. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,1345)
  1. D P Q:EX=U
  1. W !,"51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
  1. D P Q:EX=U
  1. W !,"52. DATE RADIATION ENDED..........: ",$$GET1^DIQ(165.5,IE,361)
  1. D P Q:EX=U
  1. W !,"53. TOTAL RADIATION DOSE (cGy)....: ",$$GET1^DIQ(165.5,IE,1336)
  1. D P Q:EX=U
  1. W !,"54. 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 !,"55. TYPE OF EXT BEAM RADIATION....: ",$$GET1^DIQ(165.5,IE,1337)
  1. D P Q:EX=U
  1. W !,"56. INTERSTITIAL RAD/BRACHYTHERAPY: ",$$GET1^DIQ(165.5,IE,1338)
  1. D P Q:EX=U
  1. W !,"57. STEREOTACTIC RADIOSURGERY.....: ",$$GET1^DIQ(165.5,IE,1339)
  1. D P Q:EX=U
  1. W !,"58. 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. W !,"59. RADIATION COMPLICATIONS:"
  1. D P Q:EX=U
  1. W !," SKIN REACTIONS...............: ",$$GET1^DIQ(165.5,IE,1340)
  1. D P Q:EX=U
  1. W !," ANOREXIA.....................: ",$$GET1^DIQ(165.5,IE,1341)
  1. D P Q:EX=U
  1. W !," NAUSEA OR VOMITING...........: ",$$GET1^DIQ(165.5,IE,1342)
  1. D P Q:EX=U
  1. W !," FATIGUE......................: ",$$GET1^DIQ(165.5,IE,1343)
  1. D P Q:EX=U
  1. W !," NEUROLOGIC WORSENING.........: ",$$GET1^DIQ(165.5,IE,1344)
  1. D P Q:EX=U
  1. W !
  1. D P Q:EX=U
  1. W !,"60. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
  1. D P Q:EX=U
  1. I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G C
  1. W !
  1. D P Q:EX=U
  1. C D ^ONCIPC8C
  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^ONCIPC0 Q
  1. Q