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

DGJCSL.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJCSL   233     printed  Oct 16, 2024@18:01:14                                                                                                                                                                                                       Page 2

DGJCSL    ;ALB/MRY - VENDOR ADD (COREFLS) ;11/18/02

 +1       ;;1.0;Incomplete Records Tracking;**1**;Jun 25, 2001

 +2       ;

ADD       ; Standalone query

 +1        IF '$DATA(^DD(392.31))

               Begin DoDot:1

 +2                WRITE !,"**coreFLS Vendor interface is not active."

               End DoDot:1

               QUIT

 +3        DO STAND^DGBTCSL

 +4        QUIT