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

BJHSET.m

Go to the documentation of this file.
  1. BJHSET ;NEW PROGRAM [ 04/11/96  1:02 PM ]
  1. EP ;START
  1.  S DFN=0,SITE=0,U="^"
  1.  F  S DFN=$O(^AUPNPAT(DFN)) Q:'DFN  S SITE=0 D
  1.  .F  S SITE=$O(^AUPNPAT(DFN,41,SITE)) Q:'SITE  I SITE=2864 D
  1.  ..D NOW^%DTC S DATE=$P(%,".",1),^BJHTEST(DATE,SITE,DFN)="NEW"