Return to DDXP5.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDXP5.m, revision 1.1

1.1     ! snw         1: DDXP5  ;SFISC/DPC-PRINT FOREIGN FORMAT DOC ;12/17/92  10:15
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: EN1    ;
        !             5:        N SEL,CHOICE,OUT,NOMORE K DIS
        !             6:        S DIR(0)="SM^1:Only print selected foreign formats;2:Print all foreign formats"
        !             7:        D ^DIR K DIR Q:$D(DIRUT)  S SEL=Y,OUT=0
        !             8:        I SEL=1 D  Q:$G(CHOICE)=1
        !             9:        . S DIC="^DIST(.44,",DIC(0)="QEAM",NOMORE=0
        !            10:        . F CHOICE=1:1 D  Q:OUT
        !            11:        . . W ! D ^DIC I Y=-1 S OUT=1 Q
        !            12:        . . S DIS(CHOICE)="I D0="_+Y
        !            13:        . . Q
        !            14:        . K DIC
        !            15:        . Q
        !            16:        S DIC="^DIST(.44,",L=0,FLDS="[DDXP FORMAT DOC]",DHD="[DDXP FORMAT DOC HDR]",BY="NAME;S2;C1",FR="" W !
        !            17:        D EN1^DIP
        !            18:        K Y,DIRUT
        !            19:        Q