Return to DDXP.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDXP.m, revision 1.1.1.1

1.1       snw         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