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

BGP82B2.m

Go to the documentation of this file.
BGP82B2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"51285-0943-88 ")
 ;;340
 ;;21,"51285-0963-19 ")
 ;;341
 ;;21,"51660-0127-86 ")
 ;;342
 ;;21,"51660-0572-86 ")
 ;;343
 ;;21,"52544-0035-54 ")
 ;;344
 ;;21,"52544-0054-31 ")
 ;;345
 ;;21,"52544-0064-31 ")
 ;;346
 ;;21,"52544-0065-54 ")
 ;;347
 ;;21,"52544-0087-28 ")
 ;;348
 ;;21,"52544-0087-41 ")
 ;;349
 ;;21,"52544-0143-31 ")
 ;;350
 ;;21,"52544-0165-28 ")
 ;;351
 ;;21,"52544-0167-31 ")
 ;;352
 ;;21,"52544-0175-72 ")
 ;;353
 ;;21,"52544-0204-31 ")
 ;;354
 ;;21,"52544-0210-28 ")
 ;;355
 ;;21,"52544-0219-28 ")
 ;;356
 ;;21,"52544-0228-29 ")
 ;;357
 ;;21,"52544-0233-28 ")
 ;;358
 ;;21,"52544-0235-28 ")
 ;;359
 ;;21,"52544-0235-31 ")
 ;;360
 ;;21,"52544-0245-31 ")
 ;;361
 ;;21,"52544-0247-28 ")
 ;;362
 ;;21,"52544-0248-28 ")
 ;;363
 ;;21,"52544-0249-28 ")
 ;;364
 ;;21,"52544-0254-28 ")
 ;;365
 ;;21,"52544-0259-28 ")
 ;;366
 ;;21,"52544-0259-88 ")
 ;;367
 ;;21,"52544-0265-31 ")
 ;;368
 ;;21,"52544-0268-29 ")
 ;;369
 ;;21,"52544-0268-84 ")
 ;;370
 ;;21,"52544-0274-28 ")
 ;;371
 ;;21,"52544-0274-31 ")
 ;;372
 ;;21,"52544-0275-36 ")
 ;;373
 ;;21,"52544-0276-21 ")
 ;;374
 ;;21,"52544-0279-28 ")
 ;;375
 ;;21,"52544-0287-54 ")
 ;;376
 ;;21,"52544-0290-21 ")
 ;;377
 ;;21,"52544-0291-28 ")
 ;;378
 ;;21,"52544-0292-31 ")
 ;;379
 ;;21,"52544-0292-41 ")
 ;;380
 ;;21,"52544-0295-28 ")
 ;;381
 ;;21,"52544-0383-28 ")
 ;;382
 ;;21,"52544-0384-28 ")
 ;;383
 ;;21,"52544-0475-36 ")
 ;;384
 ;;21,"52544-0550-28 ")
 ;;385
 ;;21,"52544-0552-28 ")
 ;;386
 ;;21,"52544-0554-28 ")
 ;;387
 ;;21,"52544-0629-28 ")
 ;;388
 ;;21,"52544-0630-28 ")
 ;;389
 ;;21,"52544-0631-28 ")
 ;;390
 ;;21,"52544-0847-28 ")
 ;;391
 ;;21,"52544-0848-28 ")
 ;;392
 ;;21,"52544-0892-28 ")
 ;;393
 ;;21,"52544-0936-28 ")
 ;;394
 ;;21,"52544-0940-28 ")
 ;;395
 ;;21,"52544-0949-28 ")
 ;;396
 ;;21,"52544-0950-21 ")
 ;;397
 ;;21,"52544-0951-21 ")
 ;;398
 ;;21,"52544-0953-28 ")
 ;;399
 ;;21,"52544-0954-28 ")
 ;;400
 ;;21,"52544-0959-31 ")
 ;;401
 ;;21,"52544-0966-91 ")
 ;;402
 ;;21,"52544-0967-28 ")
 ;;403
 ;;21,"52544-0981-31 ")
 ;;404
 ;;21,"52544-0982-31 ")
 ;;405
 ;;21,"52925-0112-01 ")
 ;;406
 ;;21,"52925-0112-02 ")
 ;;407
 ;;21,"52925-0112-03 ")
 ;;408
 ;;21,"52925-0312-14 ")
 ;;409
 ;;21,"52959-0450-02 ")
 ;;410
 ;;21,"54569-0679-00 ")
 ;;411
 ;;21,"54569-0685-00 ")
 ;;412
 ;;21,"54569-0685-01 ")
 ;;413
 ;;21,"54569-0689-00 ")
 ;;414
 ;;21,"54569-0689-01 ")
 ;;415
 ;;21,"54569-1439-00 ")
 ;;416
 ;;21,"54569-3701-00 ")
 ;;417
 ;;21,"54569-3844-00 ")
 ;;418
 ;;21,"54569-4222-00 ")
 ;;419
 ;;21,"54569-4222-01 ")
 ;;420
 ;;21,"54569-4269-00 ")
 ;;421
 ;;21,"54569-4273-01 ")
 ;;422
 ;;21,"54569-4817-00 ")
 ;;423
 ;;21,"54569-4878-00 ")
 ;;424
 ;;21,"54569-4878-01 ")
 ;;425
 ;;21,"54569-4890-00 ")
 ;;426
 ;;21,"54569-4904-00 ")
 ;;427
 ;;21,"54569-4984-00 ")
 ;;428
 ;;21,"54569-4997-00 ")
 ;;429
 ;;21,"54569-4998-00 ")
 ;;430
 ;;21,"54569-5161-00 ")
 ;;431
 ;;21,"54569-5349-00 ")
 ;;432
 ;;21,"54569-5493-00 ")
 ;;433
 ;;21,"54569-5493-02 ")
 ;;434
 ;;21,"54569-5527-00 ")
 ;;435
 ;;21,"54569-5616-00 ")
 ;;436
 ;;21,"54569-5796-00 ")
 ;;437
 ;;21,"54569-5797-00 ")
 ;;438
 ;;21,"54569-5798-00 ")
 ;;439
 ;;21,"54569-5816-00 ")
 ;;440
 ;;21,"54569-5826-00 ")
 ;;441
 ;;21,"54569-5865-00 ")
 ;;442
 ;;21,"54569-6032-00 ")
 ;;443
 ;;21,"54569-6128-00 ")
 ;;444
 ;;21,"54569-6144-00 ")
 ;;445
 ;;21,"54569-6145-00 ")
 ;;446
 ;;21,"54569-6219-00 ")
 ;;447
 ;;21,"54569-6272-00 ")
 ;;448
 ;;21,"54569-6280-00 ")
 ;;449
 ;;21,"54569-6281-00 ")
 ;;450
 ;;21,"54868-0443-00 ")
 ;;451
 ;;21,"54868-0507-00 ")
 ;;452
 ;;21,"54868-0508-01 ")
 ;;453
 ;;21,"54868-0509-01 ")
 ;;454
 ;;21,"54868-0516-00 ")
 ;;455
 ;;21,"54868-1564-00 ")
 ;;456
 ;;21,"54868-2316-00 ")
 ;;457
 ;;21,"54868-2701-00 ")
 ;;458
 ;;21,"54868-4093-00 ")
 ;;459
 ;;21,"54868-4196-00 ")
 ;;460
 ;;21,"54868-4239-00 ")
 ;;461
 ;;21,"54868-4369-00 ")
 ;;462
 ;;21,"54868-4538-00 ")
 ;;463
 ;;21,"54868-4590-00 ")
 ;;464
 ;;21,"54868-4607-00 ")
 ;;465
 ;;21,"54868-4730-00 ")
 ;;466
 ;;21,"54868-4731-00 ")
 ;;467
 ;;21,"54868-4742-00 ")
 ;;468
 ;;21,"54868-4745-00 ")
 ;;469
 ;;21,"54868-4754-00 ")
 ;;470
 ;;21,"54868-4776-00 ")
 ;;471
 ;;21,"54868-4814-00 ")
 ;;472
 ;;21,"54868-4828-00 ")
 ;;473
 ;;21,"54868-4832-01 ")
 ;;474
 ;;21,"54868-4851-00 ")
 ;;475
 ;;21,"54868-4860-00 ")
 ;;476
 ;;21,"54868-5028-00 ")
 ;;477
 ;;21,"54868-5257-00 ")
 ;;478
 ;;21,"54868-5286-00 ")
 ;;479
 ;;21,"54868-5326-00 ")
 ;;480
 ;;21,"54868-5356-00 ")
 ;;481
 ;;21,"54868-5826-00 ")
 ;;482
 ;;21,"54868-5828-00 ")
 ;;483
 ;;21,"54868-5942-00 ")
 ;;484
 ;;21,"55045-3485-06 ")
 ;;485
 ;;21,"55045-3497-01 ")
 ;;486
 ;;21,"55045-3498-01 ")
 ;;487
 ;;21,"55045-3505-01 ")
 ;;488
 ;;21,"55045-3781-06 ")
 ;;489
 ;;21,"55045-3782-06 ")
 ;;490
 ;;21,"55289-0247-08 ")
 ;;491
 ;;21,"55289-0887-04 ")
 ;;492
 ;;21,"55887-0052-28 ")
 ;;493
 ;;21,"55887-0286-28 ")
 ;;494
 ;;21,"55887-0754-01 ")
 ;;495
 ;;21,"58016-4747-01 ")
 ;;496
 ;;21,"58016-4827-01 ")
 ;;497
 ;;21,"59762-4537-01 ")
 ;;498
 ;;21,"59762-4537-02 ")
 ;;499
 ;;21,"59762-4538-02 ")
 ;;500
 ;;21,"59762-4538-09 ")
 ;;501
 ;;21,"62756-0718-60 ")
 ;;502
 ;;21,"63704-0020-01 ")
 ;;503
 ;;21,"64679-0050-02 ")
 ;;504
 ;;21,"65162-0316-84 ")
 ;;505
 ;;21,"65162-0347-84 ")
 ;;506
 ;;21,"66993-0615-28 ")
 ;;507
 ;;21,"68180-0837-11 ")
 ;;508
 ;;21,"68180-0837-13 ")
 ;;509
 ;;21,"68180-0843-13 ")
 ;;510
 ;;21,"68180-0844-13 ")
 ;;511
 ;;21,"68180-0846-13 ")
 ;;512
 ;;21,"68180-0848-13 ")
 ;;513
 ;;21,"68180-0853-13 ")
 ;;514
 ;;21,"68180-0854-13 ")
 ;;515
 ;;21,"68180-0864-11 ")
 ;;516
 ;;21,"68180-0864-13 ")
 ;;517
 ;;21,"68180-0865-11 ")
 ;;518
 ;;21,"68180-0865-13 ")
 ;;519
 ;;21,"68180-0866-11 ")
 ;;520
 ;;21,"68180-0866-13 ")
 ;;521
 ;;21,"68180-0875-13 ")
 ;;522
 ;;21,"68180-0876-11 ")
 ;;523
 ;;21,"68180-0876-13 ")
 ;;524
 ;;21,"68180-0877-11 ")
 ;;525
 ;;21,"68180-0877-13 ")
 ;;526
 ;;21,"68180-0882-13 ")
 ;;527
 ;;21,"68180-0886-13 ")
 ;;528
 ;;21,"68180-0892-11 ")
 ;;529
 ;;21,"68180-0892-13 ")
 ;;530
 ;;21,"68180-0893-11 ")
 ;;531
 ;;21,"68180-0893-13 ")
 ;;532
 ;;21,"68180-0897-13 ")
 ;;533
 ;;21,"68180-0898-13 ")
 ;;534
 ;;21,"68180-0899-13 ")
 ;;535
 ;;21,"68180-0902-13 ")
 ;;536
 ;;21,"68462-0132-79 ")
 ;;537
 ;;21,"68462-0132-81 ")
 ;;538
 ;;21,"68462-0303-29 ")
 ;;539
 ;;21,"68462-0303-84 ")
 ;;540
 ;;21,"68462-0305-29 ")
 ;;541
 ;;21,"68462-0305-84 ")
 ;;542
 ;;21,"68462-0309-29 ")
 ;;543
 ;;21,"68462-0309-84 ")
 ;;544
 ;;21,"68462-0316-29 ")
 ;;545
 ;;21,"68462-0316-84 ")
 ;;546
 ;;21,"68462-0318-29 ")
 ;;547
 ;;21,"68462-0318-84 ")
 ;;548
 ;;21,"68462-0388-29 ")
 ;;549
 ;;21,"68462-0388-84 ")
 ;;550
 ;;21,"68462-0394-29 ")
 ;;551
 ;;21,"68462-0394-84 ")
 ;;552
 ;;21,"68462-0556-29 ")
 ;;553
 ;;21,"68462-0556-84 ")
 ;;554
 ;;21,"68462-0565-29 ")
 ;;555
 ;;21,"68462-0637-29 ")
 ;;556
 ;;21,"68462-0637-84 ")
 ;;557
 ;;21,"68462-0646-91 ")
 ;;558
 ;;21,"68462-0646-93 ")
 ;;559
 ;;21,"68462-0672-91 ")
 ;;560
 ;;21,"68462-0672-95 ")
 ;;561
 ;;21,"68462-0719-29 ")
 ;;562
 ;;21,"68462-0719-84 ")
 ;;563
 ;;21,"68462-0720-29 ")
 ;;564
 ;;21,"68462-0720-84 ")
 ;;565
 ;;21,"68462-0733-29 ")
 ;;566
 ;;21,"68462-0733-84 ")
 ;;567
 ;;21,"75854-0601-01 ")
 ;;568
 ;;21,"76388-0283-01 ")
 ;;569
 ;;9002226,544,.01)
 ;;BGP HEDIS CONTRACEPTION NDC
 ;;9002226,544,.02)
 ;;@
 ;;9002226,544,.04)
 ;;@
 ;;9002226,544,.06)
 ;;@
 ;;9002226,544,.08)
 ;;@
 ;;9002226,544,.09)
 ;;3170809
 ;;9002226,544,.11)
 ;;@
 ;;9002226,544,.12)
 ;;@
 ;;9002226,544,.13)
 ;;1
 ;;9002226,544,.14)
 ;;@
 ;;9002226,544,.15)
 ;;50.67
 ;;9002226,544,.16)
 ;;@
 ;;9002226,544,.17)
 ;;@
 ;;9002226,544,.22)
 ;;@
 ;;9002226,544,3101)
 ;;@
 ;;9002226.02101,"544,00008-1117-20 ",.01)
 ;;00008-1117-20
 ;;9002226.02101,"544,00008-1117-20 ",.02)
 ;;00008-1117-20
 ;;9002226.02101,"544,00008-2514-02 ",.01)
 ;;00008-2514-02
 ;;9002226.02101,"544,00008-2514-02 ",.02)
 ;;00008-2514-02
 ;;9002226.02101,"544,00008-2535-05 ",.01)
 ;;00008-2535-05
 ;;9002226.02101,"544,00008-2535-05 ",.02)
 ;;00008-2535-05
 ;;9002226.02101,"544,00008-2536-01 ",.01)
 ;;00008-2536-01
 ;;9002226.02101,"544,00008-2536-01 ",.02)
 ;;00008-2536-01
 ;;9002226.02101,"544,00008-2536-05 ",.01)
 ;;00008-2536-05
 ;;9002226.02101,"544,00008-2536-05 ",.02)
 ;;00008-2536-05
 ;;9002226.02101,"544,00009-0746-30 ",.01)
 ;;00009-0746-30
 ;;9002226.02101,"544,00009-0746-30 ",.02)
 ;;00009-0746-30
 ;;9002226.02101,"544,00009-0746-35 ",.01)
 ;;00009-0746-35
 ;;9002226.02101,"544,00009-0746-35 ",.02)
 ;;00009-0746-35
 ;;9002226.02101,"544,00009-4709-13 ",.01)
 ;;00009-4709-13
 ;;9002226.02101,"544,00009-4709-13 ",.02)
 ;;00009-4709-13
 ;;9002226.02101,"544,00009-7376-04 ",.01)
 ;;00009-7376-04
 ;;9002226.02101,"544,00009-7376-04 ",.02)
 ;;00009-7376-04
 ;;9002226.02101,"544,00009-7376-07 ",.01)
 ;;00009-7376-07
 ;;9002226.02101,"544,00009-7376-07 ",.02)
 ;;00009-7376-07
 ;;9002226.02101,"544,00009-7376-11 ",.01)
 ;;00009-7376-11
 ;;9002226.02101,"544,00009-7376-11 ",.02)
 ;;00009-7376-11
 ;;9002226.02101,"544,00027-0131-60 ",.01)
 ;;00027-0131-60
 ;;9002226.02101,"544,00027-0131-60 ",.02)
 ;;00027-0131-60
 ;;9002226.02101,"544,00027-0131-80 ",.01)
 ;;00027-0131-80
 ;;9002226.02101,"544,00027-0131-80 ",.02)
 ;;00027-0131-80
 ;;9002226.02101,"544,00052-0261-06 ",.01)
 ;;00052-0261-06
 ;;9002226.02101,"544,00052-0261-06 ",.02)
 ;;00052-0261-06
 ;;9002226.02101,"544,00052-0261-08 ",.01)
 ;;00052-0261-08
 ;;9002226.02101,"544,00052-0261-08 ",.02)
 ;;00052-0261-08
 ;;9002226.02101,"544,00052-0272-01 ",.01)
 ;;00052-0272-01
 ;;9002226.02101,"544,00052-0272-01 ",.02)
 ;;00052-0272-01
 ;;9002226.02101,"544,00052-0273-01 ",.01)
 ;;00052-0273-01
 ;;9002226.02101,"544,00052-0273-01 ",.02)
 ;;00052-0273-01
 ;;9002226.02101,"544,00052-0273-03 ",.01)
 ;;00052-0273-03
 ;;9002226.02101,"544,00052-0273-03 ",.02)
 ;;00052-0273-03
 ;;9002226.02101,"544,00052-0274-01 ",.01)
 ;;00052-0274-01
 ;;9002226.02101,"544,00052-0274-01 ",.02)
 ;;00052-0274-01
 ;;9002226.02101,"544,00052-0283-06 ",.01)
 ;;00052-0283-06
 ;;9002226.02101,"544,00052-0283-06 ",.02)
 ;;00052-0283-06
 ;;9002226.02101,"544,00052-0283-08 ",.01)
 ;;00052-0283-08
 ;;9002226.02101,"544,00052-0283-08 ",.02)
 ;;00052-0283-08
 ;;9002226.02101,"544,00052-4330-01 ",.01)
 ;;00052-4330-01
 ;;9002226.02101,"544,00052-4330-01 ",.02)
 ;;00052-4330-01
 ;;9002226.02101,"544,00062-1251-00 ",.01)
 ;;00062-1251-00
 ;;9002226.02101,"544,00062-1251-00 ",.02)
 ;;00062-1251-00
 ;;9002226.02101,"544,00062-1251-15 ",.01)
 ;;00062-1251-15
 ;;9002226.02101,"544,00062-1251-15 ",.02)
 ;;00062-1251-15
 ;;9002226.02101,"544,00062-1332-20 ",.01)
 ;;00062-1332-20
 ;;9002226.02101,"544,00062-1332-20 ",.02)
 ;;00062-1332-20
 ;;9002226.02101,"544,00062-1411-16 ",.01)
 ;;00062-1411-16
 ;;9002226.02101,"544,00062-1411-16 ",.02)
 ;;00062-1411-16
 ;;9002226.02101,"544,00062-1411-23 ",.01)
 ;;00062-1411-23
 ;;9002226.02101,"544,00062-1411-23 ",.02)
 ;;00062-1411-23
 ;;9002226.02101,"544,00062-1901-20 ",.01)
 ;;00062-1901-20