| 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
|
