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

ONCPM.m

Go to the documentation of this file.
  1. ONCPM ;HINES OIFO/GWB Performance Measures ;08/15/11
  1. ;;2.2;ONCOLOGY;**1,17**;Jul 31, 2013;Build 6
  1. ;
  1. N COC,ICDO,SITE,Z
  1. N D0,DA,DD,DI,DIC,DIE,DIEL,DINUM,DIR,DK,DL,DLAYGO,DM,DO,DOV,DP,DQ,DR
  1. K PCEITC
  1. W !!,?10,"Performance Measures are no longer being collected..." R Z:10 G EXIT
  1. ;Build PCEITC array of eligible topography codes
  1. S PCEITC("C18.0")="" ;Cecum
  1. S PCEITC("C18.1")="" ;Appendix
  1. S PCEITC("C18.2")="" ;Ascending
  1. S PCEITC("C18.3")="" ;Hepatic flexure
  1. S PCEITC("C18.4")="" ;Transverse
  1. S PCEITC("C18.5")="" ;Splenic flexure
  1. S PCEITC("C18.6")="" ;Descending
  1. S PCEITC("C18.7")="" ;Sigmoid
  1. S PCEITC("C18.8")="" ;Overlapping lesion
  1. S PCEITC("C18.9")="" ;Colon, NOS
  1. S PCEITC("C19.9")="" ;Rectosigmoid junction
  1. S PCEITC("C20.9")="" ;Rectum
  1. S PCEITC("C34.0")="" ;Main Bronchus
  1. S PCEITC("C34.1")="" ;Upper lobe lung
  1. S PCEITC("C34.2")="" ;Middle lobe lung
  1. S PCEITC("C34.3")="" ;Lower lobe lung
  1. S PCEITC("C34.8")="" ;Overlapping lesion of lung
  1. S PCEITC("C34.9")="" ;Lung, NOS
  1. S PCEITC("C50.0")="" ;Nipple
  1. S PCEITC("C50.1")="" ;Central portion breast
  1. S PCEITC("C50.2")="" ;Upper-inner quadrant breast
  1. S PCEITC("C50.3")="" ;Lower-inner quadrant breast
  1. S PCEITC("C50.4")="" ;Upper-outer quadrant breast
  1. S PCEITC("C50.5")="" ;Lower-outer quadrant breast
  1. S PCEITC("C50.6")="" ;Axillary tail breast
  1. S PCEITC("C50.8")="" ;Overlapping lesion breast
  1. S PCEITC("C50.9")="" ;Breast, NOS
  1. S PCEITC("C61.9")="" ;Prostate
  1. ;
  1. ;Check PRIMARY SITE (165.5,2)
  1. ; CLASS OF CASE (165.5,.04)
  1. ; DATE DX (165.5,3)
  1. S SITE=$P($G(^ONCO(165.5,ONCONUM,2)),U,1)
  1. S ICDO=0
  1. I SITE'="" S ICDO=$P(^ONCO(164,SITE,0),U,2)
  1. S COC=$E($$GET1^DIQ(165.5,ONCONUM,.04),1,2)
  1. I SITE="" W !!,?10,"There is no PRIMARY SITE for this primary." R Z:10 G EXIT
  1. I COC="" W !!,?10,"There is no CLASS OF CASE for this primary." R Z:10 G EXIT
  1. I COC>22 W !!,?10,"CLASS OF CASE = ",COC," (non-anlytic)." R Z:10 G EXIT
  1. I DATEDX<3120000 W !!,?10,"DATE DX is before 2012." R Z:10 G EXIT
  1. I '$D(PCEITC(ICDO)) W !!,?10,"Performance Measures are not being recorded for this primary site" R Z:10 G EXIT
  1. I $E(ICDO,2,3)=34 D ^ONCPML G EXIT
  1. I ($E(ICDO,2,3)=18)!($E(ICDO,2,3)=19)!($E(ICDO,2,3)=20) D ^ONCPMC G EXIT
  1. I $E(ICDO,2,3)=50 D ^ONCPMB G EXIT
  1. I ICDO="C61.9" D ^ONCPMP G EXIT
  1. Q
  1. ;
  1. EXIT ;Exit
  1. K PCEITC
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K DATEDX,ONCONUM