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

BGP47Y14.m

Go to the documentation of this file.
BGP47Y14 ;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,"68180-0515-09 ")
 ;;2112
 ;;21,"68180-0516-01 ")
 ;;2309
 ;;21,"68180-0516-02 ")
 ;;2310
 ;;21,"68180-0516-09 ")
 ;;2311
 ;;21,"68180-0517-01 ")
 ;;2409
 ;;21,"68180-0517-03 ")
 ;;2410
 ;;21,"68180-0517-09 ")
 ;;2411
 ;;21,"68180-0518-01 ")
 ;;4230
 ;;21,"68180-0518-02 ")
 ;;4231
 ;;21,"68180-0519-01 ")
 ;;4345
 ;;21,"68180-0519-02 ")
 ;;4346
 ;;21,"68180-0520-01 ")
 ;;4417
 ;;21,"68180-0520-02 ")
 ;;4418
 ;;21,"68180-0556-09 ")
 ;;2599
 ;;21,"68180-0557-09 ")
 ;;2636
 ;;21,"68180-0558-09 ")
 ;;2674
 ;;21,"68180-0559-09 ")
 ;;2709
 ;;21,"68180-0566-01 ")
 ;;2966
 ;;21,"68180-0567-01 ")
 ;;2988
 ;;21,"68180-0568-01 ")
 ;;3009
 ;;21,"68180-0588-01 ")
 ;;2728
 ;;21,"68180-0589-01 ")
 ;;2785
 ;;21,"68180-0589-02 ")
 ;;2786
 ;;21,"68180-0589-09 ")
 ;;2787
 ;;21,"68180-0590-01 ")
 ;;2850
 ;;21,"68180-0590-02 ")
 ;;2851
 ;;21,"68180-0590-09 ")
 ;;2852
 ;;21,"68180-0591-01 ")
 ;;2931
 ;;21,"68180-0591-02 ")
 ;;2932
 ;;21,"68180-0591-09 ")
 ;;2895
 ;;21,"68180-0755-01 ")
 ;;3734
 ;;21,"68180-0756-01 ")
 ;;3769
 ;;21,"68180-0756-02 ")
 ;;3770
 ;;21,"68180-0757-01 ")
 ;;3827
 ;;21,"68180-0757-02 ")
 ;;3828
 ;;21,"68180-0758-01 ")
 ;;3891
 ;;21,"68180-0758-02 ")
 ;;3892
 ;;21,"68180-0759-01 ")
 ;;3878
 ;;21,"68180-0760-01 ")
 ;;3955
 ;;21,"68258-1053-01 ")
 ;;113
 ;;21,"68258-1054-01 ")
 ;;204
 ;;21,"68258-1055-01 ")
 ;;267
 ;;21,"68258-1058-01 ")
 ;;1849
 ;;21,"68258-1059-01 ")
 ;;2193
 ;;21,"68258-1080-01 ")
 ;;2459
 ;;21,"68258-4001-03 ")
 ;;3546
 ;;21,"68258-6003-03 ")
 ;;1548
 ;;21,"68258-6003-09 ")
 ;;1549
 ;;21,"68258-6021-03 ")
 ;;2795
 ;;21,"68258-6022-03 ")
 ;;2857
 ;;21,"68258-6022-09 ")
 ;;2858
 ;;21,"68258-6023-03 ")
 ;;2948
 ;;21,"68258-6023-09 ")
 ;;2949
 ;;21,"68258-6025-03 ")
 ;;3933
 ;;21,"68258-6025-06 ")
 ;;3934
 ;;21,"68258-6025-09 ")
 ;;3935
 ;;21,"68258-6027-03 ")
 ;;2651
 ;;21,"68258-6027-09 ")
 ;;2652
 ;;21,"68258-6028-03 ")
 ;;2690
 ;;21,"68258-6028-09 ")
 ;;2698
 ;;21,"68258-6030-03 ")
 ;;3536
 ;;21,"68258-6030-09 ")
 ;;3537
 ;;21,"68258-6031-03 ")
 ;;4872
 ;;21,"68258-6031-09 ")
 ;;4873
 ;;21,"68258-6036-03 ")
 ;;1459
 ;;21,"68258-6036-09 ")
 ;;1460
 ;;21,"68258-6040-03 ")
 ;;4941
 ;;21,"68258-6040-09 ")
 ;;4942
 ;;21,"68258-6048-03 ")
 ;;4792
 ;;21,"68258-6048-09 ")
 ;;4793
 ;;21,"68258-6053-03 ")
 ;;5100
 ;;21,"68258-6056-03 ")
 ;;4998
 ;;21,"68258-6058-03 ")
 ;;4642
 ;;21,"68258-6059-03 ")
 ;;4086
 ;;21,"68258-6060-03 ")
 ;;3871
 ;;21,"68258-6066-03 ")
 ;;3123
 ;;21,"68258-6066-06 ")
 ;;3124
 ;;21,"68258-6069-03 ")
 ;;3761
 ;;21,"68258-6069-06 ")
 ;;3762
 ;;21,"68258-6069-09 ")
 ;;3763
 ;;21,"68258-6070-03 ")
 ;;3813
 ;;21,"68258-6070-06 ")
 ;;3814
 ;;21,"68258-6070-09 ")
 ;;3815
 ;;21,"68258-6071-03 ")
 ;;3695
 ;;21,"68258-6075-03 ")
 ;;692
 ;;21,"68258-6078-03 ")
 ;;5042
 ;;21,"68258-6094-03 ")
 ;;5040
 ;;21,"68258-6094-09 ")
 ;;5041
 ;;21,"68258-6095-03 ")
 ;;5097
 ;;21,"68258-6095-09 ")
 ;;5098
 ;;21,"68258-6096-03 ")
 ;;5128
 ;;21,"68258-6096-09 ")
 ;;5129
 ;;21,"68258-6097-03 ")
 ;;5157
 ;;21,"68258-6097-09 ")
 ;;5158
 ;;21,"68258-6098-03 ")
 ;;5186
 ;;21,"68258-6098-09 ")
 ;;5187
 ;;21,"68258-6100-03 ")
 ;;3015
 ;;21,"68258-6106-03 ")
 ;;1340
 ;;21,"68258-6965-09 ")
 ;;5039
 ;;21,"68258-6966-09 ")
 ;;5099
 ;;21,"68258-6967-09 ")
 ;;5127
 ;;21,"68258-6968-09 ")
 ;;5159
 ;;21,"68258-6969-09 ")
 ;;5185
 ;;21,"68258-6973-03 ")
 ;;5101
 ;;21,"68258-6978-03 ")
 ;;4598
 ;;21,"68258-6979-03 ")
 ;;4964
 ;;21,"68258-6986-03 ")
 ;;3622
 ;;21,"68258-6989-03 ")
 ;;4948
 ;;21,"68258-6990-03 ")
 ;;4981
 ;;21,"68258-6994-09 ")
 ;;3694
 ;;21,"68258-6995-03 ")
 ;;3583
 ;;21,"68258-9062-01 ")
 ;;2
 ;;21,"68382-0135-01 ")
 ;;3320
 ;;21,"68382-0135-06 ")
 ;;3273
 ;;21,"68382-0135-10 ")
 ;;3274
 ;;21,"68382-0135-16 ")
 ;;3275
 ;;21,"68382-0136-01 ")
 ;;3358
 ;;21,"68382-0136-06 ")
 ;;3359
 ;;21,"68382-0136-10 ")
 ;;3360
 ;;21,"68382-0136-16 ")
 ;;3361
 ;;21,"68382-0137-01 ")
 ;;3462
 ;;21,"68382-0137-06 ")
 ;;3463
 ;;21,"68382-0137-10 ")
 ;;3464
 ;;21,"68382-0137-16 ")
 ;;3465
 ;;21,"68382-0142-06 ")
 ;;4778
 ;;21,"68382-0142-10 ")
 ;;4779
 ;;21,"68382-0142-16 ")
 ;;4780
 ;;21,"68382-0143-06 ")
 ;;4921
 ;;21,"68382-0143-10 ")
 ;;4922
 ;;21,"68382-0143-16 ")
 ;;4923
 ;;21,"68382-0144-01 ")
 ;;2723
 ;;21,"68382-0144-05 ")
 ;;2724
 ;;21,"68382-0144-06 ")
 ;;2725
 ;;21,"68382-0145-01 ")
 ;;2757
 ;;21,"68382-0145-05 ")
 ;;2758
 ;;21,"68382-0145-06 ")
 ;;2759
 ;;21,"68382-0146-01 ")
 ;;2817
 ;;21,"68382-0146-05 ")
 ;;2818
 ;;21,"68382-0146-06 ")
 ;;2819
 ;;21,"68382-0147-01 ")
 ;;2896
 ;;21,"68382-0147-05 ")
 ;;2897
 ;;21,"68382-0147-06 ")
 ;;2898
 ;;21,"68387-0543-30 ")
 ;;1869
 ;;21,"68462-0205-01 ")
 ;;4529
 ;;21,"68462-0206-01 ")
 ;;4522
 ;;21,"68462-0207-01 ")
 ;;4516
 ;;21,"68462-0208-01 ")
 ;;2553
 ;;21,"68462-0209-01 ")
 ;;2544
 ;;21,"68462-0294-01 ")
 ;;3979
 ;;21,"68462-0295-01 ")
 ;;3984
 ;;21,"68462-0296-01 ")
 ;;3993
 ;;21,"68462-0329-01 ")
 ;;4000
 ;;21,"68462-0367-10 ")
 ;;1249
 ;;21,"68462-0367-90 ")
 ;;1250
 ;;21,"68462-0368-10 ")
 ;;1348
 ;;21,"68462-0368-90 ")
 ;;1349
 ;;21,"68462-0369-10 ")
 ;;1395
 ;;21,"68462-0369-90 ")
 ;;1396
 ;;21,"68462-0554-01 ")
 ;;4181
 ;;21,"68462-0555-01 ")
 ;;4197
 ;;21,"68552-0221-10 ")
 ;;1247
 ;;21,"68552-0221-90 ")
 ;;1248
 ;;21,"68552-0222-10 ")
 ;;1350
 ;;21,"68552-0222-90 ")
 ;;1351
 ;;21,"68552-0223-10 ")
 ;;1393
 ;;21,"68552-0223-90 ")
 ;;1394
 ;;21,"68645-0160-59 ")
 ;;356
 ;;21,"68645-0161-59 ")
 ;;439
 ;;21,"68645-0162-59 ")
 ;;631
 ;;21,"68645-0163-59 ")
 ;;677
 ;;21,"68645-0272-54 ")
 ;;2055
 ;;21,"68645-0404-70 ")
 ;;3182
 ;;21,"68645-0405-70 ")
 ;;4679
 ;;21,"68645-0406-70 ")
 ;;3305
 ;;21,"68645-0407-70 ")
 ;;3306
 ;;21,"68645-0408-70 ")
 ;;3405
 ;;21,"68645-0409-70 ")
 ;;3406
 ;;21,"68645-0410-70 ")
 ;;3511
 ;;21,"68645-0411-70 ")
 ;;3512
 ;;21,"68645-0454-90 ")
 ;;685
 ;;21,"68645-0455-90 ")
 ;;779
 ;;21,"68645-0456-90 ")
 ;;938
 ;;21,"68645-0457-90 ")
 ;;1102
 ;;21,"68645-0469-54 ")
 ;;2038
 ;;21,"76234-0001-01 ")
 ;;2568
 ;;21,"76234-0002-01 ")
 ;;2574
 ;;21,"76282-0200-10 ")
 ;;1279
 ;;21,"76282-0200-90 ")
 ;;1280
 ;;21,"76282-0201-10 ")
 ;;1328
 ;;21,"76282-0201-90 ")
 ;;1329
 ;;21,"76282-0202-10 ")
 ;;1423
 ;;21,"76282-0202-90 ")
 ;;1424
 ;;21,"76282-0271-01 ")
 ;;2733
 ;;21,"76282-0272-01 ")
 ;;2769
 ;;21,"76282-0272-05 ")
 ;;2770
 ;;21,"76282-0273-01 ")
 ;;2839
 ;;21,"76282-0273-05 ")
 ;;2840
 ;;21,"76282-0274-01 ")
 ;;2910
 ;;21,"76282-0274-05 ")
 ;;2911
 ;;9002226,1729,.01)
 ;;BGP PQA RASA NDC
 ;;9002226,1729,.02)
 ;;RASA NDC
 ;;9002226,1729,.04)
 ;;n
 ;;9002226,1729,.06)
 ;;@
 ;;9002226,1729,.08)
 ;;@
 ;;9002226,1729,.09)
 ;;3140317
 ;;9002226,1729,.11)
 ;;@
 ;;9002226,1729,.12)
 ;;@
 ;;9002226,1729,.13)
 ;;1
 ;;9002226,1729,.14)
 ;;@
 ;;9002226,1729,.15)
 ;;@
 ;;9002226,1729,.16)
 ;;@
 ;;9002226,1729,.17)
 ;;@
 ;;9002226,1729,3101)
 ;;@
 ;;9002226.02101,"1729,00003-0338-50 ",.01)
 ;;00003-0338-50
 ;;9002226.02101,"1729,00003-0338-50 ",.02)
 ;;00003-0338-50
 ;;9002226.02101,"1729,00003-0349-50 ",.01)
 ;;00003-0349-50
 ;;9002226.02101,"1729,00003-0349-50 ",.02)
 ;;00003-0349-50
 ;;9002226.02101,"1729,00003-0384-50 ",.01)
 ;;00003-0384-50
 ;;9002226.02101,"1729,00003-0384-50 ",.02)
 ;;00003-0384-50
 ;;9002226.02101,"1729,00003-0390-50 ",.01)
 ;;00003-0390-50
 ;;9002226.02101,"1729,00003-0390-50 ",.02)
 ;;00003-0390-50
 ;;9002226.02101,"1729,00003-0450-51 ",.01)
 ;;00003-0450-51
 ;;9002226.02101,"1729,00003-0450-51 ",.02)
 ;;00003-0450-51
 ;;9002226.02101,"1729,00003-0450-54 ",.01)
 ;;00003-0450-54
 ;;9002226.02101,"1729,00003-0450-54 ",.02)
 ;;00003-0450-54
 ;;9002226.02101,"1729,00003-0450-75 ",.01)
 ;;00003-0450-75
 ;;9002226.02101,"1729,00003-0450-75 ",.02)
 ;;00003-0450-75
 ;;9002226.02101,"1729,00003-0452-50 ",.01)
 ;;00003-0452-50
 ;;9002226.02101,"1729,00003-0452-50 ",.02)
 ;;00003-0452-50
 ;;9002226.02101,"1729,00003-0452-51 ",.01)
 ;;00003-0452-51
 ;;9002226.02101,"1729,00003-0452-51 ",.02)
 ;;00003-0452-51
 ;;9002226.02101,"1729,00003-0452-75 ",.01)
 ;;00003-0452-75
 ;;9002226.02101,"1729,00003-0452-75 ",.02)
 ;;00003-0452-75
 ;;9002226.02101,"1729,00003-0482-50 ",.01)
 ;;00003-0482-50
 ;;9002226.02101,"1729,00003-0482-50 ",.02)
 ;;00003-0482-50
 ;;9002226.02101,"1729,00003-0482-51 ",.01)
 ;;00003-0482-51
 ;;9002226.02101,"1729,00003-0482-51 ",.02)
 ;;00003-0482-51
 ;;9002226.02101,"1729,00003-0482-75 ",.01)
 ;;00003-0482-75
 ;;9002226.02101,"1729,00003-0482-75 ",.02)
 ;;00003-0482-75
 ;;9002226.02101,"1729,00003-0485-50 ",.01)
 ;;00003-0485-50
 ;;9002226.02101,"1729,00003-0485-50 ",.02)
 ;;00003-0485-50
 ;;9002226.02101,"1729,00006-0014-28 ",.01)
 ;;00006-0014-28
 ;;9002226.02101,"1729,00006-0014-28 ",.02)
 ;;00006-0014-28
 ;;9002226.02101,"1729,00006-0014-68 ",.01)
 ;;00006-0014-68
 ;;9002226.02101,"1729,00006-0014-68 ",.02)
 ;;00006-0014-68
 ;;9002226.02101,"1729,00006-0014-82 ",.01)
 ;;00006-0014-82
 ;;9002226.02101,"1729,00006-0014-82 ",.02)
 ;;00006-0014-82
 ;;9002226.02101,"1729,00006-0014-87 ",.01)
 ;;00006-0014-87
 ;;9002226.02101,"1729,00006-0014-87 ",.02)
 ;;00006-0014-87
 ;;9002226.02101,"1729,00006-0014-94 ",.01)
 ;;00006-0014-94
 ;;9002226.02101,"1729,00006-0014-94 ",.02)
 ;;00006-0014-94
 ;;9002226.02101,"1729,00006-0015-28 ",.01)
 ;;00006-0015-28
 ;;9002226.02101,"1729,00006-0015-28 ",.02)
 ;;00006-0015-28
 ;;9002226.02101,"1729,00006-0015-31 ",.01)
 ;;00006-0015-31
 ;;9002226.02101,"1729,00006-0015-31 ",.02)
 ;;00006-0015-31
 ;;9002226.02101,"1729,00006-0015-58 ",.01)
 ;;00006-0015-58
 ;;9002226.02101,"1729,00006-0015-58 ",.02)
 ;;00006-0015-58
 ;;9002226.02101,"1729,00006-0019-28 ",.01)
 ;;00006-0019-28
 ;;9002226.02101,"1729,00006-0019-28 ",.02)
 ;;00006-0019-28
 ;;9002226.02101,"1729,00006-0019-54 ",.01)
 ;;00006-0019-54
 ;;9002226.02101,"1729,00006-0019-54 ",.02)
 ;;00006-0019-54
 ;;9002226.02101,"1729,00006-0019-58 ",.01)
 ;;00006-0019-58
 ;;9002226.02101,"1729,00006-0019-58 ",.02)
 ;;00006-0019-58
 ;;9002226.02101,"1729,00006-0019-72 ",.01)
 ;;00006-0019-72
 ;;9002226.02101,"1729,00006-0019-72 ",.02)
 ;;00006-0019-72
 ;;9002226.02101,"1729,00006-0019-82 ",.01)
 ;;00006-0019-82
 ;;9002226.02101,"1729,00006-0019-82 ",.02)
 ;;00006-0019-82
 ;;9002226.02101,"1729,00006-0019-86 ",.01)
 ;;00006-0019-86
 ;;9002226.02101,"1729,00006-0019-86 ",.02)
 ;;00006-0019-86
 ;;9002226.02101,"1729,00006-0019-87 ",.01)
 ;;00006-0019-87
 ;;9002226.02101,"1729,00006-0019-87 ",.02)
 ;;00006-0019-87
 ;;9002226.02101,"1729,00006-0019-94 ",.01)
 ;;00006-0019-94
 ;;9002226.02101,"1729,00006-0019-94 ",.02)
 ;;00006-0019-94
 ;;9002226.02101,"1729,00006-0106-28 ",.01)
 ;;00006-0106-28
 ;;9002226.02101,"1729,00006-0106-28 ",.02)
 ;;00006-0106-28
 ;;9002226.02101,"1729,00006-0106-31 ",.01)
 ;;00006-0106-31
 ;;9002226.02101,"1729,00006-0106-31 ",.02)
 ;;00006-0106-31
 ;;9002226.02101,"1729,00006-0106-54 ",.01)
 ;;00006-0106-54
 ;;9002226.02101,"1729,00006-0106-54 ",.02)
 ;;00006-0106-54
 ;;9002226.02101,"1729,00006-0106-58 ",.01)
 ;;00006-0106-58
 ;;9002226.02101,"1729,00006-0106-58 ",.02)
 ;;00006-0106-58
 ;;9002226.02101,"1729,00006-0106-72 ",.01)
 ;;00006-0106-72
 ;;9002226.02101,"1729,00006-0106-72 ",.02)
 ;;00006-0106-72
 ;;9002226.02101,"1729,00006-0106-82 ",.01)
 ;;00006-0106-82
 ;;9002226.02101,"1729,00006-0106-82 ",.02)
 ;;00006-0106-82
 ;;9002226.02101,"1729,00006-0106-87 ",.01)
 ;;00006-0106-87
 ;;9002226.02101,"1729,00006-0106-87 ",.02)
 ;;00006-0106-87
 ;;9002226.02101,"1729,00006-0106-94 ",.01)
 ;;00006-0106-94
 ;;9002226.02101,"1729,00006-0106-94 ",.02)
 ;;00006-0106-94
 ;;9002226.02101,"1729,00006-0140-31 ",.01)
 ;;00006-0140-31
 ;;9002226.02101,"1729,00006-0140-31 ",.02)
 ;;00006-0140-31
 ;;9002226.02101,"1729,00006-0140-58 ",.01)
 ;;00006-0140-58
 ;;9002226.02101,"1729,00006-0140-58 ",.02)
 ;;00006-0140-58
 ;;9002226.02101,"1729,00006-0142-31 ",.01)
 ;;00006-0142-31
 ;;9002226.02101,"1729,00006-0142-31 ",.02)
 ;;00006-0142-31
 ;;9002226.02101,"1729,00006-0142-58 ",.01)
 ;;00006-0142-58
 ;;9002226.02101,"1729,00006-0142-58 ",.02)
 ;;00006-0142-58
 ;;9002226.02101,"1729,00006-0145-31 ",.01)
 ;;00006-0145-31
 ;;9002226.02101,"1729,00006-0145-31 ",.02)
 ;;00006-0145-31
 ;;9002226.02101,"1729,00006-0145-58 ",.01)
 ;;00006-0145-58
 ;;9002226.02101,"1729,00006-0145-58 ",.02)
 ;;00006-0145-58
 ;;9002226.02101,"1729,00006-0173-68 ",.01)
 ;;00006-0173-68
 ;;9002226.02101,"1729,00006-0173-68 ",.02)
 ;;00006-0173-68
 ;;9002226.02101,"1729,00006-0207-28 ",.01)
 ;;00006-0207-28
 ;;9002226.02101,"1729,00006-0207-28 ",.02)
 ;;00006-0207-28
 ;;9002226.02101,"1729,00006-0207-31 ",.01)
 ;;00006-0207-31
 ;;9002226.02101,"1729,00006-0207-31 ",.02)
 ;;00006-0207-31
 ;;9002226.02101,"1729,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"1729,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"1729,00006-0207-58 ",.01)
 ;;00006-0207-58
 ;;9002226.02101,"1729,00006-0207-58 ",.02)
 ;;00006-0207-58
 ;;9002226.02101,"1729,00006-0207-72 ",.01)
 ;;00006-0207-72