Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BJPC2UJB

BJPC2UJB.m

Go to the documentation of this file.
  1. BJPC2UJB ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  1. F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00089-0345-10 ")
  1. ;;152
  1. ;;21,"00089-0345-25 ")
  1. ;;153
  1. ;;21,"00089-0347-10 ")
  1. ;;154
  1. ;;21,"00089-0347-25 ")
  1. ;;155
  1. ;;21,"00093-0588-01 ")
  1. ;;156
  1. ;;21,"00093-0588-05 ")
  1. ;;157
  1. ;;21,"00093-0589-01 ")
  1. ;;158
  1. ;;21,"00093-0589-05 ")
  1. ;;159
  1. ;;21,"00093-0599-01 ")
  1. ;;160
  1. ;;21,"00093-0934-01 ")
  1. ;;161
  1. ;;21,"00093-0936-01 ")
  1. ;;162
  1. ;;21,"00093-0938-01 ")
  1. ;;163
  1. ;;21,"00093-0940-01 ")
  1. ;;164
  1. ;;21,"00102-3460-01 ")
  1. ;;165
  1. ;;21,"00102-3465-01 ")
  1. ;;166
  1. ;;21,"00102-3470-01 ")
  1. ;;167
  1. ;;21,"00131-4146-37 ")
  1. ;;168
  1. ;;21,"00131-4247-37 ")
  1. ;;169
  1. ;;21,"00131-4247-43 ")
  1. ;;170
  1. ;;21,"00131-4248-37 ")
  1. ;;171
  1. ;;21,"00131-4248-43 ")
  1. ;;172
  1. ;;21,"00143-1689-25 ")
  1. ;;173
  1. ;;21,"00143-1690-25 ")
  1. ;;174
  1. ;;21,"00157-0222-01 ")
  1. ;;175
  1. ;;21,"00157-0222-05 ")
  1. ;;176
  1. ;;21,"00172-6406-49 ")
  1. ;;177
  1. ;;21,"00172-6406-59 ")
  1. ;;178
  1. ;;21,"00173-0268-12 ")
  1. ;;179
  1. ;;21,"00173-0268-14 ")
  1. ;;180
  1. ;;21,"00173-0268-17 ")
  1. ;;181
  1. ;;21,"00173-0295-12 ")
  1. ;;182
  1. ;;21,"00173-0295-14 ")
  1. ;;183
  1. ;;21,"00173-0295-17 ")
  1. ;;184
  1. ;;21,"00173-0520-00 ")
  1. ;;185
  1. ;;21,"00173-0521-00 ")
  1. ;;186
  1. ;;21,"00182-1311-01 ")
  1. ;;187
  1. ;;21,"00182-1312-01 ")
  1. ;;188
  1. ;;21,"00182-1313-01 ")
  1. ;;189
  1. ;;21,"00182-1314-01 ")
  1. ;;190
  1. ;;21,"00182-1397-01 ")
  1. ;;191
  1. ;;21,"00182-1397-10 ")
  1. ;;192
  1. ;;21,"00182-1400-00 ")
  1. ;;193
  1. ;;21,"00182-1400-01 ")
  1. ;;194
  1. ;;21,"00182-1400-05 ")
  1. ;;195
  1. ;;21,"00182-1400-10 ")
  1. ;;196
  1. ;;21,"00182-1400-89 ")
  1. ;;197
  1. ;;21,"00182-1589-00 ")
  1. ;;198
  1. ;;21,"00182-1589-01 ")
  1. ;;199
  1. ;;21,"00182-1589-89 ")
  1. ;;200
  1. ;;21,"00182-1590-00 ")
  1. ;;201
  1. ;;21,"00182-1590-01 ")
  1. ;;202
  1. ;;21,"00182-1590-10 ")
  1. ;;203
  1. ;;21,"00182-1590-89 ")
  1. ;;204
  1. ;;21,"00182-1941-01 ")
  1. ;;205
  1. ;;21,"00185-5793-01 ")
  1. ;;206
  1. ;;21,"00185-5793-10 ")
  1. ;;207
  1. ;;21,"00228-2421-10 ")
  1. ;;208
  1. ;;21,"00228-2423-10 ")
  1. ;;209
  1. ;;21,"00228-2425-10 ")
  1. ;;210
  1. ;;21,"00245-0151-01 ")
  1. ;;211
  1. ;;21,"00245-0151-10 ")
  1. ;;212
  1. ;;21,"00245-0151-11 ")
  1. ;;213
  1. ;;21,"00245-0152-01 ")
  1. ;;214
  1. ;;21,"00245-0152-10 ")
  1. ;;215
  1. ;;21,"00245-0152-11 ")
  1. ;;216
  1. ;;21,"00247-0667-08 ")
  1. ;;217
  1. ;;21,"00247-0674-41 ")
  1. ;;218
  1. ;;21,"00256-0114-01 ")
  1. ;;219
  1. ;;21,"00256-0114-02 ")
  1. ;;220
  1. ;;21,"00256-0115-01 ")
  1. ;;221
  1. ;;21,"00256-0115-02 ")
  1. ;;222
  1. ;;21,"00258-3581-01 ")
  1. ;;223
  1. ;;21,"00258-3581-05 ")
  1. ;;224
  1. ;;21,"00258-3581-10 ")
  1. ;;225
  1. ;;21,"00258-3583-01 ")
  1. ;;226
  1. ;;21,"00258-3583-05 ")
  1. ;;227
  1. ;;21,"00258-3583-10 ")
  1. ;;228
  1. ;;21,"00258-3584-01 ")
  1. ;;229
  1. ;;21,"00258-3584-05 ")
  1. ;;230
  1. ;;21,"00258-3584-10 ")
  1. ;;231
  1. ;;21,"00258-3614-01 ")
  1. ;;232
  1. ;;21,"00258-3625-01 ")
  1. ;;233
  1. ;;21,"00258-3634-01 ")
  1. ;;234
  1. ;;21,"00258-3637-01 ")
  1. ;;235
  1. ;;21,"00258-3638-01 ")
  1. ;;236
  1. ;;21,"00277-0157-01 ")
  1. ;;237
  1. ;;21,"00277-0157-02 ")
  1. ;;238
  1. ;;21,"00277-0161-01 ")
  1. ;;239
  1. ;;21,"00277-0161-02 ")
  1. ;;240
  1. ;;21,"00277-0167-01 ")
  1. ;;241
  1. ;;21,"00277-0167-02 ")
  1. ;;242
  1. ;;21,"00281-0168-53 ")
  1. ;;243
  1. ;;21,"00281-0169-53 ")
  1. ;;244
  1. ;;21,"00281-0169-56 ")
  1. ;;245
  1. ;;21,"00281-0169-57 ")
  1. ;;246
  1. ;;21,"00281-0170-53 ")
  1. ;;247
  1. ;;21,"00281-0170-56 ")
  1. ;;248
  1. ;;21,"00281-0170-57 ")
  1. ;;249
  1. ;;21,"00302-7020-01 ")
  1. ;;250
  1. ;;21,"00302-7020-05 ")
  1. ;;251
  1. ;;21,"00302-7022-01 ")
  1. ;;252
  1. ;;21,"00302-7022-05 ")
  1. ;;253
  1. ;;21,"00302-7024-01 ")
  1. ;;254
  1. ;;21,"00302-7024-05 ")
  1. ;;255
  1. ;;21,"00304-0962-00 ")
  1. ;;256
  1. ;;21,"00304-0962-01 ")
  1. ;;257
  1. ;;21,"00304-0962-05 ")
  1. ;;258
  1. ;;21,"00304-1093-01 ")
  1. ;;259
  1. ;;21,"00304-1093-05 ")
  1. ;;260
  1. ;;21,"00304-1094-00 ")
  1. ;;261
  1. ;;21,"00304-1094-01 ")
  1. ;;262
  1. ;;21,"00304-1094-05 ")
  1. ;;263
  1. ;;21,"00304-1956-01 ")
  1. ;;264
  1. ;;21,"00339-5699-12 ")
  1. ;;265
  1. ;;21,"00349-8266-01 ")
  1. ;;266
  1. ;;21,"00349-8266-05 ")
  1. ;;267
  1. ;;21,"00349-8266-10 ")
  1. ;;268
  1. ;;21,"00349-8280-01 ")
  1. ;;269
  1. ;;21,"00349-8281-01 ")
  1. ;;270
  1. ;;21,"00349-8281-05 ")
  1. ;;271
  1. ;;21,"00349-8281-10 ")
  1. ;;272
  1. ;;21,"00349-8683-01 ")
  1. ;;273
  1. ;;21,"00349-8684-01 ")
  1. ;;274
  1. ;;21,"00349-8684-05 ")
  1. ;;275
  1. ;;21,"00349-8684-10 ")
  1. ;;276
  1. ;;21,"00349-8685-01 ")
  1. ;;277
  1. ;;21,"00349-8685-05 ")
  1. ;;278
  1. ;;21,"00349-8685-10 ")
  1. ;;279
  1. ;;21,"00364-0597-01 ")
  1. ;;280
  1. ;;21,"00364-0597-02 ")
  1. ;;281
  1. ;;21,"00364-0660-01 ")
  1. ;;282
  1. ;;21,"00364-0660-02 ")
  1. ;;283
  1. ;;21,"00364-0660-05 ")
  1. ;;284
  1. ;;21,"00364-0680-01 ")
  1. ;;285
  1. ;;21,"00364-0681-01 ")
  1. ;;286
  1. ;;21,"00364-0681-05 ")
  1. ;;287
  1. ;;21,"00364-2490-01 ")
  1. ;;288
  1. ;;21,"00364-2585-01 ")
  1. ;;289
  1. ;;21,"00364-2586-01 ")
  1. ;;290
  1. ;;21,"00364-2587-01 ")
  1. ;;291
  1. ;;21,"00364-2588-01 ")
  1. ;;292
  1. ;;21,"00369-0812-01 ")
  1. ;;293
  1. ;;21,"00369-0820-01 ")
  1. ;;294
  1. ;;21,"00369-0850-01 ")
  1. ;;295
  1. ;;21,"00369-0875-01 ")
  1. ;;296
  1. ;;21,"00405-4983-01 ")
  1. ;;297
  1. ;;21,"00405-4984-01 ")
  1. ;;298
  1. ;;21,"00405-4985-01 ")
  1. ;;299
  1. ;;21,"00405-4986-01 ")
  1. ;;300
  1. ;;21,"00405-4987-01 ")
  1. ;;301
  1. ;;21,"00405-4987-02 ")
  1. ;;302
  1. ;;21,"00405-4988-01 ")
  1. ;;303
  1. ;;21,"00405-4988-02 ")
  1. ;;304