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

ONCPRE50.m

Go to the documentation of this file.
  1. ONCPRE50 ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*50
  1. ;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29
  1. ;
  1. ITEM8 ;ADDITIONAL SERVICE INDICATORS
  1. ;Kill AGENT ORANGE EXPOSURE (160,48) and
  1. ;IONIZING RADIATION EXPOSURE (160,50) to remove extraneous 9.1 nodes
  1. S DIK="^DD(160,",DA=48,DA(1)=160 D ^DIK
  1. S DIK="^DD(160,",DA=50,DA(1)=160 D ^DIK
  1. K DA,DIK
  1. ;
  1. ITEM16 ;ONCOLOGY DATA EXTRACT FORMAT (#160.16)
  1. K ^ONCO(160.16)
  1. K ^ONCO(160.17)
  1. ;
  1. ;Delete MIDDLE NAME (160,.015) to remove extranious 9.2 and 9.3 nodes
  1. S DIK="^DD(160,",DA=.015,DA(1)=160 D ^DIK