Return to DDXP5.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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