Return to DDXP.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DDXP	;SFISC/DPC-EXPORT MENU DRIVER ;12/17/92  10:13 ;10/30/92  10:01
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: NOKL	;
    5: 	I ($G(^DIC(.44,0,"GL"))'="^DIST(.44,")!($G(^DIC(.81,0,"GL"))'="^DI(.81,") W !!,$C(7),"SORRY. You cannot use the Data Export options",!,"because you do not have the necessary files on your system." G Q^DII1
    6: 	S DIK="^DOPT(""DDXP"","
    7: 	I $D(^DOPT("DDXP",5)) G CHOOSE
    8: 	S ^DOPT("DDXP",0)="DATA EXPORT TO FOREIGN FORMAT OPTION^1.01^" K ^("B")
    9: 	F I=1:1:5 S ^DOPT("DDXP",I,0)=$P($T(@I),";;",2)
   10: 	K I D IXALL^DIK
   11: CHOOSE	;
   12: 	W ! S DIC=DIK,DIC(0)="AEQI" D ^DIC K DIC,DIK
   13: 	I Y'<0 S X=+Y K Y D @X G NOKL
   14: 	W !
   15: 	G Q^DII1
   16: 	;
   17: 1	;;DEFINE FOREIGN FILE FORMAT
   18: 	S DDXP=1 D EN1^DDXP1
   19: 	D Q
   20: 	Q
   21: 	;
   22: 2	;;SELECT FIELDS FOR EXPORT
   23: 	S DDXP=2 D EN1^DDXP2
   24: 	D Q
   25: 	Q
   26: 	;
   27: 3	;;CREATE EXPORT TEMPLATE
   28: 	S DDXP=3 D EN1^DDXP3
   29: 	D Q
   30: 	Q
   31: 	;
   32: 4	;;EXPORT DATA
   33: 	S DDXP=4 D EN1^DDXP4
   34: 	D Q
   35: 	Q
   36: 	;
   37: 5	;;PRINT FORMAT DOCUMENTATION
   38: 	S DDXP=5 D EN1^DDXP5
   39: 	D Q
   40: 	Q
   41: Q	;
   42: 	K DDXP,X,DIRUT,DUOUT,DTOUT Q