source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDXP41.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 580 bytes
Line 
1DDXP41 ;SFISC/DPC-EXPORT DATA (CONT) ;1/8/93 09:18
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4SORTVAL ;
5 N DDXPNG,CHK
6 S DDXPNG=0
7 F CHK="#","!","+","@" D
8 . I $E(X)=CHK S DDXPNG=1 W !!,$C(7),"SORRY. You cannot use the "_CHK_" sort qualifier when exporting data.",!
9 . Q
10 F CHK=";C",";S" D
11 . I X[CHK S DDXPNG=1 W !!,$C(7),"SORRY. Using "_CHK_" will have no effect when exporting data.",!
12 . Q
13 I X[";""" S DDXPNG=1 W !!,$C(7),"SORRY. You cannot replace a caption with a literal when exporting data.",!
14 K:DDXPNG X
15 Q
Note: See TracBrowser for help on using the repository browser.