Annotation of freem_fileman/DINIT270.m, revision 1.1.1.1
1.1 snw 1: DINIT270 ;SFISC/DPC-LOAD OF FOREIGN FORMAT DD (CONT) ;1/4/94 13:37
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 ^DINIT271:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q Q
6: ;;^DD(.44,7,21,5,0)
7: ;;=If 0 is entered, the user will be prompted for maximum length when
8: ;;^DD(.44,7,21,6,0)
9: ;;=creating the EXPORT template. If nothing is entered, the default will be
10: ;;^DD(.44,7,21,7,0)
11: ;;=80.
12: ;;^DD(.44,7,"DT")
13: ;;=2921026
14: ;;^DD(.44,8,0)
15: ;;=QUOTE NON-NUMERIC FIELDS?^S^1:YES;0:NO;^0;10^Q
16: ;;^DD(.44,8,3)
17: ;;=Enter '1' for YES or '0' for NO.
18: ;;^DD(.44,8,21,0)
19: ;;=^^7^7^2921013^
20: ;;^DD(.44,8,21,1,0)
21: ;;=If you want the values of fields that have a data type other than numeric
22: ;;^DD(.44,8,21,2,0)
23: ;;=to be surrounded by quotation marks ("), set this field to YES.
24: ;;^DD(.44,8,21,3,0)
25: ;;=
26: ;;^DD(.44,8,21,4,0)
27: ;;=NOTE: Only numeric fields in the home file (including multiples) are
28: ;;^DD(.44,8,21,5,0)
29: ;;=automatically considered to have a numeric data type. If you want the
30: ;;^DD(.44,8,21,6,0)
31: ;;=user to indicate which fields should be numeric, answer YES to the PROMPT
32: ;;^DD(.44,8,21,7,0)
33: ;;=FOR DATA TYPE? field.
34: ;;^DD(.44,8,"DT")
35: ;;=2921013
36: ;;^DD(.44,9,0)
37: ;;=PROMPT FOR DATA TYPE?^S^1:YES;0:NO;^0;11^Q
38: ;;^DD(.44,9,3)
39: ;;=Enter '1' for YES, '0' for NO.
40: ;;^DD(.44,9,21,0)
41: ;;=^^3^3^2921013^
42: ;;^DD(.44,9,21,1,0)
43: ;;=Answer YES if you want the user to be prompted for the data type of the
44: ;;^DD(.44,9,21,2,0)
45: ;;=various fields at the time that an export template is being created.
46: ;;^DD(.44,9,21,3,0)
47: ;;=Otherwise, the data types will be automatically derived.
48: ;;^DD(.44,9,"DT")
49: ;;=2921013
50: ;;^DD(.44,10,0)
51: ;;=SEND LAST FIELD DELIMITER?^S^0:NO;1:YES;^0;12^Q
52: ;;^DD(.44,10,3)
53: ;;=Enter '1' for YES, '0' for NO.
54: ;;^DD(.44,10,21,0)
55: ;;=^^3^3^2921028^
56: ;;^DD(.44,10,21,1,0)
57: ;;=Enter NO if you do not want a field delimiter to be output after the last
58: ;;^DD(.44,10,21,2,0)
59: ;;=field in a record. Enter YES if you do want a final field delimiter
60: ;;^DD(.44,10,21,3,0)
61: ;;=output.
62: ;;^DD(.44,10,"DT")
63: ;;=2921028
64: ;;^DD(.44,20,0)
65: ;;=FILE HEADER^FX^^1;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""" K:DUZ(0)'="@" X D:$D(X) ^DIM
66: ;;^DD(.44,20,3)
67: ;;=Answer must be standard MUMPS code or a literal string in quotes.
68: ;;^DD(.44,20,21,0)
69: ;;=^^7^7^2921001^
70: ;;^DD(.44,20,21,1,0)
71: ;;=Use this field to produce output preceding the exported records. This
72: ;;^DD(.44,20,21,2,0)
73: ;;=will become part of your exported data.
74: ;;^DD(.44,20,21,3,0)
75: ;;=
76: ;;^DD(.44,20,21,4,0)
77: ;;=Enter either a literal string enclosed in quotation marks ("like this") or
78: ;;^DD(.44,20,21,5,0)
79: ;;=MUMPS code that will WRITE the desired output when XECUTED. For example:
80: ;;^DD(.44,20,21,6,0)
81: ;;=
82: ;;^DD(.44,20,21,7,0)
83: ;;= W "EXPORT CREATED BY USER NUMBER: "_$G(DUZ)
84: ;;^DD(.44,20,"DT")
85: ;;=2921028
86: ;;^DD(.44,25,0)
87: ;;=FILE TRAILER^FX^^2;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""" K:DUZ(0)'="@" X D:$D(X) ^DIM
88: ;;^DD(.44,25,3)
89: ;;=Answer must be standard MUMPS code or a literal string in quotes.
90: ;;^DD(.44,25,21,0)
91: ;;=^^7^7^2921001^
92: ;;^DD(.44,25,21,1,0)
93: ;;=Use this field to produce output following the the exported records. This
94: ;;^DD(.44,25,21,2,0)
95: ;;=will become part of your exported data.
96: ;;^DD(.44,25,21,3,0)
97: ;;=
98: ;;^DD(.44,25,21,4,0)
99: ;;=Enter either a literal string enclosed in quotation marks ("like this") or
100: ;;^DD(.44,25,21,5,0)
101: ;;=MUMPS code that will WRITE the desired output when XECUTED. For example:
102: ;;^DD(.44,25,21,6,0)
103: ;;=
104: ;;^DD(.44,25,21,7,0)
105: ;;= W "EXPORT CREATED BY USER NUMBER: "_$G(DUZ)
106: ;;^DD(.44,25,"DT")
107: ;;=2921028
108: ;;^DD(.44,27,0)
109: ;;=DATE FORMAT^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
110: ;;^DD(.44,27,3)
111: ;;=This is Standard MUMPS code.
112: ;;^DD(.44,27,9)
113: ;;=@
114: ;;^DD(.44,27,21,0)
115: ;;=^^6^6^2920923^
116: ;;^DD(.44,27,21,1,0)
117: ;;=If you want dates output in VA FileMan's standard external date/time
118: ;;^DD(.44,27,21,2,0)
119: ;;=format, make NO entry in this field.
120: ;;^DD(.44,27,21,3,0)
121: ;;=
122: ;;^DD(.44,27,21,4,0)
123: ;;=If you want another format, enter MUMPS code here. The variable X will
124: ;;^DD(.44,27,21,5,0)
125: ;;=contain the date/time in VA FileMan's internal format. The MUMPS code
126: ;;^DD(.44,27,21,6,0)
127: ;;=should SET Y to the date/time in the format you desire.
128: ;;^DD(.44,27,"DT")
129: ;;=2920923
130: ;;^DD(.44,30,0)
131: ;;=DESCRIPTION^.447^^3;0
132: ;;^DD(.44,30,21,0)
133: ;;=^^1^1^2920917^
134: ;;^DD(.44,30,21,1,0)
135: ;;=A description of the foreign format.
136: ;;^DD(.44,31,0)
137: ;;=USAGE NOTES^.448^^4;0
138: ;;^DD(.44,31,21,0)
139: ;;=^^2^2^2920917^
140: ;;^DD(.44,31,21,1,0)
141: ;;=Information about the use of the format; for example, which commands on
142: ;;^DD(.44,31,21,2,0)
143: ;;=the foreign system should be used to load the file.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT270.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman