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

BGP62Y11.m

Go to the documentation of this file.
  1. BGP62Y11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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. ;;21,"52959-0657-03 ")
  1. ;;2596
  1. ;;21,"52959-0657-06 ")
  1. ;;2597
  1. ;;21,"52959-0660-20 ")
  1. ;;1662
  1. ;;21,"52959-0660-30 ")
  1. ;;1663
  1. ;;21,"52959-0661-20 ")
  1. ;;740
  1. ;;21,"52959-0661-30 ")
  1. ;;741
  1. ;;21,"52959-0690-03 ")
  1. ;;4804
  1. ;;21,"52959-0690-05 ")
  1. ;;4805
  1. ;;21,"52959-0690-07 ")
  1. ;;4806
  1. ;;21,"52959-0690-14 ")
  1. ;;4807
  1. ;;21,"52959-0690-30 ")
  1. ;;4808
  1. ;;21,"52959-0702-04 ")
  1. ;;1102
  1. ;;21,"52959-0702-09 ")
  1. ;;1103
  1. ;;21,"52959-0702-12 ")
  1. ;;1104
  1. ;;21,"52959-0702-14 ")
  1. ;;1105
  1. ;;21,"52959-0702-15 ")
  1. ;;1106
  1. ;;21,"52959-0702-20 ")
  1. ;;1107
  1. ;;21,"52959-0702-21 ")
  1. ;;1108
  1. ;;21,"52959-0702-30 ")
  1. ;;1109
  1. ;;21,"52959-0702-40 ")
  1. ;;1110
  1. ;;21,"52959-0707-10 ")
  1. ;;1252
  1. ;;21,"52959-0707-14 ")
  1. ;;1253
  1. ;;21,"52959-0707-15 ")
  1. ;;1254
  1. ;;21,"52959-0707-20 ")
  1. ;;1255
  1. ;;21,"52959-0707-30 ")
  1. ;;1256
  1. ;;21,"52959-0707-60 ")
  1. ;;1257
  1. ;;21,"52959-0730-00 ")
  1. ;;4477
  1. ;;21,"52959-0730-04 ")
  1. ;;4478
  1. ;;21,"52959-0730-06 ")
  1. ;;4479
  1. ;;21,"52959-0730-10 ")
  1. ;;4480
  1. ;;21,"52959-0730-14 ")
  1. ;;4481
  1. ;;21,"52959-0730-15 ")
  1. ;;4482
  1. ;;21,"52959-0730-20 ")
  1. ;;4483
  1. ;;21,"52959-0730-21 ")
  1. ;;4484
  1. ;;21,"52959-0730-28 ")
  1. ;;4485
  1. ;;21,"52959-0730-30 ")
  1. ;;4486
  1. ;;21,"52959-0730-60 ")
  1. ;;4487
  1. ;;21,"52959-0734-14 ")
  1. ;;4709
  1. ;;21,"52959-0734-20 ")
  1. ;;4710
  1. ;;21,"52959-0734-30 ")
  1. ;;4711
  1. ;;21,"52959-0734-60 ")
  1. ;;4712
  1. ;;21,"52959-0739-06 ")
  1. ;;4227
  1. ;;21,"52959-0739-10 ")
  1. ;;4228
  1. ;;21,"52959-0739-14 ")
  1. ;;4229
  1. ;;21,"52959-0739-20 ")
  1. ;;4230
  1. ;;21,"52959-0744-20 ")
  1. ;;2290
  1. ;;21,"52959-0744-30 ")
  1. ;;2291
  1. ;;21,"52959-0744-40 ")
  1. ;;2292
  1. ;;21,"52959-0744-42 ")
  1. ;;2293
  1. ;;21,"52959-0765-01 ")
  1. ;;3727
  1. ;;21,"52959-0765-02 ")
  1. ;;3728
  1. ;;21,"52959-0766-03 ")
  1. ;;5548
  1. ;;21,"52959-0766-05 ")
  1. ;;5549
  1. ;;21,"52959-0766-07 ")
  1. ;;5550
  1. ;;21,"52959-0782-10 ")
  1. ;;4978
  1. ;;21,"52959-0782-20 ")
  1. ;;4979
  1. ;;21,"52959-0784-04 ")
  1. ;;2447
  1. ;;21,"52959-0784-16 ")
  1. ;;2448
  1. ;;21,"52959-0784-21 ")
  1. ;;2449
  1. ;;21,"52959-0784-28 ")
  1. ;;2450
  1. ;;21,"52959-0784-30 ")
  1. ;;2451
  1. ;;21,"52959-0784-40 ")
  1. ;;2452
  1. ;;21,"52959-0793-28 ")
  1. ;;908
  1. ;;21,"52959-0793-40 ")
  1. ;;909
  1. ;;21,"52959-0796-10 ")
  1. ;;7069
  1. ;;21,"52959-0816-20 ")
  1. ;;3317
  1. ;;21,"52959-0816-28 ")
  1. ;;3318
  1. ;;21,"52959-0816-30 ")
  1. ;;3319
  1. ;;21,"52959-0836-10 ")
  1. ;;2972
  1. ;;21,"52959-0836-14 ")
  1. ;;2973
  1. ;;21,"52959-0836-20 ")
  1. ;;2974
  1. ;;21,"52959-0836-60 ")
  1. ;;2975
  1. ;;21,"52959-0838-06 ")
  1. ;;2681
  1. ;;21,"52959-0843-01 ")
  1. ;;153
  1. ;;21,"52959-0855-07 ")
  1. ;;4668
  1. ;;21,"52959-0927-03 ")
  1. ;;2808
  1. ;;21,"52959-0932-30 ")
  1. ;;2598
  1. ;;21,"52959-0939-20 ")
  1. ;;5467
  1. ;;21,"52959-0939-30 ")
  1. ;;5468
  1. ;;21,"52959-1012-00 ")
  1. ;;994
  1. ;;21,"52959-1012-01 ")
  1. ;;995
  1. ;;21,"52959-1023-01 ")
  1. ;;5551
  1. ;;21,"52959-1023-03 ")
  1. ;;5552
  1. ;;21,"52959-1023-05 ")
  1. ;;5553
  1. ;;21,"52959-1023-07 ")
  1. ;;5554
  1. ;;21,"52959-1023-09 ")
  1. ;;5555
  1. ;;21,"52959-1029-00 ")
  1. ;;1788
  1. ;;21,"52959-1029-01 ")
  1. ;;1789
  1. ;;21,"52959-1055-00 ")
  1. ;;3504
  1. ;;21,"52959-1055-01 ")
  1. ;;3505
  1. ;;21,"52959-1172-01 ")
  1. ;;3729
  1. ;;21,"52959-1172-02 ")
  1. ;;3730
  1. ;;21,"52959-1399-03 ")
  1. ;;5176
  1. ;;21,"52959-1425-03 ")
  1. ;;834
  1. ;;21,"52959-1452-01 ")
  1. ;;3393
  1. ;;21,"52959-1452-02 ")
  1. ;;3394
  1. ;;21,"52959-1453-02 ")
  1. ;;1564
  1. ;;21,"52959-1462-00 ")
  1. ;;3608
  1. ;;21,"52959-1463-03 ")
  1. ;;405
  1. ;;21,"53489-0118-02 ")
  1. ;;6312
  1. ;;21,"53489-0118-05 ")
  1. ;;6313
  1. ;;21,"53489-0119-02 ")
  1. ;;6011
  1. ;;21,"53489-0119-05 ")
  1. ;;6012
  1. ;;21,"53489-0120-02 ")
  1. ;;6177
  1. ;;21,"53489-0120-05 ")
  1. ;;6178
  1. ;;21,"53489-0145-01 ")
  1. ;;5591
  1. ;;21,"53489-0145-05 ")
  1. ;;5592
  1. ;;21,"53489-0146-01 ")
  1. ;;5739
  1. ;;21,"53489-0146-05 ")
  1. ;;5740
  1. ;;21,"53489-0647-01 ")
  1. ;;5916
  1. ;;21,"53746-0271-01 ")
  1. ;;5593
  1. ;;21,"53746-0271-05 ")
  1. ;;5594
  1. ;;21,"53746-0272-01 ")
  1. ;;5741
  1. ;;21,"53746-0272-05 ")
  1. ;;5742
  1. ;;21,"53808-0222-01 ")
  1. ;;1966
  1. ;;21,"53808-0223-01 ")
  1. ;;4488
  1. ;;21,"53808-0239-01 ")
  1. ;;6013
  1. ;;21,"53808-0240-01 ")
  1. ;;6014
  1. ;;21,"53808-0341-01 ")
  1. ;;1111
  1. ;;21,"53808-0349-01 ")
  1. ;;4489
  1. ;;21,"53808-0740-01 ")
  1. ;;1258
  1. ;;21,"53808-0962-01 ")
  1. ;;6015
  1. ;;21,"54348-0575-02 ")
  1. ;;6016
  1. ;;21,"54348-0854-04 ")
  1. ;;2682
  1. ;;21,"54531-0100-01 ")
  1. ;;5904
  1. ;;21,"54569-0075-00 ")
  1. ;;5743
  1. ;;21,"54569-0075-01 ")
  1. ;;5744
  1. ;;21,"54569-0075-02 ")
  1. ;;5745
  1. ;;21,"54569-0075-03 ")
  1. ;;5746
  1. ;;21,"54569-0075-05 ")
  1. ;;5747
  1. ;;21,"54569-0075-07 ")
  1. ;;5748
  1. ;;21,"54569-0075-09 ")
  1. ;;5749
  1. ;;21,"54569-0109-00 ")
  1. ;;1406
  1. ;;21,"54569-0110-02 ")
  1. ;;1398
  1. ;;21,"54569-0110-04 ")
  1. ;;1399
  1. ;;21,"54569-0118-00 ")
  1. ;;6179
  1. ;;21,"54569-0118-01 ")
  1. ;;6180
  1. ;;21,"54569-0118-02 ")
  1. ;;6181
  1. ;;21,"54569-0118-03 ")
  1. ;;6182
  1. ;;21,"54569-0118-05 ")
  1. ;;6183
  1. ;;21,"54569-0118-06 ")
  1. ;;6184
  1. ;;21,"54569-0118-08 ")
  1. ;;6185
  1. ;;21,"54569-0118-09 ")
  1. ;;6186
  1. ;;21,"54569-0120-00 ")
  1. ;;996
  1. ;;21,"54569-0126-00 ")
  1. ;;3374
  1. ;;21,"54569-0127-00 ")
  1. ;;3438
  1. ;;21,"54569-0127-02 ")
  1. ;;3439
  1. ;;21,"54569-0127-03 ")
  1. ;;3440
  1. ;;21,"54569-0127-05 ")
  1. ;;3441
  1. ;;21,"54569-0128-00 ")
  1. ;;3375
  1. ;;21,"54569-0132-00 ")
  1. ;;3506
  1. ;;21,"54569-0134-00 ")
  1. ;;3491
  1. ;;21,"54569-0135-00 ")
  1. ;;3492
  1. ;;21,"54569-0136-01 ")
  1. ;;1112
  1. ;;21,"54569-0147-01 ")
  1. ;;6314
  1. ;;21,"54569-0147-02 ")
  1. ;;6315
  1. ;;21,"54569-0147-04 ")
  1. ;;6316
  1. ;;21,"54569-0157-02 ")
  1. ;;3253
  1. ;;21,"54569-0179-00 ")
  1. ;;5556
  1. ;;21,"54569-0269-00 ")
  1. ;;5595
  1. ;;21,"54569-0304-02 ")
  1. ;;1664
  1. ;;21,"54569-0304-03 ")
  1. ;;1665
  1. ;;21,"54569-0304-04 ")
  1. ;;1666
  1. ;;21,"54569-0304-05 ")
  1. ;;1667
  1. ;;21,"54569-0304-06 ")
  1. ;;1668
  1. ;;21,"54569-0304-08 ")
  1. ;;1669
  1. ;;21,"54569-0305-00 ")
  1. ;;1967
  1. ;;21,"54569-0305-01 ")
  1. ;;1968
  1. ;;21,"54569-0305-02 ")
  1. ;;1969
  1. ;;21,"54569-0305-03 ")
  1. ;;1970
  1. ;;21,"54569-0305-05 ")
  1. ;;1971
  1. ;;21,"54569-0305-06 ")
  1. ;;1972
  1. ;;21,"54569-0305-07 ")
  1. ;;1973
  1. ;;21,"54569-0305-08 ")
  1. ;;1974
  1. ;;21,"54569-0306-00 ")
  1. ;;2294
  1. ;;21,"54569-0306-01 ")
  1. ;;2295
  1. ;;21,"54569-0384-00 ")
  1. ;;3927
  1. ;;21,"54569-0384-01 ")
  1. ;;3928
  1. ;;21,"54569-0384-04 ")
  1. ;;3929
  1. ;;21,"54569-0384-05 ")
  1. ;;3930
  1. ;;21,"54569-1019-00 ")
  1. ;;923
  1. ;;21,"54569-1023-00 ")
  1. ;;1565
  1. ;;21,"54569-1024-00 ")
  1. ;;1790
  1. ;;21,"54569-1025-00 ")
  1. ;;1791
  1. ;;21,"54569-1026-00 ")
  1. ;;3560
  1. ;;21,"54569-1377-00 ")
  1. ;;6919
  1. ;;21,"54569-1648-03 ")
  1. ;;4231
  1. ;;21,"54569-1648-05 ")
  1. ;;4232
  1. ;;21,"54569-1648-07 ")
  1. ;;4233
  1. ;;21,"54569-1719-00 ")
  1. ;;794
  1. ;;21,"54569-1719-02 ")
  1. ;;795
  1. ;;21,"54569-1723-00 ")
  1. ;;4490
  1. ;;21,"54569-1723-01 ")
  1. ;;4491
  1. ;;21,"54569-1723-02 ")
  1. ;;4492
  1. ;;21,"54569-1723-03 ")
  1. ;;4493
  1. ;;21,"54569-1723-04 ")
  1. ;;4494
  1. ;;21,"54569-1723-05 ")
  1. ;;4495
  1. ;;21,"54569-1723-08 ")
  1. ;;4496
  1. ;;21,"54569-1723-09 ")
  1. ;;4497
  1. ;;21,"54569-1792-03 ")
  1. ;;5382
  1. ;;21,"54569-1802-01 ")
  1. ;;6799
  1. ;;21,"54569-1840-00 ")
  1. ;;6017
  1. ;;21,"54569-1840-01 ")
  1. ;;6018
  1. ;;21,"54569-1840-03 ")
  1. ;;6019
  1. ;;21,"54569-1840-04 ")
  1. ;;6020
  1. ;;21,"54569-1840-07 ")
  1. ;;6021
  1. ;;21,"54569-1889-00 ")
  1. ;;4000
  1. ;;21,"54569-1889-01 ")
  1. ;;4001
  1. ;;21,"54569-1889-04 ")
  1. ;;4002
  1. ;;21,"54569-1959-00 ")
  1. ;;1113
  1. ;;21,"54569-1959-03 ")
  1. ;;1114
  1. ;;21,"54569-1959-04 ")
  1. ;;1115
  1. ;;21,"54569-1959-05 ")
  1. ;;1116
  1. ;;21,"54569-1959-06 ")
  1. ;;1117
  1. ;;21,"54569-1959-08 ")
  1. ;;1118
  1. ;;21,"54569-2000-00 ")
  1. ;;3561
  1. ;;21,"54569-2187-00 ")
  1. ;;3395
  1. ;;21,"54569-2199-00 ")
  1. ;;3201
  1. ;;21,"54569-2199-01 ")
  1. ;;3202
  1. ;;21,"54569-2199-03 ")
  1. ;;3203
  1. ;;21,"54569-2279-03 ")
  1. ;;6625
  1. ;;21,"54569-2279-07 ")
  1. ;;6626
  1. ;;21,"54569-2281-00 ")
  1. ;;3063
  1. ;;21,"54569-2281-01 ")
  1. ;;3064
  1. ;;21,"54569-2281-02 ")
  1. ;;3065
  1. ;;21,"54569-2281-03 ")
  1. ;;3066
  1. ;;21,"54569-2281-04 ")
  1. ;;3067
  1. ;;21,"54569-2433-00 ")
  1. ;;3137
  1. ;;21,"54569-2433-02 ")
  1. ;;3138
  1. ;;21,"54569-2488-00 ")
  1. ;;4713
  1. ;;21,"54569-2488-01 ")
  1. ;;4714
  1. ;;21,"54569-2488-03 ")
  1. ;;4715
  1. ;;21,"54569-2502-00 ")
  1. ;;3320
  1. ;;21,"54569-2502-01 ")
  1. ;;3321
  1. ;;21,"54569-2502-03 ")
  1. ;;3322
  1. ;;21,"54569-2502-05 ")
  1. ;;3323
  1. ;;21,"54569-2502-06 ")
  1. ;;3324
  1. ;;21,"54569-2508-00 ")
  1. ;;3285
  1. ;;21,"54569-2508-01 ")
  1. ;;3286
  1. ;;21,"54569-2508-02 ")
  1. ;;3287
  1. ;;21,"54569-2508-03 ")
  1. ;;3288
  1. ;;21,"54569-2508-04 ")
  1. ;;3289
  1. ;;21,"54569-2702-08 ")
  1. ;;3650
  1. ;;21,"54569-2719-00 ")
  1. ;;7046
  1. ;;21,"54569-2821-00 ")
  1. ;;3396
  1. ;;21,"54569-2928-00 ")
  1. ;;116
  1. ;;21,"54569-2930-00 ")
  1. ;;117
  1. ;;21,"54569-2931-00 ")
  1. ;;406
  1. ;;21,"54569-2933-00 ")
  1. ;;3731
  1. ;;21,"54569-2935-00 ")
  1. ;;3732
  1. ;;21,"54569-2952-01 ")
  1. ;;3362
  1. ;;21,"54569-2953-00 ")
  1. ;;118
  1. ;;21,"54569-2954-00 ")
  1. ;;407
  1. ;;21,"54569-2986-00 ")
  1. ;;5750
  1. ;;21,"54569-2986-04 ")
  1. ;;5751
  1. ;;21,"54569-2986-05 ")
  1. ;;5752
  1. ;;21,"54569-3057-00 ")
  1. ;;3397
  1. ;;21,"54569-3074-01 ")
  1. ;;6187
  1. ;;21,"54569-3074-02 ")
  1. ;;6188
  1. ;;21,"54569-3074-05 ")
  1. ;;6189
  1. ;;21,"54569-3074-06 ")
  1. ;;6190
  1. ;;21,"54569-3074-07 ")
  1. ;;6191
  1. ;;21,"54569-3074-08 ")
  1. ;;6192
  1. ;;21,"54569-3153-00 ")
  1. ;;2141
  1. ;;21,"54569-3153-02 ")
  1. ;;2142
  1. ;;21,"54569-3153-03 ")
  1. ;;2143
  1. ;;21,"54569-3162-00 ")
  1. ;;1541
  1. ;;21,"54569-3315-00 ")
  1. ;;6627
  1. ;;21,"54569-3324-03 ")
  1. ;;1975
  1. ;;21,"54569-3439-00 ")
  1. ;;2976
  1. ;;21,"54569-3439-01 ")
  1. ;;2977
  1. ;;21,"54569-3439-03 ")
  1. ;;2978
  1. ;;21,"54569-3439-04 ")
  1. ;;2979
  1. ;;21,"54569-3456-00 ")
  1. ;;2296
  1. ;;21,"54569-3456-01 ")
  1. ;;2297
  1. ;;21,"54569-3456-02 ")
  1. ;;2298
  1. ;;21,"54569-3456-03 ")
  1. ;;2299
  1. ;;21,"54569-3456-04 ")
  1. ;;2300
  1. ;;21,"54569-3456-06 ")
  1. ;;2301
  1. ;;21,"54569-3477-00 ")
  1. ;;6800
  1. ;;21,"54569-3479-00 ")
  1. ;;6920
  1. ;;21,"54569-3503-01 ")
  1. ;;3816
  1. ;;21,"54569-3531-02 ")
  1. ;;3442
  1. ;;21,"54569-3556-01 ")
  1. ;;2900
  1. ;;21,"54569-3563-00 ")
  1. ;;3097
  1. ;;21,"54569-3563-01 ")
  1. ;;3098
  1. ;;21,"54569-3563-02 ")
  1. ;;3099
  1. ;;21,"54569-3563-03 ")
  1. ;;3100
  1. ;;21,"54569-3563-04 ")
  1. ;;3101
  1. ;;21,"54569-3563-05 ")
  1. ;;3102
  1. ;;21,"54569-3689-00 ")
  1. ;;333
  1. ;;21,"54569-3689-01 ")
  1. ;;334
  1. ;;21,"54569-3689-02 ")
  1. ;;335
  1. ;;21,"54569-3689-03 ")
  1. ;;336
  1. ;;21,"54569-3689-04 ")
  1. ;;337
  1. ;;21,"54569-3689-05 ")
  1. ;;338
  1. ;;21,"54569-3689-06 ")
  1. ;;339
  1. ;;21,"54569-3876-00 ")
  1. ;;230
  1. ;;21,"54569-3896-00 ")
  1. ;;2874
  1. ;;21,"54569-3897-00 ")
  1. ;;2925
  1. ;;21,"54569-3986-01 ")
  1. ;;231
  1. ;;21,"54569-4003-00 ")
  1. ;;5557
  1. ;;21,"54569-4003-01 ")
  1. ;;5558
  1. ;;21,"54569-4003-02 ")
  1. ;;5559
  1. ;;21,"54569-4005-00 ")
  1. ;;5560
  1. ;;21,"54569-4005-01 ")
  1. ;;5561
  1. ;;21,"54569-4230-00 ")
  1. ;;2599
  1. ;;21,"54569-4231-00 ")
  1. ;;2600
  1. ;;21,"54569-4232-00 ")
  1. ;;2562
  1. ;;21,"54569-4270-00 ")
  1. ;;2875
  1. ;;21,"54569-4271-00 ")
  1. ;;2926
  1. ;;21,"54569-4294-00 ")
  1. ;;1317
  1. ;;21,"54569-4311-00 ")
  1. ;;5190
  1. ;;21,"54569-4391-00 ")
  1. ;;1463
  1. ;;21,"54569-4391-01 ")
  1. ;;1464
  1. ;;21,"54569-4391-02 ")
  1. ;;1465
  1. ;;21,"54569-4391-03 ")
  1. ;;1466
  1. ;;21,"54569-4391-04 ")
  1. ;;1467
  1. ;;21,"54569-4417-00 ")
  1. ;;2601
  1. ;;21,"54569-4489-00 ")
  1. ;;4907
  1. ;;21,"54569-4489-01 ")
  1. ;;4908
  1. ;;21,"54569-4489-02 ")
  1. ;;4909
  1. ;;21,"54569-4489-03 ")
  1. ;;4910
  1. ;;21,"54569-4489-04 ")
  1. ;;4911
  1. ;;21,"54569-4497-00 ")
  1. ;;2683
  1. ;;21,"54569-4522-00 ")
  1. ;;2684
  1. ;;21,"54569-4522-01 ")
  1. ;;2685
  1. ;;21,"54569-4522-02 ")
  1. ;;2686
  1. ;;21,"54569-4551-01 ")
  1. ;;7105
  1. ;;21,"54569-4567-00 ")
  1. ;;2548
  1. ;;21,"54569-4647-00 ")
  1. ;;6520
  1. ;;21,"54569-4689-00 ")
  1. ;;6443
  1. ;;21,"54569-4712-00 ")
  1. ;;6521
  1. ;;21,"54569-4713-00 ")
  1. ;;6444