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

XU8P598.m

Go to the documentation of this file.
XU8P598 ; BA/BAYPINES CLEAN-UP PACKAGE FILE FOR KERNEL; 4/18/12
 ;;8.0;KERNEL;**598**; JUL 19 1995;Build 3
 Q
 ;
POST ;CLEAN SUBFILE #9.402 OF THE PACKAGE FILE 
 N XUIEN,XUIEN1
 S (XUIEN,XUIEN1)=0
 S XUIEN1=$O(^DIC(9.4,"B","KERNEL",0))
 I +$G(XUIEN1)'>0 Q
 I $P($G(^DIC(9.4,XUIEN1,0)),"^",1)'="KERNEL" Q
 ;
 I $G(^DIC(9.4,XUIEN1,20,0))="" Q
 F  S XUIEN=$O(^DIC(9.4,XUIEN1,20,XUIEN)) Q:+$G(XUIEN)'>0  D
 . N DA,DIK S DA(1)=XUIEN1,DA=XUIEN,DIK="^DIC(9.4,"_DA(1)_",20," D ^DIK
 Q