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

BGP31P10.m

Go to the documentation of this file.
BGP31P10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"68115-0054-06 ")
 ;;3497
 ;;21,"68115-0054-12 ")
 ;;3498
 ;;21,"68115-0054-30 ")
 ;;3499
 ;;21,"68115-0054-40 ")
 ;;3500
 ;;21,"68115-0054-50 ")
 ;;3501
 ;;21,"68115-0054-60 ")
 ;;3502
 ;;21,"68115-0055-30 ")
 ;;3503
 ;;21,"68115-0056-30 ")
 ;;3504
 ;;21,"68115-0057-00 ")
 ;;3505
 ;;21,"68115-0057-15 ")
 ;;3506
 ;;21,"68115-0124-00 ")
 ;;3507
 ;;21,"68115-0124-30 ")
 ;;3508
 ;;21,"68115-0124-60 ")
 ;;3509
 ;;21,"68115-0124-90 ")
 ;;3510
 ;;21,"68115-0402-30 ")
 ;;3511
 ;;21,"68115-0402-60 ")
 ;;3512
 ;;21,"68115-0430-30 ")
 ;;3513
 ;;21,"68115-0439-30 ")
 ;;3514
 ;;21,"68115-0439-60 ")
 ;;3515
 ;;21,"68115-0499-48 ")
 ;;3516
 ;;21,"68115-0624-00 ")
 ;;3517
 ;;21,"68115-0627-00 ")
 ;;3518
 ;;21,"68115-0679-00 ")
 ;;3519
 ;;21,"68115-0689-00 ")
 ;;3520
 ;;21,"68115-0764-00 ")
 ;;3521
 ;;21,"68115-0830-00 ")
 ;;3522
 ;;21,"68115-0833-00 ")
 ;;3523
 ;;21,"68115-0844-00 ")
 ;;3524
 ;;21,"68115-0859-00 ")
 ;;3525
 ;;21,"68115-0897-04 ")
 ;;3526
 ;;21,"68180-0311-01 ")
 ;;3527
 ;;21,"68180-0312-01 ")
 ;;3528
 ;;21,"68180-0313-01 ")
 ;;3529
 ;;21,"68180-0314-06 ")
 ;;3530
 ;;21,"68180-0315-06 ")
 ;;3531
 ;;21,"68180-0316-06 ")
 ;;3532
 ;;21,"68180-0317-06 ")
 ;;3533
 ;;21,"68258-1061-01 ")
 ;;3534
 ;;21,"68258-2012-09 ")
 ;;3535
 ;;21,"68258-4993-01 ")
 ;;3536
 ;;21,"68258-7048-03 ")
 ;;3537
 ;;21,"68258-7049-03 ")
 ;;3538
 ;;21,"68258-7083-01 ")
 ;;3539
 ;;21,"68258-7083-02 ")
 ;;3540
 ;;21,"68258-7083-03 ")
 ;;3541
 ;;21,"68258-7083-06 ")
 ;;3542
 ;;21,"68258-7119-09 ")
 ;;3543
 ;;21,"68258-7125-06 ")
 ;;3544
 ;;21,"68258-7145-03 ")
 ;;3545
 ;;21,"68258-9148-01 ")
 ;;3546
 ;;21,"68258-9149-01 ")
 ;;3547
 ;;21,"68387-0335-15 ")
 ;;3548
 ;;21,"68387-0335-24 ")
 ;;3549
 ;;21,"68387-0335-30 ")
 ;;3550
 ;;21,"68387-0335-60 ")
 ;;3551
 ;;21,"68387-0335-90 ")
 ;;3552
 ;;21,"68387-0336-30 ")
 ;;3553
 ;;21,"68387-0336-90 ")
 ;;3554
 ;;21,"68387-0337-24 ")
 ;;3555
 ;;21,"68387-0337-30 ")
 ;;3556
 ;;21,"68387-0338-30 ")
 ;;3557
 ;;21,"68387-0339-30 ")
 ;;3558
 ;;21,"68387-0485-15 ")
 ;;3559
 ;;21,"68387-0485-30 ")
 ;;3560
 ;;21,"68387-0486-15 ")
 ;;3561
 ;;21,"68387-0486-30 ")
 ;;3562
 ;;21,"68387-0487-30 ")
 ;;3563
 ;;21,"68387-0520-12 ")
 ;;3564
 ;;21,"68387-0520-20 ")
 ;;3565
 ;;21,"68387-0520-30 ")
 ;;3566
 ;;21,"68387-0520-60 ")
 ;;3567
 ;;21,"68387-0520-90 ")
 ;;3568
 ;;21,"68453-0074-10 ")
 ;;3569
 ;;21,"68453-0170-10 ")
 ;;3570
 ;;21,"68462-0279-01 ")
 ;;3571
 ;;21,"68462-0279-05 ")
 ;;3572
 ;;21,"68462-0280-01 ")
 ;;3573
 ;;21,"68462-0280-05 ")
 ;;3574
 ;;21,"68645-0230-59 ")
 ;;3575
 ;;21,"76478-0501-20 ")
 ;;3576
 ;;21,"76478-0501-50 ")
 ;;3577
 ;;9002226,730,.01)
 ;;BGP HEDIS CENTRAL NERVOUS NDC
 ;;9002226,730,.02)
 ;;@
 ;;9002226,730,.04)
 ;;n
 ;;9002226,730,.06)
 ;;@
 ;;9002226,730,.08)
 ;;@
 ;;9002226,730,.09)
 ;;3120829
 ;;9002226,730,.11)
 ;;@
 ;;9002226,730,.12)
 ;;@
 ;;9002226,730,.13)
 ;;1
 ;;9002226,730,.14)
 ;;@
 ;;9002226,730,.15)
 ;;50.67
 ;;9002226,730,.16)
 ;;@
 ;;9002226,730,.17)
 ;;@
 ;;9002226,730,3101)
 ;;@
 ;;9002226.02101,"730,00008-0091-02 ",.01)
 ;;00008-0091-02
 ;;9002226.02101,"730,00008-0091-02 ",.02)
 ;;00008-0091-02
 ;;9002226.02101,"730,00008-0304-01 ",.01)
 ;;00008-0304-01
 ;;9002226.02101,"730,00008-0304-01 ",.02)
 ;;00008-0304-01
 ;;9002226.02101,"730,00008-0925-81 ",.01)
 ;;00008-0925-81
 ;;9002226.02101,"730,00008-0925-81 ",.02)
 ;;00008-0925-81
 ;;9002226.02101,"730,00008-0926-81 ",.01)
 ;;00008-0926-81
 ;;9002226.02101,"730,00008-0926-81 ",.02)
 ;;00008-0926-81
 ;;9002226.02101,"730,00024-1231-05 ",.01)
 ;;00024-1231-05
 ;;9002226.02101,"730,00024-1231-05 ",.02)
 ;;00024-1231-05
 ;;9002226.02101,"730,00024-1232-05 ",.01)
 ;;00024-1232-05
 ;;9002226.02101,"730,00024-1232-05 ",.02)
 ;;00024-1232-05
 ;;9002226.02101,"730,00024-1233-05 ",.01)
 ;;00024-1233-05
 ;;9002226.02101,"730,00024-1233-05 ",.02)
 ;;00024-1233-05
 ;;9002226.02101,"730,00024-5401-10 ",.01)
 ;;00024-5401-10
 ;;9002226.02101,"730,00024-5401-10 ",.02)
 ;;00024-5401-10
 ;;9002226.02101,"730,00024-5401-31 ",.01)
 ;;00024-5401-31
 ;;9002226.02101,"730,00024-5401-31 ",.02)
 ;;00024-5401-31
 ;;9002226.02101,"730,00024-5401-34 ",.01)
 ;;00024-5401-34
 ;;9002226.02101,"730,00024-5401-34 ",.02)
 ;;00024-5401-34
 ;;9002226.02101,"730,00024-5401-50 ",.01)
 ;;00024-5401-50
 ;;9002226.02101,"730,00024-5401-50 ",.02)
 ;;00024-5401-50
 ;;9002226.02101,"730,00024-5421-10 ",.01)
 ;;00024-5421-10
 ;;9002226.02101,"730,00024-5421-10 ",.02)
 ;;00024-5421-10
 ;;9002226.02101,"730,00024-5421-31 ",.01)
 ;;00024-5421-31
 ;;9002226.02101,"730,00024-5421-31 ",.02)
 ;;00024-5421-31
 ;;9002226.02101,"730,00024-5421-34 ",.01)
 ;;00024-5421-34
 ;;9002226.02101,"730,00024-5421-34 ",.02)
 ;;00024-5421-34
 ;;9002226.02101,"730,00024-5421-50 ",.01)
 ;;00024-5421-50
 ;;9002226.02101,"730,00024-5421-50 ",.02)
 ;;00024-5421-50
 ;;9002226.02101,"730,00024-5501-10 ",.01)
 ;;00024-5501-10
 ;;9002226.02101,"730,00024-5501-10 ",.02)
 ;;00024-5501-10
 ;;9002226.02101,"730,00024-5501-31 ",.01)
 ;;00024-5501-31
 ;;9002226.02101,"730,00024-5501-31 ",.02)
 ;;00024-5501-31
 ;;9002226.02101,"730,00024-5501-34 ",.01)
 ;;00024-5501-34
 ;;9002226.02101,"730,00024-5501-34 ",.02)
 ;;00024-5501-34
 ;;9002226.02101,"730,00024-5501-50 ",.01)
 ;;00024-5501-50
 ;;9002226.02101,"730,00024-5501-50 ",.02)
 ;;00024-5501-50
 ;;9002226.02101,"730,00024-5521-10 ",.01)
 ;;00024-5521-10
 ;;9002226.02101,"730,00024-5521-10 ",.02)
 ;;00024-5521-10
 ;;9002226.02101,"730,00024-5521-31 ",.01)
 ;;00024-5521-31
 ;;9002226.02101,"730,00024-5521-31 ",.02)
 ;;00024-5521-31
 ;;9002226.02101,"730,00024-5521-34 ",.01)
 ;;00024-5521-34
 ;;9002226.02101,"730,00024-5521-34 ",.02)
 ;;00024-5521-34
 ;;9002226.02101,"730,00024-5521-50 ",.01)
 ;;00024-5521-50
 ;;9002226.02101,"730,00024-5521-50 ",.02)
 ;;00024-5521-50
 ;;9002226.02101,"730,00025-5401-34 ",.01)
 ;;00025-5401-34
 ;;9002226.02101,"730,00025-5401-34 ",.02)
 ;;00025-5401-34
 ;;9002226.02101,"730,00025-5421-34 ",.01)
 ;;00025-5421-34
 ;;9002226.02101,"730,00025-5421-34 ",.02)
 ;;00025-5421-34
 ;;9002226.02101,"730,00028-0020-01 ",.01)
 ;;00028-0020-01
 ;;9002226.02101,"730,00028-0020-01 ",.02)
 ;;00028-0020-01
 ;;9002226.02101,"730,00028-0020-26 ",.01)
 ;;00028-0020-26
 ;;9002226.02101,"730,00028-0020-26 ",.02)
 ;;00028-0020-26
 ;;9002226.02101,"730,00028-0032-01 ",.01)
 ;;00028-0032-01
 ;;9002226.02101,"730,00028-0032-01 ",.02)
 ;;00028-0032-01
 ;;9002226.02101,"730,00028-0040-01 ",.01)
 ;;00028-0040-01
 ;;9002226.02101,"730,00028-0040-01 ",.02)
 ;;00028-0040-01
 ;;9002226.02101,"730,00028-0040-26 ",.01)
 ;;00028-0040-26
 ;;9002226.02101,"730,00028-0040-26 ",.02)
 ;;00028-0040-26
 ;;9002226.02101,"730,00028-0045-01 ",.01)
 ;;00028-0045-01
 ;;9002226.02101,"730,00028-0045-01 ",.02)
 ;;00028-0045-01
 ;;9002226.02101,"730,00028-0136-01 ",.01)
 ;;00028-0136-01
 ;;9002226.02101,"730,00028-0136-01 ",.02)
 ;;00028-0136-01
 ;;9002226.02101,"730,00028-0140-01 ",.01)
 ;;00028-0140-01
 ;;9002226.02101,"730,00028-0140-01 ",.02)
 ;;00028-0140-01
 ;;9002226.02101,"730,00037-0110-16 ",.01)
 ;;00037-0110-16
 ;;9002226.02101,"730,00037-0110-16 ",.02)
 ;;00037-0110-16
 ;;9002226.02101,"730,00037-0113-60 ",.01)
 ;;00037-0113-60
 ;;9002226.02101,"730,00037-0113-60 ",.02)
 ;;00037-0113-60
 ;;9002226.02101,"730,00037-0113-80 ",.01)
 ;;00037-0113-80
 ;;9002226.02101,"730,00037-0113-80 ",.02)
 ;;00037-0113-80
 ;;9002226.02101,"730,00037-0114-60 ",.01)
 ;;00037-0114-60
 ;;9002226.02101,"730,00037-0114-60 ",.02)
 ;;00037-0114-60
 ;;9002226.02101,"730,00037-0120-01 ",.01)
 ;;00037-0120-01
 ;;9002226.02101,"730,00037-0120-01 ",.02)
 ;;00037-0120-01
 ;;9002226.02101,"730,00037-0301-92 ",.01)
 ;;00037-0301-92
 ;;9002226.02101,"730,00037-0301-92 ",.02)
 ;;00037-0301-92
 ;;9002226.02101,"730,00037-1001-01 ",.01)
 ;;00037-1001-01
 ;;9002226.02101,"730,00037-1001-01 ",.02)
 ;;00037-1001-01
 ;;9002226.02101,"730,00037-1001-02 ",.01)
 ;;00037-1001-02
 ;;9002226.02101,"730,00037-1001-02 ",.02)
 ;;00037-1001-02
 ;;9002226.02101,"730,00037-1001-03 ",.01)
 ;;00037-1001-03
 ;;9002226.02101,"730,00037-1001-03 ",.02)
 ;;00037-1001-03
 ;;9002226.02101,"730,00037-1101-01 ",.01)
 ;;00037-1101-01
 ;;9002226.02101,"730,00037-1101-01 ",.02)
 ;;00037-1101-01
 ;;9002226.02101,"730,00037-6010-30 ",.01)
 ;;00037-6010-30
 ;;9002226.02101,"730,00037-6010-30 ",.02)
 ;;00037-6010-30
 ;;9002226.02101,"730,00037-6050-30 ",.01)
 ;;00037-6050-30
 ;;9002226.02101,"730,00037-6050-30 ",.02)
 ;;00037-6050-30
 ;;9002226.02101,"730,00049-5100-47 ",.01)
 ;;00049-5100-47
 ;;9002226.02101,"730,00049-5100-47 ",.02)
 ;;00049-5100-47
 ;;9002226.02101,"730,00049-5340-66 ",.01)
 ;;00049-5340-66
 ;;9002226.02101,"730,00049-5340-66 ",.02)
 ;;00049-5340-66
 ;;9002226.02101,"730,00049-5350-66 ",.01)
 ;;00049-5350-66
 ;;9002226.02101,"730,00049-5350-66 ",.02)
 ;;00049-5350-66
 ;;9002226.02101,"730,00049-5360-66 ",.01)
 ;;00049-5360-66
 ;;9002226.02101,"730,00049-5360-66 ",.02)
 ;;00049-5360-66
 ;;9002226.02101,"730,00049-5370-50 ",.01)
 ;;00049-5370-50
 ;;9002226.02101,"730,00049-5370-50 ",.02)
 ;;00049-5370-50
 ;;9002226.02101,"730,00049-5380-66 ",.01)
 ;;00049-5380-66
 ;;9002226.02101,"730,00049-5380-66 ",.02)
 ;;00049-5380-66
 ;;9002226.02101,"730,00049-5390-66 ",.01)
 ;;00049-5390-66
 ;;9002226.02101,"730,00049-5390-66 ",.02)
 ;;00049-5390-66
 ;;9002226.02101,"730,00054-0084-25 ",.01)
 ;;00054-0084-25
 ;;9002226.02101,"730,00054-0084-25 ",.02)
 ;;00054-0084-25
 ;;9002226.02101,"730,00054-0085-25 ",.01)
 ;;00054-0085-25
 ;;9002226.02101,"730,00054-0085-25 ",.02)
 ;;00054-0085-25
 ;;9002226.02101,"730,00054-0086-20 ",.01)
 ;;00054-0086-20
 ;;9002226.02101,"730,00054-0086-20 ",.02)
 ;;00054-0086-20
 ;;9002226.02101,"730,00054-0086-25 ",.01)
 ;;00054-0086-25
 ;;9002226.02101,"730,00054-0086-25 ",.02)
 ;;00054-0086-25
 ;;9002226.02101,"730,00054-0086-29 ",.01)
 ;;00054-0086-29
 ;;9002226.02101,"730,00054-0086-29 ",.02)
 ;;00054-0086-29
 ;;9002226.02101,"730,00054-0087-20 ",.01)
 ;;00054-0087-20
 ;;9002226.02101,"730,00054-0087-20 ",.02)
 ;;00054-0087-20
 ;;9002226.02101,"730,00054-0087-25 ",.01)
 ;;00054-0087-25
 ;;9002226.02101,"730,00054-0087-25 ",.02)
 ;;00054-0087-25
 ;;9002226.02101,"730,00054-0087-29 ",.01)
 ;;00054-0087-29
 ;;9002226.02101,"730,00054-0087-29 ",.02)
 ;;00054-0087-29
 ;;9002226.02101,"730,00054-0273-13 ",.01)
 ;;00054-0273-13
 ;;9002226.02101,"730,00054-0273-13 ",.02)
 ;;00054-0273-13
 ;;9002226.02101,"730,00054-0274-13 ",.01)
 ;;00054-0274-13
 ;;9002226.02101,"730,00054-0274-13 ",.02)
 ;;00054-0274-13
 ;;9002226.02101,"730,00054-0275-13 ",.01)
 ;;00054-0275-13
 ;;9002226.02101,"730,00054-0275-13 ",.02)
 ;;00054-0275-13
 ;;9002226.02101,"730,00054-0276-13 ",.01)
 ;;00054-0276-13
 ;;9002226.02101,"730,00054-0276-13 ",.02)
 ;;00054-0276-13
 ;;9002226.02101,"730,00054-3860-50 ",.01)
 ;;00054-3860-50
 ;;9002226.02101,"730,00054-3860-50 ",.02)
 ;;00054-3860-50
 ;;9002226.02101,"730,00054-3861-50 ",.01)
 ;;00054-3861-50
 ;;9002226.02101,"730,00054-3861-50 ",.02)
 ;;00054-3861-50
 ;;9002226.02101,"730,00074-1540-01 ",.01)
 ;;00074-1540-01
 ;;9002226.02101,"730,00074-1540-01 ",.02)
 ;;00074-1540-01
 ;;9002226.02101,"730,00074-2343-01 ",.01)
 ;;00074-2343-01
 ;;9002226.02101,"730,00074-2343-01 ",.02)
 ;;00074-2343-01
 ;;9002226.02101,"730,00074-2343-31 ",.01)
 ;;00074-2343-31
 ;;9002226.02101,"730,00074-2343-31 ",.02)
 ;;00074-2343-31
 ;;9002226.02101,"730,00074-2349-01 ",.01)
 ;;00074-2349-01
 ;;9002226.02101,"730,00074-2349-01 ",.02)
 ;;00074-2349-01
 ;;9002226.02101,"730,00074-2349-31 ",.01)
 ;;00074-2349-31
 ;;9002226.02101,"730,00074-2349-31 ",.02)
 ;;00074-2349-31
 ;;9002226.02101,"730,00074-3778-04 ",.01)
 ;;00074-3778-04
 ;;9002226.02101,"730,00074-3778-04 ",.02)
 ;;00074-3778-04
 ;;9002226.02101,"730,00074-3778-05 ",.01)
 ;;00074-3778-05
 ;;9002226.02101,"730,00074-3778-05 ",.02)
 ;;00074-3778-05
 ;;9002226.02101,"730,00078-0001-31 ",.01)
 ;;00078-0001-31
 ;;9002226.02101,"730,00078-0001-31 ",.02)
 ;;00078-0001-31
 ;;9002226.02101,"730,00078-0002-05 ",.01)
 ;;00078-0002-05
 ;;9002226.02101,"730,00078-0002-05 ",.02)
 ;;00078-0002-05
 ;;9002226.02101,"730,00078-0003-05 ",.01)
 ;;00078-0003-05
 ;;9002226.02101,"730,00078-0003-05 ",.02)
 ;;00078-0003-05
 ;;9002226.02101,"730,00078-0005-05 ",.01)
 ;;00078-0005-05
 ;;9002226.02101,"730,00078-0005-05 ",.02)
 ;;00078-0005-05
 ;;9002226.02101,"730,00078-0006-05 ",.01)
 ;;00078-0006-05
 ;;9002226.02101,"730,00078-0006-05 ",.02)
 ;;00078-0006-05
 ;;9002226.02101,"730,00078-0007-05 ",.01)
 ;;00078-0007-05
 ;;9002226.02101,"730,00078-0007-05 ",.02)
 ;;00078-0007-05
 ;;9002226.02101,"730,00078-0008-05 ",.01)
 ;;00078-0008-05
 ;;9002226.02101,"730,00078-0008-05 ",.02)
 ;;00078-0008-05
 ;;9002226.02101,"730,00078-0070-06 ",.01)
 ;;00078-0070-06
 ;;9002226.02101,"730,00078-0070-06 ",.02)
 ;;00078-0070-06
 ;;9002226.02101,"730,00078-0070-08 ",.01)
 ;;00078-0070-08
 ;;9002226.02101,"730,00078-0070-08 ",.02)
 ;;00078-0070-08
 ;;9002226.02101,"730,00078-0084-05 ",.01)
 ;;00078-0084-05
 ;;9002226.02101,"730,00078-0084-05 ",.02)
 ;;00078-0084-05
 ;;9002226.02101,"730,00078-0084-08 ",.01)
 ;;00078-0084-08
 ;;9002226.02101,"730,00078-0084-08 ",.02)
 ;;00078-0084-08
 ;;9002226.02101,"730,00078-0103-05 ",.01)
 ;;00078-0103-05