DDXP5.m

DDXP5 ;SFISC/DPC-PRINT FOREIGN FORMAT DOC ;12/17/92  10:15

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

EN1 ;

 N SEL,CHOICE,OUT,NOMORE K DIS

 S DIR(0)="SM^1:Only print selected foreign formats;2:Print all foreign formats"

 D ^DIR K DIR Q:$D(DIRUT)  S SEL=Y,OUT=0

 I SEL=1 D  Q:$G(CHOICE)=1

 . S DIC="^DIST(.44,",DIC(0)="QEAM",NOMORE=0

 . F CHOICE=1:1 D  Q:OUT

 . . W ! D ^DIC I Y=-1 S OUT=1 Q

 . . S DIS(CHOICE)="I D0="_+Y

 . . Q

 . K DIC

 . Q

 S DIC="^DIST(.44,",L=0,FLDS="[DDXP FORMAT DOC]",DHD="[DDXP FORMAT DOC HDR]",BY="NAME;S2;C1",FR="" W !

 D EN1^DIP

 K Y,DIRUT

 Q

DDXP5     ;SFISC/DPC-PRINT FOREIGN FORMAT DOC ;12/17/92  10:15

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

EN1       ;

 +1        NEW SEL,CHOICE,OUT,NOMORE

           KILL DIS

 +2        SET DIR(0)="SM^1:Only print selected foreign formats;2:Print all foreign formats"

 +3        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               QUIT 

           SET SEL=Y

           SET OUT=0

 +4        IF SEL=1

               Begin DoDot:1

 +5                SET DIC="^DIST(.44,"

                   SET DIC(0)="QEAM"

                   SET NOMORE=0

 +6                FOR CHOICE=1:1

                       Begin DoDot:2

 +7                        WRITE !

                           DO ^DIC

                           IF Y=-1

                               SET OUT=1

                               QUIT 

 +8                        SET DIS(CHOICE)="I D0="_+Y

 +9                        QUIT 

                       End DoDot:2

                       IF OUT

                           QUIT 

 +10               KILL DIC

 +11               QUIT 

               End DoDot:1

               IF $GET(CHOICE)=1

                   QUIT 

 +12       SET DIC="^DIST(.44,"

           SET L=0

           SET FLDS="[DDXP FORMAT DOC]"

           SET DHD="[DDXP FORMAT DOC HDR]"

           SET BY="NAME;S2;C1"

           SET FR=""

           WRITE !

 +13       DO EN1^DIP

 +14       KILL Y,DIRUT

 +15       QUIT