Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP13L

BGP13L.m

Go to the documentation of this file.
  1. BGP13L ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;;BGP HEDIS NARCOTIC NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS NARCOTIC NDC
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00002-0353-02 ")
  1. ;;496
  1. ;;21,"00002-0353-03 ")
  1. ;;497
  1. ;;21,"00002-0353-33 ")
  1. ;;498
  1. ;;21,"00002-0803-02 ")
  1. ;;486
  1. ;;21,"00002-0803-03 ")
  1. ;;487
  1. ;;21,"00002-0803-33 ")
  1. ;;488
  1. ;;21,"00002-3111-02 ")
  1. ;;492
  1. ;;21,"00002-3111-03 ")
  1. ;;493
  1. ;;21,"00008-0259-01 ")
  1. ;;560
  1. ;;21,"00024-0332-06 ")
  1. ;;503
  1. ;;21,"00024-0335-02 ")
  1. ;;504
  1. ;;21,"00024-0335-04 ")
  1. ;;505
  1. ;;21,"00024-0335-06 ")
  1. ;;506
  1. ;;21,"00024-0337-04 ")
  1. ;;507
  1. ;;21,"00024-1937-04 ")
  1. ;;814
  1. ;;21,"00024-1951-04 ")
  1. ;;826
  1. ;;21,"00054-3545-63 ")
  1. ;;561
  1. ;;21,"00054-4595-25 ")
  1. ;;562
  1. ;;21,"00054-4596-25 ")
  1. ;;563
  1. ;;21,"00054-8595-11 ")
  1. ;;564
  1. ;;21,"00054-8596-11 ")
  1. ;;565
  1. ;;21,"00074-1176-30 ")
  1. ;;508
  1. ;;21,"00074-1178-30 ")
  1. ;;509
  1. ;;21,"00074-1179-01 ")
  1. ;;510
  1. ;;21,"00074-1179-02 ")
  1. ;;511
  1. ;;21,"00074-1179-21 ")
  1. ;;512
  1. ;;21,"00074-1179-30 ")
  1. ;;513
  1. ;;21,"00074-1180-69 ")
  1. ;;514
  1. ;;21,"00074-1181-30 ")
  1. ;;515
  1. ;;21,"00074-1201-20 ")
  1. ;;516
  1. ;;21,"00074-1203-01 ")
  1. ;;517
  1. ;;21,"00074-1253-01 ")
  1. ;;518
  1. ;;21,"00074-1254-01 ")
  1. ;;519
  1. ;;21,"00074-1255-02 ")
  1. ;;520
  1. ;;21,"00074-1256-01 ")
  1. ;;521
  1. ;;21,"00074-1266-01 ")
  1. ;;522
  1. ;;21,"00074-1267-01 ")
  1. ;;523
  1. ;;21,"00074-1269-01 ")
  1. ;;524
  1. ;;21,"00074-1271-02 ")
  1. ;;525
  1. ;;21,"00074-1920-10 ")
  1. ;;823
  1. ;;21,"00074-1941-01 ")
  1. ;;824
  1. ;;21,"00074-1941-11 ")
  1. ;;825
  1. ;;21,"00074-6030-04 ")
  1. ;;566
  1. ;;21,"00093-0490-01 ")
  1. ;;49
  1. ;;21,"00093-0490-05 ")
  1. ;;50
  1. ;;21,"00093-0741-01 ")
  1. ;;719
  1. ;;21,"00093-0890-01 ")
  1. ;;51
  1. ;;21,"00093-0890-05 ")
  1. ;;52
  1. ;;21,"00143-3235-01 ")
  1. ;;720
  1. ;;21,"00143-3235-05 ")
  1. ;;721
  1. ;;21,"00143-3235-10 ")
  1. ;;722
  1. ;;21,"00172-4980-60 ")
  1. ;;53
  1. ;;21,"00172-4980-70 ")
  1. ;;54
  1. ;;21,"00172-4980-80 ")
  1. ;;55
  1. ;;21,"00182-0317-89 ")
  1. ;;56
  1. ;;21,"00182-0698-01 ")
  1. ;;723
  1. ;;21,"00182-0698-05 ")
  1. ;;724
  1. ;;21,"00182-1673-01 ")
  1. ;;432
  1. ;;21,"00182-1673-05 ")
  1. ;;433
  1. ;;21,"00182-9130-66 ")
  1. ;;567
  1. ;;21,"00182-9131-65 ")
  1. ;;568
  1. ;;21,"00182-9140-01 ")
  1. ;;569
  1. ;;21,"00182-9141-01 ")
  1. ;;570
  1. ;;21,"00228-2082-10 ")
  1. ;;725
  1. ;;21,"00228-2082-50 ")
  1. ;;726
  1. ;;21,"00228-2085-10 ")
  1. ;;57
  1. ;;21,"00228-2085-50 ")
  1. ;;58
  1. ;;21,"00247-0086-00 ")
  1. ;;59
  1. ;;21,"00247-0086-02 ")
  1. ;;60
  1. ;;21,"00247-0086-03 ")
  1. ;;61
  1. ;;21,"00247-0086-04 ")
  1. ;;62
  1. ;;21,"00247-0086-05 ")
  1. ;;63
  1. ;;21,"00247-0086-06 ")
  1. ;;64
  1. ;;21,"00247-0086-08 ")
  1. ;;65
  1. ;;21,"00247-0086-10 ")
  1. ;;66
  1. ;;21,"00247-0086-12 ")
  1. ;;67
  1. ;;21,"00247-0086-15 ")
  1. ;;68
  1. ;;21,"00247-0086-16 ")
  1. ;;69
  1. ;;21,"00247-0086-20 ")
  1. ;;70
  1. ;;21,"00247-0086-24 ")
  1. ;;71
  1. ;;21,"00247-0086-25 ")
  1. ;;72
  1. ;;21,"00247-0086-28 ")
  1. ;;73
  1. ;;21,"00247-0086-30 ")
  1. ;;74
  1. ;;21,"00247-0086-40 ")
  1. ;;75
  1. ;;21,"00247-0086-45 ")
  1. ;;76
  1. ;;21,"00247-0086-50 ")
  1. ;;77
  1. ;;21,"00247-0086-59 ")
  1. ;;78
  1. ;;21,"00247-0086-60 ")
  1. ;;79
  1. ;;21,"00247-0086-77 ")
  1. ;;80
  1. ;;21,"00247-0086-90 ")
  1. ;;81
  1. ;;21,"00247-0086-98 ")
  1. ;;82
  1. ;;21,"00247-0154-04 ")
  1. ;;727
  1. ;;21,"00247-0154-10 ")
  1. ;;728
  1. ;;21,"00247-0154-12 ")
  1. ;;729
  1. ;;21,"00247-0154-20 ")
  1. ;;730
  1. ;;21,"00247-0154-30 ")
  1. ;;731
  1. ;;21,"00247-0154-40 ")
  1. ;;732
  1. ;;21,"00247-0611-20 ")
  1. ;;83
  1. ;;21,"00247-0818-04 ")
  1. ;;460
  1. ;;21,"00247-0818-12 ")
  1. ;;461
  1. ;;21,"00247-0818-15 ")
  1. ;;462
  1. ;;21,"00247-0818-20 ")
  1. ;;463
  1. ;;21,"00247-0818-25 ")
  1. ;;464
  1. ;;21,"00247-0818-30 ")
  1. ;;465
  1. ;;21,"00247-0971-20 ")
  1. ;;434
  1. ;;21,"00247-0971-28 ")
  1. ;;435
  1. ;;21,"00247-1037-12 ")
  1. ;;827
  1. ;;21,"00247-1037-20 ")
  1. ;;828
  1. ;;21,"00247-1037-90 ")
  1. ;;829
  1. ;;21,"00247-1038-90 ")
  1. ;;815
  1. ;;21,"00247-1441-01 ")
  1. ;;11
  1. ;;21,"00247-1441-04 ")
  1. ;;12
  1. ;;21,"00247-1441-05 ")
  1. ;;13
  1. ;;21,"00247-1441-20 ")
  1. ;;14
  1. ;;21,"00247-2124-00 ")
  1. ;;84
  1. ;;21,"00254-5112-28 ")
  1. ;;85
  1. ;;21,"00254-5112-35 ")
  1. ;;86
  1. ;;21,"00254-5112-38 ")
  1. ;;87
  1. ;;21,"00254-5113-28 ")
  1. ;;88
  1. ;;21,"00254-5113-35 ")
  1. ;;89
  1. ;;21,"00254-5113-38 ")
  1. ;;90
  1. ;;21,"00254-5114-35 ")
  1. ;;91
  1. ;;21,"00254-5114-38 ")
  1. ;;92
  1. ;;21,"00338-2691-75 ")
  1. ;;571
  1. ;;21,"00338-9370-41 ")
  1. ;;572
  1. ;;21,"00338-9372-48 ")
  1. ;;573
  1. ;;21,"00338-9373-48 ")
  1. ;;574
  1. ;;21,"00378-0130-01 ")
  1. ;;15
  1. ;;21,"00378-0130-05 ")
  1. ;;16
  1. ;;21,"00378-0131-05 ")
  1. ;;436
  1. ;;21,"00378-0155-01 ")
  1. ;;93
  1. ;;21,"00378-0155-05 ")
  1. ;;94
  1. ;;21,"00378-7065-01 ")
  1. ;;733
  1. ;;21,"00378-7065-05 ")
  1. ;;734
  1. ;;21,"00406-1721-01 ")
  1. ;;95
  1. ;;21,"00406-1721-05 ")
  1. ;;96
  1. ;;21,"00406-1721-10 ")
  1. ;;97
  1. ;;21,"00406-1721-91 ")
  1. ;;98
  1. ;;21,"00406-1772-01 ")
  1. ;;99
  1. ;;21,"00406-1772-03 ")
  1. ;;100
  1. ;;21,"00406-1772-05 ")
  1. ;;101
  1. ;;21,"00406-1772-10 ")
  1. ;;102
  1. ;;21,"00406-1772-12 ")
  1. ;;103
  1. ;;21,"00406-1772-33 ")
  1. ;;104
  1. ;;21,"00406-1772-60 ")
  1. ;;105
  1. ;;21,"00406-1772-62 ")
  1. ;;106
  1. ;;21,"00406-1772-90 ")
  1. ;;107
  1. ;;21,"00406-1772-91 ")
  1. ;;108
  1. ;;21,"00406-3118-01 ")
  1. ;;626
  1. ;;21,"00406-7113-01 ")
  1. ;;575
  1. ;;21,"00406-7115-01 ")
  1. ;;576
  1. ;;21,"00409-1176-30 ")
  1. ;;526
  1. ;;21,"00409-1178-30 ")
  1. ;;527
  1. ;;21,"00409-1179-30 ")
  1. ;;528
  1. ;;21,"00409-1180-69 ")
  1. ;;529
  1. ;;21,"00409-1181-30 ")
  1. ;;530
  1. ;;21,"00409-1201-20 ")
  1. ;;531
  1. ;;21,"00409-1203-01 ")
  1. ;;532
  1. ;;21,"00409-1253-01 ")
  1. ;;533
  1. ;;21,"00409-1254-01 ")
  1. ;;534
  1. ;;21,"00409-1255-02 ")
  1. ;;535
  1. ;;21,"00409-1256-01 ")
  1. ;;536
  1. ;;21,"00409-1920-10 ")
  1. ;;818
  1. ;;21,"00409-1941-01 ")
  1. ;;819
  1. ;;21,"00409-6030-04 ")
  1. ;;577
  1. ;;21,"00440-8210-10 ")
  1. ;;109
  1. ;;21,"00555-0381-02 ")
  1. ;;578
  1. ;;21,"00555-0382-02 ")
  1. ;;579
  1. ;;21,"00574-7040-12 ")
  1. ;;449
  1. ;;21,"00574-7045-12 ")
  1. ;;450
  1. ;;21,"00591-0395-01 ")
  1. ;;627
  1. ;;21,"00591-0396-01 ")
  1. ;;1
  1. ;;21,"00591-0714-01 ")
  1. ;;17
  1. ;;21,"00591-0714-05 ")
  1. ;;18
  1. ;;21,"00591-0726-01 ")
  1. ;;580
  1. ;;21,"00591-0727-01 ")
  1. ;;581
  1. ;;21,"00603-4415-21 ")
  1. ;;582
  1. ;;21,"00603-4416-21 ")
  1. ;;583
  1. ;;21,"00603-4424-21 ")
  1. ;;625
  1. ;;21,"00603-5110-21 ")
  1. ;;735
  1. ;;21,"00603-5110-28 ")
  1. ;;736
  1. ;;21,"00603-5459-21 ")
  1. ;;737
  1. ;;21,"00603-5459-28 ")
  1. ;;738
  1. ;;21,"00603-5460-21 ")
  1. ;;437
  1. ;;21,"00603-5460-28 ")
  1. ;;438
  1. ;;21,"00603-5462-21 ")
  1. ;;19
  1. ;;21,"00603-5462-28 ")
  1. ;;20
  1. ;;21,"00603-5463-28 ")
  1. ;;21
  1. ;;21,"00603-5465-21 ")
  1. ;;110
  1. ;;21,"00603-5466-21 ")
  1. ;;111
  1. ;;21,"00603-5466-28 ")
  1. ;;112
  1. ;;21,"00603-5466-32 ")
  1. ;;113
  1. ;;21,"00603-5467-16 ")
  1. ;;114
  1. ;;21,"00603-5467-21 ")
  1. ;;115
  1. ;;21,"00603-5467-28 ")
  1. ;;116
  1. ;;21,"00603-5467-32 ")
  1. ;;117
  1. ;;21,"00603-5468-02 ")
  1. ;;118
  1. ;;21,"00603-5468-04 ")
  1. ;;119
  1. ;;21,"00603-5468-16 ")
  1. ;;120
  1. ;;21,"00603-5468-19 ")
  1. ;;121
  1. ;;21,"00603-5468-21 ")
  1. ;;122
  1. ;;21,"00603-5468-22 ")
  1. ;;123
  1. ;;21,"00603-5468-28 ")
  1. ;;124
  1. ;;21,"00603-5468-32 ")
  1. ;;125
  1. ;;21,"00641-1130-25 ")
  1. ;;584
  1. ;;21,"00641-1140-25 ")
  1. ;;585
  1. ;;21,"00677-0356-01 ")
  1. ;;739
  1. ;;21,"00677-0356-05 ")
  1. ;;740
  1. ;;21,"00781-1378-13 ")
  1. ;;22
  1. ;;21,"00781-2140-01 ")
  1. ;;741
  1. ;;21,"00781-2140-10 ")
  1. ;;742
  1. ;;21,"00781-2367-01 ")
  1. ;;704
  1. ;;21,"00781-2367-10 ")
  1. ;;705
  1. ;;21,"00904-1977-60 ")
  1. ;;586
  1. ;;21,"00904-1978-60 ")
  1. ;;587
  1. ;;21,"00904-2280-60 ")
  1. ;;126
  1. ;;21,"00904-2281-40 ")
  1. ;;127
  1. ;;21,"00904-2281-60 ")
  1. ;;128
  1. ;;21,"00904-7700-40 ")
  1. ;;743
  1. ;;21,"00904-7700-60 ")
  1. ;;744
  1. ;;21,"00904-7700-61 ")
  1. ;;745
  1. ;;21,"00904-7700-80 ")
  1. ;;746
  1. ;;21,"00904-7701-40 ")
  1. ;;439
  1. ;;21,"00904-7701-60 ")
  1. ;;440
  1. ;;21,"00904-7701-80 ")
  1. ;;706
  1. ;;21,"00904-7702-80 ")
  1. ;;129
  1. ;;21,"10019-0151-44 ")
  1. ;;588
  1. ;;21,"10019-0151-47 ")
  1. ;;589
  1. ;;21,"10019-0155-68 ")
  1. ;;590
  1. ;;21,"10019-0156-68 ")
  1. ;;591
  1. ;;21,"10019-0157-68 ")
  1. ;;592
  1. ;;21,"10019-0158-68 ")
  1. ;;593
  1. ;;21,"10019-0159-01 ")
  1. ;;594
  1. ;;21,"10019-0159-44 ")
  1. ;;595
  1. ;;21,"10019-0160-01 ")
  1. ;;596
  1. ;;21,"10019-0160-44 ")
  1. ;;597
  1. ;;21,"10019-0161-01 ")
  1. ;;598
  1. ;;21,"10019-0161-44 ")
  1. ;;599
  1. ;;21,"10019-0162-01 ")
  1. ;;600
  1. ;;21,"10019-0162-44 ")
  1. ;;601
  1. ;;21,"10122-0301-10 ")
  1. ;;447
  1. ;;21,"10544-0302-30 ")
  1. ;;130
  1. ;;21,"12280-0160-00 ")
  1. ;;747
  1. ;;21,"16590-0196-15 ")
  1. ;;23
  1. ;;21,"16590-0196-20 ")
  1. ;;24
  1. ;;21,"16590-0196-30 ")
  1. ;;25
  1. ;;21,"16590-0197-15 ")
  1. ;;131
  1. ;;21,"16590-0197-28 ")
  1. ;;132
  1. ;;21,"16590-0197-30 ")
  1. ;;133
  1. ;;21,"16590-0197-40 ")
  1. ;;134
  1. ;;21,"16590-0197-45 ")
  1. ;;135
  1. ;;21,"16590-0197-60 ")
  1. ;;136
  1. ;;21,"16590-0197-72 ")
  1. ;;137
  1. ;;21,"16590-0197-75 ")
  1. ;;138
  1. ;;21,"16590-0197-90 ")
  1. ;;139
  1. ;;21,"16590-0198-30 ")
  1. ;;748
  1. ;;21,"16590-0198-60 ")
  1. ;;749
  1. ;;21,"16590-0198-72 ")
  1. ;;750
  1. ;;21,"16590-0198-90 ")
  1. ;;751
  1. ;;21,"18837-0128-15 ")
  1. ;;140
  1. ;;21,"18837-0128-28 ")
  1. ;;141
  1. ;;21,"18837-0128-30 ")
  1. ;;142
  1. ;;21,"18837-0128-40 ")
  1. ;;143
  1. ;;21,"18837-0128-50 ")
  1. ;;144
  1. ;;21,"18837-0128-60 ")
  1. ;;145
  1. ;;21,"18837-0128-90 ")
  1. ;;146
  1. ;;21,"18837-0128-98 ")
  1. ;;147
  1. ;;21,"21695-0241-01 ")
  1. ;;820
  1. ;;21,"21695-0280-08 ")
  1. ;;148
  1. ;;21,"21695-0280-12 ")
  1. ;;149
  1. ;;21,"21695-0280-15 ")
  1. ;;150
  1. ;;21,"21695-0280-20 ")
  1. ;;151
  1. ;;21,"21695-0280-28 ")
  1. ;;152
  1. ;;21,"21695-0280-30 ")
  1. ;;153
  1. ;;21,"21695-0280-60 ")
  1. ;;154
  1. ;;21,"21695-0280-72 ")
  1. ;;155
  1. ;;21,"21695-0280-90 ")
  1. ;;156
  1. ;;21,"21695-0364-28 ")
  1. ;;628
  1. ;;21,"21695-0364-60 ")
  1. ;;629
  1. ;;21,"21695-0364-72 ")
  1. ;;630
  1. ;;21,"21695-0634-60 ")
  1. ;;2
  1. ;;21,"23155-0012-01 ")
  1. ;;752
  1. ;;21,"23155-0012-05 ")
  1. ;;753
  1. ;;21,"23490-0120-03 ")
  1. ;;157
  1. ;;21,"23490-0120-06 ")
  1. ;;158
  1. ;;21,"23490-6073-01 ")
  1. ;;631
  1. ;;21,"23490-6073-03 ")
  1. ;;632
  1. ;;21,"23490-6073-08 ")
  1. ;;633
  1. ;;21,"23490-6197-00 ")
  1. ;;159
  1. ;;21,"23490-6197-01 ")
  1. ;;160
  1. ;;21,"23490-6197-02 ")
  1. ;;161
  1. ;;21,"23490-6197-03 ")
  1. ;;162
  1. ;;21,"23490-6197-04 ")
  1. ;;163
  1. ;;21,"23490-6197-05 ")
  1. ;;164
  1. ;;21,"23490-6197-07 ")
  1. ;;165
  1. ;;21,"23490-6197-08 ")
  1. ;;166
  1. ;;21,"23490-6197-09 ")
  1. ;;167
  1. ;;21,"23490-7775-01 ")
  1. ;;547
  1. ;;21,"23490-7775-02 ")
  1. ;;548
  1. ;;21,"23490-7775-03 ")
  1. ;;549
  1. ;;21,"23490-7775-04 ")
  1. ;;550
  1. ;;21,"23490-7930-04 ")
  1. ;;168
  1. ;;21,"23490-7930-07 ")
  1. ;;169
  1. ;;21,"23490-7930-08 ")
  1. ;;170
  1. ;;21,"23490-9300-03 ")
  1. ;;602
  1. ;;21,"23490-9300-06 ")
  1. ;;603
  1. ;;21,"23490-9300-09 ")
  1. ;;604
  1. ;;21,"24200-0359-80 ")
  1. ;;605
  1. ;;21,"24486-0325-10 ")
  1. ;;171
  1. ;;21,"24486-0326-10 ")
  1. ;;172
  1. ;;21,"33358-0308-01 ")
  1. ;;173
  1. ;;21,"33358-0308-60 ")
  1. ;;174
  1. ;;21,"33358-0309-20 ")
  1. ;;754
  1. ;;21,"33358-0309-30 ")
  1. ;;755
  1. ;;21,"33358-0309-60 ")
  1. ;;756
  1. ;;21,"35356-0176-30 ")
  1. ;;634
  1. ;;21,"35356-0329-30 ")
  1. ;;830
  1. ;;21,"35356-0507-30 ")
  1. ;;175
  1. ;;21,"35356-0507-60 ")
  1. ;;176
  1. ;;21,"35356-0507-90 ")
  1. ;;177
  1. ;;21,"43063-0023-06 ")
  1. ;;178
  1. ;;21,"43063-0142-20 ")
  1. ;;635
  1. ;;21,"43353-0467-30 ")
  1. ;;179
  1. ;;21,"43353-0468-30 ")
  1. ;;180
  1. ;;21,"49884-0120-01 ")
  1. ;;757
  1. ;;21,"49884-0120-10 ")
  1. ;;758
  1. ;;21,"49884-0314-01 ")
  1. ;;759
  1. ;;21,"49884-0314-10 ")
  1. ;;760
  1. ;;21,"49999-0767-00 ")
  1. ;;181
  1. ;;21,"49999-0767-01 ")
  1. ;;182
  1. ;;21,"49999-0767-06 ")
  1. ;;183
  1. ;;21,"49999-0767-10 ")
  1. ;;184
  1. ;;21,"49999-0767-12 ")
  1. ;;185
  1. ;;21,"49999-0767-15 ")
  1. ;;186
  1. ;;21,"49999-0767-20 ")
  1. ;;187
  1. ;;21,"49999-0767-30 ")
  1. ;;188
  1. ;;21,"49999-0767-50 ")
  1. ;;189
  1. ;;21,"49999-0767-60 ")
  1. ;;190
  1. ;;21,"49999-0767-90 ")
  1. ;;191
  1. ;;21,"49999-0798-30 ")
  1. ;;761
  1. ;;21,"49999-0798-60 ")
  1. ;;762
  1. ;;21,"49999-0837-30 ")
  1. ;;606
  1. ;;21,"49999-0838-01 ")
  1. ;;607
  1. ;;21,"49999-0838-30 ")
  1. ;;608
  1. ;;21,"50111-0790-01 ")
  1. ;;192
  1. ;;21,"51079-0322-01 ")
  1. ;;193
  1. ;;21,"51079-0322-20 ")
  1. ;;194
  1. ;;21,"51079-0322-21 ")
  1. ;;195
  1. ;;21,"51079-0322-30 ")
  1. ;;196
  1. ;;21,"51079-0322-56 ")
  1. ;;197
  1. ;;21,"51079-0322-96 ")
  1. ;;198
  1. ;;21,"51079-0322-99 ")
  1. ;;199
  1. ;;21,"51079-0741-01 ")
  1. ;;26
  1. ;;21,"51079-0741-20 ")
  1. ;;27
  1. ;;21,"51641-0321-01 ")
  1. ;;700
  1. ;;21,"51641-0321-05 ")
  1. ;;701
  1. ;;21,"51641-0321-10 ")
  1. ;;702
  1. ;;21,"51641-0321-11 ")
  1. ;;703
  1. ;;21,"51641-0323-01 ")
  1. ;;696
  1. ;;21,"51641-0323-05 ")
  1. ;;697
  1. ;;21,"51641-0323-10 ")
  1. ;;698
  1. ;;21,"51641-0323-11 ")
  1. ;;699
  1. ;;21,"51655-0837-24 ")
  1. ;;200
  1. ;;21,"51655-0837-25 ")
  1. ;;201
  1. ;;21,"51655-0837-26 ")
  1. ;;202
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP13L10
  1. D ^BGP13L11
  1. D ^BGP13L2
  1. D ^BGP13L3
  1. D ^BGP13L4
  1. D ^BGP13L5
  1. D ^BGP13L6
  1. D ^BGP13L7
  1. D ^BGP13L8
  1. D ^BGP13L9
  1. Q