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

BGP13V2.m

Go to the documentation of this file.
BGP13V2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"50419-0452-04 ")
 ;;147
 ;;21,"50419-0453-04 ")
 ;;148
 ;;21,"50419-0454-04 ")
 ;;149
 ;;21,"50419-0455-04 ")
 ;;485
 ;;21,"50419-0456-04 ")
 ;;150
 ;;21,"50419-0459-04 ")
 ;;151
 ;;21,"50419-0491-04 ")
 ;;161
 ;;21,"51079-0941-01 ")
 ;;74
 ;;21,"51079-0941-05 ")
 ;;75
 ;;21,"51079-0942-01 ")
 ;;76
 ;;21,"51079-0942-05 ")
 ;;77
 ;;21,"51285-0011-02 ")
 ;;379
 ;;21,"51285-0063-90 ")
 ;;505
 ;;21,"51285-0088-90 ")
 ;;506
 ;;21,"51285-0406-02 ")
 ;;194
 ;;21,"51285-0407-02 ")
 ;;195
 ;;21,"51285-0408-02 ")
 ;;196
 ;;21,"51285-0409-02 ")
 ;;197
 ;;21,"51285-0410-02 ")
 ;;198
 ;;21,"51285-0441-02 ")
 ;;132
 ;;21,"51285-0442-02 ")
 ;;133
 ;;21,"51285-0442-05 ")
 ;;134
 ;;21,"51285-0443-02 ")
 ;;135
 ;;21,"51285-0443-05 ")
 ;;136
 ;;21,"51285-0444-02 ")
 ;;137
 ;;21,"51285-0446-02 ")
 ;;138
 ;;21,"51285-0502-02 ")
 ;;279
 ;;21,"51285-0502-04 ")
 ;;280
 ;;21,"51655-0452-24 ")
 ;;550
 ;;21,"51655-0452-25 ")
 ;;551
 ;;21,"51991-0474-28 ")
 ;;350
 ;;21,"52544-0471-08 ")
 ;;108
 ;;21,"52544-0471-23 ")
 ;;109
 ;;21,"52544-0471-54 ")
 ;;110
 ;;21,"52544-0472-08 ")
 ;;111
 ;;21,"52544-0472-54 ")
 ;;112
 ;;21,"52544-0473-08 ")
 ;;113
 ;;21,"52544-0473-54 ")
 ;;114
 ;;21,"52544-0884-08 ")
 ;;115
 ;;21,"52544-0884-54 ")
 ;;116
 ;;21,"52555-0651-01 ")
 ;;281
 ;;21,"52637-0332-10 ")
 ;;323
 ;;21,"52959-0222-00 ")
 ;;552
 ;;21,"52959-0223-00 ")
 ;;553
 ;;21,"52959-0223-30 ")
 ;;554
 ;;21,"52959-0323-00 ")
 ;;282
 ;;21,"52959-0323-30 ")
 ;;283
 ;;21,"52959-0326-10 ")
 ;;380
 ;;21,"54569-0802-01 ")
 ;;210
 ;;21,"54569-0804-00 ")
 ;;236
 ;;21,"54569-0811-01 ")
 ;;555
 ;;21,"54569-0812-00 ")
 ;;556
 ;;21,"54569-0812-01 ")
 ;;557
 ;;21,"54569-0812-02 ")
 ;;558
 ;;21,"54569-0812-05 ")
 ;;559
 ;;21,"54569-0813-00 ")
 ;;560
 ;;21,"54569-0813-01 ")
 ;;561
 ;;21,"54569-0849-00 ")
 ;;562
 ;;21,"54569-0849-01 ")
 ;;563
 ;;21,"54569-1394-00 ")
 ;;176
 ;;21,"54569-1852-01 ")
 ;;348
 ;;21,"54569-2580-00 ")
 ;;183
 ;;21,"54569-3007-00 ")
 ;;349
 ;;21,"54569-3009-00 ")
 ;;324
 ;;21,"54569-4367-00 ")
 ;;152
 ;;21,"54569-4367-01 ")
 ;;153
 ;;21,"54569-4618-00 ")
 ;;674
 ;;21,"54569-4628-00 ")
 ;;398
 ;;21,"54569-4673-00 ")
 ;;652
 ;;21,"54569-4711-00 ")
 ;;154
 ;;21,"54569-4866-00 ")
 ;;440
 ;;21,"54569-4907-00 ")
 ;;284
 ;;21,"54569-4908-00 ")
 ;;285
 ;;21,"54569-4925-00 ")
 ;;675
 ;;21,"54569-5152-00 ")
 ;;331
 ;;21,"54569-5153-00 ")
 ;;332
 ;;21,"54569-5164-00 ")
 ;;408
 ;;21,"54569-5218-00 ")
 ;;441
 ;;21,"54569-5380-00 ")
 ;;170
 ;;21,"54569-5399-00 ")
 ;;442
 ;;21,"54569-5462-00 ")
 ;;22
 ;;21,"54569-5581-00 ")
 ;;710
 ;;21,"54569-6047-00 ")
 ;;78
 ;;21,"54569-6050-00 ")
 ;;79
 ;;21,"54569-8006-00 ")
 ;;564
 ;;21,"54569-8006-01 ")
 ;;565
 ;;21,"54569-8006-02 ")
 ;;566
 ;;21,"54569-8014-00 ")
 ;;567
 ;;21,"54569-8500-00 ")
 ;;568
 ;;21,"54569-8500-01 ")
 ;;569
 ;;21,"54569-8500-02 ")
 ;;570
 ;;21,"54569-8505-00 ")
 ;;571
 ;;21,"54569-8505-01 ")
 ;;572
 ;;21,"54569-8505-02 ")
 ;;573
 ;;21,"54569-8517-00 ")
 ;;574
 ;;21,"54569-8517-01 ")
 ;;575
 ;;21,"54569-8518-00 ")
 ;;576
 ;;21,"54569-8518-01 ")
 ;;577
 ;;21,"54569-8525-00 ")
 ;;495
 ;;21,"54569-8528-00 ")
 ;;211
 ;;21,"54569-8551-00 ")
 ;;500
 ;;21,"54569-8577-00 ")
 ;;212
 ;;21,"54868-0365-00 ")
 ;;578
 ;;21,"54868-0365-02 ")
 ;;579
 ;;21,"54868-0365-03 ")
 ;;580
 ;;21,"54868-0451-00 ")
 ;;581
 ;;21,"54868-0451-01 ")
 ;;582
 ;;21,"54868-0451-02 ")
 ;;583
 ;;21,"54868-0451-03 ")
 ;;584
 ;;21,"54868-0451-06 ")
 ;;585
 ;;21,"54868-0451-07 ")
 ;;586
 ;;21,"54868-0452-03 ")
 ;;587
 ;;21,"54868-0453-00 ")
 ;;588
 ;;21,"54868-0453-01 ")
 ;;589
 ;;21,"54868-0453-02 ")
 ;;590
 ;;21,"54868-0453-04 ")
 ;;591
 ;;21,"54868-0453-05 ")
 ;;592
 ;;21,"54868-0453-06 ")
 ;;593
 ;;21,"54868-0494-00 ")
 ;;213
 ;;21,"54868-0494-01 ")
 ;;214
 ;;21,"54868-0494-02 ")
 ;;215
 ;;21,"54868-0494-03 ")
 ;;216
 ;;21,"54868-0495-00 ")
 ;;217
 ;;21,"54868-0495-01 ")
 ;;218
 ;;21,"54868-1261-00 ")
 ;;501
 ;;21,"54868-1262-00 ")
 ;;496
 ;;21,"54868-1262-01 ")
 ;;497
 ;;21,"54868-1262-02 ")
 ;;498
 ;;21,"54868-1432-00 ")
 ;;139
 ;;21,"54868-1432-01 ")
 ;;140
 ;;21,"54868-1729-00 ")
 ;;184
 ;;21,"54868-2702-00 ")
 ;;594
 ;;21,"54868-2702-01 ")
 ;;595
 ;;21,"54868-2702-02 ")
 ;;596
 ;;21,"54868-2702-03 ")
 ;;597
 ;;21,"54868-2702-04 ")
 ;;598
 ;;21,"54868-3114-00 ")
 ;;381
 ;;21,"54868-3114-01 ")
 ;;382
 ;;21,"54868-3653-00 ")
 ;;504
 ;;21,"54868-3795-00 ")
 ;;693
 ;;21,"54868-3796-00 ")
 ;;694
 ;;21,"54868-3797-00 ")
 ;;695
 ;;21,"54868-3799-00 ")
 ;;676
 ;;21,"54868-3800-00 ")
 ;;653
 ;;21,"54868-3827-00 ")
 ;;490
 ;;21,"54868-3827-01 ")
 ;;491
 ;;21,"54868-3857-00 ")
 ;;443
 ;;21,"54868-4030-00 ")
 ;;286
 ;;21,"54868-4030-01 ")
 ;;287
 ;;21,"54868-4030-02 ")
 ;;288
 ;;21,"54868-4031-00 ")
 ;;289
 ;;21,"54868-4031-01 ")
 ;;290
 ;;21,"54868-4031-02 ")
 ;;291
 ;;21,"54868-4089-00 ")
 ;;155
 ;;21,"54868-4149-00 ")
 ;;383
 ;;21,"54868-4149-01 ")
 ;;384
 ;;21,"54868-4170-00 ")
 ;;399
 ;;21,"54868-4170-01 ")
 ;;400
 ;;21,"54868-4241-00 ")
 ;;156
 ;;21,"54868-4242-00 ")
 ;;711
 ;;21,"54868-4243-00 ")
 ;;712
 ;;21,"54868-4244-00 ")
 ;;713
 ;;21,"54868-4269-00 ")
 ;;507
 ;;21,"54868-4370-00 ")
 ;;292
 ;;21,"54868-4370-01 ")
 ;;293
 ;;21,"54868-4384-00 ")
 ;;444
 ;;21,"54868-4386-00 ")
 ;;23
 ;;21,"54868-4462-00 ")
 ;;445
 ;;21,"54868-4463-00 ")
 ;;446
 ;;21,"54868-4671-00 ")
 ;;24
 ;;21,"54868-4679-00 ")
 ;;409
 ;;21,"54868-4761-01 ")
 ;;385
 ;;21,"54868-4761-02 ")
 ;;386
 ;;21,"54868-4811-00 ")
 ;;333
 ;;21,"54868-4813-00 ")
 ;;334
 ;;21,"54868-4830-00 ")
 ;;7
 ;;21,"54868-4831-00 ")
 ;;171
 ;;21,"54868-4862-00 ")
 ;;714
 ;;21,"54868-4865-00 ")
 ;;599
 ;;21,"54868-4865-01 ")
 ;;600
 ;;21,"54868-4866-00 ")
 ;;677
 ;;21,"54868-4879-00 ")
 ;;141
 ;;21,"54868-4879-01 ")
 ;;142
 ;;21,"54868-4879-02 ")
 ;;143
 ;;21,"54868-4900-00 ")
 ;;157
 ;;21,"54868-4901-00 ")
 ;;158
 ;;21,"54868-4920-00 ")
 ;;715
 ;;21,"54868-5008-00 ")
 ;;159
 ;;21,"54868-5009-00 ")
 ;;335
 ;;21,"54868-5047-00 ")
 ;;678
 ;;21,"54868-5322-00 ")
 ;;124
 ;;21,"54868-5322-01 ")
 ;;125
 ;;21,"54868-5371-00 ")
 ;;486
 ;;21,"54868-5406-00 ")
 ;;418
 ;;21,"54868-5415-00 ")
 ;;144
 ;;21,"54868-5415-01 ")
 ;;145
 ;;21,"54868-5480-00 ")
 ;;466
 ;;21,"54868-5499-00 ")
 ;;420
 ;;21,"54868-5518-00 ")
 ;;28
 ;;21,"54868-5540-00 ")
 ;;679
 ;;21,"54868-5570-00 ")
 ;;162
 ;;21,"54868-5823-00 ")
 ;;126
 ;;21,"54868-5860-00 ")
 ;;80
 ;;21,"54868-5861-00 ")
 ;;81
 ;;21,"54868-5862-00 ")
 ;;82
 ;;21,"54868-5934-00 ")
 ;;478
 ;;21,"54868-5934-01 ")
 ;;479
 ;;21,"54868-6030-00 ")
 ;;412
 ;;21,"55045-2739-00 ")
 ;;294
 ;;21,"55045-2850-00 ")
 ;;295
 ;;21,"55045-3134-04 ")
 ;;160
 ;;21,"55045-3908-01 ")
 ;;83
 ;;21,"55111-0588-01 ")
 ;;84
 ;;21,"55111-0588-30 ")
 ;;85
 ;;21,"55111-0589-01 ")
 ;;86
 ;;21,"55111-0589-30 ")
 ;;87
 ;;21,"55111-0590-48 ")
 ;;88
 ;;21,"55111-0592-48 ")
 ;;89
 ;;21,"55289-0047-25 ")
 ;;601
 ;;21,"55289-0047-30 ")
 ;;602
 ;;21,"55289-0047-42 ")
 ;;603
 ;;21,"55289-0047-90 ")
 ;;604
 ;;21,"55289-0101-30 ")
 ;;219
 ;;21,"55289-0101-50 ")
 ;;220
 ;;21,"55289-0123-30 ")
 ;;605
 ;;21,"55289-0266-30 ")
 ;;401
 ;;21,"55289-0396-30 ")
 ;;221
 ;;21,"55289-0603-07 ")
 ;;296
 ;;21,"55289-0603-21 ")
 ;;297
 ;;21,"55289-0603-30 ")
 ;;298
 ;;21,"55289-0603-90 ")
 ;;299
 ;;21,"55289-0761-30 ")
 ;;300
 ;;21,"55289-0943-07 ")
 ;;606
 ;;21,"55289-0943-25 ")
 ;;607
 ;;21,"55289-0943-28 ")
 ;;608
 ;;21,"55289-0943-30 ")
 ;;609
 ;;21,"55553-0244-10 ")
 ;;163
 ;;21,"55553-0254-10 ")
 ;;351
 ;;21,"55887-0106-04 ")
 ;;447
 ;;21,"55887-0266-30 ")
 ;;301
 ;;21,"55887-0266-90 ")
 ;;302
 ;;21,"55887-0324-30 ")
 ;;387
 ;;21,"55887-0342-01 ")
 ;;303
 ;;21,"55887-0342-30 ")
 ;;304
 ;;21,"55887-0342-90 ")
 ;;305
 ;;21,"55887-0516-20 ")
 ;;448
 ;;21,"55887-0516-30 ")
 ;;449
 ;;21,"55887-0516-60 ")
 ;;450
 ;;21,"55887-0516-82 ")
 ;;451
 ;;21,"55887-0516-90 ")
 ;;452
 ;;21,"55887-0641-03 ")
 ;;127
 ;;21,"55887-0685-04 ")
 ;;25
 ;;21,"55887-0702-30 ")
 ;;610
 ;;21,"55887-0863-30 ")
 ;;306
 ;;21,"57866-6681-01 ")
 ;;611
 ;;21,"57866-6681-02 ")
 ;;612
 ;;21,"57866-6681-03 ")
 ;;613
 ;;21,"57866-6682-01 ")
 ;;614
 ;;21,"57866-7987-01 ")
 ;;615
 ;;21,"58016-0039-00 ")
 ;;222
 ;;21,"58016-0039-30 ")
 ;;223
 ;;21,"58016-0039-60 ")
 ;;224
 ;;21,"58016-0039-90 ")
 ;;225
 ;;21,"58016-0613-04 ")
 ;;453
 ;;21,"58016-0744-00 ")
 ;;616
 ;;21,"58016-0744-10 ")
 ;;617
 ;;21,"58016-0744-12 ")
 ;;618
 ;;21,"58016-0744-14 ")
 ;;619
 ;;21,"58016-0744-15 ")
 ;;620
 ;;21,"58016-0744-20 ")
 ;;621
 ;;21,"58016-0744-30 ")
 ;;622
 ;;21,"58016-0788-00 ")
 ;;454
 ;;21,"58016-0788-30 ")
 ;;455
 ;;21,"58016-0788-60 ")
 ;;456
 ;;21,"58016-0788-90 ")
 ;;457
 ;;21,"58016-0948-00 ")
 ;;623
 ;;21,"58016-0948-10 ")
 ;;624
 ;;21,"58016-0948-12 ")
 ;;625
 ;;21,"58016-0948-14 ")
 ;;626
 ;;21,"58016-0948-15 ")
 ;;627
 ;;21,"58016-0948-20 ")
 ;;628
 ;;21,"58016-0948-30 ")
 ;;629
 ;;21,"58016-0948-50 ")
 ;;630
 ;;21,"58016-3182-01 ")
 ;;237
 ;;21,"58016-4074-01 ")
 ;;680
 ;;21,"58864-0422-28 ")
 ;;631
 ;;21,"58864-0422-30 ")
 ;;632
 ;;21,"58864-0803-30 ")
 ;;307
 ;;21,"58864-0804-30 ")
 ;;308
 ;;21,"58864-0951-30 ")
 ;;480
 ;;21,"59772-0026-03 ")
 ;;309
 ;;21,"59772-0026-04 ")
 ;;310
 ;;21,"59772-0027-04 ")
 ;;311
 ;;21,"59911-5879-02 ")
 ;;312
 ;;21,"59911-5880-02 ")
 ;;313
 ;;21,"59911-5882-02 ")
 ;;314
 ;;21,"60429-0773-04 ")
 ;;90
 ;;21,"60429-0773-12 ")
 ;;91
 ;;21,"60505-0823-06 ")
 ;;131
 ;;21,"60505-2592-01 ")
 ;;92
 ;;21,"60505-2592-03 ")
 ;;93
 ;;21,"60505-2593-01 ")
 ;;94
 ;;21,"60505-2593-03 ")
 ;;95
 ;;21,"60505-2594-04 ")
 ;;96
 ;;21,"60505-2596-02 ")
 ;;97
 ;;21,"60505-2596-04 ")
 ;;98
 ;;21,"60505-2596-08 ")
 ;;99
 ;;21,"61570-0072-01 ")
 ;;481
 ;;21,"61570-0073-01 ")
 ;;482
 ;;21,"61570-0074-01 ")
 ;;483
 ;;21,"61570-0075-50 ")
 ;;484
 ;;21,"61570-0180-01 ")
 ;;177
 ;;21,"61570-0181-01 ")
 ;;178
 ;;21,"61570-0182-01 ")
 ;;179
 ;;21,"63874-0089-01 ")
 ;;458
 ;;21,"63874-0158-01 ")
 ;;633
 ;;21,"63874-0158-10 ")
 ;;634
 ;;21,"63874-0158-14 ")
 ;;635
 ;;21,"63874-0158-15 ")
 ;;636
 ;;21,"63874-0158-20 ")
 ;;637
 ;;21,"63874-0158-30 ")
 ;;638
 ;;21,"64011-0215-41 ")
 ;;389
 ;;21,"65862-0327-30 ")
 ;;100
 ;;21,"65862-0328-04 ")
 ;;101
 ;;21,"65862-0329-04 ")
 ;;102
 ;;21,"66105-0137-10 ")
 ;;639
 ;;21,"66105-0138-10 ")
 ;;640
 ;;21,"66105-0538-03 ")
 ;;402
 ;;21,"66116-0285-30 ")
 ;;641
 ;;21,"66267-0174-30 ")
 ;;642
 ;;21,"66336-0599-30 ")
 ;;643
 ;;21,"66336-0977-30 ")
 ;;388
 ;;21,"66500-0158-01 ")
 ;;471
 ;;21,"66500-0259-01 ")
 ;;472
 ;;21,"66500-0325-17 ")
 ;;354
 ;;21,"66500-0748-01 ")
 ;;473
 ;;21,"66500-0768-01 ")
 ;;474
 ;;21,"67801-0320-03 ")
 ;;103
 ;;21,"67801-0326-03 ")
 ;;644
 ;;21,"67801-0327-03 ")
 ;;645
 ;;21,"68084-0322-11 ")
 ;;104
 ;;21,"68084-0322-94 ")
 ;;105
 ;;21,"68115-0294-30 ")
 ;;646
 ;;21,"68115-0387-30 ")
 ;;315
 ;;21,"68115-0387-60 ")
 ;;316
 ;;21,"68115-0388-30 ")
 ;;317
 ;;21,"68115-0388-60 ")
 ;;318
 ;;21,"68115-0681-04 ")
 ;;26
 ;;21,"68115-0755-04 ")
 ;;459
 ;;21,"68115-0793-00 ")
 ;;460
 ;;21,"68258-3014-01 ")
 ;;106
 ;;9002226,368,.01)
 ;;BGP HEDIS OSTEOPOROSIS NDC
 ;;9002226,368,.02)
 ;;@
 ;;9002226,368,.04)
 ;;n
 ;;9002226,368,.06)
 ;;@
 ;;9002226,368,.08)
 ;;@
 ;;9002226,368,.09)
 ;;@
 ;;9002226,368,.11)
 ;;@
 ;;9002226,368,.12)
 ;;@
 ;;9002226,368,.13)
 ;;1
 ;;9002226,368,.14)
 ;;@
 ;;9002226,368,.15)
 ;;@
 ;;9002226,368,.16)
 ;;@
 ;;9002226,368,.17)
 ;;@
 ;;9002226,368,3101)
 ;;@
 ;;9002226.02101,"368,00002-4165-02 ",.01)
 ;;00002-4165-02
 ;;9002226.02101,"368,00002-4165-02 ",.02)
 ;;00002-4165-02
 ;;9002226.02101,"368,00002-4165-07 ",.01)
 ;;00002-4165-07
 ;;9002226.02101,"368,00002-4165-07 ",.02)
 ;;00002-4165-07