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

BGP51K.m

Go to the documentation of this file.
  1. BGP51K ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  1. ;;BGP HEDIS NONBENZODIAZ NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS NONBENZODIAZ 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,"00024-5401-31 ")
  1. ;;31
  1. ;;21,"00024-5401-50 ")
  1. ;;32
  1. ;;21,"00024-5421-31 ")
  1. ;;300
  1. ;;21,"00024-5421-50 ")
  1. ;;301
  1. ;;21,"00024-5501-10 ")
  1. ;;639
  1. ;;21,"00024-5501-31 ")
  1. ;;640
  1. ;;21,"00024-5501-50 ")
  1. ;;641
  1. ;;21,"00024-5521-10 ")
  1. ;;708
  1. ;;21,"00024-5521-31 ")
  1. ;;709
  1. ;;21,"00024-5521-34 ")
  1. ;;710
  1. ;;21,"00024-5521-50 ")
  1. ;;711
  1. ;;21,"00037-6010-30 ")
  1. ;;760
  1. ;;21,"00037-6050-30 ")
  1. ;;759
  1. ;;21,"00054-0084-25 ")
  1. ;;810
  1. ;;21,"00054-0085-25 ")
  1. ;;884
  1. ;;21,"00054-0086-25 ")
  1. ;;167
  1. ;;21,"00054-0086-29 ")
  1. ;;168
  1. ;;21,"00054-0087-25 ")
  1. ;;503
  1. ;;21,"00054-0087-29 ")
  1. ;;504
  1. ;;21,"00054-0290-13 ")
  1. ;;894
  1. ;;21,"00054-0291-25 ")
  1. ;;909
  1. ;;21,"00054-0292-25 ")
  1. ;;950
  1. ;;21,"00093-0073-01 ")
  1. ;;169
  1. ;;21,"00093-0074-01 ")
  1. ;;505
  1. ;;21,"00093-5268-01 ")
  1. ;;811
  1. ;;21,"00093-5269-01 ")
  1. ;;883
  1. ;;21,"00093-5537-56 ")
  1. ;;893
  1. ;;21,"00093-5538-01 ")
  1. ;;910
  1. ;;21,"00093-5539-01 ")
  1. ;;949
  1. ;;21,"00095-0950-05 ")
  1. ;;761
  1. ;;21,"00143-3909-01 ")
  1. ;;812
  1. ;;21,"00143-3910-01 ")
  1. ;;882
  1. ;;21,"00179-1980-15 ")
  1. ;;170
  1. ;;21,"00179-1980-30 ")
  1. ;;171
  1. ;;21,"00179-1981-30 ")
  1. ;;506
  1. ;;21,"00228-3481-11 ")
  1. ;;648
  1. ;;21,"00228-3481-50 ")
  1. ;;649
  1. ;;21,"00228-3482-11 ")
  1. ;;730
  1. ;;21,"00228-3482-50 ")
  1. ;;731
  1. ;;21,"00378-5270-01 ")
  1. ;;892
  1. ;;21,"00378-5271-01 ")
  1. ;;911
  1. ;;21,"00378-5271-10 ")
  1. ;;912
  1. ;;21,"00378-5272-01 ")
  1. ;;951
  1. ;;21,"00378-5272-10 ")
  1. ;;952
  1. ;;21,"00378-5305-01 ")
  1. ;;81
  1. ;;21,"00378-5305-05 ")
  1. ;;82
  1. ;;21,"00378-5310-01 ")
  1. ;;400
  1. ;;21,"00378-5310-05 ")
  1. ;;401
  1. ;;21,"00378-6805-01 ")
  1. ;;800
  1. ;;21,"00378-6810-01 ")
  1. ;;869
  1. ;;21,"00378-6810-10 ")
  1. ;;870
  1. ;;21,"00440-7702-30 ")
  1. ;;958
  1. ;;21,"00440-8754-02 ")
  1. ;;83
  1. ;;21,"00440-8754-14 ")
  1. ;;84
  1. ;;21,"00440-8754-30 ")
  1. ;;85
  1. ;;21,"00440-8754-60 ")
  1. ;;86
  1. ;;21,"00440-8755-07 ")
  1. ;;395
  1. ;;21,"00440-8755-10 ")
  1. ;;396
  1. ;;21,"00440-8755-14 ")
  1. ;;397
  1. ;;21,"00440-8755-30 ")
  1. ;;398
  1. ;;21,"00440-8755-60 ")
  1. ;;399
  1. ;;21,"00603-6468-09 ")
  1. ;;87
  1. ;;21,"00603-6468-16 ")
  1. ;;88
  1. ;;21,"00603-6468-21 ")
  1. ;;89
  1. ;;21,"00603-6468-28 ")
  1. ;;90
  1. ;;21,"00603-6468-32 ")
  1. ;;91
  1. ;;21,"00603-6469-09 ")
  1. ;;388
  1. ;;21,"00603-6469-13 ")
  1. ;;389
  1. ;;21,"00603-6469-16 ")
  1. ;;390
  1. ;;21,"00603-6469-20 ")
  1. ;;391
  1. ;;21,"00603-6469-21 ")
  1. ;;392
  1. ;;21,"00603-6469-28 ")
  1. ;;393
  1. ;;21,"00603-6469-32 ")
  1. ;;394
  1. ;;21,"00781-5315-01 ")
  1. ;;650
  1. ;;21,"00781-5315-05 ")
  1. ;;651
  1. ;;21,"00781-5316-01 ")
  1. ;;741
  1. ;;21,"00781-5316-05 ")
  1. ;;742
  1. ;;21,"00781-5317-01 ")
  1. ;;78
  1. ;;21,"00781-5317-10 ")
  1. ;;79
  1. ;;21,"00781-5318-01 ")
  1. ;;384
  1. ;;21,"00781-5318-10 ")
  1. ;;385
  1. ;;21,"00832-0400-00 ")
  1. ;;798
  1. ;;21,"00832-0400-10 ")
  1. ;;799
  1. ;;21,"00832-0401-00 ")
  1. ;;871
  1. ;;21,"00832-0401-10 ")
  1. ;;872
  1. ;;21,"00904-6082-61 ")
  1. ;;80
  1. ;;21,"00904-6083-61 ")
  1. ;;383
  1. ;;21,"00955-1702-10 ")
  1. ;;653
  1. ;;21,"00955-1703-10 ")
  1. ;;738
  1. ;;21,"10370-0116-10 ")
  1. ;;739
  1. ;;21,"10370-0116-50 ")
  1. ;;740
  1. ;;21,"10370-0117-10 ")
  1. ;;652
  1. ;;21,"10544-0040-15 ")
  1. ;;386
  1. ;;21,"10544-0548-30 ")
  1. ;;387
  1. ;;21,"12634-0944-71 ")
  1. ;;507
  1. ;;21,"13668-0007-01 ")
  1. ;;202
  1. ;;21,"13668-0007-05 ")
  1. ;;203
  1. ;;21,"13668-0007-10 ")
  1. ;;204
  1. ;;21,"13668-0007-15 ")
  1. ;;205
  1. ;;21,"13668-0007-30 ")
  1. ;;206
  1. ;;21,"13668-0007-71 ")
  1. ;;207
  1. ;;21,"13668-0007-74 ")
  1. ;;208
  1. ;;21,"13668-0007-90 ")
  1. ;;209
  1. ;;21,"13668-0008-01 ")
  1. ;;508
  1. ;;21,"13668-0008-05 ")
  1. ;;509
  1. ;;21,"13668-0008-10 ")
  1. ;;510
  1. ;;21,"13668-0008-15 ")
  1. ;;511
  1. ;;21,"13668-0008-30 ")
  1. ;;512
  1. ;;21,"13668-0008-71 ")
  1. ;;513
  1. ;;21,"13668-0008-74 ")
  1. ;;514
  1. ;;21,"13668-0008-90 ")
  1. ;;515
  1. ;;21,"16590-0009-20 ")
  1. ;;20
  1. ;;21,"16590-0009-30 ")
  1. ;;21
  1. ;;21,"16590-0009-60 ")
  1. ;;22
  1. ;;21,"16590-0009-90 ")
  1. ;;23
  1. ;;21,"16590-0010-20 ")
  1. ;;294
  1. ;;21,"16590-0010-28 ")
  1. ;;295
  1. ;;21,"16590-0010-30 ")
  1. ;;296
  1. ;;21,"16590-0010-56 ")
  1. ;;297
  1. ;;21,"16590-0010-60 ")
  1. ;;298
  1. ;;21,"16590-0010-90 ")
  1. ;;299
  1. ;;21,"16590-0436-06 ")
  1. ;;687
  1. ;;21,"16590-0436-10 ")
  1. ;;688
  1. ;;21,"16590-0436-20 ")
  1. ;;689
  1. ;;21,"16590-0436-25 ")
  1. ;;690
  1. ;;21,"16590-0436-28 ")
  1. ;;691
  1. ;;21,"16590-0436-30 ")
  1. ;;692
  1. ;;21,"16590-0436-60 ")
  1. ;;693
  1. ;;21,"16590-0436-90 ")
  1. ;;694
  1. ;;21,"16590-0500-25 ")
  1. ;;976
  1. ;;21,"16590-0500-28 ")
  1. ;;977
  1. ;;21,"16590-0500-30 ")
  1. ;;978
  1. ;;21,"16590-0500-60 ")
  1. ;;979
  1. ;;21,"16590-0500-72 ")
  1. ;;980
  1. ;;21,"16590-0500-90 ")
  1. ;;981
  1. ;;21,"16590-0501-25 ")
  1. ;;930
  1. ;;21,"16590-0501-28 ")
  1. ;;931
  1. ;;21,"16590-0501-30 ")
  1. ;;932
  1. ;;21,"16590-0501-60 ")
  1. ;;933
  1. ;;21,"16590-0501-72 ")
  1. ;;934
  1. ;;21,"16590-0501-90 ")
  1. ;;935
  1. ;;21,"16590-0502-30 ")
  1. ;;897
  1. ;;21,"16590-0502-60 ")
  1. ;;898
  1. ;;21,"16590-0502-72 ")
  1. ;;899
  1. ;;21,"16590-0502-90 ")
  1. ;;900
  1. ;;21,"16590-0522-30 ")
  1. ;;833
  1. ;;21,"16590-0522-60 ")
  1. ;;834
  1. ;;21,"16590-0522-72 ")
  1. ;;835
  1. ;;21,"16590-0522-90 ")
  1. ;;836
  1. ;;21,"16590-0527-10 ")
  1. ;;516
  1. ;;21,"16590-0527-14 ")
  1. ;;517
  1. ;;21,"16590-0527-15 ")
  1. ;;518
  1. ;;21,"16590-0527-20 ")
  1. ;;519
  1. ;;21,"16590-0527-25 ")
  1. ;;520
  1. ;;21,"16590-0527-28 ")
  1. ;;521
  1. ;;21,"16590-0527-30 ")
  1. ;;522
  1. ;;21,"16590-0527-40 ")
  1. ;;523
  1. ;;21,"16590-0527-45 ")
  1. ;;524
  1. ;;21,"16590-0527-60 ")
  1. ;;525
  1. ;;21,"16590-0527-71 ")
  1. ;;526
  1. ;;21,"16590-0527-90 ")
  1. ;;527
  1. ;;21,"16590-0527-93 ")
  1. ;;528
  1. ;;21,"16590-0528-10 ")
  1. ;;210
  1. ;;21,"16590-0528-15 ")
  1. ;;211
  1. ;;21,"16590-0528-20 ")
  1. ;;212
  1. ;;21,"16590-0528-25 ")
  1. ;;213
  1. ;;21,"16590-0528-30 ")
  1. ;;214
  1. ;;21,"16590-0528-40 ")
  1. ;;215
  1. ;;21,"16590-0528-56 ")
  1. ;;216
  1. ;;21,"16590-0528-60 ")
  1. ;;217
  1. ;;21,"16590-0528-71 ")
  1. ;;218
  1. ;;21,"16590-0528-90 ")
  1. ;;219
  1. ;;21,"16590-0562-15 ")
  1. ;;632
  1. ;;21,"16590-0562-25 ")
  1. ;;633
  1. ;;21,"16590-0562-28 ")
  1. ;;634
  1. ;;21,"16590-0562-30 ")
  1. ;;635
  1. ;;21,"16590-0562-60 ")
  1. ;;636
  1. ;;21,"16590-0562-90 ")
  1. ;;637
  1. ;;21,"16590-0629-28 ")
  1. ;;842
  1. ;;21,"16590-0629-30 ")
  1. ;;843
  1. ;;21,"16590-0629-90 ")
  1. ;;844
  1. ;;21,"16590-0661-30 ")
  1. ;;784
  1. ;;21,"16590-0661-60 ")
  1. ;;785
  1. ;;21,"16590-0661-90 ")
  1. ;;786
  1. ;;21,"16590-0943-25 ")
  1. ;;654
  1. ;;21,"16590-0943-28 ")
  1. ;;655
  1. ;;21,"16590-0943-30 ")
  1. ;;656
  1. ;;21,"16590-0943-56 ")
  1. ;;657
  1. ;;21,"16590-0943-60 ")
  1. ;;658
  1. ;;21,"16590-0943-72 ")
  1. ;;659
  1. ;;21,"16590-0943-90 ")
  1. ;;660
  1. ;;21,"16590-0955-25 ")
  1. ;;744
  1. ;;21,"16590-0955-28 ")
  1. ;;745
  1. ;;21,"16590-0955-30 ")
  1. ;;746
  1. ;;21,"16590-0955-60 ")
  1. ;;747
  1. ;;21,"16590-0955-72 ")
  1. ;;748
  1. ;;21,"16590-0955-90 ")
  1. ;;749
  1. ;;21,"16714-0551-02 ")
  1. ;;787
  1. ;;21,"16714-0561-02 ")
  1. ;;841
  1. ;;21,"16714-0621-01 ")
  1. ;;226
  1. ;;21,"16714-0621-02 ")
  1. ;;227
  1. ;;21,"16714-0622-01 ")
  1. ;;538
  1. ;;21,"16714-0622-02 ")
  1. ;;539
  1. ;;21,"21695-0105-14 ")
  1. ;;845
  1. ;;21,"21695-0105-30 ")
  1. ;;846
  1. ;;21,"21695-0105-60 ")
  1. ;;847
  1. ;;21,"21695-0211-15 ")
  1. ;;18
  1. ;;21,"21695-0211-30 ")
  1. ;;19
  1. ;;21,"21695-0212-15 ")
  1. ;;291
  1. ;;21,"21695-0212-30 ")
  1. ;;292
  1. ;;21,"21695-0212-45 ")
  1. ;;293
  1. ;;21,"21695-0213-15 ")
  1. ;;685
  1. ;;21,"21695-0213-30 ")
  1. ;;686
  1. ;;21,"21695-0225-30 ")
  1. ;;936
  1. ;;21,"21695-0226-15 ")
  1. ;;974
  1. ;;21,"21695-0226-30 ")
  1. ;;975
  1. ;;21,"21695-0319-30 ")
  1. ;;638
  1. ;;21,"21695-0376-30 ")
  1. ;;779
  1. ;;21,"21695-0376-60 ")
  1. ;;780
  1. ;;21,"21695-0506-07 ")
  1. ;;220
  1. ;;21,"21695-0506-10 ")
  1. ;;221
  1. ;;21,"21695-0506-15 ")
  1. ;;222
  1. ;;21,"21695-0506-30 ")
  1. ;;223
  1. ;;21,"21695-0506-60 ")
  1. ;;224
  1. ;;21,"21695-0506-90 ")
  1. ;;225
  1. ;;21,"21695-0507-04 ")
  1. ;;529
  1. ;;21,"21695-0507-07 ")
  1. ;;530
  1. ;;21,"21695-0507-10 ")
  1. ;;531
  1. ;;21,"21695-0507-14 ")
  1. ;;532
  1. ;;21,"21695-0507-15 ")
  1. ;;533
  1. ;;21,"21695-0507-20 ")
  1. ;;534
  1. ;;21,"21695-0507-30 ")
  1. ;;535
  1. ;;21,"21695-0507-60 ")
  1. ;;536
  1. ;;21,"21695-0507-90 ")
  1. ;;537
  1. ;;21,"23490-6489-01 ")
  1. ;;598
  1. ;;21,"23490-6489-06 ")
  1. ;;599
  1. ;;21,"23490-6489-09 ")
  1. ;;600
  1. ;;21,"29300-0131-01 ")
  1. ;;793
  1. ;;21,"29300-0132-01 ")
  1. ;;857
  1. ;;21,"33261-0172-07 ")
  1. ;;195
  1. ;;21,"33261-0172-14 ")
  1. ;;196
  1. ;;21,"33261-0172-21 ")
  1. ;;197
  1. ;;21,"33261-0172-28 ")
  1. ;;198
  1. ;;21,"33261-0172-30 ")
  1. ;;199
  1. ;;21,"33261-0172-60 ")
  1. ;;200
  1. ;;21,"33261-0172-90 ")
  1. ;;201
  1. ;;21,"33261-0173-07 ")
  1. ;;588
  1. ;;21,"33261-0173-12 ")
  1. ;;589
  1. ;;21,"33261-0173-14 ")
  1. ;;590
  1. ;;21,"33261-0173-15 ")
  1. ;;591
  1. ;;21,"33261-0173-21 ")
  1. ;;592
  1. ;;21,"33261-0173-28 ")
  1. ;;593
  1. ;;21,"33261-0173-30 ")
  1. ;;594
  1. ;;21,"33261-0173-42 ")
  1. ;;595
  1. ;;21,"33261-0173-60 ")
  1. ;;596
  1. ;;21,"33261-0173-90 ")
  1. ;;597
  1. ;;21,"33261-0454-02 ")
  1. ;;853
  1. ;;21,"33261-0454-30 ")
  1. ;;854
  1. ;;21,"33261-0454-60 ")
  1. ;;855
  1. ;;21,"33261-0454-90 ")
  1. ;;856
  1. ;;21,"33261-0486-30 ")
  1. ;;790
  1. ;;21,"33261-0486-60 ")
  1. ;;791
  1. ;;21,"33261-0486-90 ")
  1. ;;792
  1. ;;21,"33261-0652-07 ")
  1. ;;671
  1. ;;21,"33261-0652-14 ")
  1. ;;672
  1. ;;21,"33261-0652-30 ")
  1. ;;673
  1. ;;21,"33261-0652-60 ")
  1. ;;674
  1. ;;21,"33358-0227-30 ")
  1. ;;988
  1. ;;21,"33358-0326-30 ")
  1. ;;832
  1. ;;21,"35356-0572-30 ")
  1. ;;788
  1. ;;21,"35356-0572-60 ")
  1. ;;789
  1. ;;21,"35356-0573-30 ")
  1. ;;858
  1. ;;21,"35356-0573-60 ")
  1. ;;859
  1. ;;21,"35356-0574-30 ")
  1. ;;771
  1. ;;21,"35356-0574-60 ")
  1. ;;772
  1. ;;21,"35356-0645-30 ")
  1. ;;191
  1. ;;21,"35356-0645-60 ")
  1. ;;192
  1. ;;21,"35356-0656-30 ")
  1. ;;860
  1. ;;21,"35356-0745-15 ")
  1. ;;587
  1. ;;21,"35356-0764-30 ")
  1. ;;861
  1. ;;21,"35356-0845-30 ")
  1. ;;667
  1. ;;21,"42254-0130-60 ")
  1. ;;806
  1. ;;21,"42254-0147-14 ")
  1. ;;876
  1. ;;21,"42254-0147-30 ")
  1. ;;877
  1. ;;21,"42254-0147-60 ")
  1. ;;878
  1. ;;21,"42254-0189-60 ")
  1. ;;807
  1. ;;21,"42254-0316-30 ")
  1. ;;804
  1. ;;21,"42254-0316-60 ")
  1. ;;805
  1. ;;21,"42254-0358-30 ")
  1. ;;736
  1. ;;21,"42291-0271-30 ")
  1. ;;890
  1. ;;21,"42291-0272-90 ")
  1. ;;914
  1. ;;21,"42291-0273-90 ")
  1. ;;954
  1. ;;21,"42549-0548-28 ")
  1. ;;477
  1. ;;21,"42549-0548-30 ")
  1. ;;478
  1. ;;21,"42549-0563-30 ")
  1. ;;476
  1. ;;21,"42549-0593-30 ")
  1. ;;475
  1. ;;21,"43063-0068-79 ")
  1. ;;474
  1. ;;21,"43063-0240-30 ")
  1. ;;808
  1. ;;21,"43063-0366-01 ")
  1. ;;466
  1. ;;21,"43063-0366-06 ")
  1. ;;467
  1. ;;21,"43063-0366-10 ")
  1. ;;468
  1. ;;21,"43063-0366-14 ")
  1. ;;469
  1. ;;21,"43063-0366-15 ")
  1. ;;470
  1. ;;21,"43063-0366-21 ")
  1. ;;471
  1. ;;21,"43063-0366-30 ")
  1. ;;472
  1. ;;21,"43063-0366-60 ")
  1. ;;473
  1. ;;21,"43063-0505-30 ")
  1. ;;803
  1. ;;21,"43353-0026-10 ")
  1. ;;93
  1. ;;21,"43353-0026-20 ")
  1. ;;94
  1. ;;21,"43353-0026-28 ")
  1. ;;95
  1. ;;21,"43353-0026-45 ")
  1. ;;96
  1. ;;21,"43353-0026-53 ")
  1. ;;97
  1. ;;21,"43353-0026-59 ")
  1. ;;98
  1. ;;21,"43353-0026-60 ")
  1. ;;99
  1. ;;21,"43353-0174-07 ")
  1. ;;100
  1. ;;21,"43353-0174-10 ")
  1. ;;101
  1. ;;21,"43353-0174-14 ")
  1. ;;102
  1. ;;21,"43353-0174-15 ")
  1. ;;103
  1. ;;21,"43353-0174-20 ")
  1. ;;104
  1. ;;21,"43353-0174-30 ")
  1. ;;105
  1. ;;21,"43353-0174-45 ")
  1. ;;106
  1. ;;21,"43353-0174-53 ")
  1. ;;107
  1. ;;21,"43353-0174-59 ")
  1. ;;108
  1. ;;21,"43353-0174-60 ")
  1. ;;109
  1. ;;21,"43353-0175-07 ")
  1. ;;438
  1. ;;21,"43353-0175-10 ")
  1. ;;439
  1. ;;21,"43353-0175-14 ")
  1. ;;440
  1. ;;21,"43353-0175-15 ")
  1. ;;441
  1. ;;21,"43353-0175-20 ")
  1. ;;442
  1. ;;21,"43353-0175-21 ")
  1. ;;443
  1. ;;21,"43353-0175-25 ")
  1. ;;444
  1. ;;21,"43353-0175-30 ")
  1. ;;445
  1. ;;21,"43353-0175-40 ")
  1. ;;446
  1. ;;21,"43353-0175-45 ")
  1. ;;447
  1. ;;21,"43353-0175-53 ")
  1. ;;448
  1. ;;21,"43353-0175-59 ")
  1. ;;449
  1. ;;21,"43353-0175-60 ")
  1. ;;450
  1. ;;21,"43353-0176-14 ")
  1. ;;451
  1. ;;21,"43353-0176-40 ")
  1. ;;452
  1. ;;21,"43353-0443-30 ")
  1. ;;703
  1. ;;21,"43353-0557-28 ")
  1. ;;92
  1. ;;21,"43353-0558-07 ")
  1. ;;453
  1. ;;21,"43353-0558-10 ")
  1. ;;454
  1. ;;21,"43353-0558-14 ")
  1. ;;455
  1. ;;21,"43353-0558-15 ")
  1. ;;456
  1. ;;21,"43353-0558-20 ")
  1. ;;457
  1. ;;21,"43353-0558-21 ")
  1. ;;458
  1. ;;21,"43353-0558-25 ")
  1. ;;459
  1. ;;21,"43353-0558-28 ")
  1. ;;460
  1. ;;21,"43353-0558-30 ")
  1. ;;461
  1. ;;21,"43353-0558-40 ")
  1. ;;462
  1. ;;21,"43353-0558-45 ")
  1. ;;463
  1. ;;21,"43353-0558-53 ")
  1. ;;464
  1. ;;21,"43353-0558-60 ")
  1. ;;465
  1. ;;21,"43353-0559-30 ")
  1. ;;955
  1. ;;21,"43353-0567-20 ")
  1. ;;406
  1. ;;21,"43353-0567-30 ")
  1. ;;407
  1. ;;21,"43353-0590-07 ")
  1. ;;121
  1. ;;21,"43353-0590-10 ")
  1. ;;122
  1. ;;21,"43353-0590-14 ")
  1. ;;123
  1. ;;21,"43353-0590-15 ")
  1. ;;124
  1. ;;21,"43353-0590-20 ")
  1. ;;125
  1. ;;21,"43353-0590-28 ")
  1. ;;126
  1. ;;21,"43353-0590-30 ")
  1. ;;127
  1. ;;21,"43353-0590-45 ")
  1. ;;128
  1. ;;21,"43353-0590-53 ")
  1. ;;129
  1. ;;21,"43353-0590-59 ")
  1. ;;130
  1. ;;21,"43353-0590-60 ")
  1. ;;131
  1. ;;21,"43353-0617-07 ")
  1. ;;423
  1. ;;21,"43353-0617-10 ")
  1. ;;424
  1. ;;21,"43353-0617-14 ")
  1. ;;425
  1. ;;21,"43353-0617-15 ")
  1. ;;426
  1. ;;21,"43353-0617-20 ")
  1. ;;427
  1. ;;21,"43353-0617-21 ")
  1. ;;428
  1. ;;21,"43353-0617-25 ")
  1. ;;429
  1. ;;21,"43353-0617-28 ")
  1. ;;430
  1. ;;21,"43353-0617-30 ")
  1. ;;431
  1. ;;21,"43353-0617-40 ")
  1. ;;432
  1. ;;21,"43353-0617-45 ")
  1. ;;433
  1. ;;21,"43353-0617-53 ")
  1. ;;434
  1. ;;21,"43353-0617-59 ")
  1. ;;435
  1. ;;21,"43353-0617-60 ")
  1. ;;436
  1. ;;21,"43353-0617-62 ")
  1. ;;437
  1. ;;21,"43353-0620-07 ")
  1. ;;110
  1. ;;21,"43353-0620-10 ")
  1. ;;111
  1. ;;21,"43353-0620-14 ")
  1. ;;112
  1. ;;21,"43353-0620-15 ")
  1. ;;113
  1. ;;21,"43353-0620-20 ")
  1. ;;114
  1. ;;21,"43353-0620-28 ")
  1. ;;115
  1. ;;21,"43353-0620-30 ")
  1. ;;116
  1. ;;21,"43353-0620-45 ")
  1. ;;117
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP51K10
  1. D ^BGP51K11
  1. D ^BGP51K12
  1. D ^BGP51K2
  1. D ^BGP51K3
  1. D ^BGP51K4
  1. D ^BGP51K5
  1. D ^BGP51K6
  1. D ^BGP51K7
  1. D ^BGP51K8
  1. D ^BGP51K9
  1. Q