VistA-WorldVistAEHR/r/INCOMPLETE_RECORDS_TRACKING.../DGJCSL.m

9 lines
225 B
Mathematica

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