Return to DDXP.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDXP.m, revision 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