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

BGP47Z2.m

Go to the documentation of this file.
BGP47Z2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;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,"00378-3482-30 ")
 ;;1715
 ;;21,"00378-3495-01 ")
 ;;1761
 ;;21,"00378-5011-01 ")
 ;;1264
 ;;21,"00378-5011-05 ")
 ;;1265
 ;;21,"00378-5012-01 ")
 ;;1306
 ;;21,"00378-5012-05 ")
 ;;1307
 ;;21,"00378-5013-01 ")
 ;;1364
 ;;21,"00378-5013-05 ")
 ;;1365
 ;;21,"00378-5208-05 ")
 ;;71
 ;;21,"00378-5208-77 ")
 ;;72
 ;;21,"00378-5209-05 ")
 ;;247
 ;;21,"00378-5209-77 ")
 ;;248
 ;;21,"00378-5210-05 ")
 ;;374
 ;;21,"00378-5210-77 ")
 ;;375
 ;;21,"00378-5220-01 ")
 ;;713
 ;;21,"00378-5220-05 ")
 ;;714
 ;;21,"00378-5280-01 ")
 ;;738
 ;;21,"00378-5280-05 ")
 ;;739
 ;;21,"00378-5340-01 ")
 ;;761
 ;;21,"00378-5340-05 ")
 ;;762
 ;;21,"00378-6060-01 ")
 ;;682
 ;;21,"00378-6090-01 ")
 ;;690
 ;;21,"00378-6120-01 ")
 ;;699
 ;;21,"00378-6161-77 ")
 ;;2616
 ;;21,"00378-6161-93 ")
 ;;2615
 ;;21,"00378-6162-77 ")
 ;;2620
 ;;21,"00378-6162-93 ")
 ;;2619
 ;;21,"00378-6163-77 ")
 ;;2624
 ;;21,"00378-6163-93 ")
 ;;2625
 ;;21,"00378-6164-05 ")
 ;;2629
 ;;21,"00378-6164-77 ")
 ;;2630
 ;;21,"00378-6164-93 ")
 ;;2631
 ;;21,"00378-6165-05 ")
 ;;2639
 ;;21,"00378-6165-77 ")
 ;;2640
 ;;21,"00378-6165-93 ")
 ;;2641
 ;;21,"00378-6166-05 ")
 ;;2647
 ;;21,"00378-6166-77 ")
 ;;2648
 ;;21,"00378-6166-93 ")
 ;;2646
 ;;21,"00378-6167-77 ")
 ;;2652
 ;;21,"00378-6167-93 ")
 ;;2653
 ;;21,"00378-6168-05 ")
 ;;2658
 ;;21,"00378-6168-77 ")
 ;;2659
 ;;21,"00378-6168-93 ")
 ;;2657
 ;;21,"00378-6169-05 ")
 ;;2666
 ;;21,"00378-6169-77 ")
 ;;2667
 ;;21,"00378-6169-93 ")
 ;;2665
 ;;21,"00378-6170-05 ")
 ;;2675
 ;;21,"00378-6170-77 ")
 ;;2676
 ;;21,"00378-6170-93 ")
 ;;2674
 ;;21,"00378-6171-77 ")
 ;;2684
 ;;21,"00378-6171-93 ")
 ;;2685
 ;;21,"00378-6201-01 ")
 ;;2210
 ;;21,"00378-6201-05 ")
 ;;2211
 ;;21,"00378-6202-01 ")
 ;;2238
 ;;21,"00378-6202-05 ")
 ;;2239
 ;;21,"00378-6203-01 ")
 ;;2254
 ;;21,"00378-6203-05 ")
 ;;2255
 ;;21,"00378-6320-01 ")
 ;;2216
 ;;21,"00378-6320-93 ")
 ;;2217
 ;;21,"00378-6380-01 ")
 ;;2227
 ;;21,"00378-6380-93 ")
 ;;2228
 ;;21,"00378-6440-01 ")
 ;;2243
 ;;21,"00378-6440-93 ")
 ;;2244
 ;;21,"00378-6895-01 ")
 ;;2278
 ;;21,"00378-6896-01 ")
 ;;2327
 ;;21,"00378-6896-05 ")
 ;;2328
 ;;21,"00378-6897-01 ")
 ;;2388
 ;;21,"00378-6897-05 ")
 ;;2389
 ;;21,"00378-6898-01 ")
 ;;2470
 ;;21,"00378-6898-05 ")
 ;;2471
 ;;21,"00378-6899-01 ")
 ;;2435
 ;;21,"00378-6900-01 ")
 ;;2512
 ;;21,"00440-7096-30 ")
 ;;73
 ;;21,"00440-7096-90 ")
 ;;74
 ;;21,"00440-7097-30 ")
 ;;241
 ;;21,"00440-7097-90 ")
 ;;242
 ;;21,"00440-7098-30 ")
 ;;376
 ;;21,"00440-7098-90 ")
 ;;377
 ;;21,"00440-7140-30 ")
 ;;2279
 ;;21,"00440-7140-90 ")
 ;;2280
 ;;21,"00440-7141-30 ")
 ;;2325
 ;;21,"00440-7141-90 ")
 ;;2326
 ;;21,"00440-7142-30 ")
 ;;2390
 ;;21,"00440-7142-90 ")
 ;;2391
 ;;21,"00440-7143-30 ")
 ;;2468
 ;;21,"00440-7143-90 ")
 ;;2469
 ;;21,"00440-7160-90 ")
 ;;1489
 ;;21,"00440-7163-90 ")
 ;;1626
 ;;21,"00440-7228-90 ")
 ;;1013
 ;;21,"00440-7229-90 ")
 ;;1076
 ;;21,"00440-7400-90 ")
 ;;715
 ;;21,"00440-7401-90 ")
 ;;737
 ;;21,"00440-7402-90 ")
 ;;763
 ;;21,"00440-7410-90 ")
 ;;529
 ;;21,"00440-7410-94 ")
 ;;530
 ;;21,"00440-7411-90 ")
 ;;596
 ;;21,"00440-7411-91 ")
 ;;597
 ;;21,"00440-7411-94 ")
 ;;598
 ;;21,"00440-7412-90 ")
 ;;649
 ;;21,"00440-7412-94 ")
 ;;650
 ;;21,"00440-7413-90 ")
 ;;674
 ;;21,"00440-7419-90 ")
 ;;986
 ;;21,"00440-7420-90 ")
 ;;1057
 ;;21,"00440-7421-90 ")
 ;;1131
 ;;21,"00440-7422-90 ")
 ;;1177
 ;;21,"00440-7522-90 ")
 ;;1263
 ;;21,"00440-7523-90 ")
 ;;1308
 ;;21,"00440-7524-90 ")
 ;;1366
 ;;21,"00440-7524-99 ")
 ;;1367
 ;;21,"00440-7862-90 ")
 ;;1502
 ;;21,"00440-7863-90 ")
 ;;1570
 ;;21,"00440-7864-90 ")
 ;;1763
 ;;21,"00440-8604-30 ")
 ;;1818
 ;;21,"00440-8604-90 ")
 ;;1819
 ;;21,"00440-8604-94 ")
 ;;1820
 ;;21,"00440-8605-30 ")
 ;;1839
 ;;21,"00440-8605-90 ")
 ;;1840
 ;;21,"00440-8605-94 ")
 ;;1841
 ;;21,"00440-8606-30 ")
 ;;1900
 ;;21,"00440-8606-60 ")
 ;;1901
 ;;21,"00440-8606-90 ")
 ;;1902
 ;;21,"00440-8606-91 ")
 ;;1903
 ;;21,"00440-8606-92 ")
 ;;1904
 ;;21,"00440-8606-94 ")
 ;;1905
 ;;21,"00440-8608-30 ")
 ;;2022
 ;;21,"00440-8608-60 ")
 ;;2023
 ;;21,"00440-8608-90 ")
 ;;2024
 ;;21,"00440-8609-30 ")
 ;;2089
 ;;21,"00440-8609-60 ")
 ;;2090
 ;;21,"00440-8609-90 ")
 ;;2091
 ;;21,"00440-8609-94 ")
 ;;2092
 ;;21,"00440-8610-10 ")
 ;;2185
 ;;21,"00440-8610-30 ")
 ;;2186
 ;;21,"00440-8610-60 ")
 ;;2187
 ;;21,"00440-8610-90 ")
 ;;2188
 ;;21,"00440-8610-94 ")
 ;;2189
 ;;21,"00456-2612-00 ")
 ;;796
 ;;21,"00456-2612-30 ")
 ;;797
 ;;21,"00456-2612-63 ")
 ;;798
 ;;21,"00456-2612-90 ")
 ;;799
 ;;21,"00456-2613-00 ")
 ;;823
 ;;21,"00456-2613-30 ")
 ;;824
 ;;21,"00456-2613-63 ")
 ;;825
 ;;21,"00456-2613-90 ")
 ;;826
 ;;21,"00456-2614-00 ")
 ;;851
 ;;21,"00456-2614-30 ")
 ;;852
 ;;21,"00456-2614-63 ")
 ;;853
 ;;21,"00456-2614-90 ")
 ;;854
 ;;21,"00456-2615-00 ")
 ;;879
 ;;21,"00456-2615-30 ")
 ;;880
 ;;21,"00456-2615-63 ")
 ;;881
 ;;21,"00456-2615-90 ")
 ;;882
 ;;21,"00456-2616-00 ")
 ;;910
 ;;21,"00456-2616-30 ")
 ;;911
 ;;21,"00456-2616-63 ")
 ;;912
 ;;21,"00456-2616-90 ")
 ;;913
 ;;21,"00456-2617-00 ")
 ;;926
 ;;21,"00456-2617-30 ")
 ;;927
 ;;21,"00456-2617-90 ")
 ;;928
 ;;21,"00490-0126-00 ")
 ;;243
 ;;21,"00490-0126-30 ")
 ;;244
 ;;21,"00490-0126-60 ")
 ;;245
 ;;21,"00490-0126-90 ")
 ;;246
 ;;21,"00555-1069-02 ")
 ;;1422
 ;;21,"00555-1070-02 ")
 ;;1440
 ;;21,"00591-0343-01 ")
 ;;1833
 ;;21,"00591-0343-05 ")
 ;;1834
 ;;21,"00591-0343-10 ")
 ;;1835
 ;;21,"00591-0344-01 ")
 ;;1836
 ;;21,"00591-0344-05 ")
 ;;1837
 ;;21,"00591-0344-10 ")
 ;;1838
 ;;21,"00591-0345-01 ")
 ;;1906
 ;;21,"00591-0345-05 ")
 ;;1907
 ;;21,"00591-0345-10 ")
 ;;1908
 ;;21,"00591-0346-01 ")
 ;;1909
 ;;21,"00591-0346-05 ")
 ;;1910
 ;;21,"00591-0346-10 ")
 ;;1911
 ;;21,"00591-0404-01 ")
 ;;1822
 ;;21,"00591-0660-01 ")
 ;;1495
 ;;21,"00591-0661-01 ")
 ;;1564
 ;;21,"00591-0775-01 ")
 ;;526
 ;;21,"00591-0776-01 ")
 ;;601
 ;;21,"00591-0776-05 ")
 ;;602
 ;;21,"00591-0777-01 ")
 ;;648
 ;;21,"00591-0778-01 ")
 ;;675
 ;;21,"00591-2880-01 ")
 ;;2222
 ;;21,"00591-2882-01 ")
 ;;2232
 ;;21,"00591-2884-01 ")
 ;;2248
 ;;21,"00591-2886-01 ")
 ;;2262
 ;;21,"00591-3193-01 ")
 ;;1485
 ;;21,"00591-3193-05 ")
 ;;1486
 ;;21,"00591-3194-01 ")
 ;;1553
 ;;21,"00591-3194-05 ")
 ;;1554
 ;;21,"00591-3757-01 ")
 ;;2275
 ;;21,"00591-3758-01 ")
 ;;2332
 ;;21,"00591-3758-05 ")
 ;;2333
 ;;21,"00591-3759-01 ")
 ;;2383
 ;;21,"00591-3759-05 ")
 ;;2384
 ;;21,"00591-3760-01 ")
 ;;2475
 ;;21,"00591-3760-05 ")
 ;;2476
 ;;21,"00591-3761-01 ")
 ;;2433
 ;;21,"00591-3762-01 ")
 ;;2509
 ;;21,"00597-0124-37 ")
 ;;2586
 ;;21,"00597-0125-37 ")
 ;;2587
 ;;21,"00597-0126-37 ")
 ;;2588
 ;;21,"00597-0127-37 ")
 ;;2589
 ;;21,"00603-2108-02 ")
 ;;75
 ;;21,"00603-2108-25 ")
 ;;76
 ;;21,"00603-2108-28 ")
 ;;77
 ;;21,"00603-2108-32 ")
 ;;78
 ;;21,"00603-2109-02 ")
 ;;236
 ;;21,"00603-2109-25 ")
 ;;237
 ;;21,"00603-2109-28 ")
 ;;238
 ;;21,"00603-2109-32 ")
 ;;239
 ;;21,"00603-2109-34 ")
 ;;240
 ;;21,"00603-2110-02 ")
 ;;378
 ;;21,"00603-2110-16 ")
 ;;379
 ;;21,"00603-2110-28 ")
 ;;380
 ;;21,"00603-2110-32 ")
 ;;381
 ;;21,"00603-2110-33 ")
 ;;382
 ;;21,"00603-2110-60 ")
 ;;383
 ;;21,"00603-3581-21 ")
 ;;1267
 ;;21,"00603-3581-28 ")
 ;;1268
 ;;21,"00603-3582-21 ")
 ;;1309
 ;;21,"00603-3582-28 ")
 ;;1310
 ;;21,"00603-3583-21 ")
 ;;1369
 ;;21,"00603-3583-28 ")
 ;;1370
 ;;21,"00615-1341-53 ")
 ;;1059
 ;;21,"00615-1341-63 ")
 ;;1060
 ;;21,"00615-1342-53 ")
 ;;1134
 ;;21,"00615-1342-63 ")
 ;;1135
 ;;21,"00615-3548-53 ")
 ;;527
 ;;21,"00615-3548-63 ")
 ;;528
 ;;21,"00615-3549-53 ")
 ;;599
 ;;21,"00615-3549-63 ")
 ;;600
 ;;21,"00677-1768-01 ")
 ;;1266
 ;;21,"00677-1769-01 ")
 ;;1311
 ;;21,"00677-1770-01 ")
 ;;1368
 ;;21,"00781-1014-01 ")
 ;;1821
 ;;21,"00781-2271-01 ")
 ;;2276
 ;;21,"00781-2271-64 ")
 ;;2277
 ;;21,"00781-2272-01 ")
 ;;2329
 ;;21,"00781-2272-10 ")
 ;;2330
 ;;21,"00781-2272-64 ")
 ;;2331
 ;;21,"00781-2273-01 ")
 ;;2385
 ;;21,"00781-2273-10 ")
 ;;2386
 ;;21,"00781-2273-64 ")
 ;;2387
 ;;21,"00781-2274-01 ")
 ;;2472
 ;;21,"00781-2274-10 ")
 ;;2473
 ;;21,"00781-2274-64 ")
 ;;2474
 ;;21,"00781-2277-01 ")
 ;;2432
 ;;21,"00781-2279-01 ")
 ;;2510
 ;;21,"00781-2452-05 ")
 ;;780
 ;;21,"00781-2452-31 ")
 ;;781
 ;;21,"00781-2452-92 ")
 ;;782
 ;;21,"00781-2453-05 ")
 ;;807
 ;;21,"00781-2453-31 ")
 ;;808
 ;;21,"00781-2453-92 ")
 ;;809
 ;;21,"00781-2454-05 ")
 ;;834
 ;;21,"00781-2454-31 ")
 ;;835
 ;;21,"00781-2454-92 ")
 ;;836
 ;;21,"00781-2455-05 ")
 ;;862
 ;;21,"00781-2455-31 ")
 ;;863
 ;;21,"00781-2455-92 ")
 ;;864
 ;;21,"00781-2456-05 ")
 ;;885
 ;;21,"00781-2456-31 ")
 ;;886
 ;;21,"00781-2456-92 ")
 ;;887
 ;;21,"00781-2457-05 ")
 ;;918
 ;;21,"00781-2457-31 ")
 ;;919
 ;;21,"00781-2457-92 ")
 ;;920
 ;;21,"00832-0042-09 ")
 ;;79
 ;;21,"00832-0042-10 ")
 ;;80
 ;;21,"00832-0043-09 ")
 ;;276
 ;;21,"00832-0043-10 ")
 ;;277
 ;;21,"00832-0044-09 ")
 ;;392
 ;;21,"00832-0044-10 ")
 ;;393
 ;;21,"00904-2920-40 ")
 ;;1844
 ;;21,"00904-2920-60 ")
 ;;1845
 ;;21,"00904-2920-61 ")
 ;;1846
 ;;21,"00904-2920-80 ")
 ;;1847
 ;;21,"00904-2924-40 ")
 ;;1914
 ;;21,"00904-2924-60 ")
 ;;1915
 ;;21,"00904-2924-61 ")
 ;;1916
 ;;21,"00904-5382-60 ")
 ;;774
 ;;21,"00904-5382-61 ")
 ;;775
 ;;21,"00904-5991-61 ")
 ;;81
 ;;21,"00904-5992-61 ")
 ;;275
 ;;21,"00904-5993-61 ")
 ;;394
 ;;21,"00904-6149-61 ")
 ;;1132
 ;;21,"00904-6174-40 ")
 ;;273
 ;;21,"00904-6174-89 ")
 ;;274
 ;;21,"00904-6175-40 ")
 ;;395
 ;;21,"00904-6175-89 ")
 ;;396
 ;;21,"00904-6188-40 ")
 ;;82
 ;;21,"00904-6188-89 ")
 ;;83
 ;;21,"00904-7799-60 ")
 ;;1823
 ;;21,"00904-7931-60 ")
 ;;2094
 ;;21,"10135-0524-03 ")
 ;;84
 ;;21,"10135-0524-05 ")
 ;;85
 ;;21,"10135-0524-10 ")
 ;;86
 ;;21,"10135-0524-90 ")
 ;;87
 ;;21,"10135-0525-03 ")
 ;;269
 ;;21,"10135-0525-05 ")
 ;;270
 ;;21,"10135-0525-10 ")
 ;;271
 ;;21,"10135-0525-90 ")
 ;;272
 ;;21,"10135-0526-01 ")
 ;;397
 ;;21,"10135-0526-03 ")
 ;;398
 ;;21,"10135-0526-05 ")
 ;;399
 ;;21,"10135-0526-10 ")
 ;;400
 ;;21,"10135-0526-90 ")
 ;;401
 ;;21,"10544-0035-30 ")
 ;;2134
 ;;21,"10544-0541-30 ")
 ;;2135
 ;;21,"10631-0488-01 ")
 ;;1976
 ;;21,"10631-0489-01 ")
 ;;2032
 ;;21,"10631-0490-01 ")
 ;;2112
 ;;21,"10631-0490-05 ")
 ;;2113
 ;;21,"12280-0036-00 ")
 ;;1384
 ;;21,"12280-0037-00 ")
 ;;1324
 ;;21,"12280-0140-90 ")
 ;;1090
 ;;21,"12280-0215-30 ")
 ;;1018
 ;;21,"12280-0300-15 ")
 ;;521
 ;;21,"12280-0300-30 ")
 ;;522
 ;;21,"12280-0304-15 ")
 ;;1226
 ;;21,"12280-0304-30 ")
 ;;1227
 ;;21,"12280-0305-15 ")
 ;;895
 ;;21,"12280-0305-30 ")
 ;;896
 ;;21,"12280-0311-30 ")
 ;;1629
 ;;21,"12280-0397-30 ")
 ;;2662
 ;;21,"12280-0398-30 ")
 ;;2672
 ;;21,"12280-0399-30 ")
 ;;2634
 ;;21,"13411-0148-01 ")
 ;;295
 ;;21,"13411-0148-03 ")
 ;;296
 ;;21,"13411-0148-06 ")
 ;;297
 ;;21,"13411-0148-09 ")
 ;;298
 ;;21,"13411-0148-10 ")
 ;;299
 ;;21,"13411-0157-01 ")
 ;;101
 ;;21,"13411-0157-03 ")
 ;;102
 ;;21,"13411-0157-06 ")
 ;;103
 ;;21,"13411-0157-09 ")
 ;;104
 ;;21,"13411-0157-10 ")
 ;;105
 ;;21,"13411-0158-01 ")
 ;;507
 ;;21,"13411-0158-03 ")
 ;;508
 ;;21,"13411-0158-06 ")
 ;;509
 ;;21,"13411-0158-09 ")
 ;;510
 ;;21,"13411-0158-10 ")
 ;;511
 ;;21,"13551-0201-01 ")
 ;;1977
 ;;21,"13551-0301-01 ")
 ;;2035
 ;;21,"13551-0401-01 ")
 ;;2114
 ;;21,"13551-0401-05 ")
 ;;2115
 ;;21,"13668-0022-03 ")
 ;;44
 ;;21,"13668-0022-05 ")
 ;;45
 ;;21,"13668-0023-03 ")
 ;;183
 ;;21,"13668-0023-05 ")
 ;;184
 ;;21,"13668-0024-05 ")
 ;;323
 ;;21,"13668-0024-10 ")
 ;;324
 ;;21,"13668-0132-01 ")
 ;;1259
 ;;21,"13668-0132-05 ")
 ;;1260
 ;;21,"13668-0132-10 ")
 ;;1261
 ;;21,"13668-0132-90 ")
 ;;1262
 ;;21,"13668-0133-01 ")
 ;;1300
 ;;21,"13668-0133-05 ")
 ;;1301
 ;;21,"13668-0133-10 ")
 ;;1302
 ;;21,"13668-0133-90 ")
 ;;1303
 ;;21,"13668-0134-01 ")
 ;;1359
 ;;21,"13668-0134-05 ")
 ;;1360
 ;;21,"13668-0134-10 ")
 ;;1361
 ;;21,"13668-0134-90 ")
 ;;1362
 ;;21,"15330-0041-01 ")
 ;;1429
 ;;21,"15330-0041-05 ")
 ;;1430
 ;;21,"15330-0042-01 ")
 ;;1442
 ;;21,"15330-0042-05 ")
 ;;1443
 ;;21,"16252-0539-01 ")
 ;;1401
 ;;21,"16252-0540-01 ")
 ;;1410
 ;;21,"16252-0544-90 ")
 ;;90
 ;;21,"16252-0545-50 ")
 ;;258
 ;;21,"16252-0545-90 ")
 ;;259
 ;;21,"16252-0546-50 ")
 ;;407
 ;;21,"16252-0546-90 ")
 ;;408
 ;;21,"16590-0295-30 ")
 ;;185
 ;;21,"16590-0295-60 ")
 ;;186
 ;;21,"16590-0460-30 ")
 ;;439
 ;;21,"16590-0460-60 ")
 ;;440
 ;;21,"16590-0460-90 ")
 ;;441
 ;;21,"16590-0948-60 ")
 ;;1728
 ;;21,"21695-0151-15 ")
 ;;317
 ;;21,"21695-0403-30 ")
 ;;987
 ;;21,"21695-0404-30 ")
 ;;1058
 ;;21,"21695-0408-30 ")
 ;;603
 ;;21,"21695-0408-60 ")
 ;;604
 ;;21,"21695-0410-30 ")
 ;;676
 ;;21,"21695-0511-30 ")
 ;;1857