BGP48K4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2014;
;;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,"63807-0300-31 ")
;;358
;;21,"63807-0300-35 ")
;;359
;;21,"63807-0360-31 ")
;;360
;;21,"63807-0400-31 ")
;;488
;;21,"63807-0400-35 ")
;;489
;;21,"63807-0500-05 ")
;;518
;;21,"63807-0500-31 ")
;;501
;;21,"63807-0500-50 ")
;;490
;;21,"63807-0500-51 ")
;;519
;;21,"63807-0500-55 ")
;;520
;;21,"63807-0505-12 ")
;;393
;;21,"63807-0560-31 ")
;;361
;;21,"63807-0560-51 ")
;;362
;;21,"63807-0600-05 ")
;;557
;;21,"63807-0600-31 ")
;;552
;;21,"63807-0600-50 ")
;;558
;;21,"63807-0600-51 ")
;;559
;;21,"63807-0600-55 ")
;;560
;;21,"63807-0605-12 ")
;;453
;;21,"63807-0660-31 ")
;;424
;;21,"63807-0660-51 ")
;;526
;;21,"64054-1000-03 ")
;;230
;;21,"64054-1001-03 ")
;;204
;;21,"64054-1002-02 ")
;;227
;;21,"64054-1002-03 ")
;;203
;;21,"64054-1002-06 ")
;;228
;;21,"64054-1003-01 ")
;;218
;;21,"64054-1003-02 ")
;;219
;;21,"64054-1003-06 ")
;;217
;;21,"64054-1004-02 ")
;;229
;;21,"64054-1004-06 ")
;;478
;;21,"64054-1005-02 ")
;;367
;;21,"64054-1005-06 ")
;;368
;;21,"64054-1009-02 ")
;;231
;;21,"64054-1010-02 ")
;;366
;;21,"64054-3000-03 ")
;;578
;;21,"64054-3001-03 ")
;;562
;;21,"64054-3002-02 ")
;;577
;;21,"64054-3002-03 ")
;;202
;;21,"64054-3002-06 ")
;;580
;;21,"64054-3003-01 ")
;;575
;;21,"64054-3003-02 ")
;;567
;;21,"64054-3003-06 ")
;;568
;;21,"64054-3004-02 ")
;;576
;;21,"64054-3004-06 ")
;;579
;;21,"64054-3005-02 ")
;;569
;;21,"64054-3005-06 ")
;;570
;;21,"64054-3009-02 ")
;;574
;;21,"64054-3010-02 ")
;;563
;;21,"64253-0222-11 ")
;;409
;;21,"64253-0222-12 ")
;;410
;;21,"64253-0222-21 ")
;;411
;;21,"64253-0222-22 ")
;;412
;;21,"64253-0222-23 ")
;;413
;;21,"64253-0222-25 ")
;;414
;;21,"64253-0222-30 ")
;;415
;;21,"64253-0222-33 ")
;;416
;;21,"64253-0222-35 ")
;;417
;;21,"64253-0222-52 ")
;;420
;;21,"64253-0333-11 ")
;;434
;;21,"64253-0333-12 ")
;;435
;;21,"64253-0333-21 ")
;;441
;;21,"64253-0333-22 ")
;;440
;;21,"64253-0333-23 ")
;;443
;;21,"64253-0333-25 ")
;;446
;;21,"64253-0333-30 ")
;;449
;;21,"64253-0333-33 ")
;;444
;;21,"64253-0333-35 ")
;;447
;;21,"64253-0333-52 ")
;;436
;;21,"64253-0444-21 ")
;;350
;;21,"64253-0444-22 ")
;;351
;;21,"64253-0444-23 ")
;;352
;;21,"64253-0444-25 ")
;;353
;;21,"64253-0444-30 ")
;;354
;;21,"64253-0444-33 ")
;;355
;;21,"64253-0444-35 ")
;;356
;;21,"64253-0444-52 ")
;;357
;;21,"65162-0761-10 ")
;;667
;;21,"65162-0761-11 ")
;;668
;;21,"65162-0762-10 ")
;;807
;;21,"65162-0762-11 ")
;;808
;;21,"65162-0763-10 ")
;;970
;;21,"65162-0763-11 ")
;;971
;;21,"65162-0764-10 ")
;;1034
;;21,"65162-0764-11 ")
;;1035
;;21,"65162-0765-10 ")
;;1074
;;21,"65162-0765-11 ")
;;1075
;;21,"65162-0766-10 ")
;;1287
;;21,"65162-0766-11 ")
;;1288
;;21,"65162-0767-10 ")
;;1343
;;21,"65162-0767-11 ")
;;1344
;;21,"65162-0768-10 ")
;;1389
;;21,"65162-0768-11 ")
;;1390
;;21,"65162-0769-10 ")
;;725
;;21,"65162-0769-11 ")
;;726
;;21,"65243-0274-03 ")
;;1234
;;21,"66105-0110-10 ")
;;1172
;;21,"66105-0176-10 ")
;;878
;;21,"66105-0518-10 ")
;;602
;;21,"66105-0519-10 ")
;;981
;;21,"66105-0521-10 ")
;;1311
;;21,"66105-0523-10 ")
;;700
;;21,"66116-0469-30 ")
;;865
;;21,"66116-0470-30 ")
;;1235
;;21,"66203-2300-01 ")
;;162
;;21,"66203-2300-02 ")
;;163
;;21,"66267-0268-30 ")
;;1258
;;21,"66267-0285-30 ")
;;647
;;21,"66267-0628-00 ")
;;706
;;21,"66267-0629-00 ")
;;607
;;21,"66267-0630-00 ")
;;897
;;21,"66267-0631-00 ")
;;978
;;21,"66267-0632-00 ")
;;1044
;;21,"66267-0633-00 ")
;;1171
;;21,"66267-0634-00 ")
;;1307
;;21,"66267-0635-00 ")
;;1363
;;21,"66267-0636-00 ")
;;754
;;21,"66336-0249-20 ")
;;641
;;21,"66336-0249-30 ")
;;642
;;21,"66336-0249-60 ")
;;643
;;21,"66336-0250-20 ")
;;850
;;21,"66336-0250-30 ")
;;851
;;21,"66336-0250-90 ")
;;852
;;21,"66336-0251-30 ")
;;928
;;21,"66336-0251-60 ")
;;929
;;21,"66336-0252-14 ")
;;1230
;;21,"66336-0252-30 ")
;;1231
;;21,"66336-0252-60 ")
;;1232
;;21,"66336-0252-90 ")
;;1233
;;21,"66336-0825-30 ")
;;1388
;;21,"67544-0052-15 ")
;;1163
;;21,"67544-0052-20 ")
;;1164
;;21,"67544-0052-25 ")
;;1165
;;21,"67544-0052-28 ")
;;1166
;;21,"67544-0052-30 ")
;;1167
;;21,"67544-0052-35 ")
;;1168
;;21,"67544-0052-38 ")
;;1169
;;21,"67544-0052-40 ")
;;1126
;;21,"67544-0052-45 ")
;;1127
;;21,"67544-0052-50 ")
;;1128
;;21,"67544-0052-53 ")
;;1129
;;21,"67544-0052-55 ")
;;1130
;;21,"67544-0052-57 ")
;;1131
;;21,"67544-0052-60 ")
;;1132
;;21,"67544-0052-61 ")
;;1133
;;21,"67544-0052-65 ")
;;1134
;;21,"67544-0052-68 ")
;;1135
;;21,"67544-0052-70 ")
;;1136
;;21,"67544-0052-78 ")
;;1137
;;21,"67544-0070-30 ")
;;1310
;;21,"67544-0194-30 ")
;;1045
;;21,"67544-0195-30 ")
;;879
;;21,"67544-0195-40 ")
;;880
;;21,"67544-0195-45 ")
;;881
;;21,"67544-0195-53 ")
;;882
;;21,"67544-0195-60 ")
;;883
;;21,"67544-0318-15 ")
;;794
;;21,"67544-0318-30 ")
;;795
;;21,"67544-0318-35 ")
;;796
;;21,"67544-0318-40 ")
;;797
;;21,"67544-0318-45 ")
;;798
;;21,"67544-0318-50 ")
;;799
;;21,"67544-0318-53 ")
;;800
;;21,"67544-0318-55 ")
;;801
;;21,"67544-0318-60 ")
;;802
;;21,"67544-0318-61 ")
;;803
;;21,"67544-0318-70 ")
;;804
;;21,"67544-0401-15 ")
;;766
;;21,"67544-0401-30 ")
;;767
;;21,"67544-0401-35 ")
;;768
;;21,"67544-0401-40 ")
;;769
;;21,"67544-0401-45 ")
;;770
;;21,"67544-0401-50 ")
;;771
;;21,"67544-0401-53 ")
;;772
;;21,"67544-0401-55 ")
;;773
;;21,"67544-0401-60 ")
;;774
;;21,"67544-0401-61 ")
;;775
;;21,"67544-0401-70 ")
;;776
;;21,"68084-0027-01 ")
;;938
;;21,"68084-0027-11 ")
;;939
;;21,"68084-0027-77 ")
;;940
;;21,"68084-0146-77 ")
;;674
;;21,"68084-0147-77 ")
;;1039
;;21,"68084-0148-77 ")
;;1080
;;21,"68115-0092-30 ")
;;889
;;21,"68115-0093-30 ")
;;756
;;21,"68115-0094-30 ")
;;1162
;;21,"68115-0359-30 ")
;;659
;;21,"68115-0359-60 ")
;;660
;;21,"68115-0359-90 ")
;;661
;;21,"68115-0399-30 ")
;;829
;;21,"68115-0527-30 ")
;;1283
;;21,"68115-0527-60 ")
;;1284
;;21,"68115-0527-90 ")
;;1285
;;21,"68115-0659-00 ")
;;1228
;;21,"68115-0749-10 ")
;;50
;;21,"68115-0774-10 ")
;;32
;;21,"68258-1026-01 ")
;;821
;;21,"68258-1027-01 ")
;;1286
;;21,"68258-6067-03 ")
;;1110
;;21,"68258-6068-03 ")
;;727
;;21,"68258-9064-01 ")
;;707
;;21,"68258-9097-01 ")
;;1366
;;21,"68258-9101-01 ")
;;888
;;21,"68258-9102-01 ")
;;1157
;;21,"68258-9104-01 ")
;;611
;;21,"68382-0052-01 ")
;;648
;;21,"68382-0052-10 ")
;;649
;;21,"68382-0053-01 ")
;;866
;;21,"68382-0053-10 ")
;;867
;;21,"68382-0054-01 ")
;;997
;;21,"68382-0054-10 ")
;;998
;;21,"68382-0055-01 ")
;;1117
;;21,"68382-0055-10 ")
;;1118
;;21,"68382-0056-01 ")
;;1264
;;21,"68382-0056-10 ")
;;1265
;;21,"68382-0056-16 ")
;;1266
;;21,"68382-0057-01 ")
;;1340
;;21,"68382-0058-01 ")
;;1391
;;21,"68382-0059-01 ")
;;728
;;21,"68382-0064-01 ")
;;952
;;21,"68382-0064-10 ")
;;953
;;21,"68883-0010-03 ")
;;363
;;21,"68883-0010-04 ")
;;398
;;21,"68883-0010-05 ")
;;364
;;21,"68883-0010-06 ")
;;365
;;21,"68883-0010-13 ")
;;399
;;21,"68883-0010-15 ")
;;400
;;21,"68883-0020-05 ")
;;584
;;21,"68883-0030-05 ")
;;585
;;21,"68883-0100-03 ")
;;425
;;21,"68883-0100-04 ")
;;426
;;21,"68883-0100-05 ")
;;427
;;21,"68883-0100-06 ")
;;428
;;21,"68883-0100-13 ")
;;484
;;21,"68883-0100-15 ")
;;485
;;9002226,1813,.01)
;;BGP PQA WARFARIN NDC
;;9002226,1813,.02)
;;@
;;9002226,1813,.04)
;;n
;;9002226,1813,.06)
;;@
;;9002226,1813,.08)
;;@
;;9002226,1813,.09)
;;3140324
;;9002226,1813,.11)
;;@
;;9002226,1813,.12)
;;@
;;9002226,1813,.13)
;;1
;;9002226,1813,.14)
;;@
;;9002226,1813,.15)
;;@
;;9002226,1813,.16)
;;@
;;9002226,1813,.17)
;;@
;;9002226,1813,3101)
;;@
;;9002226.02101,"1813,00002-7217-01 ",.01)
;;00002-7217-01
;;9002226.02101,"1813,00002-7217-01 ",.02)
;;00002-7217-01
;;9002226.02101,"1813,00007-3230-01 ",.01)
;;00007-3230-01
;;9002226.02101,"1813,00007-3230-01 ",.02)
;;00007-3230-01
;;9002226.02101,"1813,00007-3230-02 ",.01)
;;00007-3230-02
;;9002226.02101,"1813,00007-3230-02 ",.02)
;;00007-3230-02
;;9002226.02101,"1813,00007-3230-11 ",.01)
;;00007-3230-11
;;9002226.02101,"1813,00007-3230-11 ",.02)
;;00007-3230-11
;;9002226.02101,"1813,00007-3232-01 ",.01)
;;00007-3232-01
;;9002226.02101,"1813,00007-3232-01 ",.02)
;;00007-3232-01
;;9002226.02101,"1813,00007-3232-02 ",.01)
;;00007-3232-02
;;9002226.02101,"1813,00007-3232-02 ",.02)
;;00007-3232-02
;;9002226.02101,"1813,00007-3232-11 ",.01)
;;00007-3232-11
;;9002226.02101,"1813,00007-3232-11 ",.02)
;;00007-3232-11
;;9002226.02101,"1813,00007-3234-01 ",.01)
;;00007-3234-01
;;9002226.02101,"1813,00007-3234-01 ",.02)
;;00007-3234-01
;;9002226.02101,"1813,00007-3234-02 ",.01)
;;00007-3234-02
;;9002226.02101,"1813,00007-3234-02 ",.02)
;;00007-3234-02
;;9002226.02101,"1813,00007-3234-11 ",.01)
;;00007-3234-11
;;9002226.02101,"1813,00007-3234-11 ",.02)
;;00007-3234-11
;;9002226.02101,"1813,00007-3236-01 ",.01)
;;00007-3236-01
;;9002226.02101,"1813,00007-3236-01 ",.02)
;;00007-3236-01
;;9002226.02101,"1813,00007-3236-02 ",.01)
;;00007-3236-02
;;9002226.02101,"1813,00007-3236-02 ",.02)
;;00007-3236-02
;;9002226.02101,"1813,00007-3236-11 ",.01)
;;00007-3236-11
;;9002226.02101,"1813,00007-3236-11 ",.02)
;;00007-3236-11
;;9002226.02101,"1813,00008-2528-50 ",.01)
;;00008-2528-50
;;9002226.02101,"1813,00008-2528-50 ",.02)
;;00008-2528-50
;;9002226.02101,"1813,00009-0268-01 ",.01)
;;00009-0268-01
;;9002226.02101,"1813,00009-0268-01 ",.02)
;;00009-0268-01
;;9002226.02101,"1813,00009-0268-02 ",.01)
;;00009-0268-02
;;9002226.02101,"1813,00009-0268-02 ",.02)
;;00009-0268-02
;;9002226.02101,"1813,00009-0268-12 ",.01)
;;00009-0268-12
;;9002226.02101,"1813,00009-0268-12 ",.02)
;;00009-0268-12
;;9002226.02101,"1813,00009-0291-01 ",.01)
;;00009-0291-01
;;9002226.02101,"1813,00009-0291-01 ",.02)
;;00009-0291-01
;;9002226.02101,"1813,00009-0317-02 ",.01)
;;00009-0317-02
;;9002226.02101,"1813,00009-0317-02 ",.02)
;;00009-0317-02
;;9002226.02101,"1813,00009-0317-10 ",.01)
;;00009-0317-10
;;9002226.02101,"1813,00009-0317-10 ",.02)
;;00009-0317-10
;;9002226.02101,"1813,00009-0317-11 ",.01)
;;00009-0317-11
;;9002226.02101,"1813,00009-0317-11 ",.02)
;;00009-0317-11
;;9002226.02101,"1813,00013-2406-91 ",.01)
;;00013-2406-91
;;9002226.02101,"1813,00013-2406-91 ",.02)
;;00013-2406-91
;;9002226.02101,"1813,00013-2426-01 ",.01)
;;00013-2426-01
;;9002226.02101,"1813,00013-2426-01 ",.02)
;;00013-2426-01
;;9002226.02101,"1813,00013-2426-91 ",.01)
;;00013-2426-91
;;9002226.02101,"1813,00013-2426-91 ",.02)
;;00013-2426-91
;;9002226.02101,"1813,00013-2436-06 ",.01)
;;00013-2436-06
;;9002226.02101,"1813,00013-2436-06 ",.02)
;;00013-2436-06
;;9002226.02101,"1813,00013-5190-01 ",.01)
;;00013-5190-01
;;9002226.02101,"1813,00013-5190-01 ",.02)
;;00013-5190-01
;;9002226.02101,"1813,00013-5191-01 ",.01)
;;00013-5191-01
;;9002226.02101,"1813,00013-5191-01 ",.02)
;;00013-5191-01
;;9002226.02101,"1813,00056-0168-01 ",.01)
;;00056-0168-01
;;9002226.02101,"1813,00056-0168-01 ",.02)
;;00056-0168-01
;;9002226.02101,"1813,00056-0168-70 ",.01)
;;00056-0168-70
;;9002226.02101,"1813,00056-0168-70 ",.02)
;;00056-0168-70
;;9002226.02101,"1813,00056-0168-75 ",.01)
;;00056-0168-75
;;9002226.02101,"1813,00056-0168-75 ",.02)
;;00056-0168-75
;;9002226.02101,"1813,00056-0168-90 ",.01)
;;00056-0168-90
;;9002226.02101,"1813,00056-0168-90 ",.02)
;;00056-0168-90
;;9002226.02101,"1813,00056-0169-01 ",.01)
;;00056-0169-01
;;9002226.02101,"1813,00056-0169-01 ",.02)
;;00056-0169-01
;;9002226.02101,"1813,00056-0169-70 ",.01)
;;00056-0169-70
;;9002226.02101,"1813,00056-0169-70 ",.02)
;;00056-0169-70
;;9002226.02101,"1813,00056-0169-75 ",.01)
;;00056-0169-75
;;9002226.02101,"1813,00056-0169-75 ",.02)
;;00056-0169-75
;;9002226.02101,"1813,00056-0169-90 ",.01)
;;00056-0169-90
;;9002226.02101,"1813,00056-0169-90 ",.02)
;;00056-0169-90
;;9002226.02101,"1813,00056-0170-01 ",.01)
;;00056-0170-01
;;9002226.02101,"1813,00056-0170-01 ",.02)
;;00056-0170-01
;;9002226.02101,"1813,00056-0170-70 ",.01)
;;00056-0170-70
;;9002226.02101,"1813,00056-0170-70 ",.02)
;;00056-0170-70
;;9002226.02101,"1813,00056-0170-75 ",.01)
;;00056-0170-75
;;9002226.02101,"1813,00056-0170-75 ",.02)
;;00056-0170-75
;;9002226.02101,"1813,00056-0170-90 ",.01)
;;00056-0170-90
;;9002226.02101,"1813,00056-0170-90 ",.02)
;;00056-0170-90
;;9002226.02101,"1813,00056-0172-01 ",.01)
;;00056-0172-01
;;9002226.02101,"1813,00056-0172-01 ",.02)
;;00056-0172-01
;;9002226.02101,"1813,00056-0172-70 ",.01)
;;00056-0172-70
BGP48K4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2014;
+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,"63807-0300-31 ")
+2 ;;358
+3 ;;21,"63807-0300-35 ")
+4 ;;359
+5 ;;21,"63807-0360-31 ")
+6 ;;360
+7 ;;21,"63807-0400-31 ")
+8 ;;488
+9 ;;21,"63807-0400-35 ")
+10 ;;489
+11 ;;21,"63807-0500-05 ")
+12 ;;518
+13 ;;21,"63807-0500-31 ")
+14 ;;501
+15 ;;21,"63807-0500-50 ")
+16 ;;490
+17 ;;21,"63807-0500-51 ")
+18 ;;519
+19 ;;21,"63807-0500-55 ")
+20 ;;520
+21 ;;21,"63807-0505-12 ")
+22 ;;393
+23 ;;21,"63807-0560-31 ")
+24 ;;361
+25 ;;21,"63807-0560-51 ")
+26 ;;362
+27 ;;21,"63807-0600-05 ")
+28 ;;557
+29 ;;21,"63807-0600-31 ")
+30 ;;552
+31 ;;21,"63807-0600-50 ")
+32 ;;558
+33 ;;21,"63807-0600-51 ")
+34 ;;559
+35 ;;21,"63807-0600-55 ")
+36 ;;560
+37 ;;21,"63807-0605-12 ")
+38 ;;453
+39 ;;21,"63807-0660-31 ")
+40 ;;424
+41 ;;21,"63807-0660-51 ")
+42 ;;526
+43 ;;21,"64054-1000-03 ")
+44 ;;230
+45 ;;21,"64054-1001-03 ")
+46 ;;204
+47 ;;21,"64054-1002-02 ")
+48 ;;227
+49 ;;21,"64054-1002-03 ")
+50 ;;203
+51 ;;21,"64054-1002-06 ")
+52 ;;228
+53 ;;21,"64054-1003-01 ")
+54 ;;218
+55 ;;21,"64054-1003-02 ")
+56 ;;219
+57 ;;21,"64054-1003-06 ")
+58 ;;217
+59 ;;21,"64054-1004-02 ")
+60 ;;229
+61 ;;21,"64054-1004-06 ")
+62 ;;478
+63 ;;21,"64054-1005-02 ")
+64 ;;367
+65 ;;21,"64054-1005-06 ")
+66 ;;368
+67 ;;21,"64054-1009-02 ")
+68 ;;231
+69 ;;21,"64054-1010-02 ")
+70 ;;366
+71 ;;21,"64054-3000-03 ")
+72 ;;578
+73 ;;21,"64054-3001-03 ")
+74 ;;562
+75 ;;21,"64054-3002-02 ")
+76 ;;577
+77 ;;21,"64054-3002-03 ")
+78 ;;202
+79 ;;21,"64054-3002-06 ")
+80 ;;580
+81 ;;21,"64054-3003-01 ")
+82 ;;575
+83 ;;21,"64054-3003-02 ")
+84 ;;567
+85 ;;21,"64054-3003-06 ")
+86 ;;568
+87 ;;21,"64054-3004-02 ")
+88 ;;576
+89 ;;21,"64054-3004-06 ")
+90 ;;579
+91 ;;21,"64054-3005-02 ")
+92 ;;569
+93 ;;21,"64054-3005-06 ")
+94 ;;570
+95 ;;21,"64054-3009-02 ")
+96 ;;574
+97 ;;21,"64054-3010-02 ")
+98 ;;563
+99 ;;21,"64253-0222-11 ")
+100 ;;409
+101 ;;21,"64253-0222-12 ")
+102 ;;410
+103 ;;21,"64253-0222-21 ")
+104 ;;411
+105 ;;21,"64253-0222-22 ")
+106 ;;412
+107 ;;21,"64253-0222-23 ")
+108 ;;413
+109 ;;21,"64253-0222-25 ")
+110 ;;414
+111 ;;21,"64253-0222-30 ")
+112 ;;415
+113 ;;21,"64253-0222-33 ")
+114 ;;416
+115 ;;21,"64253-0222-35 ")
+116 ;;417
+117 ;;21,"64253-0222-52 ")
+118 ;;420
+119 ;;21,"64253-0333-11 ")
+120 ;;434
+121 ;;21,"64253-0333-12 ")
+122 ;;435
+123 ;;21,"64253-0333-21 ")
+124 ;;441
+125 ;;21,"64253-0333-22 ")
+126 ;;440
+127 ;;21,"64253-0333-23 ")
+128 ;;443
+129 ;;21,"64253-0333-25 ")
+130 ;;446
+131 ;;21,"64253-0333-30 ")
+132 ;;449
+133 ;;21,"64253-0333-33 ")
+134 ;;444
+135 ;;21,"64253-0333-35 ")
+136 ;;447
+137 ;;21,"64253-0333-52 ")
+138 ;;436
+139 ;;21,"64253-0444-21 ")
+140 ;;350
+141 ;;21,"64253-0444-22 ")
+142 ;;351
+143 ;;21,"64253-0444-23 ")
+144 ;;352
+145 ;;21,"64253-0444-25 ")
+146 ;;353
+147 ;;21,"64253-0444-30 ")
+148 ;;354
+149 ;;21,"64253-0444-33 ")
+150 ;;355
+151 ;;21,"64253-0444-35 ")
+152 ;;356
+153 ;;21,"64253-0444-52 ")
+154 ;;357
+155 ;;21,"65162-0761-10 ")
+156 ;;667
+157 ;;21,"65162-0761-11 ")
+158 ;;668
+159 ;;21,"65162-0762-10 ")
+160 ;;807
+161 ;;21,"65162-0762-11 ")
+162 ;;808
+163 ;;21,"65162-0763-10 ")
+164 ;;970
+165 ;;21,"65162-0763-11 ")
+166 ;;971
+167 ;;21,"65162-0764-10 ")
+168 ;;1034
+169 ;;21,"65162-0764-11 ")
+170 ;;1035
+171 ;;21,"65162-0765-10 ")
+172 ;;1074
+173 ;;21,"65162-0765-11 ")
+174 ;;1075
+175 ;;21,"65162-0766-10 ")
+176 ;;1287
+177 ;;21,"65162-0766-11 ")
+178 ;;1288
+179 ;;21,"65162-0767-10 ")
+180 ;;1343
+181 ;;21,"65162-0767-11 ")
+182 ;;1344
+183 ;;21,"65162-0768-10 ")
+184 ;;1389
+185 ;;21,"65162-0768-11 ")
+186 ;;1390
+187 ;;21,"65162-0769-10 ")
+188 ;;725
+189 ;;21,"65162-0769-11 ")
+190 ;;726
+191 ;;21,"65243-0274-03 ")
+192 ;;1234
+193 ;;21,"66105-0110-10 ")
+194 ;;1172
+195 ;;21,"66105-0176-10 ")
+196 ;;878
+197 ;;21,"66105-0518-10 ")
+198 ;;602
+199 ;;21,"66105-0519-10 ")
+200 ;;981
+201 ;;21,"66105-0521-10 ")
+202 ;;1311
+203 ;;21,"66105-0523-10 ")
+204 ;;700
+205 ;;21,"66116-0469-30 ")
+206 ;;865
+207 ;;21,"66116-0470-30 ")
+208 ;;1235
+209 ;;21,"66203-2300-01 ")
+210 ;;162
+211 ;;21,"66203-2300-02 ")
+212 ;;163
+213 ;;21,"66267-0268-30 ")
+214 ;;1258
+215 ;;21,"66267-0285-30 ")
+216 ;;647
+217 ;;21,"66267-0628-00 ")
+218 ;;706
+219 ;;21,"66267-0629-00 ")
+220 ;;607
+221 ;;21,"66267-0630-00 ")
+222 ;;897
+223 ;;21,"66267-0631-00 ")
+224 ;;978
+225 ;;21,"66267-0632-00 ")
+226 ;;1044
+227 ;;21,"66267-0633-00 ")
+228 ;;1171
+229 ;;21,"66267-0634-00 ")
+230 ;;1307
+231 ;;21,"66267-0635-00 ")
+232 ;;1363
+233 ;;21,"66267-0636-00 ")
+234 ;;754
+235 ;;21,"66336-0249-20 ")
+236 ;;641
+237 ;;21,"66336-0249-30 ")
+238 ;;642
+239 ;;21,"66336-0249-60 ")
+240 ;;643
+241 ;;21,"66336-0250-20 ")
+242 ;;850
+243 ;;21,"66336-0250-30 ")
+244 ;;851
+245 ;;21,"66336-0250-90 ")
+246 ;;852
+247 ;;21,"66336-0251-30 ")
+248 ;;928
+249 ;;21,"66336-0251-60 ")
+250 ;;929
+251 ;;21,"66336-0252-14 ")
+252 ;;1230
+253 ;;21,"66336-0252-30 ")
+254 ;;1231
+255 ;;21,"66336-0252-60 ")
+256 ;;1232
+257 ;;21,"66336-0252-90 ")
+258 ;;1233
+259 ;;21,"66336-0825-30 ")
+260 ;;1388
+261 ;;21,"67544-0052-15 ")
+262 ;;1163
+263 ;;21,"67544-0052-20 ")
+264 ;;1164
+265 ;;21,"67544-0052-25 ")
+266 ;;1165
+267 ;;21,"67544-0052-28 ")
+268 ;;1166
+269 ;;21,"67544-0052-30 ")
+270 ;;1167
+271 ;;21,"67544-0052-35 ")
+272 ;;1168
+273 ;;21,"67544-0052-38 ")
+274 ;;1169
+275 ;;21,"67544-0052-40 ")
+276 ;;1126
+277 ;;21,"67544-0052-45 ")
+278 ;;1127
+279 ;;21,"67544-0052-50 ")
+280 ;;1128
+281 ;;21,"67544-0052-53 ")
+282 ;;1129
+283 ;;21,"67544-0052-55 ")
+284 ;;1130
+285 ;;21,"67544-0052-57 ")
+286 ;;1131
+287 ;;21,"67544-0052-60 ")
+288 ;;1132
+289 ;;21,"67544-0052-61 ")
+290 ;;1133
+291 ;;21,"67544-0052-65 ")
+292 ;;1134
+293 ;;21,"67544-0052-68 ")
+294 ;;1135
+295 ;;21,"67544-0052-70 ")
+296 ;;1136
+297 ;;21,"67544-0052-78 ")
+298 ;;1137
+299 ;;21,"67544-0070-30 ")
+300 ;;1310
+301 ;;21,"67544-0194-30 ")
+302 ;;1045
+303 ;;21,"67544-0195-30 ")
+304 ;;879
+305 ;;21,"67544-0195-40 ")
+306 ;;880
+307 ;;21,"67544-0195-45 ")
+308 ;;881
+309 ;;21,"67544-0195-53 ")
+310 ;;882
+311 ;;21,"67544-0195-60 ")
+312 ;;883
+313 ;;21,"67544-0318-15 ")
+314 ;;794
+315 ;;21,"67544-0318-30 ")
+316 ;;795
+317 ;;21,"67544-0318-35 ")
+318 ;;796
+319 ;;21,"67544-0318-40 ")
+320 ;;797
+321 ;;21,"67544-0318-45 ")
+322 ;;798
+323 ;;21,"67544-0318-50 ")
+324 ;;799
+325 ;;21,"67544-0318-53 ")
+326 ;;800
+327 ;;21,"67544-0318-55 ")
+328 ;;801
+329 ;;21,"67544-0318-60 ")
+330 ;;802
+331 ;;21,"67544-0318-61 ")
+332 ;;803
+333 ;;21,"67544-0318-70 ")
+334 ;;804
+335 ;;21,"67544-0401-15 ")
+336 ;;766
+337 ;;21,"67544-0401-30 ")
+338 ;;767
+339 ;;21,"67544-0401-35 ")
+340 ;;768
+341 ;;21,"67544-0401-40 ")
+342 ;;769
+343 ;;21,"67544-0401-45 ")
+344 ;;770
+345 ;;21,"67544-0401-50 ")
+346 ;;771
+347 ;;21,"67544-0401-53 ")
+348 ;;772
+349 ;;21,"67544-0401-55 ")
+350 ;;773
+351 ;;21,"67544-0401-60 ")
+352 ;;774
+353 ;;21,"67544-0401-61 ")
+354 ;;775
+355 ;;21,"67544-0401-70 ")
+356 ;;776
+357 ;;21,"68084-0027-01 ")
+358 ;;938
+359 ;;21,"68084-0027-11 ")
+360 ;;939
+361 ;;21,"68084-0027-77 ")
+362 ;;940
+363 ;;21,"68084-0146-77 ")
+364 ;;674
+365 ;;21,"68084-0147-77 ")
+366 ;;1039
+367 ;;21,"68084-0148-77 ")
+368 ;;1080
+369 ;;21,"68115-0092-30 ")
+370 ;;889
+371 ;;21,"68115-0093-30 ")
+372 ;;756
+373 ;;21,"68115-0094-30 ")
+374 ;;1162
+375 ;;21,"68115-0359-30 ")
+376 ;;659
+377 ;;21,"68115-0359-60 ")
+378 ;;660
+379 ;;21,"68115-0359-90 ")
+380 ;;661
+381 ;;21,"68115-0399-30 ")
+382 ;;829
+383 ;;21,"68115-0527-30 ")
+384 ;;1283
+385 ;;21,"68115-0527-60 ")
+386 ;;1284
+387 ;;21,"68115-0527-90 ")
+388 ;;1285
+389 ;;21,"68115-0659-00 ")
+390 ;;1228
+391 ;;21,"68115-0749-10 ")
+392 ;;50
+393 ;;21,"68115-0774-10 ")
+394 ;;32
+395 ;;21,"68258-1026-01 ")
+396 ;;821
+397 ;;21,"68258-1027-01 ")
+398 ;;1286
+399 ;;21,"68258-6067-03 ")
+400 ;;1110
+401 ;;21,"68258-6068-03 ")
+402 ;;727
+403 ;;21,"68258-9064-01 ")
+404 ;;707
+405 ;;21,"68258-9097-01 ")
+406 ;;1366
+407 ;;21,"68258-9101-01 ")
+408 ;;888
+409 ;;21,"68258-9102-01 ")
+410 ;;1157
+411 ;;21,"68258-9104-01 ")
+412 ;;611
+413 ;;21,"68382-0052-01 ")
+414 ;;648
+415 ;;21,"68382-0052-10 ")
+416 ;;649
+417 ;;21,"68382-0053-01 ")
+418 ;;866
+419 ;;21,"68382-0053-10 ")
+420 ;;867
+421 ;;21,"68382-0054-01 ")
+422 ;;997
+423 ;;21,"68382-0054-10 ")
+424 ;;998
+425 ;;21,"68382-0055-01 ")
+426 ;;1117
+427 ;;21,"68382-0055-10 ")
+428 ;;1118
+429 ;;21,"68382-0056-01 ")
+430 ;;1264
+431 ;;21,"68382-0056-10 ")
+432 ;;1265
+433 ;;21,"68382-0056-16 ")
+434 ;;1266
+435 ;;21,"68382-0057-01 ")
+436 ;;1340
+437 ;;21,"68382-0058-01 ")
+438 ;;1391
+439 ;;21,"68382-0059-01 ")
+440 ;;728
+441 ;;21,"68382-0064-01 ")
+442 ;;952
+443 ;;21,"68382-0064-10 ")
+444 ;;953
+445 ;;21,"68883-0010-03 ")
+446 ;;363
+447 ;;21,"68883-0010-04 ")
+448 ;;398
+449 ;;21,"68883-0010-05 ")
+450 ;;364
+451 ;;21,"68883-0010-06 ")
+452 ;;365
+453 ;;21,"68883-0010-13 ")
+454 ;;399
+455 ;;21,"68883-0010-15 ")
+456 ;;400
+457 ;;21,"68883-0020-05 ")
+458 ;;584
+459 ;;21,"68883-0030-05 ")
+460 ;;585
+461 ;;21,"68883-0100-03 ")
+462 ;;425
+463 ;;21,"68883-0100-04 ")
+464 ;;426
+465 ;;21,"68883-0100-05 ")
+466 ;;427
+467 ;;21,"68883-0100-06 ")
+468 ;;428
+469 ;;21,"68883-0100-13 ")
+470 ;;484
+471 ;;21,"68883-0100-15 ")
+472 ;;485
+473 ;;9002226,1813,.01)
+474 ;;BGP PQA WARFARIN NDC
+475 ;;9002226,1813,.02)
+476 ;;@
+477 ;;9002226,1813,.04)
+478 ;;n
+479 ;;9002226,1813,.06)
+480 ;;@
+481 ;;9002226,1813,.08)
+482 ;;@
+483 ;;9002226,1813,.09)
+484 ;;3140324
+485 ;;9002226,1813,.11)
+486 ;;@
+487 ;;9002226,1813,.12)
+488 ;;@
+489 ;;9002226,1813,.13)
+490 ;;1
+491 ;;9002226,1813,.14)
+492 ;;@
+493 ;;9002226,1813,.15)
+494 ;;@
+495 ;;9002226,1813,.16)
+496 ;;@
+497 ;;9002226,1813,.17)
+498 ;;@
+499 ;;9002226,1813,3101)
+500 ;;@
+501 ;;9002226.02101,"1813,00002-7217-01 ",.01)
+502 ;;00002-7217-01
+503 ;;9002226.02101,"1813,00002-7217-01 ",.02)
+504 ;;00002-7217-01
+505 ;;9002226.02101,"1813,00007-3230-01 ",.01)
+506 ;;00007-3230-01
+507 ;;9002226.02101,"1813,00007-3230-01 ",.02)
+508 ;;00007-3230-01
+509 ;;9002226.02101,"1813,00007-3230-02 ",.01)
+510 ;;00007-3230-02
+511 ;;9002226.02101,"1813,00007-3230-02 ",.02)
+512 ;;00007-3230-02
+513 ;;9002226.02101,"1813,00007-3230-11 ",.01)
+514 ;;00007-3230-11
+515 ;;9002226.02101,"1813,00007-3230-11 ",.02)
+516 ;;00007-3230-11
+517 ;;9002226.02101,"1813,00007-3232-01 ",.01)
+518 ;;00007-3232-01
+519 ;;9002226.02101,"1813,00007-3232-01 ",.02)
+520 ;;00007-3232-01
+521 ;;9002226.02101,"1813,00007-3232-02 ",.01)
+522 ;;00007-3232-02
+523 ;;9002226.02101,"1813,00007-3232-02 ",.02)
+524 ;;00007-3232-02
+525 ;;9002226.02101,"1813,00007-3232-11 ",.01)
+526 ;;00007-3232-11
+527 ;;9002226.02101,"1813,00007-3232-11 ",.02)
+528 ;;00007-3232-11
+529 ;;9002226.02101,"1813,00007-3234-01 ",.01)
+530 ;;00007-3234-01
+531 ;;9002226.02101,"1813,00007-3234-01 ",.02)
+532 ;;00007-3234-01
+533 ;;9002226.02101,"1813,00007-3234-02 ",.01)
+534 ;;00007-3234-02
+535 ;;9002226.02101,"1813,00007-3234-02 ",.02)
+536 ;;00007-3234-02
+537 ;;9002226.02101,"1813,00007-3234-11 ",.01)
+538 ;;00007-3234-11
+539 ;;9002226.02101,"1813,00007-3234-11 ",.02)
+540 ;;00007-3234-11
+541 ;;9002226.02101,"1813,00007-3236-01 ",.01)
+542 ;;00007-3236-01
+543 ;;9002226.02101,"1813,00007-3236-01 ",.02)
+544 ;;00007-3236-01
+545 ;;9002226.02101,"1813,00007-3236-02 ",.01)
+546 ;;00007-3236-02
+547 ;;9002226.02101,"1813,00007-3236-02 ",.02)
+548 ;;00007-3236-02
+549 ;;9002226.02101,"1813,00007-3236-11 ",.01)
+550 ;;00007-3236-11
+551 ;;9002226.02101,"1813,00007-3236-11 ",.02)
+552 ;;00007-3236-11
+553 ;;9002226.02101,"1813,00008-2528-50 ",.01)
+554 ;;00008-2528-50
+555 ;;9002226.02101,"1813,00008-2528-50 ",.02)
+556 ;;00008-2528-50
+557 ;;9002226.02101,"1813,00009-0268-01 ",.01)
+558 ;;00009-0268-01
+559 ;;9002226.02101,"1813,00009-0268-01 ",.02)
+560 ;;00009-0268-01
+561 ;;9002226.02101,"1813,00009-0268-02 ",.01)
+562 ;;00009-0268-02
+563 ;;9002226.02101,"1813,00009-0268-02 ",.02)
+564 ;;00009-0268-02
+565 ;;9002226.02101,"1813,00009-0268-12 ",.01)
+566 ;;00009-0268-12
+567 ;;9002226.02101,"1813,00009-0268-12 ",.02)
+568 ;;00009-0268-12
+569 ;;9002226.02101,"1813,00009-0291-01 ",.01)
+570 ;;00009-0291-01
+571 ;;9002226.02101,"1813,00009-0291-01 ",.02)
+572 ;;00009-0291-01
+573 ;;9002226.02101,"1813,00009-0317-02 ",.01)
+574 ;;00009-0317-02
+575 ;;9002226.02101,"1813,00009-0317-02 ",.02)
+576 ;;00009-0317-02
+577 ;;9002226.02101,"1813,00009-0317-10 ",.01)
+578 ;;00009-0317-10
+579 ;;9002226.02101,"1813,00009-0317-10 ",.02)
+580 ;;00009-0317-10
+581 ;;9002226.02101,"1813,00009-0317-11 ",.01)
+582 ;;00009-0317-11
+583 ;;9002226.02101,"1813,00009-0317-11 ",.02)
+584 ;;00009-0317-11
+585 ;;9002226.02101,"1813,00013-2406-91 ",.01)
+586 ;;00013-2406-91
+587 ;;9002226.02101,"1813,00013-2406-91 ",.02)
+588 ;;00013-2406-91
+589 ;;9002226.02101,"1813,00013-2426-01 ",.01)
+590 ;;00013-2426-01
+591 ;;9002226.02101,"1813,00013-2426-01 ",.02)
+592 ;;00013-2426-01
+593 ;;9002226.02101,"1813,00013-2426-91 ",.01)
+594 ;;00013-2426-91
+595 ;;9002226.02101,"1813,00013-2426-91 ",.02)
+596 ;;00013-2426-91
+597 ;;9002226.02101,"1813,00013-2436-06 ",.01)
+598 ;;00013-2436-06
+599 ;;9002226.02101,"1813,00013-2436-06 ",.02)
+600 ;;00013-2436-06
+601 ;;9002226.02101,"1813,00013-5190-01 ",.01)
+602 ;;00013-5190-01
+603 ;;9002226.02101,"1813,00013-5190-01 ",.02)
+604 ;;00013-5190-01
+605 ;;9002226.02101,"1813,00013-5191-01 ",.01)
+606 ;;00013-5191-01
+607 ;;9002226.02101,"1813,00013-5191-01 ",.02)
+608 ;;00013-5191-01
+609 ;;9002226.02101,"1813,00056-0168-01 ",.01)
+610 ;;00056-0168-01
+611 ;;9002226.02101,"1813,00056-0168-01 ",.02)
+612 ;;00056-0168-01
+613 ;;9002226.02101,"1813,00056-0168-70 ",.01)
+614 ;;00056-0168-70
+615 ;;9002226.02101,"1813,00056-0168-70 ",.02)
+616 ;;00056-0168-70
+617 ;;9002226.02101,"1813,00056-0168-75 ",.01)
+618 ;;00056-0168-75
+619 ;;9002226.02101,"1813,00056-0168-75 ",.02)
+620 ;;00056-0168-75
+621 ;;9002226.02101,"1813,00056-0168-90 ",.01)
+622 ;;00056-0168-90
+623 ;;9002226.02101,"1813,00056-0168-90 ",.02)
+624 ;;00056-0168-90
+625 ;;9002226.02101,"1813,00056-0169-01 ",.01)
+626 ;;00056-0169-01
+627 ;;9002226.02101,"1813,00056-0169-01 ",.02)
+628 ;;00056-0169-01
+629 ;;9002226.02101,"1813,00056-0169-70 ",.01)
+630 ;;00056-0169-70
+631 ;;9002226.02101,"1813,00056-0169-70 ",.02)
+632 ;;00056-0169-70
+633 ;;9002226.02101,"1813,00056-0169-75 ",.01)
+634 ;;00056-0169-75
+635 ;;9002226.02101,"1813,00056-0169-75 ",.02)
+636 ;;00056-0169-75
+637 ;;9002226.02101,"1813,00056-0169-90 ",.01)
+638 ;;00056-0169-90
+639 ;;9002226.02101,"1813,00056-0169-90 ",.02)
+640 ;;00056-0169-90
+641 ;;9002226.02101,"1813,00056-0170-01 ",.01)
+642 ;;00056-0170-01
+643 ;;9002226.02101,"1813,00056-0170-01 ",.02)
+644 ;;00056-0170-01
+645 ;;9002226.02101,"1813,00056-0170-70 ",.01)
+646 ;;00056-0170-70
+647 ;;9002226.02101,"1813,00056-0170-70 ",.02)
+648 ;;00056-0170-70
+649 ;;9002226.02101,"1813,00056-0170-75 ",.01)
+650 ;;00056-0170-75
+651 ;;9002226.02101,"1813,00056-0170-75 ",.02)
+652 ;;00056-0170-75
+653 ;;9002226.02101,"1813,00056-0170-90 ",.01)
+654 ;;00056-0170-90
+655 ;;9002226.02101,"1813,00056-0170-90 ",.02)
+656 ;;00056-0170-90
+657 ;;9002226.02101,"1813,00056-0172-01 ",.01)
+658 ;;00056-0172-01
+659 ;;9002226.02101,"1813,00056-0172-01 ",.02)
+660 ;;00056-0172-01
+661 ;;9002226.02101,"1813,00056-0172-70 ",.01)
+662 ;;00056-0172-70
