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

BGP33I6.m

Go to the documentation of this file.
BGP33I6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"50111-0931-01 ")
 ;;4045
 ;;21,"50111-0931-02 ")
 ;;4046
 ;;21,"50111-0931-10 ")
 ;;4047
 ;;21,"50111-0932-01 ")
 ;;3787
 ;;21,"50111-0932-02 ")
 ;;3788
 ;;21,"50111-0932-10 ")
 ;;3789
 ;;21,"51079-0047-01 ")
 ;;801
 ;;21,"51079-0047-20 ")
 ;;802
 ;;21,"51079-0086-01 ")
 ;;2673
 ;;21,"51079-0086-20 ")
 ;;2674
 ;;21,"51079-0086-30 ")
 ;;2675
 ;;21,"51079-0086-56 ")
 ;;2676
 ;;21,"51079-0087-01 ")
 ;;2762
 ;;21,"51079-0087-20 ")
 ;;2763
 ;;21,"51079-0087-30 ")
 ;;2764
 ;;21,"51079-0087-56 ")
 ;;2765
 ;;21,"51079-0088-01 ")
 ;;2847
 ;;21,"51079-0088-20 ")
 ;;2848
 ;;21,"51079-0088-56 ")
 ;;2849
 ;;21,"51079-0107-01 ")
 ;;237
 ;;21,"51079-0107-17 ")
 ;;238
 ;;21,"51079-0107-19 ")
 ;;239
 ;;21,"51079-0107-20 ")
 ;;240
 ;;21,"51079-0107-63 ")
 ;;241
 ;;21,"51079-0109-01 ")
 ;;868
 ;;21,"51079-0109-03 ")
 ;;869
 ;;21,"51079-0131-01 ")
 ;;33
 ;;21,"51079-0131-20 ")
 ;;34
 ;;21,"51079-0131-63 ")
 ;;35
 ;;21,"51079-0133-01 ")
 ;;377
 ;;21,"51079-0133-20 ")
 ;;378
 ;;21,"51079-0133-63 ")
 ;;379
 ;;21,"51079-0134-01 ")
 ;;4687
 ;;21,"51079-0134-20 ")
 ;;4688
 ;;21,"51079-0135-01 ")
 ;;4860
 ;;21,"51079-0135-20 ")
 ;;4861
 ;;21,"51079-0136-01 ")
 ;;4571
 ;;21,"51079-0136-04 ")
 ;;4572
 ;;21,"51079-0147-01 ")
 ;;465
 ;;21,"51079-0147-20 ")
 ;;466
 ;;21,"51079-0391-20 ")
 ;;643
 ;;21,"51079-0392-01 ")
 ;;718
 ;;21,"51079-0392-20 ")
 ;;719
 ;;21,"51079-0427-01 ")
 ;;4418
 ;;21,"51079-0427-19 ")
 ;;4419
 ;;21,"51079-0427-20 ")
 ;;4420
 ;;21,"51079-0428-01 ")
 ;;4190
 ;;21,"51079-0428-19 ")
 ;;4191
 ;;21,"51079-0428-20 ")
 ;;4192
 ;;21,"51079-0436-01 ")
 ;;1522
 ;;21,"51079-0436-20 ")
 ;;1523
 ;;21,"51079-0437-01 ")
 ;;1597
 ;;21,"51079-0437-20 ")
 ;;1598
 ;;21,"51079-0438-01 ")
 ;;1674
 ;;21,"51079-0438-20 ")
 ;;1675
 ;;21,"51079-0480-01 ")
 ;;4752
 ;;21,"51079-0480-20 ")
 ;;4753
 ;;21,"51079-0482-01 ")
 ;;4943
 ;;21,"51079-0482-20 ")
 ;;4944
 ;;21,"51079-0482-30 ")
 ;;4945
 ;;21,"51079-0482-56 ")
 ;;4946
 ;;21,"51079-0543-20 ")
 ;;1857
 ;;21,"51079-0543-56 ")
 ;;1858
 ;;21,"51079-0544-20 ")
 ;;1910
 ;;21,"51079-0544-56 ")
 ;;1911
 ;;21,"51079-0563-01 ")
 ;;134
 ;;21,"51079-0563-20 ")
 ;;135
 ;;21,"51079-0564-01 ")
 ;;183
 ;;21,"51079-0564-20 ")
 ;;184
 ;;21,"51079-0645-01 ")
 ;;1731
 ;;21,"51079-0645-20 ")
 ;;1732
 ;;21,"51079-0651-01 ")
 ;;1564
 ;;21,"51079-0651-20 ")
 ;;1565
 ;;21,"51079-0762-01 ")
 ;;3935
 ;;21,"51079-0762-20 ")
 ;;3936
 ;;21,"51079-0763-01 ")
 ;;4048
 ;;21,"51079-0763-20 ")
 ;;4049
 ;;21,"51079-0764-01 ")
 ;;3790
 ;;21,"51079-0764-20 ")
 ;;3791
 ;;21,"51079-0774-01 ")
 ;;3385
 ;;21,"51079-0774-20 ")
 ;;3386
 ;;21,"51079-0775-01 ")
 ;;3623
 ;;21,"51079-0775-20 ")
 ;;3624
 ;;21,"51079-0803-01 ")
 ;;2982
 ;;21,"51079-0803-20 ")
 ;;2983
 ;;21,"51079-0804-01 ")
 ;;3073
 ;;21,"51079-0804-19 ")
 ;;3074
 ;;21,"51079-0804-20 ")
 ;;3075
 ;;21,"51079-0805-01 ")
 ;;3151
 ;;21,"51079-0805-20 ")
 ;;3152
 ;;21,"51079-0824-63 ")
 ;;3315
 ;;21,"51079-0825-62 ")
 ;;3496
 ;;21,"51079-0825-63 ")
 ;;3497
 ;;21,"51079-0943-01 ")
 ;;917
 ;;21,"51079-0943-20 ")
 ;;918
 ;;21,"51079-0943-30 ")
 ;;919
 ;;21,"51079-0943-56 ")
 ;;920
 ;;21,"51079-0944-01 ")
 ;;547
 ;;21,"51079-0944-20 ")
 ;;548
 ;;21,"51079-0971-01 ")
 ;;2181
 ;;21,"51079-0971-19 ")
 ;;2182
 ;;21,"51079-0971-20 ")
 ;;2183
 ;;21,"51079-0992-01 ")
 ;;2485
 ;;21,"51079-0992-20 ")
 ;;2486
 ;;21,"51079-0993-01 ")
 ;;2456
 ;;21,"51079-0993-20 ")
 ;;2457
 ;;21,"51079-0997-01 ")
 ;;2000
 ;;21,"51079-0997-20 ")
 ;;2001
 ;;21,"51285-0538-02 ")
 ;;4518
 ;;21,"51285-0539-02 ")
 ;;4523
 ;;21,"51285-0554-02 ")
 ;;4516
 ;;21,"51285-0594-02 ")
 ;;3690
 ;;21,"51285-0595-02 ")
 ;;3696
 ;;21,"51285-0910-04 ")
 ;;1524
 ;;21,"51285-0911-04 ")
 ;;1599
 ;;21,"51285-0912-04 ")
 ;;1676
 ;;21,"51655-0062-24 ")
 ;;467
 ;;21,"51655-0121-24 ")
 ;;242
 ;;21,"51655-0148-51 ")
 ;;2531
 ;;21,"51655-0148-77 ")
 ;;2532
 ;;21,"51655-0223-51 ")
 ;;2574
 ;;21,"51655-0662-24 ")
 ;;4050
 ;;21,"51672-4001-05 ")
 ;;2984
 ;;21,"51672-4001-06 ")
 ;;2985
 ;;21,"51672-4002-05 ")
 ;;3076
 ;;21,"51672-4002-06 ")
 ;;3077
 ;;21,"51672-4003-05 ")
 ;;3153
 ;;21,"51672-4003-06 ")
 ;;3154
 ;;21,"51672-4004-05 ")
 ;;3193
 ;;21,"51672-4004-06 ")
 ;;3194
 ;;21,"51672-4011-01 ")
 ;;1353
 ;;21,"51672-4011-05 ")
 ;;1354
 ;;21,"51672-4011-06 ")
 ;;1355
 ;;21,"51672-4012-01 ")
 ;;1364
 ;;21,"51672-4012-05 ")
 ;;1365
 ;;21,"51672-4012-06 ")
 ;;1366
 ;;21,"51672-4013-01 ")
 ;;1374
 ;;21,"51672-4013-05 ")
 ;;1375
 ;;21,"51672-4013-06 ")
 ;;1376
 ;;21,"52152-0293-08 ")
 ;;4519
 ;;21,"52152-0293-30 ")
 ;;4520
 ;;21,"52152-0294-08 ")
 ;;4524
 ;;21,"52152-0294-30 ")
 ;;4525
 ;;21,"52152-0341-02 ")
 ;;1387
 ;;21,"52152-0342-02 ")
 ;;1431
 ;;21,"52152-0342-05 ")
 ;;1432
 ;;21,"52152-0343-02 ")
 ;;1488
 ;;21,"52152-0343-05 ")
 ;;1489
 ;;21,"52152-0344-02 ")
 ;;1501
 ;;21,"52152-0345-02 ")
 ;;1407
 ;;21,"52152-0345-04 ")
 ;;1408
 ;;21,"52152-0346-50 ")
 ;;1413
 ;;21,"52959-0008-02 ")
 ;;36
 ;;21,"52959-0008-15 ")
 ;;37
 ;;21,"52959-0008-20 ")
 ;;38
 ;;21,"52959-0008-30 ")
 ;;39
 ;;21,"52959-0008-40 ")
 ;;40
 ;;21,"52959-0008-60 ")
 ;;41
 ;;21,"52959-0008-90 ")
 ;;42
 ;;21,"52959-0010-00 ")
 ;;1122
 ;;21,"52959-0010-30 ")
 ;;1123
 ;;21,"52959-0010-60 ")
 ;;1124
 ;;21,"52959-0128-30 ")
 ;;1388
 ;;21,"52959-0128-60 ")
 ;;1389
 ;;21,"52959-0140-30 ")
 ;;4193
 ;;21,"52959-0140-60 ")
 ;;4194
 ;;21,"52959-0140-90 ")
 ;;4195
 ;;21,"52959-0163-30 ")
 ;;3078
 ;;21,"52959-0173-30 ")
 ;;1780
 ;;21,"52959-0233-00 ")
 ;;2184
 ;;21,"52959-0233-10 ")
 ;;2185
 ;;21,"52959-0233-14 ")
 ;;2186
 ;;21,"52959-0233-20 ")
 ;;2187
 ;;21,"52959-0233-30 ")
 ;;2188
 ;;21,"52959-0233-40 ")
 ;;2189
 ;;21,"52959-0233-50 ")
 ;;2190
 ;;21,"52959-0284-00 ")
 ;;468
 ;;21,"52959-0284-30 ")
 ;;469
 ;;21,"52959-0284-60 ")
 ;;470
 ;;21,"52959-0285-30 ")
 ;;720
 ;;21,"52959-0285-60 ")
 ;;721
 ;;21,"52959-0348-00 ")
 ;;243
 ;;21,"52959-0348-05 ")
 ;;244
 ;;21,"52959-0348-10 ")
 ;;245
 ;;21,"52959-0348-12 ")
 ;;246
 ;;21,"52959-0348-14 ")
 ;;247
 ;;21,"52959-0348-15 ")
 ;;248
 ;;21,"52959-0348-20 ")
 ;;249
 ;;21,"52959-0348-30 ")
 ;;250
 ;;21,"52959-0348-50 ")
 ;;251
 ;;21,"52959-0348-60 ")
 ;;252
 ;;21,"52959-0348-90 ")
 ;;253
 ;;21,"52959-0358-02 ")
 ;;2986
 ;;21,"52959-0358-20 ")
 ;;2987
 ;;21,"52959-0358-90 ")
 ;;2988
 ;;21,"52959-0359-50 ")
 ;;3079
 ;;21,"52959-0360-12 ")
 ;;3387
 ;;21,"52959-0360-15 ")
 ;;3388
 ;;21,"52959-0360-20 ")
 ;;3389
 ;;21,"52959-0360-30 ")
 ;;3390
 ;;21,"52959-0360-60 ")
 ;;3391
 ;;21,"52959-0361-00 ")
 ;;4051
 ;;21,"52959-0361-14 ")
 ;;4052
 ;;21,"52959-0361-30 ")
 ;;4053
 ;;21,"52959-0361-60 ")
 ;;4054
 ;;21,"52959-0378-15 ")
 ;;4421
 ;;21,"52959-0378-20 ")
 ;;4422
 ;;21,"52959-0378-30 ")
 ;;4423
 ;;21,"52959-0378-60 ")
 ;;4424
 ;;21,"52959-0378-90 ")
 ;;4425
 ;;21,"52959-0388-30 ")
 ;;4573
 ;;21,"52959-0388-60 ")
 ;;4574
 ;;21,"52959-0458-14 ")
 ;;1433
 ;;21,"52959-0458-20 ")
 ;;1434
 ;;21,"52959-0458-30 ")
 ;;1435
 ;;21,"52959-0464-00 ")
 ;;1490
 ;;21,"52959-0464-12 ")
 ;;1491
 ;;21,"52959-0464-14 ")
 ;;1492
 ;;21,"52959-0464-20 ")
 ;;1493
 ;;21,"52959-0514-00 ")
 ;;380
 ;;21,"52959-0514-01 ")
 ;;381
 ;;21,"52959-0514-10 ")
 ;;382
 ;;21,"52959-0514-20 ")
 ;;383
 ;;21,"52959-0514-21 ")
 ;;384
 ;;21,"52959-0514-30 ")
 ;;385
 ;;21,"52959-0514-60 ")
 ;;386
 ;;21,"52959-0514-90 ")
 ;;387
 ;;21,"52959-0519-15 ")
 ;;3155
 ;;21,"52959-0519-30 ")
 ;;3156
 ;;21,"52959-0519-60 ")
 ;;3157
 ;;21,"52959-0537-30 ")
 ;;1525
 ;;21,"52959-0537-90 ")
 ;;1526
 ;;21,"52959-0541-10 ")
 ;;1600
 ;;21,"52959-0541-20 ")
 ;;1601
 ;;21,"52959-0541-30 ")
 ;;1602
 ;;21,"52959-0541-60 ")
 ;;1603
 ;;21,"52959-0542-14 ")
 ;;136
 ;;21,"52959-0542-15 ")
 ;;137
 ;;21,"52959-0542-21 ")
 ;;138
 ;;21,"52959-0542-28 ")
 ;;139
 ;;21,"52959-0542-30 ")
 ;;140
 ;;21,"52959-0542-40 ")
 ;;141
 ;;21,"52959-0542-42 ")
 ;;142
 ;;21,"52959-0550-30 ")
 ;;4862
 ;;21,"52959-0550-60 ")
 ;;4863
 ;;21,"52959-0638-04 ")
 ;;2426
 ;;21,"52959-0639-30 ")
 ;;3245
 ;;21,"52959-0655-00 ")
 ;;549
 ;;21,"52959-0655-02 ")
 ;;550
 ;;21,"52959-0655-30 ")
 ;;551
 ;;21,"52959-0655-40 ")
 ;;552
 ;;21,"52959-0655-60 ")
 ;;553
 ;;21,"52959-0655-90 ")
 ;;554
 ;;21,"52959-0662-30 ")
 ;;1677
 ;;21,"52959-0665-30 ")
 ;;2002
 ;;21,"52959-0669-30 ")
 ;;2003
 ;;21,"52959-0669-59 ")
 ;;2004
 ;;21,"52959-0669-60 ")
 ;;2005
 ;;21,"52959-0703-00 ")
 ;;1859
 ;;21,"52959-0703-30 ")
 ;;1860
 ;;21,"52959-0703-60 ")
 ;;1861
 ;;21,"52959-0704-00 ")
 ;;1912
 ;;21,"52959-0704-30 ")
 ;;1913
 ;;21,"52959-0704-60 ")
 ;;1914
 ;;21,"52959-0717-30 ")
 ;;2393
 ;;21,"52959-0732-00 ")
 ;;2191
 ;;21,"52959-0732-10 ")
 ;;2192
 ;;21,"52959-0732-14 ")
 ;;2193
 ;;21,"52959-0732-15 ")
 ;;2194
 ;;21,"52959-0732-20 ")
 ;;2195
 ;;21,"52959-0732-30 ")
 ;;2196
 ;;21,"52959-0732-40 ")
 ;;2197
 ;;21,"52959-0732-50 ")
 ;;2198
 ;;21,"52959-0732-60 ")
 ;;2199
 ;;21,"52959-0732-90 ")
 ;;2200
 ;;21,"52959-0771-60 ")
 ;;4689
 ;;21,"52959-0773-30 ")
 ;;1125
 ;;21,"52959-0773-52 ")
 ;;1126
 ;;21,"52959-0773-60 ")
 ;;1127
 ;;21,"52959-0774-30 ")
 ;;2677
 ;;21,"52959-0774-60 ")
 ;;2678
 ;;21,"52959-0775-30 ")
 ;;3246
 ;;21,"52959-0775-50 ")
 ;;3247
 ;;21,"52959-0775-60 ")
 ;;3248
 ;;21,"52959-0776-30 ")
 ;;3392
 ;;21,"52959-0776-60 ")
 ;;3393
 ;;21,"52959-0781-30 ")
 ;;3792
 ;;21,"52959-0781-60 ")
 ;;3793
 ;;21,"52959-0787-30 ")
 ;;3937
 ;;21,"52959-0791-30 ")
 ;;2533
 ;;21,"52959-0792-30 ")
 ;;3498
 ;;21,"52959-0805-60 ")
 ;;644
 ;;21,"52959-0806-30 ")
 ;;722
 ;;21,"52959-0806-60 ")
 ;;723
 ;;21,"52959-0818-30 ")
 ;;4947
 ;;21,"52959-0818-60 ")
 ;;4948
 ;;21,"52959-0820-60 ")
 ;;803
 ;;21,"52959-0840-60 ")
 ;;3195
 ;;21,"52959-0869-30 ")
 ;;870
 ;;21,"52959-0872-30 ")
 ;;3938
 ;;21,"52959-0872-60 ")
 ;;3939
 ;;21,"52959-0875-30 ")
 ;;4055
 ;;21,"52959-0875-60 ")
 ;;4056
 ;;21,"52959-0875-90 ")
 ;;4057
 ;;21,"52959-0876-30 ")
 ;;3794
 ;;21,"52959-0876-60 ")
 ;;3795
 ;;21,"52959-0890-30 ")
 ;;4949
 ;;21,"52959-0890-60 ")
 ;;4950
 ;;21,"52959-0890-90 ")
 ;;4951
 ;;21,"52959-0892-30 ")
 ;;1819
 ;;21,"52959-0892-60 ")
 ;;1820
 ;;21,"52959-0894-30 ")
 ;;4293
 ;;21,"52959-0894-60 ")
 ;;4294
 ;;21,"52959-0898-60 ")
 ;;921
 ;;21,"52959-0900-30 ")
 ;;2624
 ;;21,"52959-0901-30 ")
 ;;2679
 ;;21,"52959-0986-30 ")
 ;;1270
 ;;21,"52959-0991-30 ")
 ;;2082
 ;;21,"53489-0104-01 ")
 ;;43
 ;;21,"53489-0105-01 ")
 ;;254
 ;;21,"53489-0106-01 ")
 ;;388
 ;;21,"53489-0107-01 ")
 ;;471
 ;;21,"53489-0108-01 ")
 ;;143
 ;;21,"53489-0109-01 ")
 ;;185
 ;;21,"53489-0330-01 ")
 ;;2500
 ;;21,"53489-0331-01 ")
 ;;2534
 ;;21,"53489-0332-01 ")
 ;;2575
 ;;21,"53489-0510-01 ")
 ;;4426
 ;;21,"53489-0511-01 ")
 ;;4196
 ;;21,"53489-0517-01 ")
 ;;4295
 ;;21,"54348-0511-30 ")
 ;;389
 ;;21,"54458-0922-05 ")
 ;;1128
 ;;21,"54458-0924-05 ")
 ;;4058
 ;;21,"54458-0944-05 ")
 ;;4059
 ;;21,"54458-0944-10 ")
 ;;4060
 ;;21,"54458-0945-10 ")
 ;;3796
 ;;21,"54458-0947-10 ")
 ;;3940
 ;;21,"54458-0960-10 ")
 ;;4197
 ;;21,"54458-0961-10 ")
 ;;4427
 ;;21,"54458-0980-10 ")
 ;;1129
 ;;21,"54458-0981-10 ")
 ;;1006
 ;;21,"54458-0988-10 ")
 ;;3542
 ;;21,"54458-0989-10 ")
 ;;3394
 ;;21,"54458-0990-10 ")
 ;;3249
 ;;21,"54569-0172-00 ")
 ;;44
 ;;21,"54569-0172-01 ")
 ;;45
 ;;21,"54569-0172-02 ")
 ;;46
 ;;21,"54569-0172-04 ")
 ;;47
 ;;21,"54569-0173-00 ")
 ;;499
 ;;21,"54569-0175-00 ")
 ;;255
 ;;21,"54569-0175-01 ")
 ;;256
 ;;21,"54569-0175-02 ")
 ;;257
 ;;21,"54569-0175-03 ")
 ;;258
 ;;21,"54569-0175-04 ")
 ;;259
 ;;21,"54569-0175-05 ")
 ;;260
 ;;21,"54569-0175-06 ")
 ;;261
 ;;21,"54569-0175-08 ")
 ;;262
 ;;21,"54569-0194-00 ")
 ;;2535
 ;;21,"54569-0194-02 ")
 ;;2536
 ;;21,"54569-0196-03 ")
 ;;2576
 ;;21,"54569-0196-04 ")
 ;;2577
 ;;21,"54569-0225-00 ")
 ;;2989
 ;;21,"54569-0404-00 ")
 ;;1436
 ;;21,"54569-0404-01 ")
 ;;1437
 ;;21,"54569-1470-00 ")
 ;;4428
 ;;21,"54569-1470-01 ")
 ;;4429
 ;;21,"54569-1470-06 ")
 ;;4430
 ;;21,"54569-1470-08 ")
 ;;4431
 ;;21,"54569-1470-09 ")
 ;;4432
 ;;21,"54569-1519-00 ")
 ;;390
 ;;21,"54569-1519-01 ")
 ;;391
 ;;21,"54569-1519-02 ")
 ;;392
 ;;21,"54569-1519-03 ")
 ;;393
 ;;21,"54569-1696-00 ")
 ;;1678
 ;;21,"54569-1696-01 ")
 ;;1679
 ;;21,"54569-1701-02 ")
 ;;1494
 ;;21,"54569-1732-00 ")
 ;;2201
 ;;21,"54569-1732-02 ")
 ;;2202
 ;;21,"54569-1732-03 ")
 ;;2203
 ;;21,"54569-1732-04 ")
 ;;2204
 ;;21,"54569-1732-05 ")
 ;;2205
 ;;21,"54569-1732-06 ")
 ;;2206
 ;;21,"54569-1864-01 ")
 ;;472
 ;;21,"54569-1864-02 ")
 ;;473
 ;;21,"54569-1999-00 ")
 ;;4198
 ;;21,"54569-1999-01 ")
 ;;4199
 ;;21,"54569-1999-02 ")
 ;;4200
 ;;21,"54569-1999-03 ")
 ;;4201
 ;;21,"54569-2006-00 ")
 ;;1390