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

BGP06T2.m

Go to the documentation of this file.
BGP06T2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"54868-3797-00 ")
 ;;394
 ;;21,"54868-3799-00 ")
 ;;395
 ;;21,"54868-3800-00 ")
 ;;396
 ;;21,"54868-3857-00 ")
 ;;397
 ;;21,"54868-4030-00 ")
 ;;398
 ;;21,"54868-4030-01 ")
 ;;399
 ;;21,"54868-4089-00 ")
 ;;400
 ;;21,"54868-4170-00 ")
 ;;401
 ;;21,"54868-4384-00 ")
 ;;402
 ;;21,"54868-4386-00 ")
 ;;403
 ;;21,"54868-4462-00 ")
 ;;404
 ;;21,"54868-4463-00 ")
 ;;405
 ;;21,"54868-4671-00 ")
 ;;406
 ;;21,"54868-4679-00 ")
 ;;407
 ;;21,"54868-4830-00 ")
 ;;408
 ;;21,"54868-5480-00 ")
 ;;409
 ;;21,"55289-0047-25 ")
 ;;410
 ;;21,"55289-0047-30 ")
 ;;411
 ;;21,"55289-0047-42 ")
 ;;412
 ;;21,"55289-0047-90 ")
 ;;413
 ;;21,"55289-0101-30 ")
 ;;414
 ;;21,"55289-0101-50 ")
 ;;415
 ;;21,"55289-0123-30 ")
 ;;416
 ;;21,"55289-0396-30 ")
 ;;417
 ;;21,"55289-0503-07 ")
 ;;418
 ;;21,"55289-0503-21 ")
 ;;419
 ;;21,"55289-0603-07 ")
 ;;420
 ;;21,"55289-0603-21 ")
 ;;421
 ;;21,"55289-0943-07 ")
 ;;422
 ;;21,"55289-0943-25 ")
 ;;423
 ;;21,"55289-0943-30 ")
 ;;424
 ;;21,"55553-0244-10 ")
 ;;425
 ;;21,"55553-0254-10 ")
 ;;426
 ;;21,"55887-0516-20 ")
 ;;427
 ;;21,"55887-0516-30 ")
 ;;428
 ;;21,"55887-0516-60 ")
 ;;429
 ;;21,"55887-0516-82 ")
 ;;430
 ;;21,"55887-0516-90 ")
 ;;431
 ;;21,"57866-6681-01 ")
 ;;432
 ;;21,"57866-6681-02 ")
 ;;433
 ;;21,"57866-6681-03 ")
 ;;434
 ;;21,"57866-6682-01 ")
 ;;435
 ;;21,"57866-7987-01 ")
 ;;436
 ;;21,"58016-0039-00 ")
 ;;437
 ;;21,"58016-0039-30 ")
 ;;438
 ;;21,"58016-0039-60 ")
 ;;439
 ;;21,"58016-0039-90 ")
 ;;440
 ;;21,"58016-0613-04 ")
 ;;441
 ;;21,"58016-0744-00 ")
 ;;442
 ;;21,"58016-0744-10 ")
 ;;443
 ;;21,"58016-0744-12 ")
 ;;444
 ;;21,"58016-0744-14 ")
 ;;445
 ;;21,"58016-0744-15 ")
 ;;446
 ;;21,"58016-0744-20 ")
 ;;447
 ;;21,"58016-0744-30 ")
 ;;448
 ;;21,"58016-0788-00 ")
 ;;449
 ;;21,"58016-0788-30 ")
 ;;450
 ;;21,"58016-0788-60 ")
 ;;451
 ;;21,"58016-0788-90 ")
 ;;452
 ;;21,"58016-0948-00 ")
 ;;453
 ;;21,"58016-0948-10 ")
 ;;454
 ;;21,"58016-0948-12 ")
 ;;455
 ;;21,"58016-0948-14 ")
 ;;456
 ;;21,"58016-0948-15 ")
 ;;457
 ;;21,"58016-0948-20 ")
 ;;458
 ;;21,"58016-0948-30 ")
 ;;459
 ;;21,"58016-0948-50 ")
 ;;460
 ;;21,"58016-0983-00 ")
 ;;461
 ;;21,"58016-0983-10 ")
 ;;462
 ;;21,"58016-0983-12 ")
 ;;463
 ;;21,"58016-0983-14 ")
 ;;464
 ;;21,"58016-0983-15 ")
 ;;465
 ;;21,"58016-0983-20 ")
 ;;466
 ;;21,"58016-0983-30 ")
 ;;467
 ;;21,"58016-3182-01 ")
 ;;468
 ;;21,"58016-4074-01 ")
 ;;469
 ;;21,"59772-0025-03 ")
 ;;470
 ;;21,"59772-0026-03 ")
 ;;471
 ;;21,"59772-0026-04 ")
 ;;472
 ;;21,"59772-0027-03 ")
 ;;473
 ;;21,"59772-0027-04 ")
 ;;474
 ;;21,"59911-5879-02 ")
 ;;475
 ;;21,"59911-5880-02 ")
 ;;476
 ;;21,"59911-5882-02 ")
 ;;477
 ;;21,"61570-0125-63 ")
 ;;478
 ;;21,"61570-0180-01 ")
 ;;479
 ;;21,"61570-0181-01 ")
 ;;480
 ;;21,"61570-0182-01 ")
 ;;481
 ;;21,"63874-0089-01 ")
 ;;482
 ;;21,"64248-0101-01 ")
 ;;483
 ;;21,"64248-0102-01 ")
 ;;484
 ;;21,"64248-0310-01 ")
 ;;485
 ;;21,"64248-0320-01 ")
 ;;486
 ;;21,"64248-0330-01 ")
 ;;487
 ;;21,"64248-0340-01 ")
 ;;488
 ;;21,"64248-0350-01 ")
 ;;489
 ;;21,"66116-0285-30 ")
 ;;490
 ;;21,"66500-0158-01 ")
 ;;491
 ;;21,"66500-0259-01 ")
 ;;492
 ;;21,"66500-0325-17 ")
 ;;493
 ;;21,"66500-0748-01 ")
 ;;494
 ;;21,"66500-0768-01 ")
 ;;495
 ;;21,"68115-0294-30 ")
 ;;496
 ;;21,"68115-0387-30 ")
 ;;497
 ;;21,"68115-0387-60 ")
 ;;498
 ;;21,"68115-0388-30 ")
 ;;499
 ;;21,"68115-0388-60 ")
 ;;500
 ;;21,"68115-0681-04 ")
 ;;501
 ;;21,"68115-0755-04 ")
 ;;502
 ;;21,"68115-0793-00 ")
 ;;503
 ;;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
 ;;9002226.02101,"368,00002-4165-30 ",.01)
 ;;00002-4165-30
 ;;9002226.02101,"368,00002-4165-30 ",.02)
 ;;00002-4165-30
 ;;9002226.02101,"368,00002-8971-01 ",.01)
 ;;00002-8971-01
 ;;9002226.02101,"368,00002-8971-01 ",.02)
 ;;00002-8971-01
 ;;9002226.02101,"368,00003-0251-50 ",.01)
 ;;00003-0251-50
 ;;9002226.02101,"368,00003-0251-50 ",.02)
 ;;00003-0251-50
 ;;9002226.02101,"368,00003-0251-51 ",.01)
 ;;00003-0251-51
 ;;9002226.02101,"368,00003-0251-51 ",.02)
 ;;00003-0251-51
 ;;9002226.02101,"368,00003-0330-50 ",.01)
 ;;00003-0330-50
 ;;9002226.02101,"368,00003-0330-50 ",.02)
 ;;00003-0330-50
 ;;9002226.02101,"368,00003-0330-52 ",.01)
 ;;00003-0330-52
 ;;9002226.02101,"368,00003-0330-52 ",.02)
 ;;00003-0330-52
 ;;9002226.02101,"368,00003-0343-50 ",.01)
 ;;00003-0343-50
 ;;9002226.02101,"368,00003-0343-50 ",.02)
 ;;00003-0343-50
 ;;9002226.02101,"368,00003-0343-51 ",.01)
 ;;00003-0343-51
 ;;9002226.02101,"368,00003-0343-51 ",.02)
 ;;00003-0343-51
 ;;9002226.02101,"368,00004-0185-23 ",.01)
 ;;00004-0185-23
 ;;9002226.02101,"368,00004-0185-23 ",.02)
 ;;00004-0185-23
 ;;9002226.02101,"368,00004-0186-82 ",.01)
 ;;00004-0186-82
 ;;9002226.02101,"368,00004-0186-82 ",.02)
 ;;00004-0186-82
 ;;9002226.02101,"368,00004-0188-09 ",.01)
 ;;00004-0188-09
 ;;9002226.02101,"368,00004-0188-09 ",.02)
 ;;00004-0188-09
 ;;9002226.02101,"368,00006-0031-21 ",.01)
 ;;00006-0031-21
 ;;9002226.02101,"368,00006-0031-21 ",.02)
 ;;00006-0031-21
 ;;9002226.02101,"368,00006-0031-44 ",.01)
 ;;00006-0031-44
 ;;9002226.02101,"368,00006-0031-44 ",.02)
 ;;00006-0031-44
 ;;9002226.02101,"368,00006-0077-21 ",.01)
 ;;00006-0077-21
 ;;9002226.02101,"368,00006-0077-21 ",.02)
 ;;00006-0077-21
 ;;9002226.02101,"368,00006-0077-44 ",.01)
 ;;00006-0077-44
 ;;9002226.02101,"368,00006-0077-44 ",.02)
 ;;00006-0077-44
 ;;9002226.02101,"368,00006-0212-31 ",.01)
 ;;00006-0212-31
 ;;9002226.02101,"368,00006-0212-31 ",.02)
 ;;00006-0212-31
 ;;9002226.02101,"368,00006-0710-21 ",.01)
 ;;00006-0710-21
 ;;9002226.02101,"368,00006-0710-21 ",.02)
 ;;00006-0710-21
 ;;9002226.02101,"368,00006-0710-44 ",.01)
 ;;00006-0710-44
 ;;9002226.02101,"368,00006-0710-44 ",.02)
 ;;00006-0710-44
 ;;9002226.02101,"368,00006-0925-31 ",.01)
 ;;00006-0925-31
 ;;9002226.02101,"368,00006-0925-31 ",.02)
 ;;00006-0925-31
 ;;9002226.02101,"368,00006-0925-58 ",.01)
 ;;00006-0925-58
 ;;9002226.02101,"368,00006-0925-58 ",.02)
 ;;00006-0925-58
 ;;9002226.02101,"368,00006-0936-28 ",.01)
 ;;00006-0936-28
 ;;9002226.02101,"368,00006-0936-28 ",.02)
 ;;00006-0936-28
 ;;9002226.02101,"368,00006-0936-31 ",.01)
 ;;00006-0936-31
 ;;9002226.02101,"368,00006-0936-31 ",.02)
 ;;00006-0936-31
 ;;9002226.02101,"368,00006-0936-58 ",.01)
 ;;00006-0936-58
 ;;9002226.02101,"368,00006-0936-58 ",.02)
 ;;00006-0936-58
 ;;9002226.02101,"368,00006-0936-72 ",.01)
 ;;00006-0936-72
 ;;9002226.02101,"368,00006-0936-72 ",.02)
 ;;00006-0936-72
 ;;9002226.02101,"368,00006-0936-82 ",.01)
 ;;00006-0936-82
 ;;9002226.02101,"368,00006-0936-82 ",.02)
 ;;00006-0936-82
 ;;9002226.02101,"368,00006-3833-34 ",.01)
 ;;00006-3833-34
 ;;9002226.02101,"368,00006-3833-34 ",.02)
 ;;00006-3833-34
 ;;9002226.02101,"368,00009-0271-01 ",.01)
 ;;00009-0271-01
 ;;9002226.02101,"368,00009-0271-01 ",.02)
 ;;00009-0271-01
 ;;9002226.02101,"368,00009-3772-01 ",.01)
 ;;00009-3772-01
 ;;9002226.02101,"368,00009-3772-01 ",.02)
 ;;00009-3772-01
 ;;9002226.02101,"368,00009-3772-17 ",.01)
 ;;00009-3772-17
 ;;9002226.02101,"368,00009-3772-17 ",.02)
 ;;00009-3772-17
 ;;9002226.02101,"368,00009-3773-01 ",.01)
 ;;00009-3773-01
 ;;9002226.02101,"368,00009-3773-01 ",.02)
 ;;00009-3773-01
 ;;9002226.02101,"368,00009-3773-17 ",.01)
 ;;00009-3773-17
 ;;9002226.02101,"368,00009-3773-17 ",.02)
 ;;00009-3773-17
 ;;9002226.02101,"368,00009-3774-01 ",.01)
 ;;00009-3774-01
 ;;9002226.02101,"368,00009-3774-01 ",.02)
 ;;00009-3774-01
 ;;9002226.02101,"368,00009-3774-17 ",.01)
 ;;00009-3774-17
 ;;9002226.02101,"368,00009-3774-17 ",.02)
 ;;00009-3774-17
 ;;9002226.02101,"368,00009-5174-01 ",.01)
 ;;00009-5174-01
 ;;9002226.02101,"368,00009-5174-01 ",.02)
 ;;00009-5174-01
 ;;9002226.02101,"368,00009-5174-02 ",.01)
 ;;00009-5174-02
 ;;9002226.02101,"368,00009-5174-02 ",.02)
 ;;00009-5174-02
 ;;9002226.02101,"368,00046-0864-81 ",.01)
 ;;00046-0864-81
 ;;9002226.02101,"368,00046-0864-81 ",.02)
 ;;00046-0864-81
 ;;9002226.02101,"368,00046-0865-81 ",.01)
 ;;00046-0865-81
 ;;9002226.02101,"368,00046-0865-81 ",.02)
 ;;00046-0865-81
 ;;9002226.02101,"368,00046-0865-91 ",.01)
 ;;00046-0865-91
 ;;9002226.02101,"368,00046-0865-91 ",.02)
 ;;00046-0865-91
 ;;9002226.02101,"368,00046-0866-81 ",.01)
 ;;00046-0866-81
 ;;9002226.02101,"368,00046-0866-81 ",.02)
 ;;00046-0866-81
 ;;9002226.02101,"368,00046-0866-91 ",.01)
 ;;00046-0866-91
 ;;9002226.02101,"368,00046-0866-91 ",.02)
 ;;00046-0866-91
 ;;9002226.02101,"368,00046-0866-95 ",.01)
 ;;00046-0866-95
 ;;9002226.02101,"368,00046-0866-95 ",.02)
 ;;00046-0866-95
 ;;9002226.02101,"368,00046-0866-99 ",.01)
 ;;00046-0866-99
 ;;9002226.02101,"368,00046-0866-99 ",.02)
 ;;00046-0866-99
 ;;9002226.02101,"368,00046-0867-81 ",.01)
 ;;00046-0867-81
 ;;9002226.02101,"368,00046-0867-81 ",.02)
 ;;00046-0867-81
 ;;9002226.02101,"368,00046-0867-91 ",.01)
 ;;00046-0867-91
 ;;9002226.02101,"368,00046-0867-91 ",.02)
 ;;00046-0867-91
 ;;9002226.02101,"368,00046-0867-95 ",.01)
 ;;00046-0867-95
 ;;9002226.02101,"368,00046-0867-95 ",.02)
 ;;00046-0867-95
 ;;9002226.02101,"368,00046-0867-99 ",.01)
 ;;00046-0867-99
 ;;9002226.02101,"368,00046-0867-99 ",.02)
 ;;00046-0867-99
 ;;9002226.02101,"368,00046-0868-81 ",.01)
 ;;00046-0868-81
 ;;9002226.02101,"368,00046-0868-81 ",.02)
 ;;00046-0868-81
 ;;9002226.02101,"368,00046-0868-91 ",.01)
 ;;00046-0868-91
 ;;9002226.02101,"368,00046-0868-91 ",.02)
 ;;00046-0868-91
 ;;9002226.02101,"368,00046-0875-01 ",.01)
 ;;00046-0875-01
 ;;9002226.02101,"368,00046-0875-01 ",.02)
 ;;00046-0875-01
 ;;9002226.02101,"368,00046-0875-05 ",.01)
 ;;00046-0875-05
 ;;9002226.02101,"368,00046-0875-05 ",.02)
 ;;00046-0875-05
 ;;9002226.02101,"368,00046-0875-06 ",.01)
 ;;00046-0875-06
 ;;9002226.02101,"368,00046-0875-06 ",.02)
 ;;00046-0875-06
 ;;9002226.02101,"368,00046-0936-81 ",.01)
 ;;00046-0936-81
 ;;9002226.02101,"368,00046-0936-81 ",.02)
 ;;00046-0936-81
 ;;9002226.02101,"368,00046-0937-09 ",.01)
 ;;00046-0937-09
 ;;9002226.02101,"368,00046-0937-09 ",.02)
 ;;00046-0937-09
 ;;9002226.02101,"368,00046-0938-08 ",.01)
 ;;00046-0938-08
 ;;9002226.02101,"368,00046-0938-08 ",.02)
 ;;00046-0938-08
 ;;9002226.02101,"368,00046-0938-09 ",.01)
 ;;00046-0938-09
 ;;9002226.02101,"368,00046-0938-09 ",.02)
 ;;00046-0938-09
 ;;9002226.02101,"368,00046-0975-05 ",.01)
 ;;00046-0975-05
 ;;9002226.02101,"368,00046-0975-05 ",.02)
 ;;00046-0975-05
 ;;9002226.02101,"368,00046-0975-06 ",.01)
 ;;00046-0975-06
 ;;9002226.02101,"368,00046-0975-06 ",.02)
 ;;00046-0975-06
 ;;9002226.02101,"368,00046-1100-81 ",.01)
 ;;00046-1100-81
 ;;9002226.02101,"368,00046-1100-81 ",.02)
 ;;00046-1100-81
 ;;9002226.02101,"368,00046-1100-91 ",.01)
 ;;00046-1100-91
 ;;9002226.02101,"368,00046-1100-91 ",.02)
 ;;00046-1100-91
 ;;9002226.02101,"368,00046-1101-81 ",.01)
 ;;00046-1101-81
 ;;9002226.02101,"368,00046-1101-81 ",.02)
 ;;00046-1101-81
 ;;9002226.02101,"368,00046-1102-81 ",.01)
 ;;00046-1102-81
 ;;9002226.02101,"368,00046-1102-81 ",.02)
 ;;00046-1102-81
 ;;9002226.02101,"368,00046-1102-91 ",.01)
 ;;00046-1102-91
 ;;9002226.02101,"368,00046-1102-91 ",.02)
 ;;00046-1102-91
 ;;9002226.02101,"368,00046-1103-81 ",.01)
 ;;00046-1103-81
 ;;9002226.02101,"368,00046-1103-81 ",.02)
 ;;00046-1103-81
 ;;9002226.02101,"368,00046-1104-81 ",.01)
 ;;00046-1104-81
 ;;9002226.02101,"368,00046-1104-81 ",.02)
 ;;00046-1104-81
 ;;9002226.02101,"368,00046-1104-91 ",.01)
 ;;00046-1104-91
 ;;9002226.02101,"368,00046-1104-91 ",.02)
 ;;00046-1104-91
 ;;9002226.02101,"368,00046-2572-01 ",.01)
 ;;00046-2572-01
 ;;9002226.02101,"368,00046-2572-01 ",.02)
 ;;00046-2572-01
 ;;9002226.02101,"368,00046-2573-01 ",.01)
 ;;00046-2573-01
 ;;9002226.02101,"368,00046-2573-01 ",.02)
 ;;00046-2573-01
 ;;9002226.02101,"368,00046-2573-05 ",.01)
 ;;00046-2573-05
 ;;9002226.02101,"368,00046-2573-05 ",.02)
 ;;00046-2573-05
 ;;9002226.02101,"368,00046-2573-06 ",.01)
 ;;00046-2573-06
 ;;9002226.02101,"368,00046-2573-06 ",.02)
 ;;00046-2573-06
 ;;9002226.02101,"368,00046-3867-81 ",.01)
 ;;00046-3867-81
 ;;9002226.02101,"368,00046-3867-81 ",.02)
 ;;00046-3867-81
 ;;9002226.02101,"368,00051-1028-58 ",.01)
 ;;00051-1028-58
 ;;9002226.02101,"368,00051-1028-58 ",.02)
 ;;00051-1028-58
 ;;9002226.02101,"368,00062-1800-01 ",.01)
 ;;00062-1800-01
 ;;9002226.02101,"368,00062-1800-01 ",.02)
 ;;00062-1800-01
 ;;9002226.02101,"368,00062-1840-01 ",.01)
 ;;00062-1840-01
 ;;9002226.02101,"368,00062-1840-01 ",.02)
 ;;00062-1840-01
 ;;9002226.02101,"368,00062-1840-15 ",.01)
 ;;00062-1840-15
 ;;9002226.02101,"368,00062-1840-15 ",.02)
 ;;00062-1840-15
 ;;9002226.02101,"368,00070-4492-01 ",.01)
 ;;00070-4492-01
 ;;9002226.02101,"368,00070-4492-01 ",.02)
 ;;00070-4492-01