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

ONCOCOML.m

Go to the documentation of this file.
  1. ONCOCOML ;Hines OIFO/GWB - Display abstract summary; 07/13/00
  1. ;;2.2;ONCOLOGY;**1,4**;Jul 31, 2013;Build 5
  1. ;
  1. N ACS,TOP,LTS,DDX,ABS,DIV
  1. S ACS=$$GET1^DIQ(165.5,XD1,.061)
  1. S TOP=$$GET1^DIQ(165.5,XD1,20)
  1. S LTS=$$GET1^DIQ(165.5,XD1,95,"I")
  1. S:LTS'="" LTS=$$GET1^DIQ(164.42,LTS,2)
  1. S DDX=$$GET1^DIQ(165.5,XD1,3)
  1. S ABS=$$GET1^DIQ(165.5,XD1,91)
  1. S DIV=$$GET1^DIQ(165.5,XD1,2000,"I")
  1. S:DIV'="" DIV=$$GET1^DIQ(4,DIV,99)
  1. S LIN=" ------------- -------------------- ----------------- ---------- ---- ----"
  1. I $G(J)=1 D
  1. .W !?1,"Acc/Sequence",?16,"Primary Site",?38,"Last Tumor Status",?57,"Date Dx",?69,"Stat",?75,"Div"
  1. .W !,LIN,!
  1. W ?1,ACS,?16,$E(TOP,1,20),?38,LTS,?57,DDX,?69,$E(ABS,1,3),?75,DIV,!
  1. Q
  1. ;
  1. DIS2 ;
  1. N PID,NAM,ACS,TOP,DDX,DIV
  1. S PID=$$GET1^DIQ(165.5,ONCXD1,61)
  1. S NAM=$$GET1^DIQ(165.5,ONCXD1,.02)
  1. S ACS=$$GET1^DIQ(165.5,ONCXD1,.061)
  1. S TOP=$$GET1^DIQ(165.5,ONCXD1,20)
  1. S DDX=$$GET1^DIQ(165.5,ONCXD1,3)
  1. S DIV=$$GET1^DIQ(165.5,ONCXD1,2000,"I")
  1. S:DIV'="" DIV=$$GET1^DIQ(4,DIV,99)
  1. W !?1,PID,?8,$E(NAM,1,18),?27,ACS,?42,$E(TOP,1,21),?64,DDX,?76,DIV
  1. Q
  1. ;
  1. HDR ;
  1. W !?1,"PID",?8,"Name",?27,"Acc/Sequence",?42,"Primary Site",?64,"Date Dx",?76,"Div"
  1. W !?1,"-----",?8,"-----------------",?27,"-------------",?42,"--------------------",?64,"----------",?76,"---"
  1. Q