BGP44R3 ;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,"60505-0141-02 ")
;;218
;;21,"60505-0141-08 ")
;;219
;;21,"60505-0142-00 ")
;;306
;;21,"60505-0142-01 ")
;;307
;;21,"60505-0142-02 ")
;;308
;;21,"60505-0142-04 ")
;;385
;;21,"60760-0024-60 ")
;;339
;;21,"60760-0141-60 ")
;;170
;;21,"60760-0175-30 ")
;;902
;;21,"60760-0176-30 ")
;;903
;;21,"60760-0229-30 ")
;;66
;;21,"60760-0230-30 ")
;;161
;;21,"61442-0115-01 ")
;;32
;;21,"61442-0116-01 ")
;;59
;;21,"61442-0117-01 ")
;;124
;;21,"63629-1255-01 ")
;;119
;;21,"63629-1255-02 ")
;;120
;;21,"63629-1392-01 ")
;;951
;;21,"63629-1392-02 ")
;;952
;;21,"63629-1392-03 ")
;;953
;;21,"63629-1393-01 ")
;;660
;;21,"63629-1393-02 ")
;;661
;;21,"63629-1393-03 ")
;;662
;;21,"63629-1393-04 ")
;;663
;;21,"63629-1394-01 ")
;;386
;;21,"63629-1394-02 ")
;;387
;;21,"63629-1394-03 ")
;;388
;;21,"63629-1398-01 ")
;;188
;;21,"63629-1398-02 ")
;;189
;;21,"63629-1398-03 ")
;;190
;;21,"63629-2793-01 ")
;;1021
;;21,"63629-2793-03 ")
;;1022
;;21,"63629-2793-04 ")
;;1023
;;21,"63629-2793-05 ")
;;1024
;;21,"63629-2907-01 ")
;;609
;;21,"63629-2907-02 ")
;;610
;;21,"63629-3043-01 ")
;;83
;;21,"63629-3043-02 ")
;;84
;;21,"63629-3158-01 ")
;;501
;;21,"63629-3158-02 ")
;;502
;;21,"63629-3158-03 ")
;;503
;;21,"63629-3397-03 ")
;;825
;;21,"63629-3998-01 ")
;;925
;;21,"63629-4071-01 ")
;;467
;;21,"63739-0119-10 ")
;;790
;;21,"63874-0316-01 ")
;;220
;;21,"63874-0316-02 ")
;;221
;;21,"63874-0316-04 ")
;;222
;;21,"63874-0316-05 ")
;;223
;;21,"63874-0316-10 ")
;;224
;;21,"63874-0316-12 ")
;;225
;;21,"63874-0316-14 ")
;;226
;;21,"63874-0316-15 ")
;;227
;;21,"63874-0316-20 ")
;;228
;;21,"63874-0316-21 ")
;;229
;;21,"63874-0316-24 ")
;;230
;;21,"63874-0316-28 ")
;;231
;;21,"63874-0316-30 ")
;;232
;;21,"63874-0316-50 ")
;;233
;;21,"63874-0316-60 ")
;;234
;;21,"63874-0316-81 ")
;;235
;;21,"63874-0316-90 ")
;;236
;;21,"63874-0317-01 ")
;;746
;;21,"63874-0317-02 ")
;;747
;;21,"63874-0317-04 ")
;;748
;;21,"63874-0317-10 ")
;;749
;;21,"63874-0317-12 ")
;;750
;;21,"63874-0317-14 ")
;;751
;;21,"63874-0317-15 ")
;;752
;;21,"63874-0317-20 ")
;;753
;;21,"63874-0317-24 ")
;;754
;;21,"63874-0317-28 ")
;;755
;;21,"63874-0317-30 ")
;;756
;;21,"63874-0317-40 ")
;;757
;;21,"63874-0317-50 ")
;;758
;;21,"63874-0317-60 ")
;;759
;;21,"63874-0317-90 ")
;;760
;;21,"63874-0357-01 ")
;;12
;;21,"63874-0357-02 ")
;;13
;;21,"63874-0357-10 ")
;;14
;;21,"63874-0357-12 ")
;;15
;;21,"63874-0357-14 ")
;;16
;;21,"63874-0357-15 ")
;;17
;;21,"63874-0357-20 ")
;;18
;;21,"63874-0357-21 ")
;;19
;;21,"63874-0357-24 ")
;;20
;;21,"63874-0357-30 ")
;;21
;;21,"63874-0357-40 ")
;;22
;;21,"63874-0357-60 ")
;;23
;;21,"63874-0432-01 ")
;;367
;;21,"63874-0432-02 ")
;;368
;;21,"63874-0432-04 ")
;;369
;;21,"63874-0432-10 ")
;;370
;;21,"63874-0432-14 ")
;;371
;;21,"63874-0432-20 ")
;;372
;;21,"63874-0432-21 ")
;;373
;;21,"63874-0432-24 ")
;;374
;;21,"63874-0432-28 ")
;;375
;;21,"63874-0432-30 ")
;;376
;;21,"63874-0432-50 ")
;;377
;;21,"63874-0432-60 ")
;;378
;;21,"63874-0432-81 ")
;;379
;;21,"63874-0432-90 ")
;;380
;;21,"63874-0588-01 ")
;;595
;;21,"63874-0588-04 ")
;;596
;;21,"63874-0588-10 ")
;;597
;;21,"63874-0588-14 ")
;;598
;;21,"63874-0588-20 ")
;;599
;;21,"63874-0588-30 ")
;;600
;;21,"63874-0588-60 ")
;;601
;;21,"63874-0588-80 ")
;;602
;;21,"63874-0588-90 ")
;;603
;;21,"63874-0665-01 ")
;;561
;;21,"63874-0665-04 ")
;;562
;;21,"63874-0665-10 ")
;;563
;;21,"63874-0665-14 ")
;;564
;;21,"63874-0665-30 ")
;;565
;;21,"63874-0665-60 ")
;;566
;;21,"63874-0665-90 ")
;;567
;;21,"64720-0123-10 ")
;;578
;;21,"64720-0124-10 ")
;;624
;;21,"64720-0125-10 ")
;;803
;;21,"64720-0125-11 ")
;;804
;;21,"64764-0302-30 ")
;;1068
;;21,"64764-0304-30 ")
;;1070
;;21,"65243-0176-09 ")
;;784
;;21,"65243-0176-12 ")
;;785
;;21,"65243-0176-18 ")
;;786
;;21,"65243-0176-27 ")
;;787
;;21,"65243-0176-36 ")
;;788
;;21,"65243-0183-18 ")
;;366
;;21,"65243-0185-36 ")
;;789
;;21,"65243-0325-09 ")
;;612
;;21,"65243-0325-18 ")
;;613
;;21,"65243-0343-09 ")
;;693
;;21,"65243-0343-36 ")
;;694
;;21,"65243-0346-09 ")
;;253
;;21,"65243-0375-09 ")
;;614
;;21,"65243-0378-09 ")
;;254
;;21,"65862-0028-01 ")
;;573
;;21,"65862-0029-01 ")
;;638
;;21,"65862-0029-05 ")
;;639
;;21,"65862-0030-01 ")
;;761
;;21,"65862-0030-99 ")
;;762
;;21,"65862-0080-01 ")
;;923
;;21,"65862-0080-05 ")
;;924
;;21,"65862-0081-01 ")
;;972
;;21,"65862-0081-05 ")
;;973
;;21,"65862-0082-01 ")
;;1002
;;21,"65862-0082-05 ")
;;1003
;;21,"66105-0984-03 ")
;;576
;;21,"66105-0984-06 ")
;;554
;;21,"66105-0984-10 ")
;;555
;;21,"66105-0984-11 ")
;;556
;;21,"66105-0984-50 ")
;;557
;;21,"66105-0985-03 ")
;;585
;;21,"66105-0985-06 ")
;;586
;;21,"66105-0985-10 ")
;;587
;;21,"66105-0985-11 ")
;;588
;;21,"66105-0985-50 ")
;;589
;;21,"66105-0986-03 ")
;;652
;;21,"66105-0986-06 ")
;;653
;;21,"66105-0986-10 ")
;;654
;;21,"66105-0986-11 ")
;;655
;;21,"66105-0986-50 ")
;;656
;;21,"66116-0233-30 ")
;;950
;;21,"66267-0100-30 ")
;;255
;;21,"66267-0100-60 ")
;;256
;;21,"66267-0100-90 ")
;;257
;;21,"66267-0100-91 ")
;;258
;;21,"66267-0100-92 ")
;;259
;;21,"66267-0103-30 ")
;;698
;;21,"66336-0028-30 ")
;;641
;;21,"66336-0028-90 ")
;;642
;;21,"66336-0269-30 ")
;;536
;;21,"66336-0269-90 ")
;;537
;;21,"66336-0319-30 ")
;;997
;;21,"66336-0534-30 ")
;;41
;;21,"66336-0534-90 ")
;;42
;;21,"66336-0535-30 ")
;;73
;;21,"66336-0535-60 ")
;;74
;;21,"66336-0535-90 ")
;;75
;;21,"66336-0573-30 ")
;;152
;;21,"66336-0573-60 ")
;;153
;;21,"66336-0573-90 ")
;;154
;;21,"66336-0662-30 ")
;;362
;;21,"66336-0662-60 ")
;;363
;;21,"66336-0662-90 ")
;;364
;;21,"66336-0662-94 ")
;;365
;;21,"66336-0712-90 ")
;;851
;;21,"66336-0730-14 ")
;;175
;;21,"66336-0730-30 ")
;;176
;;21,"66336-0730-60 ")
;;177
;;21,"66336-0730-90 ")
;;178
;;21,"66336-0784-30 ")
;;1046
;;21,"66336-0784-60 ")
;;1012
;;21,"66336-0784-90 ")
;;1013
;;21,"66336-0850-30 ")
;;961
;;21,"66336-0850-60 ")
;;962
;;21,"66336-0850-90 ")
;;963
;;21,"66336-0938-30 ")
;;657
;;21,"66336-0938-60 ")
;;658
;;21,"66336-0938-90 ")
;;659
;;21,"66993-0162-02 ")
;;35
;;21,"66993-0163-02 ")
;;85
;;21,"66993-0164-02 ")
;;137
;;21,"67253-0460-10 ")
;;823
;;21,"67253-0461-10 ")
;;836
;;21,"67253-0461-11 ")
;;837
;;21,"67253-0461-50 ")
;;838
;;21,"67253-0462-10 ")
;;858
;;21,"67253-0462-11 ")
;;859
;;21,"67253-0462-50 ")
;;860
;;21,"67544-0097-53 ")
;;434
;;21,"67544-0097-60 ")
;;396
;;21,"67544-0097-70 ")
;;397
;;21,"67544-0097-80 ")
;;398
;;21,"67544-0097-92 ")
;;399
;;21,"67544-0097-94 ")
;;400
;;21,"67544-0129-53 ")
;;389
;;21,"67544-0129-70 ")
;;390
;;21,"67544-0129-80 ")
;;391
;;21,"67544-0129-94 ")
;;392
;;21,"67544-0199-80 ")
;;540
;;21,"67544-0296-70 ")
;;998
;;21,"67544-0302-45 ")
;;298
;;21,"67544-0302-60 ")
;;299
;;21,"67544-0302-73 ")
;;300
;;21,"67544-0302-80 ")
;;301
;;21,"67544-0302-92 ")
;;302
;;21,"67544-0302-98 ")
;;303
;;21,"67544-0364-70 ")
;;1047
;;21,"67544-0417-70 ")
;;1048
;;21,"67544-0511-70 ")
;;1063
;;21,"67544-0511-94 ")
;;1004
;;21,"67544-0566-53 ")
;;763
;;21,"67544-0566-60 ")
;;764
;;21,"67544-0566-70 ")
;;765
;;21,"67544-0566-80 ")
;;766
;;21,"67544-0566-90 ")
;;767
;;21,"67544-0566-92 ")
;;768
;;21,"67544-0566-94 ")
;;769
;;21,"67544-0613-53 ")
;;709
;;21,"67544-0613-60 ")
;;710
;;21,"67544-0613-70 ")
;;711
;;21,"67544-0613-80 ")
;;712
;;21,"67544-0613-90 ")
;;713
;;21,"67544-0613-92 ")
;;714
;;21,"67544-0613-94 ")
;;715
;;21,"67544-0643-80 ")
;;716
;;21,"67544-0643-94 ")
;;717
;;21,"67544-0653-53 ")
;;718
;;21,"67544-0653-60 ")
;;719
;;21,"67544-0653-70 ")
;;720
;;21,"67544-0653-80 ")
;;721
;;21,"67544-0653-90 ")
;;722
;;21,"67544-0653-92 ")
;;723
;;21,"67544-0653-94 ")
;;724
;;21,"67544-0661-41 ")
;;568
;;21,"67544-0661-81 ")
;;569
;;21,"67544-0751-60 ")
;;393
;;21,"67544-0751-80 ")
;;394
;;21,"67544-0756-60 ")
;;290
;;21,"67544-0756-80 ")
;;291
;;21,"67544-0808-60 ")
;;520
;;21,"67544-0875-60 ")
;;592
;;21,"67544-0875-80 ")
;;593
;;21,"67544-0927-60 ")
;;594
;;21,"67544-1129-70 ")
;;1052
;;21,"68071-0028-30 ")
;;1014
;;21,"68071-0028-60 ")
;;1015
;;21,"68084-0111-01 ")
;;479
;;21,"68084-0111-11 ")
;;480
;;21,"68084-0112-01 ")
;;499
;;21,"68084-0112-11 ")
;;500
;;21,"68084-0136-01 ")
;;941
;;21,"68084-0136-11 ")
;;942
;;21,"68084-0137-01 ")
;;985
;;21,"68084-0137-11 ")
;;986
;;21,"68084-0138-01 ")
;;1064
;;21,"68084-0138-11 ")
;;1065
;;21,"68084-0295-11 ")
;;442
;;21,"68084-0295-21 ")
;;443
;;21,"68084-0326-01 ")
;;86
;;21,"68084-0326-11 ")
;;87
;;21,"68084-0327-01 ")
;;135
;;21,"68084-0327-11 ")
;;136
;;21,"68084-0556-11 ")
;;873
;;21,"68084-0556-21 ")
;;874
;;21,"68645-0150-54 ")
;;245
;;21,"68645-0151-59 ")
;;433
;;21,"68645-0210-54 ")
;;608
;;21,"68645-0211-54 ")
;;708
;;9002226,1199,.01)
;;BGP PQA SULFONYLUREA NDC
;;9002226,1199,.02)
;;@
;;9002226,1199,.04)
;;n
;;9002226,1199,.06)
;;@
;;9002226,1199,.08)
;;@
;;9002226,1199,.09)
;;3130911
;;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,00009-0341-01 ",.01)
;;00009-0341-01
;;9002226.02101,"1199,00009-0341-01 ",.02)
;;00009-0341-01
;;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-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-0052-10 ",.01)
;;00039-0052-10
;;9002226.02101,"1199,00039-0052-10 ",.02)
;;00039-0052-10
;;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-0223-10 ",.01)
;;00039-0223-10
;;9002226.02101,"1199,00039-0223-10 ",.02)
;;00039-0223-10
;;9002226.02101,"1199,00049-0170-01 ",.01)
;;00049-0170-01
;;9002226.02101,"1199,00049-0170-01 ",.02)
;;00049-0170-01
;;9002226.02101,"1199,00049-0178-07 ",.01)
;;00049-0178-07
;;9002226.02101,"1199,00049-0178-07 ",.02)
;;00049-0178-07
;;9002226.02101,"1199,00049-0178-08 ",.01)
;;00049-0178-08
;;9002226.02101,"1199,00049-0178-08 ",.02)
;;00049-0178-08
;;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-4120-66 ",.01)
;;00049-4120-66
;;9002226.02101,"1199,00049-4120-66 ",.02)
;;00049-4120-66
;;9002226.02101,"1199,00087-6072-11 ",.01)
;;00087-6072-11
;;9002226.02101,"1199,00087-6072-11 ",.02)
;;00087-6072-11
BGP44R3 ;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,"60505-0141-02 ")
+2 ;;218
+3 ;;21,"60505-0141-08 ")
+4 ;;219
+5 ;;21,"60505-0142-00 ")
+6 ;;306
+7 ;;21,"60505-0142-01 ")
+8 ;;307
+9 ;;21,"60505-0142-02 ")
+10 ;;308
+11 ;;21,"60505-0142-04 ")
+12 ;;385
+13 ;;21,"60760-0024-60 ")
+14 ;;339
+15 ;;21,"60760-0141-60 ")
+16 ;;170
+17 ;;21,"60760-0175-30 ")
+18 ;;902
+19 ;;21,"60760-0176-30 ")
+20 ;;903
+21 ;;21,"60760-0229-30 ")
+22 ;;66
+23 ;;21,"60760-0230-30 ")
+24 ;;161
+25 ;;21,"61442-0115-01 ")
+26 ;;32
+27 ;;21,"61442-0116-01 ")
+28 ;;59
+29 ;;21,"61442-0117-01 ")
+30 ;;124
+31 ;;21,"63629-1255-01 ")
+32 ;;119
+33 ;;21,"63629-1255-02 ")
+34 ;;120
+35 ;;21,"63629-1392-01 ")
+36 ;;951
+37 ;;21,"63629-1392-02 ")
+38 ;;952
+39 ;;21,"63629-1392-03 ")
+40 ;;953
+41 ;;21,"63629-1393-01 ")
+42 ;;660
+43 ;;21,"63629-1393-02 ")
+44 ;;661
+45 ;;21,"63629-1393-03 ")
+46 ;;662
+47 ;;21,"63629-1393-04 ")
+48 ;;663
+49 ;;21,"63629-1394-01 ")
+50 ;;386
+51 ;;21,"63629-1394-02 ")
+52 ;;387
+53 ;;21,"63629-1394-03 ")
+54 ;;388
+55 ;;21,"63629-1398-01 ")
+56 ;;188
+57 ;;21,"63629-1398-02 ")
+58 ;;189
+59 ;;21,"63629-1398-03 ")
+60 ;;190
+61 ;;21,"63629-2793-01 ")
+62 ;;1021
+63 ;;21,"63629-2793-03 ")
+64 ;;1022
+65 ;;21,"63629-2793-04 ")
+66 ;;1023
+67 ;;21,"63629-2793-05 ")
+68 ;;1024
+69 ;;21,"63629-2907-01 ")
+70 ;;609
+71 ;;21,"63629-2907-02 ")
+72 ;;610
+73 ;;21,"63629-3043-01 ")
+74 ;;83
+75 ;;21,"63629-3043-02 ")
+76 ;;84
+77 ;;21,"63629-3158-01 ")
+78 ;;501
+79 ;;21,"63629-3158-02 ")
+80 ;;502
+81 ;;21,"63629-3158-03 ")
+82 ;;503
+83 ;;21,"63629-3397-03 ")
+84 ;;825
+85 ;;21,"63629-3998-01 ")
+86 ;;925
+87 ;;21,"63629-4071-01 ")
+88 ;;467
+89 ;;21,"63739-0119-10 ")
+90 ;;790
+91 ;;21,"63874-0316-01 ")
+92 ;;220
+93 ;;21,"63874-0316-02 ")
+94 ;;221
+95 ;;21,"63874-0316-04 ")
+96 ;;222
+97 ;;21,"63874-0316-05 ")
+98 ;;223
+99 ;;21,"63874-0316-10 ")
+100 ;;224
+101 ;;21,"63874-0316-12 ")
+102 ;;225
+103 ;;21,"63874-0316-14 ")
+104 ;;226
+105 ;;21,"63874-0316-15 ")
+106 ;;227
+107 ;;21,"63874-0316-20 ")
+108 ;;228
+109 ;;21,"63874-0316-21 ")
+110 ;;229
+111 ;;21,"63874-0316-24 ")
+112 ;;230
+113 ;;21,"63874-0316-28 ")
+114 ;;231
+115 ;;21,"63874-0316-30 ")
+116 ;;232
+117 ;;21,"63874-0316-50 ")
+118 ;;233
+119 ;;21,"63874-0316-60 ")
+120 ;;234
+121 ;;21,"63874-0316-81 ")
+122 ;;235
+123 ;;21,"63874-0316-90 ")
+124 ;;236
+125 ;;21,"63874-0317-01 ")
+126 ;;746
+127 ;;21,"63874-0317-02 ")
+128 ;;747
+129 ;;21,"63874-0317-04 ")
+130 ;;748
+131 ;;21,"63874-0317-10 ")
+132 ;;749
+133 ;;21,"63874-0317-12 ")
+134 ;;750
+135 ;;21,"63874-0317-14 ")
+136 ;;751
+137 ;;21,"63874-0317-15 ")
+138 ;;752
+139 ;;21,"63874-0317-20 ")
+140 ;;753
+141 ;;21,"63874-0317-24 ")
+142 ;;754
+143 ;;21,"63874-0317-28 ")
+144 ;;755
+145 ;;21,"63874-0317-30 ")
+146 ;;756
+147 ;;21,"63874-0317-40 ")
+148 ;;757
+149 ;;21,"63874-0317-50 ")
+150 ;;758
+151 ;;21,"63874-0317-60 ")
+152 ;;759
+153 ;;21,"63874-0317-90 ")
+154 ;;760
+155 ;;21,"63874-0357-01 ")
+156 ;;12
+157 ;;21,"63874-0357-02 ")
+158 ;;13
+159 ;;21,"63874-0357-10 ")
+160 ;;14
+161 ;;21,"63874-0357-12 ")
+162 ;;15
+163 ;;21,"63874-0357-14 ")
+164 ;;16
+165 ;;21,"63874-0357-15 ")
+166 ;;17
+167 ;;21,"63874-0357-20 ")
+168 ;;18
+169 ;;21,"63874-0357-21 ")
+170 ;;19
+171 ;;21,"63874-0357-24 ")
+172 ;;20
+173 ;;21,"63874-0357-30 ")
+174 ;;21
+175 ;;21,"63874-0357-40 ")
+176 ;;22
+177 ;;21,"63874-0357-60 ")
+178 ;;23
+179 ;;21,"63874-0432-01 ")
+180 ;;367
+181 ;;21,"63874-0432-02 ")
+182 ;;368
+183 ;;21,"63874-0432-04 ")
+184 ;;369
+185 ;;21,"63874-0432-10 ")
+186 ;;370
+187 ;;21,"63874-0432-14 ")
+188 ;;371
+189 ;;21,"63874-0432-20 ")
+190 ;;372
+191 ;;21,"63874-0432-21 ")
+192 ;;373
+193 ;;21,"63874-0432-24 ")
+194 ;;374
+195 ;;21,"63874-0432-28 ")
+196 ;;375
+197 ;;21,"63874-0432-30 ")
+198 ;;376
+199 ;;21,"63874-0432-50 ")
+200 ;;377
+201 ;;21,"63874-0432-60 ")
+202 ;;378
+203 ;;21,"63874-0432-81 ")
+204 ;;379
+205 ;;21,"63874-0432-90 ")
+206 ;;380
+207 ;;21,"63874-0588-01 ")
+208 ;;595
+209 ;;21,"63874-0588-04 ")
+210 ;;596
+211 ;;21,"63874-0588-10 ")
+212 ;;597
+213 ;;21,"63874-0588-14 ")
+214 ;;598
+215 ;;21,"63874-0588-20 ")
+216 ;;599
+217 ;;21,"63874-0588-30 ")
+218 ;;600
+219 ;;21,"63874-0588-60 ")
+220 ;;601
+221 ;;21,"63874-0588-80 ")
+222 ;;602
+223 ;;21,"63874-0588-90 ")
+224 ;;603
+225 ;;21,"63874-0665-01 ")
+226 ;;561
+227 ;;21,"63874-0665-04 ")
+228 ;;562
+229 ;;21,"63874-0665-10 ")
+230 ;;563
+231 ;;21,"63874-0665-14 ")
+232 ;;564
+233 ;;21,"63874-0665-30 ")
+234 ;;565
+235 ;;21,"63874-0665-60 ")
+236 ;;566
+237 ;;21,"63874-0665-90 ")
+238 ;;567
+239 ;;21,"64720-0123-10 ")
+240 ;;578
+241 ;;21,"64720-0124-10 ")
+242 ;;624
+243 ;;21,"64720-0125-10 ")
+244 ;;803
+245 ;;21,"64720-0125-11 ")
+246 ;;804
+247 ;;21,"64764-0302-30 ")
+248 ;;1068
+249 ;;21,"64764-0304-30 ")
+250 ;;1070
+251 ;;21,"65243-0176-09 ")
+252 ;;784
+253 ;;21,"65243-0176-12 ")
+254 ;;785
+255 ;;21,"65243-0176-18 ")
+256 ;;786
+257 ;;21,"65243-0176-27 ")
+258 ;;787
+259 ;;21,"65243-0176-36 ")
+260 ;;788
+261 ;;21,"65243-0183-18 ")
+262 ;;366
+263 ;;21,"65243-0185-36 ")
+264 ;;789
+265 ;;21,"65243-0325-09 ")
+266 ;;612
+267 ;;21,"65243-0325-18 ")
+268 ;;613
+269 ;;21,"65243-0343-09 ")
+270 ;;693
+271 ;;21,"65243-0343-36 ")
+272 ;;694
+273 ;;21,"65243-0346-09 ")
+274 ;;253
+275 ;;21,"65243-0375-09 ")
+276 ;;614
+277 ;;21,"65243-0378-09 ")
+278 ;;254
+279 ;;21,"65862-0028-01 ")
+280 ;;573
+281 ;;21,"65862-0029-01 ")
+282 ;;638
+283 ;;21,"65862-0029-05 ")
+284 ;;639
+285 ;;21,"65862-0030-01 ")
+286 ;;761
+287 ;;21,"65862-0030-99 ")
+288 ;;762
+289 ;;21,"65862-0080-01 ")
+290 ;;923
+291 ;;21,"65862-0080-05 ")
+292 ;;924
+293 ;;21,"65862-0081-01 ")
+294 ;;972
+295 ;;21,"65862-0081-05 ")
+296 ;;973
+297 ;;21,"65862-0082-01 ")
+298 ;;1002
+299 ;;21,"65862-0082-05 ")
+300 ;;1003
+301 ;;21,"66105-0984-03 ")
+302 ;;576
+303 ;;21,"66105-0984-06 ")
+304 ;;554
+305 ;;21,"66105-0984-10 ")
+306 ;;555
+307 ;;21,"66105-0984-11 ")
+308 ;;556
+309 ;;21,"66105-0984-50 ")
+310 ;;557
+311 ;;21,"66105-0985-03 ")
+312 ;;585
+313 ;;21,"66105-0985-06 ")
+314 ;;586
+315 ;;21,"66105-0985-10 ")
+316 ;;587
+317 ;;21,"66105-0985-11 ")
+318 ;;588
+319 ;;21,"66105-0985-50 ")
+320 ;;589
+321 ;;21,"66105-0986-03 ")
+322 ;;652
+323 ;;21,"66105-0986-06 ")
+324 ;;653
+325 ;;21,"66105-0986-10 ")
+326 ;;654
+327 ;;21,"66105-0986-11 ")
+328 ;;655
+329 ;;21,"66105-0986-50 ")
+330 ;;656
+331 ;;21,"66116-0233-30 ")
+332 ;;950
+333 ;;21,"66267-0100-30 ")
+334 ;;255
+335 ;;21,"66267-0100-60 ")
+336 ;;256
+337 ;;21,"66267-0100-90 ")
+338 ;;257
+339 ;;21,"66267-0100-91 ")
+340 ;;258
+341 ;;21,"66267-0100-92 ")
+342 ;;259
+343 ;;21,"66267-0103-30 ")
+344 ;;698
+345 ;;21,"66336-0028-30 ")
+346 ;;641
+347 ;;21,"66336-0028-90 ")
+348 ;;642
+349 ;;21,"66336-0269-30 ")
+350 ;;536
+351 ;;21,"66336-0269-90 ")
+352 ;;537
+353 ;;21,"66336-0319-30 ")
+354 ;;997
+355 ;;21,"66336-0534-30 ")
+356 ;;41
+357 ;;21,"66336-0534-90 ")
+358 ;;42
+359 ;;21,"66336-0535-30 ")
+360 ;;73
+361 ;;21,"66336-0535-60 ")
+362 ;;74
+363 ;;21,"66336-0535-90 ")
+364 ;;75
+365 ;;21,"66336-0573-30 ")
+366 ;;152
+367 ;;21,"66336-0573-60 ")
+368 ;;153
+369 ;;21,"66336-0573-90 ")
+370 ;;154
+371 ;;21,"66336-0662-30 ")
+372 ;;362
+373 ;;21,"66336-0662-60 ")
+374 ;;363
+375 ;;21,"66336-0662-90 ")
+376 ;;364
+377 ;;21,"66336-0662-94 ")
+378 ;;365
+379 ;;21,"66336-0712-90 ")
+380 ;;851
+381 ;;21,"66336-0730-14 ")
+382 ;;175
+383 ;;21,"66336-0730-30 ")
+384 ;;176
+385 ;;21,"66336-0730-60 ")
+386 ;;177
+387 ;;21,"66336-0730-90 ")
+388 ;;178
+389 ;;21,"66336-0784-30 ")
+390 ;;1046
+391 ;;21,"66336-0784-60 ")
+392 ;;1012
+393 ;;21,"66336-0784-90 ")
+394 ;;1013
+395 ;;21,"66336-0850-30 ")
+396 ;;961
+397 ;;21,"66336-0850-60 ")
+398 ;;962
+399 ;;21,"66336-0850-90 ")
+400 ;;963
+401 ;;21,"66336-0938-30 ")
+402 ;;657
+403 ;;21,"66336-0938-60 ")
+404 ;;658
+405 ;;21,"66336-0938-90 ")
+406 ;;659
+407 ;;21,"66993-0162-02 ")
+408 ;;35
+409 ;;21,"66993-0163-02 ")
+410 ;;85
+411 ;;21,"66993-0164-02 ")
+412 ;;137
+413 ;;21,"67253-0460-10 ")
+414 ;;823
+415 ;;21,"67253-0461-10 ")
+416 ;;836
+417 ;;21,"67253-0461-11 ")
+418 ;;837
+419 ;;21,"67253-0461-50 ")
+420 ;;838
+421 ;;21,"67253-0462-10 ")
+422 ;;858
+423 ;;21,"67253-0462-11 ")
+424 ;;859
+425 ;;21,"67253-0462-50 ")
+426 ;;860
+427 ;;21,"67544-0097-53 ")
+428 ;;434
+429 ;;21,"67544-0097-60 ")
+430 ;;396
+431 ;;21,"67544-0097-70 ")
+432 ;;397
+433 ;;21,"67544-0097-80 ")
+434 ;;398
+435 ;;21,"67544-0097-92 ")
+436 ;;399
+437 ;;21,"67544-0097-94 ")
+438 ;;400
+439 ;;21,"67544-0129-53 ")
+440 ;;389
+441 ;;21,"67544-0129-70 ")
+442 ;;390
+443 ;;21,"67544-0129-80 ")
+444 ;;391
+445 ;;21,"67544-0129-94 ")
+446 ;;392
+447 ;;21,"67544-0199-80 ")
+448 ;;540
+449 ;;21,"67544-0296-70 ")
+450 ;;998
+451 ;;21,"67544-0302-45 ")
+452 ;;298
+453 ;;21,"67544-0302-60 ")
+454 ;;299
+455 ;;21,"67544-0302-73 ")
+456 ;;300
+457 ;;21,"67544-0302-80 ")
+458 ;;301
+459 ;;21,"67544-0302-92 ")
+460 ;;302
+461 ;;21,"67544-0302-98 ")
+462 ;;303
+463 ;;21,"67544-0364-70 ")
+464 ;;1047
+465 ;;21,"67544-0417-70 ")
+466 ;;1048
+467 ;;21,"67544-0511-70 ")
+468 ;;1063
+469 ;;21,"67544-0511-94 ")
+470 ;;1004
+471 ;;21,"67544-0566-53 ")
+472 ;;763
+473 ;;21,"67544-0566-60 ")
+474 ;;764
+475 ;;21,"67544-0566-70 ")
+476 ;;765
+477 ;;21,"67544-0566-80 ")
+478 ;;766
+479 ;;21,"67544-0566-90 ")
+480 ;;767
+481 ;;21,"67544-0566-92 ")
+482 ;;768
+483 ;;21,"67544-0566-94 ")
+484 ;;769
+485 ;;21,"67544-0613-53 ")
+486 ;;709
+487 ;;21,"67544-0613-60 ")
+488 ;;710
+489 ;;21,"67544-0613-70 ")
+490 ;;711
+491 ;;21,"67544-0613-80 ")
+492 ;;712
+493 ;;21,"67544-0613-90 ")
+494 ;;713
+495 ;;21,"67544-0613-92 ")
+496 ;;714
+497 ;;21,"67544-0613-94 ")
+498 ;;715
+499 ;;21,"67544-0643-80 ")
+500 ;;716
+501 ;;21,"67544-0643-94 ")
+502 ;;717
+503 ;;21,"67544-0653-53 ")
+504 ;;718
+505 ;;21,"67544-0653-60 ")
+506 ;;719
+507 ;;21,"67544-0653-70 ")
+508 ;;720
+509 ;;21,"67544-0653-80 ")
+510 ;;721
+511 ;;21,"67544-0653-90 ")
+512 ;;722
+513 ;;21,"67544-0653-92 ")
+514 ;;723
+515 ;;21,"67544-0653-94 ")
+516 ;;724
+517 ;;21,"67544-0661-41 ")
+518 ;;568
+519 ;;21,"67544-0661-81 ")
+520 ;;569
+521 ;;21,"67544-0751-60 ")
+522 ;;393
+523 ;;21,"67544-0751-80 ")
+524 ;;394
+525 ;;21,"67544-0756-60 ")
+526 ;;290
+527 ;;21,"67544-0756-80 ")
+528 ;;291
+529 ;;21,"67544-0808-60 ")
+530 ;;520
+531 ;;21,"67544-0875-60 ")
+532 ;;592
+533 ;;21,"67544-0875-80 ")
+534 ;;593
+535 ;;21,"67544-0927-60 ")
+536 ;;594
+537 ;;21,"67544-1129-70 ")
+538 ;;1052
+539 ;;21,"68071-0028-30 ")
+540 ;;1014
+541 ;;21,"68071-0028-60 ")
+542 ;;1015
+543 ;;21,"68084-0111-01 ")
+544 ;;479
+545 ;;21,"68084-0111-11 ")
+546 ;;480
+547 ;;21,"68084-0112-01 ")
+548 ;;499
+549 ;;21,"68084-0112-11 ")
+550 ;;500
+551 ;;21,"68084-0136-01 ")
+552 ;;941
+553 ;;21,"68084-0136-11 ")
+554 ;;942
+555 ;;21,"68084-0137-01 ")
+556 ;;985
+557 ;;21,"68084-0137-11 ")
+558 ;;986
+559 ;;21,"68084-0138-01 ")
+560 ;;1064
+561 ;;21,"68084-0138-11 ")
+562 ;;1065
+563 ;;21,"68084-0295-11 ")
+564 ;;442
+565 ;;21,"68084-0295-21 ")
+566 ;;443
+567 ;;21,"68084-0326-01 ")
+568 ;;86
+569 ;;21,"68084-0326-11 ")
+570 ;;87
+571 ;;21,"68084-0327-01 ")
+572 ;;135
+573 ;;21,"68084-0327-11 ")
+574 ;;136
+575 ;;21,"68084-0556-11 ")
+576 ;;873
+577 ;;21,"68084-0556-21 ")
+578 ;;874
+579 ;;21,"68645-0150-54 ")
+580 ;;245
+581 ;;21,"68645-0151-59 ")
+582 ;;433
+583 ;;21,"68645-0210-54 ")
+584 ;;608
+585 ;;21,"68645-0211-54 ")
+586 ;;708
+587 ;;9002226,1199,.01)
+588 ;;BGP PQA SULFONYLUREA NDC
+589 ;;9002226,1199,.02)
+590 ;;@
+591 ;;9002226,1199,.04)
+592 ;;n
+593 ;;9002226,1199,.06)
+594 ;;@
+595 ;;9002226,1199,.08)
+596 ;;@
+597 ;;9002226,1199,.09)
+598 ;;3130911
+599 ;;9002226,1199,.11)
+600 ;;@
+601 ;;9002226,1199,.12)
+602 ;;@
+603 ;;9002226,1199,.13)
+604 ;;1
+605 ;;9002226,1199,.14)
+606 ;;@
+607 ;;9002226,1199,.15)
+608 ;;@
+609 ;;9002226,1199,.16)
+610 ;;@
+611 ;;9002226,1199,.17)
+612 ;;@
+613 ;;9002226,1199,3101)
+614 ;;@
+615 ;;9002226.02101,"1199,00009-0341-01 ",.01)
+616 ;;00009-0341-01
+617 ;;9002226.02101,"1199,00009-0341-01 ",.02)
+618 ;;00009-0341-01
+619 ;;9002226.02101,"1199,00009-0352-01 ",.01)
+620 ;;00009-0352-01
+621 ;;9002226.02101,"1199,00009-0352-01 ",.02)
+622 ;;00009-0352-01
+623 ;;9002226.02101,"1199,00009-0352-04 ",.01)
+624 ;;00009-0352-04
+625 ;;9002226.02101,"1199,00009-0352-04 ",.02)
+626 ;;00009-0352-04
+627 ;;9002226.02101,"1199,00009-3449-01 ",.01)
+628 ;;00009-3449-01
+629 ;;9002226.02101,"1199,00009-3449-01 ",.02)
+630 ;;00009-3449-01
+631 ;;9002226.02101,"1199,00009-3449-03 ",.01)
+632 ;;00009-3449-03
+633 ;;9002226.02101,"1199,00009-3449-03 ",.02)
+634 ;;00009-3449-03
+635 ;;9002226.02101,"1199,00029-3151-13 ",.01)
+636 ;;00029-3151-13
+637 ;;9002226.02101,"1199,00029-3151-13 ",.02)
+638 ;;00029-3151-13
+639 ;;9002226.02101,"1199,00029-3152-13 ",.01)
+640 ;;00029-3152-13
+641 ;;9002226.02101,"1199,00029-3152-13 ",.02)
+642 ;;00029-3152-13
+643 ;;9002226.02101,"1199,00029-3153-13 ",.01)
+644 ;;00029-3153-13
+645 ;;9002226.02101,"1199,00029-3153-13 ",.02)
+646 ;;00029-3153-13
+647 ;;9002226.02101,"1199,00039-0051-10 ",.01)
+648 ;;00039-0051-10
+649 ;;9002226.02101,"1199,00039-0051-10 ",.02)
+650 ;;00039-0051-10
+651 ;;9002226.02101,"1199,00039-0052-10 ",.01)
+652 ;;00039-0052-10
+653 ;;9002226.02101,"1199,00039-0052-10 ",.02)
+654 ;;00039-0052-10
+655 ;;9002226.02101,"1199,00039-0053-05 ",.01)
+656 ;;00039-0053-05
+657 ;;9002226.02101,"1199,00039-0053-05 ",.02)
+658 ;;00039-0053-05
+659 ;;9002226.02101,"1199,00039-0221-10 ",.01)
+660 ;;00039-0221-10
+661 ;;9002226.02101,"1199,00039-0221-10 ",.02)
+662 ;;00039-0221-10
+663 ;;9002226.02101,"1199,00039-0222-10 ",.01)
+664 ;;00039-0222-10
+665 ;;9002226.02101,"1199,00039-0222-10 ",.02)
+666 ;;00039-0222-10
+667 ;;9002226.02101,"1199,00039-0223-10 ",.01)
+668 ;;00039-0223-10
+669 ;;9002226.02101,"1199,00039-0223-10 ",.02)
+670 ;;00039-0223-10
+671 ;;9002226.02101,"1199,00049-0170-01 ",.01)
+672 ;;00049-0170-01
+673 ;;9002226.02101,"1199,00049-0170-01 ",.02)
+674 ;;00049-0170-01
+675 ;;9002226.02101,"1199,00049-0178-07 ",.01)
+676 ;;00049-0178-07
+677 ;;9002226.02101,"1199,00049-0178-07 ",.02)
+678 ;;00049-0178-07
+679 ;;9002226.02101,"1199,00049-0178-08 ",.01)
+680 ;;00049-0178-08
+681 ;;9002226.02101,"1199,00049-0178-08 ",.02)
+682 ;;00049-0178-08
+683 ;;9002226.02101,"1199,00049-1550-66 ",.01)
+684 ;;00049-1550-66
+685 ;;9002226.02101,"1199,00049-1550-66 ",.02)
+686 ;;00049-1550-66
+687 ;;9002226.02101,"1199,00049-1550-73 ",.01)
+688 ;;00049-1550-73
+689 ;;9002226.02101,"1199,00049-1550-73 ",.02)
+690 ;;00049-1550-73
+691 ;;9002226.02101,"1199,00049-1560-66 ",.01)
+692 ;;00049-1560-66
+693 ;;9002226.02101,"1199,00049-1560-66 ",.02)
+694 ;;00049-1560-66
+695 ;;9002226.02101,"1199,00049-1560-73 ",.01)
+696 ;;00049-1560-73
+697 ;;9002226.02101,"1199,00049-1560-73 ",.02)
+698 ;;00049-1560-73
+699 ;;9002226.02101,"1199,00049-1620-30 ",.01)
+700 ;;00049-1620-30
+701 ;;9002226.02101,"1199,00049-1620-30 ",.02)
+702 ;;00049-1620-30
+703 ;;9002226.02101,"1199,00049-4110-66 ",.01)
+704 ;;00049-4110-66
+705 ;;9002226.02101,"1199,00049-4110-66 ",.02)
+706 ;;00049-4110-66
+707 ;;9002226.02101,"1199,00049-4120-66 ",.01)
+708 ;;00049-4120-66
+709 ;;9002226.02101,"1199,00049-4120-66 ",.02)
+710 ;;00049-4120-66
+711 ;;9002226.02101,"1199,00087-6072-11 ",.01)
+712 ;;00087-6072-11
+713 ;;9002226.02101,"1199,00087-6072-11 ",.02)
+714 ;;00087-6072-11
