[613] | 1 | LRBARB ;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 | ;
|
---|
| 7 | FMT ;
|
---|
| 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 | ;
|
---|
| 18 | BAR ; 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 | ;
|
---|
| 163 | BAR1 ; 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
|
---|