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

BGP13T8.m

Go to the documentation of this file.
BGP13T8 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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-1732-02 ")
 ;;4198
 ;;21,"54569-1732-03 ")
 ;;4199
 ;;21,"54569-1732-04 ")
 ;;4200
 ;;21,"54569-1732-05 ")
 ;;4201
 ;;21,"54569-1732-06 ")
 ;;4202
 ;;21,"54569-1864-01 ")
 ;;234
 ;;21,"54569-1864-02 ")
 ;;235
 ;;21,"54569-1999-00 ")
 ;;4778
 ;;21,"54569-1999-01 ")
 ;;4779
 ;;21,"54569-1999-02 ")
 ;;4780
 ;;21,"54569-1999-03 ")
 ;;4781
 ;;21,"54569-2006-00 ")
 ;;3281
 ;;21,"54569-2146-00 ")
 ;;236
 ;;21,"54569-2146-01 ")
 ;;237
 ;;21,"54569-2179-00 ")
 ;;1707
 ;;21,"54569-2179-01 ")
 ;;1708
 ;;21,"54569-2179-03 ")
 ;;1709
 ;;21,"54569-2462-00 ")
 ;;1710
 ;;21,"54569-2462-01 ")
 ;;1711
 ;;21,"54569-2726-00 ")
 ;;2719
 ;;21,"54569-3575-00 ")
 ;;5289
 ;;21,"54569-3575-01 ")
 ;;5290
 ;;21,"54569-3575-02 ")
 ;;5291
 ;;21,"54569-3575-03 ")
 ;;5292
 ;;21,"54569-3724-00 ")
 ;;5293
 ;;21,"54569-3724-01 ")
 ;;5294
 ;;21,"54569-3724-02 ")
 ;;5295
 ;;21,"54569-3724-03 ")
 ;;5296
 ;;21,"54569-3724-04 ")
 ;;5297
 ;;21,"54569-3724-05 ")
 ;;5298
 ;;21,"54569-3732-01 ")
 ;;4782
 ;;21,"54569-3732-02 ")
 ;;4783
 ;;21,"54569-3732-03 ")
 ;;4784
 ;;21,"54569-3810-00 ")
 ;;3997
 ;;21,"54569-3849-00 ")
 ;;3407
 ;;21,"54569-3849-01 ")
 ;;3408
 ;;21,"54569-3894-00 ")
 ;;3409
 ;;21,"54569-4129-00 ")
 ;;4235
 ;;21,"54569-4131-01 ")
 ;;1936
 ;;21,"54569-4132-01 ")
 ;;1937
 ;;21,"54569-4146-00 ")
 ;;3410
 ;;21,"54569-4146-01 ")
 ;;3411
 ;;21,"54569-4521-01 ")
 ;;5138
 ;;21,"54569-4529-00 ")
 ;;5299
 ;;21,"54569-4529-01 ")
 ;;5300
 ;;21,"54569-4529-02 ")
 ;;5301
 ;;21,"54569-4659-00 ")
 ;;2095
 ;;21,"54569-4703-00 ")
 ;;923
 ;;21,"54569-4703-01 ")
 ;;924
 ;;21,"54569-4787-00 ")
 ;;3998
 ;;21,"54569-4879-00 ")
 ;;925
 ;;21,"54569-4901-00 ")
 ;;3999
 ;;21,"54569-5231-00 ")
 ;;2096
 ;;21,"54569-5239-00 ")
 ;;4250
 ;;21,"54569-5265-00 ")
 ;;2097
 ;;21,"54569-5291-00 ")
 ;;2407
 ;;21,"54569-5291-01 ")
 ;;2408
 ;;21,"54569-5291-03 ")
 ;;2409
 ;;21,"54569-5319-00 ")
 ;;2410
 ;;21,"54569-5319-01 ")
 ;;2411
 ;;21,"54569-5320-00 ")
 ;;2412
 ;;21,"54569-5340-00 ")
 ;;5139
 ;;21,"54569-5483-00 ")
 ;;2865
 ;;21,"54569-5484-00 ")
 ;;2866
 ;;21,"54569-5541-00 ")
 ;;3767
 ;;21,"54569-5541-01 ")
 ;;3768
 ;;21,"54569-5568-00 ")
 ;;815
 ;;21,"54569-5569-00 ")
 ;;816
 ;;21,"54569-5598-00 ")
 ;;4072
 ;;21,"54569-5599-00 ")
 ;;5197
 ;;21,"54569-5626-00 ")
 ;;1133
 ;;21,"54569-5627-00 ")
 ;;1134
 ;;21,"54569-5678-00 ")
 ;;1378
 ;;21,"54569-5682-00 ")
 ;;3769
 ;;21,"54569-5818-00 ")
 ;;4476
 ;;21,"54569-5819-00 ")
 ;;4477
 ;;21,"54569-5872-00 ")
 ;;5086
 ;;21,"54569-5895-00 ")
 ;;3047
 ;;21,"54569-5968-00 ")
 ;;3048
 ;;21,"54569-5968-01 ")
 ;;3049
 ;;21,"54569-5968-02 ")
 ;;3050
 ;;21,"54569-8013-00 ")
 ;;4203
 ;;21,"54569-8522-00 ")
 ;;4204
 ;;21,"54569-8522-01 ")
 ;;4205
 ;;21,"54569-8579-00 ")
 ;;5302
 ;;21,"54569-8609-00 ")
 ;;4000
 ;;21,"54738-0912-01 ")
 ;;2720
 ;;21,"54738-0913-01 ")
 ;;2721
 ;;21,"54738-0914-01 ")
 ;;2722
 ;;21,"54838-0512-40 ")
 ;;1712
 ;;21,"54838-0523-40 ")
 ;;2413
 ;;21,"54838-0540-70 ")
 ;;1135
 ;;21,"54868-0062-00 ")
 ;;1713
 ;;21,"54868-0062-02 ")
 ;;1714
 ;;21,"54868-0062-04 ")
 ;;1715
 ;;21,"54868-0064-02 ")
 ;;238
 ;;21,"54868-0064-03 ")
 ;;239
 ;;21,"54868-0064-04 ")
 ;;240
 ;;21,"54868-0064-05 ")
 ;;241
 ;;21,"54868-0064-06 ")
 ;;242
 ;;21,"54868-0064-07 ")
 ;;243
 ;;21,"54868-0065-00 ")
 ;;244
 ;;21,"54868-0065-02 ")
 ;;245
 ;;21,"54868-0065-03 ")
 ;;246
 ;;21,"54868-0065-04 ")
 ;;247
 ;;21,"54868-0065-05 ")
 ;;248
 ;;21,"54868-0065-07 ")
 ;;249
 ;;21,"54868-0065-08 ")
 ;;250
 ;;21,"54868-0065-09 ")
 ;;251
 ;;21,"54868-0066-00 ")
 ;;252
 ;;21,"54868-0066-02 ")
 ;;253
 ;;21,"54868-0066-03 ")
 ;;254
 ;;21,"54868-0066-05 ")
 ;;255
 ;;21,"54868-0066-06 ")
 ;;256
 ;;21,"54868-0122-00 ")
 ;;4785
 ;;21,"54868-0122-02 ")
 ;;4786
 ;;21,"54868-0426-00 ")
 ;;578
 ;;21,"54868-0501-00 ")
 ;;2916
 ;;21,"54868-0511-00 ")
 ;;4206
 ;;21,"54868-0511-01 ")
 ;;4207
 ;;21,"54868-0511-02 ")
 ;;4208
 ;;21,"54868-0511-05 ")
 ;;4209
 ;;21,"54868-1223-00 ")
 ;;4787
 ;;21,"54868-1223-01 ")
 ;;4788
 ;;21,"54868-1239-00 ")
 ;;1136
 ;;21,"54868-1239-01 ")
 ;;1137
 ;;21,"54868-1239-02 ")
 ;;1138
 ;;21,"54868-1239-03 ")
 ;;1139
 ;;21,"54868-1239-04 ")
 ;;1140
 ;;21,"54868-1344-00 ")
 ;;2723
 ;;21,"54868-1344-02 ")
 ;;2724
 ;;21,"54868-1344-03 ")
 ;;2725
 ;;21,"54868-1344-04 ")
 ;;2726
 ;;21,"54868-1447-00 ")
 ;;595
 ;;21,"54868-1449-00 ")
 ;;5125
 ;;21,"54868-1450-00 ")
 ;;5126
 ;;21,"54868-1534-00 ")
 ;;579
 ;;21,"54868-1959-01 ")
 ;;4789
 ;;21,"54868-1959-02 ")
 ;;4790
 ;;21,"54868-1959-04 ")
 ;;4791
 ;;21,"54868-1964-00 ")
 ;;1716
 ;;21,"54868-1964-02 ")
 ;;1717
 ;;21,"54868-1964-03 ")
 ;;1718
 ;;21,"54868-2192-00 ")
 ;;5303
 ;;21,"54868-2192-01 ")
 ;;5304
 ;;21,"54868-2192-03 ")
 ;;5305
 ;;21,"54868-2192-04 ")
 ;;5306
 ;;21,"54868-2192-05 ")
 ;;5307
 ;;21,"54868-2192-06 ")
 ;;5308
 ;;21,"54868-2192-07 ")
 ;;5309
 ;;21,"54868-2192-08 ")
 ;;5310
 ;;21,"54868-2206-01 ")
 ;;580
 ;;21,"54868-2221-00 ")
 ;;2727
 ;;21,"54868-2221-01 ")
 ;;2728
 ;;21,"54868-2221-03 ")
 ;;2729
 ;;21,"54868-2221-04 ")
 ;;2730
 ;;21,"54868-2221-05 ")
 ;;2731
 ;;21,"54868-2284-02 ")
 ;;1719
 ;;21,"54868-2284-06 ")
 ;;1720
 ;;21,"54868-2317-02 ")
 ;;1721
 ;;21,"54868-2317-03 ")
 ;;1722
 ;;21,"54868-2317-04 ")
 ;;1723
 ;;21,"54868-2357-00 ")
 ;;257
 ;;21,"54868-2357-02 ")
 ;;258
 ;;21,"54868-2357-03 ")
 ;;259
 ;;21,"54868-2433-00 ")
 ;;260
 ;;21,"54868-2433-02 ")
 ;;261
 ;;21,"54868-2434-00 ")
 ;;262
 ;;21,"54868-2434-02 ")
 ;;263
 ;;21,"54868-2480-00 ")
 ;;3412
 ;;21,"54868-2480-01 ")
 ;;3413
 ;;21,"54868-2480-02 ")
 ;;3414
 ;;21,"54868-2480-04 ")
 ;;3415
 ;;21,"54868-2481-01 ")
 ;;3416
 ;;21,"54868-2481-02 ")
 ;;3417
 ;;21,"54868-2481-03 ")
 ;;3418
 ;;21,"54868-2482-00 ")
 ;;3419
 ;;21,"54868-2546-00 ")
 ;;1517
 ;;21,"54868-2549-00 ")
 ;;1588
 ;;21,"54868-2552-00 ")
 ;;1724
 ;;21,"54868-2552-02 ")
 ;;1725
 ;;21,"54868-2571-00 ")
 ;;2732
 ;;21,"54868-2571-01 ")
 ;;2733
 ;;21,"54868-2637-00 ")
 ;;5311
 ;;21,"54868-2637-01 ")
 ;;5312
 ;;21,"54868-2637-03 ")
 ;;5313
 ;;21,"54868-2637-04 ")
 ;;5314
 ;;21,"54868-2637-05 ")
 ;;5315
 ;;21,"54868-2637-06 ")
 ;;5316
 ;;21,"54868-2637-07 ")
 ;;5317
 ;;21,"54868-2637-08 ")
 ;;5318
 ;;21,"54868-2833-00 ")
 ;;3420
 ;;21,"54868-2833-01 ")
 ;;3421
 ;;21,"54868-2835-01 ")
 ;;3422
 ;;21,"54868-2835-02 ")
 ;;3423
 ;;21,"54868-2835-03 ")
 ;;3424
 ;;21,"54868-2976-00 ")
 ;;4001
 ;;21,"54868-2976-02 ")
 ;;4002
 ;;21,"54868-2976-03 ")
 ;;4003
 ;;21,"54868-3033-00 ")
 ;;4236
 ;;21,"54868-3033-02 ")
 ;;4237
 ;;21,"54868-3414-00 ")
 ;;1938
 ;;21,"54868-3414-01 ")
 ;;1939
 ;;21,"54868-3414-02 ")
 ;;1940
 ;;21,"54868-3414-03 ")
 ;;1941
 ;;21,"54868-3414-05 ")
 ;;1942
 ;;21,"54868-3523-00 ")
 ;;1943
 ;;21,"54868-3523-01 ")
 ;;1944
 ;;21,"54868-3523-02 ")
 ;;1945
 ;;21,"54868-3523-03 ")
 ;;1946
 ;;21,"54868-3526-00 ")
 ;;4004
 ;;21,"54868-3533-00 ")
 ;;1726
 ;;21,"54868-3533-01 ")
 ;;1727
 ;;21,"54868-3962-00 ")
 ;;4005
 ;;21,"54868-3984-00 ")
 ;;5140
 ;;21,"54868-3984-01 ")
 ;;5141
 ;;21,"54868-4023-00 ")
 ;;1321
 ;;21,"54868-4055-00 ")
 ;;5087
 ;;21,"54868-4055-01 ")
 ;;5088
 ;;21,"54868-4065-00 ")
 ;;4006
 ;;21,"54868-4134-00 ")
 ;;661
 ;;21,"54868-4159-00 ")
 ;;926
 ;;21,"54868-4159-02 ")
 ;;927
 ;;21,"54868-4159-03 ")
 ;;928
 ;;21,"54868-4159-04 ")
 ;;929
 ;;21,"54868-4226-00 ")
 ;;930
 ;;21,"54868-4226-01 ")
 ;;931
 ;;21,"54868-4227-00 ")
 ;;4295
 ;;21,"54868-4252-00 ")
 ;;2098
 ;;21,"54868-4252-01 ")
 ;;2099
 ;;21,"54868-4252-02 ")
 ;;2100
 ;;21,"54868-4252-03 ")
 ;;2101
 ;;21,"54868-4252-04 ")
 ;;2102
 ;;21,"54868-4253-00 ")
 ;;2103
 ;;21,"54868-4253-01 ")
 ;;2104
 ;;21,"54868-4253-02 ")
 ;;2105
 ;;21,"54868-4253-03 ")
 ;;2106
 ;;21,"54868-4372-00 ")
 ;;5319
 ;;21,"54868-4372-01 ")
 ;;5320
 ;;21,"54868-4372-02 ")
 ;;5321
 ;;21,"54868-4394-00 ")
 ;;4210
 ;;21,"54868-4498-00 ")
 ;;4266
 ;;21,"54868-4504-00 ")
 ;;2107
 ;;21,"54868-4504-01 ")
 ;;2108
 ;;21,"54868-4505-00 ")
 ;;5142
 ;;21,"54868-4505-01 ")
 ;;5143
 ;;21,"54868-4537-00 ")
 ;;2414
 ;;21,"54868-4537-01 ")
 ;;2415
 ;;21,"54868-4537-02 ")
 ;;2416
 ;;21,"54868-4537-03 ")
 ;;2417
 ;;21,"54868-4550-00 ")
 ;;662
 ;;21,"54868-4550-01 ")
 ;;663
 ;;21,"54868-4550-02 ")
 ;;664
 ;;21,"54868-4560-00 ")
 ;;2418
 ;;21,"54868-4560-01 ")
 ;;2419
 ;;21,"54868-4562-00 ")
 ;;2420
 ;;21,"54868-4570-00 ")
 ;;4304
 ;;21,"54868-4700-00 ")
 ;;2867
 ;;21,"54868-4700-01 ")
 ;;2868
 ;;21,"54868-4700-02 ")
 ;;2869
 ;;21,"54868-4700-03 ")
 ;;2870
 ;;21,"54868-4700-04 ")
 ;;2871
 ;;21,"54868-4700-05 ")
 ;;2872
 ;;21,"54868-4700-06 ")
 ;;2873
 ;;21,"54868-4763-00 ")
 ;;5144
 ;;21,"54868-4775-00 ")
 ;;2874
 ;;21,"54868-4775-01 ")
 ;;2875
 ;;21,"54868-4775-02 ")
 ;;2876
 ;;21,"54868-4775-03 ")
 ;;2877
 ;;21,"54868-4791-00 ")
 ;;4073
 ;;21,"54868-4817-00 ")
 ;;3770
 ;;21,"54868-4817-01 ")
 ;;3771
 ;;21,"54868-4848-00 ")
 ;;4267
 ;;21,"54868-4889-00 ")
 ;;4296
 ;;21,"54868-4892-00 ")
 ;;817
 ;;21,"54868-4892-01 ")
 ;;818
 ;;21,"54868-4924-00 ")
 ;;3244
 ;;21,"54868-4935-00 ")
 ;;5198
 ;;21,"54868-4937-00 ")
 ;;3772
 ;;21,"54868-4937-01 ")
 ;;3773
 ;;21,"54868-4937-02 ")
 ;;3774
 ;;21,"54868-4937-03 ")
 ;;3775
 ;;21,"54868-4938-00 ")
 ;;3776
 ;;21,"54868-4985-00 ")
 ;;932
 ;;21,"54868-4985-01 ")
 ;;933
 ;;21,"54868-5010-00 ")
 ;;5199
 ;;21,"54868-5010-01 ")
 ;;5145
 ;;21,"54868-5080-00 ")
 ;;3777
 ;;21,"54868-5178-00 ")
 ;;1141
 ;;21,"54868-5178-01 ")
 ;;1142
 ;;21,"54868-5178-03 ")
 ;;1143
 ;;21,"54868-5192-00 ")
 ;;1379
 ;;21,"54868-5215-00 ")
 ;;1380
 ;;21,"54868-5215-01 ")
 ;;1381
 ;;21,"54868-5215-02 ")
 ;;1382
 ;;21,"54868-5275-00 ")
 ;;1144
 ;;21,"54868-5275-02 ")
 ;;1145
 ;;21,"54868-5315-00 ")
 ;;1383
 ;;21,"54868-5347-00 ")
 ;;4074
 ;;21,"54868-5365-00 ")
 ;;4075
 ;;21,"54868-5377-00 ")
 ;;819
 ;;21,"54868-5448-00 ")
 ;;3051
 ;;21,"54868-5562-00 ")
 ;;3245
 ;;21,"54868-5635-00 ")
 ;;2657
 ;;21,"54868-5638-00 ")
 ;;4478
 ;;21,"54868-5638-01 ")
 ;;4479
 ;;21,"54868-5638-02 ")
 ;;4480
 ;;21,"54868-5638-03 ")
 ;;4481
 ;;21,"54868-5638-04 ")
 ;;4482
 ;;21,"54868-5639-00 ")
 ;;4483
 ;;21,"54868-5639-01 ")
 ;;4484
 ;;21,"54868-5639-02 ")
 ;;4485
 ;;21,"54868-5639-03 ")
 ;;4486
 ;;21,"54868-5658-00 ")
 ;;4487
 ;;21,"54868-5663-00 ")
 ;;2421
 ;;21,"54868-5663-01 ")
 ;;2422
 ;;21,"54868-5663-02 ")
 ;;2423
 ;;21,"54868-5736-00 ")
 ;;887
 ;;21,"54868-5736-01 ")
 ;;888
 ;;21,"54868-5754-00 ")
 ;;5089
 ;;21,"54868-5754-01 ")
 ;;5090
 ;;21,"54868-5754-02 ")
 ;;5091
 ;;21,"54868-5812-00 ")
 ;;3052
 ;;21,"54868-5927-00 ")
 ;;889
 ;;21,"54868-5951-00 ")
 ;;2878
 ;;21,"55045-1463-00 ")
 ;;264
 ;;21,"55045-1463-01 ")
 ;;265
 ;;21,"55045-1463-02 ")
 ;;266
 ;;21,"55045-1463-03 ")
 ;;267
 ;;21,"55045-1463-04 ")
 ;;268
 ;;21,"55045-1463-06 ")
 ;;269
 ;;21,"55045-1463-07 ")
 ;;270
 ;;21,"55045-1463-08 ")
 ;;271
 ;;21,"55045-1463-09 ")
 ;;272
 ;;21,"55045-1592-00 ")
 ;;273
 ;;21,"55045-1592-01 ")
 ;;274
 ;;21,"55045-1592-05 ")
 ;;275
 ;;21,"55045-1592-06 ")
 ;;276
 ;;21,"55045-1592-08 ")
 ;;277
 ;;21,"55045-1592-09 ")
 ;;278
 ;;21,"55045-1682-00 ")
 ;;279
 ;;21,"55045-1682-01 ")
 ;;280
 ;;21,"55045-1682-02 ")
 ;;281
 ;;21,"55045-1682-03 ")
 ;;282
 ;;21,"55045-1682-04 ")
 ;;283
 ;;21,"55045-1682-05 ")
 ;;284
 ;;21,"55045-1682-06 ")
 ;;285
 ;;21,"55045-1682-08 ")
 ;;286
 ;;21,"55045-1682-09 ")
 ;;287
 ;;21,"55045-1715-00 ")
 ;;4792
 ;;21,"55045-1715-01 ")
 ;;4793
 ;;21,"55045-1715-02 ")
 ;;4794
 ;;21,"55045-1715-03 ")
 ;;4795
 ;;21,"55045-1715-07 ")
 ;;4796
 ;;21,"55045-1715-08 ")
 ;;4797
 ;;21,"55045-1715-09 ")
 ;;4798
 ;;21,"55045-1718-00 ")
 ;;1518
 ;;21,"55045-1718-02 ")
 ;;1519
 ;;21,"55045-1718-06 ")
 ;;1520
 ;;21,"55045-1718-08 ")
 ;;1521
 ;;21,"55045-1718-09 ")
 ;;1522
 ;;21,"55045-1721-00 ")
 ;;2734