Name	Value
NAME	DDMP FIELD SELECTION
FIELD	FIELD ORDER: 1 CAPTION: FIELD SELECTION FOR IMPORT FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 1,27 FIELD ORDER: 5.1 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",1+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=1+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 9,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.2 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",2+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=2+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 10,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.3 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",3+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=3+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 11,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.4 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",4+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=4+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 12,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.5 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",5+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=5+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 13,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.6 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",6+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=6+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 14,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.7 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",7+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=7+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 15,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.8 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",8+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=8+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 16,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 5.9 CAPTION: !M EXECUTABLE CAPTION: I $D(DDMPFDSL("CAP",9+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=9+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 17,4 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 2.3 CAPTION: !M EXECUTABLE CAPTION: S Y=$S($G(DDMPSMFF("FIXED"))="YES":"Length",1:"") PRE ACTION: I $$GET^DDSVALF("FLD")']"" S DDSBR=$S($L($G(DDMPCPTH)):"FLD",1:"FLD_DEL") POST ACTION: I X="" S DDSBR="2^1^4" POST ACTION ON CHANGE: S DDMPFDSL("LN",DDMPFDCT)=X,DDMPFDSL("CAP",DDMPFDCT)=DDMPFDSL("CAP",DDMPFDCT)_"["_X_"]",DDSBR="FLD" D PUT^DDSVALF("LEN","","",""),PUT^DDSVALF("FLD","","",""),REFRESH^DDSUTL FIELD TYPE: FORM ONLY READ TYPE: NUMERIC QUALIFIERS: 1:255 HELP: Enter the length of the imported data associated with this field. (This applies only to fixed length imports.) UNIQUE NAME: LEN DATA COORDINATE: 6,12 DATA LENGTH: 3 CAPTION COORDINATE: 6,4 FIELD ORDER: 1.2 CAPTION: Page 2 FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 1,73 FIELD ORDER: 1.1 CAPTION: ========================== FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 2,27 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 2 CAPTION: Choose a field from FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 3,2 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 2.1 CAPTION: !M EXECUTABLE CAPTION: S Y=$S($D(DDMPFCAP):DDMPFCAP,1:DDMPFLNM) FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 4,2 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 2.2 CAPTION: Field BRANCHING LOGIC: I X=DDSOLD,$L($G(DDMPCPTH)) S DDSBR=2.2 D UP1^DDMPSM,REFRESH^DDSUTL POST ACTION ON CHANGE: D FDPROC^DDMPSM,PUT^DDSVALF(2.2,1,2,""):$G(DDSBR)="FLD",REFRESH^DDSUTL FIELD TYPE: FORM ONLY READ TYPE: FREE TEXT QUALIFIERS: 1:30 HELP: ^N D0,DA,DIC,D,DZ S DIC="^DD("_DDMPCF_",",DIC(0)="",D="B",DIC("S")="I '($P($G(^DD(+$P(^DD(DDMPCF,Y,0),U,2),.01,0)),U,2)[""W"")" S:$G(X)="?" DZ=X D DQ^DICQ INPUT TRANSFORM: D IXF^DDMPSM UNIQUE NAME: FLD DATA COORDINATE: 5,12 DATA LENGTH: 19 CAPTION COORDINATE: 5,5 FIELD ORDER: 3.1 CAPTION: Delete last field selected? PRE ACTION: S DDMPMRK($G(DDMPFDCT))=1 D REFRESH^DDSUTL POST ACTION: K DDMPMRK D REFRESH^DDSUTL ;S DDSBR="COM" POST ACTION ON CHANGE: I X D DELFLD^DDMPSM,PUT^DDSVALF(3.1,"","","") S DDSBR=3.1 FIELD TYPE: FORM ONLY READ TYPE: YES OR NO HELP: Enter YES if you want to delete the most recent field that you selected for import. This is the last field on the list to the left UNIQUE NAME: FLD_DEL DATA COORDINATE: 5,68 DATA LENGTH: 3 CAPTION COORDINATE: 5,40 SUPPRESS COLON AFTER CAPTION?: YES FIELD ORDER: 4 CAPTION: These are the fields selected so far: FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 8,2

Name

Value

NAME

DDMP FIELD SELECTION

FIELD

FIELD ORDER:   1

CAPTION:   FIELD SELECTION FOR IMPORT

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   1,27
FIELD ORDER:   5.1

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",1+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=1+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   9,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.2

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",2+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=2+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   10,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.3

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",3+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=3+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   11,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.4

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",4+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=4+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   12,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.5

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",5+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=5+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   13,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.6

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",6+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=6+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   14,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.7

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",7+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=7+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   15,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.8

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",8+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=8+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   16,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   5.9

CAPTION:   !M

EXECUTABLE CAPTION:   I $D(DDMPFDSL("CAP",9+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=9+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   17,4

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   2.3

CAPTION:   !M

EXECUTABLE CAPTION:   S Y=$S($G(DDMPSMFF("FIXED"))="YES":"Length",1:"")

PRE ACTION:   I $$GET^DDSVALF("FLD")']"" S DDSBR=$S($L($G(DDMPCPTH)):"FLD",1:"FLD_DEL")

POST ACTION:   I X="" S DDSBR="2^1^4"

POST ACTION ON CHANGE:   S DDMPFDSL("LN",DDMPFDCT)=X,DDMPFDSL("CAP",DDMPFDCT)=DDMPFDSL("CAP",DDMPFDCT)_"["_X_"]",DDSBR="FLD" D PUT^DDSVALF("LEN","","",""),PUT^DDSVALF("FLD","","",""),REFRESH^DDSUTL

FIELD TYPE:   FORM ONLY

READ TYPE:   NUMERIC

QUALIFIERS:   1:255
HELP:
```
Enter the length of the imported data associated with this field.  (This
applies only to fixed length imports.)
```
UNIQUE NAME:   LEN

DATA COORDINATE:   6,12

DATA LENGTH:   3

CAPTION COORDINATE:   6,4
FIELD ORDER:   1.2

CAPTION:   Page 2

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   1,73
FIELD ORDER:   1.1

CAPTION:   ==========================

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   2,27

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   2

CAPTION:   Choose a field from

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   3,2

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   2.1

CAPTION:   !M

EXECUTABLE CAPTION:   S Y=$S($D(DDMPFCAP):DDMPFCAP,1:DDMPFLNM)

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   4,2

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   2.2

CAPTION:   Field

BRANCHING LOGIC:   I X=DDSOLD,$L($G(DDMPCPTH)) S DDSBR=2.2 D UP1^DDMPSM,REFRESH^DDSUTL

POST ACTION ON CHANGE:   D FDPROC^DDMPSM,PUT^DDSVALF(2.2,1,2,""):$G(DDSBR)="FLD",REFRESH^DDSUTL

FIELD TYPE:   FORM ONLY

READ TYPE:   FREE TEXT

QUALIFIERS:   1:30
HELP:
```
^N D0,DA,DIC,D,DZ S DIC="^DD("_DDMPCF_",",DIC(0)="",D="B",DIC("S")="I '($P($G(^DD(+$P(^DD(DDMPCF,Y,0),U,2),.01,0)),U,2)[""W"")" S:$G(X)="?" DZ=X D DQ^DICQ
```
INPUT TRANSFORM:   D IXF^DDMPSM

UNIQUE NAME:   FLD

DATA COORDINATE:   5,12

DATA LENGTH:   19

CAPTION COORDINATE:   5,5
FIELD ORDER:   3.1

CAPTION:   Delete last field selected?

PRE ACTION:   S DDMPMRK($G(DDMPFDCT))=1 D REFRESH^DDSUTL

POST ACTION:   K DDMPMRK D REFRESH^DDSUTL ;S DDSBR="COM"

POST ACTION ON CHANGE:   I X D DELFLD^DDMPSM,PUT^DDSVALF(3.1,"","","") S DDSBR=3.1

FIELD TYPE:   FORM ONLY

READ TYPE:   YES OR NO
HELP:
```
Enter YES if you want to delete the most recent field that you selected
for import.  This is the last field on the list to the left
```
UNIQUE NAME:   FLD_DEL

DATA COORDINATE:   5,68

DATA LENGTH:   3

CAPTION COORDINATE:   5,40

SUPPRESS COLON AFTER CAPTION?:   YES
FIELD ORDER:   4

CAPTION:   These are the fields selected so far:

FIELD TYPE:   CAPTION ONLY

CAPTION COORDINATE:   8,2

DDMP FIELD SELECTION (.4612) BLOCK (.404)