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

BGP44O5.m

Go to the documentation of this file.
BGP44O5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"49999-0239-60 ")
 ;;514
 ;;21,"49999-0240-00 ")
 ;;626
 ;;21,"49999-0240-30 ")
 ;;627
 ;;21,"49999-0287-30 ")
 ;;157
 ;;21,"49999-0294-30 ")
 ;;2012
 ;;21,"49999-0295-00 ")
 ;;984
 ;;21,"49999-0295-10 ")
 ;;985
 ;;21,"49999-0295-30 ")
 ;;986
 ;;21,"49999-0295-90 ")
 ;;987
 ;;21,"49999-0305-30 ")
 ;;2041
 ;;21,"49999-0321-00 ")
 ;;3085
 ;;21,"49999-0321-30 ")
 ;;3086
 ;;21,"49999-0321-60 ")
 ;;3087
 ;;21,"49999-0345-00 ")
 ;;720
 ;;21,"49999-0345-30 ")
 ;;721
 ;;21,"49999-0469-10 ")
 ;;1529
 ;;21,"49999-0469-30 ")
 ;;1624
 ;;21,"49999-0469-60 ")
 ;;1625
 ;;21,"49999-0469-90 ")
 ;;1626
 ;;21,"49999-0511-30 ")
 ;;338
 ;;21,"49999-0511-60 ")
 ;;339
 ;;21,"49999-0543-00 ")
 ;;2522
 ;;21,"49999-0543-30 ")
 ;;2523
 ;;21,"49999-0759-30 ")
 ;;87
 ;;21,"49999-0761-00 ")
 ;;2945
 ;;21,"49999-0761-30 ")
 ;;2946
 ;;21,"49999-0815-30 ")
 ;;2480
 ;;21,"49999-0815-90 ")
 ;;2481
 ;;21,"49999-0823-00 ")
 ;;2912
 ;;21,"49999-0870-00 ")
 ;;1480
 ;;21,"49999-0870-30 ")
 ;;1481
 ;;21,"49999-0870-60 ")
 ;;1504
 ;;21,"49999-0870-90 ")
 ;;1505
 ;;21,"49999-0871-30 ")
 ;;1936
 ;;21,"49999-0871-90 ")
 ;;1937
 ;;21,"49999-0877-00 ")
 ;;2586
 ;;21,"49999-0877-30 ")
 ;;2587
 ;;21,"49999-0877-90 ")
 ;;2588
 ;;21,"49999-0878-00 ")
 ;;2528
 ;;21,"49999-0878-30 ")
 ;;2529
 ;;21,"49999-0878-90 ")
 ;;2530
 ;;21,"49999-0879-00 ")
 ;;3661
 ;;21,"49999-0879-30 ")
 ;;3662
 ;;21,"49999-0880-00 ")
 ;;3555
 ;;21,"49999-0880-30 ")
 ;;3556
 ;;21,"49999-0880-90 ")
 ;;3557
 ;;21,"49999-0924-00 ")
 ;;3035
 ;;21,"49999-0924-10 ")
 ;;3036
 ;;21,"49999-0924-30 ")
 ;;3037
 ;;21,"49999-0924-60 ")
 ;;3038
 ;;21,"49999-0934-30 ")
 ;;1875
 ;;21,"49999-0940-30 ")
 ;;2294
 ;;21,"49999-0940-90 ")
 ;;2295
 ;;21,"49999-0943-00 ")
 ;;3598
 ;;21,"49999-0943-90 ")
 ;;3599
 ;;21,"49999-0946-30 ")
 ;;2799
 ;;21,"49999-0947-30 ")
 ;;2671
 ;;21,"49999-0948-30 ")
 ;;2732
 ;;21,"49999-0988-30 ")
 ;;2063
 ;;21,"49999-0991-90 ")
 ;;2382
 ;;21,"50436-5000-01 ")
 ;;1385
 ;;21,"51079-0145-01 ")
 ;;41
 ;;21,"51079-0145-20 ")
 ;;42
 ;;21,"51079-0146-01 ")
 ;;104
 ;;21,"51079-0146-20 ")
 ;;105
 ;;21,"51079-0192-03 ")
 ;;3585
 ;;21,"51079-0193-03 ")
 ;;3630
 ;;21,"51079-0194-03 ")
 ;;3671
 ;;21,"51079-0256-40 ")
 ;;882
 ;;21,"51079-0261-40 ")
 ;;1475
 ;;21,"51079-0697-40 ")
 ;;2944
 ;;21,"51079-0698-40 ")
 ;;3070
 ;;21,"51079-0699-40 ")
 ;;3145
 ;;21,"51079-0750-01 ")
 ;;2282
 ;;21,"51079-0750-20 ")
 ;;2283
 ;;21,"51079-0757-01 ")
 ;;3400
 ;;21,"51079-0757-20 ")
 ;;3401
 ;;21,"51079-0863-01 ")
 ;;222
 ;;21,"51079-0863-20 ")
 ;;231
 ;;21,"51079-0864-01 ")
 ;;290
 ;;21,"51079-0864-20 ")
 ;;291
 ;;21,"51079-0950-01 ")
 ;;429
 ;;21,"51079-0950-20 ")
 ;;430
 ;;21,"51079-0951-01 ")
 ;;492
 ;;21,"51079-0951-20 ")
 ;;493
 ;;21,"51079-0952-01 ")
 ;;582
 ;;21,"51079-0952-20 ")
 ;;583
 ;;21,"51079-0953-01 ")
 ;;691
 ;;21,"51079-0953-20 ")
 ;;692
 ;;21,"51079-0981-01 ")
 ;;1031
 ;;21,"51079-0981-20 ")
 ;;1032
 ;;21,"51079-0981-30 ")
 ;;1033
 ;;21,"51079-0981-40 ")
 ;;1034
 ;;21,"51079-0981-56 ")
 ;;1035
 ;;21,"51079-0981-60 ")
 ;;1006
 ;;21,"51079-0982-01 ")
 ;;1176
 ;;21,"51079-0982-17 ")
 ;;1177
 ;;21,"51079-0982-19 ")
 ;;1178
 ;;21,"51079-0982-20 ")
 ;;1179
 ;;21,"51079-0982-30 ")
 ;;1180
 ;;21,"51079-0982-40 ")
 ;;1181
 ;;21,"51079-0982-56 ")
 ;;1182
 ;;21,"51079-0982-60 ")
 ;;1183
 ;;21,"51079-0983-01 ")
 ;;1325
 ;;21,"51079-0983-17 ")
 ;;1326
 ;;21,"51079-0983-19 ")
 ;;1327
 ;;21,"51079-0983-20 ")
 ;;1328
 ;;21,"51079-0983-30 ")
 ;;1329
 ;;21,"51079-0983-40 ")
 ;;1330
 ;;21,"51079-0983-56 ")
 ;;1331
 ;;21,"51079-0983-60 ")
 ;;1332
 ;;21,"51079-0984-01 ")
 ;;1656
 ;;21,"51079-0984-20 ")
 ;;1657
 ;;21,"51079-0984-40 ")
 ;;1658
 ;;21,"51138-0013-30 ")
 ;;233
 ;;21,"51138-0014-30 ")
 ;;284
 ;;21,"51138-0015-30 ")
 ;;356
 ;;21,"51138-0016-30 ")
 ;;402
 ;;21,"51138-0033-30 ")
 ;;433
 ;;21,"51138-0034-30 ")
 ;;489
 ;;21,"51138-0035-30 ")
 ;;599
 ;;21,"51138-0036-30 ")
 ;;684
 ;;21,"51138-0063-30 ")
 ;;915
 ;;21,"51138-0064-30 ")
 ;;1005
 ;;21,"51138-0065-30 ")
 ;;1184
 ;;21,"51138-0066-30 ")
 ;;1324
 ;;21,"51138-0067-30 ")
 ;;1506
 ;;21,"51138-0068-30 ")
 ;;1655
 ;;21,"51138-0134-30 ")
 ;;931
 ;;21,"51138-0135-30 ")
 ;;1042
 ;;21,"51138-0136-30 ")
 ;;1246
 ;;21,"51138-0137-30 ")
 ;;1303
 ;;21,"51138-0138-30 ")
 ;;1519
 ;;21,"51138-0139-30 ")
 ;;1603
 ;;21,"51138-0211-30 ")
 ;;2457
 ;;21,"51138-0212-30 ")
 ;;2467
 ;;21,"51138-0213-30 ")
 ;;2492
 ;;21,"51138-0217-30 ")
 ;;2074
 ;;21,"51138-0217-60 ")
 ;;2075
 ;;21,"51138-0218-30 ")
 ;;2122
 ;;21,"51138-0218-60 ")
 ;;2123
 ;;21,"51138-0219-30 ")
 ;;2180
 ;;21,"51138-0219-60 ")
 ;;2181
 ;;21,"51138-0224-30 ")
 ;;3516
 ;;21,"51138-0225-30 ")
 ;;3527
 ;;21,"51138-0226-30 ")
 ;;3536
 ;;21,"51138-0231-30 ")
 ;;3291
 ;;21,"51138-0232-30 ")
 ;;3320
 ;;21,"51138-0306-10 ")
 ;;3570
 ;;21,"51138-0306-30 ")
 ;;3571
 ;;21,"51138-0307-10 ")
 ;;3619
 ;;21,"51138-0307-30 ")
 ;;3620
 ;;21,"51138-0308-30 ")
 ;;3651
 ;;21,"51138-0309-30 ")
 ;;3682
 ;;21,"51138-0310-30 ")
 ;;3702
 ;;21,"51138-0327-30 ")
 ;;2885
 ;;21,"51138-0328-30 ")
 ;;2910
 ;;21,"51138-0329-30 ")
 ;;1718
 ;;21,"51138-0330-30 ")
 ;;1749
 ;;21,"51138-0331-30 ")
 ;;1767
 ;;21,"51138-0332-30 ")
 ;;1801
 ;;21,"51138-0333-30 ")
 ;;444
 ;;21,"51138-0334-30 ")
 ;;510
 ;;21,"51138-0335-30 ")
 ;;631
 ;;21,"51138-0336-30 ")
 ;;713
 ;;21,"51138-0348-30 ")
 ;;1719
 ;;21,"51138-0349-30 ")
 ;;1748
 ;;21,"51138-0350-30 ")
 ;;1768
 ;;21,"51138-0351-30 ")
 ;;1800
 ;;21,"51138-0357-30 ")
 ;;3193
 ;;21,"51138-0358-10 ")
 ;;3199
 ;;21,"51138-0358-30 ")
 ;;3200
 ;;21,"51138-0359-30 ")
 ;;3212
 ;;21,"51138-0379-30 ")
 ;;17
 ;;21,"51138-0380-30 ")
 ;;44
 ;;21,"51138-0381-30 ")
 ;;100
 ;;21,"51138-0382-30 ")
 ;;180
 ;;21,"51138-0392-30 ")
 ;;2834
 ;;21,"51138-0393-30 ")
 ;;2842
 ;;21,"51138-0394-30 ")
 ;;2856
 ;;21,"51138-0395-30 ")
 ;;2867
 ;;21,"51138-0396-30 ")
 ;;18
 ;;21,"51138-0397-30 ")
 ;;43
 ;;21,"51138-0398-30 ")
 ;;101
 ;;21,"51138-0399-30 ")
 ;;179
 ;;21,"51138-0418-30 ")
 ;;2616
 ;;21,"51138-0419-30 ")
 ;;2647
 ;;21,"51138-0420-30 ")
 ;;2709
 ;;21,"51138-0422-30 ")
 ;;2779
 ;;21,"51138-0424-30 ")
 ;;1816
 ;;21,"51138-0425-30 ")
 ;;1844
 ;;21,"51138-0426-10 ")
 ;;1886
 ;;21,"51138-0426-30 ")
 ;;1887
 ;;21,"51138-0427-10 ")
 ;;1950
 ;;21,"51138-0427-30 ")
 ;;1951
 ;;21,"51138-0432-30 ")
 ;;2615
 ;;21,"51138-0433-30 ")
 ;;2648
 ;;21,"51138-0434-30 ")
 ;;2708
 ;;21,"51138-0435-30 ")
 ;;2780
 ;;21,"51138-0443-30 ")
 ;;2886
 ;;21,"51138-0444-30 ")
 ;;2908
 ;;21,"51138-0476-30 ")
 ;;3352
 ;;21,"51138-0477-30 ")
 ;;3409
 ;;21,"51138-0478-30 ")
 ;;3464
 ;;21,"51138-0493-30 ")
 ;;2043
 ;;21,"51138-0494-30 ")
 ;;2057
 ;;21,"51138-0505-15 ")
 ;;243
 ;;21,"51138-0505-30 ")
 ;;244
 ;;21,"51138-0506-30 ")
 ;;274
 ;;21,"51138-0507-30 ")
 ;;371
 ;;21,"51138-0508-20 ")
 ;;394
 ;;21,"51138-0508-45 ")
 ;;395
 ;;21,"51138-0515-30 ")
 ;;2237
 ;;21,"51138-0516-30 ")
 ;;2310
 ;;21,"51138-0517-30 ")
 ;;2392
 ;;21,"51138-0520-30 ")
 ;;761
 ;;21,"51138-0521-30 ")
 ;;789
 ;;21,"51138-0522-30 ")
 ;;863
 ;;21,"51138-0531-10 ")
 ;;2632
 ;;21,"51138-0531-30 ")
 ;;2633
 ;;21,"51138-0532-10 ")
 ;;2679
 ;;21,"51138-0532-30 ")
 ;;2680
 ;;21,"51138-0533-10 ")
 ;;2729
 ;;21,"51138-0533-30 ")
 ;;2730
 ;;21,"51138-0534-10 ")
 ;;2751
 ;;21,"51138-0534-30 ")
 ;;2752
 ;;21,"51138-0535-10 ")
 ;;2796
 ;;21,"51138-0535-30 ")
 ;;2797
 ;;21,"51138-0536-10 ")
 ;;2818
 ;;21,"51138-0536-30 ")
 ;;2819
 ;;21,"51138-0551-30 ")
 ;;2964
 ;;21,"51138-0552-30 ")
 ;;3072
 ;;21,"51138-0553-30 ")
 ;;3143
 ;;21,"51138-0554-30 ")
 ;;2963
 ;;21,"51138-0555-30 ")
 ;;3073
 ;;21,"51138-0556-30 ")
 ;;3142
 ;;21,"51138-0573-30 ")
 ;;1992
 ;;21,"51138-0574-30 ")
 ;;2003
 ;;21,"51138-0575-10 ")
 ;;2017
 ;;21,"51138-0575-30 ")
 ;;2018
 ;;21,"51655-0286-24 ")
 ;;538
 ;;21,"51655-0287-24 ")
 ;;640
 ;;21,"51672-4037-01 ")
 ;;431
 ;;21,"51672-4037-03 ")
 ;;432
 ;;21,"51672-4038-01 ")
 ;;490
 ;;21,"51672-4038-03 ")
 ;;491
 ;;21,"51672-4039-01 ")
 ;;589
 ;;21,"51672-4039-03 ")
 ;;590
 ;;21,"51672-4040-01 ")
 ;;686
 ;;21,"51672-4040-03 ")
 ;;687
 ;;21,"51672-4045-01 ")
 ;;2888
 ;;21,"51672-4046-01 ")
 ;;2907
 ;;21,"52959-0137-15 ")
 ;;2941
 ;;21,"52959-0180-30 ")
 ;;591
 ;;21,"52959-0180-60 ")
 ;;592
 ;;21,"52959-0498-00 ")
 ;;2999
 ;;21,"52959-0728-15 ")
 ;;1247
 ;;21,"52959-0728-20 ")
 ;;1248
 ;;21,"52959-0728-30 ")
 ;;1249
 ;;21,"52959-0728-90 ")
 ;;1250
 ;;21,"52959-0729-30 ")
 ;;1300
 ;;21,"52959-0729-60 ")
 ;;1301
 ;;21,"52959-0729-90 ")
 ;;1302
 ;;21,"52959-0753-00 ")
 ;;1604
 ;;21,"52959-0753-30 ")
 ;;1558
 ;;21,"52959-0753-60 ")
 ;;1559
 ;;21,"52959-0756-30 ")
 ;;2557
 ;;21,"52959-0831-30 ")
 ;;86
 ;;21,"52959-0835-30 ")
 ;;166
 ;;21,"52959-0835-60 ")
 ;;167
 ;;21,"52959-0841-30 ")
 ;;32
 ;;21,"52959-0841-60 ")
 ;;33
 ;;21,"52959-0854-20 ")
 ;;1019
 ;;21,"52959-0854-30 ")
 ;;1020
 ;;21,"52959-0907-30 ")
 ;;2866
 ;;21,"52959-0942-30 ")
 ;;688
 ;;21,"52959-0973-30 ")
 ;;925
 ;;21,"52959-0975-30 ")
 ;;1018
 ;;21,"52959-0997-30 ")
 ;;3128
 ;;21,"53002-0431-00 ")
 ;;277
 ;;21,"53002-0431-30 ")
 ;;285
 ;;21,"53002-0431-60 ")
 ;;286
 ;;21,"53002-1086-00 ")
 ;;353
 ;;21,"53002-1086-03 ")
 ;;354
 ;;21,"53002-1086-06 ")
 ;;355
 ;;21,"53002-1123-00 ")
 ;;1185
 ;;21,"53002-1123-03 ")
 ;;1186
 ;;21,"53002-1123-06 ")
 ;;1187
 ;;21,"53002-1178-00 ")
 ;;1321
 ;;21,"53002-1178-03 ")
 ;;1322
 ;;21,"53002-1178-06 ")
 ;;1323
 ;;21,"53002-1225-00 ")
 ;;940
 ;;21,"53002-1225-03 ")
 ;;941
 ;;21,"53002-1225-06 ")
 ;;942
 ;;21,"53002-1463-00 ")
 ;;1530
 ;;21,"53002-1463-03 ")
 ;;1531
 ;;21,"54458-0905-02 ")
 ;;1605
 ;;21,"54458-0906-02 ")
 ;;1043
 ;;21,"54458-0907-02 ")
 ;;2971
 ;;21,"54458-0910-02 ")
 ;;3157
 ;;21,"54458-0956-10 ")
 ;;189
 ;;21,"54458-0957-10 ")
 ;;120
 ;;21,"54458-0991-05 ")
 ;;3090
 ;;21,"54458-0991-10 ")
 ;;3091
 ;;21,"54458-0992-10 ")
 ;;3030
 ;;21,"54458-0993-09 ")
 ;;2948
 ;;21,"54458-0994-10 ")
 ;;1557
 ;;21,"54458-0995-10 ")
 ;;1482
 ;;21,"54458-0996-10 ")
 ;;1450
 ;;21,"54458-0997-10 ")
 ;;1136
 ;;21,"54458-0998-09 ")
 ;;954
 ;;21,"54458-0999-09 ")
 ;;891
 ;;21,"54569-1944-02 ")
 ;;1270
 ;;21,"54569-3714-00 ")
 ;;1876
 ;;21,"54569-4246-00 ")
 ;;313
 ;;21,"54569-4246-03 ")
 ;;314
 ;;21,"54569-4246-04 ")
 ;;315
 ;;21,"54569-4246-05 ")
 ;;316
 ;;21,"54569-4246-07 ")
 ;;317
 ;;21,"54569-4247-00 ")
 ;;325
 ;;21,"54569-4247-02 ")
 ;;326
 ;;21,"54569-4247-04 ")
 ;;327
 ;;21,"54569-4276-00 ")
 ;;1688
 ;;21,"54569-4438-00 ")
 ;;2289
 ;;21,"54569-4572-00 ")
 ;;2119
 ;;21,"54569-4593-00 ")
 ;;225
 ;;21,"54569-4593-01 ")
 ;;226
 ;;21,"54569-4593-03 ")
 ;;227
 ;;21,"54569-4714-00 ")
 ;;2046
 ;;21,"54569-4722-01 ")
 ;;3346
 ;;21,"54569-4766-00 ")
 ;;3562
 ;;21,"54569-4766-03 ")
 ;;3563
 ;;21,"54569-4767-00 ")
 ;;3600
 ;;21,"54569-4767-03 ")
 ;;3601
 ;;21,"54569-5133-00 ")
 ;;504
 ;;21,"54569-5133-01 ")
 ;;505
 ;;21,"54569-5134-00 ")
 ;;618
 ;;21,"54569-5134-01 ")
 ;;619
 ;;21,"54569-5134-02 ")
 ;;620
 ;;21,"54569-5135-00 ")
 ;;701
 ;;21,"54569-5135-01 ")
 ;;702
 ;;21,"54569-5361-00 ")
 ;;2558
 ;;21,"54569-5362-00 ")
 ;;2559
 ;;21,"54569-5434-00 ")
 ;;1131
 ;;21,"54569-5434-03 ")
 ;;1132
 ;;21,"54569-5434-04 ")
 ;;1133
 ;;21,"54569-5434-05 ")
 ;;1134
 ;;21,"54569-5435-00 ")
 ;;1454
 ;;21,"54569-5435-03 ")
 ;;1455
 ;;21,"54569-5435-04 ")
 ;;1456
 ;;21,"54569-5435-05 ")
 ;;1457
 ;;21,"54569-5437-00 ")
 ;;892
 ;;21,"54569-5437-02 ")
 ;;893
 ;;21,"54569-5438-00 ")
 ;;952
 ;;21,"54569-5438-03 ")
 ;;953
 ;;21,"54569-5472-00 ")
 ;;1564
 ;;21,"54569-5472-02 ")
 ;;1565
 ;;21,"54569-5606-00 ")
 ;;2468
 ;;21,"54569-5621-00 ")
 ;;739
 ;;21,"54569-5665-00 ")
 ;;3549
 ;;21,"54569-5666-00 ")
 ;;2595
 ;;21,"54569-5667-00 ")
 ;;3639
 ;;21,"54569-5668-00 ")
 ;;64
 ;;21,"54569-5668-01 ")
 ;;65
 ;;21,"54569-5668-02 ")
 ;;66
 ;;21,"54569-5669-00 ")
 ;;108
 ;;21,"54569-5669-01 ")
 ;;109
 ;;21,"54569-5670-00 ")
 ;;196
 ;;21,"54569-5670-01 ")
 ;;197
 ;;21,"54569-5685-00 ")
 ;;2863
 ;;21,"54569-5685-01 ")
 ;;2864
 ;;21,"54569-5709-00 ")
 ;;1733
 ;;21,"54569-5710-00 ")
 ;;1761
 ;;21,"54569-5711-00 ")
 ;;1790
 ;;21,"54569-5728-00 ")
 ;;1518
 ;;21,"54569-5801-00 ")
 ;;3256
 ;;21,"54569-5867-00 ")
 ;;2076
 ;;21,"54569-5878-00 ")
 ;;2794
 ;;21,"54569-5880-01 ")
 ;;3463
 ;;21,"54569-5903-00 ")
 ;;3541
 ;;21,"54569-5916-00 ")
 ;;1683
 ;;21,"54569-5936-00 ")
 ;;1941
 ;;21,"54569-5937-00 ")
 ;;2643
 ;;21,"54569-5938-00 ")
 ;;2691
 ;;21,"54569-5998-00 ")
 ;;3530
 ;;21,"54569-5999-00 ")
 ;;3407
 ;;21,"54569-6091-00 ")
 ;;2994
 ;;21,"54569-6091-01 ")
 ;;2995
 ;;21,"54569-6092-00 ")
 ;;3039