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

BGP33I12.m

Go to the documentation of this file.
BGP33I12 ;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,"63874-0596-10 ")
 ;;3855
 ;;21,"63874-0596-14 ")
 ;;3856
 ;;21,"63874-0596-15 ")
 ;;3857
 ;;21,"63874-0596-20 ")
 ;;3858
 ;;21,"63874-0596-30 ")
 ;;3859
 ;;21,"63874-0596-60 ")
 ;;3860
 ;;21,"63874-0599-01 ")
 ;;4981
 ;;21,"63874-0599-10 ")
 ;;4982
 ;;21,"63874-0599-14 ")
 ;;4983
 ;;21,"63874-0599-15 ")
 ;;4984
 ;;21,"63874-0599-20 ")
 ;;4985
 ;;21,"63874-0599-21 ")
 ;;4986
 ;;21,"63874-0599-28 ")
 ;;4987
 ;;21,"63874-0599-30 ")
 ;;4988
 ;;21,"63874-0599-40 ")
 ;;4989
 ;;21,"63874-0599-50 ")
 ;;4990
 ;;21,"63874-0599-60 ")
 ;;4991
 ;;21,"63874-0599-90 ")
 ;;4992
 ;;21,"63874-0609-01 ")
 ;;1192
 ;;21,"63874-0609-10 ")
 ;;1193
 ;;21,"63874-0609-20 ")
 ;;1194
 ;;21,"63874-0609-30 ")
 ;;1195
 ;;21,"63874-0609-60 ")
 ;;1196
 ;;21,"63874-0609-90 ")
 ;;1197
 ;;21,"63874-0616-01 ")
 ;;595
 ;;21,"63874-0616-04 ")
 ;;596
 ;;21,"63874-0616-10 ")
 ;;597
 ;;21,"63874-0616-12 ")
 ;;598
 ;;21,"63874-0616-15 ")
 ;;599
 ;;21,"63874-0616-20 ")
 ;;600
 ;;21,"63874-0616-25 ")
 ;;601
 ;;21,"63874-0616-28 ")
 ;;602
 ;;21,"63874-0616-30 ")
 ;;603
 ;;21,"63874-0616-40 ")
 ;;604
 ;;21,"63874-0616-50 ")
 ;;605
 ;;21,"63874-0616-60 ")
 ;;606
 ;;21,"63874-0616-70 ")
 ;;607
 ;;21,"63874-0616-72 ")
 ;;608
 ;;21,"63874-0616-74 ")
 ;;609
 ;;21,"63874-0616-77 ")
 ;;610
 ;;21,"63874-0616-80 ")
 ;;611
 ;;21,"63874-0616-90 ")
 ;;612
 ;;21,"63874-0638-01 ")
 ;;1707
 ;;21,"63874-0638-04 ")
 ;;1708
 ;;21,"63874-0638-10 ")
 ;;1709
 ;;21,"63874-0638-14 ")
 ;;1710
 ;;21,"63874-0638-15 ")
 ;;1711
 ;;21,"63874-0638-20 ")
 ;;1712
 ;;21,"63874-0638-21 ")
 ;;1713
 ;;21,"63874-0638-28 ")
 ;;1714
 ;;21,"63874-0638-30 ")
 ;;1715
 ;;21,"63874-0638-40 ")
 ;;1716
 ;;21,"63874-0638-50 ")
 ;;1717
 ;;21,"63874-0638-60 ")
 ;;1718
 ;;21,"63874-0638-90 ")
 ;;1719
 ;;21,"63874-0670-10 ")
 ;;3656
 ;;21,"63874-0670-15 ")
 ;;3657
 ;;21,"63874-0670-20 ")
 ;;3658
 ;;21,"63874-0670-30 ")
 ;;3659
 ;;21,"63874-0766-30 ")
 ;;1495
 ;;21,"63874-0766-60 ")
 ;;1496
 ;;21,"63874-0767-10 ")
 ;;3282
 ;;21,"63874-0767-14 ")
 ;;3283
 ;;21,"63874-0767-30 ")
 ;;3284
 ;;21,"63874-0775-01 ")
 ;;4340
 ;;21,"63874-0775-12 ")
 ;;4341
 ;;21,"63874-0775-15 ")
 ;;4342
 ;;21,"63874-0775-20 ")
 ;;4343
 ;;21,"63874-0775-30 ")
 ;;4344
 ;;21,"63874-0780-20 ")
 ;;754
 ;;21,"63874-0828-01 ")
 ;;2338
 ;;21,"63874-0828-04 ")
 ;;2339
 ;;21,"63874-0828-14 ")
 ;;2340
 ;;21,"63874-0828-20 ")
 ;;2341
 ;;21,"63874-0828-21 ")
 ;;2342
 ;;21,"63874-0828-28 ")
 ;;2343
 ;;21,"63874-0828-30 ")
 ;;2344
 ;;21,"63874-0828-60 ")
 ;;2345
 ;;21,"63874-0828-90 ")
 ;;2346
 ;;21,"63874-0829-01 ")
 ;;1461
 ;;21,"63874-0829-10 ")
 ;;1462
 ;;21,"63874-0829-14 ")
 ;;1463
 ;;21,"63874-0829-15 ")
 ;;1464
 ;;21,"63874-0829-20 ")
 ;;1465
 ;;21,"63874-0829-28 ")
 ;;1466
 ;;21,"63874-0829-30 ")
 ;;1467
 ;;21,"63874-0829-42 ")
 ;;1468
 ;;21,"63874-0829-50 ")
 ;;1469
 ;;21,"63874-0829-60 ")
 ;;1470
 ;;21,"63874-0926-01 ")
 ;;656
 ;;21,"63874-0926-04 ")
 ;;657
 ;;21,"63874-0926-10 ")
 ;;658
 ;;21,"63874-0926-28 ")
 ;;659
 ;;21,"63874-0926-30 ")
 ;;660
 ;;21,"63874-0926-60 ")
 ;;661
 ;;21,"63874-0926-90 ")
 ;;662
 ;;21,"63874-1003-03 ")
 ;;3567
 ;;21,"63874-1009-01 ")
 ;;1878
 ;;21,"63874-1009-03 ")
 ;;1879
 ;;21,"63874-1009-06 ")
 ;;1880
 ;;21,"63874-1009-09 ")
 ;;1881
 ;;21,"63874-1020-03 ")
 ;;2797
 ;;21,"63874-1033-01 ")
 ;;3025
 ;;21,"63874-1033-03 ")
 ;;3026
 ;;21,"63874-1033-04 ")
 ;;3027
 ;;21,"63874-1033-06 ")
 ;;3028
 ;;21,"63874-1053-01 ")
 ;;2087
 ;;21,"63874-1053-02 ")
 ;;2088
 ;;21,"63874-1053-03 ")
 ;;2089
 ;;21,"63874-1053-04 ")
 ;;2090
 ;;21,"63874-1053-05 ")
 ;;2091
 ;;21,"63874-1053-06 ")
 ;;2092
 ;;21,"63874-1053-08 ")
 ;;2093
 ;;21,"63874-1053-09 ")
 ;;2094
 ;;21,"63874-1079-06 ")
 ;;3173
 ;;21,"63874-1080-03 ")
 ;;2412
 ;;21,"63874-1080-06 ")
 ;;2413
 ;;21,"63874-1081-01 ")
 ;;3207
 ;;21,"63874-1097-03 ")
 ;;2798
 ;;21,"63874-1098-03 ")
 ;;2710
 ;;21,"63874-1113-03 ")
 ;;1198
 ;;21,"63874-1113-06 ")
 ;;1199
 ;;21,"63874-1125-06 ")
 ;;3285
 ;;21,"63874-1130-06 ")
 ;;4781
 ;;21,"63874-1146-06 ")
 ;;1043
 ;;21,"63874-1151-03 ")
 ;;3568
 ;;21,"63874-1155-03 ")
 ;;2869
 ;;21,"63874-1157-03 ")
 ;;1324
 ;;21,"63874-1158-03 ")
 ;;171
 ;;21,"63874-1253-03 ")
 ;;1831
 ;;21,"64455-0730-30 ")
 ;;818
 ;;21,"64455-0730-90 ")
 ;;819
 ;;21,"64455-0731-30 ")
 ;;890
 ;;21,"64679-0717-01 ")
 ;;4888
 ;;21,"64679-0717-04 ")
 ;;4889
 ;;21,"64679-0718-01 ")
 ;;4600
 ;;21,"64679-0718-04 ")
 ;;4601
 ;;21,"64679-0752-01 ")
 ;;4121
 ;;21,"64679-0752-04 ")
 ;;4122
 ;;21,"64679-0752-07 ")
 ;;4123
 ;;21,"64679-0753-01 ")
 ;;3861
 ;;21,"64679-0753-04 ")
 ;;3862
 ;;21,"64679-0753-07 ")
 ;;3863
 ;;21,"64720-0170-03 ")
 ;;1044
 ;;21,"64720-0170-10 ")
 ;;1045
 ;;21,"64720-0171-03 ")
 ;;1200
 ;;21,"64720-0171-10 ")
 ;;1201
 ;;21,"64720-0171-11 ")
 ;;1202
 ;;21,"64720-0172-03 ")
 ;;1325
 ;;21,"64720-0172-10 ")
 ;;1326
 ;;21,"64720-0172-11 ")
 ;;1327
 ;;21,"64803-0032-01 ")
 ;;2628
 ;;21,"64980-0158-01 ")
 ;;3697
 ;;21,"64980-0159-01 ")
 ;;3691
 ;;21,"65084-0414-13 ")
 ;;755
 ;;21,"65162-0052-10 ")
 ;;1046
 ;;21,"65162-0052-50 ")
 ;;1047
 ;;21,"65162-0053-10 ")
 ;;1203
 ;;21,"65162-0053-50 ")
 ;;1204
 ;;21,"65162-0054-03 ")
 ;;1328
 ;;21,"65162-0054-10 ")
 ;;1329
 ;;21,"65162-0054-50 ")
 ;;1330
 ;;21,"65162-0300-09 ")
 ;;4660
 ;;21,"65162-0302-09 ")
 ;;4782
 ;;21,"65162-0305-09 ")
 ;;4543
 ;;21,"65162-0306-09 ")
 ;;4824
 ;;21,"65162-0307-09 ")
 ;;4993
 ;;21,"65162-0705-88 ")
 ;;1941
 ;;21,"65243-0006-03 ")
 ;;334
 ;;21,"65243-0063-03 ")
 ;;3864
 ;;21,"65243-0310-03 ")
 ;;1331
 ;;21,"65243-0319-03 ")
 ;;1332
 ;;21,"65243-0327-03 ")
 ;;4263
 ;;21,"65473-0702-01 ")
 ;;3692
 ;;21,"65473-0718-01 ")
 ;;4521
 ;;21,"65473-0719-01 ")
 ;;4526
 ;;21,"65580-0301-03 ")
 ;;4796
 ;;21,"65580-0301-09 ")
 ;;4797
 ;;21,"65580-0302-03 ")
 ;;5005
 ;;21,"65580-0302-09 ")
 ;;5006
 ;;21,"65580-0303-03 ")
 ;;4630
 ;;21,"65580-0303-09 ")
 ;;4631
 ;;21,"65580-0304-03 ")
 ;;4634
 ;;21,"65580-0304-09 ")
 ;;4635
 ;;21,"65862-0001-01 ")
 ;;2893
 ;;21,"65862-0001-05 ")
 ;;2894
 ;;21,"65862-0001-30 ")
 ;;2895
 ;;21,"65862-0003-01 ")
 ;;2799
 ;;21,"65862-0003-03 ")
 ;;2800
 ;;21,"65862-0003-05 ")
 ;;2801
 ;;21,"65862-0003-30 ")
 ;;2802
 ;;21,"65862-0003-90 ")
 ;;2803
 ;;21,"65862-0005-01 ")
 ;;1048
 ;;21,"65862-0005-05 ")
 ;;1049
 ;;21,"65862-0005-30 ")
 ;;1050
 ;;21,"65862-0006-01 ")
 ;;1205
 ;;21,"65862-0006-05 ")
 ;;1206
 ;;21,"65862-0006-30 ")
 ;;1207
 ;;21,"65862-0007-01 ")
 ;;1333
 ;;21,"65862-0007-05 ")
 ;;1334
 ;;21,"65862-0007-30 ")
 ;;1335
 ;;21,"65862-0011-01 ")
 ;;3968
 ;;21,"65862-0011-05 ")
 ;;3969
 ;;21,"65862-0011-30 ")
 ;;3970
 ;;21,"65862-0011-90 ")
 ;;3971
 ;;21,"65862-0012-01 ")
 ;;4124
 ;;21,"65862-0012-05 ")
 ;;4125
 ;;21,"65862-0012-30 ")
 ;;4126
 ;;21,"65862-0012-90 ")
 ;;4127
 ;;21,"65862-0013-01 ")
 ;;3865
 ;;21,"65862-0013-05 ")
 ;;3866
 ;;21,"65862-0013-30 ")
 ;;3867
 ;;21,"65862-0013-90 ")
 ;;3868
 ;;21,"65862-0021-06 ")
 ;;2734
 ;;21,"65862-0022-06 ")
 ;;2827
 ;;21,"65862-0023-06 ")
 ;;2885
 ;;21,"65862-0031-01 ")
 ;;2711
 ;;21,"65862-0031-03 ")
 ;;2712
 ;;21,"65862-0031-05 ")
 ;;2713
 ;;21,"65862-0031-30 ")
 ;;2714
 ;;21,"65862-0031-90 ")
 ;;2715
 ;;21,"65862-0032-01 ")
 ;;2870
 ;;21,"65862-0032-03 ")
 ;;2871
 ;;21,"65862-0032-05 ")
 ;;2872
 ;;21,"65862-0032-30 ")
 ;;2873
 ;;21,"65862-0032-90 ")
 ;;2874
 ;;21,"65862-0074-24 ")
 ;;1060
 ;;21,"65862-0154-30 ")
 ;;3286
 ;;21,"65862-0155-05 ")
 ;;3467
 ;;21,"65862-0155-30 ")
 ;;3468
 ;;21,"65862-0155-99 ")
 ;;3469
 ;;21,"65862-0156-30 ")
 ;;3569
 ;;21,"65862-0156-99 ")
 ;;3570
 ;;21,"65862-0157-30 ")
 ;;3660
 ;;21,"65862-0157-99 ")
 ;;3661
 ;;21,"65862-0192-01 ")
 ;;2061
 ;;21,"65862-0192-05 ")
 ;;2062
 ;;21,"65862-0192-99 ")
 ;;2063
 ;;21,"65862-0193-01 ")
 ;;2300
 ;;21,"65862-0193-05 ")
 ;;2301
 ;;21,"65862-0193-99 ")
 ;;2302
 ;;21,"65862-0194-01 ")
 ;;2414
 ;;21,"65862-0194-30 ")
 ;;2415
 ;;21,"65862-0248-24 ")
 ;;1942
 ;;21,"65862-0405-01 ")
 ;;4783
 ;;21,"65862-0407-01 ")
 ;;4994
 ;;21,"65862-0408-01 ")
 ;;4544
 ;;21,"65862-0527-01 ")
 ;;4711
 ;;21,"65862-0527-30 ")
 ;;4712
 ;;21,"65862-0527-90 ")
 ;;4713
 ;;21,"65862-0527-99 ")
 ;;4714
 ;;21,"65862-0528-01 ")
 ;;4890
 ;;21,"65862-0528-30 ")
 ;;4891
 ;;21,"65862-0528-90 ")
 ;;4892
 ;;21,"65862-0528-99 ")
 ;;4893
 ;;21,"65862-0529-30 ")
 ;;4602
 ;;21,"65862-0529-90 ")
 ;;4603
 ;;21,"65862-0697-01 ")
 ;;4604
 ;;21,"65862-0697-05 ")
 ;;4605
 ;;21,"65862-0697-30 ")
 ;;4606
 ;;21,"65862-0697-90 ")
 ;;4607
 ;;21,"66105-0111-10 ")
 ;;4715
 ;;21,"66105-0112-01 ")
 ;;4894
 ;;21,"66105-0112-03 ")
 ;;4895
 ;;21,"66105-0112-06 ")
 ;;4896
 ;;21,"66105-0112-10 ")
 ;;4897
 ;;21,"66105-0112-15 ")
 ;;4898
 ;;21,"66105-0116-03 ")
 ;;3287
 ;;21,"66105-0117-03 ")
 ;;3571
 ;;21,"66105-0118-10 ")
 ;;3470
 ;;21,"66105-0480-01 ")
 ;;663
 ;;21,"66105-0480-02 ")
 ;;664
 ;;21,"66105-0480-03 ")
 ;;665
 ;;21,"66105-0480-06 ")
 ;;666
 ;;21,"66105-0480-15 ")
 ;;667
 ;;21,"66105-0481-01 ")
 ;;756
 ;;21,"66105-0481-02 ")
 ;;757
 ;;21,"66105-0481-03 ")
 ;;758
 ;;21,"66105-0481-06 ")
 ;;759
 ;;21,"66105-0481-15 ")
 ;;760
 ;;21,"66105-0550-03 ")
 ;;2804
 ;;21,"66105-0564-03 ")
 ;;2303
 ;;21,"66105-0969-03 ")
 ;;1882
 ;;21,"66105-0977-03 ")
 ;;1924
 ;;21,"66267-0018-30 ")
 ;;110
 ;;21,"66267-0018-60 ")
 ;;111
 ;;21,"66267-0018-90 ")
 ;;112
 ;;21,"66267-0019-14 ")
 ;;335
 ;;21,"66267-0019-90 ")
 ;;336
 ;;21,"66267-0205-30 ")
 ;;4504
 ;;21,"66267-0205-60 ")
 ;;4505
 ;;21,"66267-0392-30 ")
 ;;4264
 ;;21,"66267-0392-60 ")
 ;;4265
 ;;21,"66267-0483-30 ")
 ;;3029
 ;;21,"66267-0483-45 ")
 ;;3030
 ;;21,"66267-0483-60 ")
 ;;3031
 ;;21,"66267-0484-30 ")
 ;;3125
 ;;21,"66267-0484-45 ")
 ;;3126
 ;;21,"66267-0484-60 ")
 ;;3127
 ;;21,"66267-0488-30 ")
 ;;2304
 ;;21,"66267-0488-60 ")
 ;;2305
 ;;21,"66267-0488-90 ")
 ;;2306
 ;;21,"66267-0560-90 ")
 ;;172
 ;;21,"66267-0576-30 ")
 ;;2064
 ;;21,"66267-0587-30 ")
 ;;2416
 ;;21,"66267-0614-30 ")
 ;;613
 ;;21,"66267-0614-60 ")
 ;;614
 ;;21,"66267-0618-30 ")
 ;;1208
 ;;21,"66267-0626-30 ")
 ;;1409
 ;;21,"66267-0680-30 ")
 ;;1720
 ;;21,"66267-0721-30 ")
 ;;3471
 ;;21,"66267-1006-00 ")
 ;;337
 ;;21,"66336-0004-30 ")
 ;;2307
 ;;21,"66336-0004-60 ")
 ;;2308
 ;;21,"66336-0014-30 ")
 ;;4266
 ;;21,"66336-0014-60 ")
 ;;4267
 ;;21,"66336-0027-30 ")
 ;;338
 ;;21,"66336-0027-60 ")
 ;;339
 ;;21,"66336-0224-30 ")
 ;;173
 ;;21,"66336-0271-30 ")
 ;;1336
 ;;21,"66336-0354-30 ")
 ;;113
 ;;21,"66336-0354-60 ")
 ;;114
 ;;21,"66336-0354-90 ")
 ;;115
 ;;21,"66336-0553-30 ")
 ;;1652
 ;;21,"66336-0620-28 ")
 ;;4506
 ;;21,"66336-0620-30 ")
 ;;4507
 ;;21,"66336-0620-60 ")
 ;;4508
 ;;21,"66336-0621-60 ")
 ;;3174
 ;;21,"66336-0673-30 ")
 ;;442
 ;;21,"66336-0673-50 ")
 ;;443
 ;;21,"66336-0673-60 ")
 ;;444
 ;;21,"66336-0757-60 ")
 ;;3128
 ;;21,"66336-0799-30 ")
 ;;3472
 ;;21,"66336-0838-14 ")
 ;;4345
 ;;21,"66336-0844-30 ")
 ;;2065
 ;;21,"66336-0897-60 ")
 ;;761
 ;;21,"66336-0973-60 ")
 ;;3032
 ;;21,"66336-0993-30 ")
 ;;1209
 ;;21,"66993-0709-30 ")
 ;;2735
 ;;21,"66993-0711-30 ")
 ;;2828
 ;;21,"66993-0712-30 ")
 ;;2886
 ;;21,"67046-0015-30 ")
 ;;174
 ;;21,"67544-0078-30 ")
 ;;3129
 ;;21,"67544-0080-15 ")
 ;;3869
 ;;21,"67544-0085-30 ")
 ;;340
 ;;21,"67544-0085-60 ")
 ;;341
 ;;21,"67544-0162-30 ")
 ;;4268
 ;;21,"67544-0169-15 ")
 ;;2805
 ;;21,"67544-0189-30 ")
 ;;4608
 ;;21,"67544-0190-30 ")
 ;;4899
 ;;21,"67544-0206-30 ")
 ;;116
 ;;21,"67544-0235-15 ")
 ;;3662
 ;;21,"67544-0253-30 ")
 ;;445
 ;;21,"67544-0295-30 ")
 ;;2309
 ;;21,"67544-0298-15 ")
 ;;4128
 ;;21,"67544-0299-30 ")
 ;;762
 ;;21,"67544-0316-15 ")
 ;;4509
 ;;21,"67544-0317-15 ")
 ;;3473
 ;;21,"67544-0331-30 ")
 ;;4269
 ;;21,"67544-0357-15 ")
 ;;2806
 ;;21,"67544-0358-15 ")
 ;;2716
 ;;21,"67544-0360-15 ")
 ;;1337
 ;;21,"67544-0365-15 ")
 ;;3288
 ;;21,"67544-0366-15 ")
 ;;1338
 ;;21,"67544-0409-15 ")
 ;;1339
 ;;21,"67544-0429-15 ")
 ;;2717
 ;;21,"67544-0430-15 ")
 ;;2807
 ;;21,"67544-0434-15 ")
 ;;3663
 ;;21,"67544-0455-15 ")
 ;;3474
 ;;21,"67544-0464-82 ")
 ;;668
 ;;21,"67544-0499-82 ")
 ;;669
 ;;21,"67544-0500-15 ")
 ;;3572
 ;;21,"67544-0528-30 ")
 ;;2310
 ;;21,"67544-0547-30 ")
 ;;763
 ;;21,"67544-0588-15 ")
 ;;1340
 ;;21,"67544-0848-30 ")
 ;;2311
 ;;21,"67544-0906-15 ")
 ;;1341
 ;;21,"67544-0906-73 ")
 ;;1342
 ;;21,"67544-0908-15 ")
 ;;3870
 ;;21,"67544-0959-15 ")
 ;;3871
 ;;21,"67767-0117-60 ")
 ;;764
 ;;21,"67767-0133-05 ")
 ;;765
 ;;21,"67767-0133-25 ")
 ;;766
 ;;21,"67767-0133-60 ")
 ;;767
 ;;21,"67767-0135-60 ")
 ;;837
 ;;21,"67767-0141-30 ")
 ;;820
 ;;21,"67767-0141-90 ")
 ;;821
 ;;21,"67767-0142-05 ")
 ;;891