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

PSSPCH13.m

Go to the documentation of this file.
  1. PSSPCH13 ;BIR/WRT-PATCH ROUTINE ; 07/06/98 10:24
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**13**;9/30/97
  1. S DIK="^DD(50,",DA=23,DA(1)=50 D ^DIK
  1. S DIK="^DD(50,",DA=24,DA(1)=50 D ^DIK
  1. ;
  1. DEL ;Delete bogus field from "ID" node.
  1. I '$D(^DD(50,534016)) K ^DD(50,0,"ID",534016)
  1. Q