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

BGP62Z2.m

Go to the documentation of this file.
BGP62Z2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"00247-0370-30 ")
 ;;5254
 ;;21,"00247-0371-03 ")
 ;;3300
 ;;21,"00247-0371-45 ")
 ;;3301
 ;;21,"00247-0372-04 ")
 ;;2442
 ;;21,"00247-0372-10 ")
 ;;2443
 ;;21,"00247-0615-10 ")
 ;;4207
 ;;21,"00247-0615-50 ")
 ;;4208
 ;;21,"00247-0615-52 ")
 ;;4209
 ;;21,"00247-0616-10 ")
 ;;5041
 ;;21,"00247-0616-15 ")
 ;;5042
 ;;21,"00247-0616-30 ")
 ;;5043
 ;;21,"00247-0673-00 ")
 ;;763
 ;;21,"00247-0673-07 ")
 ;;764
 ;;21,"00247-0673-10 ")
 ;;765
 ;;21,"00247-0673-14 ")
 ;;766
 ;;21,"00247-0673-30 ")
 ;;767
 ;;21,"00247-0673-60 ")
 ;;768
 ;;21,"00247-0673-90 ")
 ;;769
 ;;21,"00247-0675-03 ")
 ;;3565
 ;;21,"00247-0675-08 ")
 ;;3566
 ;;21,"00247-0675-33 ")
 ;;3567
 ;;21,"00247-0787-07 ")
 ;;2940
 ;;21,"00247-0787-10 ")
 ;;2941
 ;;21,"00247-0787-14 ")
 ;;2942
 ;;21,"00247-0787-15 ")
 ;;2943
 ;;21,"00247-0787-28 ")
 ;;2944
 ;;21,"00247-0787-30 ")
 ;;2945
 ;;21,"00247-0787-50 ")
 ;;2946
 ;;21,"00247-0787-60 ")
 ;;2947
 ;;21,"00247-0789-07 ")
 ;;4975
 ;;21,"00247-0789-14 ")
 ;;4976
 ;;21,"00247-0789-30 ")
 ;;4977
 ;;21,"00247-0853-04 ")
 ;;1373
 ;;21,"00247-0853-08 ")
 ;;1374
 ;;21,"00247-1035-30 ")
 ;;1572
 ;;21,"00247-1041-03 ")
 ;;660
 ;;21,"00247-1041-07 ")
 ;;661
 ;;21,"00247-1041-30 ")
 ;;662
 ;;21,"00247-1042-30 ")
 ;;746
 ;;21,"00247-1056-60 ")
 ;;5044
 ;;21,"00247-1057-15 ")
 ;;5117
 ;;21,"00247-1057-60 ")
 ;;5118
 ;;21,"00247-1058-60 ")
 ;;5255
 ;;21,"00247-1075-10 ")
 ;;5119
 ;;21,"00247-1075-30 ")
 ;;5120
 ;;21,"00247-1075-60 ")
 ;;5121
 ;;21,"00247-1214-03 ")
 ;;3124
 ;;21,"00247-1214-07 ")
 ;;3125
 ;;21,"00247-1214-30 ")
 ;;3126
 ;;21,"00247-1521-30 ")
 ;;1447
 ;;21,"00247-1521-60 ")
 ;;1448
 ;;21,"00247-1522-30 ")
 ;;1272
 ;;21,"00247-1522-60 ")
 ;;1273
 ;;21,"00247-1523-30 ")
 ;;1158
 ;;21,"00247-1523-60 ")
 ;;1159
 ;;21,"00247-1677-10 ")
 ;;157
 ;;21,"00247-1677-60 ")
 ;;158
 ;;21,"00247-1679-10 ")
 ;;5215
 ;;21,"00247-1679-60 ")
 ;;5216
 ;;21,"00247-1680-10 ")
 ;;4932
 ;;21,"00247-1731-30 ")
 ;;4690
 ;;21,"00247-1731-60 ")
 ;;4691
 ;;21,"00247-1731-90 ")
 ;;4692
 ;;21,"00247-1813-04 ")
 ;;529
 ;;21,"00247-1813-08 ")
 ;;530
 ;;21,"00247-1813-30 ")
 ;;531
 ;;21,"00247-1814-08 ")
 ;;2816
 ;;21,"00247-1814-14 ")
 ;;2817
 ;;21,"00247-1814-30 ")
 ;;2818
 ;;21,"00247-1843-03 ")
 ;;3737
 ;;21,"00247-1843-07 ")
 ;;3738
 ;;21,"00247-1843-08 ")
 ;;3739
 ;;21,"00247-1843-14 ")
 ;;3740
 ;;21,"00247-1850-04 ")
 ;;1312
 ;;21,"00247-1850-08 ")
 ;;1313
 ;;21,"00247-1850-30 ")
 ;;1314
 ;;21,"00247-1893-00 ")
 ;;1782
 ;;21,"00247-1893-07 ")
 ;;1783
 ;;21,"00247-1893-30 ")
 ;;1784
 ;;21,"00247-1893-60 ")
 ;;1785
 ;;21,"00247-1893-77 ")
 ;;1786
 ;;21,"00247-1893-90 ")
 ;;1787
 ;;21,"00247-1894-07 ")
 ;;1958
 ;;21,"00247-1894-30 ")
 ;;1959
 ;;21,"00247-1894-60 ")
 ;;1960
 ;;21,"00247-1894-77 ")
 ;;1961
 ;;21,"00247-1894-90 ")
 ;;1962
 ;;21,"00247-1915-03 ")
 ;;2444
 ;;21,"00247-1915-07 ")
 ;;2445
 ;;21,"00247-1915-30 ")
 ;;2446
 ;;21,"00247-1915-90 ")
 ;;2447
 ;;21,"00247-1918-15 ")
 ;;3832
 ;;21,"00247-1918-30 ")
 ;;3833
 ;;21,"00247-1961-00 ")
 ;;6
 ;;21,"00247-1961-14 ")
 ;;7
 ;;21,"00247-1961-30 ")
 ;;8
 ;;21,"00247-1961-60 ")
 ;;9
 ;;21,"00247-1964-30 ")
 ;;2687
 ;;21,"00247-1964-90 ")
 ;;2688
 ;;21,"00247-1965-00 ")
 ;;2292
 ;;21,"00247-1965-03 ")
 ;;2293
 ;;21,"00247-1965-14 ")
 ;;2294
 ;;21,"00247-1965-30 ")
 ;;2295
 ;;21,"00247-1965-60 ")
 ;;2296
 ;;21,"00247-1965-90 ")
 ;;2297
 ;;21,"00247-1965-99 ")
 ;;2298
 ;;21,"00247-2052-00 ")
 ;;2948
 ;;21,"00247-2052-07 ")
 ;;2949
 ;;21,"00247-2052-30 ")
 ;;2950
 ;;21,"00247-2052-90 ")
 ;;2951
 ;;21,"00247-2077-30 ")
 ;;159
 ;;21,"00247-2077-60 ")
 ;;160
 ;;21,"00247-2083-30 ")
 ;;3741
 ;;21,"00247-2083-60 ")
 ;;3742
 ;;21,"00247-2083-90 ")
 ;;3743
 ;;21,"00247-2084-30 ")
 ;;3834
 ;;21,"00247-2084-60 ")
 ;;3835
 ;;21,"00247-2085-30 ")
 ;;2819
 ;;21,"00247-2094-30 ")
 ;;3127
 ;;21,"00247-2094-90 ")
 ;;3128
 ;;21,"00247-2117-30 ")
 ;;2114
 ;;21,"00247-2132-00 ")
 ;;1667
 ;;21,"00247-2132-07 ")
 ;;1668
 ;;21,"00247-2132-30 ")
 ;;1669
 ;;21,"00247-2132-60 ")
 ;;1670
 ;;21,"00247-2132-90 ")
 ;;1671
 ;;21,"00247-2133-00 ")
 ;;1788
 ;;21,"00247-2133-07 ")
 ;;1789
 ;;21,"00247-2133-30 ")
 ;;1790
 ;;21,"00247-2133-60 ")
 ;;1791
 ;;21,"00247-2133-90 ")
 ;;1792
 ;;21,"00247-2134-00 ")
 ;;1963
 ;;21,"00247-2134-07 ")
 ;;1964
 ;;21,"00247-2134-30 ")
 ;;1965
 ;;21,"00247-2134-60 ")
 ;;1966
 ;;21,"00247-2134-90 ")
 ;;1967
 ;;21,"00247-2262-30 ")
 ;;2191
 ;;21,"00247-2265-30 ")
 ;;3203
 ;;21,"00247-2265-60 ")
 ;;3204
 ;;21,"00247-2265-90 ")
 ;;3205
 ;;21,"00247-2271-30 ")
 ;;3568
 ;;21,"00247-2272-00 ")
 ;;3302
 ;;21,"00247-2272-30 ")
 ;;3303
 ;;21,"00247-2272-60 ")
 ;;3304
 ;;21,"00247-2272-90 ")
 ;;3305
 ;;21,"00247-2299-00 ")
 ;;1573
 ;;21,"00247-2299-90 ")
 ;;1574
 ;;21,"00247-2314-00 ")
 ;;4584
 ;;21,"00247-2314-30 ")
 ;;4585
 ;;21,"00247-2314-60 ")
 ;;4586
 ;;21,"00247-2314-77 ")
 ;;4587
 ;;21,"00247-2314-90 ")
 ;;4588
 ;;21,"00247-2337-30 ")
 ;;1490
 ;;21,"00247-2337-60 ")
 ;;1491
 ;;21,"00247-2337-90 ")
 ;;1492
 ;;21,"00247-2356-00 ")
 ;;335
 ;;21,"00247-2356-30 ")
 ;;336
 ;;21,"00378-0042-01 ")
 ;;928
 ;;21,"00378-0060-01 ")
 ;;3727
 ;;21,"00378-0073-01 ")
 ;;934
 ;;21,"00378-0087-01 ")
 ;;3728
 ;;21,"00378-0092-01 ")
 ;;3729
 ;;21,"00378-0211-01 ")
 ;;917
 ;;21,"00378-0211-05 ")
 ;;918
 ;;21,"00378-0277-01 ")
 ;;922
 ;;21,"00378-0277-05 ")
 ;;923
 ;;21,"00378-0330-01 ")
 ;;926
 ;;21,"00378-0330-05 ")
 ;;927
 ;;21,"00378-0407-01 ")
 ;;2786
 ;;21,"00378-0412-01 ")
 ;;2800
 ;;21,"00378-0414-01 ")
 ;;2765
 ;;21,"00378-0433-01 ")
 ;;401
 ;;21,"00378-0433-05 ")
 ;;402
 ;;21,"00378-0435-01 ")
 ;;10
 ;;21,"00378-0435-05 ")
 ;;11
 ;;21,"00378-0442-01 ")
 ;;929
 ;;21,"00378-0442-05 ")
 ;;930
 ;;21,"00378-0574-01 ")
 ;;932
 ;;21,"00378-0574-05 ")
 ;;933
 ;;21,"00378-0734-01 ")
 ;;2410
 ;;21,"00378-0734-93 ")
 ;;2411
 ;;21,"00378-0735-01 ")
 ;;2650
 ;;21,"00378-0735-93 ")
 ;;2651
 ;;21,"00378-1049-01 ")
 ;;4693
 ;;21,"00378-1049-10 ")
 ;;4694
 ;;21,"00378-2003-05 ")
 ;;2916
 ;;21,"00378-2003-93 ")
 ;;2917
 ;;21,"00378-2004-05 ")
 ;;3102
 ;;21,"00378-2004-93 ")
 ;;3103
 ;;21,"00378-2005-93 ")
 ;;3192
 ;;21,"00378-2006-93 ")
 ;;3193
 ;;21,"00378-2008-77 ")
 ;;269
 ;;21,"00378-2009-05 ")
 ;;337
 ;;21,"00378-2610-01 ")
 ;;3994
 ;;21,"00378-2610-10 ")
 ;;3995
 ;;21,"00378-2625-01 ")
 ;;4210
 ;;21,"00378-2625-10 ")
 ;;4211
 ;;21,"00378-2650-01 ")
 ;;4373
 ;;21,"00378-2650-10 ")
 ;;4374
 ;;21,"00378-2675-01 ")
 ;;4487
 ;;21,"00378-2675-93 ")
 ;;4488
 ;;21,"00378-2685-01 ")
 ;;4113
 ;;21,"00378-2685-93 ")
 ;;4114
 ;;21,"00378-2695-01 ")
 ;;4184
 ;;21,"00378-2695-93 ")
 ;;4185
 ;;21,"00378-3025-01 ")
 ;;4546
 ;;21,"00378-3050-01 ")
 ;;4559
 ;;21,"00378-3075-01 ")
 ;;4574
 ;;21,"00378-3125-01 ")
 ;;4756
 ;;21,"00378-3125-10 ")
 ;;4757
 ;;21,"00378-3411-01 ")
 ;;98
 ;;21,"00378-3411-05 ")
 ;;99
 ;;21,"00378-3412-01 ")
 ;;161
 ;;21,"00378-3412-05 ")
 ;;162
 ;;21,"00378-3413-01 ")
 ;;319
 ;;21,"00378-3413-05 ")
 ;;320
 ;;21,"00378-3471-01 ")
 ;;770
 ;;21,"00378-3472-01 ")
 ;;532
 ;;21,"00378-3472-10 ")
 ;;533
 ;;21,"00378-3473-01 ")
 ;;663
 ;;21,"00378-3473-10 ")
 ;;664
 ;;21,"00378-3474-01 ")
 ;;747
 ;;21,"00378-3515-10 ")
 ;;3744
 ;;21,"00378-3515-93 ")
 ;;3745
 ;;21,"00378-3530-05 ")
 ;;3836
 ;;21,"00378-3530-93 ")
 ;;3837
 ;;21,"00378-3545-05 ")
 ;;3927
 ;;21,"00378-3545-93 ")
 ;;3928
 ;;21,"00378-3855-77 ")
 ;;2256
 ;;21,"00378-3855-93 ")
 ;;2257
 ;;21,"00378-3856-10 ")
 ;;2115
 ;;21,"00378-3856-77 ")
 ;;2116
 ;;21,"00378-3856-93 ")
 ;;2117
 ;;21,"00378-3857-10 ")
 ;;2192
 ;;21,"00378-3857-77 ")
 ;;2193
 ;;21,"00378-3857-93 ")
 ;;2194
 ;;21,"00378-4186-01 ")
 ;;3472
 ;;21,"00378-4186-05 ")
 ;;3473
 ;;21,"00378-4186-93 ")
 ;;3474
 ;;21,"00378-4187-01 ")
 ;;3569
 ;;21,"00378-4187-05 ")
 ;;3570
 ;;21,"00378-4187-93 ")
 ;;3571
 ;;21,"00378-4188-01 ")
 ;;3306
 ;;21,"00378-4188-05 ")
 ;;3307
 ;;21,"00378-4188-93 ")
 ;;3308
 ;;21,"00378-4210-01 ")
 ;;2299
 ;;21,"00378-4220-01 ")
 ;;2448
 ;;21,"00378-4250-01 ")
 ;;4819
 ;;21,"00378-4250-10 ")
 ;;4820
 ;;21,"00378-4350-93 ")
 ;;2689
 ;;21,"00378-4881-01 ")
 ;;1274
 ;;21,"00378-4882-01 ")
 ;;1375
 ;;21,"00378-4883-01 ")
 ;;1449
 ;;21,"00378-4884-01 ")
 ;;1575
 ;;21,"00378-4885-01 ")
 ;;1160
 ;;21,"00378-5131-05 ")
 ;;1315
 ;;21,"00378-5132-05 ")
 ;;1493
 ;;21,"00378-5133-05 ")
 ;;1190
 ;;21,"00378-5375-01 ")
 ;;4883
 ;;21,"00378-5375-10 ")
 ;;4884
 ;;21,"00378-5410-28 ")
 ;;2300
 ;;21,"00378-5420-28 ")
 ;;2449
 ;;21,"00378-5521-01 ")
 ;;163
 ;;21,"00378-6231-01 ")
 ;;1672
 ;;21,"00378-6231-05 ")
 ;;1673
 ;;21,"00378-6232-01 ")
 ;;1793
 ;;21,"00378-6232-05 ")
 ;;1794
 ;;21,"00378-6233-01 ")
 ;;1968
 ;;21,"00378-6233-05 ")
 ;;1969
 ;;21,"00378-6410-01 ")
 ;;4732
 ;;21,"00378-6410-10 ")
 ;;4733
 ;;21,"00378-7001-10 ")
 ;;2820
 ;;21,"00378-7001-93 ")
 ;;2821
 ;;21,"00378-7002-10 ")
 ;;2952
 ;;21,"00378-7002-93 ")
 ;;2953
 ;;21,"00378-7003-10 ")
 ;;3129
 ;;21,"00378-7003-93 ")
 ;;3130
 ;;21,"00378-7004-10 ")
 ;;3206
 ;;21,"00378-7004-93 ")
 ;;3207
 ;;21,"00378-8011-01 ")
 ;;3475
 ;;21,"00378-8011-05 ")
 ;;3476
 ;;21,"00378-8121-01 ")
 ;;3572
 ;;21,"00378-8121-05 ")
 ;;3573
 ;;21,"00378-8127-01 ")
 ;;3309
 ;;21,"00378-8127-05 ")
 ;;3310
 ;;21,"00406-0661-01 ")
 ;;2301
 ;;21,"00406-0661-05 ")
 ;;2302
 ;;21,"00406-0661-91 ")
 ;;2303
 ;;21,"00406-0663-01 ")
 ;;2450
 ;;21,"00406-0663-03 ")
 ;;2451
 ;;21,"00406-0663-05 ")
 ;;2452
 ;;21,"00406-0663-62 ")
 ;;2453
 ;;21,"00406-0663-91 ")
 ;;2454
 ;;21,"00406-0667-01 ")
 ;;2677
 ;;21,"00406-2001-03 ")
 ;;3208
 ;;21,"00406-2001-05 ")
 ;;3209
 ;;21,"00406-2001-90 ")
 ;;3210
 ;;21,"00406-2097-03 ")
 ;;2822
 ;;21,"00406-2097-05 ")
 ;;2823
 ;;21,"00406-2097-90 ")
 ;;2824
 ;;21,"00406-2098-01 ")
 ;;2954
 ;;21,"00406-2098-03 ")
 ;;2955
 ;;21,"00406-2098-05 ")
 ;;2956
 ;;21,"00406-2098-90 ")
 ;;2957
 ;;21,"00406-2099-03 ")
 ;;3131
 ;;21,"00406-2099-05 ")
 ;;3132
 ;;21,"00406-2099-90 ")
 ;;3133
 ;;21,"00406-9906-01 ")
 ;;4547
 ;;21,"00406-9906-03 ")
 ;;4548
 ;;21,"00406-9906-62 ")
 ;;4549
 ;;21,"00406-9907-01 ")
 ;;4560
 ;;21,"00406-9907-03 ")
 ;;4561
 ;;21,"00406-9907-62 ")
 ;;4562
 ;;21,"00406-9908-01 ")
 ;;4575
 ;;21,"00406-9908-03 ")
 ;;4576
 ;;21,"00406-9910-01 ")
 ;;5045
 ;;21,"00406-9910-03 ")
 ;;5046
 ;;21,"00406-9911-01 ")
 ;;5122
 ;;21,"00406-9911-03 ")
 ;;5123
 ;;21,"00406-9912-01 ")
 ;;5217
 ;;21,"00406-9912-03 ")
 ;;5218
 ;;21,"00406-9913-03 ")
 ;;5256
 ;;21,"00406-9920-03 ")
 ;;4905
 ;;21,"00406-9921-03 ")
 ;;4933
 ;;21,"00406-9922-01 ")
 ;;4978
 ;;21,"00406-9922-03 ")
 ;;4979
 ;;21,"00406-9923-01 ")
 ;;5034
 ;;21,"00406-9923-03 ")
 ;;5035
 ;;21,"00406-9924-01 ")
 ;;5019
 ;;21,"00406-9924-03 ")
 ;;5020
 ;;21,"00406-9925-01 ")
 ;;5024
 ;;21,"00406-9925-03 ")
 ;;5025
 ;;21,"00406-9926-01 ")
 ;;5029
 ;;21,"00406-9926-03 ")
 ;;5030
 ;;21,"00406-9931-03 ")
 ;;5036