BGP44T5 ;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,"68084-0131-01 ")
;;392
;;21,"68084-0131-11 ")
;;393
;;21,"68084-0132-01 ")
;;454
;;21,"68084-0132-11 ")
;;455
;;21,"68084-0133-01 ")
;;566
;;21,"68084-0133-11 ")
;;567
;;21,"68084-0161-01 ")
;;991
;;21,"68084-0161-11 ")
;;992
;;21,"68084-0163-01 ")
;;1218
;;21,"68084-0163-11 ")
;;1219
;;21,"68084-0165-01 ")
;;1516
;;21,"68084-0165-11 ")
;;1517
;;21,"68084-0186-01 ")
;;721
;;21,"68084-0186-11 ")
;;722
;;21,"68084-0187-01 ")
;;779
;;21,"68084-0187-11 ")
;;780
;;21,"68084-0188-01 ")
;;859
;;21,"68084-0188-11 ")
;;860
;;21,"68084-0500-01 ")
;;753
;;21,"68084-0500-11 ")
;;754
;;21,"68084-0501-01 ")
;;831
;;21,"68084-0501-11 ")
;;832
;;21,"68084-0502-01 ")
;;916
;;21,"68084-0502-11 ")
;;917
;;21,"68084-0510-01 ")
;;979
;;21,"68084-0510-11 ")
;;980
;;21,"68084-0511-01 ")
;;1058
;;21,"68084-0511-11 ")
;;1059
;;21,"68084-0512-01 ")
;;1161
;;21,"68084-0512-11 ")
;;1162
;;21,"68084-0513-01 ")
;;1322
;;21,"68084-0513-11 ")
;;1323
;;21,"68084-0514-01 ")
;;1488
;;21,"68084-0514-11 ")
;;1489
;;21,"68084-0558-01 ")
;;407
;;21,"68084-0559-01 ")
;;438
;;21,"68084-0559-11 ")
;;439
;;21,"68084-0560-01 ")
;;556
;;21,"68084-0564-01 ")
;;21
;;21,"68084-0564-11 ")
;;22
;;21,"68084-0565-01 ")
;;94
;;21,"68084-0565-11 ")
;;95
;;21,"68084-0589-01 ")
;;172
;;21,"68084-0589-11 ")
;;173
;;21,"68084-0590-25 ")
;;257
;;21,"68180-0467-01 ")
;;414
;;21,"68180-0467-03 ")
;;415
;;21,"68180-0467-07 ")
;;416
;;21,"68180-0468-01 ")
;;417
;;21,"68180-0468-03 ")
;;418
;;21,"68180-0468-05 ")
;;419
;;21,"68180-0468-07 ")
;;420
;;21,"68180-0469-01 ")
;;534
;;21,"68180-0469-03 ")
;;535
;;21,"68180-0469-05 ")
;;536
;;21,"68180-0469-07 ")
;;537
;;21,"68180-0478-01 ")
;;1055
;;21,"68180-0478-02 ")
;;1056
;;21,"68180-0478-03 ")
;;1057
;;21,"68180-0479-01 ")
;;1143
;;21,"68180-0479-02 ")
;;1144
;;21,"68180-0479-03 ")
;;1145
;;21,"68180-0480-01 ")
;;1305
;;21,"68180-0480-02 ")
;;1306
;;21,"68180-0480-03 ")
;;1307
;;21,"68180-0481-01 ")
;;1459
;;21,"68180-0481-02 ")
;;1460
;;21,"68180-0481-03 ")
;;1461
;;21,"68180-0482-06 ")
;;981
;;21,"68180-0482-09 ")
;;982
;;21,"68180-0485-02 ")
;;755
;;21,"68180-0485-09 ")
;;756
;;21,"68180-0486-02 ")
;;837
;;21,"68180-0486-09 ")
;;838
;;21,"68180-0487-02 ")
;;920
;;21,"68180-0487-09 ")
;;921
;;21,"68180-0488-02 ")
;;947
;;21,"68180-0488-09 ")
;;948
;;21,"68258-6000-03 ")
;;54
;;21,"68258-6000-09 ")
;;55
;;21,"68258-6001-03 ")
;;135
;;21,"68258-6001-09 ")
;;136
;;21,"68258-6002-03 ")
;;221
;;21,"68258-6002-09 ")
;;222
;;21,"68258-6009-03 ")
;;1112
;;21,"68258-6009-09 ")
;;1113
;;21,"68258-6013-03 ")
;;933
;;21,"68258-6013-09 ")
;;934
;;21,"68258-6016-03 ")
;;649
;;21,"68258-6017-03 ")
;;632
;;21,"68258-6041-03 ")
;;51
;;21,"68258-6042-03 ")
;;131
;;21,"68258-6043-03 ")
;;212
;;21,"68258-6043-09 ")
;;213
;;21,"68258-6044-03 ")
;;289
;;21,"68258-6044-09 ")
;;290
;;21,"68258-6049-03 ")
;;736
;;21,"68258-6050-03 ")
;;1011
;;21,"68258-6970-03 ")
;;1622
;;21,"68258-6983-03 ")
;;705
;;21,"68258-6984-03 ")
;;1624
;;21,"68258-6985-09 ")
;;1012
;;21,"68258-6992-09 ")
;;52
;;21,"68258-6993-09 ")
;;130
;;21,"68382-0065-05 ")
;;968
;;21,"68382-0065-06 ")
;;969
;;21,"68382-0065-10 ")
;;970
;;21,"68382-0065-14 ")
;;971
;;21,"68382-0065-16 ")
;;972
;;21,"68382-0066-05 ")
;;1035
;;21,"68382-0066-06 ")
;;1036
;;21,"68382-0066-10 ")
;;1037
;;21,"68382-0066-14 ")
;;1038
;;21,"68382-0066-16 ")
;;1039
;;21,"68382-0066-24 ")
;;1040
;;21,"68382-0067-05 ")
;;1173
;;21,"68382-0067-06 ")
;;1174
;;21,"68382-0067-10 ")
;;1175
;;21,"68382-0067-14 ")
;;1176
;;21,"68382-0067-16 ")
;;1177
;;21,"68382-0067-24 ")
;;1178
;;21,"68382-0068-05 ")
;;1341
;;21,"68382-0068-06 ")
;;1342
;;21,"68382-0068-10 ")
;;1343
;;21,"68382-0068-14 ")
;;1344
;;21,"68382-0068-16 ")
;;1345
;;21,"68382-0068-40 ")
;;1346
;;21,"68382-0069-05 ")
;;1494
;;21,"68382-0069-06 ")
;;1495
;;21,"68382-0069-10 ")
;;1496
;;21,"68382-0069-14 ")
;;1497
;;21,"68382-0069-16 ")
;;1498
;;21,"68382-0070-05 ")
;;743
;;21,"68382-0070-16 ")
;;744
;;21,"68382-0071-05 ")
;;815
;;21,"68382-0071-16 ")
;;816
;;21,"68382-0072-05 ")
;;904
;;21,"68382-0072-16 ")
;;905
;;21,"68382-0073-05 ")
;;952
;;21,"68382-0073-16 ")
;;953
;;21,"68462-0195-05 ")
;;728
;;21,"68462-0195-90 ")
;;729
;;21,"68462-0196-05 ")
;;806
;;21,"68462-0196-90 ")
;;807
;;21,"68462-0197-05 ")
;;882
;;21,"68462-0197-90 ")
;;883
;;21,"68462-0198-05 ")
;;931
;;21,"68462-0198-90 ")
;;932
;;21,"68645-0261-54 ")
;;1225
;;21,"68645-0262-54 ")
;;1388
;;21,"68645-0263-54 ")
;;1534
;;21,"68645-0402-70 ")
;;44
;;21,"68645-0403-70 ")
;;122
;;21,"68645-0417-54 ")
;;204
;;21,"68645-0418-54 ")
;;280
;;21,"68645-0460-54 ")
;;203
;;9002226,1201,.01)
;;BGP PQA STATIN NDC
;;9002226,1201,.02)
;;@
;;9002226,1201,.04)
;;n
;;9002226,1201,.06)
;;@
;;9002226,1201,.08)
;;@
;;9002226,1201,.09)
;;3130911
;;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-5178-05 ",.01)
;;00003-5178-05
;;9002226.02101,"1201,00003-5178-05 ",.02)
;;00003-5178-05
;;9002226.02101,"1201,00003-5194-10 ",.01)
;;00003-5194-10
;;9002226.02101,"1201,00003-5194-10 ",.02)
;;00003-5194-10
;;9002226.02101,"1201,00003-5195-10 ",.01)
;;00003-5195-10
;;9002226.02101,"1201,00003-5195-10 ",.02)
;;00003-5195-10
;;9002226.02101,"1201,00006-0533-31 ",.01)
;;00006-0533-31
;;9002226.02101,"1201,00006-0533-31 ",.02)
;;00006-0533-31
;;9002226.02101,"1201,00006-0533-54 ",.01)
;;00006-0533-54
;;9002226.02101,"1201,00006-0533-54 ",.02)
;;00006-0533-54
;;9002226.02101,"1201,00006-0535-31 ",.01)
;;00006-0535-31
;;9002226.02101,"1201,00006-0535-31 ",.02)
;;00006-0535-31
;;9002226.02101,"1201,00006-0535-54 ",.01)
;;00006-0535-54
;;9002226.02101,"1201,00006-0535-54 ",.02)
;;00006-0535-54
;;9002226.02101,"1201,00006-0537-31 ",.01)
;;00006-0537-31
;;9002226.02101,"1201,00006-0537-31 ",.02)
;;00006-0537-31
;;9002226.02101,"1201,00006-0537-54 ",.01)
;;00006-0537-54
;;9002226.02101,"1201,00006-0537-54 ",.02)
;;00006-0537-54
;;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-0726-31 ",.01)
;;00006-0726-31
;;9002226.02101,"1201,00006-0726-31 ",.02)
;;00006-0726-31
;;9002226.02101,"1201,00006-0731-61 ",.01)
;;00006-0731-61
;;9002226.02101,"1201,00006-0731-61 ",.02)
;;00006-0731-61
;;9002226.02101,"1201,00006-0732-61 ",.01)
;;00006-0732-61
;;9002226.02101,"1201,00006-0732-61 ",.02)
;;00006-0732-61
;;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-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-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-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
;;9002226.02101,"1201,00006-0757-31 ",.01)
;;00006-0757-31
;;9002226.02101,"1201,00006-0757-31 ",.02)
;;00006-0757-31
;;9002226.02101,"1201,00006-0757-54 ",.01)
;;00006-0757-54
;;9002226.02101,"1201,00006-0757-54 ",.02)
;;00006-0757-54
;;9002226.02101,"1201,00006-0757-82 ",.01)
;;00006-0757-82
;;9002226.02101,"1201,00006-0757-82 ",.02)
;;00006-0757-82
;;9002226.02101,"1201,00006-0773-31 ",.01)
;;00006-0773-31
;;9002226.02101,"1201,00006-0773-31 ",.02)
;;00006-0773-31
;;9002226.02101,"1201,00006-0773-54 ",.01)
;;00006-0773-54
;;9002226.02101,"1201,00006-0773-54 ",.02)
;;00006-0773-54
;;9002226.02101,"1201,00006-0773-82 ",.01)
;;00006-0773-82
;;9002226.02101,"1201,00006-0773-82 ",.02)
;;00006-0773-82
;;9002226.02101,"1201,00069-2150-30 ",.01)
;;00069-2150-30
;;9002226.02101,"1201,00069-2150-30 ",.02)
;;00069-2150-30
;;9002226.02101,"1201,00069-2160-30 ",.01)
;;00069-2160-30
;;9002226.02101,"1201,00069-2160-30 ",.02)
;;00069-2160-30
;;9002226.02101,"1201,00069-2170-30 ",.01)
;;00069-2170-30
;;9002226.02101,"1201,00069-2170-30 ",.02)
;;00069-2170-30
;;9002226.02101,"1201,00069-2180-30 ",.01)
;;00069-2180-30
;;9002226.02101,"1201,00069-2180-30 ",.02)
;;00069-2180-30
;;9002226.02101,"1201,00069-2190-30 ",.01)
;;00069-2190-30
;;9002226.02101,"1201,00069-2190-30 ",.02)
;;00069-2190-30
;;9002226.02101,"1201,00069-2250-30 ",.01)
;;00069-2250-30
;;9002226.02101,"1201,00069-2250-30 ",.02)
;;00069-2250-30
;;9002226.02101,"1201,00069-2260-30 ",.01)
;;00069-2260-30
;;9002226.02101,"1201,00069-2260-30 ",.02)
;;00069-2260-30
;;9002226.02101,"1201,00069-2270-30 ",.01)
;;00069-2270-30
;;9002226.02101,"1201,00069-2270-30 ",.02)
;;00069-2270-30
;;9002226.02101,"1201,00069-2960-30 ",.01)
;;00069-2960-30
;;9002226.02101,"1201,00069-2960-30 ",.02)
;;00069-2960-30
;;9002226.02101,"1201,00069-2970-30 ",.01)
;;00069-2970-30
;;9002226.02101,"1201,00069-2970-30 ",.02)
;;00069-2970-30
;;9002226.02101,"1201,00069-2980-30 ",.01)
;;00069-2980-30
;;9002226.02101,"1201,00069-2980-30 ",.02)
;;00069-2980-30
;;9002226.02101,"1201,00071-0155-23 ",.01)
;;00071-0155-23
;;9002226.02101,"1201,00071-0155-23 ",.02)
;;00071-0155-23
;;9002226.02101,"1201,00071-0155-34 ",.01)
;;00071-0155-34
;;9002226.02101,"1201,00071-0155-34 ",.02)
;;00071-0155-34
;;9002226.02101,"1201,00071-0155-40 ",.01)
;;00071-0155-40
;;9002226.02101,"1201,00071-0155-40 ",.02)
;;00071-0155-40
;;9002226.02101,"1201,00071-0156-23 ",.01)
;;00071-0156-23
;;9002226.02101,"1201,00071-0156-23 ",.02)
;;00071-0156-23
;;9002226.02101,"1201,00071-0156-40 ",.01)
;;00071-0156-40
;;9002226.02101,"1201,00071-0156-40 ",.02)
;;00071-0156-40
;;9002226.02101,"1201,00071-0156-94 ",.01)
;;00071-0156-94
;;9002226.02101,"1201,00071-0156-94 ",.02)
;;00071-0156-94
;;9002226.02101,"1201,00071-0157-23 ",.01)
;;00071-0157-23
;;9002226.02101,"1201,00071-0157-23 ",.02)
;;00071-0157-23
;;9002226.02101,"1201,00071-0157-40 ",.01)
;;00071-0157-40
;;9002226.02101,"1201,00071-0157-40 ",.02)
;;00071-0157-40
;;9002226.02101,"1201,00071-0157-73 ",.01)
;;00071-0157-73
;;9002226.02101,"1201,00071-0157-73 ",.02)
;;00071-0157-73
;;9002226.02101,"1201,00071-0157-88 ",.01)
;;00071-0157-88
;;9002226.02101,"1201,00071-0157-88 ",.02)
;;00071-0157-88
;;9002226.02101,"1201,00071-0158-23 ",.01)
;;00071-0158-23
;;9002226.02101,"1201,00071-0158-23 ",.02)
;;00071-0158-23
;;9002226.02101,"1201,00071-0158-73 ",.01)
;;00071-0158-73
;;9002226.02101,"1201,00071-0158-73 ",.02)
;;00071-0158-73
;;9002226.02101,"1201,00071-0158-88 ",.01)
;;00071-0158-88
;;9002226.02101,"1201,00071-0158-88 ",.02)
;;00071-0158-88
;;9002226.02101,"1201,00071-0158-92 ",.01)
;;00071-0158-92
;;9002226.02101,"1201,00071-0158-92 ",.02)
;;00071-0158-92
;;9002226.02101,"1201,00074-3005-90 ",.01)
;;00074-3005-90
;;9002226.02101,"1201,00074-3005-90 ",.02)
;;00074-3005-90
;;9002226.02101,"1201,00074-3007-90 ",.01)
;;00074-3007-90
;;9002226.02101,"1201,00074-3007-90 ",.02)
;;00074-3007-90
;;9002226.02101,"1201,00074-3010-90 ",.01)
;;00074-3010-90
;;9002226.02101,"1201,00074-3010-90 ",.02)
;;00074-3010-90
;;9002226.02101,"1201,00074-3072-90 ",.01)
;;00074-3072-90
;;9002226.02101,"1201,00074-3072-90 ",.02)
;;00074-3072-90
;;9002226.02101,"1201,00074-3312-90 ",.01)
;;00074-3312-90
;;9002226.02101,"1201,00074-3312-90 ",.02)
;;00074-3312-90
;;9002226.02101,"1201,00074-3315-90 ",.01)
;;00074-3315-90
BGP44T5 ;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,"68084-0131-01 ")
+2 ;;392
+3 ;;21,"68084-0131-11 ")
+4 ;;393
+5 ;;21,"68084-0132-01 ")
+6 ;;454
+7 ;;21,"68084-0132-11 ")
+8 ;;455
+9 ;;21,"68084-0133-01 ")
+10 ;;566
+11 ;;21,"68084-0133-11 ")
+12 ;;567
+13 ;;21,"68084-0161-01 ")
+14 ;;991
+15 ;;21,"68084-0161-11 ")
+16 ;;992
+17 ;;21,"68084-0163-01 ")
+18 ;;1218
+19 ;;21,"68084-0163-11 ")
+20 ;;1219
+21 ;;21,"68084-0165-01 ")
+22 ;;1516
+23 ;;21,"68084-0165-11 ")
+24 ;;1517
+25 ;;21,"68084-0186-01 ")
+26 ;;721
+27 ;;21,"68084-0186-11 ")
+28 ;;722
+29 ;;21,"68084-0187-01 ")
+30 ;;779
+31 ;;21,"68084-0187-11 ")
+32 ;;780
+33 ;;21,"68084-0188-01 ")
+34 ;;859
+35 ;;21,"68084-0188-11 ")
+36 ;;860
+37 ;;21,"68084-0500-01 ")
+38 ;;753
+39 ;;21,"68084-0500-11 ")
+40 ;;754
+41 ;;21,"68084-0501-01 ")
+42 ;;831
+43 ;;21,"68084-0501-11 ")
+44 ;;832
+45 ;;21,"68084-0502-01 ")
+46 ;;916
+47 ;;21,"68084-0502-11 ")
+48 ;;917
+49 ;;21,"68084-0510-01 ")
+50 ;;979
+51 ;;21,"68084-0510-11 ")
+52 ;;980
+53 ;;21,"68084-0511-01 ")
+54 ;;1058
+55 ;;21,"68084-0511-11 ")
+56 ;;1059
+57 ;;21,"68084-0512-01 ")
+58 ;;1161
+59 ;;21,"68084-0512-11 ")
+60 ;;1162
+61 ;;21,"68084-0513-01 ")
+62 ;;1322
+63 ;;21,"68084-0513-11 ")
+64 ;;1323
+65 ;;21,"68084-0514-01 ")
+66 ;;1488
+67 ;;21,"68084-0514-11 ")
+68 ;;1489
+69 ;;21,"68084-0558-01 ")
+70 ;;407
+71 ;;21,"68084-0559-01 ")
+72 ;;438
+73 ;;21,"68084-0559-11 ")
+74 ;;439
+75 ;;21,"68084-0560-01 ")
+76 ;;556
+77 ;;21,"68084-0564-01 ")
+78 ;;21
+79 ;;21,"68084-0564-11 ")
+80 ;;22
+81 ;;21,"68084-0565-01 ")
+82 ;;94
+83 ;;21,"68084-0565-11 ")
+84 ;;95
+85 ;;21,"68084-0589-01 ")
+86 ;;172
+87 ;;21,"68084-0589-11 ")
+88 ;;173
+89 ;;21,"68084-0590-25 ")
+90 ;;257
+91 ;;21,"68180-0467-01 ")
+92 ;;414
+93 ;;21,"68180-0467-03 ")
+94 ;;415
+95 ;;21,"68180-0467-07 ")
+96 ;;416
+97 ;;21,"68180-0468-01 ")
+98 ;;417
+99 ;;21,"68180-0468-03 ")
+100 ;;418
+101 ;;21,"68180-0468-05 ")
+102 ;;419
+103 ;;21,"68180-0468-07 ")
+104 ;;420
+105 ;;21,"68180-0469-01 ")
+106 ;;534
+107 ;;21,"68180-0469-03 ")
+108 ;;535
+109 ;;21,"68180-0469-05 ")
+110 ;;536
+111 ;;21,"68180-0469-07 ")
+112 ;;537
+113 ;;21,"68180-0478-01 ")
+114 ;;1055
+115 ;;21,"68180-0478-02 ")
+116 ;;1056
+117 ;;21,"68180-0478-03 ")
+118 ;;1057
+119 ;;21,"68180-0479-01 ")
+120 ;;1143
+121 ;;21,"68180-0479-02 ")
+122 ;;1144
+123 ;;21,"68180-0479-03 ")
+124 ;;1145
+125 ;;21,"68180-0480-01 ")
+126 ;;1305
+127 ;;21,"68180-0480-02 ")
+128 ;;1306
+129 ;;21,"68180-0480-03 ")
+130 ;;1307
+131 ;;21,"68180-0481-01 ")
+132 ;;1459
+133 ;;21,"68180-0481-02 ")
+134 ;;1460
+135 ;;21,"68180-0481-03 ")
+136 ;;1461
+137 ;;21,"68180-0482-06 ")
+138 ;;981
+139 ;;21,"68180-0482-09 ")
+140 ;;982
+141 ;;21,"68180-0485-02 ")
+142 ;;755
+143 ;;21,"68180-0485-09 ")
+144 ;;756
+145 ;;21,"68180-0486-02 ")
+146 ;;837
+147 ;;21,"68180-0486-09 ")
+148 ;;838
+149 ;;21,"68180-0487-02 ")
+150 ;;920
+151 ;;21,"68180-0487-09 ")
+152 ;;921
+153 ;;21,"68180-0488-02 ")
+154 ;;947
+155 ;;21,"68180-0488-09 ")
+156 ;;948
+157 ;;21,"68258-6000-03 ")
+158 ;;54
+159 ;;21,"68258-6000-09 ")
+160 ;;55
+161 ;;21,"68258-6001-03 ")
+162 ;;135
+163 ;;21,"68258-6001-09 ")
+164 ;;136
+165 ;;21,"68258-6002-03 ")
+166 ;;221
+167 ;;21,"68258-6002-09 ")
+168 ;;222
+169 ;;21,"68258-6009-03 ")
+170 ;;1112
+171 ;;21,"68258-6009-09 ")
+172 ;;1113
+173 ;;21,"68258-6013-03 ")
+174 ;;933
+175 ;;21,"68258-6013-09 ")
+176 ;;934
+177 ;;21,"68258-6016-03 ")
+178 ;;649
+179 ;;21,"68258-6017-03 ")
+180 ;;632
+181 ;;21,"68258-6041-03 ")
+182 ;;51
+183 ;;21,"68258-6042-03 ")
+184 ;;131
+185 ;;21,"68258-6043-03 ")
+186 ;;212
+187 ;;21,"68258-6043-09 ")
+188 ;;213
+189 ;;21,"68258-6044-03 ")
+190 ;;289
+191 ;;21,"68258-6044-09 ")
+192 ;;290
+193 ;;21,"68258-6049-03 ")
+194 ;;736
+195 ;;21,"68258-6050-03 ")
+196 ;;1011
+197 ;;21,"68258-6970-03 ")
+198 ;;1622
+199 ;;21,"68258-6983-03 ")
+200 ;;705
+201 ;;21,"68258-6984-03 ")
+202 ;;1624
+203 ;;21,"68258-6985-09 ")
+204 ;;1012
+205 ;;21,"68258-6992-09 ")
+206 ;;52
+207 ;;21,"68258-6993-09 ")
+208 ;;130
+209 ;;21,"68382-0065-05 ")
+210 ;;968
+211 ;;21,"68382-0065-06 ")
+212 ;;969
+213 ;;21,"68382-0065-10 ")
+214 ;;970
+215 ;;21,"68382-0065-14 ")
+216 ;;971
+217 ;;21,"68382-0065-16 ")
+218 ;;972
+219 ;;21,"68382-0066-05 ")
+220 ;;1035
+221 ;;21,"68382-0066-06 ")
+222 ;;1036
+223 ;;21,"68382-0066-10 ")
+224 ;;1037
+225 ;;21,"68382-0066-14 ")
+226 ;;1038
+227 ;;21,"68382-0066-16 ")
+228 ;;1039
+229 ;;21,"68382-0066-24 ")
+230 ;;1040
+231 ;;21,"68382-0067-05 ")
+232 ;;1173
+233 ;;21,"68382-0067-06 ")
+234 ;;1174
+235 ;;21,"68382-0067-10 ")
+236 ;;1175
+237 ;;21,"68382-0067-14 ")
+238 ;;1176
+239 ;;21,"68382-0067-16 ")
+240 ;;1177
+241 ;;21,"68382-0067-24 ")
+242 ;;1178
+243 ;;21,"68382-0068-05 ")
+244 ;;1341
+245 ;;21,"68382-0068-06 ")
+246 ;;1342
+247 ;;21,"68382-0068-10 ")
+248 ;;1343
+249 ;;21,"68382-0068-14 ")
+250 ;;1344
+251 ;;21,"68382-0068-16 ")
+252 ;;1345
+253 ;;21,"68382-0068-40 ")
+254 ;;1346
+255 ;;21,"68382-0069-05 ")
+256 ;;1494
+257 ;;21,"68382-0069-06 ")
+258 ;;1495
+259 ;;21,"68382-0069-10 ")
+260 ;;1496
+261 ;;21,"68382-0069-14 ")
+262 ;;1497
+263 ;;21,"68382-0069-16 ")
+264 ;;1498
+265 ;;21,"68382-0070-05 ")
+266 ;;743
+267 ;;21,"68382-0070-16 ")
+268 ;;744
+269 ;;21,"68382-0071-05 ")
+270 ;;815
+271 ;;21,"68382-0071-16 ")
+272 ;;816
+273 ;;21,"68382-0072-05 ")
+274 ;;904
+275 ;;21,"68382-0072-16 ")
+276 ;;905
+277 ;;21,"68382-0073-05 ")
+278 ;;952
+279 ;;21,"68382-0073-16 ")
+280 ;;953
+281 ;;21,"68462-0195-05 ")
+282 ;;728
+283 ;;21,"68462-0195-90 ")
+284 ;;729
+285 ;;21,"68462-0196-05 ")
+286 ;;806
+287 ;;21,"68462-0196-90 ")
+288 ;;807
+289 ;;21,"68462-0197-05 ")
+290 ;;882
+291 ;;21,"68462-0197-90 ")
+292 ;;883
+293 ;;21,"68462-0198-05 ")
+294 ;;931
+295 ;;21,"68462-0198-90 ")
+296 ;;932
+297 ;;21,"68645-0261-54 ")
+298 ;;1225
+299 ;;21,"68645-0262-54 ")
+300 ;;1388
+301 ;;21,"68645-0263-54 ")
+302 ;;1534
+303 ;;21,"68645-0402-70 ")
+304 ;;44
+305 ;;21,"68645-0403-70 ")
+306 ;;122
+307 ;;21,"68645-0417-54 ")
+308 ;;204
+309 ;;21,"68645-0418-54 ")
+310 ;;280
+311 ;;21,"68645-0460-54 ")
+312 ;;203
+313 ;;9002226,1201,.01)
+314 ;;BGP PQA STATIN NDC
+315 ;;9002226,1201,.02)
+316 ;;@
+317 ;;9002226,1201,.04)
+318 ;;n
+319 ;;9002226,1201,.06)
+320 ;;@
+321 ;;9002226,1201,.08)
+322 ;;@
+323 ;;9002226,1201,.09)
+324 ;;3130911
+325 ;;9002226,1201,.11)
+326 ;;@
+327 ;;9002226,1201,.12)
+328 ;;@
+329 ;;9002226,1201,.13)
+330 ;;1
+331 ;;9002226,1201,.14)
+332 ;;@
+333 ;;9002226,1201,.15)
+334 ;;@
+335 ;;9002226,1201,.16)
+336 ;;@
+337 ;;9002226,1201,.17)
+338 ;;@
+339 ;;9002226,1201,3101)
+340 ;;@
+341 ;;9002226.02101,"1201,00002-4770-90 ",.01)
+342 ;;00002-4770-90
+343 ;;9002226.02101,"1201,00002-4770-90 ",.02)
+344 ;;00002-4770-90
+345 ;;9002226.02101,"1201,00002-4771-90 ",.01)
+346 ;;00002-4771-90
+347 ;;9002226.02101,"1201,00002-4771-90 ",.02)
+348 ;;00002-4771-90
+349 ;;9002226.02101,"1201,00002-4772-90 ",.01)
+350 ;;00002-4772-90
+351 ;;9002226.02101,"1201,00002-4772-90 ",.02)
+352 ;;00002-4772-90
+353 ;;9002226.02101,"1201,00003-5178-05 ",.01)
+354 ;;00003-5178-05
+355 ;;9002226.02101,"1201,00003-5178-05 ",.02)
+356 ;;00003-5178-05
+357 ;;9002226.02101,"1201,00003-5194-10 ",.01)
+358 ;;00003-5194-10
+359 ;;9002226.02101,"1201,00003-5194-10 ",.02)
+360 ;;00003-5194-10
+361 ;;9002226.02101,"1201,00003-5195-10 ",.01)
+362 ;;00003-5195-10
+363 ;;9002226.02101,"1201,00003-5195-10 ",.02)
+364 ;;00003-5195-10
+365 ;;9002226.02101,"1201,00006-0533-31 ",.01)
+366 ;;00006-0533-31
+367 ;;9002226.02101,"1201,00006-0533-31 ",.02)
+368 ;;00006-0533-31
+369 ;;9002226.02101,"1201,00006-0533-54 ",.01)
+370 ;;00006-0533-54
+371 ;;9002226.02101,"1201,00006-0533-54 ",.02)
+372 ;;00006-0533-54
+373 ;;9002226.02101,"1201,00006-0535-31 ",.01)
+374 ;;00006-0535-31
+375 ;;9002226.02101,"1201,00006-0535-31 ",.02)
+376 ;;00006-0535-31
+377 ;;9002226.02101,"1201,00006-0535-54 ",.01)
+378 ;;00006-0535-54
+379 ;;9002226.02101,"1201,00006-0535-54 ",.02)
+380 ;;00006-0535-54
+381 ;;9002226.02101,"1201,00006-0537-31 ",.01)
+382 ;;00006-0537-31
+383 ;;9002226.02101,"1201,00006-0537-31 ",.02)
+384 ;;00006-0537-31
+385 ;;9002226.02101,"1201,00006-0537-54 ",.01)
+386 ;;00006-0537-54
+387 ;;9002226.02101,"1201,00006-0537-54 ",.02)
+388 ;;00006-0537-54
+389 ;;9002226.02101,"1201,00006-0543-31 ",.01)
+390 ;;00006-0543-31
+391 ;;9002226.02101,"1201,00006-0543-31 ",.02)
+392 ;;00006-0543-31
+393 ;;9002226.02101,"1201,00006-0543-54 ",.01)
+394 ;;00006-0543-54
+395 ;;9002226.02101,"1201,00006-0543-54 ",.02)
+396 ;;00006-0543-54
+397 ;;9002226.02101,"1201,00006-0726-31 ",.01)
+398 ;;00006-0726-31
+399 ;;9002226.02101,"1201,00006-0726-31 ",.02)
+400 ;;00006-0726-31
+401 ;;9002226.02101,"1201,00006-0731-61 ",.01)
+402 ;;00006-0731-61
+403 ;;9002226.02101,"1201,00006-0731-61 ",.02)
+404 ;;00006-0731-61
+405 ;;9002226.02101,"1201,00006-0732-61 ",.01)
+406 ;;00006-0732-61
+407 ;;9002226.02101,"1201,00006-0732-61 ",.02)
+408 ;;00006-0732-61
+409 ;;9002226.02101,"1201,00006-0735-31 ",.01)
+410 ;;00006-0735-31
+411 ;;9002226.02101,"1201,00006-0735-31 ",.02)
+412 ;;00006-0735-31
+413 ;;9002226.02101,"1201,00006-0735-54 ",.01)
+414 ;;00006-0735-54
+415 ;;9002226.02101,"1201,00006-0735-54 ",.02)
+416 ;;00006-0735-54
+417 ;;9002226.02101,"1201,00006-0740-31 ",.01)
+418 ;;00006-0740-31
+419 ;;9002226.02101,"1201,00006-0740-31 ",.02)
+420 ;;00006-0740-31
+421 ;;9002226.02101,"1201,00006-0740-54 ",.01)
+422 ;;00006-0740-54
+423 ;;9002226.02101,"1201,00006-0740-54 ",.02)
+424 ;;00006-0740-54
+425 ;;9002226.02101,"1201,00006-0749-31 ",.01)
+426 ;;00006-0749-31
+427 ;;9002226.02101,"1201,00006-0749-31 ",.02)
+428 ;;00006-0749-31
+429 ;;9002226.02101,"1201,00006-0749-54 ",.01)
+430 ;;00006-0749-54
+431 ;;9002226.02101,"1201,00006-0749-54 ",.02)
+432 ;;00006-0749-54
+433 ;;9002226.02101,"1201,00006-0753-31 ",.01)
+434 ;;00006-0753-31
+435 ;;9002226.02101,"1201,00006-0753-31 ",.02)
+436 ;;00006-0753-31
+437 ;;9002226.02101,"1201,00006-0753-54 ",.01)
+438 ;;00006-0753-54
+439 ;;9002226.02101,"1201,00006-0753-54 ",.02)
+440 ;;00006-0753-54
+441 ;;9002226.02101,"1201,00006-0753-82 ",.01)
+442 ;;00006-0753-82
+443 ;;9002226.02101,"1201,00006-0753-82 ",.02)
+444 ;;00006-0753-82
+445 ;;9002226.02101,"1201,00006-0757-31 ",.01)
+446 ;;00006-0757-31
+447 ;;9002226.02101,"1201,00006-0757-31 ",.02)
+448 ;;00006-0757-31
+449 ;;9002226.02101,"1201,00006-0757-54 ",.01)
+450 ;;00006-0757-54
+451 ;;9002226.02101,"1201,00006-0757-54 ",.02)
+452 ;;00006-0757-54
+453 ;;9002226.02101,"1201,00006-0757-82 ",.01)
+454 ;;00006-0757-82
+455 ;;9002226.02101,"1201,00006-0757-82 ",.02)
+456 ;;00006-0757-82
+457 ;;9002226.02101,"1201,00006-0773-31 ",.01)
+458 ;;00006-0773-31
+459 ;;9002226.02101,"1201,00006-0773-31 ",.02)
+460 ;;00006-0773-31
+461 ;;9002226.02101,"1201,00006-0773-54 ",.01)
+462 ;;00006-0773-54
+463 ;;9002226.02101,"1201,00006-0773-54 ",.02)
+464 ;;00006-0773-54
+465 ;;9002226.02101,"1201,00006-0773-82 ",.01)
+466 ;;00006-0773-82
+467 ;;9002226.02101,"1201,00006-0773-82 ",.02)
+468 ;;00006-0773-82
+469 ;;9002226.02101,"1201,00069-2150-30 ",.01)
+470 ;;00069-2150-30
+471 ;;9002226.02101,"1201,00069-2150-30 ",.02)
+472 ;;00069-2150-30
+473 ;;9002226.02101,"1201,00069-2160-30 ",.01)
+474 ;;00069-2160-30
+475 ;;9002226.02101,"1201,00069-2160-30 ",.02)
+476 ;;00069-2160-30
+477 ;;9002226.02101,"1201,00069-2170-30 ",.01)
+478 ;;00069-2170-30
+479 ;;9002226.02101,"1201,00069-2170-30 ",.02)
+480 ;;00069-2170-30
+481 ;;9002226.02101,"1201,00069-2180-30 ",.01)
+482 ;;00069-2180-30
+483 ;;9002226.02101,"1201,00069-2180-30 ",.02)
+484 ;;00069-2180-30
+485 ;;9002226.02101,"1201,00069-2190-30 ",.01)
+486 ;;00069-2190-30
+487 ;;9002226.02101,"1201,00069-2190-30 ",.02)
+488 ;;00069-2190-30
+489 ;;9002226.02101,"1201,00069-2250-30 ",.01)
+490 ;;00069-2250-30
+491 ;;9002226.02101,"1201,00069-2250-30 ",.02)
+492 ;;00069-2250-30
+493 ;;9002226.02101,"1201,00069-2260-30 ",.01)
+494 ;;00069-2260-30
+495 ;;9002226.02101,"1201,00069-2260-30 ",.02)
+496 ;;00069-2260-30
+497 ;;9002226.02101,"1201,00069-2270-30 ",.01)
+498 ;;00069-2270-30
+499 ;;9002226.02101,"1201,00069-2270-30 ",.02)
+500 ;;00069-2270-30
+501 ;;9002226.02101,"1201,00069-2960-30 ",.01)
+502 ;;00069-2960-30
+503 ;;9002226.02101,"1201,00069-2960-30 ",.02)
+504 ;;00069-2960-30
+505 ;;9002226.02101,"1201,00069-2970-30 ",.01)
+506 ;;00069-2970-30
+507 ;;9002226.02101,"1201,00069-2970-30 ",.02)
+508 ;;00069-2970-30
+509 ;;9002226.02101,"1201,00069-2980-30 ",.01)
+510 ;;00069-2980-30
+511 ;;9002226.02101,"1201,00069-2980-30 ",.02)
+512 ;;00069-2980-30
+513 ;;9002226.02101,"1201,00071-0155-23 ",.01)
+514 ;;00071-0155-23
+515 ;;9002226.02101,"1201,00071-0155-23 ",.02)
+516 ;;00071-0155-23
+517 ;;9002226.02101,"1201,00071-0155-34 ",.01)
+518 ;;00071-0155-34
+519 ;;9002226.02101,"1201,00071-0155-34 ",.02)
+520 ;;00071-0155-34
+521 ;;9002226.02101,"1201,00071-0155-40 ",.01)
+522 ;;00071-0155-40
+523 ;;9002226.02101,"1201,00071-0155-40 ",.02)
+524 ;;00071-0155-40
+525 ;;9002226.02101,"1201,00071-0156-23 ",.01)
+526 ;;00071-0156-23
+527 ;;9002226.02101,"1201,00071-0156-23 ",.02)
+528 ;;00071-0156-23
+529 ;;9002226.02101,"1201,00071-0156-40 ",.01)
+530 ;;00071-0156-40
+531 ;;9002226.02101,"1201,00071-0156-40 ",.02)
+532 ;;00071-0156-40
+533 ;;9002226.02101,"1201,00071-0156-94 ",.01)
+534 ;;00071-0156-94
+535 ;;9002226.02101,"1201,00071-0156-94 ",.02)
+536 ;;00071-0156-94
+537 ;;9002226.02101,"1201,00071-0157-23 ",.01)
+538 ;;00071-0157-23
+539 ;;9002226.02101,"1201,00071-0157-23 ",.02)
+540 ;;00071-0157-23
+541 ;;9002226.02101,"1201,00071-0157-40 ",.01)
+542 ;;00071-0157-40
+543 ;;9002226.02101,"1201,00071-0157-40 ",.02)
+544 ;;00071-0157-40
+545 ;;9002226.02101,"1201,00071-0157-73 ",.01)
+546 ;;00071-0157-73
+547 ;;9002226.02101,"1201,00071-0157-73 ",.02)
+548 ;;00071-0157-73
+549 ;;9002226.02101,"1201,00071-0157-88 ",.01)
+550 ;;00071-0157-88
+551 ;;9002226.02101,"1201,00071-0157-88 ",.02)
+552 ;;00071-0157-88
+553 ;;9002226.02101,"1201,00071-0158-23 ",.01)
+554 ;;00071-0158-23
+555 ;;9002226.02101,"1201,00071-0158-23 ",.02)
+556 ;;00071-0158-23
+557 ;;9002226.02101,"1201,00071-0158-73 ",.01)
+558 ;;00071-0158-73
+559 ;;9002226.02101,"1201,00071-0158-73 ",.02)
+560 ;;00071-0158-73
+561 ;;9002226.02101,"1201,00071-0158-88 ",.01)
+562 ;;00071-0158-88
+563 ;;9002226.02101,"1201,00071-0158-88 ",.02)
+564 ;;00071-0158-88
+565 ;;9002226.02101,"1201,00071-0158-92 ",.01)
+566 ;;00071-0158-92
+567 ;;9002226.02101,"1201,00071-0158-92 ",.02)
+568 ;;00071-0158-92
+569 ;;9002226.02101,"1201,00074-3005-90 ",.01)
+570 ;;00074-3005-90
+571 ;;9002226.02101,"1201,00074-3005-90 ",.02)
+572 ;;00074-3005-90
+573 ;;9002226.02101,"1201,00074-3007-90 ",.01)
+574 ;;00074-3007-90
+575 ;;9002226.02101,"1201,00074-3007-90 ",.02)
+576 ;;00074-3007-90
+577 ;;9002226.02101,"1201,00074-3010-90 ",.01)
+578 ;;00074-3010-90
+579 ;;9002226.02101,"1201,00074-3010-90 ",.02)
+580 ;;00074-3010-90
+581 ;;9002226.02101,"1201,00074-3072-90 ",.01)
+582 ;;00074-3072-90
+583 ;;9002226.02101,"1201,00074-3072-90 ",.02)
+584 ;;00074-3072-90
+585 ;;9002226.02101,"1201,00074-3312-90 ",.01)
+586 ;;00074-3312-90
+587 ;;9002226.02101,"1201,00074-3312-90 ",.02)
+588 ;;00074-3312-90
+589 ;;9002226.02101,"1201,00074-3315-90 ",.01)
+590 ;;00074-3315-90
