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

BGP8ZM2.m

Go to the documentation of this file.
BGP8ZM2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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-0091-58 ")
 ;;340
 ;;21,"51285-0092-87 ")
 ;;341
 ;;21,"51285-0114-58 ")
 ;;342
 ;;21,"51285-0120-58 ")
 ;;343
 ;;21,"51285-0125-70 ")
 ;;344
 ;;21,"51285-0126-98 ")
 ;;345
 ;;21,"51285-0127-97 ")
 ;;346
 ;;21,"51285-0128-70 ")
 ;;347
 ;;21,"51285-0129-98 ")
 ;;348
 ;;21,"51285-0131-97 ")
 ;;349
 ;;21,"51285-0146-19 ")
 ;;350
 ;;21,"51285-0162-88 ")
 ;;351
 ;;21,"51285-0431-65 ")
 ;;352
 ;;21,"51285-0431-87 ")
 ;;353
 ;;21,"51285-0546-28 ")
 ;;354
 ;;21,"51285-0942-88 ")
 ;;355
 ;;21,"51285-0943-88 ")
 ;;356
 ;;21,"51285-0963-19 ")
 ;;357
 ;;21,"51660-0127-86 ")
 ;;358
 ;;21,"51660-0572-86 ")
 ;;359
 ;;21,"51862-0007-06 ")
 ;;360
 ;;21,"51862-0012-06 ")
 ;;361
 ;;21,"51862-0028-06 ")
 ;;362
 ;;21,"51862-0036-03 ")
 ;;363
 ;;21,"51862-0045-91 ")
 ;;364
 ;;21,"51862-0047-91 ")
 ;;365
 ;;21,"51862-0072-01 ")
 ;;366
 ;;21,"51862-0072-06 ")
 ;;367
 ;;21,"51862-0097-06 ")
 ;;368
 ;;21,"51862-0100-01 ")
 ;;369
 ;;21,"51862-0100-06 ")
 ;;370
 ;;21,"51862-0102-06 ")
 ;;371
 ;;21,"51862-0238-03 ")
 ;;372
 ;;21,"51862-0260-06 ")
 ;;373
 ;;21,"51862-0279-06 ")
 ;;374
 ;;21,"51862-0284-03 ")
 ;;375
 ;;21,"51862-0292-06 ")
 ;;376
 ;;21,"51862-0318-03 ")
 ;;377
 ;;21,"51862-0470-06 ")
 ;;378
 ;;21,"51862-0471-01 ")
 ;;379
 ;;21,"51862-0471-06 ")
 ;;380
 ;;21,"51862-0510-06 ")
 ;;381
 ;;21,"51862-0545-06 ")
 ;;382
 ;;21,"51862-0564-06 ")
 ;;383
 ;;21,"52544-0035-54 ")
 ;;384
 ;;21,"52544-0054-31 ")
 ;;385
 ;;21,"52544-0058-41 ")
 ;;386
 ;;21,"52544-0058-72 ")
 ;;387
 ;;21,"52544-0064-31 ")
 ;;388
 ;;21,"52544-0065-54 ")
 ;;389
 ;;21,"52544-0087-28 ")
 ;;390
 ;;21,"52544-0087-41 ")
 ;;391
 ;;21,"52544-0143-31 ")
 ;;392
 ;;21,"52544-0165-28 ")
 ;;393
 ;;21,"52544-0167-31 ")
 ;;394
 ;;21,"52544-0204-31 ")
 ;;395
 ;;21,"52544-0219-28 ")
 ;;396
 ;;21,"52544-0228-29 ")
 ;;397
 ;;21,"52544-0233-28 ")
 ;;398
 ;;21,"52544-0235-28 ")
 ;;399
 ;;21,"52544-0245-31 ")
 ;;400
 ;;21,"52544-0247-28 ")
 ;;401
 ;;21,"52544-0248-28 ")
 ;;402
 ;;21,"52544-0249-28 ")
 ;;403
 ;;21,"52544-0254-28 ")
 ;;404
 ;;21,"52544-0259-28 ")
 ;;405
 ;;21,"52544-0259-88 ")
 ;;406
 ;;21,"52544-0265-31 ")
 ;;407
 ;;21,"52544-0268-29 ")
 ;;408
 ;;21,"52544-0268-84 ")
 ;;409
 ;;21,"52544-0274-28 ")
 ;;410
 ;;21,"52544-0275-36 ")
 ;;411
 ;;21,"52544-0276-21 ")
 ;;412
 ;;21,"52544-0279-28 ")
 ;;413
 ;;21,"52544-0287-54 ")
 ;;414
 ;;21,"52544-0290-21 ")
 ;;415
 ;;21,"52544-0291-28 ")
 ;;416
 ;;21,"52544-0292-31 ")
 ;;417
 ;;21,"52544-0292-41 ")
 ;;418
 ;;21,"52544-0298-31 ")
 ;;419
 ;;21,"52544-0383-28 ")
 ;;420
 ;;21,"52544-0384-28 ")
 ;;421
 ;;21,"52544-0550-28 ")
 ;;422
 ;;21,"52544-0552-28 ")
 ;;423
 ;;21,"52544-0554-28 ")
 ;;424
 ;;21,"52544-0629-28 ")
 ;;425
 ;;21,"52544-0630-28 ")
 ;;426
 ;;21,"52544-0631-28 ")
 ;;427
 ;;21,"52544-0847-28 ")
 ;;428
 ;;21,"52544-0848-28 ")
 ;;429
 ;;21,"52544-0892-28 ")
 ;;430
 ;;21,"52544-0936-28 ")
 ;;431
 ;;21,"52544-0940-28 ")
 ;;432
 ;;21,"52544-0949-28 ")
 ;;433
 ;;21,"52544-0950-21 ")
 ;;434
 ;;21,"52544-0951-21 ")
 ;;435
 ;;21,"52544-0953-28 ")
 ;;436
 ;;21,"52544-0954-28 ")
 ;;437
 ;;21,"52544-0959-31 ")
 ;;438
 ;;21,"52544-0966-91 ")
 ;;439
 ;;21,"52544-0967-28 ")
 ;;440
 ;;21,"52544-0981-31 ")
 ;;441
 ;;21,"52544-0982-31 ")
 ;;442
 ;;21,"52925-0112-01 ")
 ;;443
 ;;21,"52925-0112-02 ")
 ;;444
 ;;21,"52925-0112-03 ")
 ;;445
 ;;21,"52925-0312-14 ")
 ;;446
 ;;21,"52959-0450-02 ")
 ;;447
 ;;21,"54569-0679-00 ")
 ;;448
 ;;21,"54569-0685-00 ")
 ;;449
 ;;21,"54569-0685-01 ")
 ;;450
 ;;21,"54569-0689-00 ")
 ;;451
 ;;21,"54569-0689-01 ")
 ;;452
 ;;21,"54569-3701-00 ")
 ;;453
 ;;21,"54569-3844-00 ")
 ;;454
 ;;21,"54569-4222-00 ")
 ;;455
 ;;21,"54569-4273-01 ")
 ;;456
 ;;21,"54569-4817-00 ")
 ;;457
 ;;21,"54569-4878-01 ")
 ;;458
 ;;21,"54569-4904-00 ")
 ;;459
 ;;21,"54569-4997-00 ")
 ;;460
 ;;21,"54569-4998-00 ")
 ;;461
 ;;21,"54569-5349-00 ")
 ;;462
 ;;21,"54569-5493-00 ")
 ;;463
 ;;21,"54569-5493-02 ")
 ;;464
 ;;21,"54569-5527-00 ")
 ;;465
 ;;21,"54569-5796-00 ")
 ;;466
 ;;21,"54569-5797-00 ")
 ;;467
 ;;21,"54569-5798-00 ")
 ;;468
 ;;21,"54569-5816-00 ")
 ;;469
 ;;21,"54569-5826-00 ")
 ;;470
 ;;21,"54569-5865-00 ")
 ;;471
 ;;21,"54569-6032-00 ")
 ;;472
 ;;21,"54569-6128-00 ")
 ;;473
 ;;21,"54569-6144-00 ")
 ;;474
 ;;21,"54569-6145-00 ")
 ;;475
 ;;21,"54569-6219-00 ")
 ;;476
 ;;21,"54569-6272-00 ")
 ;;477
 ;;21,"54569-6280-00 ")
 ;;478
 ;;21,"54569-6281-00 ")
 ;;479
 ;;21,"54868-0443-00 ")
 ;;480
 ;;21,"54868-0507-00 ")
 ;;481
 ;;21,"54868-0508-01 ")
 ;;482
 ;;21,"54868-0509-01 ")
 ;;483
 ;;21,"54868-0516-00 ")
 ;;484
 ;;21,"54868-1564-00 ")
 ;;485
 ;;21,"54868-2316-00 ")
 ;;486
 ;;21,"54868-2701-00 ")
 ;;487
 ;;21,"54868-4093-00 ")
 ;;488
 ;;21,"54868-4239-00 ")
 ;;489
 ;;21,"54868-4369-00 ")
 ;;490
 ;;21,"54868-4538-00 ")
 ;;491
 ;;21,"54868-4590-00 ")
 ;;492
 ;;21,"54868-4607-00 ")
 ;;493
 ;;21,"54868-4730-00 ")
 ;;494
 ;;21,"54868-4731-00 ")
 ;;495
 ;;21,"54868-4742-00 ")
 ;;496
 ;;21,"54868-4745-00 ")
 ;;497
 ;;21,"54868-4754-00 ")
 ;;498
 ;;21,"54868-4776-00 ")
 ;;499
 ;;21,"54868-4814-00 ")
 ;;500
 ;;21,"54868-4828-00 ")
 ;;501
 ;;21,"54868-4832-01 ")
 ;;502
 ;;21,"54868-4851-00 ")
 ;;503
 ;;21,"54868-4860-00 ")
 ;;504
 ;;21,"54868-5028-00 ")
 ;;505
 ;;21,"54868-5257-00 ")
 ;;506
 ;;21,"54868-5286-00 ")
 ;;507
 ;;21,"54868-5326-00 ")
 ;;508
 ;;21,"54868-5356-00 ")
 ;;509
 ;;21,"54868-5826-00 ")
 ;;510
 ;;21,"54868-5828-00 ")
 ;;511
 ;;21,"54868-5942-00 ")
 ;;512
 ;;21,"55045-3497-01 ")
 ;;513
 ;;21,"55045-3498-01 ")
 ;;514
 ;;21,"55045-3505-01 ")
 ;;515
 ;;21,"55289-0247-08 ")
 ;;516
 ;;21,"55289-0887-04 ")
 ;;517
 ;;21,"55887-0052-28 ")
 ;;518
 ;;21,"59762-4537-01 ")
 ;;519
 ;;21,"59762-4537-02 ")
 ;;520
 ;;21,"59762-4538-02 ")
 ;;521
 ;;21,"59762-4538-09 ")
 ;;522
 ;;21,"62756-0718-60 ")
 ;;523
 ;;21,"63704-0020-01 ")
 ;;524
 ;;21,"64679-0050-02 ")
 ;;525
 ;;21,"65162-0316-84 ")
 ;;526
 ;;21,"65162-0347-84 ")
 ;;527
 ;;21,"68180-0837-11 ")
 ;;528
 ;;21,"68180-0837-13 ")
 ;;529
 ;;21,"68180-0838-11 ")
 ;;530
 ;;21,"68180-0838-13 ")
 ;;531
 ;;21,"68180-0840-11 ")
 ;;532
 ;;21,"68180-0840-13 ")
 ;;533
 ;;21,"68180-0843-13 ")
 ;;534
 ;;21,"68180-0844-13 ")
 ;;535
 ;;21,"68180-0846-13 ")
 ;;536
 ;;21,"68180-0848-13 ")
 ;;537
 ;;21,"68180-0852-11 ")
 ;;538
 ;;21,"68180-0852-12 ")
 ;;539
 ;;21,"68180-0853-13 ")
 ;;540
 ;;21,"68180-0854-13 ")
 ;;541
 ;;21,"68180-0860-11 ")
 ;;542
 ;;21,"68180-0860-12 ")
 ;;543
 ;;21,"68180-0864-11 ")
 ;;544
 ;;21,"68180-0864-13 ")
 ;;545
 ;;21,"68180-0865-11 ")
 ;;546
 ;;21,"68180-0865-13 ")
 ;;547
 ;;21,"68180-0866-11 ")
 ;;548
 ;;21,"68180-0866-13 ")
 ;;549
 ;;21,"68180-0873-13 ")
 ;;550
 ;;21,"68180-0875-13 ")
 ;;551
 ;;21,"68180-0876-11 ")
 ;;552
 ;;21,"68180-0876-13 ")
 ;;553
 ;;21,"68180-0877-11 ")
 ;;554
 ;;21,"68180-0877-13 ")
 ;;555
 ;;21,"68180-0882-13 ")
 ;;556
 ;;21,"68180-0886-13 ")
 ;;557
 ;;21,"68180-0892-11 ")
 ;;558
 ;;21,"68180-0892-13 ")
 ;;559
 ;;21,"68180-0893-11 ")
 ;;560
 ;;21,"68180-0893-13 ")
 ;;561
 ;;21,"68180-0897-13 ")
 ;;562
 ;;21,"68180-0898-13 ")
 ;;563
 ;;21,"68180-0899-13 ")
 ;;564
 ;;21,"68180-0902-13 ")
 ;;565
 ;;21,"68180-0903-13 ")
 ;;566
 ;;21,"68180-0911-11 ")
 ;;567
 ;;21,"68180-0911-13 ")
 ;;568
 ;;21,"68462-0123-40 ")
 ;;569
 ;;21,"68462-0132-79 ")
 ;;570
 ;;21,"68462-0132-81 ")
 ;;571
 ;;21,"68462-0303-29 ")
 ;;572
 ;;21,"68462-0303-84 ")
 ;;573
 ;;21,"68462-0305-29 ")
 ;;574
 ;;21,"68462-0305-84 ")
 ;;575
 ;;21,"68462-0309-29 ")
 ;;576
 ;;21,"68462-0309-84 ")
 ;;577
 ;;21,"68462-0316-29 ")
 ;;578
 ;;21,"68462-0316-84 ")
 ;;579
 ;;21,"68462-0318-29 ")
 ;;580
 ;;21,"68462-0318-84 ")
 ;;581
 ;;21,"68462-0388-29 ")
 ;;582
 ;;21,"68462-0388-84 ")
 ;;583
 ;;21,"68462-0394-29 ")
 ;;584
 ;;21,"68462-0394-84 ")
 ;;585
 ;;21,"68462-0556-29 ")
 ;;586
 ;;21,"68462-0556-84 ")
 ;;587
 ;;21,"68462-0565-29 ")
 ;;588
 ;;21,"68462-0637-29 ")
 ;;589
 ;;21,"68462-0637-84 ")
 ;;590
 ;;21,"68462-0646-91 ")
 ;;591
 ;;21,"68462-0646-93 ")
 ;;592
 ;;21,"68462-0672-91 ")
 ;;593
 ;;21,"68462-0672-95 ")
 ;;594
 ;;21,"68462-0719-29 ")
 ;;595
 ;;21,"68462-0719-84 ")
 ;;596
 ;;21,"68462-0720-29 ")
 ;;597
 ;;21,"68462-0720-84 ")
 ;;598
 ;;21,"68462-0733-29 ")
 ;;599
 ;;21,"68462-0733-84 ")
 ;;600
 ;;21,"69238-1531-06 ")
 ;;601
 ;;21,"69238-1551-06 ")
 ;;602
 ;;21,"69238-1583-06 ")
 ;;603
 ;;21,"69238-1607-06 ")
 ;;604
 ;;21,"75854-0601-01 ")
 ;;605
 ;;21,"76388-0283-01 ")
 ;;606
 ;;9002226,544,.01)
 ;;BGP HEDIS CONTRACEPTION NDC
 ;;9002226,544,.02)
 ;;@
 ;;9002226,544,.04)
 ;;@
 ;;9002226,544,.06)
 ;;@
 ;;9002226,544,.08)
 ;;@
 ;;9002226,544,.09)
 ;;3180122
 ;;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-2535-05 ",.01)
 ;;00008-2535-05
 ;;9002226.02101,"544,00008-2535-05 ",.02)
 ;;00008-2535-05
 ;;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-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,00023-5858-01 ",.01)
 ;;00023-5858-01
 ;;9002226.02101,"544,00023-5858-01 ",.02)
 ;;00023-5858-01
 ;;9002226.02101,"544,00023-5862-28 ",.01)
 ;;00023-5862-28
 ;;9002226.02101,"544,00023-5862-28 ",.02)
 ;;00023-5862-28
 ;;9002226.02101,"544,00023-5862-30 ",.01)
 ;;00023-5862-30
 ;;9002226.02101,"544,00023-5862-30 ",.02)
 ;;00023-5862-30
 ;;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