DDXP41.m

DDXP41 ;SFISC/DPC-EXPORT DATA (CONT) ;1/8/93  09:18

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

SORTVAL ;

 N DDXPNG,CHK

 S DDXPNG=0

 F CHK="#","!","+","@" D

 . I $E(X)=CHK S DDXPNG=1 W !!,$C(7),"SORRY.  You cannot use the "_CHK_" sort qualifier when exporting data.",!

 . Q

 F CHK=";C",";S" D

 . I X[CHK S DDXPNG=1 W !!,$C(7),"SORRY.  Using "_CHK_" will have no effect when exporting data.",!

 . Q

 I X[";""" S DDXPNG=1 W !!,$C(7),"SORRY.  You cannot replace a caption with a literal when exporting data.",!

 K:DDXPNG X

 Q

DDXP41    ;SFISC/DPC-EXPORT DATA (CONT) ;1/8/93  09:18

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

SORTVAL   ;

 +1        NEW DDXPNG,CHK

 +2        SET DDXPNG=0

 +3        FOR CHK="#","!","+","@"

               Begin DoDot:1

 +4                IF $EXTRACT(X)=CHK

                       SET DDXPNG=1

                       WRITE !!,$CHAR(7),"SORRY.  You cannot use the "_CHK_" sort qualifier when exporting data.",!

 +5                QUIT 

               End DoDot:1

 +6        FOR CHK=";C",";S"

               Begin DoDot:1

 +7                IF X[CHK

                       SET DDXPNG=1

                       WRITE !!,$CHAR(7),"SORRY.  Using "_CHK_" will have no effect when exporting data.",!

 +8                QUIT 

               End DoDot:1

 +9        IF X[";"""

               SET DDXPNG=1

               WRITE !!,$CHAR(7),"SORRY.  You cannot replace a caption with a literal when exporting data.",!

 +10       IF DDXPNG

               KILL X

 +11       QUIT