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

BGP47Y9.m

Go to the documentation of this file.
BGP47Y9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;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,"54868-6041-00 ")
 ;;5221
 ;;21,"54868-6042-00 ")
 ;;3719
 ;;21,"54868-6061-00 ")
 ;;3016
 ;;21,"54868-6061-01 ")
 ;;3017
 ;;21,"54868-6103-00 ")
 ;;5225
 ;;21,"54868-6104-00 ")
 ;;3424
 ;;21,"54868-6104-01 ")
 ;;3425
 ;;21,"54868-6107-00 ")
 ;;3517
 ;;21,"54868-6107-01 ")
 ;;3518
 ;;21,"54868-6108-00 ")
 ;;4865
 ;;21,"54868-6108-01 ")
 ;;4866
 ;;21,"54868-6109-00 ")
 ;;4930
 ;;21,"54868-6109-01 ")
 ;;4931
 ;;21,"54868-6110-00 ")
 ;;4806
 ;;21,"54868-6110-01 ")
 ;;4794
 ;;21,"54868-6117-00 ")
 ;;3319
 ;;21,"54868-6117-01 ")
 ;;3246
 ;;21,"54868-6117-02 ")
 ;;3247
 ;;21,"54868-6123-00 ")
 ;;5210
 ;;21,"54868-6193-00 ")
 ;;3587
 ;;21,"54868-6194-00 ")
 ;;5226
 ;;21,"54868-6250-00 ")
 ;;4599
 ;;21,"54868-6297-00 ")
 ;;3950
 ;;21,"55045-1820-08 ")
 ;;1084
 ;;21,"55045-2201-01 ")
 ;;327
 ;;21,"55045-2376-00 ")
 ;;456
 ;;21,"55045-2376-08 ")
 ;;457
 ;;21,"55045-2376-09 ")
 ;;458
 ;;21,"55045-2424-00 ")
 ;;567
 ;;21,"55045-2424-06 ")
 ;;568
 ;;21,"55045-2799-00 ")
 ;;896
 ;;21,"55045-2827-00 ")
 ;;1045
 ;;21,"55045-2827-08 ")
 ;;1046
 ;;21,"55045-2832-00 ")
 ;;1195
 ;;21,"55045-2832-08 ")
 ;;1196
 ;;21,"55045-2929-06 ")
 ;;1949
 ;;21,"55045-2929-08 ")
 ;;1950
 ;;21,"55045-2936-00 ")
 ;;2066
 ;;21,"55045-2937-00 ")
 ;;1951
 ;;21,"55045-2938-00 ")
 ;;1578
 ;;21,"55045-2938-08 ")
 ;;1579
 ;;21,"55045-2975-00 ")
 ;;2469
 ;;21,"55045-2975-06 ")
 ;;2470
 ;;21,"55045-2975-08 ")
 ;;2471
 ;;21,"55045-3000-00 ")
 ;;4314
 ;;21,"55045-3059-00 ")
 ;;1446
 ;;21,"55045-3059-08 ")
 ;;1447
 ;;21,"55045-3159-00 ")
 ;;4265
 ;;21,"55045-3225-06 ")
 ;;4480
 ;;21,"55045-3373-08 ")
 ;;4123
 ;;21,"55045-3401-08 ")
 ;;3330
 ;;21,"55045-3409-09 ")
 ;;3626
 ;;21,"55045-3642-09 ")
 ;;2627
 ;;21,"55045-3643-09 ")
 ;;2657
 ;;21,"55045-3644-09 ")
 ;;2695
 ;;21,"55045-3772-08 ")
 ;;2084
 ;;21,"55048-0020-30 ")
 ;;3754
 ;;21,"55048-0021-30 ")
 ;;3932
 ;;21,"55048-0022-30 ")
 ;;3805
 ;;21,"55048-0023-30 ")
 ;;4616
 ;;21,"55048-0024-30 ")
 ;;4605
 ;;21,"55048-0039-30 ")
 ;;170
 ;;21,"55048-0040-30 ")
 ;;300
 ;;21,"55048-0043-30 ")
 ;;68
 ;;21,"55048-0123-30 ")
 ;;3806
 ;;21,"55048-0124-30 ")
 ;;3931
 ;;21,"55048-0125-30 ")
 ;;3952
 ;;21,"55048-0220-30 ")
 ;;757
 ;;21,"55048-0221-30 ")
 ;;1069
 ;;21,"55048-0222-30 ")
 ;;1203
 ;;21,"55048-0223-30 ")
 ;;882
 ;;21,"55048-0250-30 ")
 ;;3686
 ;;21,"55048-0251-30 ")
 ;;3700
 ;;21,"55048-0252-30 ")
 ;;5118
 ;;21,"55048-0253-30 ")
 ;;5175
 ;;21,"55048-0277-30 ")
 ;;1070
 ;;21,"55048-0278-30 ")
 ;;1202
 ;;21,"55048-0283-30 ")
 ;;1408
 ;;21,"55048-0291-30 ")
 ;;1318
 ;;21,"55048-0375-30 ")
 ;;3148
 ;;21,"55048-0376-30 ")
 ;;3212
 ;;21,"55048-0387-30 ")
 ;;2209
 ;;21,"55048-0387-60 ")
 ;;2210
 ;;21,"55048-0387-90 ")
 ;;2211
 ;;21,"55048-0388-30 ")
 ;;2433
 ;;21,"55048-0388-60 ")
 ;;2418
 ;;21,"55048-0388-90 ")
 ;;2419
 ;;21,"55048-0389-30 ")
 ;;1819
 ;;21,"55048-0390-30 ")
 ;;4342
 ;;21,"55048-0390-60 ")
 ;;4343
 ;;21,"55048-0409-30 ")
 ;;4232
 ;;21,"55048-0410-30 ")
 ;;4410
 ;;21,"55048-0410-90 ")
 ;;4411
 ;;21,"55048-0429-30 ")
 ;;1679
 ;;21,"55048-0444-30 ")
 ;;3394
 ;;21,"55048-0445-30 ")
 ;;3505
 ;;21,"55048-0446-30 ")
 ;;4759
 ;;21,"55048-0447-30 ")
 ;;4842
 ;;21,"55048-0448-30 ")
 ;;4905
 ;;21,"55048-0463-30 ")
 ;;1818
 ;;21,"55048-0464-30 ")
 ;;2104
 ;;21,"55048-0465-30 ")
 ;;2417
 ;;21,"55048-0466-30 ")
 ;;4344
 ;;21,"55048-0471-30 ")
 ;;1820
 ;;21,"55048-0473-90 ")
 ;;2420
 ;;21,"55048-0619-30 ")
 ;;3601
 ;;21,"55048-0620-30 ")
 ;;3602
 ;;21,"55048-0621-30 ")
 ;;3584
 ;;21,"55048-0627-30 ")
 ;;2617
 ;;21,"55048-0627-90 ")
 ;;2618
 ;;21,"55048-0628-30 ")
 ;;2654
 ;;21,"55048-0628-90 ")
 ;;2655
 ;;21,"55048-0629-30 ")
 ;;2692
 ;;21,"55048-0629-90 ")
 ;;2693
 ;;21,"55111-0133-01 ")
 ;;4126
 ;;21,"55111-0134-01 ")
 ;;4163
 ;;21,"55111-0338-01 ")
 ;;3739
 ;;21,"55111-0339-01 ")
 ;;3755
 ;;21,"55111-0339-05 ")
 ;;3756
 ;;21,"55111-0340-01 ")
 ;;3811
 ;;21,"55111-0340-05 ")
 ;;3812
 ;;21,"55111-0341-01 ")
 ;;3925
 ;;21,"55111-0341-05 ")
 ;;3926
 ;;21,"55111-0438-90 ")
 ;;2737
 ;;21,"55111-0439-05 ")
 ;;2796
 ;;21,"55111-0439-90 ")
 ;;2797
 ;;21,"55111-0440-05 ")
 ;;2868
 ;;21,"55111-0440-90 ")
 ;;2869
 ;;21,"55111-0441-05 ")
 ;;2937
 ;;21,"55111-0441-90 ")
 ;;2938
 ;;21,"55111-0586-01 ")
 ;;3951
 ;;21,"55111-0587-01 ")
 ;;3872
 ;;21,"55111-0621-90 ")
 ;;2591
 ;;21,"55111-0622-90 ")
 ;;2624
 ;;21,"55111-0623-90 ")
 ;;2660
 ;;21,"55111-0624-90 ")
 ;;2703
 ;;21,"55289-0039-30 ")
 ;;3857
 ;;21,"55289-0086-30 ")
 ;;229
 ;;21,"55289-0096-30 ")
 ;;3804
 ;;21,"55289-0106-30 ")
 ;;2256
 ;;21,"55289-0109-30 ")
 ;;130
 ;;21,"55289-0109-97 ")
 ;;131
 ;;21,"55289-0212-30 ")
 ;;555
 ;;21,"55289-0212-90 ")
 ;;556
 ;;21,"55289-0238-30 ")
 ;;3452
 ;;21,"55289-0344-30 ")
 ;;525
 ;;21,"55289-0344-90 ")
 ;;526
 ;;21,"55289-0436-30 ")
 ;;3574
 ;;21,"55289-0443-30 ")
 ;;4975
 ;;21,"55289-0483-30 ")
 ;;1073
 ;;21,"55289-0484-30 ")
 ;;4175
 ;;21,"55289-0506-30 ")
 ;;407
 ;;21,"55289-0506-97 ")
 ;;408
 ;;21,"55289-0509-30 ")
 ;;1985
 ;;21,"55289-0522-30 ")
 ;;4882
 ;;21,"55289-0552-30 ")
 ;;2585
 ;;21,"55289-0553-30 ")
 ;;2615
 ;;21,"55289-0554-30 ")
 ;;2650
 ;;21,"55289-0555-30 ")
 ;;2689
 ;;21,"55289-0573-30 ")
 ;;4507
 ;;21,"55289-0577-30 ")
 ;;2255
 ;;21,"55289-0591-30 ")
 ;;925
 ;;21,"55289-0591-90 ")
 ;;926
 ;;21,"55289-0622-03 ")
 ;;915
 ;;21,"55289-0622-30 ")
 ;;916
 ;;21,"55289-0638-01 ")
 ;;1952
 ;;21,"55289-0638-12 ")
 ;;1953
 ;;21,"55289-0638-14 ")
 ;;1954
 ;;21,"55289-0638-30 ")
 ;;1955
 ;;21,"55289-0638-60 ")
 ;;1956
 ;;21,"55289-0638-90 ")
 ;;1957
 ;;21,"55289-0638-98 ")
 ;;1958
 ;;21,"55289-0694-10 ")
 ;;793
 ;;21,"55289-0694-30 ")
 ;;794
 ;;21,"55289-0694-90 ")
 ;;795
 ;;21,"55289-0696-14 ")
 ;;2085
 ;;21,"55289-0696-30 ")
 ;;2086
 ;;21,"55289-0696-60 ")
 ;;2087
 ;;21,"55289-0696-90 ")
 ;;2088
 ;;21,"55289-0696-98 ")
 ;;2089
 ;;21,"55289-0815-30 ")
 ;;5022
 ;;21,"55289-0817-30 ")
 ;;3685
 ;;21,"55289-0820-30 ")
 ;;5109
 ;;21,"55289-0825-30 ")
 ;;3632
 ;;21,"55289-0838-30 ")
 ;;5072
 ;;21,"55289-0867-30 ")
 ;;2892
 ;;21,"55289-0876-30 ")
 ;;3702
 ;;21,"55289-0878-30 ")
 ;;4489
 ;;21,"55289-0884-30 ")
 ;;1553
 ;;21,"55289-0884-90 ")
 ;;1554
 ;;21,"55289-0917-30 ")
 ;;2504
 ;;21,"55289-0917-90 ")
 ;;2505
 ;;21,"55289-0929-08 ")
 ;;1969
 ;;21,"55289-0929-30 ")
 ;;1970
 ;;21,"55289-0963-30 ")
 ;;14
 ;;21,"55289-0981-30 ")
 ;;3938
 ;;21,"55289-0984-30 ")
 ;;1187
 ;;21,"55370-0142-07 ")
 ;;523
 ;;21,"55370-0142-09 ")
 ;;524
 ;;21,"55370-0144-07 ")
 ;;623
 ;;21,"55370-0144-09 ")
 ;;624
 ;;21,"55370-0145-07 ")
 ;;667
 ;;21,"55370-0164-07 ")
 ;;397
 ;;21,"55370-0164-09 ")
 ;;398
 ;;21,"55700-0011-30 ")
 ;;3897
 ;;21,"55700-0011-60 ")
 ;;3898
 ;;21,"55700-0011-90 ")
 ;;3899
 ;;21,"55700-0012-30 ")
 ;;3956
 ;;21,"55700-0012-60 ")
 ;;3957
 ;;21,"55700-0012-90 ")
 ;;3958
 ;;21,"55700-0014-30 ")
 ;;5201
 ;;21,"55700-0014-60 ")
 ;;5202
 ;;21,"55700-0023-30 ")
 ;;5173
 ;;21,"55700-0023-60 ")
 ;;5174
 ;;21,"55700-0032-30 ")
 ;;755
 ;;21,"55700-0037-30 ")
 ;;2214
 ;;21,"55700-0037-60 ")
 ;;2215
 ;;21,"55700-0037-90 ")
 ;;2216
 ;;21,"55700-0059-90 ")
 ;;4788
 ;;21,"55700-0077-90 ")
 ;;4850
 ;;21,"55887-0099-30 ")
 ;;756
 ;;21,"55887-0223-30 ")
 ;;243
 ;;21,"55887-0227-30 ")
 ;;1161
 ;;21,"55887-0227-60 ")
 ;;1162
 ;;21,"55887-0322-30 ")
 ;;171
 ;;21,"55887-0366-30 ")
 ;;4026
 ;;21,"55887-0366-60 ")
 ;;4027
 ;;21,"55887-0366-90 ")
 ;;4028
 ;;21,"55887-0392-30 ")
 ;;3689
 ;;21,"55887-0392-60 ")
 ;;3690
 ;;21,"55887-0392-90 ")
 ;;3691
 ;;21,"55887-0425-30 ")
 ;;4272
 ;;21,"55887-0425-60 ")
 ;;4273
 ;;21,"55887-0425-82 ")
 ;;4274
 ;;21,"55887-0425-90 ")
 ;;4275
 ;;21,"55887-0426-30 ")
 ;;4299
 ;;21,"55887-0426-60 ")
 ;;4300
 ;;21,"55887-0426-82 ")
 ;;4301
 ;;21,"55887-0426-90 ")
 ;;4302
 ;;21,"55887-0432-30 ")
 ;;3248
 ;;21,"55887-0432-60 ")
 ;;3249
 ;;21,"55887-0432-90 ")
 ;;3250
 ;;21,"55887-0532-30 ")
 ;;4481
 ;;21,"55887-0532-90 ")
 ;;4482
 ;;21,"55887-0558-30 ")
 ;;1130
 ;;21,"55887-0558-60 ")
 ;;1131
 ;;21,"55887-0558-82 ")
 ;;1132
 ;;21,"55887-0558-90 ")
 ;;1133
 ;;21,"55887-0569-30 ")
 ;;2474
 ;;21,"55887-0569-60 ")
 ;;2452
 ;;21,"55887-0569-82 ")
 ;;2453
 ;;21,"55887-0569-90 ")
 ;;2454
 ;;21,"55887-0581-30 ")
 ;;2189
 ;;21,"55887-0581-60 ")
 ;;2190
 ;;21,"55887-0581-82 ")
 ;;2191
 ;;21,"55887-0581-90 ")
 ;;2192
 ;;21,"55887-0582-30 ")
 ;;569
 ;;21,"55887-0582-60 ")
 ;;570
 ;;21,"55887-0582-90 ")
 ;;571
 ;;21,"55887-0589-30 ")
 ;;1683
 ;;21,"55887-0589-60 ")
 ;;1684
 ;;21,"55887-0589-82 ")
 ;;1685
 ;;21,"55887-0589-90 ")
 ;;1686
 ;;21,"55887-0590-30 ")
 ;;1482
 ;;21,"55887-0590-60 ")
 ;;1483
 ;;21,"55887-0590-82 ")
 ;;1484
 ;;21,"55887-0590-90 ")
 ;;1485
 ;;21,"55887-0591-01 ")
 ;;1843
 ;;21,"55887-0591-20 ")
 ;;1844
 ;;21,"55887-0591-30 ")
 ;;1845
 ;;21,"55887-0591-60 ")
 ;;1846
 ;;21,"55887-0591-82 ")
 ;;1847
 ;;21,"55887-0591-90 ")
 ;;1848
 ;;21,"55887-0594-30 ")
 ;;4138
 ;;21,"55887-0594-60 ")
 ;;4139
 ;;21,"55887-0594-82 ")
 ;;4140
 ;;21,"55887-0594-90 ")
 ;;4141
 ;;21,"55887-0595-30 ")
 ;;4165
 ;;21,"55887-0595-60 ")
 ;;4166
 ;;21,"55887-0595-82 ")
 ;;4167
 ;;21,"55887-0595-90 ")
 ;;4168
 ;;21,"55887-0596-30 ")
 ;;892
 ;;21,"55887-0596-60 ")
 ;;893
 ;;21,"55887-0596-82 ")
 ;;894
 ;;21,"55887-0596-90 ")
 ;;895
 ;;21,"55887-0612-30 ")
 ;;1047
 ;;21,"55887-0612-60 ")
 ;;1048
 ;;21,"55887-0612-82 ")
 ;;1049
 ;;21,"55887-0612-90 ")
 ;;943
 ;;21,"55887-0984-30 ")
 ;;714
 ;;21,"55887-0987-30 ")
 ;;2630
 ;;21,"55953-0132-40 ")
 ;;384
 ;;21,"57866-0064-09 ")
 ;;4285
 ;;21,"57866-0065-01 ")
 ;;4405
 ;;21,"57866-0245-01 ")
 ;;1586
 ;;21,"57866-0246-01 ")
 ;;1945
 ;;21,"57866-0249-01 ")
 ;;434
 ;;21,"57866-0274-01 ")
 ;;1389
 ;;21,"57866-0275-02 ")
 ;;1242
 ;;21,"57866-2000-01 ")
 ;;1580
 ;;21,"57866-2000-02 ")
 ;;1581
 ;;21,"57866-2901-02 ")
 ;;3628
 ;;21,"57866-4000-01 ")
 ;;1821
 ;;21,"57866-4000-02 ")
 ;;1822
 ;;21,"57866-4420-01 ")
 ;;2606
 ;;21,"57866-4421-01 ")
 ;;2643
 ;;21,"57866-4423-01 ")
 ;;2578
 ;;21,"57866-4424-01 ")
 ;;2682
 ;;21,"57866-5000-01 ")
 ;;2212
 ;;21,"57866-5000-02 ")
 ;;2213
 ;;21,"57866-6000-01 ")
 ;;2331
 ;;21,"57866-6103-01 ")
 ;;551
 ;;21,"57866-6103-02 ")
 ;;552
 ;;21,"57866-6103-03 ")
 ;;553
 ;;21,"57866-6103-04 ")
 ;;554
 ;;21,"57866-6106-01 ")
 ;;440
 ;;21,"57866-6106-02 ")
 ;;441
 ;;21,"57866-6106-03 ")
 ;;442
 ;;21,"57866-6106-04 ")
 ;;443
 ;;21,"57866-6700-02 ")
 ;;1983
 ;;21,"57866-6701-02 ")
 ;;2244
 ;;21,"57866-6705-01 ")
 ;;1984
 ;;21,"57866-6706-01 ")
 ;;2243
 ;;21,"57866-6859-01 ")
 ;;847
 ;;21,"57866-6859-02 ")
 ;;848
 ;;21,"57866-6859-03 ")
 ;;849
 ;;21,"57866-6859-04 ")
 ;;850
 ;;21,"57866-7000-01 ")
 ;;4216
 ;;21,"57866-7985-01 ")
 ;;1720
 ;;21,"57866-7989-01 ")
 ;;2534
 ;;21,"57866-7992-01 ")
 ;;4402
 ;;21,"57866-8000-01 ")
 ;;4378
 ;;21,"57866-8000-02 ")
 ;;4379
 ;;21,"57866-8700-01 ")
 ;;2400
 ;;21,"58016-0053-00 ")
 ;;3566
 ;;21,"58016-0053-30 ")
 ;;3567
 ;;21,"58016-0053-60 ")
 ;;3568
 ;;21,"58016-0053-90 ")
 ;;3569
 ;;21,"58016-0065-00 ")
 ;;4051
 ;;21,"58016-0065-30 ")
 ;;4052
 ;;21,"58016-0065-60 ")
 ;;4053
 ;;21,"58016-0065-90 ")
 ;;4054
 ;;21,"58016-0066-00 ")
 ;;3560
 ;;21,"58016-0066-30 ")
 ;;3561
 ;;21,"58016-0066-60 ")
 ;;3562
 ;;21,"58016-0066-90 ")
 ;;3563
 ;;21,"58016-0069-00 ")
 ;;2318
 ;;21,"58016-0069-30 ")
 ;;2319
 ;;21,"58016-0069-60 ")
 ;;2320
 ;;21,"58016-0069-90 ")
 ;;2321
 ;;21,"58016-0228-00 ")
 ;;4328
 ;;21,"58016-0228-02 ")
 ;;4329
 ;;21,"58016-0228-30 ")
 ;;4330
 ;;21,"58016-0228-60 ")
 ;;4331
 ;;21,"58016-0228-90 ")
 ;;4332
 ;;21,"58016-0362-14 ")
 ;;1749
 ;;21,"58016-0362-21 ")
 ;;1750
 ;;21,"58016-0362-28 ")
 ;;1751
 ;;21,"58016-0363-00 ")
 ;;2268
 ;;21,"58016-0363-14 ")
 ;;2269
 ;;21,"58016-0363-21 ")
 ;;2270
 ;;21,"58016-0363-30 ")
 ;;2271
 ;;21,"58016-0363-60 ")
 ;;2272
 ;;21,"58016-0420-00 ")
 ;;132
 ;;21,"58016-0420-10 ")
 ;;133
 ;;21,"58016-0420-30 ")
 ;;134
 ;;21,"58016-0420-60 ")
 ;;135
 ;;21,"58016-0420-90 ")
 ;;136
 ;;21,"58016-0564-00 ")
 ;;1716
 ;;21,"58016-0564-30 ")
 ;;1717
 ;;21,"58016-0564-60 ")
 ;;1718
 ;;21,"58016-0564-90 ")
 ;;1719
 ;;21,"58016-0571-00 ")
 ;;1215
 ;;21,"58016-0571-30 ")
 ;;1216
 ;;21,"58016-0571-60 ")
 ;;1217
 ;;21,"58016-0571-90 ")
 ;;1218
 ;;21,"58016-0579-00 ")
 ;;788
 ;;21,"58016-0579-20 ")
 ;;789
 ;;21,"58016-0579-30 ")
 ;;790
 ;;21,"58016-0579-60 ")
 ;;791
 ;;21,"58016-0580-00 ")
 ;;939
 ;;21,"58016-0580-20 ")
 ;;940
 ;;21,"58016-0580-30 ")
 ;;941
 ;;21,"58016-0580-60 ")
 ;;942
 ;;21,"58016-0581-00 ")
 ;;1103
 ;;21,"58016-0581-20 ")
 ;;1104
 ;;21,"58016-0581-30 ")
 ;;1105
 ;;21,"58016-0581-60 ")
 ;;1106