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

BGP44O6.m

Go to the documentation of this file.
BGP44O6 ;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,"54569-6092-01 ")
 ;;3040
 ;;21,"54569-6098-00 ")
 ;;861
 ;;21,"54569-6110-01 ")
 ;;3683
 ;;21,"54569-6111-00 ")
 ;;1921
 ;;21,"54569-6111-01 ")
 ;;1922
 ;;21,"54569-6112-00 ")
 ;;1977
 ;;21,"54569-6112-01 ")
 ;;1978
 ;;21,"54569-6173-00 ")
 ;;2350
 ;;21,"54569-6173-01 ")
 ;;2351
 ;;21,"54569-6180-00 ")
 ;;3508
 ;;21,"54569-6180-01 ")
 ;;3509
 ;;21,"54569-6182-00 ")
 ;;3437
 ;;21,"54569-6182-01 ")
 ;;3438
 ;;21,"54569-6223-00 ")
 ;;3383
 ;;21,"54569-6228-00 ")
 ;;3121
 ;;21,"54569-6228-01 ")
 ;;3122
 ;;21,"54569-6273-00 ")
 ;;2607
 ;;21,"54569-6274-00 ")
 ;;2608
 ;;21,"54569-6294-00 ")
 ;;2261
 ;;21,"54569-6294-01 ")
 ;;2262
 ;;21,"54569-6297-00 ")
 ;;2439
 ;;21,"54569-6309-00 ")
 ;;2161
 ;;21,"54868-0009-00 ")
 ;;3278
 ;;21,"54868-0009-01 ")
 ;;3279
 ;;21,"54868-1502-00 ")
 ;;1464
 ;;21,"54868-1802-00 ")
 ;;3189
 ;;21,"54868-1960-00 ")
 ;;1082
 ;;21,"54868-1970-01 ")
 ;;1266
 ;;21,"54868-1970-02 ")
 ;;1267
 ;;21,"54868-1970-03 ")
 ;;1268
 ;;21,"54868-2335-00 ")
 ;;2379
 ;;21,"54868-2335-01 ")
 ;;2380
 ;;21,"54868-2350-01 ")
 ;;74
 ;;21,"54868-2350-02 ")
 ;;75
 ;;21,"54868-2350-03 ")
 ;;76
 ;;21,"54868-2350-04 ")
 ;;77
 ;;21,"54868-2351-00 ")
 ;;153
 ;;21,"54868-2351-02 ")
 ;;154
 ;;21,"54868-2351-03 ")
 ;;155
 ;;21,"54868-2352-00 ")
 ;;215
 ;;21,"54868-2352-01 ")
 ;;216
 ;;21,"54868-2644-01 ")
 ;;1834
 ;;21,"54868-2644-02 ")
 ;;1835
 ;;21,"54868-2645-01 ")
 ;;1879
 ;;21,"54868-2645-02 ")
 ;;1880
 ;;21,"54868-2645-03 ")
 ;;1881
 ;;21,"54868-2665-00 ")
 ;;1725
 ;;21,"54868-2665-01 ")
 ;;1726
 ;;21,"54868-2666-01 ")
 ;;1752
 ;;21,"54868-2666-02 ")
 ;;1753
 ;;21,"54868-2666-03 ")
 ;;1754
 ;;21,"54868-2666-04 ")
 ;;1755
 ;;21,"54868-2847-00 ")
 ;;3205
 ;;21,"54868-3307-00 ")
 ;;1706
 ;;21,"54868-3307-01 ")
 ;;1707
 ;;21,"54868-3443-00 ")
 ;;3173
 ;;21,"54868-3443-01 ")
 ;;3174
 ;;21,"54868-3445-00 ")
 ;;1781
 ;;21,"54868-3445-01 ")
 ;;1782
 ;;21,"54868-3723-01 ")
 ;;236
 ;;21,"54868-3723-02 ")
 ;;237
 ;;21,"54868-3723-03 ")
 ;;238
 ;;21,"54868-3723-04 ")
 ;;239
 ;;21,"54868-3723-05 ")
 ;;240
 ;;21,"54868-3724-01 ")
 ;;278
 ;;21,"54868-3724-02 ")
 ;;279
 ;;21,"54868-3724-03 ")
 ;;280
 ;;21,"54868-3724-04 ")
 ;;281
 ;;21,"54868-3725-01 ")
 ;;363
 ;;21,"54868-3725-02 ")
 ;;364
 ;;21,"54868-3725-03 ")
 ;;365
 ;;21,"54868-3725-04 ")
 ;;366
 ;;21,"54868-3726-00 ")
 ;;2298
 ;;21,"54868-3726-01 ")
 ;;2299
 ;;21,"54868-3726-02 ")
 ;;2300
 ;;21,"54868-3846-00 ")
 ;;1933
 ;;21,"54868-3846-02 ")
 ;;1934
 ;;21,"54868-3846-03 ")
 ;;1935
 ;;21,"54868-3866-00 ")
 ;;3350
 ;;21,"54868-3866-01 ")
 ;;3351
 ;;21,"54868-3906-00 ")
 ;;2847
 ;;21,"54868-3906-01 ")
 ;;2848
 ;;21,"54868-3906-02 ")
 ;;2849
 ;;21,"54868-4003-00 ")
 ;;3080
 ;;21,"54868-4062-00 ")
 ;;2881
 ;;21,"54868-4062-01 ")
 ;;2882
 ;;21,"54868-4066-00 ")
 ;;2634
 ;;21,"54868-4066-01 ")
 ;;2635
 ;;21,"54868-4073-00 ")
 ;;2675
 ;;21,"54868-4073-01 ")
 ;;2676
 ;;21,"54868-4073-02 ")
 ;;2677
 ;;21,"54868-4073-03 ")
 ;;2678
 ;;21,"54868-4074-00 ")
 ;;2724
 ;;21,"54868-4074-01 ")
 ;;2725
 ;;21,"54868-4074-02 ")
 ;;2726
 ;;21,"54868-4074-03 ")
 ;;2727
 ;;21,"54868-4074-04 ")
 ;;2728
 ;;21,"54868-4199-00 ")
 ;;2131
 ;;21,"54868-4199-01 ")
 ;;2132
 ;;21,"54868-4199-02 ")
 ;;2104
 ;;21,"54868-4331-00 ")
 ;;652
 ;;21,"54868-4331-01 ")
 ;;653
 ;;21,"54868-4331-02 ")
 ;;654
 ;;21,"54868-4331-03 ")
 ;;655
 ;;21,"54868-4332-00 ")
 ;;426
 ;;21,"54868-4332-01 ")
 ;;427
 ;;21,"54868-4332-02 ")
 ;;428
 ;;21,"54868-4341-00 ")
 ;;3453
 ;;21,"54868-4341-01 ")
 ;;3454
 ;;21,"54868-4357-00 ")
 ;;458
 ;;21,"54868-4357-01 ")
 ;;459
 ;;21,"54868-4357-02 ")
 ;;460
 ;;21,"54868-4357-03 ")
 ;;461
 ;;21,"54868-4358-00 ")
 ;;563
 ;;21,"54868-4358-01 ")
 ;;564
 ;;21,"54868-4358-02 ")
 ;;565
 ;;21,"54868-4358-03 ")
 ;;566
 ;;21,"54868-4413-00 ")
 ;;2042
 ;;21,"54868-4414-00 ")
 ;;2182
 ;;21,"54868-4414-01 ")
 ;;2183
 ;;21,"54868-4425-00 ")
 ;;3568
 ;;21,"54868-4425-03 ")
 ;;3569
 ;;21,"54868-4428-00 ")
 ;;3605
 ;;21,"54868-4428-02 ")
 ;;3606
 ;;21,"54868-4428-03 ")
 ;;3607
 ;;21,"54868-4479-00 ")
 ;;3181
 ;;21,"54868-4479-01 ")
 ;;3182
 ;;21,"54868-4479-02 ")
 ;;3183
 ;;21,"54868-4494-00 ")
 ;;3290
 ;;21,"54868-4526-00 ")
 ;;3318
 ;;21,"54868-4526-01 ")
 ;;3319
 ;;21,"54868-4539-01 ")
 ;;2512
 ;;21,"54868-4540-01 ")
 ;;3547
 ;;21,"54868-4540-02 ")
 ;;3548
 ;;21,"54868-4552-00 ")
 ;;1695
 ;;21,"54868-4552-01 ")
 ;;1696
 ;;21,"54868-4555-00 ")
 ;;1702
 ;;21,"54868-4555-01 ")
 ;;1703
 ;;21,"54868-4605-01 ")
 ;;2513
 ;;21,"54868-4605-02 ")
 ;;2514
 ;;21,"54868-4612-00 ")
 ;;2062
 ;;21,"54868-4637-00 ")
 ;;3000
 ;;21,"54868-4637-01 ")
 ;;3001
 ;;21,"54868-4637-02 ")
 ;;3002
 ;;21,"54868-4637-03 ")
 ;;3003
 ;;21,"54868-4637-04 ")
 ;;3004
 ;;21,"54868-4645-00 ")
 ;;2569
 ;;21,"54868-4645-01 ")
 ;;2570
 ;;21,"54868-4645-02 ")
 ;;2571
 ;;21,"54868-4645-03 ")
 ;;2572
 ;;21,"54868-4646-00 ")
 ;;1579
 ;;21,"54868-4646-02 ")
 ;;1580
 ;;21,"54868-4646-03 ")
 ;;1581
 ;;21,"54868-4646-04 ")
 ;;1582
 ;;21,"54868-4646-05 ")
 ;;1583
 ;;21,"54868-4652-00 ")
 ;;2541
 ;;21,"54868-4652-01 ")
 ;;2542
 ;;21,"54868-4652-02 ")
 ;;2543
 ;;21,"54868-4652-03 ")
 ;;2544
 ;;21,"54868-4652-04 ")
 ;;2545
 ;;21,"54868-4652-05 ")
 ;;2546
 ;;21,"54868-4656-00 ")
 ;;907
 ;;21,"54868-4656-01 ")
 ;;908
 ;;21,"54868-4656-02 ")
 ;;909
 ;;21,"54868-4656-03 ")
 ;;910
 ;;21,"54868-4657-00 ")
 ;;1101
 ;;21,"54868-4657-01 ")
 ;;1102
 ;;21,"54868-4657-02 ")
 ;;1103
 ;;21,"54868-4657-03 ")
 ;;1104
 ;;21,"54868-4657-04 ")
 ;;1105
 ;;21,"54868-4657-06 ")
 ;;1106
 ;;21,"54868-4658-00 ")
 ;;1393
 ;;21,"54868-4658-01 ")
 ;;1394
 ;;21,"54868-4658-02 ")
 ;;1395
 ;;21,"54868-4658-03 ")
 ;;1396
 ;;21,"54868-4658-04 ")
 ;;1397
 ;;21,"54868-4678-00 ")
 ;;980
 ;;21,"54868-4678-01 ")
 ;;981
 ;;21,"54868-4678-02 ")
 ;;982
 ;;21,"54868-4678-03 ")
 ;;983
 ;;21,"54868-4729-00 ")
 ;;3248
 ;;21,"54868-4780-00 ")
 ;;1497
 ;;21,"54868-4780-01 ")
 ;;1498
 ;;21,"54868-4785-00 ")
 ;;3108
 ;;21,"54868-4785-01 ")
 ;;3109
 ;;21,"54868-4785-02 ")
 ;;3110
 ;;21,"54868-4785-03 ")
 ;;3111
 ;;21,"54868-4869-00 ")
 ;;3258
 ;;21,"54868-4870-00 ")
 ;;2791
 ;;21,"54868-4870-01 ")
 ;;2792
 ;;21,"54868-4870-02 ")
 ;;2793
 ;;21,"54868-4885-00 ")
 ;;2490
 ;;21,"54868-4885-01 ")
 ;;2491
 ;;21,"54868-4904-00 ")
 ;;2860
 ;;21,"54868-4904-01 ")
 ;;2861
 ;;21,"54868-4977-00 ")
 ;;2985
 ;;21,"54868-4977-01 ")
 ;;2986
 ;;21,"54868-4977-02 ")
 ;;2987
 ;;21,"54868-4986-00 ")
 ;;2461
 ;;21,"54868-4986-01 ")
 ;;2462
 ;;21,"54868-4986-02 ")
 ;;2463
 ;;21,"54868-5001-00 ")
 ;;52
 ;;21,"54868-5001-01 ")
 ;;53
 ;;21,"54868-5055-00 ")
 ;;801
 ;;21,"54868-5064-00 ")
 ;;754
 ;;21,"54868-5064-01 ")
 ;;755
 ;;21,"54868-5075-00 ")
 ;;3528
 ;;21,"54868-5075-01 ")
 ;;3529
 ;;21,"54868-5077-00 ")
 ;;2230
 ;;21,"54868-5078-00 ")
 ;;3533
 ;;21,"54868-5078-01 ")
 ;;3535
 ;;21,"54868-5079-00 ")
 ;;117
 ;;21,"54868-5079-01 ")
 ;;118
 ;;21,"54868-5079-02 ")
 ;;119
 ;;21,"54868-5082-00 ")
 ;;2592
 ;;21,"54868-5082-02 ")
 ;;2593
 ;;21,"54868-5082-03 ")
 ;;2594
 ;;21,"54868-5099-00 ")
 ;;2013
 ;;21,"54868-5099-01 ")
 ;;2014
 ;;21,"54868-5100-00 ")
 ;;2902
 ;;21,"54868-5100-01 ")
 ;;2903
 ;;21,"54868-5100-02 ")
 ;;2904
 ;;21,"54868-5170-00 ")
 ;;3514
 ;;21,"54868-5170-01 ")
 ;;3515
 ;;21,"54868-5182-00 ")
 ;;843
 ;;21,"54868-5182-01 ")
 ;;844
 ;;21,"54868-5182-02 ")
 ;;845
 ;;21,"54868-5196-00 ")
 ;;396
 ;;21,"54868-5196-01 ")
 ;;397
 ;;21,"54868-5196-02 ")
 ;;398
 ;;21,"54868-5204-00 ")
 ;;169
 ;;21,"54868-5204-01 ")
 ;;170
 ;;21,"54868-5204-02 ")
 ;;171
 ;;21,"54868-5204-03 ")
 ;;172
 ;;21,"54868-5241-00 ")
 ;;1773
 ;;21,"54868-5241-01 ")
 ;;1774
 ;;21,"54868-5241-02 ")
 ;;1775
 ;;21,"54868-5245-00 ")
 ;;1744
 ;;21,"54868-5245-01 ")
 ;;1745
 ;;21,"54868-5245-02 ")
 ;;1746
 ;;21,"54868-5246-00 ")
 ;;1808
 ;;21,"54868-5246-01 ")
 ;;1809
 ;;21,"54868-5246-02 ")
 ;;1810
 ;;21,"54868-5256-00 ")
 ;;2845
 ;;21,"54868-5279-00 ")
 ;;1720
 ;;21,"54868-5281-01 ")
 ;;3275
 ;;21,"54868-5296-00 ")
 ;;2872
 ;;21,"54868-5297-00 ")
 ;;3553
 ;;21,"54868-5311-00 ")
 ;;2825
 ;;21,"54868-5311-01 ")
 ;;2826
 ;;21,"54868-5313-00 ")
 ;;2873
 ;;21,"54868-5313-01 ")
 ;;2874
 ;;21,"54868-5320-00 ")
 ;;2829
 ;;21,"54868-5320-01 ")
 ;;2830
 ;;21,"54868-5320-03 ")
 ;;2831
 ;;21,"54868-5320-04 ")
 ;;2832
 ;;21,"54868-5323-00 ")
 ;;3642
 ;;21,"54868-5323-01 ")
 ;;3654
 ;;21,"54868-5346-00 ")
 ;;2921
 ;;21,"54868-5346-01 ")
 ;;2922
 ;;21,"54868-5392-00 ")
 ;;20
 ;;21,"54868-5418-00 ")
 ;;3543
 ;;21,"54868-5469-00 ")
 ;;2925
 ;;21,"54868-5469-01 ")
 ;;2926
 ;;21,"54868-5475-00 ")
 ;;3208
 ;;21,"54868-5489-00 ")
 ;;2037
 ;;21,"54868-5503-00 ")
 ;;2894
 ;;21,"54868-5503-01 ")
 ;;2895
 ;;21,"54868-5548-02 ")
 ;;2823
 ;;21,"54868-5591-00 ")
 ;;2032
 ;;21,"54868-5607-00 ")
 ;;3710
 ;;21,"54868-5607-01 ")
 ;;3711
 ;;21,"54868-5690-00 ")
 ;;2814
 ;;21,"54868-5690-01 ")
 ;;2815
 ;;21,"54868-5690-02 ")
 ;;2816
 ;;21,"54868-5690-03 ")
 ;;2817
 ;;21,"54868-5705-00 ")
 ;;3408
 ;;21,"54868-5747-00 ")
 ;;1814
 ;;21,"54868-5747-01 ")
 ;;1815
 ;;21,"54868-5772-00 ")
 ;;2603
 ;;21,"54868-5780-00 ")
 ;;3680
 ;;21,"54868-5780-01 ")
 ;;3681
 ;;21,"54868-5781-00 ")
 ;;2773
 ;;21,"54868-5781-01 ")
 ;;2774
 ;;21,"54868-5781-02 ")
 ;;2775
 ;;21,"54868-5781-03 ")
 ;;2776
 ;;21,"54868-5782-00 ")
 ;;2703
 ;;21,"54868-5782-01 ")
 ;;2704
 ;;21,"54868-5782-02 ")
 ;;2705
 ;;21,"54868-5782-03 ")
 ;;2706
 ;;21,"54868-5782-04 ")
 ;;2707
 ;;21,"54868-5783-00 ")
 ;;2749
 ;;21,"54868-5783-01 ")
 ;;2750
 ;;21,"54868-5787-00 ")
 ;;2878
 ;;21,"54868-5792-00 ")
 ;;2666
 ;;21,"54868-5792-01 ")
 ;;2667
 ;;21,"54868-5792-02 ")
 ;;2668
 ;;21,"54868-5793-00 ")
 ;;2627
 ;;21,"54868-5793-01 ")
 ;;2628
 ;;21,"54868-5804-00 ")
 ;;3235
 ;;21,"54868-5842-00 ")
 ;;1928
 ;;21,"54868-5842-01 ")
 ;;1929
 ;;21,"54868-5842-02 ")
 ;;1930
 ;;21,"54868-5842-03 ")
 ;;1931
 ;;21,"54868-5843-00 ")
 ;;1982
 ;;21,"54868-5843-01 ")
 ;;1983
 ;;21,"54868-5843-02 ")
 ;;1984
 ;;21,"54868-5843-03 ")
 ;;1985
 ;;21,"54868-5856-00 ")
 ;;1873
 ;;21,"54868-5856-01 ")
 ;;1874
 ;;21,"54868-5896-00 ")
 ;;1826
 ;;21,"54868-5928-00 ")
 ;;1679
 ;;21,"54868-5977-00 ")
 ;;2527
 ;;21,"54868-5983-00 ")
 ;;3238
 ;;21,"54868-5983-01 ")
 ;;3239
 ;;21,"54868-5996-00 ")
 ;;3233
 ;;21,"54868-5996-01 ")
 ;;3234
 ;;21,"54868-5997-00 ")
 ;;3229
 ;;21,"54868-5997-01 ")
 ;;3230
 ;;21,"54868-6036-00 ")
 ;;3216
 ;;21,"54868-6041-00 ")
 ;;3741
 ;;21,"54868-6042-00 ")
 ;;2612
 ;;21,"54868-6061-00 ")
 ;;2022
 ;;21,"54868-6061-01 ")
 ;;2023
 ;;21,"54868-6103-00 ")
 ;;3745
 ;;21,"54868-6104-00 ")
 ;;2326
 ;;21,"54868-6104-01 ")
 ;;2327
 ;;21,"54868-6107-00 ")
 ;;2410
 ;;21,"54868-6107-01 ")
 ;;2411
 ;;21,"54868-6108-00 ")
 ;;3432
 ;;21,"54868-6108-01 ")
 ;;3433
 ;;21,"54868-6109-00 ")
 ;;3483
 ;;21,"54868-6109-01 ")
 ;;3484
 ;;21,"54868-6110-00 ")
 ;;3375
 ;;21,"54868-6110-01 ")
 ;;3376
 ;;21,"54868-6117-00 ")
 ;;2252
 ;;21,"54868-6123-00 ")
 ;;3730
 ;;21,"54868-6193-00 ")
 ;;2501
 ;;21,"54868-6194-00 ")
 ;;3746
 ;;21,"54868-6250-00 ")
 ;;3226
 ;;21,"54868-6297-00 ")
 ;;2812
 ;;21,"55045-2201-01 ")
 ;;213
 ;;21,"55045-2376-00 ")
 ;;258
 ;;21,"55045-2376-08 ")
 ;;259
 ;;21,"55045-2376-09 ")
 ;;260
 ;;21,"55045-2424-00 ")
 ;;384
 ;;21,"55045-2424-06 ")
 ;;385
 ;;21,"55045-2799-00 ")
 ;;531
 ;;21,"55045-2827-00 ")
 ;;633
 ;;21,"55045-2827-08 ")
 ;;634
 ;;21,"55045-2832-00 ")
 ;;724
 ;;21,"55045-2832-08 ")
 ;;725
 ;;21,"55045-2929-06 ")
 ;;1121
 ;;21,"55045-2929-08 ")
 ;;1122
 ;;21,"55045-2936-00 ")
 ;;1386
 ;;21,"55045-2937-00 ")
 ;;1123
 ;;21,"55045-2938-00 ")
 ;;995
 ;;21,"55045-2938-08 ")
 ;;996
 ;;21,"55045-2975-00 ")
 ;;1574
 ;;21,"55045-2975-06 ")
 ;;1575
 ;;21,"55045-2975-08 ")
 ;;1576
 ;;21,"55045-3000-00 ")
 ;;3010
 ;;21,"55045-3059-00 ")
 ;;898
 ;;21,"55045-3059-08 ")
 ;;899
 ;;21,"55045-3159-00 ")
 ;;2932
 ;;21,"55045-3225-06 ")
 ;;3114
 ;;21,"55045-3373-08 ")
 ;;2884
 ;;21,"55045-3401-08 ")
 ;;2302
 ;;21,"55045-3409-09 ")
 ;;2553
 ;;21,"55045-3642-09 ")
 ;;1750
 ;;21,"55045-3643-09 ")
 ;;1766
 ;;21,"55045-3644-09 ")
 ;;1803
 ;;21,"55045-3772-08 ")
 ;;1458
 ;;21,"55048-0020-30 ")
 ;;2636
 ;;21,"55048-0021-30 ")
 ;;2764
 ;;21,"55048-0022-30 ")
 ;;2681
 ;;21,"55048-0023-30 ")
 ;;3240
 ;;21,"55048-0024-30 ")
 ;;3228
 ;;21,"55048-0039-30 ")
 ;;85
 ;;21,"55048-0040-30 ")
 ;;168
 ;;21,"55048-0043-30 ")
 ;;34
 ;;21,"55048-0123-30 ")
 ;;2711
 ;;21,"55048-0124-30 ")
 ;;2754
 ;;21,"55048-0125-30 ")
 ;;2808
 ;;21,"55048-0220-30 ")
 ;;411
 ;;21,"55048-0221-30 ")
 ;;578
 ;;21,"55048-0222-30 ")
 ;;673
 ;;21,"55048-0223-30 ")
 ;;480