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

BGP33I8.m

Go to the documentation of this file.
BGP33I8 ;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,"55045-2509-09 ")
 ;;4306
 ;;21,"55045-2546-08 ")
 ;;3406
 ;;21,"55045-2631-08 ")
 ;;728
 ;;21,"55045-2705-00 ")
 ;;1280
 ;;21,"55045-2706-09 ")
 ;;1140
 ;;21,"55045-2907-00 ")
 ;;2014
 ;;21,"55045-2907-02 ")
 ;;2015
 ;;21,"55045-2907-06 ")
 ;;2016
 ;;21,"55045-2907-08 ")
 ;;2017
 ;;21,"55045-2907-09 ")
 ;;2018
 ;;21,"55045-2908-00 ")
 ;;2221
 ;;21,"55045-2908-02 ")
 ;;2222
 ;;21,"55045-2908-06 ")
 ;;2223
 ;;21,"55045-2908-08 ")
 ;;2224
 ;;21,"55045-2908-09 ")
 ;;2225
 ;;21,"55045-2934-00 ")
 ;;1870
 ;;21,"55045-2934-08 ")
 ;;1871
 ;;21,"55045-2985-00 ")
 ;;1920
 ;;21,"55045-2985-08 ")
 ;;1921
 ;;21,"55045-3088-08 ")
 ;;4645
 ;;21,"55045-3137-08 ")
 ;;2397
 ;;21,"55045-3171-08 ")
 ;;3253
 ;;21,"55045-3172-08 ")
 ;;3407
 ;;21,"55045-3172-09 ")
 ;;3408
 ;;21,"55045-3195-06 ")
 ;;558
 ;;21,"55045-3195-08 ")
 ;;559
 ;;21,"55045-3196-06 ")
 ;;4869
 ;;21,"55045-3196-08 ")
 ;;4870
 ;;21,"55045-3196-09 ")
 ;;4871
 ;;21,"55045-3197-06 ")
 ;;729
 ;;21,"55045-3220-09 ")
 ;;4762
 ;;21,"55045-3276-02 ")
 ;;923
 ;;21,"55045-3341-06 ")
 ;;1141
 ;;21,"55045-3341-08 ")
 ;;1142
 ;;21,"55045-3368-08 ")
 ;;4581
 ;;21,"55045-3386-08 ")
 ;;3948
 ;;21,"55045-3387-08 ")
 ;;4961
 ;;21,"55045-3423-01 ")
 ;;1011
 ;;21,"55045-3423-02 ")
 ;;1012
 ;;21,"55045-3424-00 ")
 ;;1281
 ;;21,"55045-3424-08 ")
 ;;1282
 ;;21,"55045-3562-01 ")
 ;;3821
 ;;21,"55045-3566-01 ")
 ;;4085
 ;;21,"55045-3697-03 ")
 ;;1823
 ;;21,"55045-3757-08 ")
 ;;4442
 ;;21,"55045-3766-08 ")
 ;;2019
 ;;21,"55045-3799-01 ")
 ;;2506
 ;;21,"55111-0142-60 ")
 ;;2953
 ;;21,"55111-0147-01 ")
 ;;2020
 ;;21,"55111-0148-01 ")
 ;;2226
 ;;21,"55111-0148-10 ")
 ;;2227
 ;;21,"55111-0149-01 ")
 ;;2398
 ;;21,"55111-0149-30 ")
 ;;2399
 ;;21,"55111-0284-48 ")
 ;;2428
 ;;21,"55111-0342-01 ")
 ;;1013
 ;;21,"55111-0342-05 ")
 ;;1014
 ;;21,"55111-0342-30 ")
 ;;1015
 ;;21,"55111-0343-01 ")
 ;;1143
 ;;21,"55111-0343-05 ")
 ;;1144
 ;;21,"55111-0343-30 ")
 ;;1145
 ;;21,"55111-0344-01 ")
 ;;1283
 ;;21,"55111-0344-05 ")
 ;;1284
 ;;21,"55111-0344-30 ")
 ;;1285
 ;;21,"55111-0453-05 ")
 ;;4693
 ;;21,"55111-0453-30 ")
 ;;4694
 ;;21,"55111-0453-90 ")
 ;;4695
 ;;21,"55111-0454-05 ")
 ;;4872
 ;;21,"55111-0454-30 ")
 ;;4873
 ;;21,"55111-0454-90 ")
 ;;4874
 ;;21,"55111-0455-05 ")
 ;;4582
 ;;21,"55111-0455-30 ")
 ;;4583
 ;;21,"55111-0455-90 ")
 ;;4584
 ;;21,"55111-0545-90 ")
 ;;4646
 ;;21,"55111-0546-05 ")
 ;;4763
 ;;21,"55111-0546-90 ")
 ;;4764
 ;;21,"55111-0547-90 ")
 ;;4810
 ;;21,"55111-0548-05 ")
 ;;4962
 ;;21,"55111-0548-90 ")
 ;;4963
 ;;21,"55111-0549-90 ")
 ;;4537
 ;;21,"55289-0016-30 ")
 ;;407
 ;;21,"55289-0016-60 ")
 ;;408
 ;;21,"55289-0018-01 ")
 ;;1686
 ;;21,"55289-0018-30 ")
 ;;1687
 ;;21,"55289-0028-21 ")
 ;;1824
 ;;21,"55289-0028-30 ")
 ;;1825
 ;;21,"55289-0036-21 ")
 ;;1782
 ;;21,"55289-0036-30 ")
 ;;1783
 ;;21,"55289-0037-90 ")
 ;;3254
 ;;21,"55289-0053-45 ")
 ;;3630
 ;;21,"55289-0053-90 ")
 ;;3631
 ;;21,"55289-0060-14 ")
 ;;4307
 ;;21,"55289-0064-07 ")
 ;;4443
 ;;21,"55289-0064-14 ")
 ;;4444
 ;;21,"55289-0064-30 ")
 ;;4445
 ;;21,"55289-0064-60 ")
 ;;4446
 ;;21,"55289-0099-30 ")
 ;;3089
 ;;21,"55289-0099-50 ")
 ;;3090
 ;;21,"55289-0124-12 ")
 ;;63
 ;;21,"55289-0124-30 ")
 ;;64
 ;;21,"55289-0144-14 ")
 ;;2544
 ;;21,"55289-0144-30 ")
 ;;2545
 ;;21,"55289-0144-90 ")
 ;;2546
 ;;21,"55289-0215-22 ")
 ;;2228
 ;;21,"55289-0215-30 ")
 ;;2229
 ;;21,"55289-0216-30 ")
 ;;3409
 ;;21,"55289-0223-30 ")
 ;;4209
 ;;21,"55289-0258-30 ")
 ;;1735
 ;;21,"55289-0277-30 ")
 ;;4875
 ;;21,"55289-0291-14 ")
 ;;4086
 ;;21,"55289-0291-30 ")
 ;;4087
 ;;21,"55289-0291-60 ")
 ;;4088
 ;;21,"55289-0308-07 ")
 ;;2021
 ;;21,"55289-0308-14 ")
 ;;2022
 ;;21,"55289-0308-30 ")
 ;;2023
 ;;21,"55289-0370-30 ")
 ;;1614
 ;;21,"55289-0378-30 ")
 ;;3949
 ;;21,"55289-0381-30 ")
 ;;3822
 ;;21,"55289-0381-45 ")
 ;;3823
 ;;21,"55289-0381-60 ")
 ;;3824
 ;;21,"55289-0381-90 ")
 ;;3825
 ;;21,"55289-0409-30 ")
 ;;4089
 ;;21,"55289-0409-60 ")
 ;;4090
 ;;21,"55289-0550-15 ")
 ;;3826
 ;;21,"55289-0550-30 ")
 ;;3827
 ;;21,"55289-0586-30 ")
 ;;3002
 ;;21,"55289-0610-14 ")
 ;;2230
 ;;21,"55289-0610-28 ")
 ;;2231
 ;;21,"55289-0610-30 ")
 ;;2232
 ;;21,"55289-0610-60 ")
 ;;2233
 ;;21,"55289-0610-90 ")
 ;;2234
 ;;21,"55289-0613-14 ")
 ;;2024
 ;;21,"55289-0613-30 ")
 ;;2025
 ;;21,"55289-0613-60 ")
 ;;2026
 ;;21,"55289-0730-01 ")
 ;;280
 ;;21,"55289-0730-12 ")
 ;;281
 ;;21,"55289-0730-25 ")
 ;;282
 ;;21,"55289-0730-30 ")
 ;;283
 ;;21,"55289-0730-60 ")
 ;;284
 ;;21,"55289-0730-90 ")
 ;;285
 ;;21,"55289-0733-30 ")
 ;;560
 ;;21,"55289-0733-60 ")
 ;;561
 ;;21,"55289-0768-30 ")
 ;;1872
 ;;21,"55289-0827-30 ")
 ;;1146
 ;;21,"55289-0828-30 ")
 ;;1922
 ;;21,"55289-0830-30 ")
 ;;4964
 ;;21,"55289-0839-30 ")
 ;;2586
 ;;21,"55289-0869-30 ")
 ;;4696
 ;;21,"55289-0883-14 ")
 ;;1147
 ;;21,"55289-0883-30 ")
 ;;1148
 ;;21,"55289-0883-90 ")
 ;;1149
 ;;21,"55289-0897-30 ")
 ;;4585
 ;;21,"55289-0900-15 ")
 ;;875
 ;;21,"55289-0900-30 ")
 ;;876
 ;;21,"55289-0905-30 ")
 ;;730
 ;;21,"55289-0922-15 ")
 ;;805
 ;;21,"55289-0922-30 ")
 ;;806
 ;;21,"55289-0972-60 ")
 ;;3410
 ;;21,"55289-0972-90 ")
 ;;3411
 ;;21,"55587-0283-30 ")
 ;;877
 ;;21,"55587-0283-60 ")
 ;;878
 ;;21,"55587-0283-90 ")
 ;;879
 ;;21,"55587-0284-30 ")
 ;;807
 ;;21,"55587-0284-60 ")
 ;;808
 ;;21,"55587-0284-90 ")
 ;;809
 ;;21,"55864-0708-30 ")
 ;;4308
 ;;21,"55887-0075-30 ")
 ;;2400
 ;;21,"55887-0095-30 ")
 ;;1568
 ;;21,"55887-0095-60 ")
 ;;1569
 ;;21,"55887-0095-90 ")
 ;;1570
 ;;21,"55887-0101-30 ")
 ;;1536
 ;;21,"55887-0101-60 ")
 ;;1537
 ;;21,"55887-0101-90 ")
 ;;1538
 ;;21,"55887-0125-30 ")
 ;;4965
 ;;21,"55887-0125-60 ")
 ;;4966
 ;;21,"55887-0143-30 ")
 ;;1443
 ;;21,"55887-0143-60 ")
 ;;1444
 ;;21,"55887-0143-82 ")
 ;;1445
 ;;21,"55887-0143-90 ")
 ;;1446
 ;;21,"55887-0143-92 ")
 ;;1447
 ;;21,"55887-0144-30 ")
 ;;1392
 ;;21,"55887-0144-60 ")
 ;;1393
 ;;21,"55887-0144-82 ")
 ;;1394
 ;;21,"55887-0144-90 ")
 ;;1395
 ;;21,"55887-0144-92 ")
 ;;1396
 ;;21,"55887-0151-01 ")
 ;;562
 ;;21,"55887-0151-20 ")
 ;;563
 ;;21,"55887-0151-30 ")
 ;;564
 ;;21,"55887-0151-60 ")
 ;;565
 ;;21,"55887-0151-82 ")
 ;;566
 ;;21,"55887-0151-90 ")
 ;;567
 ;;21,"55887-0160-15 ")
 ;;3950
 ;;21,"55887-0160-30 ")
 ;;3951
 ;;21,"55887-0160-60 ")
 ;;3952
 ;;21,"55887-0160-90 ")
 ;;3953
 ;;21,"55887-0168-30 ")
 ;;4091
 ;;21,"55887-0168-60 ")
 ;;4092
 ;;21,"55887-0168-90 ")
 ;;4093
 ;;21,"55887-0193-30 ")
 ;;4586
 ;;21,"55887-0193-90 ")
 ;;4587
 ;;21,"55887-0213-30 ")
 ;;3317
 ;;21,"55887-0214-30 ")
 ;;3501
 ;;21,"55887-0237-30 ")
 ;;1286
 ;;21,"55887-0237-60 ")
 ;;1287
 ;;21,"55887-0237-86 ")
 ;;1288
 ;;21,"55887-0237-90 ")
 ;;1289
 ;;21,"55887-0256-20 ")
 ;;4210
 ;;21,"55887-0256-30 ")
 ;;4211
 ;;21,"55887-0256-60 ")
 ;;4212
 ;;21,"55887-0256-90 ")
 ;;4213
 ;;21,"55887-0260-30 ")
 ;;1016
 ;;21,"55887-0260-90 ")
 ;;1017
 ;;21,"55887-0261-01 ")
 ;;1150
 ;;21,"55887-0261-07 ")
 ;;1151
 ;;21,"55887-0261-30 ")
 ;;1152
 ;;21,"55887-0261-90 ")
 ;;1153
 ;;21,"55887-0283-30 ")
 ;;880
 ;;21,"55887-0283-60 ")
 ;;881
 ;;21,"55887-0283-90 ")
 ;;882
 ;;21,"55887-0284-30 ")
 ;;810
 ;;21,"55887-0284-60 ")
 ;;811
 ;;21,"55887-0284-90 ")
 ;;812
 ;;21,"55887-0288-30 ")
 ;;2587
 ;;21,"55887-0289-30 ")
 ;;1688
 ;;21,"55887-0289-60 ")
 ;;1689
 ;;21,"55887-0346-30 ")
 ;;3632
 ;;21,"55887-0356-30 ")
 ;;1615
 ;;21,"55887-0356-60 ")
 ;;1616
 ;;21,"55887-0394-30 ")
 ;;3412
 ;;21,"55887-0394-60 ")
 ;;3413
 ;;21,"55887-0394-90 ")
 ;;3414
 ;;21,"55887-0398-60 ")
 ;;479
 ;;21,"55887-0433-30 ")
 ;;3255
 ;;21,"55887-0439-30 ")
 ;;3003
 ;;21,"55887-0439-60 ")
 ;;3004
 ;;21,"55887-0439-92 ")
 ;;3005
 ;;21,"55887-0458-30 ")
 ;;2027
 ;;21,"55887-0458-40 ")
 ;;2028
 ;;21,"55887-0458-60 ")
 ;;2029
 ;;21,"55887-0458-90 ")
 ;;2030
 ;;21,"55887-0490-30 ")
 ;;3318
 ;;21,"55887-0490-60 ")
 ;;3319
 ;;21,"55887-0490-82 ")
 ;;3320
 ;;21,"55887-0490-90 ")
 ;;3321
 ;;21,"55887-0496-30 ")
 ;;731
 ;;21,"55887-0496-60 ")
 ;;732
 ;;21,"55887-0496-90 ")
 ;;733
 ;;21,"55887-0498-30 ")
 ;;3164
 ;;21,"55887-0498-60 ")
 ;;3165
 ;;21,"55887-0502-60 ")
 ;;1018
 ;;21,"55887-0511-20 ")
 ;;3502
 ;;21,"55887-0511-30 ")
 ;;3503
 ;;21,"55887-0511-60 ")
 ;;3504
 ;;21,"55887-0511-82 ")
 ;;3505
 ;;21,"55887-0511-90 ")
 ;;3506
 ;;21,"55887-0518-15 ")
 ;;3091
 ;;21,"55887-0518-30 ")
 ;;3092
 ;;21,"55887-0518-90 ")
 ;;3093
 ;;21,"55887-0519-60 ")
 ;;3954
 ;;21,"55887-0524-30 ")
 ;;4447
 ;;21,"55887-0524-60 ")
 ;;4448
 ;;21,"55887-0541-30 ")
 ;;2769
 ;;21,"55887-0548-30 ")
 ;;2682
 ;;21,"55887-0549-90 ")
 ;;3415
 ;;21,"55887-0550-30 ")
 ;;1154
 ;;21,"55887-0552-30 ")
 ;;409
 ;;21,"55887-0552-60 ")
 ;;410
 ;;21,"55887-0552-90 ")
 ;;411
 ;;21,"55887-0570-20 ")
 ;;286
 ;;21,"55887-0570-30 ")
 ;;287
 ;;21,"55887-0570-40 ")
 ;;288
 ;;21,"55887-0570-60 ")
 ;;289
 ;;21,"55887-0570-90 ")
 ;;290
 ;;21,"55887-0570-92 ")
 ;;291
 ;;21,"55887-0572-14 ")
 ;;65
 ;;21,"55887-0572-30 ")
 ;;66
 ;;21,"55887-0572-50 ")
 ;;67
 ;;21,"55887-0572-60 ")
 ;;68
 ;;21,"55887-0572-90 ")
 ;;69
 ;;21,"55887-0650-30 ")
 ;;924
 ;;21,"55887-0650-60 ")
 ;;925
 ;;21,"55887-0650-90 ")
 ;;926
 ;;21,"55887-0650-92 ")
 ;;927
 ;;21,"55887-0660-30 ")
 ;;4967
 ;;21,"55887-0661-01 ")
 ;;2235
 ;;21,"55887-0661-30 ")
 ;;2236
 ;;21,"55887-0661-60 ")
 ;;2237
 ;;21,"55887-0661-90 ")
 ;;2238
 ;;21,"55887-0662-30 ")
 ;;4697
 ;;21,"55887-0662-60 ")
 ;;4698
 ;;21,"55887-0663-30 ")
 ;;734
 ;;21,"55887-0663-60 ")
 ;;735
 ;;21,"55887-0663-90 ")
 ;;736
 ;;21,"55887-0664-30 ")
 ;;2085
 ;;21,"55887-0664-90 ")
 ;;2086
 ;;21,"55887-0745-50 ")
 ;;3094
 ;;21,"55887-0871-30 ")
 ;;4309
 ;;21,"55887-0871-60 ")
 ;;4310
 ;;21,"55887-0925-30 ")
 ;;3828
 ;;21,"55887-0925-60 ")
 ;;3829
 ;;21,"55887-0925-82 ")
 ;;3830
 ;;21,"55887-0925-90 ")
 ;;3831
 ;;21,"55887-0947-07 ")
 ;;2334
 ;;21,"55887-0947-30 ")
 ;;2239
 ;;21,"55887-0967-30 ")
 ;;3832
 ;;21,"57664-0357-88 ")
 ;;2474
 ;;21,"57664-0361-13 ")
 ;;2488
 ;;21,"57664-0361-88 ")
 ;;2489
 ;;21,"57664-0362-13 ")
 ;;2458
 ;;21,"57664-0362-88 ")
 ;;2459
 ;;21,"57664-0421-13 ")
 ;;3256
 ;;21,"57664-0421-83 ")
 ;;3257
 ;;21,"57664-0421-99 ")
 ;;3258
 ;;21,"57664-0422-13 ")
 ;;3416
 ;;21,"57664-0422-18 ")
 ;;3417
 ;;21,"57664-0422-83 ")
 ;;3418
 ;;21,"57664-0422-99 ")
 ;;3419
 ;;21,"57664-0424-13 ")
 ;;3545
 ;;21,"57664-0424-83 ")
 ;;3546
 ;;21,"57664-0424-99 ")
 ;;3547
 ;;21,"57664-0425-13 ")
 ;;3633
 ;;21,"57664-0425-83 ")
 ;;3634
 ;;21,"57664-0425-99 ")
 ;;3635
 ;;21,"57664-0499-18 ")
 ;;2683
 ;;21,"57664-0499-83 ")
 ;;2684
 ;;21,"57664-0500-18 ")
 ;;2770
 ;;21,"57664-0500-83 ")
 ;;2771
 ;;21,"57664-0501-18 ")
 ;;2851
 ;;21,"57664-0501-83 ")
 ;;2852
 ;;21,"57664-0507-13 ")
 ;;1019
 ;;21,"57664-0507-18 ")
 ;;1020
 ;;21,"57664-0507-83 ")
 ;;1021
 ;;21,"57664-0507-88 ")
 ;;1022
 ;;21,"57664-0508-13 ")
 ;;1155
 ;;21,"57664-0508-18 ")
 ;;1156
 ;;21,"57664-0508-83 ")
 ;;1157
 ;;21,"57664-0508-88 ")
 ;;1158
 ;;21,"57664-0509-13 ")
 ;;1290
 ;;21,"57664-0509-18 ")
 ;;1291
 ;;21,"57664-0509-83 ")
 ;;1292
 ;;21,"57664-0509-88 ")
 ;;1293
 ;;21,"57664-0510-18 ")
 ;;2887
 ;;21,"57664-0510-83 ")
 ;;2888
 ;;21,"57866-0920-01 ")
 ;;2335
 ;;21,"57866-0920-02 ")
 ;;2336
 ;;21,"57866-0920-03 ")
 ;;2337
 ;;21,"57866-0922-01 ")
 ;;2240
 ;;21,"57866-0922-02 ")
 ;;2241
 ;;21,"57866-0922-03 ")
 ;;2242
 ;;21,"57866-3061-02 ")
 ;;2772
 ;;21,"57866-3071-01 ")
 ;;70
 ;;21,"57866-3072-01 ")
 ;;292
 ;;21,"57866-3072-02 ")
 ;;293
 ;;21,"57866-3072-03 ")
 ;;294
 ;;21,"57866-3073-01 ")
 ;;412
 ;;21,"57866-3073-02 ")
 ;;413
 ;;21,"57866-3073-03 ")
 ;;414
 ;;21,"57866-3906-01 ")
 ;;480
 ;;21,"57866-3907-01 ")
 ;;188
 ;;21,"57866-3930-01 ")
 ;;2547
 ;;21,"57866-3931-01 ")
 ;;2588
 ;;21,"57866-4688-01 ")
 ;;4214
 ;;21,"57866-4688-02 ")
 ;;4215
 ;;21,"57866-4688-03 ")
 ;;4216
 ;;21,"57866-4688-04 ")
 ;;4217
 ;;21,"57866-4715-01 ")
 ;;4449
 ;;21,"57866-4715-02 ")
 ;;4450
 ;;21,"57866-4715-03 ")
 ;;4451
 ;;21,"57866-4715-04 ")
 ;;4452
 ;;21,"57866-6650-01 ")
 ;;3095
 ;;21,"57866-6650-02 ")
 ;;3096
 ;;21,"57866-6650-03 ")
 ;;3097
 ;;21,"58016-0004-00 ")
 ;;4765
 ;;21,"58016-0004-30 ")
 ;;4766
 ;;21,"58016-0004-60 ")
 ;;4767
 ;;21,"58016-0004-90 ")
 ;;4768
 ;;21,"58016-0009-00 ")
 ;;3833
 ;;21,"58016-0009-30 ")
 ;;3834
 ;;21,"58016-0009-60 ")
 ;;3835
 ;;21,"58016-0009-90 ")
 ;;3836
 ;;21,"58016-0010-00 ")
 ;;4094
 ;;21,"58016-0010-30 ")
 ;;4095
 ;;21,"58016-0010-60 ")
 ;;4096
 ;;21,"58016-0010-90 ")
 ;;4097
 ;;21,"58016-0011-00 ")
 ;;3955
 ;;21,"58016-0011-30 ")
 ;;3956
 ;;21,"58016-0011-60 ")
 ;;3957
 ;;21,"58016-0011-90 ")
 ;;3958
 ;;21,"58016-0024-00 ")
 ;;737