BGP2TI5 ;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,"67544-1254-45 ")
;;1430
;;21,"67544-1255-15 ")
;;1646
;;21,"67544-1255-30 ")
;;1647
;;21,"67544-1255-45 ")
;;1648
;;21,"67544-1255-60 ")
;;1649
;;21,"67544-1256-15 ")
;;1261
;;21,"67544-1256-30 ")
;;1262
;;21,"67544-1256-45 ")
;;1263
;;21,"67544-1257-45 ")
;;1113
;;21,"67544-1257-60 ")
;;1114
;;21,"68071-0154-30 ")
;;188
;;21,"68071-0263-30 ")
;;1000
;;21,"68071-0310-30 ")
;;238
;;21,"68071-0399-30 ")
;;127
;;21,"68071-0433-30 ")
;;945
;;21,"68071-0784-30 ")
;;1029
;;21,"68084-0131-01 ")
;;403
;;21,"68084-0131-11 ")
;;404
;;21,"68084-0132-01 ")
;;523
;;21,"68084-0132-11 ")
;;524
;;21,"68084-0133-01 ")
;;616
;;21,"68084-0133-11 ")
;;617
;;21,"68084-0161-01 ")
;;1496
;;21,"68084-0161-11 ")
;;1497
;;21,"68084-0162-01 ")
;;1109
;;21,"68084-0162-11 ")
;;1110
;;21,"68084-0163-01 ")
;;1266
;;21,"68084-0163-11 ")
;;1267
;;21,"68084-0164-01 ")
;;1426
;;21,"68084-0164-11 ")
;;1427
;;21,"68084-0165-01 ")
;;1653
;;21,"68084-0165-11 ")
;;1654
;;21,"68084-0186-01 ")
;;690
;;21,"68084-0186-11 ")
;;691
;;21,"68084-0187-01 ")
;;755
;;21,"68084-0187-11 ")
;;756
;;21,"68084-0188-01 ")
;;842
;;21,"68084-0188-11 ")
;;843
;;21,"68084-0500-01 ")
;;692
;;21,"68084-0500-11 ")
;;693
;;21,"68084-0501-01 ")
;;753
;;21,"68084-0501-11 ")
;;754
;;21,"68084-0502-01 ")
;;844
;;21,"68084-0502-11 ")
;;845
;;21,"68084-0510-01 ")
;;1492
;;21,"68084-0510-11 ")
;;1493
;;21,"68084-0511-01 ")
;;1111
;;21,"68084-0511-11 ")
;;1112
;;21,"68084-0512-01 ")
;;1264
;;21,"68084-0512-11 ")
;;1265
;;21,"68084-0513-01 ")
;;1431
;;21,"68084-0513-11 ")
;;1432
;;21,"68084-0514-01 ")
;;1644
;;21,"68084-0514-11 ")
;;1645
;;21,"68115-0218-30 ")
;;405
;;21,"68115-0219-30 ")
;;521
;;21,"68115-0219-60 ")
;;522
;;21,"68115-0494-30 ")
;;180
;;21,"68115-0494-60 ")
;;181
;;21,"68115-0658-00 ")
;;641
;;21,"68115-0658-60 ")
;;642
;;21,"68115-0664-90 ")
;;831
;;21,"68115-0668-15 ")
;;228
;;21,"68115-0668-30 ")
;;229
;;21,"68115-0668-90 ")
;;230
;;21,"68115-0672-30 ")
;;1291
;;21,"68115-0720-30 ")
;;1132
;;21,"68115-0759-30 ")
;;1677
;;21,"68115-0777-30 ")
;;1459
;;21,"68115-0777-90 ")
;;1460
;;21,"68115-0800-90 ")
;;176
;;21,"68115-0836-30 ")
;;118
;;21,"68115-0836-90 ")
;;119
;;21,"68180-0467-01 ")
;;414
;;21,"68180-0467-03 ")
;;415
;;21,"68180-0467-07 ")
;;416
;;21,"68180-0468-01 ")
;;499
;;21,"68180-0468-03 ")
;;500
;;21,"68180-0468-05 ")
;;501
;;21,"68180-0468-07 ")
;;502
;;21,"68180-0469-01 ")
;;637
;;21,"68180-0469-03 ")
;;638
;;21,"68180-0469-05 ")
;;639
;;21,"68180-0469-07 ")
;;640
;;21,"68180-0478-01 ")
;;1106
;;21,"68180-0478-02 ")
;;1107
;;21,"68180-0478-03 ")
;;1108
;;21,"68180-0479-01 ")
;;1251
;;21,"68180-0479-02 ")
;;1252
;;21,"68180-0479-03 ")
;;1253
;;21,"68180-0480-01 ")
;;1412
;;21,"68180-0480-02 ")
;;1413
;;21,"68180-0480-03 ")
;;1414
;;21,"68180-0481-01 ")
;;1636
;;21,"68180-0481-02 ")
;;1637
;;21,"68180-0481-03 ")
;;1638
;;21,"68180-0482-06 ")
;;1498
;;21,"68180-0482-09 ")
;;1499
;;21,"68180-0485-02 ")
;;687
;;21,"68180-0485-09 ")
;;688
;;21,"68180-0486-02 ")
;;760
;;21,"68180-0486-09 ")
;;761
;;21,"68180-0487-02 ")
;;846
;;21,"68180-0487-09 ")
;;847
;;21,"68180-0488-02 ")
;;940
;;21,"68180-0488-09 ")
;;941
;;21,"68258-1040-01 ")
;;179
;;21,"68258-1057-01 ")
;;503
;;21,"68258-6000-03 ")
;;120
;;21,"68258-6000-09 ")
;;121
;;21,"68258-6001-03 ")
;;177
;;21,"68258-6001-09 ")
;;178
;;21,"68258-6002-03 ")
;;231
;;21,"68258-6002-09 ")
;;232
;;21,"68258-6009-03 ")
;;1104
;;21,"68258-6009-09 ")
;;1105
;;21,"68258-6013-03 ")
;;937
;;21,"68258-6016-03 ")
;;944
;;21,"68258-6017-03 ")
;;1030
;;21,"68258-6041-03 ")
;;116
;;21,"68258-6042-03 ")
;;175
;;21,"68258-6043-03 ")
;;226
;;21,"68258-6043-09 ")
;;227
;;21,"68258-6044-03 ")
;;278
;;21,"68258-6044-09 ")
;;279
;;21,"68258-6992-09 ")
;;117
;;21,"68258-6993-09 ")
;;174
;;21,"68258-9001-01 ")
;;280
;;21,"68258-9128-01 ")
;;682
;;21,"68258-9154-01 ")
;;233
;;21,"68382-0065-05 ")
;;1500
;;21,"68382-0065-06 ")
;;1501
;;21,"68382-0065-10 ")
;;1502
;;21,"68382-0065-14 ")
;;1503
;;21,"68382-0065-16 ")
;;1504
;;21,"68382-0066-05 ")
;;1098
;;21,"68382-0066-06 ")
;;1099
;;21,"68382-0066-10 ")
;;1100
;;21,"68382-0066-14 ")
;;1101
;;21,"68382-0066-16 ")
;;1102
;;21,"68382-0066-24 ")
;;1103
;;21,"68382-0067-05 ")
;;1245
;;21,"68382-0067-06 ")
;;1246
;;21,"68382-0067-10 ")
;;1247
;;21,"68382-0067-14 ")
;;1248
;;21,"68382-0067-16 ")
;;1249
;;21,"68382-0067-24 ")
;;1250
;;21,"68382-0068-05 ")
;;1415
;;21,"68382-0068-06 ")
;;1416
;;21,"68382-0068-10 ")
;;1417
;;21,"68382-0068-14 ")
;;1418
;;21,"68382-0068-16 ")
;;1419
;;21,"68382-0068-40 ")
;;1420
;;21,"68382-0069-05 ")
;;1631
;;21,"68382-0069-06 ")
;;1632
;;21,"68382-0069-10 ")
;;1633
;;21,"68382-0069-14 ")
;;1634
;;21,"68382-0069-16 ")
;;1635
;;21,"68382-0070-05 ")
;;685
;;21,"68382-0070-16 ")
;;686
;;21,"68382-0071-05 ")
;;762
;;21,"68382-0071-16 ")
;;763
;;21,"68382-0072-05 ")
;;850
;;21,"68382-0072-16 ")
;;851
;;21,"68382-0073-05 ")
;;935
;;21,"68382-0073-16 ")
;;936
;;21,"68462-0195-05 ")
;;683
;;21,"68462-0195-90 ")
;;684
;;21,"68462-0196-05 ")
;;764
;;21,"68462-0196-90 ")
;;765
;;21,"68462-0197-05 ")
;;848
;;21,"68462-0197-90 ")
;;849
;;21,"68462-0198-05 ")
;;938
;;21,"68462-0198-90 ")
;;939
;;21,"68645-0261-54 ")
;;1254
;;21,"68645-0262-54 ")
;;1421
;;9002226,1201,.01)
;;BGP PQA STATIN NDC
;;9002226,1201,.02)
;;@
;;9002226,1201,.04)
;;n
;;9002226,1201,.06)
;;@
;;9002226,1201,.08)
;;@
;;9002226,1201,.09)
;;3120312
;;9002226,1201,.11)
;;@
;;9002226,1201,.12)
;;@
;;9002226,1201,.13)
;;1
;;9002226,1201,.14)
;;@
;;9002226,1201,.15)
;;@
;;9002226,1201,.16)
;;@
;;9002226,1201,.17)
;;@
;;9002226,1201,3101)
;;@
;;9002226.02101,"1201,00002-4770-90 ",.01)
;;00002-4770-90
;;9002226.02101,"1201,00002-4770-90 ",.02)
;;00002-4770-90
;;9002226.02101,"1201,00002-4771-90 ",.01)
;;00002-4771-90
;;9002226.02101,"1201,00002-4771-90 ",.02)
;;00002-4771-90
;;9002226.02101,"1201,00002-4772-90 ",.01)
;;00002-4772-90
;;9002226.02101,"1201,00002-4772-90 ",.02)
;;00002-4772-90
;;9002226.02101,"1201,00003-5154-05 ",.01)
;;00003-5154-05
;;9002226.02101,"1201,00003-5154-05 ",.02)
;;00003-5154-05
;;9002226.02101,"1201,00003-5168-11 ",.01)
;;00003-5168-11
;;9002226.02101,"1201,00003-5168-11 ",.02)
;;00003-5168-11
;;9002226.02101,"1201,00003-5169-11 ",.01)
;;00003-5169-11
;;9002226.02101,"1201,00003-5169-11 ",.02)
;;00003-5169-11
;;9002226.02101,"1201,00003-5173-11 ",.01)
;;00003-5173-11
;;9002226.02101,"1201,00003-5173-11 ",.02)
;;00003-5173-11
;;9002226.02101,"1201,00003-5174-11 ",.01)
;;00003-5174-11
;;9002226.02101,"1201,00003-5174-11 ",.02)
;;00003-5174-11
;;9002226.02101,"1201,00003-5178-05 ",.01)
;;00003-5178-05
;;9002226.02101,"1201,00003-5178-05 ",.02)
;;00003-5178-05
;;9002226.02101,"1201,00003-5178-06 ",.01)
;;00003-5178-06
;;9002226.02101,"1201,00003-5178-06 ",.02)
;;00003-5178-06
;;9002226.02101,"1201,00003-5178-75 ",.01)
;;00003-5178-75
;;9002226.02101,"1201,00003-5178-75 ",.02)
;;00003-5178-75
;;9002226.02101,"1201,00003-5183-11 ",.01)
;;00003-5183-11
;;9002226.02101,"1201,00003-5183-11 ",.02)
;;00003-5183-11
;;9002226.02101,"1201,00003-5184-11 ",.01)
;;00003-5184-11
;;9002226.02101,"1201,00003-5184-11 ",.02)
;;00003-5184-11
;;9002226.02101,"1201,00003-5194-10 ",.01)
;;00003-5194-10
;;9002226.02101,"1201,00003-5194-10 ",.02)
;;00003-5194-10
;;9002226.02101,"1201,00003-5194-33 ",.01)
;;00003-5194-33
;;9002226.02101,"1201,00003-5194-33 ",.02)
;;00003-5194-33
;;9002226.02101,"1201,00003-5195-10 ",.01)
;;00003-5195-10
;;9002226.02101,"1201,00003-5195-10 ",.02)
;;00003-5195-10
;;9002226.02101,"1201,00003-5195-33 ",.01)
;;00003-5195-33
;;9002226.02101,"1201,00003-5195-33 ",.02)
;;00003-5195-33
;;9002226.02101,"1201,00006-0543-28 ",.01)
;;00006-0543-28
;;9002226.02101,"1201,00006-0543-28 ",.02)
;;00006-0543-28
;;9002226.02101,"1201,00006-0543-31 ",.01)
;;00006-0543-31
;;9002226.02101,"1201,00006-0543-31 ",.02)
;;00006-0543-31
;;9002226.02101,"1201,00006-0543-54 ",.01)
;;00006-0543-54
;;9002226.02101,"1201,00006-0543-54 ",.02)
;;00006-0543-54
;;9002226.02101,"1201,00006-0543-61 ",.01)
;;00006-0543-61
;;9002226.02101,"1201,00006-0543-61 ",.02)
;;00006-0543-61
;;9002226.02101,"1201,00006-0543-82 ",.01)
;;00006-0543-82
;;9002226.02101,"1201,00006-0543-82 ",.02)
;;00006-0543-82
;;9002226.02101,"1201,00006-0726-28 ",.01)
;;00006-0726-28
;;9002226.02101,"1201,00006-0726-28 ",.02)
;;00006-0726-28
;;9002226.02101,"1201,00006-0726-31 ",.01)
;;00006-0726-31
;;9002226.02101,"1201,00006-0726-31 ",.02)
;;00006-0726-31
;;9002226.02101,"1201,00006-0726-54 ",.01)
;;00006-0726-54
;;9002226.02101,"1201,00006-0726-54 ",.02)
;;00006-0726-54
;;9002226.02101,"1201,00006-0726-61 ",.01)
;;00006-0726-61
;;9002226.02101,"1201,00006-0726-61 ",.02)
;;00006-0726-61
;;9002226.02101,"1201,00006-0726-82 ",.01)
;;00006-0726-82
;;9002226.02101,"1201,00006-0726-82 ",.02)
;;00006-0726-82
;;9002226.02101,"1201,00006-0730-61 ",.01)
;;00006-0730-61
;;9002226.02101,"1201,00006-0730-61 ",.02)
;;00006-0730-61
;;9002226.02101,"1201,00006-0731-28 ",.01)
;;00006-0731-28
;;9002226.02101,"1201,00006-0731-28 ",.02)
;;00006-0731-28
;;9002226.02101,"1201,00006-0731-61 ",.01)
;;00006-0731-61
;;9002226.02101,"1201,00006-0731-61 ",.02)
;;00006-0731-61
;;9002226.02101,"1201,00006-0731-82 ",.01)
;;00006-0731-82
;;9002226.02101,"1201,00006-0731-82 ",.02)
;;00006-0731-82
;;9002226.02101,"1201,00006-0731-87 ",.01)
;;00006-0731-87
;;9002226.02101,"1201,00006-0731-87 ",.02)
;;00006-0731-87
;;9002226.02101,"1201,00006-0731-94 ",.01)
;;00006-0731-94
;;9002226.02101,"1201,00006-0731-94 ",.02)
;;00006-0731-94
;;9002226.02101,"1201,00006-0732-61 ",.01)
;;00006-0732-61
;;9002226.02101,"1201,00006-0732-61 ",.02)
;;00006-0732-61
;;9002226.02101,"1201,00006-0732-82 ",.01)
;;00006-0732-82
;;9002226.02101,"1201,00006-0732-82 ",.02)
;;00006-0732-82
;;9002226.02101,"1201,00006-0732-87 ",.01)
;;00006-0732-87
;;9002226.02101,"1201,00006-0732-87 ",.02)
;;00006-0732-87
;;9002226.02101,"1201,00006-0732-94 ",.01)
;;00006-0732-94
;;9002226.02101,"1201,00006-0732-94 ",.02)
;;00006-0732-94
;;9002226.02101,"1201,00006-0735-28 ",.01)
;;00006-0735-28
;;9002226.02101,"1201,00006-0735-28 ",.02)
;;00006-0735-28
;;9002226.02101,"1201,00006-0735-31 ",.01)
;;00006-0735-31
;;9002226.02101,"1201,00006-0735-31 ",.02)
;;00006-0735-31
;;9002226.02101,"1201,00006-0735-54 ",.01)
;;00006-0735-54
;;9002226.02101,"1201,00006-0735-54 ",.02)
;;00006-0735-54
;;9002226.02101,"1201,00006-0735-61 ",.01)
;;00006-0735-61
;;9002226.02101,"1201,00006-0735-61 ",.02)
;;00006-0735-61
;;9002226.02101,"1201,00006-0735-82 ",.01)
;;00006-0735-82
;;9002226.02101,"1201,00006-0735-82 ",.02)
;;00006-0735-82
;;9002226.02101,"1201,00006-0735-87 ",.01)
;;00006-0735-87
;;9002226.02101,"1201,00006-0735-87 ",.02)
;;00006-0735-87
;;9002226.02101,"1201,00006-0740-28 ",.01)
;;00006-0740-28
;;9002226.02101,"1201,00006-0740-28 ",.02)
;;00006-0740-28
;;9002226.02101,"1201,00006-0740-31 ",.01)
;;00006-0740-31
;;9002226.02101,"1201,00006-0740-31 ",.02)
;;00006-0740-31
;;9002226.02101,"1201,00006-0740-54 ",.01)
;;00006-0740-54
;;9002226.02101,"1201,00006-0740-54 ",.02)
;;00006-0740-54
;;9002226.02101,"1201,00006-0740-61 ",.01)
;;00006-0740-61
;;9002226.02101,"1201,00006-0740-61 ",.02)
;;00006-0740-61
;;9002226.02101,"1201,00006-0740-82 ",.01)
;;00006-0740-82
;;9002226.02101,"1201,00006-0740-82 ",.02)
;;00006-0740-82
;;9002226.02101,"1201,00006-0740-87 ",.01)
;;00006-0740-87
;;9002226.02101,"1201,00006-0740-87 ",.02)
;;00006-0740-87
;;9002226.02101,"1201,00006-0749-28 ",.01)
;;00006-0749-28
;;9002226.02101,"1201,00006-0749-28 ",.02)
;;00006-0749-28
;;9002226.02101,"1201,00006-0749-31 ",.01)
;;00006-0749-31
;;9002226.02101,"1201,00006-0749-31 ",.02)
;;00006-0749-31
;;9002226.02101,"1201,00006-0749-54 ",.01)
;;00006-0749-54
;;9002226.02101,"1201,00006-0749-54 ",.02)
;;00006-0749-54
;;9002226.02101,"1201,00006-0749-61 ",.01)
;;00006-0749-61
;;9002226.02101,"1201,00006-0749-61 ",.02)
;;00006-0749-61
;;9002226.02101,"1201,00006-0749-82 ",.01)
;;00006-0749-82
;;9002226.02101,"1201,00006-0749-82 ",.02)
;;00006-0749-82
;;9002226.02101,"1201,00006-0753-31 ",.01)
;;00006-0753-31
;;9002226.02101,"1201,00006-0753-31 ",.02)
;;00006-0753-31
;;9002226.02101,"1201,00006-0753-54 ",.01)
;;00006-0753-54
;;9002226.02101,"1201,00006-0753-54 ",.02)
;;00006-0753-54
;;9002226.02101,"1201,00006-0753-82 ",.01)
;;00006-0753-82
;;9002226.02101,"1201,00006-0753-82 ",.02)
;;00006-0753-82
BGP2TI5 ;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,"67544-1254-45 ")
+2 ;;1430
+3 ;;21,"67544-1255-15 ")
+4 ;;1646
+5 ;;21,"67544-1255-30 ")
+6 ;;1647
+7 ;;21,"67544-1255-45 ")
+8 ;;1648
+9 ;;21,"67544-1255-60 ")
+10 ;;1649
+11 ;;21,"67544-1256-15 ")
+12 ;;1261
+13 ;;21,"67544-1256-30 ")
+14 ;;1262
+15 ;;21,"67544-1256-45 ")
+16 ;;1263
+17 ;;21,"67544-1257-45 ")
+18 ;;1113
+19 ;;21,"67544-1257-60 ")
+20 ;;1114
+21 ;;21,"68071-0154-30 ")
+22 ;;188
+23 ;;21,"68071-0263-30 ")
+24 ;;1000
+25 ;;21,"68071-0310-30 ")
+26 ;;238
+27 ;;21,"68071-0399-30 ")
+28 ;;127
+29 ;;21,"68071-0433-30 ")
+30 ;;945
+31 ;;21,"68071-0784-30 ")
+32 ;;1029
+33 ;;21,"68084-0131-01 ")
+34 ;;403
+35 ;;21,"68084-0131-11 ")
+36 ;;404
+37 ;;21,"68084-0132-01 ")
+38 ;;523
+39 ;;21,"68084-0132-11 ")
+40 ;;524
+41 ;;21,"68084-0133-01 ")
+42 ;;616
+43 ;;21,"68084-0133-11 ")
+44 ;;617
+45 ;;21,"68084-0161-01 ")
+46 ;;1496
+47 ;;21,"68084-0161-11 ")
+48 ;;1497
+49 ;;21,"68084-0162-01 ")
+50 ;;1109
+51 ;;21,"68084-0162-11 ")
+52 ;;1110
+53 ;;21,"68084-0163-01 ")
+54 ;;1266
+55 ;;21,"68084-0163-11 ")
+56 ;;1267
+57 ;;21,"68084-0164-01 ")
+58 ;;1426
+59 ;;21,"68084-0164-11 ")
+60 ;;1427
+61 ;;21,"68084-0165-01 ")
+62 ;;1653
+63 ;;21,"68084-0165-11 ")
+64 ;;1654
+65 ;;21,"68084-0186-01 ")
+66 ;;690
+67 ;;21,"68084-0186-11 ")
+68 ;;691
+69 ;;21,"68084-0187-01 ")
+70 ;;755
+71 ;;21,"68084-0187-11 ")
+72 ;;756
+73 ;;21,"68084-0188-01 ")
+74 ;;842
+75 ;;21,"68084-0188-11 ")
+76 ;;843
+77 ;;21,"68084-0500-01 ")
+78 ;;692
+79 ;;21,"68084-0500-11 ")
+80 ;;693
+81 ;;21,"68084-0501-01 ")
+82 ;;753
+83 ;;21,"68084-0501-11 ")
+84 ;;754
+85 ;;21,"68084-0502-01 ")
+86 ;;844
+87 ;;21,"68084-0502-11 ")
+88 ;;845
+89 ;;21,"68084-0510-01 ")
+90 ;;1492
+91 ;;21,"68084-0510-11 ")
+92 ;;1493
+93 ;;21,"68084-0511-01 ")
+94 ;;1111
+95 ;;21,"68084-0511-11 ")
+96 ;;1112
+97 ;;21,"68084-0512-01 ")
+98 ;;1264
+99 ;;21,"68084-0512-11 ")
+100 ;;1265
+101 ;;21,"68084-0513-01 ")
+102 ;;1431
+103 ;;21,"68084-0513-11 ")
+104 ;;1432
+105 ;;21,"68084-0514-01 ")
+106 ;;1644
+107 ;;21,"68084-0514-11 ")
+108 ;;1645
+109 ;;21,"68115-0218-30 ")
+110 ;;405
+111 ;;21,"68115-0219-30 ")
+112 ;;521
+113 ;;21,"68115-0219-60 ")
+114 ;;522
+115 ;;21,"68115-0494-30 ")
+116 ;;180
+117 ;;21,"68115-0494-60 ")
+118 ;;181
+119 ;;21,"68115-0658-00 ")
+120 ;;641
+121 ;;21,"68115-0658-60 ")
+122 ;;642
+123 ;;21,"68115-0664-90 ")
+124 ;;831
+125 ;;21,"68115-0668-15 ")
+126 ;;228
+127 ;;21,"68115-0668-30 ")
+128 ;;229
+129 ;;21,"68115-0668-90 ")
+130 ;;230
+131 ;;21,"68115-0672-30 ")
+132 ;;1291
+133 ;;21,"68115-0720-30 ")
+134 ;;1132
+135 ;;21,"68115-0759-30 ")
+136 ;;1677
+137 ;;21,"68115-0777-30 ")
+138 ;;1459
+139 ;;21,"68115-0777-90 ")
+140 ;;1460
+141 ;;21,"68115-0800-90 ")
+142 ;;176
+143 ;;21,"68115-0836-30 ")
+144 ;;118
+145 ;;21,"68115-0836-90 ")
+146 ;;119
+147 ;;21,"68180-0467-01 ")
+148 ;;414
+149 ;;21,"68180-0467-03 ")
+150 ;;415
+151 ;;21,"68180-0467-07 ")
+152 ;;416
+153 ;;21,"68180-0468-01 ")
+154 ;;499
+155 ;;21,"68180-0468-03 ")
+156 ;;500
+157 ;;21,"68180-0468-05 ")
+158 ;;501
+159 ;;21,"68180-0468-07 ")
+160 ;;502
+161 ;;21,"68180-0469-01 ")
+162 ;;637
+163 ;;21,"68180-0469-03 ")
+164 ;;638
+165 ;;21,"68180-0469-05 ")
+166 ;;639
+167 ;;21,"68180-0469-07 ")
+168 ;;640
+169 ;;21,"68180-0478-01 ")
+170 ;;1106
+171 ;;21,"68180-0478-02 ")
+172 ;;1107
+173 ;;21,"68180-0478-03 ")
+174 ;;1108
+175 ;;21,"68180-0479-01 ")
+176 ;;1251
+177 ;;21,"68180-0479-02 ")
+178 ;;1252
+179 ;;21,"68180-0479-03 ")
+180 ;;1253
+181 ;;21,"68180-0480-01 ")
+182 ;;1412
+183 ;;21,"68180-0480-02 ")
+184 ;;1413
+185 ;;21,"68180-0480-03 ")
+186 ;;1414
+187 ;;21,"68180-0481-01 ")
+188 ;;1636
+189 ;;21,"68180-0481-02 ")
+190 ;;1637
+191 ;;21,"68180-0481-03 ")
+192 ;;1638
+193 ;;21,"68180-0482-06 ")
+194 ;;1498
+195 ;;21,"68180-0482-09 ")
+196 ;;1499
+197 ;;21,"68180-0485-02 ")
+198 ;;687
+199 ;;21,"68180-0485-09 ")
+200 ;;688
+201 ;;21,"68180-0486-02 ")
+202 ;;760
+203 ;;21,"68180-0486-09 ")
+204 ;;761
+205 ;;21,"68180-0487-02 ")
+206 ;;846
+207 ;;21,"68180-0487-09 ")
+208 ;;847
+209 ;;21,"68180-0488-02 ")
+210 ;;940
+211 ;;21,"68180-0488-09 ")
+212 ;;941
+213 ;;21,"68258-1040-01 ")
+214 ;;179
+215 ;;21,"68258-1057-01 ")
+216 ;;503
+217 ;;21,"68258-6000-03 ")
+218 ;;120
+219 ;;21,"68258-6000-09 ")
+220 ;;121
+221 ;;21,"68258-6001-03 ")
+222 ;;177
+223 ;;21,"68258-6001-09 ")
+224 ;;178
+225 ;;21,"68258-6002-03 ")
+226 ;;231
+227 ;;21,"68258-6002-09 ")
+228 ;;232
+229 ;;21,"68258-6009-03 ")
+230 ;;1104
+231 ;;21,"68258-6009-09 ")
+232 ;;1105
+233 ;;21,"68258-6013-03 ")
+234 ;;937
+235 ;;21,"68258-6016-03 ")
+236 ;;944
+237 ;;21,"68258-6017-03 ")
+238 ;;1030
+239 ;;21,"68258-6041-03 ")
+240 ;;116
+241 ;;21,"68258-6042-03 ")
+242 ;;175
+243 ;;21,"68258-6043-03 ")
+244 ;;226
+245 ;;21,"68258-6043-09 ")
+246 ;;227
+247 ;;21,"68258-6044-03 ")
+248 ;;278
+249 ;;21,"68258-6044-09 ")
+250 ;;279
+251 ;;21,"68258-6992-09 ")
+252 ;;117
+253 ;;21,"68258-6993-09 ")
+254 ;;174
+255 ;;21,"68258-9001-01 ")
+256 ;;280
+257 ;;21,"68258-9128-01 ")
+258 ;;682
+259 ;;21,"68258-9154-01 ")
+260 ;;233
+261 ;;21,"68382-0065-05 ")
+262 ;;1500
+263 ;;21,"68382-0065-06 ")
+264 ;;1501
+265 ;;21,"68382-0065-10 ")
+266 ;;1502
+267 ;;21,"68382-0065-14 ")
+268 ;;1503
+269 ;;21,"68382-0065-16 ")
+270 ;;1504
+271 ;;21,"68382-0066-05 ")
+272 ;;1098
+273 ;;21,"68382-0066-06 ")
+274 ;;1099
+275 ;;21,"68382-0066-10 ")
+276 ;;1100
+277 ;;21,"68382-0066-14 ")
+278 ;;1101
+279 ;;21,"68382-0066-16 ")
+280 ;;1102
+281 ;;21,"68382-0066-24 ")
+282 ;;1103
+283 ;;21,"68382-0067-05 ")
+284 ;;1245
+285 ;;21,"68382-0067-06 ")
+286 ;;1246
+287 ;;21,"68382-0067-10 ")
+288 ;;1247
+289 ;;21,"68382-0067-14 ")
+290 ;;1248
+291 ;;21,"68382-0067-16 ")
+292 ;;1249
+293 ;;21,"68382-0067-24 ")
+294 ;;1250
+295 ;;21,"68382-0068-05 ")
+296 ;;1415
+297 ;;21,"68382-0068-06 ")
+298 ;;1416
+299 ;;21,"68382-0068-10 ")
+300 ;;1417
+301 ;;21,"68382-0068-14 ")
+302 ;;1418
+303 ;;21,"68382-0068-16 ")
+304 ;;1419
+305 ;;21,"68382-0068-40 ")
+306 ;;1420
+307 ;;21,"68382-0069-05 ")
+308 ;;1631
+309 ;;21,"68382-0069-06 ")
+310 ;;1632
+311 ;;21,"68382-0069-10 ")
+312 ;;1633
+313 ;;21,"68382-0069-14 ")
+314 ;;1634
+315 ;;21,"68382-0069-16 ")
+316 ;;1635
+317 ;;21,"68382-0070-05 ")
+318 ;;685
+319 ;;21,"68382-0070-16 ")
+320 ;;686
+321 ;;21,"68382-0071-05 ")
+322 ;;762
+323 ;;21,"68382-0071-16 ")
+324 ;;763
+325 ;;21,"68382-0072-05 ")
+326 ;;850
+327 ;;21,"68382-0072-16 ")
+328 ;;851
+329 ;;21,"68382-0073-05 ")
+330 ;;935
+331 ;;21,"68382-0073-16 ")
+332 ;;936
+333 ;;21,"68462-0195-05 ")
+334 ;;683
+335 ;;21,"68462-0195-90 ")
+336 ;;684
+337 ;;21,"68462-0196-05 ")
+338 ;;764
+339 ;;21,"68462-0196-90 ")
+340 ;;765
+341 ;;21,"68462-0197-05 ")
+342 ;;848
+343 ;;21,"68462-0197-90 ")
+344 ;;849
+345 ;;21,"68462-0198-05 ")
+346 ;;938
+347 ;;21,"68462-0198-90 ")
+348 ;;939
+349 ;;21,"68645-0261-54 ")
+350 ;;1254
+351 ;;21,"68645-0262-54 ")
+352 ;;1421
+353 ;;9002226,1201,.01)
+354 ;;BGP PQA STATIN NDC
+355 ;;9002226,1201,.02)
+356 ;;@
+357 ;;9002226,1201,.04)
+358 ;;n
+359 ;;9002226,1201,.06)
+360 ;;@
+361 ;;9002226,1201,.08)
+362 ;;@
+363 ;;9002226,1201,.09)
+364 ;;3120312
+365 ;;9002226,1201,.11)
+366 ;;@
+367 ;;9002226,1201,.12)
+368 ;;@
+369 ;;9002226,1201,.13)
+370 ;;1
+371 ;;9002226,1201,.14)
+372 ;;@
+373 ;;9002226,1201,.15)
+374 ;;@
+375 ;;9002226,1201,.16)
+376 ;;@
+377 ;;9002226,1201,.17)
+378 ;;@
+379 ;;9002226,1201,3101)
+380 ;;@
+381 ;;9002226.02101,"1201,00002-4770-90 ",.01)
+382 ;;00002-4770-90
+383 ;;9002226.02101,"1201,00002-4770-90 ",.02)
+384 ;;00002-4770-90
+385 ;;9002226.02101,"1201,00002-4771-90 ",.01)
+386 ;;00002-4771-90
+387 ;;9002226.02101,"1201,00002-4771-90 ",.02)
+388 ;;00002-4771-90
+389 ;;9002226.02101,"1201,00002-4772-90 ",.01)
+390 ;;00002-4772-90
+391 ;;9002226.02101,"1201,00002-4772-90 ",.02)
+392 ;;00002-4772-90
+393 ;;9002226.02101,"1201,00003-5154-05 ",.01)
+394 ;;00003-5154-05
+395 ;;9002226.02101,"1201,00003-5154-05 ",.02)
+396 ;;00003-5154-05
+397 ;;9002226.02101,"1201,00003-5168-11 ",.01)
+398 ;;00003-5168-11
+399 ;;9002226.02101,"1201,00003-5168-11 ",.02)
+400 ;;00003-5168-11
+401 ;;9002226.02101,"1201,00003-5169-11 ",.01)
+402 ;;00003-5169-11
+403 ;;9002226.02101,"1201,00003-5169-11 ",.02)
+404 ;;00003-5169-11
+405 ;;9002226.02101,"1201,00003-5173-11 ",.01)
+406 ;;00003-5173-11
+407 ;;9002226.02101,"1201,00003-5173-11 ",.02)
+408 ;;00003-5173-11
+409 ;;9002226.02101,"1201,00003-5174-11 ",.01)
+410 ;;00003-5174-11
+411 ;;9002226.02101,"1201,00003-5174-11 ",.02)
+412 ;;00003-5174-11
+413 ;;9002226.02101,"1201,00003-5178-05 ",.01)
+414 ;;00003-5178-05
+415 ;;9002226.02101,"1201,00003-5178-05 ",.02)
+416 ;;00003-5178-05
+417 ;;9002226.02101,"1201,00003-5178-06 ",.01)
+418 ;;00003-5178-06
+419 ;;9002226.02101,"1201,00003-5178-06 ",.02)
+420 ;;00003-5178-06
+421 ;;9002226.02101,"1201,00003-5178-75 ",.01)
+422 ;;00003-5178-75
+423 ;;9002226.02101,"1201,00003-5178-75 ",.02)
+424 ;;00003-5178-75
+425 ;;9002226.02101,"1201,00003-5183-11 ",.01)
+426 ;;00003-5183-11
+427 ;;9002226.02101,"1201,00003-5183-11 ",.02)
+428 ;;00003-5183-11
+429 ;;9002226.02101,"1201,00003-5184-11 ",.01)
+430 ;;00003-5184-11
+431 ;;9002226.02101,"1201,00003-5184-11 ",.02)
+432 ;;00003-5184-11
+433 ;;9002226.02101,"1201,00003-5194-10 ",.01)
+434 ;;00003-5194-10
+435 ;;9002226.02101,"1201,00003-5194-10 ",.02)
+436 ;;00003-5194-10
+437 ;;9002226.02101,"1201,00003-5194-33 ",.01)
+438 ;;00003-5194-33
+439 ;;9002226.02101,"1201,00003-5194-33 ",.02)
+440 ;;00003-5194-33
+441 ;;9002226.02101,"1201,00003-5195-10 ",.01)
+442 ;;00003-5195-10
+443 ;;9002226.02101,"1201,00003-5195-10 ",.02)
+444 ;;00003-5195-10
+445 ;;9002226.02101,"1201,00003-5195-33 ",.01)
+446 ;;00003-5195-33
+447 ;;9002226.02101,"1201,00003-5195-33 ",.02)
+448 ;;00003-5195-33
+449 ;;9002226.02101,"1201,00006-0543-28 ",.01)
+450 ;;00006-0543-28
+451 ;;9002226.02101,"1201,00006-0543-28 ",.02)
+452 ;;00006-0543-28
+453 ;;9002226.02101,"1201,00006-0543-31 ",.01)
+454 ;;00006-0543-31
+455 ;;9002226.02101,"1201,00006-0543-31 ",.02)
+456 ;;00006-0543-31
+457 ;;9002226.02101,"1201,00006-0543-54 ",.01)
+458 ;;00006-0543-54
+459 ;;9002226.02101,"1201,00006-0543-54 ",.02)
+460 ;;00006-0543-54
+461 ;;9002226.02101,"1201,00006-0543-61 ",.01)
+462 ;;00006-0543-61
+463 ;;9002226.02101,"1201,00006-0543-61 ",.02)
+464 ;;00006-0543-61
+465 ;;9002226.02101,"1201,00006-0543-82 ",.01)
+466 ;;00006-0543-82
+467 ;;9002226.02101,"1201,00006-0543-82 ",.02)
+468 ;;00006-0543-82
+469 ;;9002226.02101,"1201,00006-0726-28 ",.01)
+470 ;;00006-0726-28
+471 ;;9002226.02101,"1201,00006-0726-28 ",.02)
+472 ;;00006-0726-28
+473 ;;9002226.02101,"1201,00006-0726-31 ",.01)
+474 ;;00006-0726-31
+475 ;;9002226.02101,"1201,00006-0726-31 ",.02)
+476 ;;00006-0726-31
+477 ;;9002226.02101,"1201,00006-0726-54 ",.01)
+478 ;;00006-0726-54
+479 ;;9002226.02101,"1201,00006-0726-54 ",.02)
+480 ;;00006-0726-54
+481 ;;9002226.02101,"1201,00006-0726-61 ",.01)
+482 ;;00006-0726-61
+483 ;;9002226.02101,"1201,00006-0726-61 ",.02)
+484 ;;00006-0726-61
+485 ;;9002226.02101,"1201,00006-0726-82 ",.01)
+486 ;;00006-0726-82
+487 ;;9002226.02101,"1201,00006-0726-82 ",.02)
+488 ;;00006-0726-82
+489 ;;9002226.02101,"1201,00006-0730-61 ",.01)
+490 ;;00006-0730-61
+491 ;;9002226.02101,"1201,00006-0730-61 ",.02)
+492 ;;00006-0730-61
+493 ;;9002226.02101,"1201,00006-0731-28 ",.01)
+494 ;;00006-0731-28
+495 ;;9002226.02101,"1201,00006-0731-28 ",.02)
+496 ;;00006-0731-28
+497 ;;9002226.02101,"1201,00006-0731-61 ",.01)
+498 ;;00006-0731-61
+499 ;;9002226.02101,"1201,00006-0731-61 ",.02)
+500 ;;00006-0731-61
+501 ;;9002226.02101,"1201,00006-0731-82 ",.01)
+502 ;;00006-0731-82
+503 ;;9002226.02101,"1201,00006-0731-82 ",.02)
+504 ;;00006-0731-82
+505 ;;9002226.02101,"1201,00006-0731-87 ",.01)
+506 ;;00006-0731-87
+507 ;;9002226.02101,"1201,00006-0731-87 ",.02)
+508 ;;00006-0731-87
+509 ;;9002226.02101,"1201,00006-0731-94 ",.01)
+510 ;;00006-0731-94
+511 ;;9002226.02101,"1201,00006-0731-94 ",.02)
+512 ;;00006-0731-94
+513 ;;9002226.02101,"1201,00006-0732-61 ",.01)
+514 ;;00006-0732-61
+515 ;;9002226.02101,"1201,00006-0732-61 ",.02)
+516 ;;00006-0732-61
+517 ;;9002226.02101,"1201,00006-0732-82 ",.01)
+518 ;;00006-0732-82
+519 ;;9002226.02101,"1201,00006-0732-82 ",.02)
+520 ;;00006-0732-82
+521 ;;9002226.02101,"1201,00006-0732-87 ",.01)
+522 ;;00006-0732-87
+523 ;;9002226.02101,"1201,00006-0732-87 ",.02)
+524 ;;00006-0732-87
+525 ;;9002226.02101,"1201,00006-0732-94 ",.01)
+526 ;;00006-0732-94
+527 ;;9002226.02101,"1201,00006-0732-94 ",.02)
+528 ;;00006-0732-94
+529 ;;9002226.02101,"1201,00006-0735-28 ",.01)
+530 ;;00006-0735-28
+531 ;;9002226.02101,"1201,00006-0735-28 ",.02)
+532 ;;00006-0735-28
+533 ;;9002226.02101,"1201,00006-0735-31 ",.01)
+534 ;;00006-0735-31
+535 ;;9002226.02101,"1201,00006-0735-31 ",.02)
+536 ;;00006-0735-31
+537 ;;9002226.02101,"1201,00006-0735-54 ",.01)
+538 ;;00006-0735-54
+539 ;;9002226.02101,"1201,00006-0735-54 ",.02)
+540 ;;00006-0735-54
+541 ;;9002226.02101,"1201,00006-0735-61 ",.01)
+542 ;;00006-0735-61
+543 ;;9002226.02101,"1201,00006-0735-61 ",.02)
+544 ;;00006-0735-61
+545 ;;9002226.02101,"1201,00006-0735-82 ",.01)
+546 ;;00006-0735-82
+547 ;;9002226.02101,"1201,00006-0735-82 ",.02)
+548 ;;00006-0735-82
+549 ;;9002226.02101,"1201,00006-0735-87 ",.01)
+550 ;;00006-0735-87
+551 ;;9002226.02101,"1201,00006-0735-87 ",.02)
+552 ;;00006-0735-87
+553 ;;9002226.02101,"1201,00006-0740-28 ",.01)
+554 ;;00006-0740-28
+555 ;;9002226.02101,"1201,00006-0740-28 ",.02)
+556 ;;00006-0740-28
+557 ;;9002226.02101,"1201,00006-0740-31 ",.01)
+558 ;;00006-0740-31
+559 ;;9002226.02101,"1201,00006-0740-31 ",.02)
+560 ;;00006-0740-31
+561 ;;9002226.02101,"1201,00006-0740-54 ",.01)
+562 ;;00006-0740-54
+563 ;;9002226.02101,"1201,00006-0740-54 ",.02)
+564 ;;00006-0740-54
+565 ;;9002226.02101,"1201,00006-0740-61 ",.01)
+566 ;;00006-0740-61
+567 ;;9002226.02101,"1201,00006-0740-61 ",.02)
+568 ;;00006-0740-61
+569 ;;9002226.02101,"1201,00006-0740-82 ",.01)
+570 ;;00006-0740-82
+571 ;;9002226.02101,"1201,00006-0740-82 ",.02)
+572 ;;00006-0740-82
+573 ;;9002226.02101,"1201,00006-0740-87 ",.01)
+574 ;;00006-0740-87
+575 ;;9002226.02101,"1201,00006-0740-87 ",.02)
+576 ;;00006-0740-87
+577 ;;9002226.02101,"1201,00006-0749-28 ",.01)
+578 ;;00006-0749-28
+579 ;;9002226.02101,"1201,00006-0749-28 ",.02)
+580 ;;00006-0749-28
+581 ;;9002226.02101,"1201,00006-0749-31 ",.01)
+582 ;;00006-0749-31
+583 ;;9002226.02101,"1201,00006-0749-31 ",.02)
+584 ;;00006-0749-31
+585 ;;9002226.02101,"1201,00006-0749-54 ",.01)
+586 ;;00006-0749-54
+587 ;;9002226.02101,"1201,00006-0749-54 ",.02)
+588 ;;00006-0749-54
+589 ;;9002226.02101,"1201,00006-0749-61 ",.01)
+590 ;;00006-0749-61
+591 ;;9002226.02101,"1201,00006-0749-61 ",.02)
+592 ;;00006-0749-61
+593 ;;9002226.02101,"1201,00006-0749-82 ",.01)
+594 ;;00006-0749-82
+595 ;;9002226.02101,"1201,00006-0749-82 ",.02)
+596 ;;00006-0749-82
+597 ;;9002226.02101,"1201,00006-0753-31 ",.01)
+598 ;;00006-0753-31
+599 ;;9002226.02101,"1201,00006-0753-31 ",.02)
+600 ;;00006-0753-31
+601 ;;9002226.02101,"1201,00006-0753-54 ",.01)
+602 ;;00006-0753-54
+603 ;;9002226.02101,"1201,00006-0753-54 ",.02)
+604 ;;00006-0753-54
+605 ;;9002226.02101,"1201,00006-0753-82 ",.01)
+606 ;;00006-0753-82
+607 ;;9002226.02101,"1201,00006-0753-82 ",.02)
+608 ;;00006-0753-82
