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

BGP44R2.m

Go to the documentation of this file.
BGP44R2 ;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,"49999-0808-00 ")
 ;;839
 ;;21,"51079-0425-01 ")
 ;;81
 ;;21,"51079-0425-20 ")
 ;;82
 ;;21,"51079-0426-01 ")
 ;;139
 ;;21,"51079-0426-20 ")
 ;;140
 ;;21,"51079-0810-01 ")
 ;;241
 ;;21,"51079-0810-17 ")
 ;;242
 ;;21,"51079-0810-19 ")
 ;;243
 ;;21,"51079-0810-20 ")
 ;;244
 ;;21,"51079-0811-01 ")
 ;;309
 ;;21,"51079-0811-17 ")
 ;;310
 ;;21,"51079-0811-19 ")
 ;;311
 ;;21,"51079-0811-20 ")
 ;;312
 ;;21,"51079-0872-01 ")
 ;;617
 ;;21,"51079-0872-20 ")
 ;;618
 ;;21,"51079-0873-01 ")
 ;;683
 ;;21,"51079-0873-17 ")
 ;;684
 ;;21,"51079-0873-19 ")
 ;;685
 ;;21,"51079-0873-20 ")
 ;;686
 ;;21,"51138-0251-30 ")
 ;;246
 ;;21,"51138-0252-30 ")
 ;;430
 ;;21,"51138-0265-30 ")
 ;;448
 ;;21,"51138-0266-30 ")
 ;;462
 ;;21,"51138-0267-30 ")
 ;;533
 ;;21,"51138-0268-30 ")
 ;;463
 ;;21,"51138-0269-30 ")
 ;;532
 ;;21,"51138-0270-30 ")
 ;;247
 ;;21,"51138-0271-30 ")
 ;;429
 ;;21,"51138-0337-30 ")
 ;;31
 ;;21,"51138-0338-30 ")
 ;;60
 ;;21,"51138-0339-30 ")
 ;;123
 ;;21,"51138-0367-30 ")
 ;;822
 ;;21,"51138-0368-30 ")
 ;;830
 ;;21,"51138-0369-30 ")
 ;;852
 ;;21,"51138-0370-30 ")
 ;;575
 ;;21,"51138-0371-30 ")
 ;;628
 ;;21,"51138-0372-10 ")
 ;;793
 ;;21,"51138-0372-30 ")
 ;;794
 ;;21,"51138-0470-30 ")
 ;;922
 ;;21,"51138-0471-30 ")
 ;;956
 ;;21,"51138-0472-30 ")
 ;;1036
 ;;21,"51138-0473-30 ")
 ;;921
 ;;21,"51138-0474-30 ")
 ;;957
 ;;21,"51138-0475-30 ")
 ;;1035
 ;;21,"51655-0289-24 ")
 ;;437
 ;;21,"51655-0297-24 ")
 ;;24
 ;;21,"51655-0753-24 ")
 ;;627
 ;;21,"51655-0758-77 ")
 ;;580
 ;;21,"51655-0904-25 ")
 ;;815
 ;;21,"51655-0947-24 ")
 ;;816
 ;;21,"51655-0947-25 ")
 ;;817
 ;;21,"52959-0449-01 ")
 ;;680
 ;;21,"52959-0449-30 ")
 ;;681
 ;;21,"52959-0449-60 ")
 ;;682
 ;;21,"52959-0598-90 ")
 ;;559
 ;;21,"52959-0822-00 ")
 ;;325
 ;;21,"52959-0822-30 ")
 ;;326
 ;;21,"52959-0822-60 ")
 ;;327
 ;;21,"52959-0823-20 ")
 ;;202
 ;;21,"52959-0823-60 ")
 ;;203
 ;;21,"52959-0888-00 ")
 ;;121
 ;;21,"52959-0888-30 ")
 ;;122
 ;;21,"52959-0936-30 ")
 ;;61
 ;;21,"52959-0936-60 ")
 ;;62
 ;;21,"53002-0446-00 ")
 ;;192
 ;;21,"53002-0446-30 ")
 ;;193
 ;;21,"53002-0446-60 ")
 ;;194
 ;;21,"53002-1111-00 ")
 ;;336
 ;;21,"53002-1111-03 ")
 ;;337
 ;;21,"53002-1111-06 ")
 ;;338
 ;;21,"54348-0098-30 ")
 ;;870
 ;;21,"54348-0104-30 ")
 ;;692
 ;;21,"54458-0966-10 ")
 ;;109
 ;;21,"54458-0967-10 ")
 ;;51
 ;;21,"54458-0968-10 ")
 ;;26
 ;;21,"54569-3830-00 ")
 ;;634
 ;;21,"54569-3830-02 ")
 ;;635
 ;;21,"54569-3831-00 ")
 ;;774
 ;;21,"54569-3831-01 ")
 ;;775
 ;;21,"54569-3831-02 ")
 ;;776
 ;;21,"54569-3831-08 ")
 ;;777
 ;;21,"54569-3841-00 ")
 ;;182
 ;;21,"54569-3841-01 ")
 ;;183
 ;;21,"54569-3841-02 ")
 ;;184
 ;;21,"54569-3842-00 ")
 ;;348
 ;;21,"54569-3842-01 ")
 ;;349
 ;;21,"54569-3842-02 ")
 ;;350
 ;;21,"54569-3842-04 ")
 ;;351
 ;;21,"54569-3937-00 ")
 ;;492
 ;;21,"54569-3938-00 ")
 ;;548
 ;;21,"54569-5547-00 ")
 ;;464
 ;;21,"54569-5547-02 ")
 ;;465
 ;;21,"54569-5548-00 ")
 ;;530
 ;;21,"54569-5548-01 ")
 ;;531
 ;;21,"54569-5548-02 ")
 ;;535
 ;;21,"54569-5618-00 ")
 ;;989
 ;;21,"54569-5618-01 ")
 ;;990
 ;;21,"54569-5618-02 ")
 ;;964
 ;;21,"54569-5618-03 ")
 ;;965
 ;;21,"54569-5619-00 ")
 ;;1042
 ;;21,"54569-5619-01 ")
 ;;1043
 ;;21,"54569-5619-02 ")
 ;;1025
 ;;21,"54569-5619-03 ")
 ;;1026
 ;;21,"54569-5619-04 ")
 ;;1027
 ;;21,"54569-5855-00 ")
 ;;155
 ;;21,"54569-5855-01 ")
 ;;156
 ;;21,"54569-5855-02 ")
 ;;157
 ;;21,"54569-5855-03 ")
 ;;158
 ;;21,"54569-5992-00 ")
 ;;891
 ;;21,"54569-5992-01 ")
 ;;892
 ;;21,"54569-5993-00 ")
 ;;914
 ;;21,"54569-5993-01 ")
 ;;915
 ;;21,"54569-6072-00 ")
 ;;54
 ;;21,"54569-6072-01 ")
 ;;55
 ;;21,"54569-6072-02 ")
 ;;56
 ;;21,"54569-6072-03 ")
 ;;57
 ;;21,"54868-0036-00 ")
 ;;7
 ;;21,"54868-0036-02 ")
 ;;8
 ;;21,"54868-0036-04 ")
 ;;9
 ;;21,"54868-0795-00 ")
 ;;881
 ;;21,"54868-0877-01 ")
 ;;3
 ;;21,"54868-1020-00 ")
 ;;875
 ;;21,"54868-1361-01 ")
 ;;877
 ;;21,"54868-3017-00 ")
 ;;846
 ;;21,"54868-3265-00 ")
 ;;778
 ;;21,"54868-3265-01 ")
 ;;779
 ;;21,"54868-3265-03 ")
 ;;780
 ;;21,"54868-3265-04 ")
 ;;781
 ;;21,"54868-3265-05 ")
 ;;782
 ;;21,"54868-3265-06 ")
 ;;783
 ;;21,"54868-3266-01 ")
 ;;630
 ;;21,"54868-3266-02 ")
 ;;631
 ;;21,"54868-3266-03 ")
 ;;632
 ;;21,"54868-3266-04 ")
 ;;633
 ;;21,"54868-3318-01 ")
 ;;171
 ;;21,"54868-3318-02 ")
 ;;172
 ;;21,"54868-3318-03 ")
 ;;173
 ;;21,"54868-3318-04 ")
 ;;174
 ;;21,"54868-3318-05 ")
 ;;204
 ;;21,"54868-3319-01 ")
 ;;319
 ;;21,"54868-3319-02 ")
 ;;320
 ;;21,"54868-3319-04 ")
 ;;321
 ;;21,"54868-3319-05 ")
 ;;322
 ;;21,"54868-3319-06 ")
 ;;323
 ;;21,"54868-3319-07 ")
 ;;324
 ;;21,"54868-3327-00 ")
 ;;37
 ;;21,"54868-3334-00 ")
 ;;543
 ;;21,"54868-3334-01 ")
 ;;544
 ;;21,"54868-3334-02 ")
 ;;545
 ;;21,"54868-3334-03 ")
 ;;546
 ;;21,"54868-3334-04 ")
 ;;547
 ;;21,"54868-3335-00 ")
 ;;493
 ;;21,"54868-3335-01 ")
 ;;494
 ;;21,"54868-3335-02 ")
 ;;495
 ;;21,"54868-3335-03 ")
 ;;496
 ;;21,"54868-3377-00 ")
 ;;141
 ;;21,"54868-3377-01 ")
 ;;142
 ;;21,"54868-3377-02 ")
 ;;143
 ;;21,"54868-3377-03 ")
 ;;144
 ;;21,"54868-3426-00 ")
 ;;571
 ;;21,"54868-3426-01 ")
 ;;572
 ;;21,"54868-3711-00 ")
 ;;866
 ;;21,"54868-3711-01 ")
 ;;867
 ;;21,"54868-4091-00 ")
 ;;840
 ;;21,"54868-4091-01 ")
 ;;841
 ;;21,"54868-4091-02 ")
 ;;842
 ;;21,"54868-4091-03 ")
 ;;843
 ;;21,"54868-4420-00 ")
 ;;453
 ;;21,"54868-4529-00 ")
 ;;993
 ;;21,"54868-4529-01 ")
 ;;994
 ;;21,"54868-4529-02 ")
 ;;995
 ;;21,"54868-4529-03 ")
 ;;996
 ;;21,"54868-4609-00 ")
 ;;947
 ;;21,"54868-4609-01 ")
 ;;946
 ;;21,"54868-4842-00 ")
 ;;853
 ;;21,"54868-4842-01 ")
 ;;854
 ;;21,"54868-4842-02 ")
 ;;855
 ;;21,"54868-4906-00 ")
 ;;917
 ;;21,"54868-4988-00 ")
 ;;515
 ;;21,"54868-4988-01 ")
 ;;516
 ;;21,"54868-4988-02 ")
 ;;517
 ;;21,"54868-4988-03 ")
 ;;518
 ;;21,"54868-4988-04 ")
 ;;519
 ;;21,"54868-5148-00 ")
 ;;982
 ;;21,"54868-5148-01 ")
 ;;983
 ;;21,"54868-5148-02 ")
 ;;984
 ;;21,"54868-5148-03 ")
 ;;970
 ;;21,"54868-5148-04 ")
 ;;971
 ;;21,"54868-5185-00 ")
 ;;937
 ;;21,"54868-5185-01 ")
 ;;938
 ;;21,"54868-5185-02 ")
 ;;939
 ;;21,"54868-5185-03 ")
 ;;940
 ;;21,"54868-5188-00 ")
 ;;895
 ;;21,"54868-5188-01 ")
 ;;896
 ;;21,"54868-5188-02 ")
 ;;897
 ;;21,"54868-5210-00 ")
 ;;468
 ;;21,"54868-5210-01 ")
 ;;469
 ;;21,"54868-5210-02 ")
 ;;470
 ;;21,"54868-5210-03 ")
 ;;471
 ;;21,"54868-5243-00 ")
 ;;1053
 ;;21,"54868-5243-01 ")
 ;;1054
 ;;21,"54868-5243-02 ")
 ;;1055
 ;;21,"54868-5243-03 ")
 ;;1056
 ;;21,"54868-5243-04 ")
 ;;1057
 ;;21,"54868-5364-00 ")
 ;;438
 ;;21,"54868-5364-01 ")
 ;;439
 ;;21,"54868-5364-02 ")
 ;;440
 ;;21,"54868-5457-00 ")
 ;;98
 ;;21,"54868-5457-01 ")
 ;;99
 ;;21,"54868-5457-02 ")
 ;;100
 ;;21,"54868-5467-00 ")
 ;;911
 ;;21,"54868-5467-01 ")
 ;;912
 ;;21,"54868-5467-02 ")
 ;;913
 ;;21,"54868-5712-00 ")
 ;;826
 ;;21,"54868-5739-00 ")
 ;;1077
 ;;21,"55045-2138-01 ")
 ;;744
 ;;21,"55045-2138-08 ")
 ;;745
 ;;21,"55045-2265-01 ")
 ;;283
 ;;21,"55045-2265-08 ")
 ;;284
 ;;21,"55045-2266-01 ")
 ;;395
 ;;21,"55045-2322-01 ")
 ;;667
 ;;21,"55045-3300-01 ")
 ;;528
 ;;21,"55045-3434-08 ")
 ;;447
 ;;21,"55048-0241-30 ")
 ;;79
 ;;21,"55048-0242-30 ")
 ;;38
 ;;21,"55048-0243-30 ")
 ;;146
 ;;21,"55048-0243-60 ")
 ;;147
 ;;21,"55048-0244-30 ")
 ;;201
 ;;21,"55048-0245-30 ")
 ;;497
 ;;21,"55048-0245-60 ")
 ;;498
 ;;21,"55048-0246-30 ")
 ;;894
 ;;21,"55048-0247-30 ")
 ;;909
 ;;21,"55048-0248-30 ")
 ;;770
 ;;21,"55048-0248-90 ")
 ;;771
 ;;21,"55048-0269-30 ")
 ;;640
 ;;21,"55048-0270-30 ")
 ;;317
 ;;21,"55048-0273-60 ")
 ;;1005
 ;;21,"55048-0273-71 ")
 ;;1006
 ;;21,"55048-0288-60 ")
 ;;80
 ;;21,"55048-0289-60 ")
 ;;145
 ;;21,"55111-0320-01 ")
 ;;48
 ;;21,"55111-0320-05 ")
 ;;49
 ;;21,"55111-0321-01 ")
 ;;64
 ;;21,"55111-0321-05 ")
 ;;65
 ;;21,"55111-0322-01 ")
 ;;162
 ;;21,"55111-0322-05 ")
 ;;163
 ;;21,"55111-0695-01 ")
 ;;920
 ;;21,"55111-0696-01 ")
 ;;954
 ;;21,"55111-0696-10 ")
 ;;955
 ;;21,"55111-0697-01 ")
 ;;1033
 ;;21,"55111-0697-10 ")
 ;;1034
 ;;21,"55289-0066-90 ")
 ;;4
 ;;21,"55289-0125-30 ")
 ;;435
 ;;21,"55289-0265-90 ")
 ;;871
 ;;21,"55289-0281-30 ")
 ;;1018
 ;;21,"55289-0281-60 ")
 ;;1019
 ;;21,"55289-0281-86 ")
 ;;1020
 ;;21,"55289-0281-90 ")
 ;;1045
 ;;21,"55289-0301-93 ")
 ;;514
 ;;21,"55289-0424-30 ")
 ;;305
 ;;21,"55289-0606-30 ")
 ;;636
 ;;21,"55289-0606-90 ")
 ;;637
 ;;21,"55289-0779-07 ")
 ;;457
 ;;21,"55289-0806-14 ")
 ;;285
 ;;21,"55289-0806-30 ")
 ;;286
 ;;21,"55289-0806-60 ")
 ;;287
 ;;21,"55289-0806-86 ")
 ;;288
 ;;21,"55289-0806-90 ")
 ;;289
 ;;21,"55289-0892-01 ")
 ;;699
 ;;21,"55289-0892-14 ")
 ;;700
 ;;21,"55289-0892-15 ")
 ;;701
 ;;21,"55289-0892-30 ")
 ;;702
 ;;21,"55289-0892-60 ")
 ;;703
 ;;21,"55289-0892-86 ")
 ;;704
 ;;21,"55289-0892-90 ")
 ;;705
 ;;21,"55289-0892-93 ")
 ;;706
 ;;21,"55289-0892-98 ")
 ;;707
 ;;21,"55289-0976-01 ")
 ;;418
 ;;21,"55289-0976-14 ")
 ;;419
 ;;21,"55289-0976-30 ")
 ;;420
 ;;21,"55289-0976-60 ")
 ;;421
 ;;21,"55289-0976-93 ")
 ;;422
 ;;21,"57664-0398-13 ")
 ;;185
 ;;21,"57664-0398-18 ")
 ;;186
 ;;21,"57664-0398-88 ")
 ;;187
 ;;21,"57664-0399-13 ")
 ;;340
 ;;21,"57664-0399-18 ")
 ;;341
 ;;21,"57664-0399-88 ")
 ;;342
 ;;21,"57664-0724-88 ")
 ;;910
 ;;21,"57664-0725-88 ")
 ;;893
 ;;21,"57664-0727-88 ")
 ;;888
 ;;21,"58016-0005-00 ")
 ;;88
 ;;21,"58016-0005-30 ")
 ;;89
 ;;21,"58016-0005-60 ")
 ;;90
 ;;21,"58016-0005-90 ")
 ;;91
 ;;21,"58016-0058-00 ")
 ;;933
 ;;21,"58016-0058-30 ")
 ;;934
 ;;21,"58016-0058-60 ")
 ;;935
 ;;21,"58016-0058-90 ")
 ;;936
 ;;21,"58016-0334-00 ")
 ;;474
 ;;21,"58016-0334-02 ")
 ;;475
 ;;21,"58016-0334-30 ")
 ;;476
 ;;21,"58016-0334-60 ")
 ;;477
 ;;21,"58016-0334-90 ")
 ;;478
 ;;21,"58016-0376-00 ")
 ;;318
 ;;21,"58016-0376-02 ")
 ;;343
 ;;21,"58016-0376-30 ")
 ;;344
 ;;21,"58016-0376-60 ")
 ;;345
 ;;21,"58016-0376-90 ")
 ;;346
 ;;21,"58016-0376-99 ")
 ;;347
 ;;21,"58016-0378-00 ")
 ;;795
 ;;21,"58016-0378-02 ")
 ;;796
 ;;21,"58016-0378-30 ")
 ;;797
 ;;21,"58016-0378-60 ")
 ;;798
 ;;21,"58016-0378-90 ")
 ;;799
 ;;21,"58016-0378-99 ")
 ;;800
 ;;21,"58016-0411-00 ")
 ;;1058
 ;;21,"58016-0411-02 ")
 ;;1059
 ;;21,"58016-0411-30 ")
 ;;1060
 ;;21,"58016-0411-60 ")
 ;;1061
 ;;21,"58016-0411-90 ")
 ;;1051
 ;;21,"58016-0467-00 ")
 ;;164
 ;;21,"58016-0467-30 ")
 ;;165
 ;;21,"58016-0467-60 ")
 ;;166
 ;;21,"58016-0467-90 ")
 ;;167
 ;;21,"58016-0691-00 ")
 ;;524
 ;;21,"58016-0691-30 ")
 ;;525
 ;;21,"58016-0691-60 ")
 ;;526
 ;;21,"58016-0691-90 ")
 ;;527
 ;;21,"58016-0844-00 ")
 ;;115
 ;;21,"58016-0844-30 ")
 ;;116
 ;;21,"58016-0844-60 ")
 ;;117
 ;;21,"58016-0844-90 ")
 ;;118
 ;;21,"58016-0876-00 ")
 ;;260
 ;;21,"58016-0876-10 ")
 ;;261
 ;;21,"58016-0876-12 ")
 ;;262
 ;;21,"58016-0876-14 ")
 ;;263
 ;;21,"58016-0876-15 ")
 ;;264
 ;;21,"58016-0876-20 ")
 ;;265
 ;;21,"58016-0876-21 ")
 ;;266
 ;;21,"58016-0876-24 ")
 ;;210
 ;;21,"58016-0876-28 ")
 ;;211
 ;;21,"58016-0876-30 ")
 ;;212
 ;;21,"58016-0876-40 ")
 ;;213
 ;;21,"58016-0876-50 ")
 ;;214
 ;;21,"58016-0876-60 ")
 ;;215
 ;;21,"58864-0027-14 ")
 ;;294
 ;;21,"58864-0027-30 ")
 ;;295
 ;;21,"58864-0027-60 ")
 ;;296
 ;;21,"58864-0027-90 ")
 ;;297
 ;;21,"58864-0161-30 ")
 ;;383
 ;;21,"58864-0161-60 ")
 ;;384
 ;;21,"58864-0224-30 ")
 ;;664
 ;;21,"58864-0224-60 ")
 ;;665
 ;;21,"58864-0224-93 ")
 ;;666
 ;;21,"58864-0689-30 ")
 ;;541
 ;;21,"58864-0689-60 ")
 ;;542
 ;;21,"58864-0705-30 ")
 ;;488
 ;;21,"58864-0711-30 ")
 ;;949
 ;;21,"58864-0858-30 ")
 ;;454
 ;;21,"58864-0952-30 ")
 ;;991
 ;;21,"58864-0953-30 ")
 ;;1044
 ;;21,"58864-0956-30 ")
 ;;529
 ;;21,"58864-0957-30 ")
 ;;466
 ;;21,"59762-0541-01 ")
 ;;484
 ;;21,"59762-2330-07 ")
 ;;919
 ;;21,"59762-2331-06 ")
 ;;959
 ;;21,"59762-2331-08 ")
 ;;960
 ;;21,"59762-2332-06 ")
 ;;1016
 ;;21,"59762-2332-08 ")
 ;;1017
 ;;21,"59762-3725-01 ")
 ;;560
 ;;21,"59762-3726-03 ")
 ;;611
 ;;21,"59762-3727-04 ")
 ;;695
 ;;21,"59762-3727-06 ")
 ;;696
 ;;21,"59762-3727-07 ")
 ;;697
 ;;21,"59762-5031-01 ")
 ;;452
 ;;21,"59762-5032-01 ")
 ;;485
 ;;21,"59762-5032-02 ")
 ;;486
 ;;21,"59762-5033-01 ")
 ;;538
 ;;21,"59762-5033-02 ")
 ;;539
 ;;21,"59762-7020-09 ")
 ;;577
 ;;21,"59762-7021-05 ")
 ;;625
 ;;21,"59762-7021-09 ")
 ;;626
 ;;21,"59762-7022-05 ")
 ;;801
 ;;21,"59762-7022-09 ")
 ;;802
 ;;21,"60429-0082-01 ")
 ;;168
 ;;21,"60429-0082-10 ")
 ;;169
 ;;21,"60429-0083-01 ")
 ;;381
 ;;21,"60429-0083-10 ")
 ;;382
 ;;21,"60429-0283-01 ")
 ;;824
 ;;21,"60429-0284-01 ")
 ;;835
 ;;21,"60429-0285-01 ")
 ;;861
 ;;21,"60429-0291-01 ")
 ;;36
 ;;21,"60429-0293-01 ")
 ;;138
 ;;21,"60505-0141-00 ")
 ;;216
 ;;21,"60505-0141-01 ")
 ;;217