BGP2TD12 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+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
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"68180-0215-06 ")
;;3711
;;21,"68180-0215-09 ")
;;3712
;;21,"68180-0216-03 ")
;;3603
;;21,"68180-0216-06 ")
;;3604
;;21,"68180-0216-09 ")
;;3605
;;21,"68180-0217-03 ")
;;3657
;;21,"68180-0217-06 ")
;;3658
;;21,"68180-0217-09 ")
;;3659
;;21,"68180-0235-01 ")
;;3073
;;21,"68180-0236-01 ")
;;3081
;;21,"68180-0237-01 ")
;;3086
;;21,"68180-0512-01 ")
;;2322
;;21,"68180-0512-02 ")
;;2323
;;21,"68180-0512-09 ")
;;2324
;;21,"68180-0513-01 ")
;;2930
;;21,"68180-0513-03 ")
;;2931
;;21,"68180-0513-09 ")
;;2932
;;21,"68180-0514-01 ")
;;2125
;;21,"68180-0514-03 ")
;;2126
;;21,"68180-0514-09 ")
;;2127
;;21,"68180-0515-01 ")
;;2487
;;21,"68180-0515-03 ")
;;2488
;;21,"68180-0515-09 ")
;;2489
;;21,"68180-0516-01 ")
;;2632
;;21,"68180-0516-02 ")
;;2633
;;21,"68180-0516-09 ")
;;2634
;;21,"68180-0517-01 ")
;;2783
;;21,"68180-0517-03 ")
;;2784
;;21,"68180-0517-09 ")
;;2785
;;21,"68180-0518-01 ")
;;459
;;21,"68180-0518-02 ")
;;460
;;21,"68180-0519-01 ")
;;564
;;21,"68180-0519-02 ")
;;565
;;21,"68180-0520-01 ")
;;644
;;21,"68180-0520-02 ")
;;645
;;21,"68180-0556-09 ")
;;3212
;;21,"68180-0557-09 ")
;;3120
;;21,"68180-0558-09 ")
;;3152
;;21,"68180-0559-09 ")
;;3188
;;21,"68180-0566-01 ")
;;3436
;;21,"68180-0567-01 ")
;;3451
;;21,"68180-0568-01 ")
;;3480
;;21,"68180-0588-01 ")
;;3221
;;21,"68180-0589-01 ")
;;3320
;;21,"68180-0589-02 ")
;;3321
;;21,"68180-0589-09 ")
;;3322
;;21,"68180-0590-01 ")
;;3381
;;21,"68180-0590-02 ")
;;3382
;;21,"68180-0590-09 ")
;;3383
;;21,"68180-0591-01 ")
;;3265
;;21,"68180-0591-02 ")
;;3266
;;21,"68180-0591-09 ")
;;3267
;;21,"68180-0755-01 ")
;;70
;;21,"68180-0756-01 ")
;;95
;;21,"68180-0756-02 ")
;;96
;;21,"68180-0757-01 ")
;;120
;;21,"68180-0757-02 ")
;;121
;;21,"68180-0758-01 ")
;;10
;;21,"68180-0758-02 ")
;;11
;;21,"68180-0759-01 ")
;;165
;;21,"68180-0760-01 ")
;;44
;;21,"68258-1053-01 ")
;;756
;;21,"68258-1054-01 ")
;;842
;;21,"68258-1055-01 ")
;;925
;;21,"68258-1058-01 ")
;;2124
;;21,"68258-1059-01 ")
;;2490
;;21,"68258-1080-01 ")
;;2786
;;21,"68258-4001-03 ")
;;4229
;;21,"68258-6003-03 ")
;;2933
;;21,"68258-6003-09 ")
;;2934
;;21,"68258-6021-03 ")
;;3323
;;21,"68258-6022-03 ")
;;3380
;;21,"68258-6023-03 ")
;;3268
;;21,"68258-6025-03 ")
;;8
;;21,"68258-6025-09 ")
;;9
;;21,"68258-6027-03 ")
;;3153
;;21,"68258-6027-09 ")
;;3154
;;21,"68258-6028-03 ")
;;3186
;;21,"68258-6028-09 ")
;;3187
;;21,"68258-6030-03 ")
;;4026
;;21,"68258-6030-09 ")
;;4027
;;21,"68258-6031-03 ")
;;3606
;;21,"68258-6036-03 ")
;;2321
;;21,"68258-6040-03 ")
;;3655
;;21,"68258-6040-09 ")
;;3656
;;21,"68258-6994-09 ")
;;4324
;;21,"68258-6995-03 ")
;;4250
;;21,"68258-9062-01 ")
;;999
;;21,"68382-0135-01 ")
;;4085
;;21,"68382-0135-06 ")
;;4086
;;21,"68382-0135-10 ")
;;4087
;;21,"68382-0135-16 ")
;;4088
;;21,"68382-0136-01 ")
;;4158
;;21,"68382-0136-06 ")
;;4159
;;21,"68382-0136-10 ")
;;4160
;;21,"68382-0136-16 ")
;;4161
;;21,"68382-0137-01 ")
;;4020
;;21,"68382-0137-06 ")
;;4021
;;21,"68382-0137-10 ")
;;4022
;;21,"68382-0137-16 ")
;;4023
;;21,"68382-0142-06 ")
;;3713
;;21,"68382-0142-10 ")
;;3714
;;21,"68382-0142-16 ")
;;3715
;;21,"68382-0143-06 ")
;;3660
;;21,"68382-0143-10 ")
;;3661
;;21,"68382-0143-16 ")
;;3662
;;21,"68382-0144-01 ")
;;3223
;;21,"68382-0144-05 ")
;;3224
;;21,"68382-0144-06 ")
;;3225
;;21,"68382-0145-01 ")
;;3324
;;21,"68382-0145-05 ")
;;3325
;;21,"68382-0145-06 ")
;;3326
;;21,"68382-0146-01 ")
;;3386
;;21,"68382-0146-05 ")
;;3387
;;21,"68382-0146-06 ")
;;3388
;;21,"68382-0147-01 ")
;;3269
;;21,"68382-0147-05 ")
;;3270
;;21,"68382-0147-06 ")
;;3271
;;21,"68387-0543-30 ")
;;2128
;;21,"68462-0205-01 ")
;;674
;;21,"68462-0206-01 ")
;;664
;;21,"68462-0207-01 ")
;;684
;;21,"68462-0208-01 ")
;;3045
;;21,"68462-0209-01 ")
;;3062
;;21,"68462-0294-01 ")
;;183
;;21,"68462-0295-01 ")
;;192
;;21,"68462-0296-01 ")
;;199
;;21,"68462-0329-01 ")
;;210
;;21,"68462-0367-10 ")
;;1882
;;21,"68462-0367-90 ")
;;1883
;;21,"68462-0368-10 ")
;;1957
;;21,"68462-0368-90 ")
;;1958
;;21,"68462-0369-10 ")
;;2025
;;21,"68462-0369-90 ")
;;2026
;;21,"68462-0554-01 ")
;;378
;;21,"68462-0555-01 ")
;;386
;;21,"68552-0221-10 ")
;;1880
;;21,"68552-0221-90 ")
;;1881
;;21,"68552-0222-10 ")
;;1959
;;21,"68552-0222-90 ")
;;1960
;;21,"68552-0223-10 ")
;;2023
;;21,"68552-0223-90 ")
;;2024
;;21,"68645-0160-59 ")
;;1089
;;21,"68645-0161-59 ")
;;1231
;;21,"68645-0162-59 ")
;;1296
;;21,"68645-0163-59 ")
;;1039
;;21,"68645-0272-54 ")
;;2491
;;21,"76282-0200-10 ")
;;1884
;;21,"76282-0200-90 ")
;;1885
;;21,"76282-0201-10 ")
;;1955
;;21,"76282-0201-90 ")
;;1956
;;21,"76282-0202-10 ")
;;2027
;;21,"76282-0202-90 ")
;;2028
;;21,"76282-0271-01 ")
;;3222
;;21,"76282-0272-01 ")
;;3327
;;21,"76282-0272-05 ")
;;3328
;;21,"76282-0273-01 ")
;;3384
;;21,"76282-0273-05 ")
;;3385
;;21,"76282-0274-01 ")
;;3272
;;21,"76282-0274-05 ")
;;3273
;;9002226,1729,.01)
;;BGP PQA RASA NDC
;;9002226,1729,.02)
;;RASA NDC
;;9002226,1729,.04)
;;n
;;9002226,1729,.06)
;;@
;;9002226,1729,.08)
;;@
;;9002226,1729,.09)
;;3120312
;;9002226,1729,.11)
;;@
;;9002226,1729,.12)
;;@
;;9002226,1729,.13)
;;1
;;9002226,1729,.14)
;;@
;;9002226,1729,.15)
;;@
;;9002226,1729,.16)
;;@
;;9002226,1729,.17)
;;@
;;9002226,1729,3101)
;;@
;;9002226.02101,"1729,00003-0338-50 ",.01)
;;00003-0338-50
;;9002226.02101,"1729,00003-0338-50 ",.02)
;;00003-0338-50
;;9002226.02101,"1729,00003-0349-50 ",.01)
;;00003-0349-50
;;9002226.02101,"1729,00003-0349-50 ",.02)
;;00003-0349-50
;;9002226.02101,"1729,00003-0384-50 ",.01)
;;00003-0384-50
;;9002226.02101,"1729,00003-0384-50 ",.02)
;;00003-0384-50
;;9002226.02101,"1729,00003-0390-50 ",.01)
;;00003-0390-50
;;9002226.02101,"1729,00003-0390-50 ",.02)
;;00003-0390-50
;;9002226.02101,"1729,00003-0450-51 ",.01)
;;00003-0450-51
;;9002226.02101,"1729,00003-0450-51 ",.02)
;;00003-0450-51
;;9002226.02101,"1729,00003-0450-54 ",.01)
;;00003-0450-54
;;9002226.02101,"1729,00003-0450-54 ",.02)
;;00003-0450-54
;;9002226.02101,"1729,00003-0450-75 ",.01)
;;00003-0450-75
;;9002226.02101,"1729,00003-0450-75 ",.02)
;;00003-0450-75
;;9002226.02101,"1729,00003-0452-50 ",.01)
;;00003-0452-50
;;9002226.02101,"1729,00003-0452-50 ",.02)
;;00003-0452-50
;;9002226.02101,"1729,00003-0452-51 ",.01)
;;00003-0452-51
;;9002226.02101,"1729,00003-0452-51 ",.02)
;;00003-0452-51
;;9002226.02101,"1729,00003-0452-75 ",.01)
;;00003-0452-75
;;9002226.02101,"1729,00003-0452-75 ",.02)
;;00003-0452-75
;;9002226.02101,"1729,00003-0482-50 ",.01)
;;00003-0482-50
;;9002226.02101,"1729,00003-0482-50 ",.02)
;;00003-0482-50
;;9002226.02101,"1729,00003-0482-51 ",.01)
;;00003-0482-51
;;9002226.02101,"1729,00003-0482-51 ",.02)
;;00003-0482-51
;;9002226.02101,"1729,00003-0482-75 ",.01)
;;00003-0482-75
;;9002226.02101,"1729,00003-0482-75 ",.02)
;;00003-0482-75
;;9002226.02101,"1729,00003-0485-50 ",.01)
;;00003-0485-50
;;9002226.02101,"1729,00003-0485-50 ",.02)
;;00003-0485-50
;;9002226.02101,"1729,00006-0014-28 ",.01)
;;00006-0014-28
;;9002226.02101,"1729,00006-0014-28 ",.02)
;;00006-0014-28
;;9002226.02101,"1729,00006-0014-68 ",.01)
;;00006-0014-68
;;9002226.02101,"1729,00006-0014-68 ",.02)
;;00006-0014-68
;;9002226.02101,"1729,00006-0014-82 ",.01)
;;00006-0014-82
;;9002226.02101,"1729,00006-0014-82 ",.02)
;;00006-0014-82
;;9002226.02101,"1729,00006-0014-87 ",.01)
;;00006-0014-87
;;9002226.02101,"1729,00006-0014-87 ",.02)
;;00006-0014-87
;;9002226.02101,"1729,00006-0014-94 ",.01)
;;00006-0014-94
;;9002226.02101,"1729,00006-0014-94 ",.02)
;;00006-0014-94
;;9002226.02101,"1729,00006-0015-28 ",.01)
;;00006-0015-28
;;9002226.02101,"1729,00006-0015-28 ",.02)
;;00006-0015-28
;;9002226.02101,"1729,00006-0015-31 ",.01)
;;00006-0015-31
;;9002226.02101,"1729,00006-0015-31 ",.02)
;;00006-0015-31
;;9002226.02101,"1729,00006-0015-58 ",.01)
;;00006-0015-58
;;9002226.02101,"1729,00006-0015-58 ",.02)
;;00006-0015-58
;;9002226.02101,"1729,00006-0019-28 ",.01)
;;00006-0019-28
;;9002226.02101,"1729,00006-0019-28 ",.02)
;;00006-0019-28
;;9002226.02101,"1729,00006-0019-54 ",.01)
;;00006-0019-54
;;9002226.02101,"1729,00006-0019-54 ",.02)
;;00006-0019-54
;;9002226.02101,"1729,00006-0019-58 ",.01)
;;00006-0019-58
;;9002226.02101,"1729,00006-0019-58 ",.02)
;;00006-0019-58
;;9002226.02101,"1729,00006-0019-72 ",.01)
;;00006-0019-72
;;9002226.02101,"1729,00006-0019-72 ",.02)
;;00006-0019-72
;;9002226.02101,"1729,00006-0019-82 ",.01)
;;00006-0019-82
;;9002226.02101,"1729,00006-0019-82 ",.02)
;;00006-0019-82
;;9002226.02101,"1729,00006-0019-86 ",.01)
;;00006-0019-86
;;9002226.02101,"1729,00006-0019-86 ",.02)
;;00006-0019-86
;;9002226.02101,"1729,00006-0019-87 ",.01)
;;00006-0019-87
;;9002226.02101,"1729,00006-0019-87 ",.02)
;;00006-0019-87
;;9002226.02101,"1729,00006-0019-94 ",.01)
;;00006-0019-94
;;9002226.02101,"1729,00006-0019-94 ",.02)
;;00006-0019-94
;;9002226.02101,"1729,00006-0106-28 ",.01)
;;00006-0106-28
;;9002226.02101,"1729,00006-0106-28 ",.02)
;;00006-0106-28
;;9002226.02101,"1729,00006-0106-31 ",.01)
;;00006-0106-31
;;9002226.02101,"1729,00006-0106-31 ",.02)
;;00006-0106-31
;;9002226.02101,"1729,00006-0106-54 ",.01)
;;00006-0106-54
;;9002226.02101,"1729,00006-0106-54 ",.02)
;;00006-0106-54
;;9002226.02101,"1729,00006-0106-58 ",.01)
;;00006-0106-58
;;9002226.02101,"1729,00006-0106-58 ",.02)
;;00006-0106-58
;;9002226.02101,"1729,00006-0106-72 ",.01)
;;00006-0106-72
;;9002226.02101,"1729,00006-0106-72 ",.02)
;;00006-0106-72
;;9002226.02101,"1729,00006-0106-82 ",.01)
;;00006-0106-82
;;9002226.02101,"1729,00006-0106-82 ",.02)
;;00006-0106-82
;;9002226.02101,"1729,00006-0106-87 ",.01)
;;00006-0106-87
;;9002226.02101,"1729,00006-0106-87 ",.02)
;;00006-0106-87
;;9002226.02101,"1729,00006-0106-94 ",.01)
;;00006-0106-94
;;9002226.02101,"1729,00006-0106-94 ",.02)
;;00006-0106-94
;;9002226.02101,"1729,00006-0140-31 ",.01)
;;00006-0140-31
;;9002226.02101,"1729,00006-0140-31 ",.02)
;;00006-0140-31
;;9002226.02101,"1729,00006-0140-58 ",.01)
;;00006-0140-58
;;9002226.02101,"1729,00006-0140-58 ",.02)
;;00006-0140-58
;;9002226.02101,"1729,00006-0142-31 ",.01)
;;00006-0142-31
;;9002226.02101,"1729,00006-0142-31 ",.02)
;;00006-0142-31
;;9002226.02101,"1729,00006-0142-58 ",.01)
;;00006-0142-58
;;9002226.02101,"1729,00006-0142-58 ",.02)
;;00006-0142-58
;;9002226.02101,"1729,00006-0145-31 ",.01)
;;00006-0145-31
;;9002226.02101,"1729,00006-0145-31 ",.02)
;;00006-0145-31
;;9002226.02101,"1729,00006-0145-58 ",.01)
;;00006-0145-58
;;9002226.02101,"1729,00006-0145-58 ",.02)
;;00006-0145-58
;;9002226.02101,"1729,00006-0173-68 ",.01)
;;00006-0173-68
;;9002226.02101,"1729,00006-0173-68 ",.02)
;;00006-0173-68
;;9002226.02101,"1729,00006-0207-28 ",.01)
;;00006-0207-28
;;9002226.02101,"1729,00006-0207-28 ",.02)
;;00006-0207-28
;;9002226.02101,"1729,00006-0207-31 ",.01)
;;00006-0207-31
;;9002226.02101,"1729,00006-0207-31 ",.02)
;;00006-0207-31
;;9002226.02101,"1729,00006-0207-54 ",.01)
;;00006-0207-54
;;9002226.02101,"1729,00006-0207-54 ",.02)
;;00006-0207-54
;;9002226.02101,"1729,00006-0207-58 ",.01)
;;00006-0207-58
;;9002226.02101,"1729,00006-0207-58 ",.02)
;;00006-0207-58
;;9002226.02101,"1729,00006-0207-72 ",.01)
;;00006-0207-72
;;9002226.02101,"1729,00006-0207-72 ",.02)
;;00006-0207-72
;;9002226.02101,"1729,00006-0207-82 ",.01)
;;00006-0207-82
;;9002226.02101,"1729,00006-0207-82 ",.02)
;;00006-0207-82
;;9002226.02101,"1729,00006-0207-87 ",.01)
;;00006-0207-87
;;9002226.02101,"1729,00006-0207-87 ",.02)
;;00006-0207-87
;;9002226.02101,"1729,00006-0207-94 ",.01)
;;00006-0207-94
;;9002226.02101,"1729,00006-0207-94 ",.02)
;;00006-0207-94
;;9002226.02101,"1729,00006-0237-58 ",.01)
;;00006-0237-58
;;9002226.02101,"1729,00006-0237-58 ",.02)
;;00006-0237-58
;;9002226.02101,"1729,00006-0712-28 ",.01)
;;00006-0712-28
;;9002226.02101,"1729,00006-0712-28 ",.02)
;;00006-0712-28
;;9002226.02101,"1729,00006-0712-68 ",.01)
;;00006-0712-68
;;9002226.02101,"1729,00006-0712-68 ",.02)
;;00006-0712-68
;;9002226.02101,"1729,00006-0712-82 ",.01)
;;00006-0712-82
;;9002226.02101,"1729,00006-0712-82 ",.02)
;;00006-0712-82
;;9002226.02101,"1729,00006-0712-87 ",.01)
;;00006-0712-87
;;9002226.02101,"1729,00006-0712-87 ",.02)
;;00006-0712-87
;;9002226.02101,"1729,00006-0712-94 ",.01)
;;00006-0712-94
;;9002226.02101,"1729,00006-0712-94 ",.02)
;;00006-0712-94
;;9002226.02101,"1729,00006-0713-28 ",.01)
;;00006-0713-28
;;9002226.02101,"1729,00006-0713-28 ",.02)
;;00006-0713-28
;;9002226.02101,"1729,00006-0713-68 ",.01)
;;00006-0713-68
;;9002226.02101,"1729,00006-0713-68 ",.02)
;;00006-0713-68
BGP2TD12 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
+1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"68180-0215-06 ")
+2 ;;3711
+3 ;;21,"68180-0215-09 ")
+4 ;;3712
+5 ;;21,"68180-0216-03 ")
+6 ;;3603
+7 ;;21,"68180-0216-06 ")
+8 ;;3604
+9 ;;21,"68180-0216-09 ")
+10 ;;3605
+11 ;;21,"68180-0217-03 ")
+12 ;;3657
+13 ;;21,"68180-0217-06 ")
+14 ;;3658
+15 ;;21,"68180-0217-09 ")
+16 ;;3659
+17 ;;21,"68180-0235-01 ")
+18 ;;3073
+19 ;;21,"68180-0236-01 ")
+20 ;;3081
+21 ;;21,"68180-0237-01 ")
+22 ;;3086
+23 ;;21,"68180-0512-01 ")
+24 ;;2322
+25 ;;21,"68180-0512-02 ")
+26 ;;2323
+27 ;;21,"68180-0512-09 ")
+28 ;;2324
+29 ;;21,"68180-0513-01 ")
+30 ;;2930
+31 ;;21,"68180-0513-03 ")
+32 ;;2931
+33 ;;21,"68180-0513-09 ")
+34 ;;2932
+35 ;;21,"68180-0514-01 ")
+36 ;;2125
+37 ;;21,"68180-0514-03 ")
+38 ;;2126
+39 ;;21,"68180-0514-09 ")
+40 ;;2127
+41 ;;21,"68180-0515-01 ")
+42 ;;2487
+43 ;;21,"68180-0515-03 ")
+44 ;;2488
+45 ;;21,"68180-0515-09 ")
+46 ;;2489
+47 ;;21,"68180-0516-01 ")
+48 ;;2632
+49 ;;21,"68180-0516-02 ")
+50 ;;2633
+51 ;;21,"68180-0516-09 ")
+52 ;;2634
+53 ;;21,"68180-0517-01 ")
+54 ;;2783
+55 ;;21,"68180-0517-03 ")
+56 ;;2784
+57 ;;21,"68180-0517-09 ")
+58 ;;2785
+59 ;;21,"68180-0518-01 ")
+60 ;;459
+61 ;;21,"68180-0518-02 ")
+62 ;;460
+63 ;;21,"68180-0519-01 ")
+64 ;;564
+65 ;;21,"68180-0519-02 ")
+66 ;;565
+67 ;;21,"68180-0520-01 ")
+68 ;;644
+69 ;;21,"68180-0520-02 ")
+70 ;;645
+71 ;;21,"68180-0556-09 ")
+72 ;;3212
+73 ;;21,"68180-0557-09 ")
+74 ;;3120
+75 ;;21,"68180-0558-09 ")
+76 ;;3152
+77 ;;21,"68180-0559-09 ")
+78 ;;3188
+79 ;;21,"68180-0566-01 ")
+80 ;;3436
+81 ;;21,"68180-0567-01 ")
+82 ;;3451
+83 ;;21,"68180-0568-01 ")
+84 ;;3480
+85 ;;21,"68180-0588-01 ")
+86 ;;3221
+87 ;;21,"68180-0589-01 ")
+88 ;;3320
+89 ;;21,"68180-0589-02 ")
+90 ;;3321
+91 ;;21,"68180-0589-09 ")
+92 ;;3322
+93 ;;21,"68180-0590-01 ")
+94 ;;3381
+95 ;;21,"68180-0590-02 ")
+96 ;;3382
+97 ;;21,"68180-0590-09 ")
+98 ;;3383
+99 ;;21,"68180-0591-01 ")
+100 ;;3265
+101 ;;21,"68180-0591-02 ")
+102 ;;3266
+103 ;;21,"68180-0591-09 ")
+104 ;;3267
+105 ;;21,"68180-0755-01 ")
+106 ;;70
+107 ;;21,"68180-0756-01 ")
+108 ;;95
+109 ;;21,"68180-0756-02 ")
+110 ;;96
+111 ;;21,"68180-0757-01 ")
+112 ;;120
+113 ;;21,"68180-0757-02 ")
+114 ;;121
+115 ;;21,"68180-0758-01 ")
+116 ;;10
+117 ;;21,"68180-0758-02 ")
+118 ;;11
+119 ;;21,"68180-0759-01 ")
+120 ;;165
+121 ;;21,"68180-0760-01 ")
+122 ;;44
+123 ;;21,"68258-1053-01 ")
+124 ;;756
+125 ;;21,"68258-1054-01 ")
+126 ;;842
+127 ;;21,"68258-1055-01 ")
+128 ;;925
+129 ;;21,"68258-1058-01 ")
+130 ;;2124
+131 ;;21,"68258-1059-01 ")
+132 ;;2490
+133 ;;21,"68258-1080-01 ")
+134 ;;2786
+135 ;;21,"68258-4001-03 ")
+136 ;;4229
+137 ;;21,"68258-6003-03 ")
+138 ;;2933
+139 ;;21,"68258-6003-09 ")
+140 ;;2934
+141 ;;21,"68258-6021-03 ")
+142 ;;3323
+143 ;;21,"68258-6022-03 ")
+144 ;;3380
+145 ;;21,"68258-6023-03 ")
+146 ;;3268
+147 ;;21,"68258-6025-03 ")
+148 ;;8
+149 ;;21,"68258-6025-09 ")
+150 ;;9
+151 ;;21,"68258-6027-03 ")
+152 ;;3153
+153 ;;21,"68258-6027-09 ")
+154 ;;3154
+155 ;;21,"68258-6028-03 ")
+156 ;;3186
+157 ;;21,"68258-6028-09 ")
+158 ;;3187
+159 ;;21,"68258-6030-03 ")
+160 ;;4026
+161 ;;21,"68258-6030-09 ")
+162 ;;4027
+163 ;;21,"68258-6031-03 ")
+164 ;;3606
+165 ;;21,"68258-6036-03 ")
+166 ;;2321
+167 ;;21,"68258-6040-03 ")
+168 ;;3655
+169 ;;21,"68258-6040-09 ")
+170 ;;3656
+171 ;;21,"68258-6994-09 ")
+172 ;;4324
+173 ;;21,"68258-6995-03 ")
+174 ;;4250
+175 ;;21,"68258-9062-01 ")
+176 ;;999
+177 ;;21,"68382-0135-01 ")
+178 ;;4085
+179 ;;21,"68382-0135-06 ")
+180 ;;4086
+181 ;;21,"68382-0135-10 ")
+182 ;;4087
+183 ;;21,"68382-0135-16 ")
+184 ;;4088
+185 ;;21,"68382-0136-01 ")
+186 ;;4158
+187 ;;21,"68382-0136-06 ")
+188 ;;4159
+189 ;;21,"68382-0136-10 ")
+190 ;;4160
+191 ;;21,"68382-0136-16 ")
+192 ;;4161
+193 ;;21,"68382-0137-01 ")
+194 ;;4020
+195 ;;21,"68382-0137-06 ")
+196 ;;4021
+197 ;;21,"68382-0137-10 ")
+198 ;;4022
+199 ;;21,"68382-0137-16 ")
+200 ;;4023
+201 ;;21,"68382-0142-06 ")
+202 ;;3713
+203 ;;21,"68382-0142-10 ")
+204 ;;3714
+205 ;;21,"68382-0142-16 ")
+206 ;;3715
+207 ;;21,"68382-0143-06 ")
+208 ;;3660
+209 ;;21,"68382-0143-10 ")
+210 ;;3661
+211 ;;21,"68382-0143-16 ")
+212 ;;3662
+213 ;;21,"68382-0144-01 ")
+214 ;;3223
+215 ;;21,"68382-0144-05 ")
+216 ;;3224
+217 ;;21,"68382-0144-06 ")
+218 ;;3225
+219 ;;21,"68382-0145-01 ")
+220 ;;3324
+221 ;;21,"68382-0145-05 ")
+222 ;;3325
+223 ;;21,"68382-0145-06 ")
+224 ;;3326
+225 ;;21,"68382-0146-01 ")
+226 ;;3386
+227 ;;21,"68382-0146-05 ")
+228 ;;3387
+229 ;;21,"68382-0146-06 ")
+230 ;;3388
+231 ;;21,"68382-0147-01 ")
+232 ;;3269
+233 ;;21,"68382-0147-05 ")
+234 ;;3270
+235 ;;21,"68382-0147-06 ")
+236 ;;3271
+237 ;;21,"68387-0543-30 ")
+238 ;;2128
+239 ;;21,"68462-0205-01 ")
+240 ;;674
+241 ;;21,"68462-0206-01 ")
+242 ;;664
+243 ;;21,"68462-0207-01 ")
+244 ;;684
+245 ;;21,"68462-0208-01 ")
+246 ;;3045
+247 ;;21,"68462-0209-01 ")
+248 ;;3062
+249 ;;21,"68462-0294-01 ")
+250 ;;183
+251 ;;21,"68462-0295-01 ")
+252 ;;192
+253 ;;21,"68462-0296-01 ")
+254 ;;199
+255 ;;21,"68462-0329-01 ")
+256 ;;210
+257 ;;21,"68462-0367-10 ")
+258 ;;1882
+259 ;;21,"68462-0367-90 ")
+260 ;;1883
+261 ;;21,"68462-0368-10 ")
+262 ;;1957
+263 ;;21,"68462-0368-90 ")
+264 ;;1958
+265 ;;21,"68462-0369-10 ")
+266 ;;2025
+267 ;;21,"68462-0369-90 ")
+268 ;;2026
+269 ;;21,"68462-0554-01 ")
+270 ;;378
+271 ;;21,"68462-0555-01 ")
+272 ;;386
+273 ;;21,"68552-0221-10 ")
+274 ;;1880
+275 ;;21,"68552-0221-90 ")
+276 ;;1881
+277 ;;21,"68552-0222-10 ")
+278 ;;1959
+279 ;;21,"68552-0222-90 ")
+280 ;;1960
+281 ;;21,"68552-0223-10 ")
+282 ;;2023
+283 ;;21,"68552-0223-90 ")
+284 ;;2024
+285 ;;21,"68645-0160-59 ")
+286 ;;1089
+287 ;;21,"68645-0161-59 ")
+288 ;;1231
+289 ;;21,"68645-0162-59 ")
+290 ;;1296
+291 ;;21,"68645-0163-59 ")
+292 ;;1039
+293 ;;21,"68645-0272-54 ")
+294 ;;2491
+295 ;;21,"76282-0200-10 ")
+296 ;;1884
+297 ;;21,"76282-0200-90 ")
+298 ;;1885
+299 ;;21,"76282-0201-10 ")
+300 ;;1955
+301 ;;21,"76282-0201-90 ")
+302 ;;1956
+303 ;;21,"76282-0202-10 ")
+304 ;;2027
+305 ;;21,"76282-0202-90 ")
+306 ;;2028
+307 ;;21,"76282-0271-01 ")
+308 ;;3222
+309 ;;21,"76282-0272-01 ")
+310 ;;3327
+311 ;;21,"76282-0272-05 ")
+312 ;;3328
+313 ;;21,"76282-0273-01 ")
+314 ;;3384
+315 ;;21,"76282-0273-05 ")
+316 ;;3385
+317 ;;21,"76282-0274-01 ")
+318 ;;3272
+319 ;;21,"76282-0274-05 ")
+320 ;;3273
+321 ;;9002226,1729,.01)
+322 ;;BGP PQA RASA NDC
+323 ;;9002226,1729,.02)
+324 ;;RASA NDC
+325 ;;9002226,1729,.04)
+326 ;;n
+327 ;;9002226,1729,.06)
+328 ;;@
+329 ;;9002226,1729,.08)
+330 ;;@
+331 ;;9002226,1729,.09)
+332 ;;3120312
+333 ;;9002226,1729,.11)
+334 ;;@
+335 ;;9002226,1729,.12)
+336 ;;@
+337 ;;9002226,1729,.13)
+338 ;;1
+339 ;;9002226,1729,.14)
+340 ;;@
+341 ;;9002226,1729,.15)
+342 ;;@
+343 ;;9002226,1729,.16)
+344 ;;@
+345 ;;9002226,1729,.17)
+346 ;;@
+347 ;;9002226,1729,3101)
+348 ;;@
+349 ;;9002226.02101,"1729,00003-0338-50 ",.01)
+350 ;;00003-0338-50
+351 ;;9002226.02101,"1729,00003-0338-50 ",.02)
+352 ;;00003-0338-50
+353 ;;9002226.02101,"1729,00003-0349-50 ",.01)
+354 ;;00003-0349-50
+355 ;;9002226.02101,"1729,00003-0349-50 ",.02)
+356 ;;00003-0349-50
+357 ;;9002226.02101,"1729,00003-0384-50 ",.01)
+358 ;;00003-0384-50
+359 ;;9002226.02101,"1729,00003-0384-50 ",.02)
+360 ;;00003-0384-50
+361 ;;9002226.02101,"1729,00003-0390-50 ",.01)
+362 ;;00003-0390-50
+363 ;;9002226.02101,"1729,00003-0390-50 ",.02)
+364 ;;00003-0390-50
+365 ;;9002226.02101,"1729,00003-0450-51 ",.01)
+366 ;;00003-0450-51
+367 ;;9002226.02101,"1729,00003-0450-51 ",.02)
+368 ;;00003-0450-51
+369 ;;9002226.02101,"1729,00003-0450-54 ",.01)
+370 ;;00003-0450-54
+371 ;;9002226.02101,"1729,00003-0450-54 ",.02)
+372 ;;00003-0450-54
+373 ;;9002226.02101,"1729,00003-0450-75 ",.01)
+374 ;;00003-0450-75
+375 ;;9002226.02101,"1729,00003-0450-75 ",.02)
+376 ;;00003-0450-75
+377 ;;9002226.02101,"1729,00003-0452-50 ",.01)
+378 ;;00003-0452-50
+379 ;;9002226.02101,"1729,00003-0452-50 ",.02)
+380 ;;00003-0452-50
+381 ;;9002226.02101,"1729,00003-0452-51 ",.01)
+382 ;;00003-0452-51
+383 ;;9002226.02101,"1729,00003-0452-51 ",.02)
+384 ;;00003-0452-51
+385 ;;9002226.02101,"1729,00003-0452-75 ",.01)
+386 ;;00003-0452-75
+387 ;;9002226.02101,"1729,00003-0452-75 ",.02)
+388 ;;00003-0452-75
+389 ;;9002226.02101,"1729,00003-0482-50 ",.01)
+390 ;;00003-0482-50
+391 ;;9002226.02101,"1729,00003-0482-50 ",.02)
+392 ;;00003-0482-50
+393 ;;9002226.02101,"1729,00003-0482-51 ",.01)
+394 ;;00003-0482-51
+395 ;;9002226.02101,"1729,00003-0482-51 ",.02)
+396 ;;00003-0482-51
+397 ;;9002226.02101,"1729,00003-0482-75 ",.01)
+398 ;;00003-0482-75
+399 ;;9002226.02101,"1729,00003-0482-75 ",.02)
+400 ;;00003-0482-75
+401 ;;9002226.02101,"1729,00003-0485-50 ",.01)
+402 ;;00003-0485-50
+403 ;;9002226.02101,"1729,00003-0485-50 ",.02)
+404 ;;00003-0485-50
+405 ;;9002226.02101,"1729,00006-0014-28 ",.01)
+406 ;;00006-0014-28
+407 ;;9002226.02101,"1729,00006-0014-28 ",.02)
+408 ;;00006-0014-28
+409 ;;9002226.02101,"1729,00006-0014-68 ",.01)
+410 ;;00006-0014-68
+411 ;;9002226.02101,"1729,00006-0014-68 ",.02)
+412 ;;00006-0014-68
+413 ;;9002226.02101,"1729,00006-0014-82 ",.01)
+414 ;;00006-0014-82
+415 ;;9002226.02101,"1729,00006-0014-82 ",.02)
+416 ;;00006-0014-82
+417 ;;9002226.02101,"1729,00006-0014-87 ",.01)
+418 ;;00006-0014-87
+419 ;;9002226.02101,"1729,00006-0014-87 ",.02)
+420 ;;00006-0014-87
+421 ;;9002226.02101,"1729,00006-0014-94 ",.01)
+422 ;;00006-0014-94
+423 ;;9002226.02101,"1729,00006-0014-94 ",.02)
+424 ;;00006-0014-94
+425 ;;9002226.02101,"1729,00006-0015-28 ",.01)
+426 ;;00006-0015-28
+427 ;;9002226.02101,"1729,00006-0015-28 ",.02)
+428 ;;00006-0015-28
+429 ;;9002226.02101,"1729,00006-0015-31 ",.01)
+430 ;;00006-0015-31
+431 ;;9002226.02101,"1729,00006-0015-31 ",.02)
+432 ;;00006-0015-31
+433 ;;9002226.02101,"1729,00006-0015-58 ",.01)
+434 ;;00006-0015-58
+435 ;;9002226.02101,"1729,00006-0015-58 ",.02)
+436 ;;00006-0015-58
+437 ;;9002226.02101,"1729,00006-0019-28 ",.01)
+438 ;;00006-0019-28
+439 ;;9002226.02101,"1729,00006-0019-28 ",.02)
+440 ;;00006-0019-28
+441 ;;9002226.02101,"1729,00006-0019-54 ",.01)
+442 ;;00006-0019-54
+443 ;;9002226.02101,"1729,00006-0019-54 ",.02)
+444 ;;00006-0019-54
+445 ;;9002226.02101,"1729,00006-0019-58 ",.01)
+446 ;;00006-0019-58
+447 ;;9002226.02101,"1729,00006-0019-58 ",.02)
+448 ;;00006-0019-58
+449 ;;9002226.02101,"1729,00006-0019-72 ",.01)
+450 ;;00006-0019-72
+451 ;;9002226.02101,"1729,00006-0019-72 ",.02)
+452 ;;00006-0019-72
+453 ;;9002226.02101,"1729,00006-0019-82 ",.01)
+454 ;;00006-0019-82
+455 ;;9002226.02101,"1729,00006-0019-82 ",.02)
+456 ;;00006-0019-82
+457 ;;9002226.02101,"1729,00006-0019-86 ",.01)
+458 ;;00006-0019-86
+459 ;;9002226.02101,"1729,00006-0019-86 ",.02)
+460 ;;00006-0019-86
+461 ;;9002226.02101,"1729,00006-0019-87 ",.01)
+462 ;;00006-0019-87
+463 ;;9002226.02101,"1729,00006-0019-87 ",.02)
+464 ;;00006-0019-87
+465 ;;9002226.02101,"1729,00006-0019-94 ",.01)
+466 ;;00006-0019-94
+467 ;;9002226.02101,"1729,00006-0019-94 ",.02)
+468 ;;00006-0019-94
+469 ;;9002226.02101,"1729,00006-0106-28 ",.01)
+470 ;;00006-0106-28
+471 ;;9002226.02101,"1729,00006-0106-28 ",.02)
+472 ;;00006-0106-28
+473 ;;9002226.02101,"1729,00006-0106-31 ",.01)
+474 ;;00006-0106-31
+475 ;;9002226.02101,"1729,00006-0106-31 ",.02)
+476 ;;00006-0106-31
+477 ;;9002226.02101,"1729,00006-0106-54 ",.01)
+478 ;;00006-0106-54
+479 ;;9002226.02101,"1729,00006-0106-54 ",.02)
+480 ;;00006-0106-54
+481 ;;9002226.02101,"1729,00006-0106-58 ",.01)
+482 ;;00006-0106-58
+483 ;;9002226.02101,"1729,00006-0106-58 ",.02)
+484 ;;00006-0106-58
+485 ;;9002226.02101,"1729,00006-0106-72 ",.01)
+486 ;;00006-0106-72
+487 ;;9002226.02101,"1729,00006-0106-72 ",.02)
+488 ;;00006-0106-72
+489 ;;9002226.02101,"1729,00006-0106-82 ",.01)
+490 ;;00006-0106-82
+491 ;;9002226.02101,"1729,00006-0106-82 ",.02)
+492 ;;00006-0106-82
+493 ;;9002226.02101,"1729,00006-0106-87 ",.01)
+494 ;;00006-0106-87
+495 ;;9002226.02101,"1729,00006-0106-87 ",.02)
+496 ;;00006-0106-87
+497 ;;9002226.02101,"1729,00006-0106-94 ",.01)
+498 ;;00006-0106-94
+499 ;;9002226.02101,"1729,00006-0106-94 ",.02)
+500 ;;00006-0106-94
+501 ;;9002226.02101,"1729,00006-0140-31 ",.01)
+502 ;;00006-0140-31
+503 ;;9002226.02101,"1729,00006-0140-31 ",.02)
+504 ;;00006-0140-31
+505 ;;9002226.02101,"1729,00006-0140-58 ",.01)
+506 ;;00006-0140-58
+507 ;;9002226.02101,"1729,00006-0140-58 ",.02)
+508 ;;00006-0140-58
+509 ;;9002226.02101,"1729,00006-0142-31 ",.01)
+510 ;;00006-0142-31
+511 ;;9002226.02101,"1729,00006-0142-31 ",.02)
+512 ;;00006-0142-31
+513 ;;9002226.02101,"1729,00006-0142-58 ",.01)
+514 ;;00006-0142-58
+515 ;;9002226.02101,"1729,00006-0142-58 ",.02)
+516 ;;00006-0142-58
+517 ;;9002226.02101,"1729,00006-0145-31 ",.01)
+518 ;;00006-0145-31
+519 ;;9002226.02101,"1729,00006-0145-31 ",.02)
+520 ;;00006-0145-31
+521 ;;9002226.02101,"1729,00006-0145-58 ",.01)
+522 ;;00006-0145-58
+523 ;;9002226.02101,"1729,00006-0145-58 ",.02)
+524 ;;00006-0145-58
+525 ;;9002226.02101,"1729,00006-0173-68 ",.01)
+526 ;;00006-0173-68
+527 ;;9002226.02101,"1729,00006-0173-68 ",.02)
+528 ;;00006-0173-68
+529 ;;9002226.02101,"1729,00006-0207-28 ",.01)
+530 ;;00006-0207-28
+531 ;;9002226.02101,"1729,00006-0207-28 ",.02)
+532 ;;00006-0207-28
+533 ;;9002226.02101,"1729,00006-0207-31 ",.01)
+534 ;;00006-0207-31
+535 ;;9002226.02101,"1729,00006-0207-31 ",.02)
+536 ;;00006-0207-31
+537 ;;9002226.02101,"1729,00006-0207-54 ",.01)
+538 ;;00006-0207-54
+539 ;;9002226.02101,"1729,00006-0207-54 ",.02)
+540 ;;00006-0207-54
+541 ;;9002226.02101,"1729,00006-0207-58 ",.01)
+542 ;;00006-0207-58
+543 ;;9002226.02101,"1729,00006-0207-58 ",.02)
+544 ;;00006-0207-58
+545 ;;9002226.02101,"1729,00006-0207-72 ",.01)
+546 ;;00006-0207-72
+547 ;;9002226.02101,"1729,00006-0207-72 ",.02)
+548 ;;00006-0207-72
+549 ;;9002226.02101,"1729,00006-0207-82 ",.01)
+550 ;;00006-0207-82
+551 ;;9002226.02101,"1729,00006-0207-82 ",.02)
+552 ;;00006-0207-82
+553 ;;9002226.02101,"1729,00006-0207-87 ",.01)
+554 ;;00006-0207-87
+555 ;;9002226.02101,"1729,00006-0207-87 ",.02)
+556 ;;00006-0207-87
+557 ;;9002226.02101,"1729,00006-0207-94 ",.01)
+558 ;;00006-0207-94
+559 ;;9002226.02101,"1729,00006-0207-94 ",.02)
+560 ;;00006-0207-94
+561 ;;9002226.02101,"1729,00006-0237-58 ",.01)
+562 ;;00006-0237-58
+563 ;;9002226.02101,"1729,00006-0237-58 ",.02)
+564 ;;00006-0237-58
+565 ;;9002226.02101,"1729,00006-0712-28 ",.01)
+566 ;;00006-0712-28
+567 ;;9002226.02101,"1729,00006-0712-28 ",.02)
+568 ;;00006-0712-28
+569 ;;9002226.02101,"1729,00006-0712-68 ",.01)
+570 ;;00006-0712-68
+571 ;;9002226.02101,"1729,00006-0712-68 ",.02)
+572 ;;00006-0712-68
+573 ;;9002226.02101,"1729,00006-0712-82 ",.01)
+574 ;;00006-0712-82
+575 ;;9002226.02101,"1729,00006-0712-82 ",.02)
+576 ;;00006-0712-82
+577 ;;9002226.02101,"1729,00006-0712-87 ",.01)
+578 ;;00006-0712-87
+579 ;;9002226.02101,"1729,00006-0712-87 ",.02)
+580 ;;00006-0712-87
+581 ;;9002226.02101,"1729,00006-0712-94 ",.01)
+582 ;;00006-0712-94
+583 ;;9002226.02101,"1729,00006-0712-94 ",.02)
+584 ;;00006-0712-94
+585 ;;9002226.02101,"1729,00006-0713-28 ",.01)
+586 ;;00006-0713-28
+587 ;;9002226.02101,"1729,00006-0713-28 ",.02)
+588 ;;00006-0713-28
+589 ;;9002226.02101,"1729,00006-0713-68 ",.01)
+590 ;;00006-0713-68
+591 ;;9002226.02101,"1729,00006-0713-68 ",.02)
+592 ;;00006-0713-68
