- ONCPRE50 ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*50
- ;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29
- ;
- ITEM8 ;ADDITIONAL SERVICE INDICATORS
- ;Kill AGENT ORANGE EXPOSURE (160,48) and
- ;IONIZING RADIATION EXPOSURE (160,50) to remove extraneous 9.1 nodes
- S DIK="^DD(160,",DA=48,DA(1)=160 D ^DIK
- S DIK="^DD(160,",DA=50,DA(1)=160 D ^DIK
- K DA,DIK
- ;
- ITEM16 ;ONCOLOGY DATA EXTRACT FORMAT (#160.16)
- K ^ONCO(160.16)
- K ^ONCO(160.17)
- ;
- ;Delete MIDDLE NAME (160,.015) to remove extranious 9.2 and 9.3 nodes
- S DIK="^DD(160,",DA=.015,DA(1)=160 D ^DIK
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPRE50 576 printed Jan 18, 2025@03:28:38 Page 2
- ONCPRE50 ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*50
- +1 ;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29
- +2 ;
- ITEM8 ;ADDITIONAL SERVICE INDICATORS
- +1 ;Kill AGENT ORANGE EXPOSURE (160,48) and
- +2 ;IONIZING RADIATION EXPOSURE (160,50) to remove extraneous 9.1 nodes
- +3 SET DIK="^DD(160,"
- SET DA=48
- SET DA(1)=160
- DO ^DIK
- +4 SET DIK="^DD(160,"
- SET DA=50
- SET DA(1)=160
- DO ^DIK
- +5 KILL DA,DIK
- +6 ;
- ITEM16 ;ONCOLOGY DATA EXTRACT FORMAT (#160.16)
- +1 KILL ^ONCO(160.16)
- +2 KILL ^ONCO(160.17)
- +3 ;
- +4 ;Delete MIDDLE NAME (160,.015) to remove extranious 9.2 and 9.3 nodes
- +5 SET DIK="^DD(160,"
- SET DA=.015
- SET DA(1)=160
- DO ^DIK