BGP22B11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 21, 2011;
;;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,"68084-0061-01 ")
;;2139
;;21,"68084-0061-11 ")
;;2140
;;21,"68084-0062-01 ")
;;2453
;;21,"68084-0062-11 ")
;;2454
;;21,"68084-0064-01 ")
;;2685
;;21,"68084-0064-11 ")
;;2686
;;21,"68084-0266-01 ")
;;3156
;;21,"68084-0266-11 ")
;;3157
;;21,"68084-0267-01 ")
;;3214
;;21,"68084-0267-11 ")
;;3215
;;21,"68084-0268-01 ")
;;3108
;;21,"68084-0268-11 ")
;;3109
;;21,"68084-0294-11 ")
;;3052
;;21,"68084-0294-21 ")
;;3053
;;21,"68084-0346-01 ")
;;3872
;;21,"68084-0346-11 ")
;;3873
;;21,"68084-0347-01 ")
;;3949
;;21,"68084-0347-11 ")
;;3950
;;21,"68084-0348-01 ")
;;3819
;;21,"68084-0348-11 ")
;;3820
;;21,"68084-0349-11 ")
;;92
;;21,"68084-0349-21 ")
;;93
;;21,"68084-0350-01 ")
;;132
;;21,"68084-0350-11 ")
;;133
;;21,"68084-0351-11 ")
;;31
;;21,"68084-0351-21 ")
;;32
;;21,"68084-0390-01 ")
;;1732
;;21,"68084-0390-11 ")
;;1733
;;21,"68084-0391-01 ")
;;1375
;;21,"68084-0391-11 ")
;;1376
;;21,"68084-0392-01 ")
;;1587
;;21,"68084-0392-11 ")
;;1588
;;21,"68115-0059-00 ")
;;1043
;;21,"68115-0059-30 ")
;;1044
;;21,"68115-0059-60 ")
;;1045
;;21,"68115-0059-90 ")
;;1046
;;21,"68115-0060-30 ")
;;1154
;;21,"68115-0060-60 ")
;;1155
;;21,"68115-0060-90 ")
;;1156
;;21,"68115-0127-00 ")
;;1267
;;21,"68115-0127-15 ")
;;1268
;;21,"68115-0127-30 ")
;;1269
;;21,"68115-0127-60 ")
;;1270
;;21,"68115-0128-00 ")
;;1494
;;21,"68115-0128-20 ")
;;1495
;;21,"68115-0128-30 ")
;;1496
;;21,"68115-0128-60 ")
;;1497
;;21,"68115-0129-30 ")
;;1632
;;21,"68115-0129-60 ")
;;1633
;;21,"68115-0207-30 ")
;;1952
;;21,"68115-0207-60 ")
;;1953
;;21,"68115-0207-90 ")
;;1954
;;21,"68115-0208-30 ")
;;2254
;;21,"68115-0208-60 ")
;;2255
;;21,"68115-0208-90 ")
;;2256
;;21,"68115-0209-30 ")
;;2539
;;21,"68115-0215-30 ")
;;652
;;21,"68115-0216-30 ")
;;730
;;21,"68115-0217-30 ")
;;814
;;21,"68115-0361-30 ")
;;1955
;;21,"68115-0362-00 ")
;;2257
;;21,"68115-0362-60 ")
;;2258
;;21,"68115-0363-30 ")
;;2716
;;21,"68115-0378-30 ")
;;3061
;;21,"68115-0378-60 ")
;;3062
;;21,"68115-0396-30 ")
;;2717
;;21,"68115-0425-90 ")
;;916
;;21,"68115-0490-30 ")
;;653
;;21,"68115-0490-60 ")
;;654
;;21,"68115-0491-30 ")
;;731
;;21,"68115-0530-00 ")
;;3119
;;21,"68115-0530-30 ")
;;3120
;;21,"68115-0530-60 ")
;;3121
;;21,"68115-0597-00 ")
;;815
;;21,"68115-0615-00 ")
;;655
;;21,"68115-0621-00 ")
;;877
;;21,"68115-0650-00 ")
;;1
;;21,"68115-0654-00 ")
;;732
;;21,"68115-0669-00 ")
;;3642
;;21,"68115-0669-90 ")
;;3643
;;21,"68115-0673-00 ")
;;98
;;21,"68115-0673-30 ")
;;99
;;21,"68115-0677-00 ")
;;432
;;21,"68115-0677-30 ")
;;433
;;21,"68115-0703-30 ")
;;3337
;;21,"68115-0703-90 ")
;;3338
;;21,"68115-0733-00 ")
;;3881
;;21,"68115-0733-30 ")
;;3882
;;21,"68115-0733-90 ")
;;3883
;;21,"68115-0778-00 ")
;;63
;;21,"68115-0812-00 ")
;;3166
;;21,"68115-0812-30 ")
;;3167
;;21,"68115-0812-60 ")
;;3168
;;21,"68115-0824-00 ")
;;878
;;21,"68115-0854-00 ")
;;4079
;;21,"68115-0854-90 ")
;;4080
;;21,"68115-0865-30 ")
;;3424
;;21,"68115-0889-90 ")
;;2959
;;21,"68180-0210-03 ")
;;3874
;;21,"68180-0210-09 ")
;;3875
;;21,"68180-0211-03 ")
;;3951
;;21,"68180-0211-09 ")
;;3952
;;21,"68180-0212-03 ")
;;3821
;;21,"68180-0212-09 ")
;;3822
;;21,"68180-0215-03 ")
;;3521
;;21,"68180-0215-06 ")
;;3522
;;21,"68180-0215-09 ")
;;3523
;;21,"68180-0216-03 ")
;;3421
;;21,"68180-0216-06 ")
;;3422
;;21,"68180-0216-09 ")
;;3423
;;21,"68180-0217-03 ")
;;3467
;;21,"68180-0217-06 ")
;;3468
;;21,"68180-0217-09 ")
;;3469
;;21,"68180-0235-01 ")
;;2907
;;21,"68180-0236-01 ")
;;2911
;;21,"68180-0237-01 ")
;;2918
;;21,"68180-0512-01 ")
;;2220
;;21,"68180-0512-02 ")
;;2221
;;21,"68180-0512-09 ")
;;2222
;;21,"68180-0513-01 ")
;;2876
;;21,"68180-0513-03 ")
;;2877
;;21,"68180-0513-09 ")
;;2878
;;21,"68180-0514-01 ")
;;2141
;;21,"68180-0514-03 ")
;;2142
;;21,"68180-0514-09 ")
;;2143
;;21,"68180-0515-01 ")
;;2455
;;21,"68180-0515-03 ")
;;2456
;;21,"68180-0515-09 ")
;;2457
;;21,"68180-0516-01 ")
;;2510
;;21,"68180-0516-02 ")
;;2511
;;21,"68180-0516-09 ")
;;2512
;;21,"68180-0517-01 ")
;;2687
;;21,"68180-0517-03 ")
;;2688
;;21,"68180-0517-09 ")
;;2689
;;21,"68180-0518-01 ")
;;416
;;21,"68180-0518-02 ")
;;417
;;21,"68180-0519-01 ")
;;508
;;21,"68180-0519-02 ")
;;509
;;21,"68180-0520-01 ")
;;587
;;21,"68180-0520-02 ")
;;588
;;21,"68180-0556-09 ")
;;3036
;;21,"68180-0557-09 ")
;;2954
;;21,"68180-0558-09 ")
;;2984
;;21,"68180-0559-09 ")
;;3014
;;21,"68180-0566-01 ")
;;3243
;;21,"68180-0567-01 ")
;;3261
;;21,"68180-0568-01 ")
;;3284
;;21,"68180-0588-01 ")
;;3054
;;21,"68180-0589-01 ")
;;3158
;;21,"68180-0589-02 ")
;;3159
;;21,"68180-0589-09 ")
;;3160
;;21,"68180-0590-01 ")
;;3216
;;21,"68180-0590-02 ")
;;3217
;;21,"68180-0590-09 ")
;;3218
;;21,"68180-0591-01 ")
;;3110
;;21,"68180-0591-02 ")
;;3111
;;21,"68180-0591-09 ")
;;3112
;;21,"68180-0755-01 ")
;;60
;;21,"68180-0756-01 ")
;;94
;;21,"68180-0756-02 ")
;;95
;;21,"68180-0757-01 ")
;;134
;;21,"68180-0757-02 ")
;;135
;;21,"68180-0758-01 ")
;;33
;;21,"68180-0758-02 ")
;;34
;;21,"68258-1053-01 ")
;;658
;;21,"68258-1054-01 ")
;;735
;;21,"68258-1055-01 ")
;;818
;;21,"68258-1058-01 ")
;;1958
;;21,"68258-1059-01 ")
;;2260
;;21,"68258-1080-01 ")
;;2540
;;21,"68258-9062-01 ")
;;881
;;21,"68382-0135-01 ")
;;3876
;;21,"68382-0135-06 ")
;;3877
;;21,"68382-0135-10 ")
;;3878
;;21,"68382-0135-16 ")
;;3879
;;21,"68382-0136-01 ")
;;3953
;;21,"68382-0136-06 ")
;;3954
;;21,"68382-0136-10 ")
;;3955
;;21,"68382-0136-16 ")
;;3956
;;21,"68382-0137-01 ")
;;3823
;;21,"68382-0137-06 ")
;;3824
;;21,"68382-0137-10 ")
;;3825
;;21,"68382-0137-16 ")
;;3826
;;21,"68382-0142-06 ")
;;3524
;;21,"68382-0142-10 ")
;;3525
;;21,"68382-0142-16 ")
;;3526
;;21,"68382-0143-06 ")
;;3470
;;21,"68382-0143-10 ")
;;3471
;;21,"68382-0143-16 ")
;;3472
;;21,"68382-0144-01 ")
;;3055
;;21,"68382-0144-05 ")
;;3056
;;21,"68382-0144-06 ")
;;3057
;;21,"68382-0145-01 ")
;;3161
;;21,"68382-0145-05 ")
;;3162
;;21,"68382-0145-06 ")
;;3163
;;21,"68382-0146-01 ")
;;3219
;;21,"68382-0146-05 ")
;;3220
;;21,"68382-0146-06 ")
;;3221
;;21,"68382-0147-01 ")
;;3113
;;21,"68382-0147-05 ")
;;3114
;;21,"68382-0147-06 ")
;;3115
;;21,"68387-0543-30 ")
;;2144
;;21,"68405-8007-06 ")
;;168
;;21,"68405-8007-36 ")
;;169
;;21,"68462-0205-01 ")
;;607
;;21,"68462-0206-01 ")
;;595
;;21,"68462-0207-01 ")
;;613
;;21,"68462-0208-01 ")
;;2894
;;21,"68462-0209-01 ")
;;2906
;;21,"68462-0294-01 ")
;;147
;;21,"68462-0295-01 ")
;;149
;;21,"68462-0296-01 ")
;;156
;;21,"68462-0329-01 ")
;;161
;;21,"68462-0367-10 ")
;;1782
;;21,"68462-0367-90 ")
;;1783
;;21,"68462-0368-10 ")
;;1858
;;21,"68462-0368-90 ")
;;1859
;;21,"68462-0369-10 ")
;;1911
;;21,"68462-0369-90 ")
;;1912
;;21,"68462-0554-01 ")
;;332
;;21,"68462-0555-01 ")
;;341
;;21,"68552-0221-10 ")
;;1784
;;21,"68552-0221-90 ")
;;1785
;;21,"68552-0222-10 ")
;;1860
;;21,"68552-0222-90 ")
;;1861
;;21,"68552-0223-10 ")
;;1913
;;21,"68552-0223-90 ")
;;1914
;;21,"68645-0160-59 ")
;;1007
;;21,"68645-0161-59 ")
;;1124
;;21,"68645-0162-59 ")
;;1226
;;21,"68645-0163-59 ")
;;937
;;21,"68645-0272-54 ")
;;2458
;;9002226,1196,.01)
;;BGP PQA ACEI ARB NDC
;;9002226,1196,.02)
;;@
;;9002226,1196,.04)
;;n
;;9002226,1196,.06)
;;@
;;9002226,1196,.08)
;;@
;;9002226,1196,.09)
;;@
;;9002226,1196,.11)
;;@
;;9002226,1196,.12)
;;@
;;9002226,1196,.13)
;;1
;;9002226,1196,.14)
;;@
;;9002226,1196,.15)
;;@
;;9002226,1196,.16)
;;@
;;9002226,1196,.17)
;;@
;;9002226,1196,3101)
;;@
;;9002226.02101,"1196,00003-0338-50 ",.01)
;;00003-0338-50
;;9002226.02101,"1196,00003-0338-50 ",.02)
;;00003-0338-50
;;9002226.02101,"1196,00003-0349-50 ",.01)
;;00003-0349-50
;;9002226.02101,"1196,00003-0349-50 ",.02)
;;00003-0349-50
;;9002226.02101,"1196,00003-0384-50 ",.01)
;;00003-0384-50
;;9002226.02101,"1196,00003-0384-50 ",.02)
;;00003-0384-50
;;9002226.02101,"1196,00003-0390-50 ",.01)
;;00003-0390-50
;;9002226.02101,"1196,00003-0390-50 ",.02)
;;00003-0390-50
;;9002226.02101,"1196,00003-0450-51 ",.01)
;;00003-0450-51
;;9002226.02101,"1196,00003-0450-51 ",.02)
;;00003-0450-51
;;9002226.02101,"1196,00003-0450-54 ",.01)
;;00003-0450-54
;;9002226.02101,"1196,00003-0450-54 ",.02)
;;00003-0450-54
;;9002226.02101,"1196,00003-0450-75 ",.01)
;;00003-0450-75
;;9002226.02101,"1196,00003-0450-75 ",.02)
;;00003-0450-75
;;9002226.02101,"1196,00003-0452-50 ",.01)
;;00003-0452-50
;;9002226.02101,"1196,00003-0452-50 ",.02)
;;00003-0452-50
;;9002226.02101,"1196,00003-0452-51 ",.01)
;;00003-0452-51
;;9002226.02101,"1196,00003-0452-51 ",.02)
;;00003-0452-51
;;9002226.02101,"1196,00003-0452-75 ",.01)
;;00003-0452-75
;;9002226.02101,"1196,00003-0452-75 ",.02)
;;00003-0452-75
;;9002226.02101,"1196,00003-0482-50 ",.01)
;;00003-0482-50
;;9002226.02101,"1196,00003-0482-50 ",.02)
;;00003-0482-50
;;9002226.02101,"1196,00003-0482-51 ",.01)
;;00003-0482-51
;;9002226.02101,"1196,00003-0482-51 ",.02)
;;00003-0482-51
;;9002226.02101,"1196,00003-0482-75 ",.01)
;;00003-0482-75
;;9002226.02101,"1196,00003-0482-75 ",.02)
;;00003-0482-75
;;9002226.02101,"1196,00003-0485-50 ",.01)
;;00003-0485-50
;;9002226.02101,"1196,00003-0485-50 ",.02)
;;00003-0485-50
;;9002226.02101,"1196,00006-0014-28 ",.01)
;;00006-0014-28
;;9002226.02101,"1196,00006-0014-28 ",.02)
;;00006-0014-28
;;9002226.02101,"1196,00006-0014-68 ",.01)
;;00006-0014-68
;;9002226.02101,"1196,00006-0014-68 ",.02)
;;00006-0014-68
;;9002226.02101,"1196,00006-0014-82 ",.01)
;;00006-0014-82
;;9002226.02101,"1196,00006-0014-82 ",.02)
;;00006-0014-82
;;9002226.02101,"1196,00006-0014-87 ",.01)
;;00006-0014-87
;;9002226.02101,"1196,00006-0014-87 ",.02)
;;00006-0014-87
;;9002226.02101,"1196,00006-0014-94 ",.01)
;;00006-0014-94
;;9002226.02101,"1196,00006-0014-94 ",.02)
;;00006-0014-94
;;9002226.02101,"1196,00006-0015-28 ",.01)
;;00006-0015-28
;;9002226.02101,"1196,00006-0015-28 ",.02)
;;00006-0015-28
;;9002226.02101,"1196,00006-0015-31 ",.01)
;;00006-0015-31
;;9002226.02101,"1196,00006-0015-31 ",.02)
;;00006-0015-31
;;9002226.02101,"1196,00006-0015-58 ",.01)
;;00006-0015-58
;;9002226.02101,"1196,00006-0015-58 ",.02)
;;00006-0015-58
;;9002226.02101,"1196,00006-0019-28 ",.01)
;;00006-0019-28
;;9002226.02101,"1196,00006-0019-28 ",.02)
;;00006-0019-28
;;9002226.02101,"1196,00006-0019-54 ",.01)
;;00006-0019-54
;;9002226.02101,"1196,00006-0019-54 ",.02)
;;00006-0019-54
;;9002226.02101,"1196,00006-0019-58 ",.01)
;;00006-0019-58
;;9002226.02101,"1196,00006-0019-58 ",.02)
;;00006-0019-58
;;9002226.02101,"1196,00006-0019-72 ",.01)
;;00006-0019-72
;;9002226.02101,"1196,00006-0019-72 ",.02)
;;00006-0019-72
;;9002226.02101,"1196,00006-0019-82 ",.01)
;;00006-0019-82
;;9002226.02101,"1196,00006-0019-82 ",.02)
;;00006-0019-82
;;9002226.02101,"1196,00006-0019-86 ",.01)
;;00006-0019-86
;;9002226.02101,"1196,00006-0019-86 ",.02)
;;00006-0019-86
;;9002226.02101,"1196,00006-0019-87 ",.01)
;;00006-0019-87
;;9002226.02101,"1196,00006-0019-87 ",.02)
;;00006-0019-87
;;9002226.02101,"1196,00006-0019-94 ",.01)
;;00006-0019-94
;;9002226.02101,"1196,00006-0019-94 ",.02)
;;00006-0019-94
;;9002226.02101,"1196,00006-0106-28 ",.01)
;;00006-0106-28
;;9002226.02101,"1196,00006-0106-28 ",.02)
;;00006-0106-28
;;9002226.02101,"1196,00006-0106-31 ",.01)
;;00006-0106-31
;;9002226.02101,"1196,00006-0106-31 ",.02)
;;00006-0106-31
;;9002226.02101,"1196,00006-0106-54 ",.01)
;;00006-0106-54
;;9002226.02101,"1196,00006-0106-54 ",.02)
;;00006-0106-54
;;9002226.02101,"1196,00006-0106-58 ",.01)
;;00006-0106-58
;;9002226.02101,"1196,00006-0106-58 ",.02)
;;00006-0106-58
;;9002226.02101,"1196,00006-0106-72 ",.01)
;;00006-0106-72
;;9002226.02101,"1196,00006-0106-72 ",.02)
;;00006-0106-72
;;9002226.02101,"1196,00006-0106-82 ",.01)
;;00006-0106-82
;;9002226.02101,"1196,00006-0106-82 ",.02)
;;00006-0106-82
;;9002226.02101,"1196,00006-0106-87 ",.01)
;;00006-0106-87
;;9002226.02101,"1196,00006-0106-87 ",.02)
;;00006-0106-87
;;9002226.02101,"1196,00006-0106-94 ",.01)
;;00006-0106-94
;;9002226.02101,"1196,00006-0106-94 ",.02)
;;00006-0106-94
;;9002226.02101,"1196,00006-0140-31 ",.01)
;;00006-0140-31
;;9002226.02101,"1196,00006-0140-31 ",.02)
;;00006-0140-31
;;9002226.02101,"1196,00006-0140-58 ",.01)
;;00006-0140-58
;;9002226.02101,"1196,00006-0140-58 ",.02)
;;00006-0140-58
;;9002226.02101,"1196,00006-0142-31 ",.01)
;;00006-0142-31
BGP22B11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 21, 2011;
+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,"68084-0061-01 ")
+2 ;;2139
+3 ;;21,"68084-0061-11 ")
+4 ;;2140
+5 ;;21,"68084-0062-01 ")
+6 ;;2453
+7 ;;21,"68084-0062-11 ")
+8 ;;2454
+9 ;;21,"68084-0064-01 ")
+10 ;;2685
+11 ;;21,"68084-0064-11 ")
+12 ;;2686
+13 ;;21,"68084-0266-01 ")
+14 ;;3156
+15 ;;21,"68084-0266-11 ")
+16 ;;3157
+17 ;;21,"68084-0267-01 ")
+18 ;;3214
+19 ;;21,"68084-0267-11 ")
+20 ;;3215
+21 ;;21,"68084-0268-01 ")
+22 ;;3108
+23 ;;21,"68084-0268-11 ")
+24 ;;3109
+25 ;;21,"68084-0294-11 ")
+26 ;;3052
+27 ;;21,"68084-0294-21 ")
+28 ;;3053
+29 ;;21,"68084-0346-01 ")
+30 ;;3872
+31 ;;21,"68084-0346-11 ")
+32 ;;3873
+33 ;;21,"68084-0347-01 ")
+34 ;;3949
+35 ;;21,"68084-0347-11 ")
+36 ;;3950
+37 ;;21,"68084-0348-01 ")
+38 ;;3819
+39 ;;21,"68084-0348-11 ")
+40 ;;3820
+41 ;;21,"68084-0349-11 ")
+42 ;;92
+43 ;;21,"68084-0349-21 ")
+44 ;;93
+45 ;;21,"68084-0350-01 ")
+46 ;;132
+47 ;;21,"68084-0350-11 ")
+48 ;;133
+49 ;;21,"68084-0351-11 ")
+50 ;;31
+51 ;;21,"68084-0351-21 ")
+52 ;;32
+53 ;;21,"68084-0390-01 ")
+54 ;;1732
+55 ;;21,"68084-0390-11 ")
+56 ;;1733
+57 ;;21,"68084-0391-01 ")
+58 ;;1375
+59 ;;21,"68084-0391-11 ")
+60 ;;1376
+61 ;;21,"68084-0392-01 ")
+62 ;;1587
+63 ;;21,"68084-0392-11 ")
+64 ;;1588
+65 ;;21,"68115-0059-00 ")
+66 ;;1043
+67 ;;21,"68115-0059-30 ")
+68 ;;1044
+69 ;;21,"68115-0059-60 ")
+70 ;;1045
+71 ;;21,"68115-0059-90 ")
+72 ;;1046
+73 ;;21,"68115-0060-30 ")
+74 ;;1154
+75 ;;21,"68115-0060-60 ")
+76 ;;1155
+77 ;;21,"68115-0060-90 ")
+78 ;;1156
+79 ;;21,"68115-0127-00 ")
+80 ;;1267
+81 ;;21,"68115-0127-15 ")
+82 ;;1268
+83 ;;21,"68115-0127-30 ")
+84 ;;1269
+85 ;;21,"68115-0127-60 ")
+86 ;;1270
+87 ;;21,"68115-0128-00 ")
+88 ;;1494
+89 ;;21,"68115-0128-20 ")
+90 ;;1495
+91 ;;21,"68115-0128-30 ")
+92 ;;1496
+93 ;;21,"68115-0128-60 ")
+94 ;;1497
+95 ;;21,"68115-0129-30 ")
+96 ;;1632
+97 ;;21,"68115-0129-60 ")
+98 ;;1633
+99 ;;21,"68115-0207-30 ")
+100 ;;1952
+101 ;;21,"68115-0207-60 ")
+102 ;;1953
+103 ;;21,"68115-0207-90 ")
+104 ;;1954
+105 ;;21,"68115-0208-30 ")
+106 ;;2254
+107 ;;21,"68115-0208-60 ")
+108 ;;2255
+109 ;;21,"68115-0208-90 ")
+110 ;;2256
+111 ;;21,"68115-0209-30 ")
+112 ;;2539
+113 ;;21,"68115-0215-30 ")
+114 ;;652
+115 ;;21,"68115-0216-30 ")
+116 ;;730
+117 ;;21,"68115-0217-30 ")
+118 ;;814
+119 ;;21,"68115-0361-30 ")
+120 ;;1955
+121 ;;21,"68115-0362-00 ")
+122 ;;2257
+123 ;;21,"68115-0362-60 ")
+124 ;;2258
+125 ;;21,"68115-0363-30 ")
+126 ;;2716
+127 ;;21,"68115-0378-30 ")
+128 ;;3061
+129 ;;21,"68115-0378-60 ")
+130 ;;3062
+131 ;;21,"68115-0396-30 ")
+132 ;;2717
+133 ;;21,"68115-0425-90 ")
+134 ;;916
+135 ;;21,"68115-0490-30 ")
+136 ;;653
+137 ;;21,"68115-0490-60 ")
+138 ;;654
+139 ;;21,"68115-0491-30 ")
+140 ;;731
+141 ;;21,"68115-0530-00 ")
+142 ;;3119
+143 ;;21,"68115-0530-30 ")
+144 ;;3120
+145 ;;21,"68115-0530-60 ")
+146 ;;3121
+147 ;;21,"68115-0597-00 ")
+148 ;;815
+149 ;;21,"68115-0615-00 ")
+150 ;;655
+151 ;;21,"68115-0621-00 ")
+152 ;;877
+153 ;;21,"68115-0650-00 ")
+154 ;;1
+155 ;;21,"68115-0654-00 ")
+156 ;;732
+157 ;;21,"68115-0669-00 ")
+158 ;;3642
+159 ;;21,"68115-0669-90 ")
+160 ;;3643
+161 ;;21,"68115-0673-00 ")
+162 ;;98
+163 ;;21,"68115-0673-30 ")
+164 ;;99
+165 ;;21,"68115-0677-00 ")
+166 ;;432
+167 ;;21,"68115-0677-30 ")
+168 ;;433
+169 ;;21,"68115-0703-30 ")
+170 ;;3337
+171 ;;21,"68115-0703-90 ")
+172 ;;3338
+173 ;;21,"68115-0733-00 ")
+174 ;;3881
+175 ;;21,"68115-0733-30 ")
+176 ;;3882
+177 ;;21,"68115-0733-90 ")
+178 ;;3883
+179 ;;21,"68115-0778-00 ")
+180 ;;63
+181 ;;21,"68115-0812-00 ")
+182 ;;3166
+183 ;;21,"68115-0812-30 ")
+184 ;;3167
+185 ;;21,"68115-0812-60 ")
+186 ;;3168
+187 ;;21,"68115-0824-00 ")
+188 ;;878
+189 ;;21,"68115-0854-00 ")
+190 ;;4079
+191 ;;21,"68115-0854-90 ")
+192 ;;4080
+193 ;;21,"68115-0865-30 ")
+194 ;;3424
+195 ;;21,"68115-0889-90 ")
+196 ;;2959
+197 ;;21,"68180-0210-03 ")
+198 ;;3874
+199 ;;21,"68180-0210-09 ")
+200 ;;3875
+201 ;;21,"68180-0211-03 ")
+202 ;;3951
+203 ;;21,"68180-0211-09 ")
+204 ;;3952
+205 ;;21,"68180-0212-03 ")
+206 ;;3821
+207 ;;21,"68180-0212-09 ")
+208 ;;3822
+209 ;;21,"68180-0215-03 ")
+210 ;;3521
+211 ;;21,"68180-0215-06 ")
+212 ;;3522
+213 ;;21,"68180-0215-09 ")
+214 ;;3523
+215 ;;21,"68180-0216-03 ")
+216 ;;3421
+217 ;;21,"68180-0216-06 ")
+218 ;;3422
+219 ;;21,"68180-0216-09 ")
+220 ;;3423
+221 ;;21,"68180-0217-03 ")
+222 ;;3467
+223 ;;21,"68180-0217-06 ")
+224 ;;3468
+225 ;;21,"68180-0217-09 ")
+226 ;;3469
+227 ;;21,"68180-0235-01 ")
+228 ;;2907
+229 ;;21,"68180-0236-01 ")
+230 ;;2911
+231 ;;21,"68180-0237-01 ")
+232 ;;2918
+233 ;;21,"68180-0512-01 ")
+234 ;;2220
+235 ;;21,"68180-0512-02 ")
+236 ;;2221
+237 ;;21,"68180-0512-09 ")
+238 ;;2222
+239 ;;21,"68180-0513-01 ")
+240 ;;2876
+241 ;;21,"68180-0513-03 ")
+242 ;;2877
+243 ;;21,"68180-0513-09 ")
+244 ;;2878
+245 ;;21,"68180-0514-01 ")
+246 ;;2141
+247 ;;21,"68180-0514-03 ")
+248 ;;2142
+249 ;;21,"68180-0514-09 ")
+250 ;;2143
+251 ;;21,"68180-0515-01 ")
+252 ;;2455
+253 ;;21,"68180-0515-03 ")
+254 ;;2456
+255 ;;21,"68180-0515-09 ")
+256 ;;2457
+257 ;;21,"68180-0516-01 ")
+258 ;;2510
+259 ;;21,"68180-0516-02 ")
+260 ;;2511
+261 ;;21,"68180-0516-09 ")
+262 ;;2512
+263 ;;21,"68180-0517-01 ")
+264 ;;2687
+265 ;;21,"68180-0517-03 ")
+266 ;;2688
+267 ;;21,"68180-0517-09 ")
+268 ;;2689
+269 ;;21,"68180-0518-01 ")
+270 ;;416
+271 ;;21,"68180-0518-02 ")
+272 ;;417
+273 ;;21,"68180-0519-01 ")
+274 ;;508
+275 ;;21,"68180-0519-02 ")
+276 ;;509
+277 ;;21,"68180-0520-01 ")
+278 ;;587
+279 ;;21,"68180-0520-02 ")
+280 ;;588
+281 ;;21,"68180-0556-09 ")
+282 ;;3036
+283 ;;21,"68180-0557-09 ")
+284 ;;2954
+285 ;;21,"68180-0558-09 ")
+286 ;;2984
+287 ;;21,"68180-0559-09 ")
+288 ;;3014
+289 ;;21,"68180-0566-01 ")
+290 ;;3243
+291 ;;21,"68180-0567-01 ")
+292 ;;3261
+293 ;;21,"68180-0568-01 ")
+294 ;;3284
+295 ;;21,"68180-0588-01 ")
+296 ;;3054
+297 ;;21,"68180-0589-01 ")
+298 ;;3158
+299 ;;21,"68180-0589-02 ")
+300 ;;3159
+301 ;;21,"68180-0589-09 ")
+302 ;;3160
+303 ;;21,"68180-0590-01 ")
+304 ;;3216
+305 ;;21,"68180-0590-02 ")
+306 ;;3217
+307 ;;21,"68180-0590-09 ")
+308 ;;3218
+309 ;;21,"68180-0591-01 ")
+310 ;;3110
+311 ;;21,"68180-0591-02 ")
+312 ;;3111
+313 ;;21,"68180-0591-09 ")
+314 ;;3112
+315 ;;21,"68180-0755-01 ")
+316 ;;60
+317 ;;21,"68180-0756-01 ")
+318 ;;94
+319 ;;21,"68180-0756-02 ")
+320 ;;95
+321 ;;21,"68180-0757-01 ")
+322 ;;134
+323 ;;21,"68180-0757-02 ")
+324 ;;135
+325 ;;21,"68180-0758-01 ")
+326 ;;33
+327 ;;21,"68180-0758-02 ")
+328 ;;34
+329 ;;21,"68258-1053-01 ")
+330 ;;658
+331 ;;21,"68258-1054-01 ")
+332 ;;735
+333 ;;21,"68258-1055-01 ")
+334 ;;818
+335 ;;21,"68258-1058-01 ")
+336 ;;1958
+337 ;;21,"68258-1059-01 ")
+338 ;;2260
+339 ;;21,"68258-1080-01 ")
+340 ;;2540
+341 ;;21,"68258-9062-01 ")
+342 ;;881
+343 ;;21,"68382-0135-01 ")
+344 ;;3876
+345 ;;21,"68382-0135-06 ")
+346 ;;3877
+347 ;;21,"68382-0135-10 ")
+348 ;;3878
+349 ;;21,"68382-0135-16 ")
+350 ;;3879
+351 ;;21,"68382-0136-01 ")
+352 ;;3953
+353 ;;21,"68382-0136-06 ")
+354 ;;3954
+355 ;;21,"68382-0136-10 ")
+356 ;;3955
+357 ;;21,"68382-0136-16 ")
+358 ;;3956
+359 ;;21,"68382-0137-01 ")
+360 ;;3823
+361 ;;21,"68382-0137-06 ")
+362 ;;3824
+363 ;;21,"68382-0137-10 ")
+364 ;;3825
+365 ;;21,"68382-0137-16 ")
+366 ;;3826
+367 ;;21,"68382-0142-06 ")
+368 ;;3524
+369 ;;21,"68382-0142-10 ")
+370 ;;3525
+371 ;;21,"68382-0142-16 ")
+372 ;;3526
+373 ;;21,"68382-0143-06 ")
+374 ;;3470
+375 ;;21,"68382-0143-10 ")
+376 ;;3471
+377 ;;21,"68382-0143-16 ")
+378 ;;3472
+379 ;;21,"68382-0144-01 ")
+380 ;;3055
+381 ;;21,"68382-0144-05 ")
+382 ;;3056
+383 ;;21,"68382-0144-06 ")
+384 ;;3057
+385 ;;21,"68382-0145-01 ")
+386 ;;3161
+387 ;;21,"68382-0145-05 ")
+388 ;;3162
+389 ;;21,"68382-0145-06 ")
+390 ;;3163
+391 ;;21,"68382-0146-01 ")
+392 ;;3219
+393 ;;21,"68382-0146-05 ")
+394 ;;3220
+395 ;;21,"68382-0146-06 ")
+396 ;;3221
+397 ;;21,"68382-0147-01 ")
+398 ;;3113
+399 ;;21,"68382-0147-05 ")
+400 ;;3114
+401 ;;21,"68382-0147-06 ")
+402 ;;3115
+403 ;;21,"68387-0543-30 ")
+404 ;;2144
+405 ;;21,"68405-8007-06 ")
+406 ;;168
+407 ;;21,"68405-8007-36 ")
+408 ;;169
+409 ;;21,"68462-0205-01 ")
+410 ;;607
+411 ;;21,"68462-0206-01 ")
+412 ;;595
+413 ;;21,"68462-0207-01 ")
+414 ;;613
+415 ;;21,"68462-0208-01 ")
+416 ;;2894
+417 ;;21,"68462-0209-01 ")
+418 ;;2906
+419 ;;21,"68462-0294-01 ")
+420 ;;147
+421 ;;21,"68462-0295-01 ")
+422 ;;149
+423 ;;21,"68462-0296-01 ")
+424 ;;156
+425 ;;21,"68462-0329-01 ")
+426 ;;161
+427 ;;21,"68462-0367-10 ")
+428 ;;1782
+429 ;;21,"68462-0367-90 ")
+430 ;;1783
+431 ;;21,"68462-0368-10 ")
+432 ;;1858
+433 ;;21,"68462-0368-90 ")
+434 ;;1859
+435 ;;21,"68462-0369-10 ")
+436 ;;1911
+437 ;;21,"68462-0369-90 ")
+438 ;;1912
+439 ;;21,"68462-0554-01 ")
+440 ;;332
+441 ;;21,"68462-0555-01 ")
+442 ;;341
+443 ;;21,"68552-0221-10 ")
+444 ;;1784
+445 ;;21,"68552-0221-90 ")
+446 ;;1785
+447 ;;21,"68552-0222-10 ")
+448 ;;1860
+449 ;;21,"68552-0222-90 ")
+450 ;;1861
+451 ;;21,"68552-0223-10 ")
+452 ;;1913
+453 ;;21,"68552-0223-90 ")
+454 ;;1914
+455 ;;21,"68645-0160-59 ")
+456 ;;1007
+457 ;;21,"68645-0161-59 ")
+458 ;;1124
+459 ;;21,"68645-0162-59 ")
+460 ;;1226
+461 ;;21,"68645-0163-59 ")
+462 ;;937
+463 ;;21,"68645-0272-54 ")
+464 ;;2458
+465 ;;9002226,1196,.01)
+466 ;;BGP PQA ACEI ARB NDC
+467 ;;9002226,1196,.02)
+468 ;;@
+469 ;;9002226,1196,.04)
+470 ;;n
+471 ;;9002226,1196,.06)
+472 ;;@
+473 ;;9002226,1196,.08)
+474 ;;@
+475 ;;9002226,1196,.09)
+476 ;;@
+477 ;;9002226,1196,.11)
+478 ;;@
+479 ;;9002226,1196,.12)
+480 ;;@
+481 ;;9002226,1196,.13)
+482 ;;1
+483 ;;9002226,1196,.14)
+484 ;;@
+485 ;;9002226,1196,.15)
+486 ;;@
+487 ;;9002226,1196,.16)
+488 ;;@
+489 ;;9002226,1196,.17)
+490 ;;@
+491 ;;9002226,1196,3101)
+492 ;;@
+493 ;;9002226.02101,"1196,00003-0338-50 ",.01)
+494 ;;00003-0338-50
+495 ;;9002226.02101,"1196,00003-0338-50 ",.02)
+496 ;;00003-0338-50
+497 ;;9002226.02101,"1196,00003-0349-50 ",.01)
+498 ;;00003-0349-50
+499 ;;9002226.02101,"1196,00003-0349-50 ",.02)
+500 ;;00003-0349-50
+501 ;;9002226.02101,"1196,00003-0384-50 ",.01)
+502 ;;00003-0384-50
+503 ;;9002226.02101,"1196,00003-0384-50 ",.02)
+504 ;;00003-0384-50
+505 ;;9002226.02101,"1196,00003-0390-50 ",.01)
+506 ;;00003-0390-50
+507 ;;9002226.02101,"1196,00003-0390-50 ",.02)
+508 ;;00003-0390-50
+509 ;;9002226.02101,"1196,00003-0450-51 ",.01)
+510 ;;00003-0450-51
+511 ;;9002226.02101,"1196,00003-0450-51 ",.02)
+512 ;;00003-0450-51
+513 ;;9002226.02101,"1196,00003-0450-54 ",.01)
+514 ;;00003-0450-54
+515 ;;9002226.02101,"1196,00003-0450-54 ",.02)
+516 ;;00003-0450-54
+517 ;;9002226.02101,"1196,00003-0450-75 ",.01)
+518 ;;00003-0450-75
+519 ;;9002226.02101,"1196,00003-0450-75 ",.02)
+520 ;;00003-0450-75
+521 ;;9002226.02101,"1196,00003-0452-50 ",.01)
+522 ;;00003-0452-50
+523 ;;9002226.02101,"1196,00003-0452-50 ",.02)
+524 ;;00003-0452-50
+525 ;;9002226.02101,"1196,00003-0452-51 ",.01)
+526 ;;00003-0452-51
+527 ;;9002226.02101,"1196,00003-0452-51 ",.02)
+528 ;;00003-0452-51
+529 ;;9002226.02101,"1196,00003-0452-75 ",.01)
+530 ;;00003-0452-75
+531 ;;9002226.02101,"1196,00003-0452-75 ",.02)
+532 ;;00003-0452-75
+533 ;;9002226.02101,"1196,00003-0482-50 ",.01)
+534 ;;00003-0482-50
+535 ;;9002226.02101,"1196,00003-0482-50 ",.02)
+536 ;;00003-0482-50
+537 ;;9002226.02101,"1196,00003-0482-51 ",.01)
+538 ;;00003-0482-51
+539 ;;9002226.02101,"1196,00003-0482-51 ",.02)
+540 ;;00003-0482-51
+541 ;;9002226.02101,"1196,00003-0482-75 ",.01)
+542 ;;00003-0482-75
+543 ;;9002226.02101,"1196,00003-0482-75 ",.02)
+544 ;;00003-0482-75
+545 ;;9002226.02101,"1196,00003-0485-50 ",.01)
+546 ;;00003-0485-50
+547 ;;9002226.02101,"1196,00003-0485-50 ",.02)
+548 ;;00003-0485-50
+549 ;;9002226.02101,"1196,00006-0014-28 ",.01)
+550 ;;00006-0014-28
+551 ;;9002226.02101,"1196,00006-0014-28 ",.02)
+552 ;;00006-0014-28
+553 ;;9002226.02101,"1196,00006-0014-68 ",.01)
+554 ;;00006-0014-68
+555 ;;9002226.02101,"1196,00006-0014-68 ",.02)
+556 ;;00006-0014-68
+557 ;;9002226.02101,"1196,00006-0014-82 ",.01)
+558 ;;00006-0014-82
+559 ;;9002226.02101,"1196,00006-0014-82 ",.02)
+560 ;;00006-0014-82
+561 ;;9002226.02101,"1196,00006-0014-87 ",.01)
+562 ;;00006-0014-87
+563 ;;9002226.02101,"1196,00006-0014-87 ",.02)
+564 ;;00006-0014-87
+565 ;;9002226.02101,"1196,00006-0014-94 ",.01)
+566 ;;00006-0014-94
+567 ;;9002226.02101,"1196,00006-0014-94 ",.02)
+568 ;;00006-0014-94
+569 ;;9002226.02101,"1196,00006-0015-28 ",.01)
+570 ;;00006-0015-28
+571 ;;9002226.02101,"1196,00006-0015-28 ",.02)
+572 ;;00006-0015-28
+573 ;;9002226.02101,"1196,00006-0015-31 ",.01)
+574 ;;00006-0015-31
+575 ;;9002226.02101,"1196,00006-0015-31 ",.02)
+576 ;;00006-0015-31
+577 ;;9002226.02101,"1196,00006-0015-58 ",.01)
+578 ;;00006-0015-58
+579 ;;9002226.02101,"1196,00006-0015-58 ",.02)
+580 ;;00006-0015-58
+581 ;;9002226.02101,"1196,00006-0019-28 ",.01)
+582 ;;00006-0019-28
+583 ;;9002226.02101,"1196,00006-0019-28 ",.02)
+584 ;;00006-0019-28
+585 ;;9002226.02101,"1196,00006-0019-54 ",.01)
+586 ;;00006-0019-54
+587 ;;9002226.02101,"1196,00006-0019-54 ",.02)
+588 ;;00006-0019-54
+589 ;;9002226.02101,"1196,00006-0019-58 ",.01)
+590 ;;00006-0019-58
+591 ;;9002226.02101,"1196,00006-0019-58 ",.02)
+592 ;;00006-0019-58
+593 ;;9002226.02101,"1196,00006-0019-72 ",.01)
+594 ;;00006-0019-72
+595 ;;9002226.02101,"1196,00006-0019-72 ",.02)
+596 ;;00006-0019-72
+597 ;;9002226.02101,"1196,00006-0019-82 ",.01)
+598 ;;00006-0019-82
+599 ;;9002226.02101,"1196,00006-0019-82 ",.02)
+600 ;;00006-0019-82
+601 ;;9002226.02101,"1196,00006-0019-86 ",.01)
+602 ;;00006-0019-86
+603 ;;9002226.02101,"1196,00006-0019-86 ",.02)
+604 ;;00006-0019-86
+605 ;;9002226.02101,"1196,00006-0019-87 ",.01)
+606 ;;00006-0019-87
+607 ;;9002226.02101,"1196,00006-0019-87 ",.02)
+608 ;;00006-0019-87
+609 ;;9002226.02101,"1196,00006-0019-94 ",.01)
+610 ;;00006-0019-94
+611 ;;9002226.02101,"1196,00006-0019-94 ",.02)
+612 ;;00006-0019-94
+613 ;;9002226.02101,"1196,00006-0106-28 ",.01)
+614 ;;00006-0106-28
+615 ;;9002226.02101,"1196,00006-0106-28 ",.02)
+616 ;;00006-0106-28
+617 ;;9002226.02101,"1196,00006-0106-31 ",.01)
+618 ;;00006-0106-31
+619 ;;9002226.02101,"1196,00006-0106-31 ",.02)
+620 ;;00006-0106-31
+621 ;;9002226.02101,"1196,00006-0106-54 ",.01)
+622 ;;00006-0106-54
+623 ;;9002226.02101,"1196,00006-0106-54 ",.02)
+624 ;;00006-0106-54
+625 ;;9002226.02101,"1196,00006-0106-58 ",.01)
+626 ;;00006-0106-58
+627 ;;9002226.02101,"1196,00006-0106-58 ",.02)
+628 ;;00006-0106-58
+629 ;;9002226.02101,"1196,00006-0106-72 ",.01)
+630 ;;00006-0106-72
+631 ;;9002226.02101,"1196,00006-0106-72 ",.02)
+632 ;;00006-0106-72
+633 ;;9002226.02101,"1196,00006-0106-82 ",.01)
+634 ;;00006-0106-82
+635 ;;9002226.02101,"1196,00006-0106-82 ",.02)
+636 ;;00006-0106-82
+637 ;;9002226.02101,"1196,00006-0106-87 ",.01)
+638 ;;00006-0106-87
+639 ;;9002226.02101,"1196,00006-0106-87 ",.02)
+640 ;;00006-0106-87
+641 ;;9002226.02101,"1196,00006-0106-94 ",.01)
+642 ;;00006-0106-94
+643 ;;9002226.02101,"1196,00006-0106-94 ",.02)
+644 ;;00006-0106-94
+645 ;;9002226.02101,"1196,00006-0140-31 ",.01)
+646 ;;00006-0140-31
+647 ;;9002226.02101,"1196,00006-0140-31 ",.02)
+648 ;;00006-0140-31
+649 ;;9002226.02101,"1196,00006-0140-58 ",.01)
+650 ;;00006-0140-58
+651 ;;9002226.02101,"1196,00006-0140-58 ",.02)
+652 ;;00006-0140-58
+653 ;;9002226.02101,"1196,00006-0142-31 ",.01)
+654 ;;00006-0142-31
