1: DINIT27 ;SFISC/DPC-LOADS DD OF FOREIGN FORMAT FILE ;01:40 PM 13 Sep 1994
2: ;;21.0;VA FileMan;;Dec 28, 1994
3: ;Per VHA Directive 10-93-142, this routine should not be modified.
4: F I=1:2 S X=$T(Q+I) G ^DINIT270:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q Q
6: ;;^DIC(.44,0,"GL")
7: ;;=^DIST(.44,
8: ;;^DIC("B","FOREIGN FORMAT",.44)
9: ;;=
10: ;;^DD(.44,0)
11: ;;=FIELD^^11^19
12: ;;^DD(.44,0,"DDA")
13: ;;=N
14: ;;^DD(.44,0,"DT")
15: ;;=2930107
16: ;;^DD(.44,0,"ID","WRITE")
17: ;;=D:Y<1 EN^DDIOL("** DISTRIBUTED BY VA FILEMAN **","","?35")
18: ;;^DD(.44,0,"IX","B",.44,.01)
19: ;;=
20: ;;^DD(.44,0,"IX","C",.441,.01)
21: ;;=
22: ;;^DD(.44,0,"NM","FOREIGN FORMAT")
23: ;;=
24: ;;^DD(.44,0,"PT",.4,105)
25: ;;=
26: ;;^DD(.44,.01,0)
27: ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
28: ;;^DD(.44,.01,1,0)
29: ;;=^.1
30: ;;^DD(.44,.01,1,1,0)
31: ;;=.44^B
32: ;;^DD(.44,.01,1,1,1)
33: ;;=S ^DIST(.44,"B",$E(X,1,30),DA)=""
34: ;;^DD(.44,.01,1,1,2)
35: ;;=K ^DIST(.44,"B",$E(X,1,30),DA)
36: ;;^DD(.44,.01,3)
37: ;;=Name must be 3-30 characters in length, not starting with punctuation.
38: ;;^DD(.44,.01,21,0)
39: ;;=^^1^1^2920914^
40: ;;^DD(.44,.01,21,1,0)
41: ;;=This field identifies the format used by the non-VA FileMan application.
42: ;;^DD(.44,.01,"DEL",1,0)
43: ;;=I DA<1
44: ;;^DD(.44,.01,"DT")
45: ;;=2920914
46: ;;^DD(.44,1,0)
47: ;;=FIELD DELIMITER^FX^^0;2^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
48: ;;^DD(.44,1,3)
49: ;;=Answer must be 1-15 characters in length.
50: ;;^DD(.44,1,21,0)
51: ;;=^^10^10^2921028^
52: ;;^DD(.44,1,21,1,0)
53: ;;=Contents of the field delimiter is output between each field. Depending
54: ;;^DD(.44,1,21,2,0)
55: ;;=on the contents of the SEND LAST FIELD DELIMITER? field, the delimiter may
56: ;;^DD(.44,1,21,3,0)
57: ;;=be output after the last field, too. Identify the delimiter either by 1-15
58: ;;^DD(.44,1,21,4,0)
59: ;;=characters not beginning with a number or by the ASCII value of the
60: ;;^DD(.44,1,21,5,0)
61: ;;=delimiter. When specifying the ASCII value, use 3 numbers (e.g., '009'
62: ;;^DD(.44,1,21,6,0)
63: ;;=for ASCII 9). Up to four ASCII-character values can be specified,
64: ;;^DD(.44,1,21,7,0)
65: ;;=separated by commas.
66: ;;^DD(.44,1,21,8,0)
67: ;;=
68: ;;^DD(.44,1,21,9,0)
69: ;;=If 'Ask' is entered, the user will be prompted for the field delimiter
70: ;;^DD(.44,1,21,10,0)
71: ;;=when creating the EXPORT template.
72: ;;^DD(.44,1,"DT")
73: ;;=2920914
74: ;;^DD(.44,2,0)
75: ;;=RECORD DELIMITER^F^^0;3^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
76: ;;^DD(.44,2,3)
77: ;;=Answer must be 1-15 characters in length.
78: ;;^DD(.44,2,21,0)
79: ;;=^^8^8^2921026^
80: ;;^DD(.44,2,21,1,0)
81: ;;=Contents of the record delimiter is output after each record. Identify
82: ;;^DD(.44,2,21,2,0)
83: ;;=the delimiter either by 1-15 characters not beginning with a number or by
84: ;;^DD(.44,2,21,3,0)
85: ;;=the ASCII value of the delimiter. When specifying the ASCII value, use 3
86: ;;^DD(.44,2,21,4,0)
87: ;;=numbers (e.g., '009' for ASCII 9). Up to four ASCII-character values can
88: ;;^DD(.44,2,21,5,0)
89: ;;=be specified, separated by commas.
90: ;;^DD(.44,2,21,6,0)
91: ;;=
92: ;;^DD(.44,2,21,7,0)
93: ;;=If 'Ask' is entered, the user is prompted for the record delimiter when
94: ;;^DD(.44,2,21,8,0)
95: ;;=creating the EXPORT template.
96: ;;^DD(.44,2,"DT")
97: ;;=2920914
98: ;;^DD(.44,3,0)
99: ;;=LINE CONTINUATION CHARACTER^F^^0;4^K:$L(X)>15!($L(X)<1) X
100: ;;^DD(.44,3,3)
101: ;;=Answer must be 1-15 characters in length.
102: ;;^DD(.44,3,21,0)
103: ;;=^^1^1^2921028^
104: ;;^DD(.44,3,21,1,0)
105: ;;=Not used yet.
106: ;;^DD(.44,3,"DT")
107: ;;=2920828
108: ;;^DD(.44,4,0)
109: ;;=LINE CONTINUATION LOCATION^S^e:END OF LINE;b:BEGINNING OF LINE;^0;5^Q
110: ;;^DD(.44,4,21,0)
111: ;;=^^1^1^2920917^
112: ;;^DD(.44,4,21,1,0)
113: ;;=Not used yet.
114: ;;^DD(.44,4,"DT")
115: ;;=2920828
116: ;;^DD(.44,5,0)
117: ;;=RECORD LENGTH FIXED?^S^1:YES;0:NO;^0;6^Q
118: ;;^DD(.44,5,21,0)
119: ;;=^^3^3^2920917^
120: ;;^DD(.44,5,21,1,0)
121: ;;=Enter YES if the fields will be fixed length causing a fixed length record
122: ;;^DD(.44,5,21,2,0)
123: ;;=to be created. When the EXPORT template is created, the user is prompted
124: ;;^DD(.44,5,21,3,0)
125: ;;=for the length of each field in the TARGET file.
126: ;;^DD(.44,5,"DT")
127: ;;=2920828
128: ;;^DD(.44,6,0)
129: ;;=NEED FOREIGN FIELD NAMES?^S^1:YES;0:NO;^0;7^Q
130: ;;^DD(.44,6,21,0)
131: ;;=^^3^3^2921013^
132: ;;^DD(.44,6,21,1,0)
133: ;;=Answer YES if it is necessary to save the field names from the foreign
134: ;;^DD(.44,6,21,2,0)
135: ;;=file in the export file. The user will be prompted for the names when the
136: ;;^DD(.44,6,21,3,0)
137: ;;=EXPORT template is created.
138: ;;^DD(.44,6,"DT")
139: ;;=2920828
140: ;;^DD(.44,7,0)
141: ;;=MAXIMUM OUTPUT LENGTH^NJ4,0^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
142: ;;^DD(.44,7,3)
143: ;;=Type a Number between 0 and 9999, 0 Decimal Digits
144: ;;^DD(.44,7,21,0)
145: ;;=^^7^7^2921026^
146: ;;^DD(.44,7,21,1,0)
147: ;;=The maximum length of a "line" of output; maximum number of characters
148: ;;^DD(.44,7,21,2,0)
149: ;;=before a LINE FEED is issued. For most exports, this will be the maximum
150: ;;^DD(.44,7,21,3,0)
151: ;;=record length.
152: ;;^DD(.44,7,21,4,0)
153: ;;=
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT27.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman / USER