DGJCSL ;ALB/MRY - VENDOR ADD (COREFLS) ;11/18/02
 ;;1.0;Incomplete Records Tracking;**1**;Jun 25, 2001
 ;
ADD ; Standalone query
 I '$D(^DD(392.31)) D  Q
 . W !,"**coreFLS Vendor interface is not active."
 D STAND^DGBTCSL
 Q