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

BGP7LXAC.m

Go to the documentation of this file.
BGP7LXAC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"54868-0073-03 ")
 ;;998
 ;;21,"54868-0073-04 ")
 ;;999
 ;;21,"54868-0073-05 ")
 ;;1000
 ;;21,"54868-0073-06 ")
 ;;1001
 ;;21,"54868-0073-07 ")
 ;;1002
 ;;21,"54868-0073-08 ")
 ;;1003
 ;;21,"54868-0073-09 ")
 ;;1004
 ;;21,"54868-0616-00 ")
 ;;602
 ;;21,"54868-0676-00 ")
 ;;1005
 ;;21,"54868-0676-01 ")
 ;;1006
 ;;21,"54868-0676-02 ")
 ;;1007
 ;;21,"54868-0676-03 ")
 ;;1008
 ;;21,"54868-1071-00 ")
 ;;643
 ;;21,"54868-1071-01 ")
 ;;644
 ;;21,"54868-1233-00 ")
 ;;645
 ;;21,"54868-1233-01 ")
 ;;646
 ;;21,"54868-1466-00 ")
 ;;809
 ;;21,"54868-1466-01 ")
 ;;810
 ;;21,"54868-1467-01 ")
 ;;1105
 ;;21,"54868-1467-02 ")
 ;;1106
 ;;21,"54868-3230-01 ")
 ;;620
 ;;21,"54868-3402-00 ")
 ;;514
 ;;21,"54868-3402-01 ")
 ;;515
 ;;21,"54868-3403-00 ")
 ;;516
 ;;21,"54868-3403-01 ")
 ;;517
 ;;21,"54868-3403-02 ")
 ;;518
 ;;21,"54868-3403-03 ")
 ;;519
 ;;21,"54868-3559-00 ")
 ;;603
 ;;21,"54868-3610-00 ")
 ;;647
 ;;21,"54868-3611-00 ")
 ;;648
 ;;21,"54868-3646-01 ")
 ;;604
 ;;21,"54868-3674-00 ")
 ;;520
 ;;21,"54868-3811-00 ")
 ;;521
 ;;21,"54868-3976-00 ")
 ;;522
 ;;21,"54868-4136-00 ")
 ;;605
 ;;21,"54868-4549-00 ")
 ;;523
 ;;21,"54868-4549-01 ")
 ;;524
 ;;21,"54868-4631-00 ")
 ;;525
 ;;21,"54868-4631-01 ")
 ;;526
 ;;21,"54868-4631-02 ")
 ;;527
 ;;21,"54868-4631-03 ")
 ;;528
 ;;21,"54868-4640-00 ")
 ;;576
 ;;21,"54868-4640-01 ")
 ;;577
 ;;21,"54868-4728-00 ")
 ;;529
 ;;21,"54868-4728-01 ")
 ;;530
 ;;21,"54868-4728-02 ")
 ;;531
 ;;21,"54868-4728-03 ")
 ;;1125
 ;;21,"54868-4728-04 ")
 ;;532
 ;;21,"54868-4751-00 ")
 ;;608
 ;;21,"54868-4751-01 ")
 ;;609
 ;;21,"54868-4758-00 ")
 ;;533
 ;;21,"54868-4758-01 ")
 ;;534
 ;;21,"54868-4760-00 ")
 ;;578
 ;;21,"54868-4760-01 ")
 ;;579
 ;;21,"54868-4760-02 ")
 ;;580
 ;;21,"54868-4863-00 ")
 ;;581
 ;;21,"54868-5007-00 ")
 ;;582
 ;;21,"54868-5007-01 ")
 ;;583
 ;;21,"54868-5103-00 ")
 ;;535
 ;;21,"54868-5103-01 ")
 ;;536
 ;;21,"54868-5103-02 ")
 ;;537
 ;;21,"54868-5103-03 ")
 ;;538
 ;;21,"54868-5136-00 ")
 ;;539
 ;;21,"54868-5140-00 ")
 ;;584
 ;;21,"54868-5140-01 ")
 ;;585
 ;;21,"54868-5142-00 ")
 ;;586
 ;;21,"54868-5142-01 ")
 ;;587
 ;;21,"54868-5151-00 ")
 ;;649
 ;;21,"54868-5151-01 ")
 ;;650
 ;;21,"54868-5151-02 ")
 ;;651
 ;;21,"55045-1127-01 ")
 ;;1009
 ;;21,"55045-1127-04 ")
 ;;1010
 ;;21,"55045-1127-05 ")
 ;;1011
 ;;21,"55045-1127-07 ")
 ;;1012
 ;;21,"55045-1209-01 ")
 ;;1107
 ;;21,"55045-3095-02 ")
 ;;1013
 ;;21,"55175-1418-00 ")
 ;;1014
 ;;21,"55175-1418-01 ")
 ;;1015
 ;;21,"55175-1418-02 ")
 ;;1016
 ;;21,"55175-1418-03 ")
 ;;1017
 ;;21,"55175-1418-04 ")
 ;;1018
 ;;21,"55175-1418-05 ")
 ;;1019
 ;;21,"55175-1418-06 ")
 ;;1020
 ;;21,"55175-1418-07 ")
 ;;1021
 ;;21,"55175-1418-08 ")
 ;;1022
 ;;21,"55175-1418-09 ")
 ;;1023
 ;;21,"55175-1420-01 ")
 ;;811
 ;;21,"55175-4496-01 ")
 ;;626
 ;;21,"55175-4497-01 ")
 ;;606
 ;;21,"55175-4498-01 ")
 ;;610
 ;;21,"55175-5000-01 ")
 ;;621
 ;;21,"55175-5001-01 ")
 ;;633
 ;;21,"55175-5013-01 ")
 ;;611
 ;;21,"55175-5123-02 ")
 ;;652
 ;;21,"55175-5130-01 ")
 ;;607
 ;;21,"55289-0029-20 ")
 ;;1108
 ;;21,"55289-0231-04 ")
 ;;1024
 ;;21,"55289-0231-06 ")
 ;;1025
 ;;21,"55289-0231-08 ")
 ;;1026
 ;;21,"55289-0231-10 ")
 ;;1027
 ;;21,"55289-0231-12 ")
 ;;1028
 ;;21,"55289-0231-15 ")
 ;;1029
 ;;21,"55289-0231-16 ")
 ;;1030
 ;;21,"55289-0231-20 ")
 ;;1031
 ;;21,"55289-0231-30 ")
 ;;1032
 ;;21,"55289-0231-40 ")
 ;;1033
 ;;21,"55289-0231-50 ")
 ;;1034
 ;;21,"55289-0231-60 ")
 ;;1035
 ;;21,"55289-0231-90 ")
 ;;1036
 ;;21,"55289-0324-16 ")
 ;;812
 ;;21,"55289-0703-10 ")
 ;;1109
 ;;21,"55289-0852-10 ")
 ;;1037
 ;;21,"55289-0852-12 ")
 ;;1038
 ;;21,"55289-0852-20 ")
 ;;1039
 ;;21,"55499-1082-01 ")
 ;;271
 ;;21,"55887-0943-06 ")
 ;;1040
 ;;21,"55887-0943-12 ")
 ;;1041
 ;;21,"55887-0943-15 ")
 ;;1042
 ;;21,"55887-0943-20 ")
 ;;1043
 ;;21,"55887-0943-30 ")
 ;;1044
 ;;21,"55887-0943-40 ")
 ;;1045
 ;;21,"55887-0943-45 ")
 ;;1046
 ;;21,"55887-0943-60 ")
 ;;1047
 ;;21,"55887-0943-82 ")
 ;;1048
 ;;21,"55887-0943-90 ")
 ;;1049
 ;;21,"56062-0437-71 ")
 ;;932
 ;;21,"57844-0009-01 ")
 ;;197
 ;;21,"57844-0009-10 ")
 ;;198
 ;;21,"57844-0019-01 ")
 ;;31
 ;;21,"57866-3932-01 ")
 ;;540
 ;;21,"57866-3932-02 ")
 ;;541
 ;;21,"57866-3933-01 ")
 ;;542
 ;;21,"57866-3933-02 ")
 ;;543
 ;;21,"57866-3934-01 ")
 ;;544
 ;;21,"57866-3934-02 ")
 ;;545
 ;;21,"57866-3935-01 ")
 ;;546
 ;;21,"57866-3935-02 ")
 ;;547
 ;;21,"57866-3936-01 ")
 ;;588
 ;;21,"57866-3936-02 ")
 ;;589
 ;;21,"57866-3949-01 ")
 ;;590
 ;;21,"57866-3949-02 ")
 ;;591
 ;;21,"57866-4362-02 ")
 ;;813
 ;;21,"57866-7071-01 ")
 ;;592
 ;;21,"57866-7072-01 ")
 ;;593
 ;;21,"57866-7073-01 ")
 ;;594
 ;;21,"57866-7079-01 ")
 ;;627
 ;;21,"57866-7079-02 ")
 ;;628
 ;;21,"57866-7080-01 ")
 ;;622
 ;;21,"57866-9029-01 ")
 ;;174
 ;;21,"57866-9030-01 ")
 ;;242
 ;;21,"58016-0836-07 ")
 ;;343
 ;;21,"58016-0836-14 ")
 ;;344
 ;;21,"58016-0836-15 ")
 ;;345
 ;;21,"58016-0836-30 ")
 ;;346
 ;;21,"58016-0854-42 ")
 ;;307
 ;;21,"58016-0856-00 ")
 ;;326
 ;;21,"58016-0856-15 ")
 ;;327
 ;;21,"58016-0856-21 ")
 ;;328
 ;;21,"58016-0856-42 ")
 ;;329
 ;;21,"58016-0861-14 ")
 ;;243
 ;;21,"58016-0861-30 ")
 ;;244
 ;;21,"58016-0861-60 ")
 ;;245
 ;;21,"58177-0311-04 ")
 ;;367
 ;;21,"58177-0312-04 ")
 ;;375
 ;;21,"58345-0801-65 ")
 ;;1050
 ;;21,"58521-0031-01 ")
 ;;445
 ;;21,"58521-0032-01 ")
 ;;446
 ;;21,"58521-0033-01 ")
 ;;447
 ;;21,"58521-0034-01 ")
 ;;448
 ;;21,"58521-0075-01 ")
 ;;449
 ;;21,"58521-0125-01 ")
 ;;450
 ;;21,"58521-0150-01 ")
 ;;451
 ;;21,"58521-0333-05 ")
 ;;246
 ;;21,"58521-0451-01 ")
 ;;368
 ;;21,"58521-0452-01 ")
 ;;376
 ;;21,"58605-0503-01 ")
 ;;32
 ;;21,"58605-0504-01 ")
 ;;13
 ;;21,"58605-0508-01 ")
 ;;8
 ;;21,"58864-0428-30 ")
 ;;1051
 ;;21,"58864-0428-60 ")
 ;;1052
 ;;21,"58948-0185-71 ")
 ;;933
 ;;21,"58948-0185-78 ")
 ;;934
 ;;21,"59085-0239-50 ")
 ;;935
 ;;21,"59606-0060-14 ")
 ;;936
 ;;21,"59606-0060-24 ")
 ;;937
 ;;21,"59606-0396-06 ")
 ;;491
 ;;21,"59606-0444-14 ")
 ;;938
 ;;21,"59606-0444-20 ")
 ;;939
 ;;21,"59606-0447-14 ")
 ;;940
 ;;21,"59772-8840-01 ")
 ;;64
 ;;21,"59772-8840-03 ")
 ;;65
 ;;21,"59772-8841-01 ")
 ;;91
 ;;21,"59772-8841-03 ")
 ;;92
 ;;21,"59772-8842-01 ")
 ;;114
 ;;21,"59772-8842-03 ")
 ;;115
 ;;21,"59772-8843-01 ")
 ;;131
 ;;21,"60346-0610-20 ")
 ;;1053
 ;;21,"60346-0610-30 ")
 ;;1055
 ;;21,"60346-0610-60 ")
 ;;1056
 ;;21,"60346-0610-90 ")
 ;;1057
 ;;21,"60346-0610-94 ")
 ;;1058
 ;;21,"60346-0628-06 ")
 ;;1059
 ;;21,"60346-0628-12 ")
 ;;1060
 ;;21,"60346-0628-15 ")
 ;;1061
 ;;21,"60346-0628-20 ")
 ;;1062
 ;;21,"60346-0628-25 ")
 ;;1063
 ;;21,"60346-0628-30 ")
 ;;1064
 ;;21,"60346-0628-40 ")
 ;;1065
 ;;21,"60346-0628-44 ")
 ;;1066
 ;;21,"60346-0628-60 ")
 ;;1067
 ;;21,"60346-0628-90 ")
 ;;1068
 ;;21,"60346-0628-94 ")
 ;;1069
 ;;21,"60346-0682-20 ")
 ;;1110
 ;;21,"60346-0682-30 ")
 ;;1111
 ;;21,"60346-0685-12 ")
 ;;1070
 ;;21,"60346-0685-20 ")
 ;;1071
 ;;21,"60346-0685-40 ")
 ;;1072
 ;;21,"60346-0693-12 ")
 ;;814
 ;;21,"60346-0693-20 ")
 ;;815
 ;;21,"60346-0693-30 ")
 ;;816
 ;;21,"60346-0693-60 ")
 ;;817
 ;;21,"60346-0693-90 ")
 ;;818
 ;;21,"60346-0693-94 ")
 ;;819
 ;;21,"60760-0890-15 ")
 ;;1073
 ;;21,"60760-0890-60 ")
 ;;1074
 ;;21,"60793-0009-01 ")
 ;;247
 ;;21,"61392-0446-10 ")
 ;;1075
 ;;21,"61392-0446-15 ")
 ;;1076
 ;;21,"61392-0446-30 ")
 ;;1077
 ;;21,"61392-0446-31 ")
 ;;1078
 ;;21,"61392-0446-32 ")
 ;;1079
 ;;21,"61392-0446-39 ")
 ;;1080
 ;;21,"61392-0446-45 ")
 ;;1081
 ;;21,"61392-0446-51 ")
 ;;1082
 ;;21,"61392-0446-54 ")
 ;;1083
 ;;21,"61392-0446-56 ")
 ;;1084
 ;;21,"61392-0446-60 ")
 ;;1085
 ;;21,"61392-0446-90 ")
 ;;1086
 ;;21,"61392-0446-91 ")
 ;;1087
 ;;21,"62269-0391-24 ")
 ;;138
 ;;21,"62269-0392-24 ")
 ;;147
 ;;21,"62269-0393-24 ")
 ;;161
 ;;21,"62584-0840-01 ")
 ;;1088
 ;;21,"62584-0840-33 ")
 ;;1089
 ;;21,"62865-0030-62 ")
 ;;492
 ;;21,"62865-0030-68 ")
 ;;493
 ;;21,"62865-0185-71 ")
 ;;941
 ;;21,"62865-0355-71 ")
 ;;942
 ;;21,"62865-0437-78 ")
 ;;943
 ;;21,"62865-0726-88 ")
 ;;944
 ;;21,"62865-0726-89 ")
 ;;945
 ;;21,"62865-0752-17 ")
 ;;946
 ;;21,"62865-0763-81 ")
 ;;947
 ;;21,"62865-0776-33 ")
 ;;673
 ;;21,"62865-0777-98 ")
 ;;674
 ;;21,"62865-0790-25 ")
 ;;675
 ;;21,"62865-0837-71 ")
 ;;948
 ;;21,"63304-0678-01 ")
 ;;1112
 ;;21,"63304-0908-01 ")
 ;;452
 ;;21,"63304-0909-01 ")
 ;;453
 ;;21,"63304-0910-01 ")
 ;;454
 ;;21,"63304-0911-01 ")
 ;;455
 ;;21,"63739-0215-02 ")
 ;;1090
 ;;21,"63868-0090-50 ")
 ;;949
 ;;21,"63868-0325-01 ")
 ;;950
 ;;21,"63868-0446-50 ")
 ;;676
 ;;21,"64899-0067-01 ")
 ;;677
 ;;21,"64899-0075-50 ")
 ;;678
 ;;21,"64899-0077-24 ")
 ;;679
 ;;21,"64899-0078-24 ")
 ;;548
 ;;21,"64899-0103-50 ")
 ;;680
 ;;21,"64899-0104-01 ")
 ;;681
 ;;21,"64899-0105-01 ")
 ;;682
 ;;21,"65162-0608-24 ")
 ;;683
 ;;21,"65234-0047-10 ")
 ;;272
 ;;21,"65234-0048-10 ")
 ;;308
 ;;21,"65234-0048-90 ")
 ;;309
 ;;21,"65759-0780-05 ")
 ;;684
 ;;21,"66116-0116-20 ")
 ;;1091
 ;;21,"66116-0116-40 ")
 ;;1092
 ;;21,"66116-0604-30 ")
 ;;1093
 ;;21,"66267-0178-91 ")
 ;;1094
 ;;21,"67386-0102-01 ")
 ;;387
 ;;21,"68030-4361-01 ")
 ;;1095
 ;;21,"68030-4361-03 ")
 ;;1096
 ;;21,"68030-4361-09 ")
 ;;1097
 ;;21,"68115-0050-07 ")
 ;;310
 ;;21,"68115-0050-14 ")
 ;;311
 ;;21,"68115-0050-28 ")
 ;;312
 ;;21,"68115-0050-90 ")
 ;;273
 ;;21,"68115-0051-14 ")
 ;;274
 ;;21,"68115-0051-21 ")
 ;;275
 ;;21,"68115-0051-30 ")
 ;;276
 ;;21,"68115-0108-30 ")
 ;;35
 ;;21,"68115-0109-30 ")
 ;;330
 ;;21,"68115-0110-28 ")
 ;;347
 ;;21,"68115-0273-14 ")
 ;;313
 ;;21,"68115-0273-21 ")
 ;;314
 ;;21,"68115-0277-14 ")
 ;;175
 ;;21,"68115-0277-30 ")
 ;;176
 ;;21,"68115-0278-14 ")
 ;;248
 ;;21,"68115-0278-30 ")
 ;;249
 ;;21,"68115-0279-00 ")
 ;;250
 ;;21,"68115-0279-30 ")
 ;;251
 ;;21,"68115-0280-30 ")
 ;;199
 ;;21,"68115-0305-12 ")
 ;;1098
 ;;21,"68115-0757-00 ")
 ;;380
 ;;21,"68188-0132-01 ")
 ;;406
 ;;21,"68188-0135-01 ")
 ;;407
 ;;21,"68188-0137-01 ")
 ;;408
 ;;21,"68188-0881-50 ")
 ;;409
 ;;21,"68188-0882-50 ")
 ;;410
 ;;21,"68387-0100-12 ")
 ;;1099
 ;;21,"68387-0100-30 ")
 ;;1100
 ;;21,"68387-0100-60 ")
 ;;1101
 ;;21,"68387-0100-90 ")
 ;;1102
 ;;21,"70030-0135-02 ")
 ;;494
 ;;21,"70030-0135-39 ")
 ;;685
 ;;21,"70030-0837-71 ")
 ;;686
 ;;21,"73913-1347-50 ")
 ;;687
 ;;21,"73913-1445-24 ")
 ;;688
 ;;21,"87701-0844-99 ")
 ;;549
 ;;21,"87701-0871-19 ")
 ;;550
 ;;21,"87701-0875-13 ")
 ;;689
 ;;21,"87701-0875-14 ")
 ;;690
 ;;21,"87701-0915-08 ")
 ;;551
 ;;21,"91899-0439-71 ")
 ;;691
 ;;21,"94441-0220-12 ")
 ;;495
 ;;21,"94441-0223-35 ")
 ;;692
 ;;21,"94441-0223-36 ")
 ;;693
 ;;21,"94441-0223-48 ")
 ;;694
 ;;21,"96295-0108-07 ")
 ;;695
 ;;21,"97807-0010-42 ")
 ;;696
 ;;21,"97807-0010-75 ")
 ;;697
 ;;21,"97807-0010-76 ")
 ;;698
 ;;21,"97807-0010-77 ")
 ;;699
 ;;9002226,622,.01)
 ;;BGP HEDIS AMPHETAMINE NDC
 ;;9002226,622,.02)
 ;;@
 ;;9002226,622,.04)
 ;;n
 ;;9002226,622,.06)
 ;;@
 ;;9002226,622,.08)
 ;;@
 ;;9002226,622,.09)
 ;;@
 ;;9002226,622,.11)
 ;;@
 ;;9002226,622,.12)
 ;;@
 ;;9002226,622,.13)
 ;;1
 ;;9002226,622,.14)
 ;;@
 ;;9002226,622,.15)
 ;;@
 ;;9002226,622,.16)
 ;;@
 ;;9002226,622,.17)
 ;;@
 ;;9002226,622,3101)
 ;;@
 ;;9002226.02101,"622,00002-3111-33 ",.01)
 ;;00002-3111-33
 ;;9002226.02101,"622,00002-3111-33 ",.02)
 ;;00002-3111-33
 ;;9002226.02101,"622,00005-3066-31 ",.01)
 ;;00005-3066-31
 ;;9002226.02101,"622,00005-3066-31 ",.02)
 ;;00005-3066-31
 ;;9002226.02101,"622,00005-3066-43 ",.01)
 ;;00005-3066-43
 ;;9002226.02101,"622,00005-3066-43 ",.02)
 ;;00005-3066-43
 ;;9002226.02101,"622,00005-4547-23 ",.01)
 ;;00005-4547-23
 ;;9002226.02101,"622,00005-4547-23 ",.02)
 ;;00005-4547-23
 ;;9002226.02101,"622,00005-4547-31 ",.01)
 ;;00005-4547-31
 ;;9002226.02101,"622,00005-4547-31 ",.02)
 ;;00005-4547-31
 ;;9002226.02101,"622,00007-3512-15 ",.01)
 ;;00007-3512-15
 ;;9002226.02101,"622,00007-3512-15 ",.02)
 ;;00007-3512-15
 ;;9002226.02101,"622,00007-3512-20 ",.01)
 ;;00007-3512-20
 ;;9002226.02101,"622,00007-3512-20 ",.02)
 ;;00007-3512-20
 ;;9002226.02101,"622,00007-3513-15 ",.01)
 ;;00007-3513-15
 ;;9002226.02101,"622,00007-3513-15 ",.02)
 ;;00007-3513-15
 ;;9002226.02101,"622,00007-3513-20 ",.01)
 ;;00007-3513-20
 ;;9002226.02101,"622,00007-3513-20 ",.02)
 ;;00007-3513-20
 ;;9002226.02101,"622,00007-3514-15 ",.01)
 ;;00007-3514-15
 ;;9002226.02101,"622,00007-3514-15 ",.02)
 ;;00007-3514-15
 ;;9002226.02101,"622,00007-3514-20 ",.01)
 ;;00007-3514-20
 ;;9002226.02101,"622,00007-3514-20 ",.02)
 ;;00007-3514-20
 ;;9002226.02101,"622,00007-3519-20 ",.01)
 ;;00007-3519-20
 ;;9002226.02101,"622,00007-3519-20 ",.02)
 ;;00007-3519-20
 ;;9002226.02101,"622,00008-0308-02 ",.01)
 ;;00008-0308-02