source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT270.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.6 KB
Line 
1DINIT270 ;SFISC/DPC-LOAD OF FOREIGN FORMAT DD (CONT) ;1/4/94 13:37
2 ;;22.0;VA FileMan;;Mar 30, 1999
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
5Q 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.
Note: See TracBrowser for help on using the repository browser.