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