Return to DDXP33.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDXP33.m, revision 1.1

1.1     ! snw         1: DDXP33 ;SFISC/DPC - CREATE EXPORT TEMPLATE (CONT);1/8/93  09:18
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: FLDTEMP        ;
        !             5:        S DDXPOUT=0
        !             6:        S DIC="^DIPT(",DIC(0)="QEAS",DIC("S")="I $P(^(0),U,8)=7",DIC("A")="Enter SELECTED EXPORT FIELDS Template: ",D="F"_DDXPFINO W ! D IX^DIC K DIC,D
        !             7:        I Y=-1 S DDXPOUT=1 Q
        !             8:        S DDXPFDTM=+Y,DDXPFDNM=$P(Y,U,2)
        !             9:        D SHOWFLD G:DDXPOUT FLDTEMP
        !            10:        Q
        !            11: SHOWFLD        ;
        !            12:        W !!,"Do you want to see the fields stored in the "_DDXPFDNM_" template?"
        !            13:        S DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR
        !            14:        I $D(DIRUT) S DDXPOUT=1 Q
        !            15:        I Y D  Q:DDXPOUT
        !            16:        . W ! S D0=DDXPFDTM D ^DIPT K D0
        !            17:        . W !,"Do you want to use this template?"
        !            18:        . S DIR(0)="Y",DIR("B")="YES" D ^DIR K DIR W !
        !            19:        . I 'Y!$D(DIRUT) S DDXPOUT=1
        !            20:        . Q
        !            21:        S DDXPTMDL=0
        !            22:        W !!,"Do you want to delete the "_DDXPFDNM_" template"
        !            23:        W !,"after the export template is created?"
        !            24:        S DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR W !
        !            25:        I $D(DIRUT) S DDXPOUT=1 Q
        !            26:        S:Y DDXPTMDL=1
        !            27:        Q