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

ORY177.m

Go to the documentation of this file.
  1. ORY177 ;SLC/DAN - Clean up broken pointer to deleted parameters ;4/3/03 12:03
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**177**;Dec 17, 1997
  1. ;Remove entries from file 8989.5 that were left over after
  1. ;improper deletion of parameters
  1. ;
  1. ;DBIA Section
  1. ;3985 - allows direct read of XTV(8989.5 and XTV(8989.51
  1. ;10013 - DIK
  1. ;10141 - XPDUTL
  1. ;
  1. N IEN,ENT,PAR,DA,DIK
  1. D BMES^XPDUTL("Cleaning up broken pointers...")
  1. S ENT="" F S ENT=$O(^XTV(8989.5,"B",ENT)) Q:ENT="" D
  1. .Q:ENT'["DIC(4.2" ;Quit if not a system level entity
  1. .S IEN=0 F S IEN=$O(^XTV(8989.5,"B",ENT,IEN)) Q:'+IEN D
  1. ..S PAR=$P($G(^XTV(8989.5,IEN,0)),"^",2) Q:'+PAR ;Stop if no parameter
  1. ..I '$D(^XTV(8989.51,PAR)) S DIK="^XTV(8989.5,",DA=IEN D ^DIK
  1. D BMES^XPDUTL("Finished cleaning up broken pointers...")
  1. Q