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

BGUCU.m

Go to the documentation of this file.
  1. BGUCU ; IHS/OIT/MJL - CLEAN UP BGU TRACE ENTRIES ;
  1. ;;1.5;BGU;;MAY 26, 2005
  1. TSK ;
  1. S U="^",DIK="^BGUTRACE(",BGUSP=$G(^BGUSP(1,0)),BGUNDTK=$P(BGUSP,U,7)\1 D NOW^%DTC S X1=X,X2=-(BGUNDTK) D C^%DTC S BGUTDJ=X
  1. S BGUENT=0 F S BGUENT=$O(^BGUTRACE(BGUENT)) Q:'BGUENT S BGUDJ=$P(^BGUTRACE(BGUENT,0),U,4) I BGUTDJ>BGUDJ S DA=BGUENT D ^DIK
  1. K BGUDJ,BGUENT,BGUNDTK,BGUSP,BGUTDJ,DA,DIK,X,X1,X2
  1. Q