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

ONCOPA4.m

Go to the documentation of this file.
  1. ONCOPA4 ;HINES OIFO/RTK - PA PRINT COMPLETE ABSTRACT CONTINUED ;06/04/20
  1. ;;2.2;ONCOLOGY;**12,13**;Jul 31, 2013;Build 7
  1. ;
  1. SSDI ;
  1. W ! S FDNAME="" F FDNUM=3800:1:3950 D
  1. .I '$D(^DD(165.5,FDNUM)) Q
  1. .I $$GET1^DIQ(165.5,IEN,FDNUM,"I")'="" D DISPL
  1. K FDNAME,FDNUM Q
  1. DISPL ;
  1. ;I FDNUM=3859 Q ; don't display HIV STATUS field
  1. S FDNAME=$P($G(^DD(165.5,FDNUM,0)),U,1) D SENTNC W !?2,FDNAME,": "
  1. W $$GET1^DIQ(165.5,IEN,FDNUM,"E")
  1. Q
  1. SENTNC ;
  1. I FDNAME["HIV" S FDNAME="HIV Status" Q
  1. S FDNAME=$$LCASE^ONCOU(FDNAME)
  1. Q