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

BGP0ZD4.m

Go to the documentation of this file.
BGP0ZD4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"54569-4002-02 ")
 ;;1667
 ;;21,"54569-4002-04 ")
 ;;1673
 ;;21,"54569-4002-05 ")
 ;;2139
 ;;21,"54569-4032-00 ")
 ;;955
 ;;21,"54569-4032-01 ")
 ;;957
 ;;21,"54569-4032-05 ")
 ;;956
 ;;21,"54569-4081-00 ")
 ;;268
 ;;21,"54569-4123-02 ")
 ;;648
 ;;21,"54569-4165-02 ")
 ;;92
 ;;21,"54569-4166-01 ")
 ;;94
 ;;21,"54569-4166-02 ")
 ;;95
 ;;21,"54569-4166-03 ")
 ;;93
 ;;21,"54569-4166-04 ")
 ;;96
 ;;21,"54569-4167-01 ")
 ;;1086
 ;;21,"54569-4255-00 ")
 ;;2588
 ;;21,"54569-4255-01 ")
 ;;2592
 ;;21,"54569-4319-04 ")
 ;;2103
 ;;21,"54569-4319-06 ")
 ;;2102
 ;;21,"54569-4320-00 ")
 ;;2105
 ;;21,"54569-4320-01 ")
 ;;2106
 ;;21,"54569-4320-06 ")
 ;;2107
 ;;21,"54569-4321-01 ")
 ;;2101
 ;;21,"54569-4321-02 ")
 ;;2099
 ;;21,"54569-4321-03 ")
 ;;2100
 ;;21,"54569-4416-00 ")
 ;;543
 ;;21,"54569-4464-00 ")
 ;;573
 ;;21,"54569-4468-00 ")
 ;;398
 ;;21,"54569-4468-01 ")
 ;;399
 ;;21,"54569-4468-02 ")
 ;;400
 ;;21,"54569-4468-05 ")
 ;;401
 ;;21,"54569-4494-00 ")
 ;;847
 ;;21,"54569-4494-01 ")
 ;;845
 ;;21,"54569-4494-02 ")
 ;;846
 ;;21,"54569-4520-00 ")
 ;;2916
 ;;21,"54569-4520-01 ")
 ;;2917
 ;;21,"54569-4523-00 ")
 ;;2915
 ;;21,"54569-4545-00 ")
 ;;397
 ;;21,"54569-4545-01 ")
 ;;396
 ;;21,"54569-4579-00 ")
 ;;304
 ;;21,"54569-4630-00 ")
 ;;403
 ;;21,"54569-4630-03 ")
 ;;404
 ;;21,"54569-4630-04 ")
 ;;402
 ;;21,"54569-4671-00 ")
 ;;3459
 ;;21,"54569-4671-01 ")
 ;;3457
 ;;21,"54569-4671-02 ")
 ;;3458
 ;;21,"54569-4671-04 ")
 ;;3456
 ;;21,"54569-4672-00 ")
 ;;3464
 ;;21,"54569-4672-01 ")
 ;;3461
 ;;21,"54569-4672-02 ")
 ;;3463
 ;;21,"54569-4672-04 ")
 ;;3465
 ;;21,"54569-4672-05 ")
 ;;3462
 ;;21,"54569-4672-06 ")
 ;;3460
 ;;21,"54569-4770-00 ")
 ;;6
 ;;21,"54569-4770-01 ")
 ;;5
 ;;21,"54569-5121-00 ")
 ;;1286
 ;;21,"54569-5121-01 ")
 ;;1287
 ;;21,"54569-5121-02 ")
 ;;1285
 ;;21,"54569-5174-00 ")
 ;;2133
 ;;21,"54569-5179-00 ")
 ;;1289
 ;;21,"54569-5179-01 ")
 ;;1290
 ;;21,"54569-5179-02 ")
 ;;1288
 ;;21,"54569-5212-00 ")
 ;;3240
 ;;21,"54569-5212-01 ")
 ;;3238
 ;;21,"54569-5212-02 ")
 ;;3241
 ;;21,"54569-5212-03 ")
 ;;3239
 ;;21,"54569-5212-04 ")
 ;;3242
 ;;21,"54569-5303-00 ")
 ;;1123
 ;;21,"54569-5303-01 ")
 ;;1119
 ;;21,"54569-5303-02 ")
 ;;1121
 ;;21,"54569-5303-04 ")
 ;;1118
 ;;21,"54569-5303-05 ")
 ;;1120
 ;;21,"54569-5303-07 ")
 ;;1122
 ;;21,"54569-5429-00 ")
 ;;1125
 ;;21,"54569-5429-02 ")
 ;;1124
 ;;21,"54569-8521-00 ")
 ;;1385
 ;;21,"54569-8529-00 ")
 ;;3156
 ;;21,"54569-8535-00 ")
 ;;1235
 ;;21,"54569-8538-00 ")
 ;;267
 ;;21,"54569-8547-00 ")
 ;;2583
 ;;21,"54569-8560-00 ")
 ;;2108
 ;;21,"54569-8581-00 ")
 ;;540
 ;;21,"54569-8582-00 ")
 ;;2594
 ;;21,"54569-8588-00 ")
 ;;2104
 ;;21,"54569-8615-00 ")
 ;;3319
 ;;21,"54838-0522-70 ")
 ;;3370
 ;;21,"54868-0074-00 ")
 ;;759
 ;;21,"54868-0074-02 ")
 ;;758
 ;;21,"54868-0074-03 ")
 ;;754
 ;;21,"54868-0074-04 ")
 ;;755
 ;;21,"54868-0074-05 ")
 ;;756
 ;;21,"54868-0074-07 ")
 ;;757
 ;;21,"54868-0079-00 ")
 ;;1914
 ;;21,"54868-0079-02 ")
 ;;1917
 ;;21,"54868-0079-04 ")
 ;;1918
 ;;21,"54868-0079-05 ")
 ;;1915
 ;;21,"54868-0079-07 ")
 ;;1916
 ;;21,"54868-0079-08 ")
 ;;1920
 ;;21,"54868-0079-09 ")
 ;;1919
 ;;21,"54868-0080-00 ")
 ;;1926
 ;;21,"54868-0080-01 ")
 ;;1928
 ;;21,"54868-0080-02 ")
 ;;1922
 ;;21,"54868-0080-03 ")
 ;;1924
 ;;21,"54868-0080-04 ")
 ;;1921
 ;;21,"54868-0080-05 ")
 ;;1925
 ;;21,"54868-0080-06 ")
 ;;1927
 ;;21,"54868-0080-08 ")
 ;;1923
 ;;21,"54868-0080-09 ")
 ;;1929
 ;;21,"54868-0133-00 ")
 ;;1936
 ;;21,"54868-0133-01 ")
 ;;1930
 ;;21,"54868-0133-02 ")
 ;;1933
 ;;21,"54868-0133-03 ")
 ;;1935
 ;;21,"54868-0133-04 ")
 ;;1934
 ;;21,"54868-0133-05 ")
 ;;1931
 ;;21,"54868-0133-06 ")
 ;;1932
 ;;21,"54868-0133-08 ")
 ;;1937
 ;;21,"54868-0197-02 ")
 ;;3205
 ;;21,"54868-0197-03 ")
 ;;3206
 ;;21,"54868-0197-04 ")
 ;;3207
 ;;21,"54868-0300-00 ")
 ;;3188
 ;;21,"54868-0300-04 ")
 ;;3187
 ;;21,"54868-0437-00 ")
 ;;2118
 ;;21,"54868-0437-03 ")
 ;;2116
 ;;21,"54868-0437-04 ")
 ;;2117
 ;;21,"54868-0438-00 ")
 ;;2113
 ;;21,"54868-0439-03 ")
 ;;2114
 ;;21,"54868-0439-04 ")
 ;;2115
 ;;21,"54868-0449-01 ")
 ;;1104
 ;;21,"54868-0449-02 ")
 ;;1103
 ;;21,"54868-0474-01 ")
 ;;1537
 ;;21,"54868-0738-02 ")
 ;;585
 ;;21,"54868-0775-03 ")
 ;;1554
 ;;21,"54868-0856-00 ")
 ;;1562
 ;;21,"54868-0856-01 ")
 ;;1563
 ;;21,"54868-0875-00 ")
 ;;762
 ;;21,"54868-0875-01 ")
 ;;764
 ;;21,"54868-0875-02 ")
 ;;760
 ;;21,"54868-0875-04 ")
 ;;761
 ;;21,"54868-0875-05 ")
 ;;763
 ;;21,"54868-0878-00 ")
 ;;587
 ;;21,"54868-0879-00 ")
 ;;1024
 ;;21,"54868-0879-01 ")
 ;;1023
 ;;21,"54868-0896-01 ")
 ;;287
 ;;21,"54868-0896-02 ")
 ;;285
 ;;21,"54868-0896-03 ")
 ;;286
 ;;21,"54868-0897-02 ")
 ;;289
 ;;21,"54868-0897-04 ")
 ;;288
 ;;21,"54868-0897-05 ")
 ;;290
 ;;21,"54868-0922-00 ")
 ;;769
 ;;21,"54868-0922-01 ")
 ;;766
 ;;21,"54868-0922-02 ")
 ;;768
 ;;21,"54868-0922-03 ")
 ;;765
 ;;21,"54868-0922-06 ")
 ;;767
 ;;21,"54868-1118-01 ")
 ;;1025
 ;;21,"54868-1813-00 ")
 ;;563
 ;;21,"54868-1872-01 ")
 ;;3195
 ;;21,"54868-1904-01 ")
 ;;2120
 ;;21,"54868-2014-00 ")
 ;;1273
 ;;21,"54868-2014-02 ")
 ;;1274
 ;;21,"54868-2014-03 ")
 ;;1275
 ;;21,"54868-2018-01 ")
 ;;564
 ;;21,"54868-2018-03 ")
 ;;565
 ;;21,"54868-2018-04 ")
 ;;566
 ;;21,"54868-2199-01 ")
 ;;1485
 ;;21,"54868-2199-04 ")
 ;;1484
 ;;21,"54868-2199-05 ")
 ;;1486
 ;;21,"54868-2285-01 ")
 ;;917
 ;;21,"54868-2285-02 ")
 ;;916
 ;;21,"54868-2285-03 ")
 ;;919
 ;;21,"54868-2285-04 ")
 ;;918
 ;;21,"54868-2414-00 ")
 ;;2407
 ;;21,"54868-2415-00 ")
 ;;2408
 ;;21,"54868-2415-01 ")
 ;;2410
 ;;21,"54868-2415-02 ")
 ;;2409
 ;;21,"54868-2415-04 ")
 ;;2411
 ;;21,"54868-2421-00 ")
 ;;1071
 ;;21,"54868-2421-01 ")
 ;;1070
 ;;21,"54868-2584-01 ")
 ;;292
 ;;21,"54868-2584-02 ")
 ;;291
 ;;21,"54868-2699-04 ")
 ;;2829
 ;;21,"54868-2964-01 ")
 ;;2819
 ;;21,"54868-2964-02 ")
 ;;2820
 ;;21,"54868-2964-03 ")
 ;;2818
 ;;21,"54868-2965-01 ")
 ;;2824
 ;;21,"54868-2965-02 ")
 ;;2822
 ;;21,"54868-2965-03 ")
 ;;2823
 ;;21,"54868-2965-05 ")
 ;;2826
 ;;21,"54868-2965-06 ")
 ;;2821
 ;;21,"54868-2966-00 ")
 ;;2833
 ;;21,"54868-2966-02 ")
 ;;2831
 ;;21,"54868-2966-03 ")
 ;;2830
 ;;21,"54868-2966-06 ")
 ;;2828
 ;;21,"54868-2966-07 ")
 ;;2827
 ;;21,"54868-2966-08 ")
 ;;2832
 ;;21,"54868-2987-00 ")
 ;;568
 ;;21,"54868-2987-01 ")
 ;;567
 ;;21,"54868-2997-00 ")
 ;;3349
 ;;21,"54868-2997-01 ")
 ;;3352
 ;;21,"54868-2997-02 ")
 ;;3351
 ;;21,"54868-2997-03 ")
 ;;3353
 ;;21,"54868-2997-04 ")
 ;;3350
 ;;21,"54868-2997-05 ")
 ;;3348
 ;;21,"54868-3043-01 ")
 ;;3105
 ;;21,"54868-3043-02 ")
 ;;3107
 ;;21,"54868-3043-03 ")
 ;;3106
 ;;21,"54868-3043-05 ")
 ;;3108
 ;;21,"54868-3051-00 ")
 ;;3424
 ;;21,"54868-3094-00 ")
 ;;3425
 ;;21,"54868-3208-00 ")
 ;;1278
 ;;21,"54868-3208-01 ")
 ;;1277
 ;;21,"54868-3208-02 ")
 ;;1276
 ;;21,"54868-3359-00 ")
 ;;3104
 ;;21,"54868-3362-00 ")
 ;;1611
 ;;21,"54868-3362-01 ")
 ;;1612
 ;;21,"54868-3380-00 ")
 ;;2451
 ;;21,"54868-3380-01 ")
 ;;2450
 ;;21,"54868-3380-02 ")
 ;;2449
 ;;21,"54868-3380-03 ")
 ;;2448
 ;;21,"54868-3655-00 ")
 ;;512
 ;;21,"54868-3659-00 ")
 ;;198
 ;;21,"54868-3659-01 ")
 ;;199
 ;;21,"54868-3659-02 ")
 ;;197
 ;;21,"54868-3831-00 ")
 ;;2447
 ;;21,"54868-3837-00 ")
 ;;200
 ;;21,"54868-3837-01 ")
 ;;202
 ;;21,"54868-3837-02 ")
 ;;203
 ;;21,"54868-3837-03 ")
 ;;201
 ;;21,"54868-3843-00 ")
 ;;921
 ;;21,"54868-3856-00 ")
 ;;569
 ;;21,"54868-3901-00 ")
 ;;580
 ;;21,"54868-3901-01 ")
 ;;581
 ;;21,"54868-3901-02 ")
 ;;582
 ;;21,"54868-3955-01 ")
 ;;513
 ;;21,"54868-3999-00 ")
 ;;196
 ;;21,"54868-4051-00 ")
 ;;2948
 ;;21,"54868-4059-00 ")
 ;;514
 ;;21,"54868-4101-00 ")
 ;;3586
 ;;21,"54868-4101-01 ")
 ;;3585
 ;;21,"54868-4101-02 ")
 ;;3584
 ;;21,"54868-4101-03 ")
 ;;3583
 ;;21,"54868-4101-04 ")
 ;;3582
 ;;21,"54868-4101-05 ")
 ;;3587
 ;;21,"54868-4107-00 ")
 ;;3580
 ;;21,"54868-4107-01 ")
 ;;3579
 ;;21,"54868-4107-02 ")
 ;;3581
 ;;21,"54868-4107-03 ")
 ;;3578
 ;;21,"54868-4165-00 ")
 ;;321
 ;;21,"54868-4171-00 ")
 ;;883
 ;;21,"54868-4342-00 ")
 ;;1913
 ;;21,"54868-4419-00 ")
 ;;882
 ;;21,"54868-4490-00 ")
 ;;1319
 ;;21,"54868-4490-01 ")
 ;;1320
 ;;21,"54868-4490-02 ")
 ;;1318
 ;;21,"54868-4548-00 ")
 ;;3293
 ;;21,"54868-4548-01 ")
 ;;3292
 ;;21,"54868-4548-02 ")
 ;;3294
 ;;21,"54868-4556-00 ")
 ;;1184
 ;;21,"54868-4556-01 ")
 ;;1182
 ;;21,"54868-4556-02 ")
 ;;1185
 ;;21,"54868-4556-03 ")
 ;;1183
 ;;21,"54868-4558-00 ")
 ;;1187
 ;;21,"54868-4558-01 ")
 ;;1186
 ;;21,"54868-4558-02 ")
 ;;1188
 ;;21,"54868-4826-00 ")
 ;;2413
 ;;21,"54868-4826-01 ")
 ;;2412
 ;;21,"54868-4826-02 ")
 ;;2414
 ;;21,"54868-5011-00 ")
 ;;205
 ;;21,"54868-5011-01 ")
 ;;204
 ;;21,"54868-5158-00 ")
 ;;1322
 ;;21,"54868-5158-01 ")
 ;;1321
 ;;21,"55045-1163-01 ")
 ;;721
 ;;21,"55045-1163-02 ")
 ;;717
 ;;21,"55045-1163-04 ")
 ;;719
 ;;21,"55045-1163-08 ")
 ;;718
 ;;21,"55045-1163-09 ")
 ;;720
 ;;21,"55045-1173-00 ")
 ;;2304
 ;;21,"55045-1173-01 ")
 ;;2311
 ;;21,"55045-1173-02 ")
 ;;2312
 ;;21,"55045-1173-03 ")
 ;;2308
 ;;21,"55045-1173-05 ")
 ;;2305
 ;;21,"55045-1173-06 ")
 ;;2310
 ;;21,"55045-1173-07 ")
 ;;2306
 ;;21,"55045-1173-08 ")
 ;;2307
 ;;21,"55045-1173-09 ")
 ;;2309
 ;;21,"55045-1257-01 ")
 ;;2322
 ;;21,"55045-1257-02 ")
 ;;2315
 ;;21,"55045-1257-03 ")
 ;;2318
 ;;21,"55045-1257-04 ")
 ;;2321
 ;;21,"55045-1257-05 ")
 ;;2313
 ;;21,"55045-1257-06 ")
 ;;2317
 ;;21,"55045-1257-07 ")
 ;;2314
 ;;21,"55045-1257-08 ")
 ;;2316
 ;;21,"55045-1257-09 ")
 ;;2320
 ;;21,"55045-1385-02 ")
 ;;724
 ;;21,"55045-1385-07 ")
 ;;722
 ;;21,"55045-1385-08 ")
 ;;723
 ;;21,"55045-1421-02 ")
 ;;2299
 ;;21,"55045-1421-04 ")
 ;;2302
 ;;21,"55045-1421-07 ")
 ;;2300
 ;;21,"55045-1421-08 ")
 ;;2301
 ;;21,"55045-1421-09 ")
 ;;2303
 ;;21,"55045-1437-06 ")
 ;;725
 ;;21,"55045-1437-08 ")
 ;;726
 ;;21,"55045-1571-08 ")
 ;;1550
 ;;21,"55045-1676-09 ")
 ;;984
 ;;21,"55045-1908-05 ")
 ;;1245
 ;;21,"55045-1908-07 ")
 ;;1246
 ;;21,"55045-1908-08 ")
 ;;1247
 ;;21,"55045-1924-00 ")
 ;;1434
 ;;21,"55045-1924-01 ")
 ;;1433
 ;;21,"55045-1924-03 ")
 ;;1429
 ;;21,"55045-1924-05 ")
 ;;1430
 ;;21,"55045-1924-08 ")
 ;;1431
 ;;21,"55045-1924-09 ")
 ;;1432
 ;;21,"55045-1926-06 ")
 ;;1428
 ;;21,"55045-2005-06 ")
 ;;2396
 ;;21,"55045-2005-07 ")
 ;;2394
 ;;21,"55045-2005-08 ")
 ;;2395
 ;;21,"55045-2065-00 ")
 ;;2692
 ;;21,"55045-2065-02 ")
 ;;2690
 ;;21,"55045-2065-04 ")
 ;;2689
 ;;21,"55045-2065-05 ")
 ;;2686
 ;;21,"55045-2065-07 ")
 ;;2687
 ;;21,"55045-2065-08 ")
 ;;2688
 ;;21,"55045-2065-09 ")
 ;;2691
 ;;21,"55045-2066-01 ")
 ;;2701
 ;;21,"55045-2066-02 ")
 ;;2698
 ;;21,"55045-2066-03 ")
 ;;2693
 ;;21,"55045-2066-04 ")
 ;;2697
 ;;21,"55045-2066-05 ")
 ;;2694
 ;;21,"55045-2066-06 ")
 ;;2699
 ;;21,"55045-2066-07 ")
 ;;2695
 ;;21,"55045-2066-08 ")
 ;;2696
 ;;21,"55045-2066-09 ")
 ;;2700
 ;;21,"55045-2068-01 ")
 ;;3056
 ;;21,"55045-2068-07 ")
 ;;3059
 ;;21,"55045-2068-08 ")
 ;;3058
 ;;21,"55045-2068-09 ")
 ;;3057
 ;;21,"55045-2073-02 ")
 ;;269
 ;;21,"55045-2073-05 ")
 ;;270
 ;;21,"55045-2109-08 ")
 ;;3055
 ;;21,"55045-2120-05 ")
 ;;3327
 ;;21,"55045-2120-06 ")
 ;;3326
 ;;21,"55045-2142-01 ")
 ;;1595
 ;;21,"55045-2142-07 ")
 ;;1596
 ;;21,"55045-2247-00 ")
 ;;174
 ;;21,"55045-2247-01 ")
 ;;173
 ;;21,"55045-2247-04 ")
 ;;252
 ;;21,"55045-2247-08 ")
 ;;172
 ;;21,"55045-2247-09 ")
 ;;175
 ;;21,"55045-2249-07 ")
 ;;171
 ;;21,"55045-2275-00 ")
 ;;170
 ;;21,"55045-2275-06 ")
 ;;169
 ;;21,"55045-2275-08 ")
 ;;168
 ;;21,"55045-2281-07 ")
 ;;2685
 ;;21,"55045-2440-08 ")
 ;;1248
 ;;21,"55045-2490-00 ")
 ;;467
 ;;21,"55045-2490-01 ")
 ;;466
 ;;21,"55045-2490-02 ")
 ;;462
 ;;21,"55045-2490-03 ")
 ;;461
 ;;21,"55045-2490-04 ")
 ;;464
 ;;21,"55045-2490-05 ")
 ;;468
 ;;21,"55045-2490-06 ")
 ;;465
 ;;21,"55045-2490-08 ")
 ;;463
 ;;21,"55045-2516-07 ")
 ;;2930
 ;;21,"55045-2516-08 ")
 ;;2931
 ;;21,"55045-2530-03 ")
 ;;865
 ;;21,"55045-2530-04 ")
 ;;866
 ;;21,"55045-2530-05 ")
 ;;867
 ;;21,"55045-2548-06 ")
 ;;310
 ;;21,"55045-2548-08 ")
 ;;309
 ;;21,"55045-2592-01 ")
 ;;459
 ;;21,"55045-2592-02 ")
 ;;460
 ;;21,"55045-2592-06 ")
 ;;457
 ;;21,"55045-2592-07 ")
 ;;455
 ;;21,"55045-2592-08 ")
 ;;456
 ;;21,"55045-2592-09 ")
 ;;458
 ;;21,"55045-2628-01 ")
 ;;12
 ;;21,"55045-2628-07 ")
 ;;10
 ;;21,"55045-2628-08 ")
 ;;11
 ;;21,"55045-2671-01 ")
 ;;3524
 ;;21,"55045-2671-07 ")
 ;;3525
 ;;21,"55045-2671-08 ")
 ;;3526
 ;;21,"55045-2680-01 ")
 ;;3528
 ;;21,"55045-2680-02 ")
 ;;3527
 ;;21,"55045-2680-06 ")
 ;;3529
 ;;21,"55045-2680-07 ")
 ;;3530
 ;;21,"55045-2680-08 ")
 ;;3531
 ;;21,"55045-2680-09 ")
 ;;3532
 ;;21,"55045-2894-01 ")
 ;;469
 ;;21,"55045-2894-02 ")
 ;;471