source: FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LRBARB.m@ 636

Last change on this file since 636 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version

File size: 8.6 KB
Line 
1LRBARB ;DALOI/JMC - INTERMEC 4000 Series 10 part label format ;8/29/94 12:36
2 ;;5.2;LAB SERVICE;**161,218**;Sep 27, 1994
3 ; This routine will program the Intermec 4000 series for a 10 part 2.5X4.0 in
4 ; label which can be used with LRLABELB routine to print a 10 part
5 ; accession label which includes barcoded accession labels.
6 ;
7FMT ;
8 U IO
9 ;
10 D INIT^LRBARA
11 ;
12 I LRFMT=12 D BAR
13 I LRFMT=13 D BAR1
14 ;
15 D TERM^LRBARA
16 Q
17 ;
18BAR ; Programs format for 10-part old style.
19 ;
20 ; Accession number
21 W STX,"F",LRFMT,";H0;o0,176;f1;c2;h2;w1;d0,14;",ETX
22 ;
23 ; Collection date
24 W STX,"F",LRFMT,";H1;o35,183;f1;c2;h1;w1;d0,14;",ETX
25 ;
26 ; collection sample - tube
27 W STX,"F",LRFMT,";H2;o89,140;f0;c2;h1;w1;d0,14;",ETX
28 ;
29 ; Patient name
30 W STX,"F",LRFMT,";H3;o89,1;f0;c2;h2;w1;d0,21;",ETX
31 ;
32 ; Patient identifier - SSN
33 W STX,"F",LRFMT,";H4;o89,37;f0;c2;h1;w1;d0,11;",ETX
34 ;
35 ; Patient location
36 W STX,"F",LRFMT,";H5;o260,37;f0;c2;h1;w1;d0,9;",ETX
37 ;
38 ; Barcoded specimen identifier
39 W STX,"F",LRFMT,";B6;o93,59;f0;c0,1;h60;w2;d0,5;",ETX
40 ;
41 ; order#
42 W STX,"F",LRFMT,";H7;o89,125;f0;c2;h1;w1;d0,14;",ETX
43 ;
44 ; List of tests
45 W STX,"F",LRFMT,";H8;o89,157;f0;c2;h2;w1;d0,22;",ETX
46 ;
47 ; Urgency - STAT
48 W STX,"F",LRFMT,";H9;o278,133;f0;c0;h2;w3;b1;d0,4;",ETX
49 ;
50 ; 1-small label/acc#
51 W STX,"F",LRFMT,";H10;o6,219;f0;c2;h2;w1;d0,14;",ETX
52 ;
53 ; 1-small label/top
54 W STX,"F",LRFMT,";H11;o6,267;f0;c2;h1;w1;d0,14;",ETX
55 ;
56 ; 1-ll label/acc#
57 W STX,"F",LRFMT,";H12;o6,311;f0;c2;h2;w1;d0,14;",ETX
58 ;
59 ; 1-ll label/name
60 W STX,"F",LRFMT,";H13;o6,345;f0;c2;h2;w1;d0,14;",ETX
61 ;
62 ; 1-ll label/ssn
63 W STX,"F",LRFMT,";H14;o6,380;f0;c2;h1;w1;d0,11;",ETX
64 ;
65 ; 1-ll label/date
66 W STX,"F",LRFMT,";H15;o6,406;f0;c2;h1;w1;d0,14;",ETX
67 ;
68 ; 1-ll label/test
69 W STX,"F",LRFMT,";H16;o6,438;f0;c2;h2;w1;d0,14;",ETX
70 ;
71 ; 2-ml/acc#
72 W STX,"F",LRFMT,";H17;o202,219;f0;c2;h2;w1;d0,14;",ETX
73 ;
74 ; 2-ml/top
75 W STX,"F",LRFMT,";H18;o202,267;f0;c2;h1;w1;d0,14;",ETX
76 ;
77 ; 2-ll label acc#
78 W STX,"F",LRFMT,";H19;o202,311;f0;c2;h2;w1;d0,14;",ETX
79 ;
80 ; 2-ll label/name
81 W STX,"F",LRFMT,";H20;o202,345;f0;c2;h2;w1;d0,14;",ETX
82 ;
83 ; 2-ll label/ssn
84 W STX,"F",LRFMT,";H21;o202,380;f0;c2;h1;w1;d0,11;",ETX
85 ;
86 ; 2-ll label/date
87 W STX,"F",LRFMT,";H22;o202,406;f0;c2;h1;w1;d0,14;",ETX
88 ;
89 ; 2-ll label/test
90 W STX,"F",LRFMT,";H23;o202,438;f0;c2;h2;w1;d0,14;",ETX
91 ;
92 ; 2-tr label/acc#
93 W STX,"F",LRFMT,";H24;o400,1;f0;c2;h2;w1;d0,14;",ETX
94 ;
95 ; 2-tr label/date
96 W STX,"F",LRFMT,";H25;o400,35;f0;c2;h1;w1;d0,14;",ETX
97 ;
98 ; 2-tr label/tube
99 W STX,"F",LRFMT,";H26;o400,55;f0;c2;h1;w1;d0,30;",ETX
100 ;
101 ; 2-tr label/name
102 W STX,"F",LRFMT,";H27;o475,79;f0;c2;h2;w1;d0,21;",ETX
103 ;
104 ; 2-tr label/ssn
105 W STX,"F",LRFMT,";H28;o475,110;f0;c2;h1;w1;d0,12;",ETX
106 ;
107 ; 2-tr label/location
108 W STX,"F",LRFMT,";H29;o655,133;f0;c2;h1;w1;d0,9;",ETX
109 ;
110 ; 2-tr label/order#
111 W STX,"F",LRFMT,";H30;o400,133;f0;c2;h1;w1;d0,14;",ETX
112 ;
113 ; 2-tr label/test
114 W STX,"F",LRFMT,";H31;o400,157;f0;c2;h2;w1;d0,22;",ETX
115 ;
116 ; 2-tr label/stat
117 W STX,"F",LRFMT,";H32;o668,35;f0;c0;h3;w3;b1;d0,4;",ETX
118 ;
119 ; 3-mr label/acc#
120 W STX,"F",LRFMT,";H33;o405,219;f0;c2;h2;w1;d0,14;",ETX
121 ;
122 ; 3-mr label/top
123 W STX,"F",LRFMT,";H34;o405,267;f0;c2;h1;w1;d0,14;",ETX
124 ;
125 ; 3-br label/acc#
126 W STX,"F",LRFMT,";H35;o405,311;f0;c2;h2;w1;d0,14;",ETX
127 ;
128 ; 3-br label/name
129 W STX,"F",LRFMT,";H36;o405,345;f0;c2;h2;w1;d0,14;",ETX
130 ;
131 ; 3-br label/ssn
132 W STX,"F",LRFMT,";H37;o405,380;f0;c2;h1;w1;d0,12;",ETX
133 ;
134 ; 3-br label/date
135 W STX,"F",LRFMT,";H38;o405,406;f0;c2;h1;w1;d0,14;",ETX
136 ;
137 ; 3-br label/test
138 W STX,"F",LRFMT,";H39;o405,438;f0;c2;h2;w1;d0,14;",ETX
139 ;
140 ; 4-mr label/acc#
141 W STX,"F",LRFMT,";H40;o605,219;f0;c2;h2;w1;d0,14;",ETX
142 ;
143 ; 4-mr label/top
144 W STX,"F",LRFMT,";H41;o605,267;f0;c2;h1;w1;d0,14;",ETX
145 ;
146 ; 3-br label/acc#
147 W STX,"F",LRFMT,";H42;o605,311;f0;c2;h2;w1;d0,14;",ETX
148 ;
149 ; 3-br label/name
150 W STX,"F",LRFMT,";H43;o605,345;f0;c2;h2;w1;d0,14;",ETX
151 ;
152 ; 3-br label/ssn
153 W STX,"F",LRFMT,";H44;o605,380;f0;c2;h1;w1;d0,11;",ETX
154 ;
155 ; 3-br label/date
156 W STX,"F",LRFMT,";H45;o605,406;f0;c2;h1;w1;d0,14;",ETX
157 ;
158 ; 3-br label/test
159 W STX,"F",LRFMT,";H46;o605,438;f0;c2;h2;w1;d0,14;",ETX
160 ;
161 Q
162 ;
163BAR1 ; Program format for 10-part label using multiple barocde symbologies/specimen UID.
164 ;
165 ;
166 ; Acc#
167 W STX,"F",LRFMT,";H0;o108,140;f0;c2;h1;w1;d0,22;",ETX
168 ;
169 ; Date
170 W STX,"F",LRFMT,";H1;o3,140;f0;c2;h1;w1;d0,8;",ETX
171 ;
172 ; Tube
173 W STX,"F",LRFMT,";H2;o178,158;f0;c2;h1;w1;d0,15;",ETX
174 ;
175 ; Name
176 W STX,"F",LRFMT,";H3;o6,1;f0;c2;h2;w1;d0,21;",ETX
177 ;
178 ; SSN
179 W STX,"F",LRFMT,";H4;o6,35;f0;c2;h1;w1;d0,12;",ETX
180 ;
181 ; Location
182 W STX,"F",LRFMT,";H5;o170,35;f0;c2;h1;w1;d0,15;",ETX
183 ;
184 ; Human-readable ID
185 W STX,"F",LRFMT,";H6;o3,120;f0;c2;h1;w1;d0,15;",ETX
186 ;
187 ; Patient info (infection warning)
188 W STX,"F",LRFMT,";H7;o145,120;f0;c2;h1;w1;b1;d0,20;",ETX
189 ;
190 ; Order#
191 W STX,"F",LRFMT,";H8;o3,158;f0;c2;h1;w1;d0,14;",ETX
192 ;
193 ; Tests
194 W STX,"F",LRFMT,";H9;o3,175;f0;c2;h1;w1;d0,32;",ETX
195 ;
196 ; Urgency
197 W STX,"F",LRFMT,";H10;o278,1;f0;c0;h3;w3;b0;d0,4;",ETX
198 ;
199 ; Urgency (reverse field)
200 W STX,"F",LRFMT,";H11;o278,1;f0;c0;h3;w3;b1;d0,4;",ETX
201 ;
202 ; 1-ML Label/Acc#
203 W STX,"F",LRFMT,";H12;o6,219;f0;c2;h2;w1;d0,14;",ETX
204 ;
205 ; 1-ML Label/Date
206 W STX,"F",LRFMT,";H13;o6,267;f0;c2;h1;w1;d0,14;",ETX
207 ;
208 ; 1-LL Label/Acc#
209 W STX,"F",LRFMT,";H14;o6,311;f0;c2;h2;w1;d0,14;",ETX
210 ;
211 ; 1-LL Label/Name
212 W STX,"F",LRFMT,";H15;o6,345;f0;c2;h2;w1;d0,14;",ETX
213 ;
214 ; 1-LL Label/SSN
215 W STX,"F",LRFMT,";H16;o6,380;f0;c2;h1;w1;d0,12;",ETX
216 ;
217 ; 1-LL Label/Date
218 W STX,"F",LRFMT,";H17;o6,406;f0;c2;h1;w1;d0,14;",ETX
219 ;
220 ; 1-LL Label/Test
221 W STX,"F",LRFMT,";H18;o6,438;f0;c2;h2;w1;d0,14;",ETX
222 ;
223 ; 2-ML/Acc#
224 W STX,"F",LRFMT,";H19;o202,219;f0;c2;h2;w1;d0,14;",ETX
225 ;
226 ; 2-ML/Date
227 W STX,"F",LRFMT,";H20;o202,267;f0;c2;h1;w1;d0,14;",ETX
228 ;
229 ; 2-LL Label/Acc#
230 W STX,"F",LRFMT,";H21;o202,311;f0;c2;h2;w1;d0,14;",ETX
231 ;
232 ; 2-LL Label/Name
233 W STX,"F",LRFMT,";H22;o202,345;f0;c2;h2;w1;d0,14;",ETX
234 ;
235 ; 2-LL Label/SSN
236 W STX,"F",LRFMT,";H23;o202,380;f0;c2;h1;w1;d0,12;",ETX
237 ;
238 ; 2-LL Label/Date
239 W STX,"F",LRFMT,";H24;o202,406;f0;c2;h1;w1;d0,14;",ETX
240 ;
241 ; 2-LL Label/Test
242 W STX,"F",LRFMT,";H25;o202,438;f0;c2;h2;w1;d0,14;",ETX
243 ;
244 ; 2-TR Label/Name
245 W STX,"F",LRFMT,";H26;o405,1;f0;c2;h2;w1;d0,21;",ETX
246 ;
247 ; 2-TR Label/SSN
248 W STX,"F",LRFMT,";H27;o405,35;f0;c2;h1;w1;d0,12;",ETX
249 ;
250 ; 2-TR Label/Location
251 W STX,"F",LRFMT,";H28;o570,35;f0;c2;h1;w1;d0,15;",ETX
252 ;
253 ; 2-TR Label/Human-readable ID
254 W STX,"F",LRFMT,";H29;o405,120;f0;c2;h1;w1;d0,15;",ETX
255 ;
256 ; 2-TR Label/Patient info (infection warning)
257 W STX,"F",LRFMT,";H30;o545,120;f0;c2;h1;w1;b1;d0,20;",ETX
258 ;
259 ; 2-TR Label/Tube
260 W STX,"F",LRFMT,";H31;o580,158;f0;c2;h1;w1;d0,15;",ETX
261 ;
262 ; 2-TR Label/Acc#
263 W STX,"F",LRFMT,";H32;o515,140;f0;c2;h1;w1;d0,14;",ETX
264 ;
265 ; 2-TR Label/Date
266 W STX,"F",LRFMT,";H33;o405,140;f0;c2;h1;w1;d0,9;",ETX
267 ;
268 ; 2-TR Label/Order#
269 W STX,"F",LRFMT,";H34;o405,158;f0;c2;h1;w1;d0,14;",ETX
270 ;
271 ; 2-TR Label/Test
272 W STX,"F",LRFMT,";H35;o405,175;f0;c2;h1;w1;d0,32;",ETX
273 ;
274 ; 2-TR Label/Urgency
275 W STX,"F",LRFMT,";H36;o675,1;f0;c0;h3;w3;b0;d0,4;",ETX
276 ;
277 ; 2-TR Label/Urgency (reverse field)
278 W STX,"F",LRFMT,";H37;o675,1;f0;c0;h3;w3;b1;d0,4;",ETX
279 ;
280 ; 3-MR Label/Acc#
281 W STX,"F",LRFMT,";H38;o405,219;f0;c2;h2;w1;d0,14;",ETX
282 ;
283 ; 3-MR Label/Date
284 W STX,"F",LRFMT,";H39;o405,267;f0;c2;h1;w1;d0,14;",ETX
285 ;
286 ; 3-BR Label/Acc#
287 W STX,"F",LRFMT,";H40;o405,311;f0;c2;h2;w1;d0,14;",ETX
288 ;
289 ; 3-BR Label/Name
290 W STX,"F",LRFMT,";H41;o405,345;f0;c2;h2;w1;d0,14;",ETX
291 ;
292 ; 3-BR Label/SSN
293 W STX,"F",LRFMT,";H42;o405,380;f0;c2;h1;w1;d0,12;",ETX
294 ;
295 ; 3-BR Label/Date
296 W STX,"F",LRFMT,";H43;o405,406;f0;c2;h1;w1;d0,14;",ETX
297 ;
298 ; 3-BR Label/Test
299 W STX,"F",LRFMT,";H44;o405,438;f0;c2;h2;w1;d0,14;",ETX
300 ;
301 ; 4-MR Label/Acc#
302 W STX,"F",LRFMT,";H45;o605,219;f0;c2;h2;w1;d0,14;",ETX
303 ;
304 ; 4-MR Label/Date
305 W STX,"F",LRFMT,";H46;o605,267;f0;c2;h1;w1;d0,14;",ETX
306 ;
307 ; 4-BR Label/Acc#
308 W STX,"F",LRFMT,";H47;o605,311;f0;c2;h2;w1;d0,14;",ETX
309 ;
310 ; 4-BR Label/Name
311 W STX,"F",LRFMT,";H48;o605,345;f0;c2;h2;w1;d0,14;",ETX
312 ;
313 ; 4-BR Label/SSN
314 W STX,"F",LRFMT,";H49;o605,380;f0;c2;h1;w1;d0,12;",ETX
315 ;
316 ; 4-BR Label/Date
317 W STX,"F",LRFMT,";H50;o605,406;f0;c2;h1;w1;d0,14;",ETX
318 ;
319 ; 4-BR Label/Test
320 W STX,"F",LRFMT,";H51;o605,438;f0;c2;h2;w1;d0,14;",ETX
321 ;
322 ; Code 39 (first 1x2 label)
323 W STX,"F",LRFMT,";B52;o15,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
324 ;
325 ; Code 39 (second 1x2 label)
326 W STX,"F",LRFMT,";B53;o417,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
327 ;
328 ; Code 39/check digit (first 1x2 label)
329 W STX,"F",LRFMT,";B54;o15,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
330 ;
331 ; Code 39/check digit (second 1x2 label)
332 W STX,"F",LRFMT,";B55;o417,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
333 ;
334 ; Code 128 (first 1x2 label)
335 W STX,"F",LRFMT,";B56;o15,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
336 ;
337 ; Code 128 (second 1x2 label)
338 W STX,"F",LRFMT,";B57;o417,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
339 ;
340 Q
Note: See TracBrowser for help on using the repository browser.