BGP2TG4 ;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,"66105-0984-10 ")
;;966
;;21,"66105-0984-11 ")
;;967
;;21,"66105-0984-50 ")
;;968
;;21,"66105-0985-03 ")
;;1023
;;21,"66105-0985-06 ")
;;1024
;;21,"66105-0985-10 ")
;;1025
;;21,"66105-0985-11 ")
;;1026
;;21,"66105-0985-50 ")
;;1027
;;21,"66105-0986-03 ")
;;1251
;;21,"66105-0986-06 ")
;;1252
;;21,"66105-0986-10 ")
;;1253
;;21,"66105-0986-11 ")
;;1254
;;21,"66105-0986-50 ")
;;1255
;;21,"66116-0233-30 ")
;;84
;;21,"66116-0440-30 ")
;;1249
;;21,"66267-0100-30 ")
;;621
;;21,"66267-0100-60 ")
;;622
;;21,"66267-0100-90 ")
;;623
;;21,"66267-0100-91 ")
;;624
;;21,"66267-0100-92 ")
;;625
;;21,"66267-0103-30 ")
;;1250
;;21,"66336-0028-30 ")
;;1029
;;21,"66336-0269-30 ")
;;778
;;21,"66336-0319-30 ")
;;147
;;21,"66336-0534-30 ")
;;292
;;21,"66336-0535-30 ")
;;347
;;21,"66336-0535-90 ")
;;348
;;21,"66336-0573-30 ")
;;395
;;21,"66336-0573-90 ")
;;396
;;21,"66336-0662-30 ")
;;483
;;21,"66336-0662-60 ")
;;484
;;21,"66336-0662-90 ")
;;485
;;21,"66336-0662-94 ")
;;486
;;21,"66336-0730-14 ")
;;617
;;21,"66336-0730-30 ")
;;618
;;21,"66336-0730-60 ")
;;619
;;21,"66336-0730-90 ")
;;620
;;21,"66336-0784-30 ")
;;202
;;21,"66336-0784-60 ")
;;156
;;21,"66336-0784-90 ")
;;157
;;21,"66336-0850-30 ")
;;96
;;21,"66336-0850-60 ")
;;97
;;21,"66336-0850-90 ")
;;98
;;21,"66336-0938-30 ")
;;1242
;;21,"66336-0938-60 ")
;;1243
;;21,"66336-0938-90 ")
;;1244
;;21,"66993-0162-02 ")
;;293
;;21,"66993-0163-02 ")
;;344
;;21,"66993-0164-02 ")
;;394
;;21,"67253-0460-10 ")
;;867
;;21,"67253-0460-11 ")
;;868
;;21,"67253-0460-50 ")
;;869
;;21,"67253-0461-10 ")
;;893
;;21,"67253-0461-11 ")
;;894
;;21,"67253-0461-50 ")
;;895
;;21,"67253-0462-10 ")
;;915
;;21,"67253-0462-11 ")
;;916
;;21,"67253-0462-50 ")
;;917
;;21,"67544-0097-53 ")
;;463
;;21,"67544-0097-60 ")
;;464
;;21,"67544-0097-70 ")
;;465
;;21,"67544-0097-80 ")
;;466
;;21,"67544-0097-94 ")
;;467
;;21,"67544-0098-53 ")
;;1283
;;21,"67544-0098-60 ")
;;1284
;;21,"67544-0098-70 ")
;;1285
;;21,"67544-0098-80 ")
;;1286
;;21,"67544-0098-90 ")
;;1287
;;21,"67544-0098-92 ")
;;1288
;;21,"67544-0098-94 ")
;;1289
;;21,"67544-0129-53 ")
;;459
;;21,"67544-0129-70 ")
;;460
;;21,"67544-0129-80 ")
;;461
;;21,"67544-0129-94 ")
;;462
;;21,"67544-0199-80 ")
;;779
;;21,"67544-0296-70 ")
;;146
;;21,"67544-0302-45 ")
;;648
;;21,"67544-0302-60 ")
;;649
;;21,"67544-0302-73 ")
;;650
;;21,"67544-0302-80 ")
;;651
;;21,"67544-0302-92 ")
;;652
;;21,"67544-0302-98 ")
;;653
;;21,"67544-0364-70 ")
;;198
;;21,"67544-0417-70 ")
;;199
;;21,"67544-0478-82 ")
;;1075
;;21,"67544-0511-70 ")
;;196
;;21,"67544-0548-82 ")
;;978
;;21,"67544-0566-53 ")
;;1219
;;21,"67544-0566-60 ")
;;1220
;;21,"67544-0566-70 ")
;;1221
;;21,"67544-0566-80 ")
;;1222
;;21,"67544-0566-90 ")
;;1223
;;21,"67544-0566-92 ")
;;1224
;;21,"67544-0566-94 ")
;;1225
;;21,"67544-0613-53 ")
;;1226
;;21,"67544-0613-60 ")
;;1227
;;21,"67544-0613-70 ")
;;1228
;;21,"67544-0613-80 ")
;;1229
;;21,"67544-0613-90 ")
;;1230
;;21,"67544-0613-92 ")
;;1231
;;21,"67544-0613-94 ")
;;1232
;;21,"67544-0643-80 ")
;;1233
;;21,"67544-0643-94 ")
;;1234
;;21,"67544-0653-53 ")
;;1235
;;21,"67544-0653-60 ")
;;1236
;;21,"67544-0653-70 ")
;;1237
;;21,"67544-0653-80 ")
;;1238
;;21,"67544-0653-90 ")
;;1239
;;21,"67544-0653-92 ")
;;1240
;;21,"67544-0653-94 ")
;;1241
;;21,"67544-0661-41 ")
;;962
;;21,"67544-0661-81 ")
;;963
;;21,"67544-0751-60 ")
;;457
;;21,"67544-0751-80 ")
;;458
;;21,"67544-0756-60 ")
;;654
;;21,"67544-0756-80 ")
;;655
;;21,"67544-0808-60 ")
;;740
;;21,"67544-0875-60 ")
;;1002
;;21,"67544-0875-80 ")
;;1003
;;21,"67544-0927-60 ")
;;1004
;;21,"67544-1129-70 ")
;;197
;;21,"68071-0028-30 ")
;;164
;;21,"68071-0028-60 ")
;;165
;;21,"68084-0111-01 ")
;;837
;;21,"68084-0111-11 ")
;;838
;;21,"68084-0112-01 ")
;;737
;;21,"68084-0112-11 ")
;;738
;;21,"68084-0136-01 ")
;;70
;;21,"68084-0136-11 ")
;;71
;;21,"68084-0137-01 ")
;;114
;;21,"68084-0137-11 ")
;;115
;;21,"68084-0138-01 ")
;;200
;;21,"68084-0138-11 ")
;;201
;;21,"68084-0295-11 ")
;;798
;;21,"68084-0295-21 ")
;;799
;;21,"68084-0326-01 ")
;;345
;;21,"68084-0326-11 ")
;;346
;;21,"68084-0327-01 ")
;;392
;;21,"68084-0327-11 ")
;;393
;;21,"68115-0154-30 ")
;;455
;;21,"68115-0154-60 ")
;;456
;;21,"68115-0155-30 ")
;;656
;;21,"68115-0155-60 ")
;;657
;;21,"68115-0155-90 ")
;;658
;;21,"68115-0156-30 ")
;;780
;;21,"68115-0157-30 ")
;;856
;;21,"68115-0158-30 ")
;;82
;;21,"68115-0158-60 ")
;;83
;;21,"68115-0159-30 ")
;;144
;;21,"68115-0159-60 ")
;;145
;;21,"68115-0160-30 ")
;;1005
;;21,"68115-0161-30 ")
;;1246
;;21,"68115-0161-60 ")
;;1247
;;21,"68115-0616-00 ")
;;839
;;21,"68115-0622-00 ")
;;918
;;21,"68115-0840-00 ")
;;351
;;21,"68258-1012-01 ")
;;659
;;21,"68258-1013-01 ")
;;454
;;21,"68258-1014-01 ")
;;1248
;;21,"68258-1051-01 ")
;;739
;;21,"68645-0150-54 ")
;;660
;;21,"68645-0151-59 ")
;;453
;;21,"68645-0210-54 ")
;;1006
;;21,"68645-0211-54 ")
;;1245
;;9002226,1199,.01)
;;BGP PQA SULFONYLUREA NDC
;;9002226,1199,.02)
;;@
;;9002226,1199,.04)
;;n
;;9002226,1199,.06)
;;@
;;9002226,1199,.08)
;;@
;;9002226,1199,.09)
;;3120312
;;9002226,1199,.11)
;;@
;;9002226,1199,.12)
;;@
;;9002226,1199,.13)
;;1
;;9002226,1199,.14)
;;@
;;9002226,1199,.15)
;;@
;;9002226,1199,.16)
;;@
;;9002226,1199,.17)
;;@
;;9002226,1199,3101)
;;@
;;9002226.02101,"1199,00007-3148-13 ",.01)
;;00007-3148-13
;;9002226.02101,"1199,00007-3148-13 ",.02)
;;00007-3148-13
;;9002226.02101,"1199,00007-3149-13 ",.01)
;;00007-3149-13
;;9002226.02101,"1199,00007-3149-13 ",.02)
;;00007-3149-13
;;9002226.02101,"1199,00007-3151-13 ",.01)
;;00007-3151-13
;;9002226.02101,"1199,00007-3151-13 ",.02)
;;00007-3151-13
;;9002226.02101,"1199,00007-3152-13 ",.01)
;;00007-3152-13
;;9002226.02101,"1199,00007-3152-13 ",.02)
;;00007-3152-13
;;9002226.02101,"1199,00007-3153-13 ",.01)
;;00007-3153-13
;;9002226.02101,"1199,00007-3153-13 ",.02)
;;00007-3153-13
;;9002226.02101,"1199,00009-0070-02 ",.01)
;;00009-0070-02
;;9002226.02101,"1199,00009-0070-02 ",.02)
;;00009-0070-02
;;9002226.02101,"1199,00009-0114-04 ",.01)
;;00009-0114-04
;;9002226.02101,"1199,00009-0114-04 ",.02)
;;00009-0114-04
;;9002226.02101,"1199,00009-0114-05 ",.01)
;;00009-0114-05
;;9002226.02101,"1199,00009-0114-05 ",.02)
;;00009-0114-05
;;9002226.02101,"1199,00009-0131-01 ",.01)
;;00009-0131-01
;;9002226.02101,"1199,00009-0131-01 ",.02)
;;00009-0131-01
;;9002226.02101,"1199,00009-0141-01 ",.01)
;;00009-0141-01
;;9002226.02101,"1199,00009-0141-01 ",.02)
;;00009-0141-01
;;9002226.02101,"1199,00009-0141-02 ",.01)
;;00009-0141-02
;;9002226.02101,"1199,00009-0141-02 ",.02)
;;00009-0141-02
;;9002226.02101,"1199,00009-0171-03 ",.01)
;;00009-0171-03
;;9002226.02101,"1199,00009-0171-03 ",.02)
;;00009-0171-03
;;9002226.02101,"1199,00009-0171-05 ",.01)
;;00009-0171-05
;;9002226.02101,"1199,00009-0171-05 ",.02)
;;00009-0171-05
;;9002226.02101,"1199,00009-0171-06 ",.01)
;;00009-0171-06
;;9002226.02101,"1199,00009-0171-06 ",.02)
;;00009-0171-06
;;9002226.02101,"1199,00009-0171-07 ",.01)
;;00009-0171-07
;;9002226.02101,"1199,00009-0171-07 ",.02)
;;00009-0171-07
;;9002226.02101,"1199,00009-0341-01 ",.01)
;;00009-0341-01
;;9002226.02101,"1199,00009-0341-01 ",.02)
;;00009-0341-01
;;9002226.02101,"1199,00009-0341-02 ",.01)
;;00009-0341-02
;;9002226.02101,"1199,00009-0341-02 ",.02)
;;00009-0341-02
;;9002226.02101,"1199,00009-0352-01 ",.01)
;;00009-0352-01
;;9002226.02101,"1199,00009-0352-01 ",.02)
;;00009-0352-01
;;9002226.02101,"1199,00009-0352-02 ",.01)
;;00009-0352-02
;;9002226.02101,"1199,00009-0352-02 ",.02)
;;00009-0352-02
;;9002226.02101,"1199,00009-0352-03 ",.01)
;;00009-0352-03
;;9002226.02101,"1199,00009-0352-03 ",.02)
;;00009-0352-03
;;9002226.02101,"1199,00009-0352-04 ",.01)
;;00009-0352-04
;;9002226.02101,"1199,00009-0352-04 ",.02)
;;00009-0352-04
;;9002226.02101,"1199,00009-3449-01 ",.01)
;;00009-3449-01
;;9002226.02101,"1199,00009-3449-01 ",.02)
;;00009-3449-01
;;9002226.02101,"1199,00009-3449-03 ",.01)
;;00009-3449-03
;;9002226.02101,"1199,00009-3449-03 ",.02)
;;00009-3449-03
;;9002226.02101,"1199,00029-3151-13 ",.01)
;;00029-3151-13
;;9002226.02101,"1199,00029-3151-13 ",.02)
;;00029-3151-13
;;9002226.02101,"1199,00029-3152-13 ",.01)
;;00029-3152-13
;;9002226.02101,"1199,00029-3152-13 ",.02)
;;00029-3152-13
;;9002226.02101,"1199,00029-3153-13 ",.01)
;;00029-3153-13
;;9002226.02101,"1199,00029-3153-13 ",.02)
;;00029-3153-13
;;9002226.02101,"1199,00039-0051-10 ",.01)
;;00039-0051-10
;;9002226.02101,"1199,00039-0051-10 ",.02)
;;00039-0051-10
;;9002226.02101,"1199,00039-0051-11 ",.01)
;;00039-0051-11
;;9002226.02101,"1199,00039-0051-11 ",.02)
;;00039-0051-11
;;9002226.02101,"1199,00039-0051-50 ",.01)
;;00039-0051-50
;;9002226.02101,"1199,00039-0051-50 ",.02)
;;00039-0051-50
;;9002226.02101,"1199,00039-0052-10 ",.01)
;;00039-0052-10
;;9002226.02101,"1199,00039-0052-10 ",.02)
;;00039-0052-10
;;9002226.02101,"1199,00039-0052-11 ",.01)
;;00039-0052-11
;;9002226.02101,"1199,00039-0052-11 ",.02)
;;00039-0052-11
;;9002226.02101,"1199,00039-0052-50 ",.01)
;;00039-0052-50
;;9002226.02101,"1199,00039-0052-50 ",.02)
;;00039-0052-50
;;9002226.02101,"1199,00039-0052-70 ",.01)
;;00039-0052-70
;;9002226.02101,"1199,00039-0052-70 ",.02)
;;00039-0052-70
;;9002226.02101,"1199,00039-0053-05 ",.01)
;;00039-0053-05
;;9002226.02101,"1199,00039-0053-05 ",.02)
;;00039-0053-05
;;9002226.02101,"1199,00039-0221-10 ",.01)
;;00039-0221-10
;;9002226.02101,"1199,00039-0221-10 ",.02)
;;00039-0221-10
;;9002226.02101,"1199,00039-0222-10 ",.01)
;;00039-0222-10
;;9002226.02101,"1199,00039-0222-10 ",.02)
;;00039-0222-10
;;9002226.02101,"1199,00039-0222-11 ",.01)
;;00039-0222-11
;;9002226.02101,"1199,00039-0222-11 ",.02)
;;00039-0222-11
;;9002226.02101,"1199,00039-0223-10 ",.01)
;;00039-0223-10
;;9002226.02101,"1199,00039-0223-10 ",.02)
;;00039-0223-10
;;9002226.02101,"1199,00039-0223-11 ",.01)
;;00039-0223-11
;;9002226.02101,"1199,00039-0223-11 ",.02)
;;00039-0223-11
;;9002226.02101,"1199,00049-1550-66 ",.01)
;;00049-1550-66
;;9002226.02101,"1199,00049-1550-66 ",.02)
;;00049-1550-66
;;9002226.02101,"1199,00049-1550-73 ",.01)
;;00049-1550-73
;;9002226.02101,"1199,00049-1550-73 ",.02)
;;00049-1550-73
;;9002226.02101,"1199,00049-1560-66 ",.01)
;;00049-1560-66
;;9002226.02101,"1199,00049-1560-66 ",.02)
;;00049-1560-66
;;9002226.02101,"1199,00049-1560-73 ",.01)
;;00049-1560-73
;;9002226.02101,"1199,00049-1560-73 ",.02)
;;00049-1560-73
;;9002226.02101,"1199,00049-1620-30 ",.01)
;;00049-1620-30
;;9002226.02101,"1199,00049-1620-30 ",.02)
;;00049-1620-30
;;9002226.02101,"1199,00049-4110-66 ",.01)
;;00049-4110-66
;;9002226.02101,"1199,00049-4110-66 ",.02)
;;00049-4110-66
;;9002226.02101,"1199,00049-4110-73 ",.01)
;;00049-4110-73
;;9002226.02101,"1199,00049-4110-73 ",.02)
;;00049-4110-73
;;9002226.02101,"1199,00049-4120-66 ",.01)
;;00049-4120-66
;;9002226.02101,"1199,00049-4120-66 ",.02)
;;00049-4120-66
;;9002226.02101,"1199,00049-4120-73 ",.01)
;;00049-4120-73
;;9002226.02101,"1199,00049-4120-73 ",.02)
;;00049-4120-73
;;9002226.02101,"1199,00069-3930-66 ",.01)
;;00069-3930-66
;;9002226.02101,"1199,00069-3930-66 ",.02)
;;00069-3930-66
;;9002226.02101,"1199,00069-3940-66 ",.01)
;;00069-3940-66
;;9002226.02101,"1199,00069-3940-66 ",.02)
;;00069-3940-66
;;9002226.02101,"1199,00069-3940-82 ",.01)
;;00069-3940-82
;;9002226.02101,"1199,00069-3940-82 ",.02)
;;00069-3940-82
;;9002226.02101,"1199,00087-6072-11 ",.01)
;;00087-6072-11
;;9002226.02101,"1199,00087-6072-11 ",.02)
;;00087-6072-11
;;9002226.02101,"1199,00087-6073-11 ",.01)
;;00087-6073-11
;;9002226.02101,"1199,00087-6073-11 ",.02)
;;00087-6073-11
;;9002226.02101,"1199,00087-6074-11 ",.01)
;;00087-6074-11
;;9002226.02101,"1199,00087-6074-11 ",.02)
;;00087-6074-11
;;9002226.02101,"1199,00087-6077-31 ",.01)
;;00087-6077-31
;;9002226.02101,"1199,00087-6077-31 ",.02)
;;00087-6077-31
;;9002226.02101,"1199,00087-6078-31 ",.01)
;;00087-6078-31
;;9002226.02101,"1199,00087-6078-31 ",.02)
;;00087-6078-31
;;9002226.02101,"1199,00087-6081-31 ",.01)
;;00087-6081-31
;;9002226.02101,"1199,00087-6081-31 ",.02)
;;00087-6081-31
;;9002226.02101,"1199,00093-5710-01 ",.01)
;;00093-5710-01
;;9002226.02101,"1199,00093-5710-01 ",.02)
;;00093-5710-01
;;9002226.02101,"1199,00093-5710-05 ",.01)
;;00093-5710-05
;;9002226.02101,"1199,00093-5710-05 ",.02)
;;00093-5710-05
;;9002226.02101,"1199,00093-5710-19 ",.01)
;;00093-5710-19
;;9002226.02101,"1199,00093-5710-19 ",.02)
;;00093-5710-19
;;9002226.02101,"1199,00093-5710-83 ",.01)
;;00093-5710-83
BGP2TG4 ;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,"66105-0984-10 ")
+2 ;;966
+3 ;;21,"66105-0984-11 ")
+4 ;;967
+5 ;;21,"66105-0984-50 ")
+6 ;;968
+7 ;;21,"66105-0985-03 ")
+8 ;;1023
+9 ;;21,"66105-0985-06 ")
+10 ;;1024
+11 ;;21,"66105-0985-10 ")
+12 ;;1025
+13 ;;21,"66105-0985-11 ")
+14 ;;1026
+15 ;;21,"66105-0985-50 ")
+16 ;;1027
+17 ;;21,"66105-0986-03 ")
+18 ;;1251
+19 ;;21,"66105-0986-06 ")
+20 ;;1252
+21 ;;21,"66105-0986-10 ")
+22 ;;1253
+23 ;;21,"66105-0986-11 ")
+24 ;;1254
+25 ;;21,"66105-0986-50 ")
+26 ;;1255
+27 ;;21,"66116-0233-30 ")
+28 ;;84
+29 ;;21,"66116-0440-30 ")
+30 ;;1249
+31 ;;21,"66267-0100-30 ")
+32 ;;621
+33 ;;21,"66267-0100-60 ")
+34 ;;622
+35 ;;21,"66267-0100-90 ")
+36 ;;623
+37 ;;21,"66267-0100-91 ")
+38 ;;624
+39 ;;21,"66267-0100-92 ")
+40 ;;625
+41 ;;21,"66267-0103-30 ")
+42 ;;1250
+43 ;;21,"66336-0028-30 ")
+44 ;;1029
+45 ;;21,"66336-0269-30 ")
+46 ;;778
+47 ;;21,"66336-0319-30 ")
+48 ;;147
+49 ;;21,"66336-0534-30 ")
+50 ;;292
+51 ;;21,"66336-0535-30 ")
+52 ;;347
+53 ;;21,"66336-0535-90 ")
+54 ;;348
+55 ;;21,"66336-0573-30 ")
+56 ;;395
+57 ;;21,"66336-0573-90 ")
+58 ;;396
+59 ;;21,"66336-0662-30 ")
+60 ;;483
+61 ;;21,"66336-0662-60 ")
+62 ;;484
+63 ;;21,"66336-0662-90 ")
+64 ;;485
+65 ;;21,"66336-0662-94 ")
+66 ;;486
+67 ;;21,"66336-0730-14 ")
+68 ;;617
+69 ;;21,"66336-0730-30 ")
+70 ;;618
+71 ;;21,"66336-0730-60 ")
+72 ;;619
+73 ;;21,"66336-0730-90 ")
+74 ;;620
+75 ;;21,"66336-0784-30 ")
+76 ;;202
+77 ;;21,"66336-0784-60 ")
+78 ;;156
+79 ;;21,"66336-0784-90 ")
+80 ;;157
+81 ;;21,"66336-0850-30 ")
+82 ;;96
+83 ;;21,"66336-0850-60 ")
+84 ;;97
+85 ;;21,"66336-0850-90 ")
+86 ;;98
+87 ;;21,"66336-0938-30 ")
+88 ;;1242
+89 ;;21,"66336-0938-60 ")
+90 ;;1243
+91 ;;21,"66336-0938-90 ")
+92 ;;1244
+93 ;;21,"66993-0162-02 ")
+94 ;;293
+95 ;;21,"66993-0163-02 ")
+96 ;;344
+97 ;;21,"66993-0164-02 ")
+98 ;;394
+99 ;;21,"67253-0460-10 ")
+100 ;;867
+101 ;;21,"67253-0460-11 ")
+102 ;;868
+103 ;;21,"67253-0460-50 ")
+104 ;;869
+105 ;;21,"67253-0461-10 ")
+106 ;;893
+107 ;;21,"67253-0461-11 ")
+108 ;;894
+109 ;;21,"67253-0461-50 ")
+110 ;;895
+111 ;;21,"67253-0462-10 ")
+112 ;;915
+113 ;;21,"67253-0462-11 ")
+114 ;;916
+115 ;;21,"67253-0462-50 ")
+116 ;;917
+117 ;;21,"67544-0097-53 ")
+118 ;;463
+119 ;;21,"67544-0097-60 ")
+120 ;;464
+121 ;;21,"67544-0097-70 ")
+122 ;;465
+123 ;;21,"67544-0097-80 ")
+124 ;;466
+125 ;;21,"67544-0097-94 ")
+126 ;;467
+127 ;;21,"67544-0098-53 ")
+128 ;;1283
+129 ;;21,"67544-0098-60 ")
+130 ;;1284
+131 ;;21,"67544-0098-70 ")
+132 ;;1285
+133 ;;21,"67544-0098-80 ")
+134 ;;1286
+135 ;;21,"67544-0098-90 ")
+136 ;;1287
+137 ;;21,"67544-0098-92 ")
+138 ;;1288
+139 ;;21,"67544-0098-94 ")
+140 ;;1289
+141 ;;21,"67544-0129-53 ")
+142 ;;459
+143 ;;21,"67544-0129-70 ")
+144 ;;460
+145 ;;21,"67544-0129-80 ")
+146 ;;461
+147 ;;21,"67544-0129-94 ")
+148 ;;462
+149 ;;21,"67544-0199-80 ")
+150 ;;779
+151 ;;21,"67544-0296-70 ")
+152 ;;146
+153 ;;21,"67544-0302-45 ")
+154 ;;648
+155 ;;21,"67544-0302-60 ")
+156 ;;649
+157 ;;21,"67544-0302-73 ")
+158 ;;650
+159 ;;21,"67544-0302-80 ")
+160 ;;651
+161 ;;21,"67544-0302-92 ")
+162 ;;652
+163 ;;21,"67544-0302-98 ")
+164 ;;653
+165 ;;21,"67544-0364-70 ")
+166 ;;198
+167 ;;21,"67544-0417-70 ")
+168 ;;199
+169 ;;21,"67544-0478-82 ")
+170 ;;1075
+171 ;;21,"67544-0511-70 ")
+172 ;;196
+173 ;;21,"67544-0548-82 ")
+174 ;;978
+175 ;;21,"67544-0566-53 ")
+176 ;;1219
+177 ;;21,"67544-0566-60 ")
+178 ;;1220
+179 ;;21,"67544-0566-70 ")
+180 ;;1221
+181 ;;21,"67544-0566-80 ")
+182 ;;1222
+183 ;;21,"67544-0566-90 ")
+184 ;;1223
+185 ;;21,"67544-0566-92 ")
+186 ;;1224
+187 ;;21,"67544-0566-94 ")
+188 ;;1225
+189 ;;21,"67544-0613-53 ")
+190 ;;1226
+191 ;;21,"67544-0613-60 ")
+192 ;;1227
+193 ;;21,"67544-0613-70 ")
+194 ;;1228
+195 ;;21,"67544-0613-80 ")
+196 ;;1229
+197 ;;21,"67544-0613-90 ")
+198 ;;1230
+199 ;;21,"67544-0613-92 ")
+200 ;;1231
+201 ;;21,"67544-0613-94 ")
+202 ;;1232
+203 ;;21,"67544-0643-80 ")
+204 ;;1233
+205 ;;21,"67544-0643-94 ")
+206 ;;1234
+207 ;;21,"67544-0653-53 ")
+208 ;;1235
+209 ;;21,"67544-0653-60 ")
+210 ;;1236
+211 ;;21,"67544-0653-70 ")
+212 ;;1237
+213 ;;21,"67544-0653-80 ")
+214 ;;1238
+215 ;;21,"67544-0653-90 ")
+216 ;;1239
+217 ;;21,"67544-0653-92 ")
+218 ;;1240
+219 ;;21,"67544-0653-94 ")
+220 ;;1241
+221 ;;21,"67544-0661-41 ")
+222 ;;962
+223 ;;21,"67544-0661-81 ")
+224 ;;963
+225 ;;21,"67544-0751-60 ")
+226 ;;457
+227 ;;21,"67544-0751-80 ")
+228 ;;458
+229 ;;21,"67544-0756-60 ")
+230 ;;654
+231 ;;21,"67544-0756-80 ")
+232 ;;655
+233 ;;21,"67544-0808-60 ")
+234 ;;740
+235 ;;21,"67544-0875-60 ")
+236 ;;1002
+237 ;;21,"67544-0875-80 ")
+238 ;;1003
+239 ;;21,"67544-0927-60 ")
+240 ;;1004
+241 ;;21,"67544-1129-70 ")
+242 ;;197
+243 ;;21,"68071-0028-30 ")
+244 ;;164
+245 ;;21,"68071-0028-60 ")
+246 ;;165
+247 ;;21,"68084-0111-01 ")
+248 ;;837
+249 ;;21,"68084-0111-11 ")
+250 ;;838
+251 ;;21,"68084-0112-01 ")
+252 ;;737
+253 ;;21,"68084-0112-11 ")
+254 ;;738
+255 ;;21,"68084-0136-01 ")
+256 ;;70
+257 ;;21,"68084-0136-11 ")
+258 ;;71
+259 ;;21,"68084-0137-01 ")
+260 ;;114
+261 ;;21,"68084-0137-11 ")
+262 ;;115
+263 ;;21,"68084-0138-01 ")
+264 ;;200
+265 ;;21,"68084-0138-11 ")
+266 ;;201
+267 ;;21,"68084-0295-11 ")
+268 ;;798
+269 ;;21,"68084-0295-21 ")
+270 ;;799
+271 ;;21,"68084-0326-01 ")
+272 ;;345
+273 ;;21,"68084-0326-11 ")
+274 ;;346
+275 ;;21,"68084-0327-01 ")
+276 ;;392
+277 ;;21,"68084-0327-11 ")
+278 ;;393
+279 ;;21,"68115-0154-30 ")
+280 ;;455
+281 ;;21,"68115-0154-60 ")
+282 ;;456
+283 ;;21,"68115-0155-30 ")
+284 ;;656
+285 ;;21,"68115-0155-60 ")
+286 ;;657
+287 ;;21,"68115-0155-90 ")
+288 ;;658
+289 ;;21,"68115-0156-30 ")
+290 ;;780
+291 ;;21,"68115-0157-30 ")
+292 ;;856
+293 ;;21,"68115-0158-30 ")
+294 ;;82
+295 ;;21,"68115-0158-60 ")
+296 ;;83
+297 ;;21,"68115-0159-30 ")
+298 ;;144
+299 ;;21,"68115-0159-60 ")
+300 ;;145
+301 ;;21,"68115-0160-30 ")
+302 ;;1005
+303 ;;21,"68115-0161-30 ")
+304 ;;1246
+305 ;;21,"68115-0161-60 ")
+306 ;;1247
+307 ;;21,"68115-0616-00 ")
+308 ;;839
+309 ;;21,"68115-0622-00 ")
+310 ;;918
+311 ;;21,"68115-0840-00 ")
+312 ;;351
+313 ;;21,"68258-1012-01 ")
+314 ;;659
+315 ;;21,"68258-1013-01 ")
+316 ;;454
+317 ;;21,"68258-1014-01 ")
+318 ;;1248
+319 ;;21,"68258-1051-01 ")
+320 ;;739
+321 ;;21,"68645-0150-54 ")
+322 ;;660
+323 ;;21,"68645-0151-59 ")
+324 ;;453
+325 ;;21,"68645-0210-54 ")
+326 ;;1006
+327 ;;21,"68645-0211-54 ")
+328 ;;1245
+329 ;;9002226,1199,.01)
+330 ;;BGP PQA SULFONYLUREA NDC
+331 ;;9002226,1199,.02)
+332 ;;@
+333 ;;9002226,1199,.04)
+334 ;;n
+335 ;;9002226,1199,.06)
+336 ;;@
+337 ;;9002226,1199,.08)
+338 ;;@
+339 ;;9002226,1199,.09)
+340 ;;3120312
+341 ;;9002226,1199,.11)
+342 ;;@
+343 ;;9002226,1199,.12)
+344 ;;@
+345 ;;9002226,1199,.13)
+346 ;;1
+347 ;;9002226,1199,.14)
+348 ;;@
+349 ;;9002226,1199,.15)
+350 ;;@
+351 ;;9002226,1199,.16)
+352 ;;@
+353 ;;9002226,1199,.17)
+354 ;;@
+355 ;;9002226,1199,3101)
+356 ;;@
+357 ;;9002226.02101,"1199,00007-3148-13 ",.01)
+358 ;;00007-3148-13
+359 ;;9002226.02101,"1199,00007-3148-13 ",.02)
+360 ;;00007-3148-13
+361 ;;9002226.02101,"1199,00007-3149-13 ",.01)
+362 ;;00007-3149-13
+363 ;;9002226.02101,"1199,00007-3149-13 ",.02)
+364 ;;00007-3149-13
+365 ;;9002226.02101,"1199,00007-3151-13 ",.01)
+366 ;;00007-3151-13
+367 ;;9002226.02101,"1199,00007-3151-13 ",.02)
+368 ;;00007-3151-13
+369 ;;9002226.02101,"1199,00007-3152-13 ",.01)
+370 ;;00007-3152-13
+371 ;;9002226.02101,"1199,00007-3152-13 ",.02)
+372 ;;00007-3152-13
+373 ;;9002226.02101,"1199,00007-3153-13 ",.01)
+374 ;;00007-3153-13
+375 ;;9002226.02101,"1199,00007-3153-13 ",.02)
+376 ;;00007-3153-13
+377 ;;9002226.02101,"1199,00009-0070-02 ",.01)
+378 ;;00009-0070-02
+379 ;;9002226.02101,"1199,00009-0070-02 ",.02)
+380 ;;00009-0070-02
+381 ;;9002226.02101,"1199,00009-0114-04 ",.01)
+382 ;;00009-0114-04
+383 ;;9002226.02101,"1199,00009-0114-04 ",.02)
+384 ;;00009-0114-04
+385 ;;9002226.02101,"1199,00009-0114-05 ",.01)
+386 ;;00009-0114-05
+387 ;;9002226.02101,"1199,00009-0114-05 ",.02)
+388 ;;00009-0114-05
+389 ;;9002226.02101,"1199,00009-0131-01 ",.01)
+390 ;;00009-0131-01
+391 ;;9002226.02101,"1199,00009-0131-01 ",.02)
+392 ;;00009-0131-01
+393 ;;9002226.02101,"1199,00009-0141-01 ",.01)
+394 ;;00009-0141-01
+395 ;;9002226.02101,"1199,00009-0141-01 ",.02)
+396 ;;00009-0141-01
+397 ;;9002226.02101,"1199,00009-0141-02 ",.01)
+398 ;;00009-0141-02
+399 ;;9002226.02101,"1199,00009-0141-02 ",.02)
+400 ;;00009-0141-02
+401 ;;9002226.02101,"1199,00009-0171-03 ",.01)
+402 ;;00009-0171-03
+403 ;;9002226.02101,"1199,00009-0171-03 ",.02)
+404 ;;00009-0171-03
+405 ;;9002226.02101,"1199,00009-0171-05 ",.01)
+406 ;;00009-0171-05
+407 ;;9002226.02101,"1199,00009-0171-05 ",.02)
+408 ;;00009-0171-05
+409 ;;9002226.02101,"1199,00009-0171-06 ",.01)
+410 ;;00009-0171-06
+411 ;;9002226.02101,"1199,00009-0171-06 ",.02)
+412 ;;00009-0171-06
+413 ;;9002226.02101,"1199,00009-0171-07 ",.01)
+414 ;;00009-0171-07
+415 ;;9002226.02101,"1199,00009-0171-07 ",.02)
+416 ;;00009-0171-07
+417 ;;9002226.02101,"1199,00009-0341-01 ",.01)
+418 ;;00009-0341-01
+419 ;;9002226.02101,"1199,00009-0341-01 ",.02)
+420 ;;00009-0341-01
+421 ;;9002226.02101,"1199,00009-0341-02 ",.01)
+422 ;;00009-0341-02
+423 ;;9002226.02101,"1199,00009-0341-02 ",.02)
+424 ;;00009-0341-02
+425 ;;9002226.02101,"1199,00009-0352-01 ",.01)
+426 ;;00009-0352-01
+427 ;;9002226.02101,"1199,00009-0352-01 ",.02)
+428 ;;00009-0352-01
+429 ;;9002226.02101,"1199,00009-0352-02 ",.01)
+430 ;;00009-0352-02
+431 ;;9002226.02101,"1199,00009-0352-02 ",.02)
+432 ;;00009-0352-02
+433 ;;9002226.02101,"1199,00009-0352-03 ",.01)
+434 ;;00009-0352-03
+435 ;;9002226.02101,"1199,00009-0352-03 ",.02)
+436 ;;00009-0352-03
+437 ;;9002226.02101,"1199,00009-0352-04 ",.01)
+438 ;;00009-0352-04
+439 ;;9002226.02101,"1199,00009-0352-04 ",.02)
+440 ;;00009-0352-04
+441 ;;9002226.02101,"1199,00009-3449-01 ",.01)
+442 ;;00009-3449-01
+443 ;;9002226.02101,"1199,00009-3449-01 ",.02)
+444 ;;00009-3449-01
+445 ;;9002226.02101,"1199,00009-3449-03 ",.01)
+446 ;;00009-3449-03
+447 ;;9002226.02101,"1199,00009-3449-03 ",.02)
+448 ;;00009-3449-03
+449 ;;9002226.02101,"1199,00029-3151-13 ",.01)
+450 ;;00029-3151-13
+451 ;;9002226.02101,"1199,00029-3151-13 ",.02)
+452 ;;00029-3151-13
+453 ;;9002226.02101,"1199,00029-3152-13 ",.01)
+454 ;;00029-3152-13
+455 ;;9002226.02101,"1199,00029-3152-13 ",.02)
+456 ;;00029-3152-13
+457 ;;9002226.02101,"1199,00029-3153-13 ",.01)
+458 ;;00029-3153-13
+459 ;;9002226.02101,"1199,00029-3153-13 ",.02)
+460 ;;00029-3153-13
+461 ;;9002226.02101,"1199,00039-0051-10 ",.01)
+462 ;;00039-0051-10
+463 ;;9002226.02101,"1199,00039-0051-10 ",.02)
+464 ;;00039-0051-10
+465 ;;9002226.02101,"1199,00039-0051-11 ",.01)
+466 ;;00039-0051-11
+467 ;;9002226.02101,"1199,00039-0051-11 ",.02)
+468 ;;00039-0051-11
+469 ;;9002226.02101,"1199,00039-0051-50 ",.01)
+470 ;;00039-0051-50
+471 ;;9002226.02101,"1199,00039-0051-50 ",.02)
+472 ;;00039-0051-50
+473 ;;9002226.02101,"1199,00039-0052-10 ",.01)
+474 ;;00039-0052-10
+475 ;;9002226.02101,"1199,00039-0052-10 ",.02)
+476 ;;00039-0052-10
+477 ;;9002226.02101,"1199,00039-0052-11 ",.01)
+478 ;;00039-0052-11
+479 ;;9002226.02101,"1199,00039-0052-11 ",.02)
+480 ;;00039-0052-11
+481 ;;9002226.02101,"1199,00039-0052-50 ",.01)
+482 ;;00039-0052-50
+483 ;;9002226.02101,"1199,00039-0052-50 ",.02)
+484 ;;00039-0052-50
+485 ;;9002226.02101,"1199,00039-0052-70 ",.01)
+486 ;;00039-0052-70
+487 ;;9002226.02101,"1199,00039-0052-70 ",.02)
+488 ;;00039-0052-70
+489 ;;9002226.02101,"1199,00039-0053-05 ",.01)
+490 ;;00039-0053-05
+491 ;;9002226.02101,"1199,00039-0053-05 ",.02)
+492 ;;00039-0053-05
+493 ;;9002226.02101,"1199,00039-0221-10 ",.01)
+494 ;;00039-0221-10
+495 ;;9002226.02101,"1199,00039-0221-10 ",.02)
+496 ;;00039-0221-10
+497 ;;9002226.02101,"1199,00039-0222-10 ",.01)
+498 ;;00039-0222-10
+499 ;;9002226.02101,"1199,00039-0222-10 ",.02)
+500 ;;00039-0222-10
+501 ;;9002226.02101,"1199,00039-0222-11 ",.01)
+502 ;;00039-0222-11
+503 ;;9002226.02101,"1199,00039-0222-11 ",.02)
+504 ;;00039-0222-11
+505 ;;9002226.02101,"1199,00039-0223-10 ",.01)
+506 ;;00039-0223-10
+507 ;;9002226.02101,"1199,00039-0223-10 ",.02)
+508 ;;00039-0223-10
+509 ;;9002226.02101,"1199,00039-0223-11 ",.01)
+510 ;;00039-0223-11
+511 ;;9002226.02101,"1199,00039-0223-11 ",.02)
+512 ;;00039-0223-11
+513 ;;9002226.02101,"1199,00049-1550-66 ",.01)
+514 ;;00049-1550-66
+515 ;;9002226.02101,"1199,00049-1550-66 ",.02)
+516 ;;00049-1550-66
+517 ;;9002226.02101,"1199,00049-1550-73 ",.01)
+518 ;;00049-1550-73
+519 ;;9002226.02101,"1199,00049-1550-73 ",.02)
+520 ;;00049-1550-73
+521 ;;9002226.02101,"1199,00049-1560-66 ",.01)
+522 ;;00049-1560-66
+523 ;;9002226.02101,"1199,00049-1560-66 ",.02)
+524 ;;00049-1560-66
+525 ;;9002226.02101,"1199,00049-1560-73 ",.01)
+526 ;;00049-1560-73
+527 ;;9002226.02101,"1199,00049-1560-73 ",.02)
+528 ;;00049-1560-73
+529 ;;9002226.02101,"1199,00049-1620-30 ",.01)
+530 ;;00049-1620-30
+531 ;;9002226.02101,"1199,00049-1620-30 ",.02)
+532 ;;00049-1620-30
+533 ;;9002226.02101,"1199,00049-4110-66 ",.01)
+534 ;;00049-4110-66
+535 ;;9002226.02101,"1199,00049-4110-66 ",.02)
+536 ;;00049-4110-66
+537 ;;9002226.02101,"1199,00049-4110-73 ",.01)
+538 ;;00049-4110-73
+539 ;;9002226.02101,"1199,00049-4110-73 ",.02)
+540 ;;00049-4110-73
+541 ;;9002226.02101,"1199,00049-4120-66 ",.01)
+542 ;;00049-4120-66
+543 ;;9002226.02101,"1199,00049-4120-66 ",.02)
+544 ;;00049-4120-66
+545 ;;9002226.02101,"1199,00049-4120-73 ",.01)
+546 ;;00049-4120-73
+547 ;;9002226.02101,"1199,00049-4120-73 ",.02)
+548 ;;00049-4120-73
+549 ;;9002226.02101,"1199,00069-3930-66 ",.01)
+550 ;;00069-3930-66
+551 ;;9002226.02101,"1199,00069-3930-66 ",.02)
+552 ;;00069-3930-66
+553 ;;9002226.02101,"1199,00069-3940-66 ",.01)
+554 ;;00069-3940-66
+555 ;;9002226.02101,"1199,00069-3940-66 ",.02)
+556 ;;00069-3940-66
+557 ;;9002226.02101,"1199,00069-3940-82 ",.01)
+558 ;;00069-3940-82
+559 ;;9002226.02101,"1199,00069-3940-82 ",.02)
+560 ;;00069-3940-82
+561 ;;9002226.02101,"1199,00087-6072-11 ",.01)
+562 ;;00087-6072-11
+563 ;;9002226.02101,"1199,00087-6072-11 ",.02)
+564 ;;00087-6072-11
+565 ;;9002226.02101,"1199,00087-6073-11 ",.01)
+566 ;;00087-6073-11
+567 ;;9002226.02101,"1199,00087-6073-11 ",.02)
+568 ;;00087-6073-11
+569 ;;9002226.02101,"1199,00087-6074-11 ",.01)
+570 ;;00087-6074-11
+571 ;;9002226.02101,"1199,00087-6074-11 ",.02)
+572 ;;00087-6074-11
+573 ;;9002226.02101,"1199,00087-6077-31 ",.01)
+574 ;;00087-6077-31
+575 ;;9002226.02101,"1199,00087-6077-31 ",.02)
+576 ;;00087-6077-31
+577 ;;9002226.02101,"1199,00087-6078-31 ",.01)
+578 ;;00087-6078-31
+579 ;;9002226.02101,"1199,00087-6078-31 ",.02)
+580 ;;00087-6078-31
+581 ;;9002226.02101,"1199,00087-6081-31 ",.01)
+582 ;;00087-6081-31
+583 ;;9002226.02101,"1199,00087-6081-31 ",.02)
+584 ;;00087-6081-31
+585 ;;9002226.02101,"1199,00093-5710-01 ",.01)
+586 ;;00093-5710-01
+587 ;;9002226.02101,"1199,00093-5710-01 ",.02)
+588 ;;00093-5710-01
+589 ;;9002226.02101,"1199,00093-5710-05 ",.01)
+590 ;;00093-5710-05
+591 ;;9002226.02101,"1199,00093-5710-05 ",.02)
+592 ;;00093-5710-05
+593 ;;9002226.02101,"1199,00093-5710-19 ",.01)
+594 ;;00093-5710-19
+595 ;;9002226.02101,"1199,00093-5710-19 ",.02)
+596 ;;00093-5710-19
+597 ;;9002226.02101,"1199,00093-5710-83 ",.01)
+598 ;;00093-5710-83
