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

BGP44O9.m

Go to the documentation of this file.
BGP44O9 ;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,"65597-0115-30 ")
 ;;3733
 ;;21,"65597-0115-90 ")
 ;;3734
 ;;21,"65597-0116-30 ")
 ;;3735
 ;;21,"65597-0116-90 ")
 ;;3736
 ;;21,"65597-0117-30 ")
 ;;3737
 ;;21,"65597-0117-90 ")
 ;;3738
 ;;21,"65597-0118-30 ")
 ;;3739
 ;;21,"65597-0118-90 ")
 ;;3740
 ;;21,"65862-0037-01 ")
 ;;902
 ;;21,"65862-0037-05 ")
 ;;903
 ;;21,"65862-0037-99 ")
 ;;904
 ;;21,"65862-0038-01 ")
 ;;990
 ;;21,"65862-0038-05 ")
 ;;991
 ;;21,"65862-0038-99 ")
 ;;992
 ;;21,"65862-0039-01 ")
 ;;1096
 ;;21,"65862-0039-05 ")
 ;;1097
 ;;21,"65862-0039-99 ")
 ;;1098
 ;;21,"65862-0040-01 ")
 ;;1400
 ;;21,"65862-0040-05 ")
 ;;1401
 ;;21,"65862-0040-99 ")
 ;;1402
 ;;21,"65862-0041-01 ")
 ;;1492
 ;;21,"65862-0041-05 ")
 ;;1493
 ;;21,"65862-0041-99 ")
 ;;1494
 ;;21,"65862-0042-01 ")
 ;;1585
 ;;21,"65862-0042-05 ")
 ;;1586
 ;;21,"65862-0042-99 ")
 ;;1587
 ;;21,"65862-0043-01 ")
 ;;2935
 ;;21,"65862-0043-05 ")
 ;;2936
 ;;21,"65862-0044-01 ")
 ;;3005
 ;;21,"65862-0044-05 ")
 ;;3006
 ;;21,"65862-0045-01 ")
 ;;3112
 ;;21,"65862-0045-05 ")
 ;;3113
 ;;21,"65862-0116-01 ")
 ;;36
 ;;21,"65862-0117-01 ")
 ;;107
 ;;21,"65862-0118-01 ")
 ;;176
 ;;21,"65862-0161-90 ")
 ;;3191
 ;;21,"65862-0162-30 ")
 ;;3202
 ;;21,"65862-0162-90 ")
 ;;3203
 ;;21,"65862-0163-90 ")
 ;;3214
 ;;21,"65862-0164-01 ")
 ;;1997
 ;;21,"65862-0165-01 ")
 ;;2010
 ;;21,"65862-0166-01 ")
 ;;2029
 ;;21,"65862-0201-90 ")
 ;;2242
 ;;21,"65862-0201-99 ")
 ;;2243
 ;;21,"65862-0202-30 ")
 ;;2317
 ;;21,"65862-0202-90 ")
 ;;2318
 ;;21,"65862-0202-99 ")
 ;;2319
 ;;21,"65862-0203-30 ")
 ;;2397
 ;;21,"65862-0203-90 ")
 ;;2398
 ;;21,"65862-0203-99 ")
 ;;2399
 ;;21,"65862-0286-01 ")
 ;;1691
 ;;21,"65862-0287-01 ")
 ;;1698
 ;;21,"65862-0288-01 ")
 ;;1704
 ;;21,"65862-0308-01 ")
 ;;2923
 ;;21,"65862-0309-01 ")
 ;;2924
 ;;21,"65862-0468-30 ")
 ;;3357
 ;;21,"65862-0468-90 ")
 ;;3358
 ;;21,"65862-0468-99 ")
 ;;3359
 ;;21,"65862-0469-30 ")
 ;;3413
 ;;21,"65862-0469-90 ")
 ;;3414
 ;;21,"65862-0469-99 ")
 ;;3415
 ;;21,"65862-0470-30 ")
 ;;3469
 ;;21,"65862-0470-90 ")
 ;;3470
 ;;21,"65862-0470-99 ")
 ;;3471
 ;;21,"65862-0471-90 ")
 ;;773
 ;;21,"65862-0472-90 ")
 ;;774
 ;;21,"65862-0473-90 ")
 ;;878
 ;;21,"65862-0474-01 ")
 ;;1822
 ;;21,"65862-0474-30 ")
 ;;1823
 ;;21,"65862-0475-01 ")
 ;;1859
 ;;21,"65862-0475-05 ")
 ;;1860
 ;;21,"65862-0476-01 ")
 ;;1905
 ;;21,"65862-0476-05 ")
 ;;1906
 ;;21,"65862-0477-01 ")
 ;;1962
 ;;21,"65862-0477-05 ")
 ;;1963
 ;;21,"65862-0547-90 ")
 ;;3590
 ;;21,"65862-0547-99 ")
 ;;3591
 ;;21,"65862-0548-90 ")
 ;;3637
 ;;21,"65862-0548-99 ")
 ;;3638
 ;;21,"65862-0549-90 ")
 ;;3663
 ;;21,"65862-0549-99 ")
 ;;3664
 ;;21,"65862-0550-05 ")
 ;;3689
 ;;21,"65862-0550-90 ")
 ;;3690
 ;;21,"65862-0551-05 ")
 ;;3712
 ;;21,"65862-0551-90 ")
 ;;3713
 ;;21,"65862-0582-01 ")
 ;;2623
 ;;21,"65862-0582-05 ")
 ;;2624
 ;;21,"65862-0583-01 ")
 ;;2664
 ;;21,"65862-0583-05 ")
 ;;2665
 ;;21,"65862-0584-01 ")
 ;;2718
 ;;21,"65862-0584-05 ")
 ;;2719
 ;;21,"65862-0585-01 ")
 ;;2736
 ;;21,"65862-0585-05 ")
 ;;2737
 ;;21,"65862-0586-01 ")
 ;;2759
 ;;21,"65862-0586-05 ")
 ;;2760
 ;;21,"65862-0587-01 ")
 ;;2805
 ;;21,"65862-0587-05 ")
 ;;2806
 ;;21,"65862-0637-30 ")
 ;;2096
 ;;21,"65862-0637-90 ")
 ;;2097
 ;;21,"65862-0638-05 ")
 ;;2162
 ;;21,"65862-0638-30 ")
 ;;2163
 ;;21,"65862-0638-90 ")
 ;;2164
 ;;21,"65862-0639-05 ")
 ;;2219
 ;;21,"65862-0639-30 ")
 ;;2220
 ;;21,"65862-0639-90 ")
 ;;2221
 ;;21,"66105-0503-01 ")
 ;;2133
 ;;21,"66105-0503-03 ")
 ;;2134
 ;;21,"66105-0503-06 ")
 ;;2135
 ;;21,"66105-0503-09 ")
 ;;2136
 ;;21,"66105-0503-15 ")
 ;;2137
 ;;21,"66105-0504-01 ")
 ;;2192
 ;;21,"66105-0504-03 ")
 ;;2193
 ;;21,"66105-0504-06 ")
 ;;2194
 ;;21,"66105-0504-09 ")
 ;;2195
 ;;21,"66105-0504-15 ")
 ;;2196
 ;;21,"66105-0545-01 ")
 ;;3609
 ;;21,"66105-0545-03 ")
 ;;3610
 ;;21,"66105-0545-06 ")
 ;;3611
 ;;21,"66105-0545-09 ")
 ;;3612
 ;;21,"66105-0545-10 ")
 ;;3613
 ;;21,"66105-0553-03 ")
 ;;2309
 ;;21,"66105-0663-03 ")
 ;;3465
 ;;21,"66105-0669-03 ")
 ;;3353
 ;;21,"66105-0842-03 ")
 ;;2504
 ;;21,"66105-0842-06 ")
 ;;2505
 ;;21,"66105-0842-09 ")
 ;;2506
 ;;21,"66105-0842-10 ")
 ;;2507
 ;;21,"66105-0842-28 ")
 ;;2508
 ;;21,"66116-0237-30 ")
 ;;79
 ;;21,"66116-0279-30 ")
 ;;1275
 ;;21,"66116-0435-30 ")
 ;;573
 ;;21,"66116-0436-30 ")
 ;;479
 ;;21,"66267-0253-30 ")
 ;;541
 ;;21,"66267-0323-30 ")
 ;;606
 ;;21,"66267-0323-60 ")
 ;;607
 ;;21,"66267-0323-90 ")
 ;;608
 ;;21,"66267-0323-91 ")
 ;;609
 ;;21,"66267-0380-30 ")
 ;;693
 ;;21,"66267-0380-60 ")
 ;;694
 ;;21,"66267-0380-90 ")
 ;;695
 ;;21,"66267-0380-91 ")
 ;;696
 ;;21,"66267-0413-30 ")
 ;;496
 ;;21,"66267-0413-60 ")
 ;;497
 ;;21,"66267-0413-90 ")
 ;;498
 ;;21,"66267-0413-92 ")
 ;;499
 ;;21,"66267-0523-30 ")
 ;;2537
 ;;21,"66267-0523-60 ")
 ;;2538
 ;;21,"66267-0751-30 ")
 ;;2933
 ;;21,"66267-0751-90 ")
 ;;2934
 ;;21,"66267-0752-30 ")
 ;;3007
 ;;21,"66267-0752-90 ")
 ;;3008
 ;;21,"66267-1009-00 ")
 ;;632
 ;;21,"66336-0124-30 ")
 ;;159
 ;;21,"66336-0124-90 ")
 ;;160
 ;;21,"66336-0169-30 ")
 ;;2555
 ;;21,"66336-0232-30 ")
 ;;21
 ;;21,"66336-0387-30 ")
 ;;2579
 ;;21,"66336-0387-90 ")
 ;;2580
 ;;21,"66336-0389-30 ")
 ;;567
 ;;21,"66336-0389-60 ")
 ;;568
 ;;21,"66336-0389-90 ")
 ;;569
 ;;21,"66336-0391-30 ")
 ;;476
 ;;21,"66336-0391-60 ")
 ;;477
 ;;21,"66336-0391-90 ")
 ;;478
 ;;21,"66336-0393-30 ")
 ;;669
 ;;21,"66336-0393-60 ")
 ;;670
 ;;21,"66336-0393-90 ")
 ;;671
 ;;21,"66336-0572-30 ")
 ;;2951
 ;;21,"66336-0572-90 ")
 ;;2952
 ;;21,"66336-0618-60 ")
 ;;241
 ;;21,"66336-0665-15 ")
 ;;2347
 ;;21,"66336-0665-30 ")
 ;;2348
 ;;21,"66336-0665-90 ")
 ;;2349
 ;;21,"66336-0666-30 ")
 ;;2267
 ;;21,"66336-0666-90 ")
 ;;2268
 ;;21,"66336-0672-60 ")
 ;;1206
 ;;21,"66336-0691-30 ")
 ;;145
 ;;21,"66336-0691-90 ")
 ;;146
 ;;21,"66336-0741-30 ")
 ;;1342
 ;;21,"66336-0741-60 ")
 ;;1343
 ;;21,"66336-0741-62 ")
 ;;1344
 ;;21,"66336-0741-90 ")
 ;;1345
 ;;21,"66336-0750-30 ")
 ;;367
 ;;21,"66336-0750-60 ")
 ;;368
 ;;21,"66336-0750-90 ")
 ;;369
 ;;21,"66336-0773-30 ")
 ;;60
 ;;21,"66336-0773-60 ")
 ;;61
 ;;21,"66336-0773-90 ")
 ;;62
 ;;21,"66336-0794-60 ")
 ;;405
 ;;21,"66336-0805-30 ")
 ;;3056
 ;;21,"66336-0805-90 ")
 ;;3057
 ;;21,"66336-0810-30 ")
 ;;3136
 ;;21,"66336-0810-90 ")
 ;;3137
 ;;21,"66336-0867-30 ")
 ;;1636
 ;;21,"66336-0867-90 ")
 ;;1637
 ;;21,"66336-0946-30 ")
 ;;322
 ;;21,"66336-0946-60 ")
 ;;323
 ;;21,"66336-0946-90 ")
 ;;324
 ;;21,"66336-0972-30 ")
 ;;1229
 ;;21,"66336-0972-62 ")
 ;;1230
 ;;21,"66336-0972-90 ")
 ;;1231
 ;;21,"66685-0302-00 ")
 ;;500
 ;;21,"66685-0302-02 ")
 ;;501
 ;;21,"66685-0303-00 ")
 ;;610
 ;;21,"66685-0303-02 ")
 ;;611
 ;;21,"66685-0304-00 ")
 ;;697
 ;;21,"66685-0304-02 ")
 ;;698
 ;;21,"66685-0701-01 ")
 ;;896
 ;;21,"66685-0701-02 ")
 ;;897
 ;;21,"66685-0702-01 ")
 ;;997
 ;;21,"66685-0702-02 ")
 ;;998
 ;;21,"66685-0702-03 ")
 ;;999
 ;;21,"66685-0703-02 ")
 ;;1126
 ;;21,"66685-0704-01 ")
 ;;1380
 ;;21,"66685-0704-02 ")
 ;;1381
 ;;21,"66685-0704-03 ")
 ;;1382
 ;;21,"66685-0705-01 ")
 ;;1500
 ;;21,"66685-0705-02 ")
 ;;1501
 ;;21,"66685-0706-01 ")
 ;;1566
 ;;21,"66685-0706-03 ")
 ;;1567
 ;;21,"66685-0706-04 ")
 ;;1568
 ;;21,"67544-0062-30 ")
 ;;932
 ;;21,"67544-0062-60 ")
 ;;933
 ;;21,"67544-0062-82 ")
 ;;934
 ;;21,"67544-0128-15 ")
 ;;947
 ;;21,"67544-0128-30 ")
 ;;948
 ;;21,"67544-0128-45 ")
 ;;949
 ;;21,"67544-0128-53 ")
 ;;950
 ;;21,"67544-0128-60 ")
 ;;951
 ;;21,"67544-0134-30 ")
 ;;1416
 ;;21,"67544-0134-45 ")
 ;;1417
 ;;21,"67544-0134-60 ")
 ;;1418
 ;;21,"67544-0134-80 ")
 ;;1419
 ;;21,"67544-0148-15 ")
 ;;1540
 ;;21,"67544-0148-30 ")
 ;;1541
 ;;21,"67544-0148-45 ")
 ;;1542
 ;;21,"67544-0148-53 ")
 ;;1543
 ;;21,"67544-0148-60 ")
 ;;1544
 ;;21,"67544-0148-80 ")
 ;;1545
 ;;21,"67544-0150-45 ")
 ;;251
 ;;21,"67544-0150-60 ")
 ;;252
 ;;21,"67544-0150-73 ")
 ;;253
 ;;21,"67544-0150-92 ")
 ;;254
 ;;21,"67544-0159-15 ")
 ;;1148
 ;;21,"67544-0159-30 ")
 ;;1149
 ;;21,"67544-0159-45 ")
 ;;1150
 ;;21,"67544-0159-58 ")
 ;;1151
 ;;21,"67544-0159-60 ")
 ;;1152
 ;;21,"67544-0159-80 ")
 ;;1153
 ;;21,"67544-0160-60 ")
 ;;638
 ;;21,"67544-0160-80 ")
 ;;639
 ;;21,"67544-0165-60 ")
 ;;518
 ;;21,"67544-0165-80 ")
 ;;519
 ;;21,"67544-0166-80 ")
 ;;446
 ;;21,"67544-0173-30 ")
 ;;973
 ;;21,"67544-0173-45 ")
 ;;974
 ;;21,"67544-0173-53 ")
 ;;975
 ;;21,"67544-0173-60 ")
 ;;976
 ;;21,"67544-0174-30 ")
 ;;1434
 ;;21,"67544-0174-45 ")
 ;;1435
 ;;21,"67544-0174-60 ")
 ;;1436
 ;;21,"67544-0174-80 ")
 ;;1437
 ;;21,"67544-0175-80 ")
 ;;520
 ;;21,"67544-0177-45 ")
 ;;2058
 ;;21,"67544-0192-30 ")
 ;;1078
 ;;21,"67544-0192-45 ")
 ;;1079
 ;;21,"67544-0192-53 ")
 ;;1080
 ;;21,"67544-0192-60 ")
 ;;1081
 ;;21,"67544-0212-45 ")
 ;;2044
 ;;21,"67544-0212-53 ")
 ;;2045
 ;;21,"67544-0216-80 ")
 ;;605
 ;;21,"67544-0218-60 ")
 ;;911
 ;;21,"67544-0218-82 ")
 ;;912
 ;;21,"67544-0219-15 ")
 ;;1202
 ;;21,"67544-0219-30 ")
 ;;1203
 ;;21,"67544-0219-45 ")
 ;;1204
 ;;21,"67544-0219-60 ")
 ;;1205
 ;;21,"67544-0234-45 ")
 ;;2296
 ;;21,"67544-0234-53 ")
 ;;2297
 ;;21,"67544-0250-60 ")
 ;;3048
 ;;21,"67544-0250-80 ")
 ;;3049
 ;;21,"67544-0276-60 ")
 ;;3068
 ;;21,"67544-0276-80 ")
 ;;3069
 ;;21,"67544-0286-80 ")
 ;;580
 ;;21,"67544-0300-15 ")
 ;;850
 ;;21,"67544-0300-30 ")
 ;;851
 ;;21,"67544-0300-45 ")
 ;;852
 ;;21,"67544-0306-30 ")
 ;;853
 ;;21,"67544-0306-40 ")
 ;;854
 ;;21,"67544-0306-45 ")
 ;;855
 ;;21,"67544-0306-60 ")
 ;;856
 ;;21,"67544-0311-30 ")
 ;;857
 ;;21,"67544-0311-45 ")
 ;;858
 ;;21,"67544-0315-80 ")
 ;;581
 ;;21,"67544-0321-15 ")
 ;;746
 ;;21,"67544-0321-30 ")
 ;;747
 ;;21,"67544-0321-60 ")
 ;;748
 ;;21,"67544-0322-15 ")
 ;;806
 ;;21,"67544-0322-30 ")
 ;;807
 ;;21,"67544-0322-45 ")
 ;;808
 ;;21,"67544-0322-53 ")
 ;;809
 ;;21,"67544-0322-60 ")
 ;;810
 ;;21,"67544-0322-70 ")
 ;;811
 ;;21,"67544-0322-73 ")
 ;;812
 ;;21,"67544-0322-80 ")
 ;;813
 ;;21,"67544-0322-92 ")
 ;;814
 ;;21,"67544-0322-94 ")
 ;;815
 ;;21,"67544-0350-80 ")
 ;;440
 ;;21,"67544-0377-60 ")
 ;;3009
 ;;21,"67544-0380-30 ")
 ;;759
 ;;21,"67544-0380-60 ")
 ;;760
 ;;21,"67544-0381-15 ")
 ;;790
 ;;21,"67544-0381-30 ")
 ;;791
 ;;21,"67544-0381-45 ")
 ;;792
 ;;21,"67544-0381-53 ")
 ;;793
 ;;21,"67544-0381-60 ")
 ;;794
 ;;21,"67544-0381-70 ")
 ;;795
 ;;21,"67544-0381-73 ")
 ;;796
 ;;21,"67544-0381-80 ")
 ;;797
 ;;21,"67544-0381-92 ")
 ;;798
 ;;21,"67544-0381-94 ")
 ;;799
 ;;21,"67544-0382-30 ")
 ;;2233
 ;;21,"67544-0400-45 ")
 ;;2179
 ;;21,"67544-0403-30 ")
 ;;2554
 ;;21,"67544-0404-30 ")
 ;;2562
 ;;21,"67544-0418-30 ")
 ;;3074
 ;;21,"67544-0418-60 ")
 ;;3075
 ;;21,"67544-0418-80 ")
 ;;3076
 ;;21,"67544-0431-15 ")
 ;;831
 ;;21,"67544-0431-30 ")
 ;;832
 ;;21,"67544-0431-45 ")
 ;;823
 ;;21,"67544-0431-53 ")
 ;;824
 ;;21,"67544-0431-60 ")
 ;;825
 ;;21,"67544-0431-70 ")
 ;;826
 ;;21,"67544-0431-73 ")
 ;;827
 ;;21,"67544-0431-80 ")
 ;;828
 ;;21,"67544-0431-92 ")
 ;;829
 ;;21,"67544-0431-94 ")
 ;;830
 ;;21,"67544-0454-15 ")
 ;;833
 ;;21,"67544-0454-30 ")
 ;;834
 ;;21,"67544-0454-40 ")
 ;;835
 ;;21,"67544-0454-45 ")
 ;;836
 ;;21,"67544-0454-60 ")
 ;;862
 ;;21,"67544-0489-15 ")
 ;;756
 ;;21,"67544-0489-30 ")
 ;;757
 ;;21,"67544-0489-60 ")
 ;;758
 ;;21,"67544-0678-60 ")
 ;;1167
 ;;21,"67544-0992-30 ")
 ;;1339
 ;;21,"67544-0997-30 ")
 ;;1673
 ;;21,"67544-0999-60 ")
 ;;1340
 ;;21,"67544-0999-80 ")
 ;;1341
 ;;21,"67544-1010-30 ")
 ;;2949
 ;;21,"67544-1010-60 ")
 ;;2950
 ;;21,"67544-1038-30 ")
 ;;870
 ;;21,"67544-1038-45 ")
 ;;871
 ;;21,"67544-1042-45 ")
 ;;872
 ;;21,"67544-1042-60 ")
 ;;873
 ;;21,"67544-1054-30 ")
 ;;3027
 ;;21,"67544-1057-30 ")
 ;;3098
 ;;21,"67544-1082-45 ")
 ;;782
 ;;21,"67544-1105-30 ")
 ;;768
 ;;21,"67544-1105-45 ")
 ;;769
 ;;21,"67544-1348-45 ")
 ;;1159
 ;;21,"67544-1348-60 ")
 ;;1160
 ;;21,"67544-1350-45 ")
 ;;1546
 ;;21,"67544-1350-60 ")
 ;;1547
 ;;21,"67544-1372-45 ")
 ;;977
 ;;21,"67544-1386-30 ")
 ;;3028
 ;;21,"67544-1386-60 ")
 ;;3029
 ;;21,"67544-1387-45 ")
 ;;1427
 ;;21,"68071-0026-30 ")
 ;;186
 ;;21,"68071-0026-60 ")
 ;;187
 ;;21,"68071-0026-90 ")
 ;;188
 ;;21,"68071-0146-30 ")
 ;;130
 ;;21,"68071-0146-60 ")
 ;;131
 ;;21,"68071-0146-90 ")
 ;;132
 ;;21,"68071-0146-91 ")
 ;;133
 ;;21,"68071-0153-30 ")
 ;;3146
 ;;21,"68071-0153-60 ")
 ;;3147
 ;;21,"68071-0153-90 ")
 ;;3148
 ;;21,"68071-0785-30 ")
 ;;3602
 ;;21,"68071-0785-60 ")
 ;;3603
 ;;21,"68071-0786-30 ")
 ;;3564
 ;;21,"68071-0786-60 ")
 ;;3565
 ;;21,"68071-0787-60 ")
 ;;3339
 ;;21,"68084-0007-11 ")
 ;;2167
 ;;21,"68084-0007-21 ")
 ;;2168
 ;;21,"68084-0060-01 ")
 ;;1036
 ;;21,"68084-0060-11 ")
 ;;1037
 ;;21,"68084-0061-01 ")
 ;;1261