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

ONCPDI.m

Go to the documentation of this file.
  1. ONCPDI ;HINES OIFO/GWB - Patient information ;10/07/11
  1. ;;2.2;ONCOLOGY;**1,13,19,20**;Jul 31, 2013;Build 5
  1. ;
  1. PRT ;
  1. N DI,DIC,DR,DA,DIQ
  1. K ONC
  1. N PT,SIG,SOV
  1. I $$DPTLRT^ONCOES(D0)="LRT" S (SIG,SOV)=""
  1. I $$DPTLRT^ONCOES(D0)="DPT" D
  1. .S PT=$P($G(^ONCO(160,D0,0)),";",1)
  1. .S SOV=$$SO^ONCOES(PT) ;SEXUAL ORIENTATION
  1. .S SIG=$$GET1^DIQ(2,PT,.024,"E") ;SELF IDENTIFIED GENDER
  1. S DIC="^ONCO(160,",DR="7;8;8.1;8.2;8.3;8.4;9;10;25;25.1;25.2;25.3;25.4;25.5;25.6;25.7;25.8;25.9;48;50;51;52;61;55;56;62;63;64;65;66;67;71;72;73;1006;25.91:25.9901"
  1. S DA=D0,DIQ="ONC"
  1. D EN^DIQ1
  1. F I=7,71,8,8.1,8.2,8.3,8.4,9,10,48,50,51,52,61,55,56,62,63,64,65,66,67,72,73 S X=ONC(160,D0,I) D UCASE^ONCPCI S ONC(160,D0,I)=X
  1. W !
  1. W !," Place of birth.............: ",ONC(160,D0,7)
  1. W !," Birth Surname..............: ",ONC(160,D0,71)
  1. W !," Race 1.....................: ",ONC(160,D0,8)
  1. W !," Race 2.....................: ",ONC(160,D0,8.1)
  1. W !," Race 3.....................: ",ONC(160,D0,8.2)
  1. W !," Race 4.....................: ",ONC(160,D0,8.3)
  1. W !," Race 5.....................: ",ONC(160,D0,8.4)
  1. W !," Spanish origin.............: ",ONC(160,D0,9)
  1. W !," Sex........................: ",ONC(160,D0,10)
  1. W !," Sexual Orientation.........: ",SOV
  1. W !," Self Identified Gender.....: ",SIG
  1. W !," Exposure Agent Orange......: ",ONC(160,D0,48)
  1. W !," Exposure Ionizing Radiation: ",ONC(160,D0,50)
  1. W !," Exposure Chemical..........: ",ONC(160,D0,52)
  1. W !," Exposure Asbestos..........: ",ONC(160,D0,61)
  1. W !," Exposure Burn Pit..........: ",ONC(160,D0,72)
  1. W !," Exposure Other Toxic.......: ",ONC(160,D0,73)
  1. W !," Vietnam service............: ",ONC(160,D0,62)
  1. W !," Lebanon service............: ",ONC(160,D0,55)
  1. W !," Grenada service............: ",ONC(160,D0,63)
  1. W !," Panama service.............: ",ONC(160,D0,64)
  1. W !," Persian Gulf service.......: ",ONC(160,D0,51)
  1. W !," Somalia service............: ",ONC(160,D0,56)
  1. W !," Yugoslavia service.........: ",ONC(160,D0,65)
  1. W !," Afghanistan (OEF) service..: ",ONC(160,D0,67)
  1. W !," Iraq (OIF) service.........: ",ONC(160,D0,66)
  1. Q
  1. ;
  1. PH ;Patient History
  1. K ONC S IEN=D0_","
  1. D GETS^DIQ(160,IEN,"38;39;42*;43;44*","","ONC")
  1. F I=38,39,43 S X=ONC(160,D0_",",I) D UCASE^ONCPCI S ONC(160,D0_",",I)=X
  1. W @IOF
  1. S SUB=0 F S SUB=$O(ONC(160.042,SUB)) Q:SUB'>0 D
  1. .W !," Usual Occupation...........: ",ONC(160.042,SUB,.01)
  1. .W !," Usual Industry.............: ",ONC(160.042,SUB,3)
  1. .W !
  1. W !," Tobacco History............: ",ONC(160,IEN,38)
  1. W !," Alcohol History............: ",ONC(160,IEN,39)
  1. W !
  1. W !," Family History of Cancer...: ",ONC(160,IEN,43)
  1. S SUB=0 F S SUB=$O(ONC(160.044,SUB)) Q:SUB'>0 D
  1. .W !," Family Member with Cancer..: ",ONC(160.044,SUB,.01),?50,"(",ONC(160.044,SUB,1),")"
  1. W !
  1. K I,IEN,ONC,SUB,X
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K D0