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