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