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

BGP2TD7.m

Go to the documentation of this file.
BGP2TD7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"54868-2645-03 ")
 ;;3358
 ;;21,"54868-2665-00 ")
 ;;3099
 ;;21,"54868-2665-01 ")
 ;;3100
 ;;21,"54868-2666-01 ")
 ;;3128
 ;;21,"54868-2666-02 ")
 ;;3129
 ;;21,"54868-2666-03 ")
 ;;3130
 ;;21,"54868-2666-04 ")
 ;;3131
 ;;21,"54868-2847-00 ")
 ;;709
 ;;21,"54868-3279-00 ")
 ;;1976
 ;;21,"54868-3279-02 ")
 ;;1977
 ;;21,"54868-3279-03 ")
 ;;1978
 ;;21,"54868-3307-00 ")
 ;;3195
 ;;21,"54868-3307-01 ")
 ;;3196
 ;;21,"54868-3443-00 ")
 ;;671
 ;;21,"54868-3443-01 ")
 ;;672
 ;;21,"54868-3445-00 ")
 ;;3165
 ;;21,"54868-3445-01 ")
 ;;3166
 ;;21,"54868-3690-01 ")
 ;;1002
 ;;21,"54868-3723-01 ")
 ;;1064
 ;;21,"54868-3723-02 ")
 ;;1065
 ;;21,"54868-3723-03 ")
 ;;1066
 ;;21,"54868-3723-04 ")
 ;;1067
 ;;21,"54868-3723-05 ")
 ;;1068
 ;;21,"54868-3724-01 ")
 ;;1154
 ;;21,"54868-3724-02 ")
 ;;1155
 ;;21,"54868-3724-03 ")
 ;;1156
 ;;21,"54868-3724-04 ")
 ;;1157
 ;;21,"54868-3725-01 ")
 ;;1262
 ;;21,"54868-3725-02 ")
 ;;1263
 ;;21,"54868-3725-03 ")
 ;;1264
 ;;21,"54868-3725-04 ")
 ;;1265
 ;;21,"54868-3726-00 ")
 ;;4129
 ;;21,"54868-3726-01 ")
 ;;4130
 ;;21,"54868-3726-02 ")
 ;;4131
 ;;21,"54868-3769-00 ")
 ;;291
 ;;21,"54868-3846-00 ")
 ;;3242
 ;;21,"54868-3846-01 ")
 ;;3243
 ;;21,"54868-3846-02 ")
 ;;3244
 ;;21,"54868-3846-03 ")
 ;;3245
 ;;21,"54868-3866-00 ")
 ;;3671
 ;;21,"54868-3866-01 ")
 ;;3672
 ;;21,"54868-3891-00 ")
 ;;314
 ;;21,"54868-3906-00 ")
 ;;236
 ;;21,"54868-3906-01 ")
 ;;237
 ;;21,"54868-4003-00 ")
 ;;574
 ;;21,"54868-4062-00 ")
 ;;315
 ;;21,"54868-4062-01 ")
 ;;316
 ;;21,"54868-4066-00 ")
 ;;77
 ;;21,"54868-4066-01 ")
 ;;78
 ;;21,"54868-4073-00 ")
 ;;114
 ;;21,"54868-4073-01 ")
 ;;115
 ;;21,"54868-4073-02 ")
 ;;116
 ;;21,"54868-4073-03 ")
 ;;117
 ;;21,"54868-4074-00 ")
 ;;157
 ;;21,"54868-4074-01 ")
 ;;158
 ;;21,"54868-4074-02 ")
 ;;159
 ;;21,"54868-4074-03 ")
 ;;160
 ;;21,"54868-4074-04 ")
 ;;161
 ;;21,"54868-4088-00 ")
 ;;3055
 ;;21,"54868-4088-01 ")
 ;;3056
 ;;21,"54868-4088-02 ")
 ;;3057
 ;;21,"54868-4178-00 ")
 ;;4287
 ;;21,"54868-4199-00 ")
 ;;3929
 ;;21,"54868-4199-01 ")
 ;;3930
 ;;21,"54868-4199-02 ")
 ;;3931
 ;;21,"54868-4209-00 ")
 ;;2047
 ;;21,"54868-4331-00 ")
 ;;1662
 ;;21,"54868-4331-01 ")
 ;;1663
 ;;21,"54868-4331-02 ")
 ;;1664
 ;;21,"54868-4332-00 ")
 ;;1545
 ;;21,"54868-4332-01 ")
 ;;1546
 ;;21,"54868-4332-02 ")
 ;;1547
 ;;21,"54868-4341-00 ")
 ;;3616
 ;;21,"54868-4341-01 ")
 ;;3617
 ;;21,"54868-4357-00 ")
 ;;1808
 ;;21,"54868-4357-01 ")
 ;;1809
 ;;21,"54868-4357-02 ")
 ;;1810
 ;;21,"54868-4357-03 ")
 ;;1811
 ;;21,"54868-4358-00 ")
 ;;1439
 ;;21,"54868-4358-01 ")
 ;;1440
 ;;21,"54868-4358-02 ")
 ;;1441
 ;;21,"54868-4358-03 ")
 ;;1442
 ;;21,"54868-4406-00 ")
 ;;4286
 ;;21,"54868-4413-00 ")
 ;;3888
 ;;21,"54868-4414-00 ")
 ;;3974
 ;;21,"54868-4414-01 ")
 ;;3975
 ;;21,"54868-4425-00 ")
 ;;3873
 ;;21,"54868-4425-01 ")
 ;;3874
 ;;21,"54868-4425-02 ")
 ;;3875
 ;;21,"54868-4425-03 ")
 ;;3876
 ;;21,"54868-4428-00 ")
 ;;3771
 ;;21,"54868-4428-01 ")
 ;;3772
 ;;21,"54868-4428-02 ")
 ;;3773
 ;;21,"54868-4428-03 ")
 ;;3774
 ;;21,"54868-4479-00 ")
 ;;676
 ;;21,"54868-4479-01 ")
 ;;677
 ;;21,"54868-4479-02 ")
 ;;678
 ;;21,"54868-4494-00 ")
 ;;3544
 ;;21,"54868-4526-00 ")
 ;;3554
 ;;21,"54868-4526-01 ")
 ;;3555
 ;;21,"54868-4539-00 ")
 ;;4272
 ;;21,"54868-4539-01 ")
 ;;4273
 ;;21,"54868-4540-00 ")
 ;;3762
 ;;21,"54868-4540-01 ")
 ;;3763
 ;;21,"54868-4540-02 ")
 ;;3764
 ;;21,"54868-4552-00 ")
 ;;3076
 ;;21,"54868-4552-01 ")
 ;;3077
 ;;21,"54868-4555-00 ")
 ;;3083
 ;;21,"54868-4555-01 ")
 ;;3084
 ;;21,"54868-4605-00 ")
 ;;4279
 ;;21,"54868-4605-01 ")
 ;;4280
 ;;21,"54868-4605-02 ")
 ;;4281
 ;;21,"54868-4612-00 ")
 ;;3896
 ;;21,"54868-4637-00 ")
 ;;481
 ;;21,"54868-4637-01 ")
 ;;482
 ;;21,"54868-4637-02 ")
 ;;483
 ;;21,"54868-4637-03 ")
 ;;484
 ;;21,"54868-4637-04 ")
 ;;485
 ;;21,"54868-4645-00 ")
 ;;4289
 ;;21,"54868-4645-01 ")
 ;;4290
 ;;21,"54868-4645-02 ")
 ;;4291
 ;;21,"54868-4645-03 ")
 ;;4292
 ;;21,"54868-4646-00 ")
 ;;2761
 ;;21,"54868-4646-02 ")
 ;;2762
 ;;21,"54868-4646-03 ")
 ;;2763
 ;;21,"54868-4646-04 ")
 ;;2764
 ;;21,"54868-4646-05 ")
 ;;2765
 ;;21,"54868-4652-00 ")
 ;;4375
 ;;21,"54868-4652-01 ")
 ;;4376
 ;;21,"54868-4652-02 ")
 ;;4377
 ;;21,"54868-4652-03 ")
 ;;4378
 ;;21,"54868-4652-04 ")
 ;;4379
 ;;21,"54868-4652-05 ")
 ;;4380
 ;;21,"54868-4656-00 ")
 ;;2345
 ;;21,"54868-4656-01 ")
 ;;2346
 ;;21,"54868-4656-02 ")
 ;;2347
 ;;21,"54868-4656-03 ")
 ;;2348
 ;;21,"54868-4657-00 ")
 ;;2198
 ;;21,"54868-4657-01 ")
 ;;2199
 ;;21,"54868-4657-02 ")
 ;;2200
 ;;21,"54868-4657-03 ")
 ;;2201
 ;;21,"54868-4657-04 ")
 ;;2202
 ;;21,"54868-4657-05 ")
 ;;2203
 ;;21,"54868-4657-06 ")
 ;;2204
 ;;21,"54868-4658-00 ")
 ;;2383
 ;;21,"54868-4658-01 ")
 ;;2384
 ;;21,"54868-4658-02 ")
 ;;2385
 ;;21,"54868-4658-03 ")
 ;;2386
 ;;21,"54868-4658-04 ")
 ;;2387
 ;;21,"54868-4678-00 ")
 ;;2858
 ;;21,"54868-4678-01 ")
 ;;2859
 ;;21,"54868-4678-02 ")
 ;;2860
 ;;21,"54868-4678-03 ")
 ;;2861
 ;;21,"54868-4720-00 ")
 ;;3909
 ;;21,"54868-4720-01 ")
 ;;3910
 ;;21,"54868-4720-02 ")
 ;;3911
 ;;21,"54868-4720-03 ")
 ;;3912
 ;;21,"54868-4729-00 ")
 ;;3516
 ;;21,"54868-4780-00 ")
 ;;2654
 ;;21,"54868-4780-01 ")
 ;;2655
 ;;21,"54868-4785-00 ")
 ;;576
 ;;21,"54868-4785-01 ")
 ;;577
 ;;21,"54868-4785-02 ")
 ;;578
 ;;21,"54868-4785-03 ")
 ;;579
 ;;21,"54868-4869-00 ")
 ;;3517
 ;;21,"54868-4870-00 ")
 ;;38
 ;;21,"54868-4870-01 ")
 ;;39
 ;;21,"54868-4870-02 ")
 ;;40
 ;;21,"54868-4883-00 ")
 ;;3047
 ;;21,"54868-4883-01 ")
 ;;3048
 ;;21,"54868-4883-02 ")
 ;;3049
 ;;21,"54868-4885-00 ")
 ;;4243
 ;;21,"54868-4885-01 ")
 ;;4244
 ;;21,"54868-4904-00 ")
 ;;256
 ;;21,"54868-4904-01 ")
 ;;257
 ;;21,"54868-4977-00 ")
 ;;427
 ;;21,"54868-4977-01 ")
 ;;428
 ;;21,"54868-4977-02 ")
 ;;429
 ;;21,"54868-4986-00 ")
 ;;4236
 ;;21,"54868-4986-01 ")
 ;;4237
 ;;21,"54868-4986-02 ")
 ;;4238
 ;;21,"54868-5001-00 ")
 ;;735
 ;;21,"54868-5001-01 ")
 ;;736
 ;;21,"54868-5055-00 ")
 ;;1969
 ;;21,"54868-5064-00 ")
 ;;1895
 ;;21,"54868-5064-01 ")
 ;;1896
 ;;21,"54868-5075-00 ")
 ;;3731
 ;;21,"54868-5075-01 ")
 ;;3732
 ;;21,"54868-5077-00 ")
 ;;4065
 ;;21,"54868-5078-00 ")
 ;;3750
 ;;21,"54868-5078-01 ")
 ;;3751
 ;;21,"54868-5079-00 ")
 ;;816
 ;;21,"54868-5079-01 ")
 ;;817
 ;;21,"54868-5079-02 ")
 ;;818
 ;;21,"54868-5082-00 ")
 ;;4333
 ;;21,"54868-5082-01 ")
 ;;4334
 ;;21,"54868-5082-02 ")
 ;;4335
 ;;21,"54868-5082-03 ")
 ;;4336
 ;;21,"54868-5099-00 ")
 ;;3461
 ;;21,"54868-5099-01 ")
 ;;3462
 ;;21,"54868-5100-00 ")
 ;;345
 ;;21,"54868-5100-01 ")
 ;;346
 ;;21,"54868-5100-02 ")
 ;;347
 ;;21,"54868-5170-00 ")
 ;;3729
 ;;21,"54868-5170-01 ")
 ;;3730
 ;;21,"54868-5182-00 ")
 ;;2038
 ;;21,"54868-5182-01 ")
 ;;2039
 ;;21,"54868-5182-02 ")
 ;;2040
 ;;21,"54868-5196-00 ")
 ;;1015
 ;;21,"54868-5196-01 ")
 ;;1016
 ;;21,"54868-5196-02 ")
 ;;1017
 ;;21,"54868-5204-00 ")
 ;;904
 ;;21,"54868-5204-01 ")
 ;;905
 ;;21,"54868-5204-02 ")
 ;;906
 ;;21,"54868-5204-03 ")
 ;;907
 ;;21,"54868-5241-00 ")
 ;;3133
 ;;21,"54868-5241-01 ")
 ;;3134
 ;;21,"54868-5241-02 ")
 ;;3135
 ;;21,"54868-5245-00 ")
 ;;3102
 ;;21,"54868-5245-01 ")
 ;;3103
 ;;21,"54868-5245-02 ")
 ;;3104
 ;;21,"54868-5246-00 ")
 ;;3168
 ;;21,"54868-5246-01 ")
 ;;3169
 ;;21,"54868-5256-00 ")
 ;;212
 ;;21,"54868-5279-00 ")
 ;;3197
 ;;21,"54868-5281-00 ")
 ;;3529
 ;;21,"54868-5281-01 ")
 ;;3530
 ;;21,"54868-5296-00 ")
 ;;275
 ;;21,"54868-5297-00 ")
 ;;3770
 ;;21,"54868-5311-00 ")
 ;;193
 ;;21,"54868-5311-01 ")
 ;;194
 ;;21,"54868-5313-00 ")
 ;;279
 ;;21,"54868-5313-01 ")
 ;;280
 ;;21,"54868-5320-00 ")
 ;;200
 ;;21,"54868-5320-01 ")
 ;;201
 ;;21,"54868-5320-02 ")
 ;;202
 ;;21,"54868-5320-03 ")
 ;;203
 ;;21,"54868-5320-04 ")
 ;;204
 ;;21,"54868-5323-00 ")
 ;;3807
 ;;21,"54868-5323-01 ")
 ;;3829
 ;;21,"54868-5346-00 ")
 ;;374
 ;;21,"54868-5346-01 ")
 ;;375
 ;;21,"54868-5392-00 ")
 ;;985
 ;;21,"54868-5418-00 ")
 ;;3756
 ;;21,"54868-5423-00 ")
 ;;3069
 ;;21,"54868-5423-01 ")
 ;;3070
 ;;21,"54868-5465-00 ")
 ;;3565
 ;;21,"54868-5465-01 ")
 ;;3566
 ;;21,"54868-5466-00 ")
 ;;3922
 ;;21,"54868-5466-01 ")
 ;;3923
 ;;21,"54868-5469-00 ")
 ;;389
 ;;21,"54868-5469-01 ")
 ;;390
 ;;21,"54868-5475-00 ")
 ;;717
 ;;21,"54868-5489-00 ")
 ;;3906
 ;;21,"54868-5503-00 ")
 ;;351
 ;;21,"54868-5503-01 ")
 ;;352
 ;;21,"54868-5548-00 ")
 ;;184
 ;;21,"54868-5548-01 ")
 ;;185
 ;;21,"54868-5548-02 ")
 ;;186
 ;;21,"54868-5591-00 ")
 ;;3900
 ;;21,"54868-5607-00 ")
 ;;3847
 ;;21,"54868-5607-01 ")
 ;;3848
 ;;21,"54868-5690-00 ")
 ;;53
 ;;21,"54868-5690-01 ")
 ;;54
 ;;21,"54868-5690-02 ")
 ;;55
 ;;21,"54868-5690-03 ")
 ;;56
 ;;21,"54868-5705-00 ")
 ;;3567
 ;;21,"54868-5747-00 ")
 ;;3215
 ;;21,"54868-5747-01 ")
 ;;3216
 ;;21,"54868-5772-00 ")
 ;;4418
 ;;21,"54868-5780-00 ")
 ;;3830
 ;;21,"54868-5780-01 ")
 ;;3831
 ;;21,"54868-5781-00 ")
 ;;1
 ;;21,"54868-5781-01 ")
 ;;2
 ;;21,"54868-5781-02 ")
 ;;3
 ;;21,"54868-5781-03 ")
 ;;4
 ;;21,"54868-5782-00 ")
 ;;127
 ;;21,"54868-5782-01 ")
 ;;128
 ;;21,"54868-5782-02 ")
 ;;129
 ;;21,"54868-5782-03 ")
 ;;130
 ;;21,"54868-5782-04 ")
 ;;131
 ;;21,"54868-5783-00 ")
 ;;175
 ;;21,"54868-5783-01 ")
 ;;176
 ;;21,"54868-5787-00 ")
 ;;305
 ;;21,"54868-5792-00 ")
 ;;99
 ;;21,"54868-5792-01 ")
 ;;100
 ;;21,"54868-5792-02 ")
 ;;101
 ;;21,"54868-5793-00 ")
 ;;68
 ;;21,"54868-5793-01 ")
 ;;69
 ;;21,"54868-5804-00 ")
 ;;3495
 ;;21,"54868-5842-00 ")
 ;;3374
 ;;21,"54868-5842-01 ")
 ;;3375
 ;;21,"54868-5842-02 ")
 ;;3376
 ;;21,"54868-5842-03 ")
 ;;3377
 ;;21,"54868-5843-00 ")
 ;;3260
 ;;21,"54868-5843-01 ")
 ;;3261
 ;;21,"54868-5843-02 ")
 ;;3262
 ;;21,"54868-5856-00 ")
 ;;3318
 ;;21,"54868-5856-01 ")
 ;;3319
 ;;21,"54868-5896-00 ")
 ;;3218
 ;;21,"54868-5928-00 ")
 ;;3059
 ;;21,"54868-5977-00 ")
 ;;4347
 ;;21,"54868-5983-00 ")
 ;;3499
 ;;21,"54868-5983-01 ")
 ;;3500
 ;;21,"54868-5996-00 ")
 ;;3508
 ;;21,"54868-5996-01 ")
 ;;3509
 ;;21,"54868-5997-00 ")
 ;;3502
 ;;21,"54868-5997-01 ")
 ;;3503
 ;;21,"54868-6036-00 ")
 ;;3488
 ;;21,"54868-6041-00 ")
 ;;4405
 ;;21,"54868-6042-00 ")
 ;;4419
 ;;21,"54868-6061-00 ")
 ;;3477
 ;;21,"54868-6061-01 ")
 ;;3478
 ;;21,"54868-6103-00 ")
 ;;4409
 ;;21,"54868-6104-00 ")
 ;;4162
 ;;21,"54868-6104-01 ")
 ;;4163
 ;;21,"54868-6107-00 ")
 ;;4005
 ;;21,"54868-6107-01 ")
 ;;4006
 ;;21,"54868-6108-00 ")
 ;;3596
 ;;21,"54868-6108-01 ")
 ;;3597
 ;;21,"54868-6109-00 ")
 ;;3648
 ;;21,"54868-6109-01 ")
 ;;3649
 ;;21,"54868-6110-00 ")
 ;;3716
 ;;21,"54868-6110-01 ")
 ;;3717
 ;;21,"54868-6117-00 ")
 ;;4089
 ;;21,"54868-6123-00 ")
 ;;4386
 ;;21,"54868-6193-00 ")
 ;;4263
 ;;21,"54868-6194-00 ")
 ;;4410
 ;;21,"54868-6250-00 ")
 ;;3487
 ;;21,"55045-1820-08 ")
 ;;1487
 ;;21,"55045-2201-01 ")
 ;;950
 ;;21,"55045-2376-00 ")
 ;;1186
 ;;21,"55045-2376-08 ")
 ;;1187
 ;;21,"55045-2376-09 ")
 ;;1188
 ;;21,"55045-2424-00 ")
 ;;1332
 ;;21,"55045-2424-06 ")
 ;;1333
 ;;21,"55045-2799-00 ")
 ;;1740
 ;;21,"55045-2827-00 ")
 ;;1368
 ;;21,"55045-2827-08 ")
 ;;1369
 ;;21,"55045-2832-00 ")
 ;;1602
 ;;21,"55045-2832-08 ")
 ;;1603
 ;;21,"55045-2929-06 ")
 ;;2078
 ;;21,"55045-2929-08 ")
 ;;2079
 ;;21,"55045-2936-00 ")
 ;;2522
 ;;21,"55045-2937-00 ")
 ;;2080
 ;;21,"55045-2938-00 ")
 ;;2986
 ;;21,"55045-2938-08 ")
 ;;2987
 ;;21,"55045-2975-00 ")
 ;;2834
 ;;21,"55045-2975-06 ")
 ;;2835
 ;;21,"55045-2975-08 ")
 ;;2836
 ;;21,"55045-3000-00 ")
 ;;527
 ;;21,"55045-3059-00 ")
 ;;2296
 ;;21,"55045-3059-08 ")
 ;;2297
 ;;21,"55045-3159-00 ")
 ;;447
 ;;21,"55045-3225-06 ")
 ;;628
 ;;21,"55045-3373-08 ")
 ;;354
 ;;21,"55045-3401-08 ")
 ;;4144
 ;;21,"55045-3409-09 ")
 ;;4348
 ;;21,"55045-3772-08 ")
 ;;2521
 ;;21,"55048-0020-30 ")
 ;;104
 ;;21,"55048-0021-30 ")
 ;;7
 ;;21,"55048-0022-30 ")
 ;;124
 ;;21,"55048-0023-30 ")
 ;;3501
 ;;21,"55048-0024-30 ")
 ;;3504
 ;;21,"55048-0039-30 ")
 ;;855
 ;;21,"55048-0040-30 ")
 ;;936
 ;;21,"55048-0043-30 ")
 ;;780
 ;;21,"55111-0133-01 ")
 ;;353
 ;;21,"55111-0134-01 ")
 ;;328
 ;;21,"55111-0338-01 ")
 ;;67
 ;;21,"55111-0339-01 ")
 ;;102
 ;;21,"55111-0339-05 ")
 ;;103
 ;;21,"55111-0340-01 ")
 ;;125
 ;;21,"55111-0340-05 ")
 ;;126
 ;;21,"55111-0341-01 ")
 ;;5
 ;;21,"55111-0341-05 ")
 ;;6
 ;;21,"55111-0438-90 ")
 ;;3217
 ;;21,"55111-0439-05 ")
 ;;3316
 ;;21,"55111-0439-90 ")
 ;;3317
 ;;21,"55111-0440-05 ")
 ;;3378
 ;;21,"55111-0440-90 ")
 ;;3379
 ;;21,"55111-0441-05 ")
 ;;3258
 ;;21,"55111-0441-90 ")
 ;;3259
 ;;21,"55111-0586-01 ")
 ;;43
 ;;21,"55111-0587-01 ")
 ;;166
 ;;21,"55111-0621-90 ")
 ;;3207
 ;;21,"55111-0622-90 ")
 ;;3115
 ;;21,"55111-0623-90 ")
 ;;3146
 ;;21,"55111-0624-90 ")
 ;;3181
 ;;21,"55289-0039-30 ")
 ;;162