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

BGP0ZY5.m

Go to the documentation of this file.
  1. BGP0ZY5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;
  1. ;;3482
  1. ;;
  1. ;;3483
  1. ;;
  1. ;;3484
  1. ;;
  1. ;;3485
  1. ;;
  1. ;;3486
  1. ;;
  1. ;;3487
  1. ;;
  1. ;;3488
  1. ;;
  1. ;;3489
  1. ;;
  1. ;;3477
  1. ;;
  1. ;;3466
  1. ;;
  1. ;;3467
  1. ;;
  1. ;;3468
  1. ;;
  1. ;;3469
  1. ;;
  1. ;;3470
  1. ;;
  1. ;;3471
  1. ;;
  1. ;;3472
  1. ;;
  1. ;;3473
  1. ;;
  1. ;;3474
  1. ;;
  1. ;;3475
  1. ;;
  1. ;;3476
  1. ;;
  1. ;;1136
  1. ;;
  1. ;;1126
  1. ;;
  1. ;;1127
  1. ;;
  1. ;;1128
  1. ;;
  1. ;;1129
  1. ;;
  1. ;;1130
  1. ;;
  1. ;;1131
  1. ;;
  1. ;;1132
  1. ;;
  1. ;;1133
  1. ;;
  1. ;;1134
  1. ;;
  1. ;;1135
  1. ;;
  1. ;;1239
  1. ;;
  1. ;;1240
  1. ;;
  1. ;;2918
  1. ;;
  1. ;;2919
  1. ;;
  1. ;;2920
  1. ;;
  1. ;;2921
  1. ;;
  1. ;;2922
  1. ;;
  1. ;;2923
  1. ;;
  1. ;;2924
  1. ;;
  1. ;;2925
  1. ;;
  1. ;;141
  1. ;;
  1. ;;135
  1. ;;
  1. ;;136
  1. ;;
  1. ;;137
  1. ;;
  1. ;;138
  1. ;;
  1. ;;139
  1. ;;
  1. ;;140
  1. ;;
  1. ;;3535
  1. ;;
  1. ;;3533
  1. ;;
  1. ;;3534
  1. ;;
  1. ;;3538
  1. ;;
  1. ;;3536
  1. ;;
  1. ;;3537
  1. ;;
  1. ;;14
  1. ;;
  1. ;;13
  1. ;;
  1. ;;177
  1. ;;
  1. ;;176
  1. ;;
  1. ;;179
  1. ;;
  1. ;;178
  1. ;;
  1. ;;2058
  1. ;;
  1. ;;2056
  1. ;;
  1. ;;2057
  1. ;;
  1. ;;2053
  1. ;;
  1. ;;2052
  1. ;;
  1. ;;2055
  1. ;;
  1. ;;2054
  1. ;;
  1. ;;2740
  1. ;;
  1. ;;2739
  1. ;;
  1. ;;1459
  1. ;;
  1. ;;1457
  1. ;;
  1. ;;1458
  1. ;;
  1. ;;586
  1. ;;
  1. ;;2452
  1. ;;
  1. ;;2454
  1. ;;
  1. ;;2455
  1. ;;
  1. ;;2456
  1. ;;
  1. ;;2458
  1. ;;
  1. ;;2460
  1. ;;
  1. ;;2459
  1. ;;
  1. ;;1653
  1. ;;
  1. ;;1654
  1. ;;
  1. ;;1655
  1. ;;
  1. ;;1656
  1. ;;
  1. ;;1657
  1. ;;
  1. ;;1658
  1. ;;
  1. ;;2453
  1. ;;
  1. ;;658
  1. ;;
  1. ;;1691
  1. ;;
  1. ;;1689
  1. ;;
  1. ;;1690
  1. ;;
  1. ;;3454
  1. ;;
  1. ;;3455
  1. ;;
  1. ;;303
  1. ;;
  1. ;;1226
  1. ;;
  1. ;;1225
  1. ;;
  1. ;;2021
  1. ;;
  1. ;;2022
  1. ;;
  1. ;;2023
  1. ;;
  1. ;;2024
  1. ;;
  1. ;;2025
  1. ;;
  1. ;;2026
  1. ;;
  1. ;;2027
  1. ;;
  1. ;;2028
  1. ;;
  1. ;;2029
  1. ;;
  1. ;;2030
  1. ;;
  1. ;;2031
  1. ;;
  1. ;;2032
  1. ;;
  1. ;;2034
  1. ;;
  1. ;;2035
  1. ;;
  1. ;;2036
  1. ;;
  1. ;;2037
  1. ;;
  1. ;;2038
  1. ;;
  1. ;;2039
  1. ;;
  1. ;;2040
  1. ;;
  1. ;;2041
  1. ;;
  1. ;;2033
  1. ;;
  1. ;;3539
  1. ;;
  1. ;;3540
  1. ;;
  1. ;;3541
  1. ;;
  1. ;;3542
  1. ;;
  1. ;;3543
  1. ;;
  1. ;;3544
  1. ;;
  1. ;;3545
  1. ;;
  1. ;;3546
  1. ;;
  1. ;;3328
  1. ;;
  1. ;;3329
  1. ;;
  1. ;;3330
  1. ;;
  1. ;;185
  1. ;;
  1. ;;186
  1. ;;
  1. ;;482
  1. ;;
  1. ;;483
  1. ;;
  1. ;;484
  1. ;;
  1. ;;485
  1. ;;
  1. ;;727
  1. ;;
  1. ;;728
  1. ;;
  1. ;;729
  1. ;;
  1. ;;731
  1. ;;
  1. ;;732
  1. ;;
  1. ;;733
  1. ;;
  1. ;;2397
  1. ;;
  1. ;;2398
  1. ;;
  1. ;;2744
  1. ;;
  1. ;;2745
  1. ;;
  1. ;;2746
  1. ;;
  1. ;;2747
  1. ;;
  1. ;;2748
  1. ;;
  1. ;;2749
  1. ;;
  1. ;;2750
  1. ;;
  1. ;;2751
  1. ;;
  1. ;;2752
  1. ;;
  1. ;;2753
  1. ;;
  1. ;;2754
  1. ;;
  1. ;;2755
  1. ;;
  1. ;;2756
  1. ;;
  1. ;;2757
  1. ;;
  1. ;;2758
  1. ;;
  1. ;;2759
  1. ;;
  1. ;;2760
  1. ;;
  1. ;;2761
  1. ;;
  1. ;;3082
  1. ;;
  1. ;;3083
  1. ;;
  1. ;;3084
  1. ;;
  1. ;;3085
  1. ;;
  1. ;;1463
  1. ;;
  1. ;;1464
  1. ;;
  1. ;;1465
  1. ;;
  1. ;;1466
  1. ;;
  1. ;;1467
  1. ;;
  1. ;;1468
  1. ;;
  1. ;;1249
  1. ;;
  1. ;;1250
  1. ;;
  1. ;;1251
  1. ;;
  1. ;;1252
  1. ;;
  1. ;;1006
  1. ;;
  1. ;;1007
  1. ;;
  1. ;;1008
  1. ;;
  1. ;;1009
  1. ;;
  1. ;;900
  1. ;;
  1. ;;901
  1. ;;
  1. ;;1005
  1. ;;
  1. ;;182
  1. ;;
  1. ;;183
  1. ;;
  1. ;;184
  1. ;;
  1. ;;3274
  1. ;;
  1. ;;3275
  1. ;;
  1. ;;3276
  1. ;;
  1. ;;3277
  1. ;;
  1. ;;869
  1. ;;
  1. ;;1165
  1. ;;
  1. ;;1166
  1. ;;
  1. ;;1167
  1. ;;
  1. ;;1607
  1. ;;
  1. ;;486
  1. ;;
  1. ;;1168
  1. ;;
  1. ;;1169
  1. ;;
  1. ;;730
  1. ;;
  1. ;;2291
  1. ;;
  1. ;;2292
  1. ;;
  1. ;;2293
  1. ;;
  1. ;;2294
  1. ;;
  1. ;;2295
  1. ;;
  1. ;;2296
  1. ;;
  1. ;;2297
  1. ;;
  1. ;;2298
  1. ;;
  1. ;;164
  1. ;;
  1. ;;165
  1. ;;
  1. ;;1153
  1. ;;
  1. ;;2278
  1. ;;
  1. ;;2279
  1. ;;
  1. ;;2280
  1. ;;
  1. ;;2281
  1. ;;
  1. ;;863
  1. ;;
  1. ;;864
  1. ;;
  1. ;;166
  1. ;;
  1. ;;167
  1. ;;
  1. ;;2282
  1. ;;
  1. ;;2283
  1. ;;
  1. ;;2284
  1. ;;
  1. ;;2285
  1. ;;
  1. ;;2286
  1. ;;
  1. ;;2287
  1. ;;
  1. ;;2288
  1. ;;
  1. ;;2289
  1. ;;
  1. ;;2290
  1. ;;
  1. ;;2392
  1. ;;
  1. ;;2393
  1. ;;
  1. ;;1424
  1. ;;
  1. ;;1425
  1. ;;
  1. ;;1426
  1. ;;
  1. ;;1427
  1. ;;
  1. ;;716
  1. ;;
  1. ;;982
  1. ;;
  1. ;;983
  1. ;;
  1. ;;3325
  1. ;;
  1. ;;3521
  1. ;;
  1. ;;3522
  1. ;;
  1. ;;3523
  1. ;;
  1. ;;453
  1. ;;
  1. ;;454
  1. ;;
  1. ;;2677
  1. ;;
  1. ;;2678
  1. ;;
  1. ;;2679
  1. ;;
  1. ;;2681
  1. ;;
  1. ;;2682
  1. ;;
  1. ;;2680
 ;;
 ;;2683
 ;;
 ;;2684
 ;;
 ;;2672
 ;;
 ;;2673
 ;;
 ;;2674
 ;;
 ;;2675
 ;;
 ;;2676
 ;;
 ;;3051
 ;;
 ;;3052
 ;;
 ;;3053
 ;;
 ;;3054
 ;;
 ;;3049
 ;;
 ;;3050
 ;;
 ;;450
 ;;
 ;;451
 ;;
 ;;452
 ;;
 ;;2541
 ;;
 ;;2542
 ;;
 ;;2545
 ;;
 ;;2546
 ;;
 ;;2547
 ;;
 ;;2549
 ;;
 ;;2551
 ;;
 ;;2552
 ;;
 ;;3513
 ;;
 ;;3514
 ;;
 ;;3515
 ;;
 ;;3520
 ;;
 ;;3516
 ;;
 ;;3517
 ;;
 ;;3518
 ;;
 ;;3519
 ;;
 ;;8
 ;;
 ;;9
 ;;
 ;;154
 ;;
 ;;155
 ;;
 ;;156
 ;;
 ;;157
 ;;
 ;;158
 ;;
 ;;159
 ;;
 ;;160
 ;;
 ;;161
 ;;
 ;;447
 ;;
 ;;448
 ;;
 ;;449
 ;;
 ;;1549
 ;;
 ;;2253
 ;;
 ;;2254
 ;;
 ;;2255
 ;;
 ;;2256
 ;;
 ;;2257
 ;;
 ;;2258
 ;;
 ;;2265
 ;;
 ;;2259
 ;;
 ;;2260
 ;;
 ;;2261
 ;;
 ;;2262
 ;;
 ;;2263
 ;;
 ;;2264
 ;;
 ;;2267
 ;;
 ;;2268
 ;;
 ;;2269
 ;;
 ;;2270
 ;;
 ;;2271
 ;;
 ;;2272
 ;;
 ;;2273
 ;;
 ;;2274
 ;;
 ;;2275
 ;;
 ;;2277
 ;;
 ;;710
 ;;
 ;;711
 ;;
 ;;712
 ;;
 ;;713
 ;;
 ;;714
 ;;
 ;;715
 ;;
 ;;2389
 ;;
 ;;2390
 ;;
 ;;2391
 ;;
 ;;861
 ;;
 ;;862
 ;;
 ;;1148
 ;;
 ;;1145
 ;;
 ;;1146
 ;;
 ;;1147
 ;;
 ;;1149
 ;;
 ;;1150
 ;;
 ;;1151
 ;;
 ;;1152
 ;;
 ;;2655
 ;;
 ;;2656
 ;;
 ;;2657
 ;;
 ;;2658
 ;;
 ;;2659
 ;;
 ;;2660
 ;;
 ;;2661
 ;;
 ;;2662
 ;;
 ;;2663
 ;;
 ;;2664
 ;;
 ;;2665
 ;;
 ;;2666
 ;;
 ;;2667
 ;;
 ;;2668
 ;;
 ;;2669
 ;;
 ;;2670
 ;;
 ;;2671
 ;;
 ;;3044
 ;;
 ;;3045
 ;;
 ;;3046
 ;;
 ;;3047
 ;;
 ;;3048
 ;;
 ;;3264
 ;;
 ;;3265
 ;;
 ;;1418
 ;;
 ;;1419
 ;;
 ;;1420
 ;;
 ;;1421
 ;;
 ;;1422
 ;;
 ;;1423
 ;;
 ;;980
 ;;
 ;;981
 ;;
 ;;3407
 ;;
 ;;1416
 ;;
 ;;1417
 ;;
 ;;3373
 ;;
 ;;3374
 ;;
 ;;3375
 ;;
 ;;1301
 ;;
 ;;1304
 ;;
 ;;1302
 ;;
 ;;163
 ;;
 ;;3376
 ;;
 ;;3408
 ;;
 ;;1303
 ;;
 ;;2276
 ;;
 ;;2266
 ;;
 ;;479
 ;;
 ;;480
 ;;
 ;;481
 ;;
 ;;3272
 ;;
 ;;3273
 ;;
 ;;2051
 ;;
 ;;2048
 ;;
 ;;2049
 ;;
 ;;2050
 ;;
 ;;180
 ;;
 ;;181
 ;;
 ;;1163
 ;;
 ;;1164
 ;;
 ;;15
 ;;
 ;;868
 ;;
 ;;1460
 ;;
 ;;1461
 ;;
 ;;1462
 ;;
 ;;2741
 ;;
 ;;2742
 ;;
 ;;2743