Enter the name or number of the VA FileMan file into which the data will
be imported. If the FileMan file is specified in the source file, enter
nothing here.
SAVE CODE: S DDMPSELF=X
SCREEN: S DIR("S")="N DIFILE,DIAC S DIFILE=Y,DIAC=""WR"" D ^DIAC I DIAC"
UNIQUE NAME: F_SEL
DATA COORDINATE: 12,61
DATA LENGTH: 18
CAPTION COORDINATE: 12,47
FIELD ORDER: 5
CAPTION: DATA FORMAT
FIELD TYPE: CAPTION ONLY
CAPTION COORDINATE: 4,16
FIELD ORDER: 5.1
CAPTION: -----------
FIELD TYPE: CAPTION ONLY
CAPTION COORDINATE: 5,16
SUPPRESS COLON AFTER CAPTION?: YES
FIELD ORDER: 5.2
CAPTION: Internal or external
FIELD TYPE: FORM ONLY
READ TYPE: SET OF CODES
PARAMETERS: OM
QUALIFIERS: E:EXTERNAL;I:INTERNAL
HELP:
Specify whether the imported data is in internal or external format.
Internal format means the way the data is stored inside of VA FileMan
files. External means the format that a user enter.
Enter the foreign format that corresponds to the structure of the data
being imported. These formats are stored in the Foreign Format file. If
you do not choose a format here, you must specify whether the incoming
data is fixed length, what the field delimiter is (if any), and whether
some field values are quoted. If you enter a format here, any attributes
of the format that you specified below will be deleted.
UNIQUE NAME: FOR_FMT
DATA COORDINATE: 8,23
DATA LENGTH: 17
CAPTION COORDINATE: 8,7
FIELD ORDER: 5.5
CAPTION: Data fixed length?
POST ACTION ON CHANGE: S DDMPSMFF("FIXED")=DDSEXT
FIELD TYPE: FORM ONLY
READ TYPE: YES OR NO
HELP:
Enter YES or NO.
If the incoming data is in fixed length fields, enter YES.
If the fields are delimited by a special character, enter NO and enter the
field delimiter at the prompt below.
UNIQUE NAME: FIX
DATA COORDINATE: 10,23
DATA LENGTH: 3
CAPTION COORDINATE: 10,4
SUPPRESS COLON AFTER CAPTION?: YES
FIELD ORDER: 5.6
CAPTION: Field delimiter
POST ACTION ON CHANGE: S DDMPSMFF("FDELIM")=DDSEXT
FIELD TYPE: FORM ONLY
READ TYPE: FREE TEXT
QUALIFIERS: 1:15
HELP:
If the incoming data is not in fixed length fields, enter the character or
characters that separate fields.
Identify the delimiter either by 1-15 characters or by the delimiter's 3
digit ascii value. Up to 4 ascii-character values can be specified,
separated by commas. Use the ascii value when the delimiter is a
non-printing character (e.g., <TAB>, ascii=009) or a character that has a
special meaning at a ScreenMan prompt (e.g., ^, ascii=094).
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1","3N)!(X?3N1","3N1","3N)!(X?3N1","3N1","3N1","3N)) X
UNIQUE NAME: FLD_DLM
DATA COORDINATE: 11,23
DATA LENGTH: 3
CAPTION COORDINATE: 11,6
FIELD ORDER: 5.7
CAPTION: Fields quoted?
POST ACTION ON CHANGE: S DDMPSMFF("QUOTED")=DDSEXT
FIELD TYPE: FORM ONLY
READ TYPE: YES OR NO
HELP:
If the values of some fields are surrounded by quotation marks ("), enter
YES. Field delimiters that occur within the quotation marks are ignored.
This special treatment of quotation marks is not done for fixed length
data.
UNIQUE NAME: QUOTE
DATA COORDINATE: 12,23
DATA LENGTH: 3
CAPTION COORDINATE: 12,8
SUPPRESS COLON AFTER CAPTION?: YES
FIELD ORDER: 2
CAPTION: Page 1
FIELD TYPE: CAPTION ONLY
CAPTION COORDINATE: 1,72
FIELD ORDER: 7.4
CAPTION: !M
EXECUTABLE CAPTION: S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"Field selection page...",1:"")
BRANCHING LOGIC: S DDSBR="FLD^1^2"
PRE ACTION: I $$GET^DDSVALF("TMP_NM",1,1)]"" N DDMPMSG S DDMPMSG(1)="You cannot select fields because you have specified an Import Template for this import.",DDMPMSG(2)="$$EOP" D HLP^DDSUTL(.DDMPMSG) S DDSBR="TMP_NM"
FIELD TYPE: FORM ONLY
READ TYPE: FREE TEXT
HELP:
Press <RET> to advance to the Field Selection Page.
UNIQUE NAME: FLD_JUMP
DATA COORDINATE: 14,69
DATA LENGTH: 1
CAPTION COORDINATE: 14,44
SUPPRESS COLON AFTER CAPTION?: YES
DISABLE EDITING: YES
FIELD ORDER: 5.4
CAPTION: OR
FIELD TYPE: CAPTION ONLY
CAPTION COORDINATE: 9,14
SUPPRESS COLON AFTER CAPTION?: YES
FIELD ORDER: 7.6
CAPTION: !M
EXECUTABLE CAPTION: S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"OR",1:"")
FIELD TYPE: CAPTION ONLY
UNIQUE NAME: OR
CAPTION COORDINATE: 15,54
FIELD ORDER: 7.8
CAPTION: !M
EXECUTABLE CAPTION: S Y=$S($$GET^DDSVALF("F_SEL",1,1)]"":"Import Template",1:"")
PRE ACTION: I $D(DDMPFDSL) N DDMPMSG S DDMPMSG(1)="You have already chosen fields for this import. You may not select an Import Template unless you delete all the chosen fields.",DDMPMSG(2)="$$EOP" D HLP^DDSUTL(.DDMPMSG) S DDSBR="FLD_JUMP"
FIELD TYPE: FORM ONLY
READ TYPE: POINTER
QUALIFIERS: .46:AE
HELP:
Enter the name of an Import Template to use for data import. If you do
not specify a template, you must specify the fields on the Field Selection
page.
INPUT TRANSFORM: S X=$TR(X,"[]")
SAVE CODE: S DDMPTMPL=X
SCREEN: S DIR("S")="I $$TMPLSCR^DDMPSM(DDMPF,DDSEXT,.DUZ)"
UNIQUE NAME: TMP_NM
DATA COORDINATE: 16,61
DATA LENGTH: 18
CAPTION COORDINATE: 16,44
DISABLE EDITING: YES
FIELD ORDER: 1.1
CAPTION: ===========
FIELD TYPE: CAPTION ONLY
CAPTION COORDINATE: 2,35
SUPPRESS COLON AFTER CAPTION?: YES
FIELD ORDER: 6
CAPTION: SOURCE FILE
FIELD TYPE: CAPTION ONLY
CAPTION COORDINATE: 4,53
SUPPRESS COLON AFTER CAPTION?: YES
FIELD ORDER: 6.1
CAPTION: -----------
FIELD TYPE: CAPTION ONLY
CAPTION COORDINATE: 5,53
SUPPRESS COLON AFTER CAPTION?: YES
FIELD ORDER: 6.2
CAPTION: Full path
FIELD TYPE: FORM ONLY
READ TYPE: FREE TEXT
QUALIFIERS: 1:245
HELP:
Enter the full path to the host file that contains the data you want to
import. Do not include the name of the file itself.
