Return to DDXP5.m CVS log

Up to [Coherent Logic Development] / freem_fileman

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