BGP44N6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
;
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,"66336-0772-90 ")
;;1737
;;21,"66336-0808-30 ")
;;1631
;;21,"66336-0808-60 ")
;;1632
;;21,"66336-0808-62 ")
;;1633
;;21,"66336-0808-90 ")
;;1634
;;21,"66336-0811-90 ")
;;2061
;;21,"66336-0837-30 ")
;;1834
;;21,"66336-0837-60 ")
;;1835
;;21,"66336-0837-62 ")
;;1836
;;21,"66336-0837-90 ")
;;1837
;;21,"66336-0914-30 ")
;;776
;;21,"66336-0914-60 ")
;;777
;;21,"66336-0914-90 ")
;;778
;;21,"67544-0043-30 ")
;;1621
;;21,"67544-0043-53 ")
;;1622
;;21,"67544-0043-60 ")
;;1623
;;21,"67544-0043-80 ")
;;1624
;;21,"67544-0076-30 ")
;;1334
;;21,"67544-0076-45 ")
;;1335
;;21,"67544-0076-53 ")
;;1336
;;21,"67544-0076-60 ")
;;1337
;;21,"67544-0076-70 ")
;;1338
;;21,"67544-0076-73 ")
;;1339
;;21,"67544-0076-80 ")
;;1340
;;21,"67544-0076-86 ")
;;1341
;;21,"67544-0076-92 ")
;;1342
;;21,"67544-0076-94 ")
;;1343
;;21,"67544-0077-53 ")
;;1470
;;21,"67544-0077-60 ")
;;1471
;;21,"67544-0077-70 ")
;;1472
;;21,"67544-0077-80 ")
;;1473
;;21,"67544-0087-30 ")
;;511
;;21,"67544-0087-45 ")
;;512
;;21,"67544-0087-53 ")
;;513
;;21,"67544-0087-60 ")
;;514
;;21,"67544-0087-70 ")
;;515
;;21,"67544-0087-73 ")
;;516
;;21,"67544-0087-80 ")
;;517
;;21,"67544-0087-92 ")
;;518
;;21,"67544-0122-30 ")
;;1276
;;21,"67544-0122-45 ")
;;1277
;;21,"67544-0122-53 ")
;;1278
;;21,"67544-0122-60 ")
;;1279
;;21,"67544-0122-70 ")
;;1280
;;21,"67544-0122-73 ")
;;1281
;;21,"67544-0122-80 ")
;;1282
;;21,"67544-0122-86 ")
;;1283
;;21,"67544-0122-92 ")
;;1284
;;21,"67544-0130-30 ")
;;1497
;;21,"67544-0130-45 ")
;;1498
;;21,"67544-0130-53 ")
;;1499
;;21,"67544-0130-60 ")
;;1500
;;21,"67544-0130-70 ")
;;1501
;;21,"67544-0130-80 ")
;;1502
;;21,"67544-0143-30 ")
;;1723
;;21,"67544-0143-53 ")
;;1724
;;21,"67544-0143-60 ")
;;1725
;;21,"67544-0143-70 ")
;;1726
;;21,"67544-0143-80 ")
;;1727
;;21,"67544-0161-30 ")
;;423
;;21,"67544-0161-45 ")
;;424
;;21,"67544-0161-60 ")
;;425
;;21,"67544-0161-80 ")
;;426
;;21,"67544-0161-92 ")
;;427
;;21,"67544-0208-30 ")
;;1932
;;21,"67544-0208-53 ")
;;1933
;;21,"67544-0208-60 ")
;;1934
;;21,"67544-0208-80 ")
;;1935
;;21,"67544-0208-87 ")
;;1936
;;21,"67544-0240-30 ")
;;501
;;21,"67544-0240-45 ")
;;502
;;21,"67544-0240-60 ")
;;503
;;21,"67544-0240-80 ")
;;504
;;21,"67544-0272-30 ")
;;1314
;;21,"67544-0272-45 ")
;;1315
;;21,"67544-0272-53 ")
;;1316
;;21,"67544-0272-60 ")
;;1317
;;21,"67544-0272-70 ")
;;1318
;;21,"67544-0272-73 ")
;;1319
;;21,"67544-0272-80 ")
;;1320
;;21,"67544-0272-86 ")
;;1321
;;21,"67544-0272-92 ")
;;1322
;;21,"67544-0272-94 ")
;;1323
;;21,"67544-0282-30 ")
;;981
;;21,"67544-0282-45 ")
;;982
;;21,"67544-0282-82 ")
;;983
;;21,"67544-0282-99 ")
;;984
;;21,"67544-0305-30 ")
;;1825
;;21,"67544-0305-53 ")
;;1826
;;21,"67544-0305-60 ")
;;1827
;;21,"67544-0326-15 ")
;;579
;;21,"67544-0326-30 ")
;;580
;;21,"67544-0326-45 ")
;;581
;;21,"67544-0326-60 ")
;;582
;;21,"67544-0326-73 ")
;;583
;;21,"67544-0326-80 ")
;;584
;;21,"67544-0332-60 ")
;;737
;;21,"67544-0376-30 ")
;;667
;;21,"67544-0376-45 ")
;;668
;;21,"67544-0376-60 ")
;;669
;;21,"67544-0376-70 ")
;;670
;;21,"67544-0376-73 ")
;;671
;;21,"67544-0376-80 ")
;;672
;;21,"67544-0387-30 ")
;;1169
;;21,"67544-0387-60 ")
;;1170
;;21,"67544-0387-80 ")
;;1171
;;21,"67544-0491-45 ")
;;1020
;;21,"67544-0491-53 ")
;;1057
;;21,"67544-0491-60 ")
;;1058
;;21,"67544-0491-80 ")
;;1059
;;21,"67544-0491-82 ")
;;1060
;;21,"67544-0491-99 ")
;;1061
;;21,"67544-0565-60 ")
;;491
;;21,"67544-0567-30 ")
;;1129
;;21,"67544-0567-53 ")
;;1130
;;21,"67544-0567-60 ")
;;1164
;;21,"67544-0567-70 ")
;;1126
;;21,"67544-0567-80 ")
;;1165
;;21,"67544-0567-92 ")
;;1127
;;21,"67544-0567-98 ")
;;1128
;;21,"67544-0573-82 ")
;;1101
;;21,"67544-0573-99 ")
;;1102
;;21,"67544-0627-53 ")
;;1422
;;21,"67544-0627-60 ")
;;1423
;;21,"67544-0627-80 ")
;;1424
;;21,"67544-0911-30 ")
;;1241
;;21,"67544-0911-45 ")
;;1242
;;21,"67544-0911-53 ")
;;1243
;;21,"67544-0911-60 ")
;;1244
;;21,"67544-0911-70 ")
;;1245
;;21,"67544-0911-73 ")
;;1246
;;21,"67544-0911-80 ")
;;1247
;;21,"67544-0911-92 ")
;;1248
;;21,"67544-0911-94 ")
;;1249
;;21,"67544-0911-98 ")
;;1250
;;21,"67544-0929-60 ")
;;177
;;21,"67544-1055-30 ")
;;2131
;;21,"67544-1123-53 ")
;;1863
;;21,"67544-1135-30 ")
;;1864
;;21,"67544-1135-53 ")
;;1865
;;21,"67544-1135-60 ")
;;1866
;;21,"67544-1143-53 ")
;;1647
;;21,"67544-1143-60 ")
;;1648
;;21,"67544-1143-80 ")
;;1649
;;21,"67544-1145-53 ")
;;1566
;;21,"67544-1145-60 ")
;;1567
;;21,"67544-1146-30 ")
;;1751
;;21,"67544-1146-60 ")
;;1752
;;21,"67544-1159-30 ")
;;1859
;;21,"67544-1159-53 ")
;;1860
;;21,"67544-1159-60 ")
;;1861
;;21,"67544-1159-80 ")
;;1862
;;21,"67544-1160-82 ")
;;1043
;;21,"67544-1182-53 ")
;;1650
;;21,"67544-1182-80 ")
;;1651
;;21,"67544-1187-30 ")
;;1747
;;21,"67544-1187-53 ")
;;1748
;;21,"67544-1187-60 ")
;;1749
;;21,"67544-1199-99 ")
;;1097
;;21,"67857-0700-01 ")
;;382
;;21,"67857-0701-01 ")
;;387
;;21,"68084-0209-01 ")
;;267
;;21,"68084-0209-11 ")
;;268
;;21,"68084-0210-01 ")
;;296
;;21,"68084-0210-11 ")
;;297
;;21,"68084-0211-01 ")
;;320
;;21,"68084-0211-11 ")
;;321
;;21,"68084-0212-01 ")
;;344
;;21,"68084-0212-11 ")
;;345
;;21,"68084-0261-01 ")
;;1549
;;21,"68084-0261-11 ")
;;1550
;;21,"68084-0262-01 ")
;;1663
;;21,"68084-0262-11 ")
;;1664
;;21,"68084-0263-01 ")
;;1769
;;21,"68084-0263-11 ")
;;1770
;;21,"68084-0264-01 ")
;;1876
;;21,"68084-0264-11 ")
;;1877
;;21,"68084-0301-01 ")
;;1038
;;21,"68084-0301-11 ")
;;1039
;;21,"68084-0302-11 ")
;;1086
;;21,"68084-0302-21 ")
;;1087
;;21,"68084-0303-01 ")
;;888
;;21,"68084-0303-11 ")
;;889
;;21,"68084-0304-01 ")
;;942
;;21,"68084-0304-11 ")
;;943
;;21,"68084-0456-01 ")
;;2023
;;21,"68084-0456-11 ")
;;2024
;;21,"68084-0457-01 ")
;;2039
;;21,"68084-0457-11 ")
;;2040
;;21,"68084-0487-11 ")
;;804
;;21,"68084-0487-21 ")
;;805
;;21,"68084-0503-01 ")
;;272
;;21,"68084-0503-11 ")
;;273
;;21,"68084-0504-01 ")
;;298
;;21,"68084-0504-11 ")
;;299
;;21,"68258-6010-01 ")
;;110
;;21,"68258-6010-03 ")
;;111
;;21,"68258-6010-09 ")
;;112
;;21,"68258-6011-03 ")
;;199
;;21,"68258-6011-09 ")
;;200
;;21,"68258-6015-03 ")
;;1562
;;21,"68258-6015-08 ")
;;1563
;;21,"68258-6018-03 ")
;;871
;;21,"68258-6018-09 ")
;;872
;;21,"68258-6019-03 ")
;;961
;;21,"68258-6019-06 ")
;;962
;;21,"68258-6019-09 ")
;;963
;;21,"68258-6020-03 ")
;;1052
;;21,"68258-6020-09 ")
;;1053
;;21,"68258-6026-03 ")
;;1988
;;21,"68258-6026-09 ")
;;1989
;;21,"68258-6033-03 ")
;;1150
;;21,"68258-6033-06 ")
;;1151
;;21,"68258-6033-09 ")
;;1152
;;21,"68258-6034-03 ")
;;27
;;21,"68258-6039-03 ")
;;352
;;21,"68258-6047-03 ")
;;2012
;;21,"68258-6047-09 ")
;;2013
;;21,"68258-6057-06 ")
;;96
;;21,"68258-6062-03 ")
;;303
;;21,"68258-6063-03 ")
;;2105
;;21,"68258-6064-03 ")
;;2118
;;21,"68258-6091-03 ")
;;281
;;21,"68258-6092-03 ")
;;801
;;21,"68258-6093-03 ")
;;824
;;21,"68258-6104-03 ")
;;2183
;;21,"68258-6104-09 ")
;;2184
;;21,"68258-6982-30 ")
;;1544
;;21,"68258-6987-03 ")
;;1541
;;21,"68258-6988-03 ")
;;1527
;;21,"68382-0022-01 ")
;;499
;;21,"68382-0022-10 ")
;;500
;;21,"68382-0023-01 ")
;;592
;;21,"68382-0023-10 ")
;;593
;;21,"68382-0024-01 ")
;;751
;;21,"68382-0024-10 ")
;;752
;;21,"68382-0092-01 ")
;;1606
;;21,"68382-0092-05 ")
;;1607
;;21,"68382-0092-17 ")
;;1608
;;21,"68382-0093-01 ")
;;1716
;;21,"68382-0093-05 ")
;;1717
;;21,"68382-0093-17 ")
;;1718
;;21,"68382-0094-01 ")
;;1806
;;21,"68382-0094-05 ")
;;1807
;;21,"68382-0094-17 ")
;;1808
;;21,"68382-0095-01 ")
;;1898
;;21,"68382-0095-05 ")
;;1899
;;21,"68382-0095-17 ")
;;1900
;;21,"68387-0538-30 ")
;;660
;;21,"68387-0539-30 ")
;;771
;;21,"68462-0162-01 ")
;;1554
;;21,"68462-0162-05 ")
;;1555
;;21,"68462-0163-01 ")
;;1654
;;21,"68462-0163-05 ")
;;1655
;;21,"68462-0164-01 ")
;;1760
;;21,"68462-0164-05 ")
;;1761
;;21,"68462-0165-01 ")
;;1867
;;21,"68462-0165-05 ")
;;1868
;;21,"68645-0190-59 ")
;;1354
;;21,"68645-0191-59 ")
;;1482
;;21,"68645-0310-54 ")
;;547
;;21,"68645-0350-59 ")
;;1668
;;21,"68645-0351-59 ")
;;1765
;;21,"68645-0352-59 ")
;;1878
;;9002226,1195,.01)
;;BGP PQA BETA BLOCKER NDC
;;9002226,1195,.02)
;;@
;;9002226,1195,.04)
;;n
;;9002226,1195,.06)
;;@
;;9002226,1195,.08)
;;@
;;9002226,1195,.09)
;;3130911
;;9002226,1195,.11)
;;@
;;9002226,1195,.12)
;;@
;;9002226,1195,.13)
;;1
;;9002226,1195,.14)
;;@
;;9002226,1195,.15)
;;@
;;9002226,1195,.16)
;;@
;;9002226,1195,.17)
;;@
;;9002226,1195,3101)
;;@
;;9002226.02101,"1195,00007-3370-13 ",.01)
;;00007-3370-13
;;9002226.02101,"1195,00007-3370-13 ",.02)
;;00007-3370-13
;;9002226.02101,"1195,00007-3371-13 ",.01)
;;00007-3371-13
;;9002226.02101,"1195,00007-3371-13 ",.02)
;;00007-3371-13
;;9002226.02101,"1195,00007-3372-13 ",.01)
;;00007-3372-13
;;9002226.02101,"1195,00007-3372-13 ",.02)
;;00007-3372-13
;;9002226.02101,"1195,00007-3373-13 ",.01)
;;00007-3373-13
;;9002226.02101,"1195,00007-3373-13 ",.02)
;;00007-3373-13
;;9002226.02101,"1195,00007-4139-20 ",.01)
;;00007-4139-20
;;9002226.02101,"1195,00007-4139-20 ",.02)
;;00007-4139-20
;;9002226.02101,"1195,00007-4140-20 ",.01)
;;00007-4140-20
;;9002226.02101,"1195,00007-4140-20 ",.02)
;;00007-4140-20
;;9002226.02101,"1195,00007-4141-20 ",.01)
;;00007-4141-20
;;9002226.02101,"1195,00007-4141-20 ",.02)
;;00007-4141-20
;;9002226.02101,"1195,00007-4142-20 ",.01)
;;00007-4142-20
;;9002226.02101,"1195,00007-4142-20 ",.02)
;;00007-4142-20
;;9002226.02101,"1195,00024-2300-20 ",.01)
;;00024-2300-20
;;9002226.02101,"1195,00024-2300-20 ",.02)
;;00024-2300-20
;;9002226.02101,"1195,00024-2301-10 ",.01)
;;00024-2301-10
;;9002226.02101,"1195,00024-2301-10 ",.02)
;;00024-2301-10
;;9002226.02101,"1195,00054-3727-63 ",.01)
;;00054-3727-63
;;9002226.02101,"1195,00054-3727-63 ",.02)
;;00054-3727-63
;;9002226.02101,"1195,00054-3730-63 ",.01)
;;00054-3730-63
;;9002226.02101,"1195,00054-3730-63 ",.02)
;;00054-3730-63
;;9002226.02101,"1195,00078-0458-05 ",.01)
;;00078-0458-05
;;9002226.02101,"1195,00078-0458-05 ",.02)
;;00078-0458-05
;;9002226.02101,"1195,00078-0459-05 ",.01)
;;00078-0459-05
;;9002226.02101,"1195,00078-0459-05 ",.02)
;;00078-0459-05
;;9002226.02101,"1195,00078-0460-05 ",.01)
;;00078-0460-05
;;9002226.02101,"1195,00078-0460-05 ",.02)
;;00078-0460-05
;;9002226.02101,"1195,00078-0461-05 ",.01)
;;00078-0461-05
;;9002226.02101,"1195,00078-0461-05 ",.02)
;;00078-0461-05
;;9002226.02101,"1195,00091-4500-15 ",.01)
;;00091-4500-15
;;9002226.02101,"1195,00091-4500-15 ",.02)
;;00091-4500-15
;;9002226.02101,"1195,00093-0051-01 ",.01)
;;00093-0051-01
;;9002226.02101,"1195,00093-0051-01 ",.02)
;;00093-0051-01
;;9002226.02101,"1195,00093-0051-05 ",.01)
;;00093-0051-05
;;9002226.02101,"1195,00093-0051-05 ",.02)
;;00093-0051-05
;;9002226.02101,"1195,00093-0135-01 ",.01)
;;00093-0135-01
;;9002226.02101,"1195,00093-0135-01 ",.02)
;;00093-0135-01
;;9002226.02101,"1195,00093-0135-05 ",.01)
;;00093-0135-05
;;9002226.02101,"1195,00093-0135-05 ",.02)
;;00093-0135-05
;;9002226.02101,"1195,00093-0733-01 ",.01)
;;00093-0733-01
;;9002226.02101,"1195,00093-0733-01 ",.02)
;;00093-0733-01
;;9002226.02101,"1195,00093-0733-10 ",.01)
;;00093-0733-10
;;9002226.02101,"1195,00093-0733-10 ",.02)
;;00093-0733-10
;;9002226.02101,"1195,00093-0734-01 ",.01)
;;00093-0734-01
;;9002226.02101,"1195,00093-0734-01 ",.02)
;;00093-0734-01
;;9002226.02101,"1195,00093-0734-10 ",.01)
;;00093-0734-10
;;9002226.02101,"1195,00093-0734-10 ",.02)
;;00093-0734-10
;;9002226.02101,"1195,00093-0752-01 ",.01)
;;00093-0752-01
;;9002226.02101,"1195,00093-0752-01 ",.02)
;;00093-0752-01
;;9002226.02101,"1195,00093-0752-10 ",.01)
;;00093-0752-10
;;9002226.02101,"1195,00093-0752-10 ",.02)
;;00093-0752-10
;;9002226.02101,"1195,00093-0753-01 ",.01)
;;00093-0753-01
;;9002226.02101,"1195,00093-0753-01 ",.02)
;;00093-0753-01
;;9002226.02101,"1195,00093-0753-05 ",.01)
;;00093-0753-05
;;9002226.02101,"1195,00093-0753-05 ",.02)
;;00093-0753-05
;;9002226.02101,"1195,00093-0787-01 ",.01)
;;00093-0787-01
;;9002226.02101,"1195,00093-0787-01 ",.02)
;;00093-0787-01
;;9002226.02101,"1195,00093-0787-10 ",.01)
;;00093-0787-10
;;9002226.02101,"1195,00093-0787-10 ",.02)
;;00093-0787-10
;;9002226.02101,"1195,00093-4235-01 ",.01)
;;00093-4235-01
BGP44N6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
+1 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
+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,"66336-0772-90 ")
+2 ;;1737
+3 ;;21,"66336-0808-30 ")
+4 ;;1631
+5 ;;21,"66336-0808-60 ")
+6 ;;1632
+7 ;;21,"66336-0808-62 ")
+8 ;;1633
+9 ;;21,"66336-0808-90 ")
+10 ;;1634
+11 ;;21,"66336-0811-90 ")
+12 ;;2061
+13 ;;21,"66336-0837-30 ")
+14 ;;1834
+15 ;;21,"66336-0837-60 ")
+16 ;;1835
+17 ;;21,"66336-0837-62 ")
+18 ;;1836
+19 ;;21,"66336-0837-90 ")
+20 ;;1837
+21 ;;21,"66336-0914-30 ")
+22 ;;776
+23 ;;21,"66336-0914-60 ")
+24 ;;777
+25 ;;21,"66336-0914-90 ")
+26 ;;778
+27 ;;21,"67544-0043-30 ")
+28 ;;1621
+29 ;;21,"67544-0043-53 ")
+30 ;;1622
+31 ;;21,"67544-0043-60 ")
+32 ;;1623
+33 ;;21,"67544-0043-80 ")
+34 ;;1624
+35 ;;21,"67544-0076-30 ")
+36 ;;1334
+37 ;;21,"67544-0076-45 ")
+38 ;;1335
+39 ;;21,"67544-0076-53 ")
+40 ;;1336
+41 ;;21,"67544-0076-60 ")
+42 ;;1337
+43 ;;21,"67544-0076-70 ")
+44 ;;1338
+45 ;;21,"67544-0076-73 ")
+46 ;;1339
+47 ;;21,"67544-0076-80 ")
+48 ;;1340
+49 ;;21,"67544-0076-86 ")
+50 ;;1341
+51 ;;21,"67544-0076-92 ")
+52 ;;1342
+53 ;;21,"67544-0076-94 ")
+54 ;;1343
+55 ;;21,"67544-0077-53 ")
+56 ;;1470
+57 ;;21,"67544-0077-60 ")
+58 ;;1471
+59 ;;21,"67544-0077-70 ")
+60 ;;1472
+61 ;;21,"67544-0077-80 ")
+62 ;;1473
+63 ;;21,"67544-0087-30 ")
+64 ;;511
+65 ;;21,"67544-0087-45 ")
+66 ;;512
+67 ;;21,"67544-0087-53 ")
+68 ;;513
+69 ;;21,"67544-0087-60 ")
+70 ;;514
+71 ;;21,"67544-0087-70 ")
+72 ;;515
+73 ;;21,"67544-0087-73 ")
+74 ;;516
+75 ;;21,"67544-0087-80 ")
+76 ;;517
+77 ;;21,"67544-0087-92 ")
+78 ;;518
+79 ;;21,"67544-0122-30 ")
+80 ;;1276
+81 ;;21,"67544-0122-45 ")
+82 ;;1277
+83 ;;21,"67544-0122-53 ")
+84 ;;1278
+85 ;;21,"67544-0122-60 ")
+86 ;;1279
+87 ;;21,"67544-0122-70 ")
+88 ;;1280
+89 ;;21,"67544-0122-73 ")
+90 ;;1281
+91 ;;21,"67544-0122-80 ")
+92 ;;1282
+93 ;;21,"67544-0122-86 ")
+94 ;;1283
+95 ;;21,"67544-0122-92 ")
+96 ;;1284
+97 ;;21,"67544-0130-30 ")
+98 ;;1497
+99 ;;21,"67544-0130-45 ")
+100 ;;1498
+101 ;;21,"67544-0130-53 ")
+102 ;;1499
+103 ;;21,"67544-0130-60 ")
+104 ;;1500
+105 ;;21,"67544-0130-70 ")
+106 ;;1501
+107 ;;21,"67544-0130-80 ")
+108 ;;1502
+109 ;;21,"67544-0143-30 ")
+110 ;;1723
+111 ;;21,"67544-0143-53 ")
+112 ;;1724
+113 ;;21,"67544-0143-60 ")
+114 ;;1725
+115 ;;21,"67544-0143-70 ")
+116 ;;1726
+117 ;;21,"67544-0143-80 ")
+118 ;;1727
+119 ;;21,"67544-0161-30 ")
+120 ;;423
+121 ;;21,"67544-0161-45 ")
+122 ;;424
+123 ;;21,"67544-0161-60 ")
+124 ;;425
+125 ;;21,"67544-0161-80 ")
+126 ;;426
+127 ;;21,"67544-0161-92 ")
+128 ;;427
+129 ;;21,"67544-0208-30 ")
+130 ;;1932
+131 ;;21,"67544-0208-53 ")
+132 ;;1933
+133 ;;21,"67544-0208-60 ")
+134 ;;1934
+135 ;;21,"67544-0208-80 ")
+136 ;;1935
+137 ;;21,"67544-0208-87 ")
+138 ;;1936
+139 ;;21,"67544-0240-30 ")
+140 ;;501
+141 ;;21,"67544-0240-45 ")
+142 ;;502
+143 ;;21,"67544-0240-60 ")
+144 ;;503
+145 ;;21,"67544-0240-80 ")
+146 ;;504
+147 ;;21,"67544-0272-30 ")
+148 ;;1314
+149 ;;21,"67544-0272-45 ")
+150 ;;1315
+151 ;;21,"67544-0272-53 ")
+152 ;;1316
+153 ;;21,"67544-0272-60 ")
+154 ;;1317
+155 ;;21,"67544-0272-70 ")
+156 ;;1318
+157 ;;21,"67544-0272-73 ")
+158 ;;1319
+159 ;;21,"67544-0272-80 ")
+160 ;;1320
+161 ;;21,"67544-0272-86 ")
+162 ;;1321
+163 ;;21,"67544-0272-92 ")
+164 ;;1322
+165 ;;21,"67544-0272-94 ")
+166 ;;1323
+167 ;;21,"67544-0282-30 ")
+168 ;;981
+169 ;;21,"67544-0282-45 ")
+170 ;;982
+171 ;;21,"67544-0282-82 ")
+172 ;;983
+173 ;;21,"67544-0282-99 ")
+174 ;;984
+175 ;;21,"67544-0305-30 ")
+176 ;;1825
+177 ;;21,"67544-0305-53 ")
+178 ;;1826
+179 ;;21,"67544-0305-60 ")
+180 ;;1827
+181 ;;21,"67544-0326-15 ")
+182 ;;579
+183 ;;21,"67544-0326-30 ")
+184 ;;580
+185 ;;21,"67544-0326-45 ")
+186 ;;581
+187 ;;21,"67544-0326-60 ")
+188 ;;582
+189 ;;21,"67544-0326-73 ")
+190 ;;583
+191 ;;21,"67544-0326-80 ")
+192 ;;584
+193 ;;21,"67544-0332-60 ")
+194 ;;737
+195 ;;21,"67544-0376-30 ")
+196 ;;667
+197 ;;21,"67544-0376-45 ")
+198 ;;668
+199 ;;21,"67544-0376-60 ")
+200 ;;669
+201 ;;21,"67544-0376-70 ")
+202 ;;670
+203 ;;21,"67544-0376-73 ")
+204 ;;671
+205 ;;21,"67544-0376-80 ")
+206 ;;672
+207 ;;21,"67544-0387-30 ")
+208 ;;1169
+209 ;;21,"67544-0387-60 ")
+210 ;;1170
+211 ;;21,"67544-0387-80 ")
+212 ;;1171
+213 ;;21,"67544-0491-45 ")
+214 ;;1020
+215 ;;21,"67544-0491-53 ")
+216 ;;1057
+217 ;;21,"67544-0491-60 ")
+218 ;;1058
+219 ;;21,"67544-0491-80 ")
+220 ;;1059
+221 ;;21,"67544-0491-82 ")
+222 ;;1060
+223 ;;21,"67544-0491-99 ")
+224 ;;1061
+225 ;;21,"67544-0565-60 ")
+226 ;;491
+227 ;;21,"67544-0567-30 ")
+228 ;;1129
+229 ;;21,"67544-0567-53 ")
+230 ;;1130
+231 ;;21,"67544-0567-60 ")
+232 ;;1164
+233 ;;21,"67544-0567-70 ")
+234 ;;1126
+235 ;;21,"67544-0567-80 ")
+236 ;;1165
+237 ;;21,"67544-0567-92 ")
+238 ;;1127
+239 ;;21,"67544-0567-98 ")
+240 ;;1128
+241 ;;21,"67544-0573-82 ")
+242 ;;1101
+243 ;;21,"67544-0573-99 ")
+244 ;;1102
+245 ;;21,"67544-0627-53 ")
+246 ;;1422
+247 ;;21,"67544-0627-60 ")
+248 ;;1423
+249 ;;21,"67544-0627-80 ")
+250 ;;1424
+251 ;;21,"67544-0911-30 ")
+252 ;;1241
+253 ;;21,"67544-0911-45 ")
+254 ;;1242
+255 ;;21,"67544-0911-53 ")
+256 ;;1243
+257 ;;21,"67544-0911-60 ")
+258 ;;1244
+259 ;;21,"67544-0911-70 ")
+260 ;;1245
+261 ;;21,"67544-0911-73 ")
+262 ;;1246
+263 ;;21,"67544-0911-80 ")
+264 ;;1247
+265 ;;21,"67544-0911-92 ")
+266 ;;1248
+267 ;;21,"67544-0911-94 ")
+268 ;;1249
+269 ;;21,"67544-0911-98 ")
+270 ;;1250
+271 ;;21,"67544-0929-60 ")
+272 ;;177
+273 ;;21,"67544-1055-30 ")
+274 ;;2131
+275 ;;21,"67544-1123-53 ")
+276 ;;1863
+277 ;;21,"67544-1135-30 ")
+278 ;;1864
+279 ;;21,"67544-1135-53 ")
+280 ;;1865
+281 ;;21,"67544-1135-60 ")
+282 ;;1866
+283 ;;21,"67544-1143-53 ")
+284 ;;1647
+285 ;;21,"67544-1143-60 ")
+286 ;;1648
+287 ;;21,"67544-1143-80 ")
+288 ;;1649
+289 ;;21,"67544-1145-53 ")
+290 ;;1566
+291 ;;21,"67544-1145-60 ")
+292 ;;1567
+293 ;;21,"67544-1146-30 ")
+294 ;;1751
+295 ;;21,"67544-1146-60 ")
+296 ;;1752
+297 ;;21,"67544-1159-30 ")
+298 ;;1859
+299 ;;21,"67544-1159-53 ")
+300 ;;1860
+301 ;;21,"67544-1159-60 ")
+302 ;;1861
+303 ;;21,"67544-1159-80 ")
+304 ;;1862
+305 ;;21,"67544-1160-82 ")
+306 ;;1043
+307 ;;21,"67544-1182-53 ")
+308 ;;1650
+309 ;;21,"67544-1182-80 ")
+310 ;;1651
+311 ;;21,"67544-1187-30 ")
+312 ;;1747
+313 ;;21,"67544-1187-53 ")
+314 ;;1748
+315 ;;21,"67544-1187-60 ")
+316 ;;1749
+317 ;;21,"67544-1199-99 ")
+318 ;;1097
+319 ;;21,"67857-0700-01 ")
+320 ;;382
+321 ;;21,"67857-0701-01 ")
+322 ;;387
+323 ;;21,"68084-0209-01 ")
+324 ;;267
+325 ;;21,"68084-0209-11 ")
+326 ;;268
+327 ;;21,"68084-0210-01 ")
+328 ;;296
+329 ;;21,"68084-0210-11 ")
+330 ;;297
+331 ;;21,"68084-0211-01 ")
+332 ;;320
+333 ;;21,"68084-0211-11 ")
+334 ;;321
+335 ;;21,"68084-0212-01 ")
+336 ;;344
+337 ;;21,"68084-0212-11 ")
+338 ;;345
+339 ;;21,"68084-0261-01 ")
+340 ;;1549
+341 ;;21,"68084-0261-11 ")
+342 ;;1550
+343 ;;21,"68084-0262-01 ")
+344 ;;1663
+345 ;;21,"68084-0262-11 ")
+346 ;;1664
+347 ;;21,"68084-0263-01 ")
+348 ;;1769
+349 ;;21,"68084-0263-11 ")
+350 ;;1770
+351 ;;21,"68084-0264-01 ")
+352 ;;1876
+353 ;;21,"68084-0264-11 ")
+354 ;;1877
+355 ;;21,"68084-0301-01 ")
+356 ;;1038
+357 ;;21,"68084-0301-11 ")
+358 ;;1039
+359 ;;21,"68084-0302-11 ")
+360 ;;1086
+361 ;;21,"68084-0302-21 ")
+362 ;;1087
+363 ;;21,"68084-0303-01 ")
+364 ;;888
+365 ;;21,"68084-0303-11 ")
+366 ;;889
+367 ;;21,"68084-0304-01 ")
+368 ;;942
+369 ;;21,"68084-0304-11 ")
+370 ;;943
+371 ;;21,"68084-0456-01 ")
+372 ;;2023
+373 ;;21,"68084-0456-11 ")
+374 ;;2024
+375 ;;21,"68084-0457-01 ")
+376 ;;2039
+377 ;;21,"68084-0457-11 ")
+378 ;;2040
+379 ;;21,"68084-0487-11 ")
+380 ;;804
+381 ;;21,"68084-0487-21 ")
+382 ;;805
+383 ;;21,"68084-0503-01 ")
+384 ;;272
+385 ;;21,"68084-0503-11 ")
+386 ;;273
+387 ;;21,"68084-0504-01 ")
+388 ;;298
+389 ;;21,"68084-0504-11 ")
+390 ;;299
+391 ;;21,"68258-6010-01 ")
+392 ;;110
+393 ;;21,"68258-6010-03 ")
+394 ;;111
+395 ;;21,"68258-6010-09 ")
+396 ;;112
+397 ;;21,"68258-6011-03 ")
+398 ;;199
+399 ;;21,"68258-6011-09 ")
+400 ;;200
+401 ;;21,"68258-6015-03 ")
+402 ;;1562
+403 ;;21,"68258-6015-08 ")
+404 ;;1563
+405 ;;21,"68258-6018-03 ")
+406 ;;871
+407 ;;21,"68258-6018-09 ")
+408 ;;872
+409 ;;21,"68258-6019-03 ")
+410 ;;961
+411 ;;21,"68258-6019-06 ")
+412 ;;962
+413 ;;21,"68258-6019-09 ")
+414 ;;963
+415 ;;21,"68258-6020-03 ")
+416 ;;1052
+417 ;;21,"68258-6020-09 ")
+418 ;;1053
+419 ;;21,"68258-6026-03 ")
+420 ;;1988
+421 ;;21,"68258-6026-09 ")
+422 ;;1989
+423 ;;21,"68258-6033-03 ")
+424 ;;1150
+425 ;;21,"68258-6033-06 ")
+426 ;;1151
+427 ;;21,"68258-6033-09 ")
+428 ;;1152
+429 ;;21,"68258-6034-03 ")
+430 ;;27
+431 ;;21,"68258-6039-03 ")
+432 ;;352
+433 ;;21,"68258-6047-03 ")
+434 ;;2012
+435 ;;21,"68258-6047-09 ")
+436 ;;2013
+437 ;;21,"68258-6057-06 ")
+438 ;;96
+439 ;;21,"68258-6062-03 ")
+440 ;;303
+441 ;;21,"68258-6063-03 ")
+442 ;;2105
+443 ;;21,"68258-6064-03 ")
+444 ;;2118
+445 ;;21,"68258-6091-03 ")
+446 ;;281
+447 ;;21,"68258-6092-03 ")
+448 ;;801
+449 ;;21,"68258-6093-03 ")
+450 ;;824
+451 ;;21,"68258-6104-03 ")
+452 ;;2183
+453 ;;21,"68258-6104-09 ")
+454 ;;2184
+455 ;;21,"68258-6982-30 ")
+456 ;;1544
+457 ;;21,"68258-6987-03 ")
+458 ;;1541
+459 ;;21,"68258-6988-03 ")
+460 ;;1527
+461 ;;21,"68382-0022-01 ")
+462 ;;499
+463 ;;21,"68382-0022-10 ")
+464 ;;500
+465 ;;21,"68382-0023-01 ")
+466 ;;592
+467 ;;21,"68382-0023-10 ")
+468 ;;593
+469 ;;21,"68382-0024-01 ")
+470 ;;751
+471 ;;21,"68382-0024-10 ")
+472 ;;752
+473 ;;21,"68382-0092-01 ")
+474 ;;1606
+475 ;;21,"68382-0092-05 ")
+476 ;;1607
+477 ;;21,"68382-0092-17 ")
+478 ;;1608
+479 ;;21,"68382-0093-01 ")
+480 ;;1716
+481 ;;21,"68382-0093-05 ")
+482 ;;1717
+483 ;;21,"68382-0093-17 ")
+484 ;;1718
+485 ;;21,"68382-0094-01 ")
+486 ;;1806
+487 ;;21,"68382-0094-05 ")
+488 ;;1807
+489 ;;21,"68382-0094-17 ")
+490 ;;1808
+491 ;;21,"68382-0095-01 ")
+492 ;;1898
+493 ;;21,"68382-0095-05 ")
+494 ;;1899
+495 ;;21,"68382-0095-17 ")
+496 ;;1900
+497 ;;21,"68387-0538-30 ")
+498 ;;660
+499 ;;21,"68387-0539-30 ")
+500 ;;771
+501 ;;21,"68462-0162-01 ")
+502 ;;1554
+503 ;;21,"68462-0162-05 ")
+504 ;;1555
+505 ;;21,"68462-0163-01 ")
+506 ;;1654
+507 ;;21,"68462-0163-05 ")
+508 ;;1655
+509 ;;21,"68462-0164-01 ")
+510 ;;1760
+511 ;;21,"68462-0164-05 ")
+512 ;;1761
+513 ;;21,"68462-0165-01 ")
+514 ;;1867
+515 ;;21,"68462-0165-05 ")
+516 ;;1868
+517 ;;21,"68645-0190-59 ")
+518 ;;1354
+519 ;;21,"68645-0191-59 ")
+520 ;;1482
+521 ;;21,"68645-0310-54 ")
+522 ;;547
+523 ;;21,"68645-0350-59 ")
+524 ;;1668
+525 ;;21,"68645-0351-59 ")
+526 ;;1765
+527 ;;21,"68645-0352-59 ")
+528 ;;1878
+529 ;;9002226,1195,.01)
+530 ;;BGP PQA BETA BLOCKER NDC
+531 ;;9002226,1195,.02)
+532 ;;@
+533 ;;9002226,1195,.04)
+534 ;;n
+535 ;;9002226,1195,.06)
+536 ;;@
+537 ;;9002226,1195,.08)
+538 ;;@
+539 ;;9002226,1195,.09)
+540 ;;3130911
+541 ;;9002226,1195,.11)
+542 ;;@
+543 ;;9002226,1195,.12)
+544 ;;@
+545 ;;9002226,1195,.13)
+546 ;;1
+547 ;;9002226,1195,.14)
+548 ;;@
+549 ;;9002226,1195,.15)
+550 ;;@
+551 ;;9002226,1195,.16)
+552 ;;@
+553 ;;9002226,1195,.17)
+554 ;;@
+555 ;;9002226,1195,3101)
+556 ;;@
+557 ;;9002226.02101,"1195,00007-3370-13 ",.01)
+558 ;;00007-3370-13
+559 ;;9002226.02101,"1195,00007-3370-13 ",.02)
+560 ;;00007-3370-13
+561 ;;9002226.02101,"1195,00007-3371-13 ",.01)
+562 ;;00007-3371-13
+563 ;;9002226.02101,"1195,00007-3371-13 ",.02)
+564 ;;00007-3371-13
+565 ;;9002226.02101,"1195,00007-3372-13 ",.01)
+566 ;;00007-3372-13
+567 ;;9002226.02101,"1195,00007-3372-13 ",.02)
+568 ;;00007-3372-13
+569 ;;9002226.02101,"1195,00007-3373-13 ",.01)
+570 ;;00007-3373-13
+571 ;;9002226.02101,"1195,00007-3373-13 ",.02)
+572 ;;00007-3373-13
+573 ;;9002226.02101,"1195,00007-4139-20 ",.01)
+574 ;;00007-4139-20
+575 ;;9002226.02101,"1195,00007-4139-20 ",.02)
+576 ;;00007-4139-20
+577 ;;9002226.02101,"1195,00007-4140-20 ",.01)
+578 ;;00007-4140-20
+579 ;;9002226.02101,"1195,00007-4140-20 ",.02)
+580 ;;00007-4140-20
+581 ;;9002226.02101,"1195,00007-4141-20 ",.01)
+582 ;;00007-4141-20
+583 ;;9002226.02101,"1195,00007-4141-20 ",.02)
+584 ;;00007-4141-20
+585 ;;9002226.02101,"1195,00007-4142-20 ",.01)
+586 ;;00007-4142-20
+587 ;;9002226.02101,"1195,00007-4142-20 ",.02)
+588 ;;00007-4142-20
+589 ;;9002226.02101,"1195,00024-2300-20 ",.01)
+590 ;;00024-2300-20
+591 ;;9002226.02101,"1195,00024-2300-20 ",.02)
+592 ;;00024-2300-20
+593 ;;9002226.02101,"1195,00024-2301-10 ",.01)
+594 ;;00024-2301-10
+595 ;;9002226.02101,"1195,00024-2301-10 ",.02)
+596 ;;00024-2301-10
+597 ;;9002226.02101,"1195,00054-3727-63 ",.01)
+598 ;;00054-3727-63
+599 ;;9002226.02101,"1195,00054-3727-63 ",.02)
+600 ;;00054-3727-63
+601 ;;9002226.02101,"1195,00054-3730-63 ",.01)
+602 ;;00054-3730-63
+603 ;;9002226.02101,"1195,00054-3730-63 ",.02)
+604 ;;00054-3730-63
+605 ;;9002226.02101,"1195,00078-0458-05 ",.01)
+606 ;;00078-0458-05
+607 ;;9002226.02101,"1195,00078-0458-05 ",.02)
+608 ;;00078-0458-05
+609 ;;9002226.02101,"1195,00078-0459-05 ",.01)
+610 ;;00078-0459-05
+611 ;;9002226.02101,"1195,00078-0459-05 ",.02)
+612 ;;00078-0459-05
+613 ;;9002226.02101,"1195,00078-0460-05 ",.01)
+614 ;;00078-0460-05
+615 ;;9002226.02101,"1195,00078-0460-05 ",.02)
+616 ;;00078-0460-05
+617 ;;9002226.02101,"1195,00078-0461-05 ",.01)
+618 ;;00078-0461-05
+619 ;;9002226.02101,"1195,00078-0461-05 ",.02)
+620 ;;00078-0461-05
+621 ;;9002226.02101,"1195,00091-4500-15 ",.01)
+622 ;;00091-4500-15
+623 ;;9002226.02101,"1195,00091-4500-15 ",.02)
+624 ;;00091-4500-15
+625 ;;9002226.02101,"1195,00093-0051-01 ",.01)
+626 ;;00093-0051-01
+627 ;;9002226.02101,"1195,00093-0051-01 ",.02)
+628 ;;00093-0051-01
+629 ;;9002226.02101,"1195,00093-0051-05 ",.01)
+630 ;;00093-0051-05
+631 ;;9002226.02101,"1195,00093-0051-05 ",.02)
+632 ;;00093-0051-05
+633 ;;9002226.02101,"1195,00093-0135-01 ",.01)
+634 ;;00093-0135-01
+635 ;;9002226.02101,"1195,00093-0135-01 ",.02)
+636 ;;00093-0135-01
+637 ;;9002226.02101,"1195,00093-0135-05 ",.01)
+638 ;;00093-0135-05
+639 ;;9002226.02101,"1195,00093-0135-05 ",.02)
+640 ;;00093-0135-05
+641 ;;9002226.02101,"1195,00093-0733-01 ",.01)
+642 ;;00093-0733-01
+643 ;;9002226.02101,"1195,00093-0733-01 ",.02)
+644 ;;00093-0733-01
+645 ;;9002226.02101,"1195,00093-0733-10 ",.01)
+646 ;;00093-0733-10
+647 ;;9002226.02101,"1195,00093-0733-10 ",.02)
+648 ;;00093-0733-10
+649 ;;9002226.02101,"1195,00093-0734-01 ",.01)
+650 ;;00093-0734-01
+651 ;;9002226.02101,"1195,00093-0734-01 ",.02)
+652 ;;00093-0734-01
+653 ;;9002226.02101,"1195,00093-0734-10 ",.01)
+654 ;;00093-0734-10
+655 ;;9002226.02101,"1195,00093-0734-10 ",.02)
+656 ;;00093-0734-10
+657 ;;9002226.02101,"1195,00093-0752-01 ",.01)
+658 ;;00093-0752-01
+659 ;;9002226.02101,"1195,00093-0752-01 ",.02)
+660 ;;00093-0752-01
+661 ;;9002226.02101,"1195,00093-0752-10 ",.01)
+662 ;;00093-0752-10
+663 ;;9002226.02101,"1195,00093-0752-10 ",.02)
+664 ;;00093-0752-10
+665 ;;9002226.02101,"1195,00093-0753-01 ",.01)
+666 ;;00093-0753-01
+667 ;;9002226.02101,"1195,00093-0753-01 ",.02)
+668 ;;00093-0753-01
+669 ;;9002226.02101,"1195,00093-0753-05 ",.01)
+670 ;;00093-0753-05
+671 ;;9002226.02101,"1195,00093-0753-05 ",.02)
+672 ;;00093-0753-05
+673 ;;9002226.02101,"1195,00093-0787-01 ",.01)
+674 ;;00093-0787-01
+675 ;;9002226.02101,"1195,00093-0787-01 ",.02)
+676 ;;00093-0787-01
+677 ;;9002226.02101,"1195,00093-0787-10 ",.01)
+678 ;;00093-0787-10
+679 ;;9002226.02101,"1195,00093-0787-10 ",.02)
+680 ;;00093-0787-10
+681 ;;9002226.02101,"1195,00093-4235-01 ",.01)
+682 ;;00093-4235-01
