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

ONCNPC2.m

Go to the documentation of this file.
  1. ONCNPC2 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table II;4/14/97
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. K TABLE,HTABLE
  1. S TABLE("CLASS OF CASE")="COC"
  1. S TABLE("DIAGNOSTIC CONFIRMATION")="DC"
  1. S TABLE("DIAGNOSTIC WORKUP")="DW"
  1. S TABLE("RESULTS OF LABORATORY TESTS")="ROLT"
  1. S TABLE("ADDITIONAL TESTS")="AT"
  1. S TABLE("REVIEW OF PATHOLOGY/OTH INST")="ROP"
  1. S TABLE("DIAGNOSTIC BIOPSIES")="DB"
  1. S TABLE("SYSTEMIC SYMPTOMS")="SS"
  1. S TABLE("DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE")="DTSRTHD"
  1. S TABLE("HIV VIRAL LOADS")="HVL"
  1. S TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
  1. S TABLE("PRIMARY SITE")="PS"
  1. S TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
  1. S TABLE("SPECIFIC HISTOLOGIC INFORMATION")="SHI"
  1. S TABLE("CELL TYPE OF LYMPHOMA")="CTOL"
  1. S TABLE("PATIENT STATUS AT DIAGNOSIS")="PSAD"
  1. S HTABLE(1)="CLASS OF CASE"
  1. S HTABLE(2)="DIAGNOSTIC CONFIRMATION"
  1. S HTABLE(3)="DIAGNOSTIC WORKUP"
  1. S HTABLE(4)="RESULTS OF LABORATORY TESTS"
  1. S HTABLE(5)="ADDITIONAL TESTS"
  1. S HTABLE(6)="REVIEW OF PATHOLOGY/OTH INST"
  1. S HTABLE(7)="DIAGNOSTIC BIOPSIES"
  1. S HTABLE(8)="SYSTEMIC SYMPTOMS"
  1. S HTABLE(9)="DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE"
  1. S HTABLE(10)="HIV VIRAL LOADS"
  1. S HTABLE(11)="DATE OF INITIAL DIAGNOSIS"
  1. S HTABLE(12)="PRIMARY SITE"
  1. S HTABLE(13)="HISTOLOGY/BEHAVIOR CODE"
  1. S HTABLE(14)="SPECIFIC HISTOLOGIC INFORMATION"
  1. S HTABLE(15)="CELL TYPE OF LYMPHOMA"
  1. S HTABLE(16)="PATIENT STATUS AT DIAGNOSIS"
  1. S CHOICES=16
  1. K DIQ S DIC="^ONCO(165.5,",DR=".04;22;24;26",DA=ONCONUM,DIQ="ONC"
  1. D EN^DIQ1
  1. S Y=$P(^ONCO(165.5,ONCONUM,0),U,16) D DATEOT^ONCOPCE S DOID=Y
  1. W @IOF D HEAD^ONCNPC0
  1. W !?26,"TABLE II- INITIAL DIAGNOSIS"
  1. W !?26,"---------------------------"
  1. S DIE="^ONCO(165.5,",DA=ONCONUM
  1. COC W !,"CLASS OF CLASS..............: ",ONC(165.5,ONCONUM,.04)
  1. DC S DR="26DIAGNOSTIC CONFIRMATION....." D ^DIE G:$D(Y) JUMP
  1. DW W !!,"DIAGNOSTIC WORKUP:",!
  1. S DR="505 CHEST X-RAY..............." D ^DIE G:$D(Y) JUMP
  1. S DR="512 SKELETAL X-RAY............" D ^DIE G:$D(Y) JUMP
  1. S DR="823 CT SCAN OF BRAIN.........." D ^DIE G:$D(Y) JUMP
  1. S DR="506 CT SCAN OF CHEST.........." D ^DIE G:$D(Y) JUMP
  1. S DR="824 CT SCAN OF ABDOMEN/PELVIS." D ^DIE G:$D(Y) JUMP
  1. S DR="825 MRI OF BRAIN.............." D ^DIE G:$D(Y) JUMP
  1. S DR="826 MRI OF CHEST.............." D ^DIE G:$D(Y) JUMP
  1. S DR="827 MRI OF ABDOMEN/PELVIS....." D ^DIE G:$D(Y) JUMP
  1. S DR="504 BONE SCAN................." D ^DIE G:$D(Y) JUMP
  1. S DR="828 GALLIUM SCAN.............." D ^DIE G:$D(Y) JUMP
  1. S DR="829 PET SCAN.................." D ^DIE G:$D(Y) JUMP
  1. S DR="830 LUMBAR PUNCTURE..........." D ^DIE G:$D(Y) JUMP
  1. ROLT W !!,"RESULTS OF LABORATORY TESTS:",!
  1. S DR="831 HEMOGLOBIN/HEMATOCRIT....." D ^DIE G:$D(Y) JUMP
  1. S DR="832 WHITE COUNT..............." D ^DIE G:$D(Y) JUMP
  1. S DR="833 PLATELET COUNT............" D ^DIE G:$D(Y) JUMP
  1. S DR="834 LACTIC DEHYDROGENASE (LDH)" D ^DIE G:$D(Y) JUMP
  1. S DR="835 LIVER FUNCTION STUDIES...." D ^DIE G:$D(Y) JUMP
  1. S DR="836 TOTAL PROTEIN/ALBUMIN....." D ^DIE G:$D(Y) JUMP
  1. AT W !!,"ADDITIONAL TESTS:",!
  1. S DR="516 TUMOR SURFACE MARKER......" D ^DIE G:$D(Y) JUMP
  1. S DR="514 CYTOGENETIC TESTING......." D ^DIE G:$D(Y) JUMP
  1. S DR="837 GENE REARRANGEMENTS......." D ^DIE G:$D(Y) JUMP
  1. W !
  1. ROP S DR="838REVIEW OF PATHOLOGY/OTH INST" D ^DIE G:$D(Y) JUMP
  1. DB W !!,"DIAGNOSTIC BIOPSIES:",!
  1. S DR="839 LYMPH NODE................" D ^DIE G:$D(Y) JUMP
  1. S DR="840 BONE MARROW..............." D ^DIE G:$D(Y) JUMP
  1. S DR="841 CSF CYTOLOGY.............." D ^DIE G:$D(Y) JUMP
  1. S DR="842 OTHER SITE................" D ^DIE G:$D(Y) JUMP
  1. W !
  1. SS S DR="843SYSTEMIC SYMPTOMS..........." D ^DIE G:$D(Y) JUMP
  1. DTSRTHD W !!,"DIAGNOSTIC TESTS SPECIFICALLY RELATED TO HIV DISEASE:",!
  1. S DR="844 CD4 COUNT................." D ^DIE G:$D(Y) JUMP
  1. S DR="845 HIV VIRAL LOADS..........." D ^DIE G:$D(Y) JUMP
  1. DOID W !!,"DATE OF INITIAL DIAGNOSIS...: ",DOID
  1. PS W !,"PRIMARY SITE................: ",TOPCOD
  1. H W !,"HISTOLOGY/BEHAVIOR CODE.....: ",ONC(165.5,ONCONUM,22)
  1. SHI S DR="846SPECIFIC HISTOLOGIC INFO...." D ^DIE G:$D(Y) JUMP
  1. CTOL S DR="847CELL TYPE OF LYMPHOMA......." D ^DIE G:$D(Y) JUMP
  1. PSAD S DR="848PATIENT STATUS AT DIAGNOSIS." D ^DIE G:$D(Y) JUMP
  1. W ! K DIR S DIR(0)="E" D ^DIR
  1. G EXIT
  1. JUMP ;Jump to prompts
  1. S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
  1. I X["?" D G JUMP
  1. .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
  1. I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
  1. .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
  1. S X=TABLE(X)
  1. G @X
  1. EXIT K HTABLE,TABLE,CHOICES
  1. K DOID,HST,HSTCD,HSTNAM,PRINODE0,PRINODE2,TOPOG,TOPCD,SITE
  1. K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
  1. Q