source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDXP5.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 628 bytes
Line 
1DDXP5 ;SFISC/DPC-PRINT FOREIGN FORMAT DOC ;12/17/92 10:15
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4EN1 ;
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
Note: See TracBrowser for help on using the repository browser.