| 1 | DDXP ;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.
|
|---|
| 4 | NOKL ;
|
|---|
| 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
|
|---|
| 11 | CHOOSE ;
|
|---|
| 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 | ;
|
|---|
| 17 | 1 ;;DEFINE FOREIGN FILE FORMAT
|
|---|
| 18 | S DDXP=1 D EN1^DDXP1
|
|---|
| 19 | D Q
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | 2 ;;SELECT FIELDS FOR EXPORT
|
|---|
| 23 | S DDXP=2 D EN1^DDXP2
|
|---|
| 24 | D Q
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | 3 ;;CREATE EXPORT TEMPLATE
|
|---|
| 28 | S DDXP=3 D EN1^DDXP3
|
|---|
| 29 | D Q
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | 4 ;;EXPORT DATA
|
|---|
| 33 | S DDXP=4 D EN1^DDXP4
|
|---|
| 34 | D Q
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | 5 ;;PRINT FORMAT DOCUMENTATION
|
|---|
| 38 | S DDXP=5 D EN1^DDXP5
|
|---|
| 39 | D Q
|
|---|
| 40 | Q
|
|---|
| 41 | Q ;
|
|---|
| 42 | K DDXP,X,DIRUT,DUOUT,DTOUT Q
|
|---|
| 43 | ; Export API
|
|---|
| 44 | EXPORT(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
|
|---|
