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.
BJHSET ;NEW PROGRAM [ 04/11/96  1:02 PM ]

EP ;START

 S DFN=0,SITE=0,U="^"

 F  S DFN=$O(^AUPNPAT(DFN)) Q:'DFN  S SITE=0 D

 .F  S SITE=$O(^AUPNPAT(DFN,41,SITE)) Q:'SITE  I SITE=2864 D

 ..D NOW^%DTC S DATE=$P(%,".",1),^BJHTEST(DATE,SITE,DFN)="NEW"