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

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1DDXP ;SFISC/DPC-EXPORT MENU DRIVER ;12:09 PM 16 Jun 1999
2 ;;22.0;VA FileMan;**9**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4NOKL ;
5 I ($G(^DIC(.44,0,"GL"))'="^DIST(.44,")!($G(^DIC(.81,0,"GL"))'="^DI(.81,") W !!,$C(7),"SORRY. You cannot use the Data Export options",!,"because you do not have the necessary files on your system." G Q^DII1
6 S DIK="^DOPT(""DDXP"","
7 I $D(^DOPT("DDXP",5)) G CHOOSE
8 S ^DOPT("DDXP",0)="DATA EXPORT TO FOREIGN FORMAT OPTION^1.01^" K ^("B")
9 F I=1:1:5 S ^DOPT("DDXP",I,0)=$P($T(@I),";;",2)
10 K I D IXALL^DIK
11CHOOSE ;
12 W ! S DIC=DIK,DIC(0)="AEQI" D ^DIC K DIC,DIK
13 I Y'<0 S X=+Y K Y D @X G NOKL
14 W !
15 G Q^DII1
16 ;
171 ;;DEFINE FOREIGN FILE FORMAT
18 S DDXP=1 D EN1^DDXP1
19 D Q
20 Q
21 ;
222 ;;SELECT FIELDS FOR EXPORT
23 S DDXP=2 D EN1^DDXP2
24 D Q
25 Q
26 ;
273 ;;CREATE EXPORT TEMPLATE
28 S DDXP=3 D EN1^DDXP3
29 D Q
30 Q
31 ;
324 ;;EXPORT DATA
33 S DDXP=4 D EN1^DDXP4
34 D Q
35 Q
36 ;
375 ;;PRINT FORMAT DOCUMENTATION
38 S DDXP=5 D EN1^DDXP5
39 D Q
40 Q
41Q ;
42 K DDXP,X,DIRUT,DUOUT,DTOUT Q
43 ; Export API
44EXPORT(DDXPFINO,DDXPXTNM,DDXPTMDL,DDXPBY,FR,TO,DIS,DISTOP,IOP,DQTIME) ;
45 ; DDXPFINO = File Number or "1.1^<file number>"
46 ; DDXPXTNM = Export Template Name
47 ; DDXPTMDL = 0=Export Template SHOULD NOT Be Deleted
48 ; 1=Export Template SHOULD Be Deleted
49 ; DDXPBY = Sort Template Name
50 ; [.]FR = FROM Values as Documentated in DIP
51 ; [.]TO = TO Values as Documentated in DIP
52 ; .DIS = DIS array as Documentated in DIP
53 ; [.]DISTOP = DISTOP array as Documentated in DIP
54 ; IOP = IOP as Documentated in DIP
55 ; DQTIME = DQTIME as Documentated in DIP
56 G EN2^DDXP4
Note: See TracBrowser for help on using the repository browser.