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.
  1. BGP13V2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  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,"50419-0452-04 ")
  1. ;;147
  1. ;;21,"50419-0453-04 ")
  1. ;;148
  1. ;;21,"50419-0454-04 ")
  1. ;;149
  1. ;;21,"50419-0455-04 ")
  1. ;;485
  1. ;;21,"50419-0456-04 ")
  1. ;;150
  1. ;;21,"50419-0459-04 ")
  1. ;;151
  1. ;;21,"50419-0491-04 ")
  1. ;;161
  1. ;;21,"51079-0941-01 ")
  1. ;;74
  1. ;;21,"51079-0941-05 ")
  1. ;;75
  1. ;;21,"51079-0942-01 ")
  1. ;;76
  1. ;;21,"51079-0942-05 ")
  1. ;;77
  1. ;;21,"51285-0011-02 ")
  1. ;;379
  1. ;;21,"51285-0063-90 ")
  1. ;;505
  1. ;;21,"51285-0088-90 ")
  1. ;;506
  1. ;;21,"51285-0406-02 ")
  1. ;;194
  1. ;;21,"51285-0407-02 ")
  1. ;;195
  1. ;;21,"51285-0408-02 ")
  1. ;;196
  1. ;;21,"51285-0409-02 ")
  1. ;;197
  1. ;;21,"51285-0410-02 ")
  1. ;;198
  1. ;;21,"51285-0441-02 ")
  1. ;;132
  1. ;;21,"51285-0442-02 ")
  1. ;;133
  1. ;;21,"51285-0442-05 ")
  1. ;;134
  1. ;;21,"51285-0443-02 ")
  1. ;;135
  1. ;;21,"51285-0443-05 ")
  1. ;;136
  1. ;;21,"51285-0444-02 ")
  1. ;;137
  1. ;;21,"51285-0446-02 ")
  1. ;;138
  1. ;;21,"51285-0502-02 ")
  1. ;;279
  1. ;;21,"51285-0502-04 ")
  1. ;;280
  1. ;;21,"51655-0452-24 ")
  1. ;;550
  1. ;;21,"51655-0452-25 ")
  1. ;;551
  1. ;;21,"51991-0474-28 ")
  1. ;;350
  1. ;;21,"52544-0471-08 ")
  1. ;;108
  1. ;;21,"52544-0471-23 ")
  1. ;;109
  1. ;;21,"52544-0471-54 ")
  1. ;;110
  1. ;;21,"52544-0472-08 ")
  1. ;;111
  1. ;;21,"52544-0472-54 ")
  1. ;;112
  1. ;;21,"52544-0473-08 ")
  1. ;;113
  1. ;;21,"52544-0473-54 ")
  1. ;;114
  1. ;;21,"52544-0884-08 ")
  1. ;;115
  1. ;;21,"52544-0884-54 ")
  1. ;;116
  1. ;;21,"52555-0651-01 ")
  1. ;;281
  1. ;;21,"52637-0332-10 ")
  1. ;;323
  1. ;;21,"52959-0222-00 ")
  1. ;;552
  1. ;;21,"52959-0223-00 ")
  1. ;;553
  1. ;;21,"52959-0223-30 ")
  1. ;;554
  1. ;;21,"52959-0323-00 ")
  1. ;;282
  1. ;;21,"52959-0323-30 ")
  1. ;;283
  1. ;;21,"52959-0326-10 ")
  1. ;;380
  1. ;;21,"54569-0802-01 ")
  1. ;;210
  1. ;;21,"54569-0804-00 ")
  1. ;;236
  1. ;;21,"54569-0811-01 ")
  1. ;;555
  1. ;;21,"54569-0812-00 ")
  1. ;;556
  1. ;;21,"54569-0812-01 ")
  1. ;;557
  1. ;;21,"54569-0812-02 ")
  1. ;;558
  1. ;;21,"54569-0812-05 ")
  1. ;;559
  1. ;;21,"54569-0813-00 ")
  1. ;;560
  1. ;;21,"54569-0813-01 ")
  1. ;;561
  1. ;;21,"54569-0849-00 ")
  1. ;;562
  1. ;;21,"54569-0849-01 ")
  1. ;;563
  1. ;;21,"54569-1394-00 ")
  1. ;;176
  1. ;;21,"54569-1852-01 ")
  1. ;;348
  1. ;;21,"54569-2580-00 ")
  1. ;;183
  1. ;;21,"54569-3007-00 ")
  1. ;;349
  1. ;;21,"54569-3009-00 ")
  1. ;;324
  1. ;;21,"54569-4367-00 ")
  1. ;;152
  1. ;;21,"54569-4367-01 ")
  1. ;;153
  1. ;;21,"54569-4618-00 ")
  1. ;;674
  1. ;;21,"54569-4628-00 ")
  1. ;;398
  1. ;;21,"54569-4673-00 ")
  1. ;;652
  1. ;;21,"54569-4711-00 ")
  1. ;;154
  1. ;;21,"54569-4866-00 ")
  1. ;;440
  1. ;;21,"54569-4907-00 ")
  1. ;;284
  1. ;;21,"54569-4908-00 ")
  1. ;;285
  1. ;;21,"54569-4925-00 ")
  1. ;;675
  1. ;;21,"54569-5152-00 ")
  1. ;;331
  1. ;;21,"54569-5153-00 ")
  1. ;;332
  1. ;;21,"54569-5164-00 ")
  1. ;;408
  1. ;;21,"54569-5218-00 ")
  1. ;;441
  1. ;;21,"54569-5380-00 ")
  1. ;;170
  1. ;;21,"54569-5399-00 ")
  1. ;;442
  1. ;;21,"54569-5462-00 ")
  1. ;;22
  1. ;;21,"54569-5581-00 ")
  1. ;;710
  1. ;;21,"54569-6047-00 ")
  1. ;;78
  1. ;;21,"54569-6050-00 ")
  1. ;;79
  1. ;;21,"54569-8006-00 ")
  1. ;;564
  1. ;;21,"54569-8006-01 ")
  1. ;;565
  1. ;;21,"54569-8006-02 ")
  1. ;;566
  1. ;;21,"54569-8014-00 ")
  1. ;;567
  1. ;;21,"54569-8500-00 ")
  1. ;;568
  1. ;;21,"54569-8500-01 ")
  1. ;;569
  1. ;;21,"54569-8500-02 ")
  1. ;;570
  1. ;;21,"54569-8505-00 ")
  1. ;;571
  1. ;;21,"54569-8505-01 ")
  1. ;;572
  1. ;;21,"54569-8505-02 ")
  1. ;;573
  1. ;;21,"54569-8517-00 ")
  1. ;;574
  1. ;;21,"54569-8517-01 ")
  1. ;;575
  1. ;;21,"54569-8518-00 ")
  1. ;;576
  1. ;;21,"54569-8518-01 ")
  1. ;;577
  1. ;;21,"54569-8525-00 ")
  1. ;;495
  1. ;;21,"54569-8528-00 ")
  1. ;;211
  1. ;;21,"54569-8551-00 ")
  1. ;;500
  1. ;;21,"54569-8577-00 ")
  1. ;;212
  1. ;;21,"54868-0365-00 ")
  1. ;;578
  1. ;;21,"54868-0365-02 ")
  1. ;;579
  1. ;;21,"54868-0365-03 ")
  1. ;;580
  1. ;;21,"54868-0451-00 ")
  1. ;;581
  1. ;;21,"54868-0451-01 ")
  1. ;;582
  1. ;;21,"54868-0451-02 ")
  1. ;;583
  1. ;;21,"54868-0451-03 ")
  1. ;;584
  1. ;;21,"54868-0451-06 ")
  1. ;;585
  1. ;;21,"54868-0451-07 ")
  1. ;;586
  1. ;;21,"54868-0452-03 ")
  1. ;;587
  1. ;;21,"54868-0453-00 ")
  1. ;;588
  1. ;;21,"54868-0453-01 ")
  1. ;;589
  1. ;;21,"54868-0453-02 ")
  1. ;;590
  1. ;;21,"54868-0453-04 ")
  1. ;;591
  1. ;;21,"54868-0453-05 ")
  1. ;;592
  1. ;;21,"54868-0453-06 ")
  1. ;;593
  1. ;;21,"54868-0494-00 ")
  1. ;;213
  1. ;;21,"54868-0494-01 ")
  1. ;;214
  1. ;;21,"54868-0494-02 ")
  1. ;;215
  1. ;;21,"54868-0494-03 ")
  1. ;;216
  1. ;;21,"54868-0495-00 ")
  1. ;;217
  1. ;;21,"54868-0495-01 ")
  1. ;;218
  1. ;;21,"54868-1261-00 ")
  1. ;;501
  1. ;;21,"54868-1262-00 ")
  1. ;;496
  1. ;;21,"54868-1262-01 ")
  1. ;;497
  1. ;;21,"54868-1262-02 ")
  1. ;;498
  1. ;;21,"54868-1432-00 ")
  1. ;;139
  1. ;;21,"54868-1432-01 ")
  1. ;;140
  1. ;;21,"54868-1729-00 ")
  1. ;;184
  1. ;;21,"54868-2702-00 ")
  1. ;;594
  1. ;;21,"54868-2702-01 ")
  1. ;;595
  1. ;;21,"54868-2702-02 ")
  1. ;;596
  1. ;;21,"54868-2702-03 ")
  1. ;;597
  1. ;;21,"54868-2702-04 ")
  1. ;;598
  1. ;;21,"54868-3114-00 ")
  1. ;;381
  1. ;;21,"54868-3114-01 ")
  1. ;;382
  1. ;;21,"54868-3653-00 ")
  1. ;;504
  1. ;;21,"54868-3795-00 ")
  1. ;;693
  1. ;;21,"54868-3796-00 ")
  1. ;;694
  1. ;;21,"54868-3797-00 ")
  1. ;;695
  1. ;;21,"54868-3799-00 ")
  1. ;;676
  1. ;;21,"54868-3800-00 ")
  1. ;;653
  1. ;;21,"54868-3827-00 ")
  1. ;;490
  1. ;;21,"54868-3827-01 ")
  1. ;;491
  1. ;;21,"54868-3857-00 ")
  1. ;;443
  1. ;;21,"54868-4030-00 ")
  1. ;;286
  1. ;;21,"54868-4030-01 ")
  1. ;;287
  1. ;;21,"54868-4030-02 ")
  1. ;;288
  1. ;;21,"54868-4031-00 ")
  1. ;;289
  1. ;;21,"54868-4031-01 ")
  1. ;;290
  1. ;;21,"54868-4031-02 ")
  1. ;;291
  1. ;;21,"54868-4089-00 ")
  1. ;;155
  1. ;;21,"54868-4149-00 ")
  1. ;;383
  1. ;;21,"54868-4149-01 ")
  1. ;;384
  1. ;;21,"54868-4170-00 ")
  1. ;;399
  1. ;;21,"54868-4170-01 ")
  1. ;;400
  1. ;;21,"54868-4241-00 ")
  1. ;;156
  1. ;;21,"54868-4242-00 ")
  1. ;;711
  1. ;;21,"54868-4243-00 ")
  1. ;;712
  1. ;;21,"54868-4244-00 ")
  1. ;;713
  1. ;;21,"54868-4269-00 ")
  1. ;;507
  1. ;;21,"54868-4370-00 ")
  1. ;;292
  1. ;;21,"54868-4370-01 ")
  1. ;;293
  1. ;;21,"54868-4384-00 ")
  1. ;;444
  1. ;;21,"54868-4386-00 ")
  1. ;;23
  1. ;;21,"54868-4462-00 ")
  1. ;;445
  1. ;;21,"54868-4463-00 ")
  1. ;;446
  1. ;;21,"54868-4671-00 ")
  1. ;;24
  1. ;;21,"54868-4679-00 ")
  1. ;;409
  1. ;;21,"54868-4761-01 ")
  1. ;;385
  1. ;;21,"54868-4761-02 ")
  1. ;;386
  1. ;;21,"54868-4811-00 ")
  1. ;;333
  1. ;;21,"54868-4813-00 ")
  1. ;;334
  1. ;;21,"54868-4830-00 ")
  1. ;;7
  1. ;;21,"54868-4831-00 ")
  1. ;;171
  1. ;;21,"54868-4862-00 ")
  1. ;;714
  1. ;;21,"54868-4865-00 ")
  1. ;;599
  1. ;;21,"54868-4865-01 ")
  1. ;;600
  1. ;;21,"54868-4866-00 ")
  1. ;;677
  1. ;;21,"54868-4879-00 ")
  1. ;;141
  1. ;;21,"54868-4879-01 ")
  1. ;;142
  1. ;;21,"54868-4879-02 ")
  1. ;;143
  1. ;;21,"54868-4900-00 ")
  1. ;;157
  1. ;;21,"54868-4901-00 ")
  1. ;;158
  1. ;;21,"54868-4920-00 ")
  1. ;;715
  1. ;;21,"54868-5008-00 ")
  1. ;;159
  1. ;;21,"54868-5009-00 ")
  1. ;;335
  1. ;;21,"54868-5047-00 ")
  1. ;;678
  1. ;;21,"54868-5322-00 ")
  1. ;;124
  1. ;;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