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

BGP62Z13.m

Go to the documentation of this file.
BGP62Z13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"60429-0988-30 ")
 ;;623
 ;;21,"60432-0162-04 ")
 ;;2680
 ;;21,"60432-0651-04 ")
 ;;4731
 ;;21,"60505-0083-00 ")
 ;;3065
 ;;21,"60505-0083-01 ")
 ;;3066
 ;;21,"60505-0083-02 ")
 ;;3067
 ;;21,"60505-0083-04 ")
 ;;3068
 ;;21,"60505-0084-01 ")
 ;;3173
 ;;21,"60505-0084-02 ")
 ;;3174
 ;;21,"60505-0084-04 ")
 ;;3175
 ;;21,"60505-0097-01 ")
 ;;2887
 ;;21,"60505-0097-02 ")
 ;;2888
 ;;21,"60505-0097-04 ")
 ;;2889
 ;;21,"60505-0101-01 ")
 ;;3261
 ;;21,"60505-0101-02 ")
 ;;3262
 ;;21,"60505-0101-04 ")
 ;;3263
 ;;21,"60505-0101-07 ")
 ;;3264
 ;;21,"60505-0157-01 ")
 ;;68
 ;;21,"60505-0157-05 ")
 ;;69
 ;;21,"60505-0157-09 ")
 ;;70
 ;;21,"60505-0158-01 ")
 ;;439
 ;;21,"60505-0158-05 ")
 ;;440
 ;;21,"60505-0158-09 ")
 ;;441
 ;;21,"60505-0164-01 ")
 ;;2795
 ;;21,"60505-0165-01 ")
 ;;2811
 ;;21,"60505-0166-01 ")
 ;;2776
 ;;21,"60505-0247-01 ")
 ;;3791
 ;;21,"60505-0247-08 ")
 ;;3792
 ;;21,"60505-0248-01 ")
 ;;3885
 ;;21,"60505-0248-08 ")
 ;;3886
 ;;21,"60505-0249-01 ")
 ;;3959
 ;;21,"60505-0249-08 ")
 ;;3960
 ;;21,"60505-0374-01 ")
 ;;2912
 ;;21,"60505-0402-05 ")
 ;;2913
 ;;21,"60505-2518-01 ")
 ;;1745
 ;;21,"60505-2518-03 ")
 ;;1746
 ;;21,"60505-2518-04 ")
 ;;1747
 ;;21,"60505-2518-08 ")
 ;;1748
 ;;21,"60505-2519-01 ")
 ;;1913
 ;;21,"60505-2519-03 ")
 ;;1914
 ;;21,"60505-2519-04 ")
 ;;1915
 ;;21,"60505-2519-08 ")
 ;;1916
 ;;21,"60505-2520-01 ")
 ;;2071
 ;;21,"60505-2520-03 ")
 ;;2072
 ;;21,"60505-2520-04 ")
 ;;2073
 ;;21,"60505-2520-08 ")
 ;;2074
 ;;21,"60505-2653-00 ")
 ;;878
 ;;21,"60505-2653-01 ")
 ;;879
 ;;21,"60505-2653-05 ")
 ;;880
 ;;21,"60505-2653-07 ")
 ;;881
 ;;21,"60505-2654-00 ")
 ;;624
 ;;21,"60505-2654-01 ")
 ;;625
 ;;21,"60505-2654-05 ")
 ;;626
 ;;21,"60505-2654-07 ")
 ;;627
 ;;21,"60505-2655-01 ")
 ;;719
 ;;21,"60505-2655-05 ")
 ;;720
 ;;21,"60505-2655-07 ")
 ;;721
 ;;21,"60505-2659-01 ")
 ;;759
 ;;21,"60505-2780-01 ")
 ;;2272
 ;;21,"60505-2780-08 ")
 ;;2273
 ;;21,"60505-2781-01 ")
 ;;2167
 ;;21,"60505-2781-08 ")
 ;;2168
 ;;21,"60505-2782-01 ")
 ;;2236
 ;;21,"60505-2782-08 ")
 ;;2237
 ;;21,"60505-2995-06 ")
 ;;1014
 ;;21,"60505-2996-03 ")
 ;;1066
 ;;21,"60505-2997-03 ")
 ;;1134
 ;;21,"60505-3663-03 ")
 ;;2890
 ;;21,"60505-3664-03 ")
 ;;3069
 ;;21,"60505-3665-03 ")
 ;;3176
 ;;21,"60505-3666-03 ")
 ;;3265
 ;;21,"60505-3668-03 ")
 ;;2935
 ;;21,"60505-3669-03 ")
 ;;3120
 ;;21,"60505-3670-03 ")
 ;;3199
 ;;21,"60505-3673-03 ")
 ;;2936
 ;;21,"60505-3674-03 ")
 ;;3121
 ;;21,"60505-3675-03 ")
 ;;3200
 ;;21,"60505-3778-03 ")
 ;;1352
 ;;21,"60505-3778-09 ")
 ;;1353
 ;;21,"60505-3779-03 ")
 ;;1543
 ;;21,"60505-3779-09 ")
 ;;1544
 ;;21,"60505-3780-03 ")
 ;;1234
 ;;21,"60505-3780-09 ")
 ;;1235
 ;;21,"60505-4089-03 ")
 ;;722
 ;;21,"60687-0146-01 ")
 ;;303
 ;;21,"60687-0146-11 ")
 ;;304
 ;;21,"60760-0009-30 ")
 ;;1749
 ;;21,"60760-0212-15 ")
 ;;4081
 ;;21,"60760-0212-30 ")
 ;;4082
 ;;21,"60760-0214-10 ")
 ;;4452
 ;;21,"60760-0214-20 ")
 ;;4453
 ;;21,"60760-0214-30 ")
 ;;4454
 ;;21,"60760-0214-60 ")
 ;;4455
 ;;21,"60760-0214-90 ")
 ;;4456
 ;;21,"60760-0221-30 ")
 ;;4526
 ;;21,"60760-0434-30 ")
 ;;628
 ;;21,"60760-0434-60 ")
 ;;629
 ;;21,"60760-0440-30 ")
 ;;882
 ;;21,"60760-0440-60 ")
 ;;883
 ;;21,"60760-0647-30 ")
 ;;2592
 ;;21,"60760-0811-60 ")
 ;;5184
 ;;21,"61392-0025-45 ")
 ;;4924
 ;;21,"61392-0025-54 ")
 ;;4925
 ;;21,"61392-0025-56 ")
 ;;4926
 ;;21,"61392-0025-91 ")
 ;;4927
 ;;21,"61392-0026-45 ")
 ;;4966
 ;;21,"61392-0026-54 ")
 ;;4967
 ;;21,"61392-0026-56 ")
 ;;4968
 ;;21,"61392-0026-91 ")
 ;;4969
 ;;21,"61392-0027-45 ")
 ;;5007
 ;;21,"61392-0027-54 ")
 ;;5008
 ;;21,"61392-0027-56 ")
 ;;5009
 ;;21,"61392-0027-91 ")
 ;;5010
 ;;21,"61392-0140-34 ")
 ;;4332
 ;;21,"61392-0140-45 ")
 ;;4333
 ;;21,"61392-0140-56 ")
 ;;4334
 ;;21,"61392-0140-91 ")
 ;;4335
 ;;21,"61392-0141-45 ")
 ;;4457
 ;;21,"61392-0141-56 ")
 ;;4458
 ;;21,"61392-0141-91 ")
 ;;4459
 ;;21,"61392-0143-34 ")
 ;;4083
 ;;21,"61392-0143-45 ")
 ;;4084
 ;;21,"61392-0143-56 ")
 ;;4085
 ;;21,"61392-0143-91 ")
 ;;4086
 ;;21,"61392-0153-31 ")
 ;;4165
 ;;21,"61392-0153-32 ")
 ;;4166
 ;;21,"61392-0153-39 ")
 ;;4167
 ;;21,"61392-0153-45 ")
 ;;4168
 ;;21,"61392-0153-54 ")
 ;;4169
 ;;21,"61392-0153-56 ")
 ;;4170
 ;;21,"61392-0153-91 ")
 ;;4171
 ;;21,"61392-0234-30 ")
 ;;2372
 ;;21,"61392-0234-51 ")
 ;;2373
 ;;21,"61392-0234-54 ")
 ;;2374
 ;;21,"61392-0234-56 ")
 ;;2375
 ;;21,"61392-0234-60 ")
 ;;2376
 ;;21,"61392-0234-90 ")
 ;;2377
 ;;21,"61392-0234-91 ")
 ;;2378
 ;;21,"61392-0235-15 ")
 ;;2593
 ;;21,"61392-0235-30 ")
 ;;2594
 ;;21,"61392-0235-45 ")
 ;;2595
 ;;21,"61392-0235-51 ")
 ;;2596
 ;;21,"61392-0235-54 ")
 ;;2597
 ;;21,"61392-0235-56 ")
 ;;2598
 ;;21,"61392-0235-60 ")
 ;;2599
 ;;21,"61392-0235-90 ")
 ;;2600
 ;;21,"61392-0235-91 ")
 ;;2601
 ;;21,"61392-0361-45 ")
 ;;5100
 ;;21,"61392-0361-56 ")
 ;;5101
 ;;21,"61392-0361-91 ")
 ;;5102
 ;;21,"61392-0364-45 ")
 ;;5185
 ;;21,"61392-0364-56 ")
 ;;5186
 ;;21,"61392-0364-91 ")
 ;;5187
 ;;21,"61392-0367-45 ")
 ;;5247
 ;;21,"61392-0367-56 ")
 ;;5248
 ;;21,"61392-0367-91 ")
 ;;5249
 ;;21,"61392-0370-45 ")
 ;;5274
 ;;21,"61392-0370-54 ")
 ;;5275
 ;;21,"61392-0370-56 ")
 ;;5276
 ;;21,"61392-0370-91 ")
 ;;5277
 ;;21,"61392-0487-45 ")
 ;;884
 ;;21,"61392-0487-56 ")
 ;;885
 ;;21,"61392-0487-91 ")
 ;;886
 ;;21,"61392-0490-15 ")
 ;;630
 ;;21,"61392-0490-45 ")
 ;;631
 ;;21,"61392-0490-56 ")
 ;;632
 ;;21,"61392-0490-91 ")
 ;;633
 ;;21,"61392-0491-30 ")
 ;;723
 ;;21,"61392-0491-31 ")
 ;;724
 ;;21,"61392-0491-32 ")
 ;;725
 ;;21,"61392-0491-39 ")
 ;;726
 ;;21,"61392-0491-45 ")
 ;;727
 ;;21,"61392-0491-51 ")
 ;;728
 ;;21,"61392-0491-54 ")
 ;;729
 ;;21,"61392-0491-60 ")
 ;;730
 ;;21,"61392-0491-90 ")
 ;;731
 ;;21,"61392-0491-91 ")
 ;;732
 ;;21,"61392-0726-32 ")
 ;;4721
 ;;21,"61392-0726-45 ")
 ;;4722
 ;;21,"61392-0726-51 ")
 ;;4723
 ;;21,"61392-0726-54 ")
 ;;4724
 ;;21,"61392-0726-91 ")
 ;;4725
 ;;21,"61392-0727-31 ")
 ;;4794
 ;;21,"61392-0727-32 ")
 ;;4795
 ;;21,"61392-0727-45 ")
 ;;4796
 ;;21,"61392-0727-51 ")
 ;;4797
 ;;21,"61392-0727-54 ")
 ;;4798
 ;;21,"61392-0727-90 ")
 ;;4799
 ;;21,"61392-0727-91 ")
 ;;4800
 ;;21,"61392-0728-45 ")
 ;;4860
 ;;21,"61392-0728-51 ")
 ;;4861
 ;;21,"61392-0728-54 ")
 ;;4862
 ;;21,"61392-0728-91 ")
 ;;4863
 ;;21,"61392-0729-30 ")
 ;;4897
 ;;21,"61392-0729-32 ")
 ;;4898
 ;;21,"61392-0729-45 ")
 ;;4899
 ;;21,"61392-0729-51 ")
 ;;4900
 ;;21,"61392-0729-54 ")
 ;;4901
 ;;21,"61392-0729-60 ")
 ;;4902
 ;;21,"61392-0729-91 ")
 ;;4903
 ;;21,"61392-0730-30 ")
 ;;4743
 ;;21,"61392-0730-31 ")
 ;;4744
 ;;21,"61392-0730-32 ")
 ;;4745
 ;;21,"61392-0730-39 ")
 ;;4746
 ;;21,"61392-0730-45 ")
 ;;4747
 ;;21,"61392-0730-51 ")
 ;;4748
 ;;21,"61392-0730-60 ")
 ;;4749
 ;;21,"61392-0730-90 ")
 ;;4750
 ;;21,"61392-0730-91 ")
 ;;4751
 ;;21,"62037-0539-05 ")
 ;;2602
 ;;21,"62037-0539-10 ")
 ;;2603
 ;;21,"62037-0753-10 ")
 ;;3793
 ;;21,"62037-0753-30 ")
 ;;3794
 ;;21,"62037-0754-10 ")
 ;;3887
 ;;21,"62037-0754-30 ")
 ;;3888
 ;;21,"62037-0755-10 ")
 ;;3961
 ;;21,"62037-0755-30 ")
 ;;3962
 ;;21,"62037-0845-30 ")
 ;;2891
 ;;21,"62037-0846-01 ")
 ;;3070
 ;;21,"62037-0846-10 ")
 ;;3071
 ;;21,"62037-0846-30 ")
 ;;3072
 ;;21,"62559-0158-01 ")
 ;;2796
 ;;21,"62559-0159-01 ")
 ;;2812
 ;;21,"62559-0160-01 ")
 ;;2777
 ;;21,"62584-0556-01 ")
 ;;3795
 ;;21,"62584-0556-11 ")
 ;;3796
 ;;21,"62584-0556-85 ")
 ;;3797
 ;;21,"62584-0557-01 ")
 ;;3889
 ;;21,"62584-0557-11 ")
 ;;3890
 ;;21,"62584-0686-01 ")
 ;;4726
 ;;21,"62584-0686-11 ")
 ;;4727
 ;;21,"62584-0687-01 ")
 ;;4801
 ;;21,"62584-0687-11 ")
 ;;4802
 ;;21,"62584-0688-01 ")
 ;;4864
 ;;21,"62584-0688-11 ")
 ;;4865
 ;;21,"62584-0750-01 ")
 ;;4970
 ;;21,"62584-0750-11 ")
 ;;4971
 ;;21,"63304-0164-30 ")
 ;;3539
 ;;21,"63304-0165-01 ")
 ;;3687
 ;;21,"63304-0165-05 ")
 ;;3688
 ;;21,"63304-0165-30 ")
 ;;3689
 ;;21,"63304-0166-01 ")
 ;;3420
 ;;21,"63304-0166-05 ")
 ;;3421
 ;;21,"63304-0166-30 ")
 ;;3422
 ;;21,"63304-0191-30 ")
 ;;989
 ;;21,"63304-0191-90 ")
 ;;990
 ;;21,"63304-0192-30 ")
 ;;972
 ;;21,"63304-0192-90 ")
 ;;973
 ;;21,"63304-0202-01 ")
 ;;5114
 ;;21,"63304-0632-01 ")
 ;;2734
 ;;21,"63304-0632-30 ")
 ;;2735
 ;;21,"63304-0632-90 ")
 ;;2736
 ;;21,"63304-0686-30 ")
 ;;2379
 ;;21,"63304-0686-90 ")
 ;;2380
 ;;21,"63304-0687-30 ")
 ;;2604
 ;;21,"63304-0687-90 ")
 ;;2605
 ;;21,"63304-0840-05 ")
 ;;3464
 ;;21,"63629-1318-01 ")
 ;;1917
 ;;21,"63629-1318-02 ")
 ;;1918
 ;;21,"63629-1318-03 ")
 ;;1919
 ;;21,"63629-1318-04 ")
 ;;1920
 ;;21,"63629-1318-05 ")
 ;;1921
 ;;21,"63629-1368-01 ")
 ;;4460
 ;;21,"63629-1368-02 ")
 ;;4461
 ;;21,"63629-1368-03 ")
 ;;4462
 ;;21,"63629-1368-04 ")
 ;;4463
 ;;21,"63629-1368-05 ")
 ;;4464
 ;;21,"63629-1368-06 ")
 ;;4465
 ;;21,"63629-1368-07 ")
 ;;4466
 ;;21,"63629-1369-01 ")
 ;;4336
 ;;21,"63629-1369-02 ")
 ;;4337
 ;;21,"63629-1369-03 ")
 ;;4338
 ;;21,"63629-1369-04 ")
 ;;4339
 ;;21,"63629-1369-05 ")
 ;;4340
 ;;21,"63629-1369-06 ")
 ;;4341
 ;;21,"63629-1369-07 ")
 ;;4342
 ;;21,"63629-1369-08 ")
 ;;4343
 ;;21,"63629-1369-09 ")
 ;;4344
 ;;21,"63629-1510-01 ")
 ;;5011
 ;;21,"63629-1510-02 ")
 ;;5012
 ;;21,"63629-1510-03 ")
 ;;5013
 ;;21,"63629-1510-04 ")
 ;;5014
 ;;21,"63629-1513-01 ")
 ;;887
 ;;21,"63629-1513-02 ")
 ;;888
 ;;21,"63629-1513-03 ")
 ;;889
 ;;21,"63629-1513-04 ")
 ;;890
 ;;21,"63629-1513-05 ")
 ;;891
 ;;21,"63629-1513-06 ")
 ;;892
 ;;21,"63629-1513-07 ")
 ;;893
 ;;21,"63629-1609-01 ")
 ;;2381
 ;;21,"63629-1609-02 ")
 ;;2382
 ;;21,"63629-1609-03 ")
 ;;2383
 ;;21,"63629-1609-04 ")
 ;;2384
 ;;21,"63629-1610-01 ")
 ;;2606
 ;;21,"63629-1610-02 ")
 ;;2607
 ;;21,"63629-1610-03 ")
 ;;2608
 ;;21,"63629-1610-04 ")
 ;;2609
 ;;21,"63629-1610-05 ")
 ;;2610
 ;;21,"63629-1610-06 ")
 ;;2611
 ;;21,"63629-1610-07 ")
 ;;2612
 ;;21,"63629-1840-01 ")
 ;;3073
 ;;21,"63629-1840-02 ")
 ;;3074
 ;;21,"63629-1840-03 ")
 ;;3075
 ;;21,"63629-1840-04 ")
 ;;3076
 ;;21,"63629-2642-01 ")
 ;;71
 ;;21,"63629-2833-02 ")
 ;;5188
 ;;21,"63629-2833-04 ")
 ;;5189
 ;;21,"63629-2833-05 ")
 ;;5190
 ;;21,"63629-2833-06 ")
 ;;5191
 ;;21,"63629-2833-07 ")
 ;;5192
 ;;21,"63629-2867-01 ")
 ;;733
 ;;21,"63629-2867-02 ")
 ;;734
 ;;21,"63629-2867-03 ")
 ;;735
 ;;21,"63629-2981-01 ")
 ;;2238
 ;;21,"63629-3199-01 ")
 ;;4866
 ;;21,"63629-3199-02 ")
 ;;4867
 ;;21,"63629-3204-01 ")
 ;;5103
 ;;21,"63629-3205-01 ")
 ;;2892
 ;;21,"63629-3210-01 ")
 ;;634
 ;;21,"63629-3210-02 ")
 ;;635
 ;;21,"63629-3210-03 ")
 ;;636
 ;;21,"63629-3210-04 ")
 ;;637
 ;;21,"63629-3210-05 ")
 ;;638
 ;;21,"63629-3221-01 ")
 ;;4728
 ;;21,"63629-3289-01 ")
 ;;3423
 ;;21,"63629-3289-02 ")
 ;;3424
 ;;21,"63629-3289-03 ")
 ;;3425
 ;;21,"63629-3289-04 ")
 ;;3426
 ;;21,"63629-3289-05 ")
 ;;3427
 ;;21,"63629-3309-01 ")
 ;;3690
 ;;21,"63629-3309-02 ")
 ;;3691
 ;;21,"63629-3309-03 ")
 ;;3692
 ;;21,"63629-3309-04 ")
 ;;3693
 ;;21,"63629-3309-05 ")
 ;;3694
 ;;21,"63629-3309-06 ")
 ;;3695