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

BGP82O9.m

Go to the documentation of this file.
BGP82O9 ; 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,"68788-6780-09 ")
 ;;2689
 ;;21,"68788-6801-01 ")
 ;;2690
 ;;21,"68788-6801-03 ")
 ;;2691
 ;;21,"68788-6801-06 ")
 ;;2692
 ;;21,"68788-6801-09 ")
 ;;2693
 ;;21,"68788-6818-01 ")
 ;;2694
 ;;21,"68788-6818-03 ")
 ;;2695
 ;;21,"68788-6818-06 ")
 ;;2696
 ;;21,"68788-6818-08 ")
 ;;2697
 ;;21,"68788-6818-09 ")
 ;;2698
 ;;21,"68788-9121-03 ")
 ;;2699
 ;;21,"68788-9121-06 ")
 ;;2700
 ;;21,"68788-9122-03 ")
 ;;2701
 ;;21,"68788-9122-06 ")
 ;;2702
 ;;21,"68788-9128-03 ")
 ;;2703
 ;;21,"68788-9128-06 ")
 ;;2704
 ;;21,"68788-9128-09 ")
 ;;2705
 ;;21,"68788-9216-01 ")
 ;;2706
 ;;21,"68788-9216-03 ")
 ;;2707
 ;;21,"68788-9216-06 ")
 ;;2708
 ;;21,"68788-9216-09 ")
 ;;2709
 ;;21,"68788-9716-03 ")
 ;;2710
 ;;21,"68788-9716-06 ")
 ;;2711
 ;;21,"68788-9716-09 ")
 ;;2712
 ;;21,"68788-9728-03 ")
 ;;2713
 ;;21,"68788-9918-03 ")
 ;;2714
 ;;21,"69452-0128-20 ")
 ;;2715
 ;;21,"69452-0128-30 ")
 ;;2716
 ;;21,"69452-0129-20 ")
 ;;2717
 ;;21,"69452-0129-30 ")
 ;;2718
 ;;21,"69452-0130-20 ")
 ;;2719
 ;;21,"69452-0130-30 ")
 ;;2720
 ;;21,"69543-0123-10 ")
 ;;2721
 ;;21,"69543-0123-50 ")
 ;;2722
 ;;21,"69543-0124-10 ")
 ;;2723
 ;;21,"69543-0124-50 ")
 ;;2724
 ;;21,"69543-0125-10 ")
 ;;2725
 ;;21,"69543-0125-50 ")
 ;;2726
 ;;21,"70882-0105-56 ")
 ;;2727
 ;;21,"70882-0124-56 ")
 ;;2728
 ;;21,"76439-0123-10 ")
 ;;2729
 ;;21,"76439-0124-10 ")
 ;;2730
 ;;21,"76439-0125-10 ")
 ;;2731
 ;;9002226,1876,.01)
 ;;BGP PQA DIABETES ALL CLASS NDC
 ;;9002226,1876,.02)
 ;;@
 ;;9002226,1876,.04)
 ;;n
 ;;9002226,1876,.06)
 ;;@
 ;;9002226,1876,.08)
 ;;@
 ;;9002226,1876,.09)
 ;;3170809
 ;;9002226,1876,.11)
 ;;@
 ;;9002226,1876,.12)
 ;;@
 ;;9002226,1876,.13)
 ;;1
 ;;9002226,1876,.14)
 ;;@
 ;;9002226,1876,.15)
 ;;50.67
 ;;9002226,1876,.16)
 ;;@
 ;;9002226,1876,.17)
 ;;@
 ;;9002226,1876,.22)
 ;;1
 ;;9002226,1876,3101)
 ;;@
 ;;9002226.02101,"1876,00002-1433-01 ",.01)
 ;;00002-1433-01
 ;;9002226.02101,"1876,00002-1433-01 ",.02)
 ;;00002-1433-01
 ;;9002226.02101,"1876,00002-1433-80 ",.01)
 ;;00002-1433-80
 ;;9002226.02101,"1876,00002-1433-80 ",.02)
 ;;00002-1433-80
 ;;9002226.02101,"1876,00002-1434-01 ",.01)
 ;;00002-1434-01
 ;;9002226.02101,"1876,00002-1434-01 ",.02)
 ;;00002-1434-01
 ;;9002226.02101,"1876,00002-1434-80 ",.01)
 ;;00002-1434-80
 ;;9002226.02101,"1876,00002-1434-80 ",.02)
 ;;00002-1434-80
 ;;9002226.02101,"1876,00003-1427-11 ",.01)
 ;;00003-1427-11
 ;;9002226.02101,"1876,00003-1427-11 ",.02)
 ;;00003-1427-11
 ;;9002226.02101,"1876,00003-1428-11 ",.01)
 ;;00003-1428-11
 ;;9002226.02101,"1876,00003-1428-11 ",.02)
 ;;00003-1428-11
 ;;9002226.02101,"1876,00003-4214-11 ",.01)
 ;;00003-4214-11
 ;;9002226.02101,"1876,00003-4214-11 ",.02)
 ;;00003-4214-11
 ;;9002226.02101,"1876,00003-4214-21 ",.01)
 ;;00003-4214-21
 ;;9002226.02101,"1876,00003-4214-21 ",.02)
 ;;00003-4214-21
 ;;9002226.02101,"1876,00003-4215-11 ",.01)
 ;;00003-4215-11
 ;;9002226.02101,"1876,00003-4215-11 ",.02)
 ;;00003-4215-11
 ;;9002226.02101,"1876,00003-4215-21 ",.01)
 ;;00003-4215-21
 ;;9002226.02101,"1876,00003-4215-21 ",.02)
 ;;00003-4215-21
 ;;9002226.02101,"1876,00003-4215-31 ",.01)
 ;;00003-4215-31
 ;;9002226.02101,"1876,00003-4215-31 ",.02)
 ;;00003-4215-31
 ;;9002226.02101,"1876,00003-4215-41 ",.01)
 ;;00003-4215-41
 ;;9002226.02101,"1876,00003-4215-41 ",.02)
 ;;00003-4215-41
 ;;9002226.02101,"1876,00003-4221-11 ",.01)
 ;;00003-4221-11
 ;;9002226.02101,"1876,00003-4221-11 ",.02)
 ;;00003-4221-11
 ;;9002226.02101,"1876,00003-4222-16 ",.01)
 ;;00003-4222-16
 ;;9002226.02101,"1876,00003-4222-16 ",.02)
 ;;00003-4222-16
 ;;9002226.02101,"1876,00003-4223-11 ",.01)
 ;;00003-4223-11
 ;;9002226.02101,"1876,00003-4223-11 ",.02)
 ;;00003-4223-11
 ;;9002226.02101,"1876,00006-0078-61 ",.01)
 ;;00006-0078-61
 ;;9002226.02101,"1876,00006-0078-61 ",.02)
 ;;00006-0078-61
 ;;9002226.02101,"1876,00006-0078-62 ",.01)
 ;;00006-0078-62
 ;;9002226.02101,"1876,00006-0078-62 ",.02)
 ;;00006-0078-62
 ;;9002226.02101,"1876,00006-0078-82 ",.01)
 ;;00006-0078-82
 ;;9002226.02101,"1876,00006-0078-82 ",.02)
 ;;00006-0078-82
 ;;9002226.02101,"1876,00006-0080-61 ",.01)
 ;;00006-0080-61
 ;;9002226.02101,"1876,00006-0080-61 ",.02)
 ;;00006-0080-61
 ;;9002226.02101,"1876,00006-0080-62 ",.01)
 ;;00006-0080-62
 ;;9002226.02101,"1876,00006-0080-62 ",.02)
 ;;00006-0080-62
 ;;9002226.02101,"1876,00006-0080-82 ",.01)
 ;;00006-0080-82
 ;;9002226.02101,"1876,00006-0080-82 ",.02)
 ;;00006-0080-82
 ;;9002226.02101,"1876,00006-0081-31 ",.01)
 ;;00006-0081-31
 ;;9002226.02101,"1876,00006-0081-31 ",.02)
 ;;00006-0081-31
 ;;9002226.02101,"1876,00006-0081-54 ",.01)
 ;;00006-0081-54
 ;;9002226.02101,"1876,00006-0081-54 ",.02)
 ;;00006-0081-54
 ;;9002226.02101,"1876,00006-0081-82 ",.01)
 ;;00006-0081-82
 ;;9002226.02101,"1876,00006-0081-82 ",.02)
 ;;00006-0081-82
 ;;9002226.02101,"1876,00006-0112-01 ",.01)
 ;;00006-0112-01
 ;;9002226.02101,"1876,00006-0112-01 ",.02)
 ;;00006-0112-01
 ;;9002226.02101,"1876,00006-0112-28 ",.01)
 ;;00006-0112-28
 ;;9002226.02101,"1876,00006-0112-28 ",.02)
 ;;00006-0112-28
 ;;9002226.02101,"1876,00006-0112-31 ",.01)
 ;;00006-0112-31
 ;;9002226.02101,"1876,00006-0112-31 ",.02)
 ;;00006-0112-31
 ;;9002226.02101,"1876,00006-0112-54 ",.01)
 ;;00006-0112-54
 ;;9002226.02101,"1876,00006-0112-54 ",.02)
 ;;00006-0112-54
 ;;9002226.02101,"1876,00006-0221-01 ",.01)
 ;;00006-0221-01
 ;;9002226.02101,"1876,00006-0221-01 ",.02)
 ;;00006-0221-01
 ;;9002226.02101,"1876,00006-0221-28 ",.01)
 ;;00006-0221-28
 ;;9002226.02101,"1876,00006-0221-28 ",.02)
 ;;00006-0221-28
 ;;9002226.02101,"1876,00006-0221-31 ",.01)
 ;;00006-0221-31
 ;;9002226.02101,"1876,00006-0221-31 ",.02)
 ;;00006-0221-31
 ;;9002226.02101,"1876,00006-0221-54 ",.01)
 ;;00006-0221-54
 ;;9002226.02101,"1876,00006-0221-54 ",.02)
 ;;00006-0221-54
 ;;9002226.02101,"1876,00006-0277-01 ",.01)
 ;;00006-0277-01
 ;;9002226.02101,"1876,00006-0277-01 ",.02)
 ;;00006-0277-01
 ;;9002226.02101,"1876,00006-0277-02 ",.01)
 ;;00006-0277-02
 ;;9002226.02101,"1876,00006-0277-02 ",.02)
 ;;00006-0277-02
 ;;9002226.02101,"1876,00006-0277-28 ",.01)
 ;;00006-0277-28
 ;;9002226.02101,"1876,00006-0277-28 ",.02)
 ;;00006-0277-28
 ;;9002226.02101,"1876,00006-0277-31 ",.01)
 ;;00006-0277-31
 ;;9002226.02101,"1876,00006-0277-31 ",.02)
 ;;00006-0277-31
 ;;9002226.02101,"1876,00006-0277-33 ",.01)
 ;;00006-0277-33
 ;;9002226.02101,"1876,00006-0277-33 ",.02)
 ;;00006-0277-33
 ;;9002226.02101,"1876,00006-0277-54 ",.01)
 ;;00006-0277-54
 ;;9002226.02101,"1876,00006-0277-54 ",.02)
 ;;00006-0277-54
 ;;9002226.02101,"1876,00006-0277-82 ",.01)
 ;;00006-0277-82
 ;;9002226.02101,"1876,00006-0277-82 ",.02)
 ;;00006-0277-82
 ;;9002226.02101,"1876,00006-0575-52 ",.01)
 ;;00006-0575-52
 ;;9002226.02101,"1876,00006-0575-52 ",.02)
 ;;00006-0575-52
 ;;9002226.02101,"1876,00006-0575-61 ",.01)
 ;;00006-0575-61
 ;;9002226.02101,"1876,00006-0575-61 ",.02)
 ;;00006-0575-61
 ;;9002226.02101,"1876,00006-0575-62 ",.01)
 ;;00006-0575-62
 ;;9002226.02101,"1876,00006-0575-62 ",.02)
 ;;00006-0575-62
 ;;9002226.02101,"1876,00006-0575-82 ",.01)
 ;;00006-0575-82
 ;;9002226.02101,"1876,00006-0575-82 ",.02)
 ;;00006-0575-82
 ;;9002226.02101,"1876,00006-0577-52 ",.01)
 ;;00006-0577-52
 ;;9002226.02101,"1876,00006-0577-52 ",.02)
 ;;00006-0577-52
 ;;9002226.02101,"1876,00006-0577-61 ",.01)
 ;;00006-0577-61
 ;;9002226.02101,"1876,00006-0577-61 ",.02)
 ;;00006-0577-61
 ;;9002226.02101,"1876,00006-0577-62 ",.01)
 ;;00006-0577-62
 ;;9002226.02101,"1876,00006-0577-62 ",.02)
 ;;00006-0577-62
 ;;9002226.02101,"1876,00006-0577-82 ",.01)
 ;;00006-0577-82
 ;;9002226.02101,"1876,00006-0577-82 ",.02)
 ;;00006-0577-82
 ;;9002226.02101,"1876,00009-0341-01 ",.01)
 ;;00009-0341-01
 ;;9002226.02101,"1876,00009-0341-01 ",.02)
 ;;00009-0341-01
 ;;9002226.02101,"1876,00009-0352-01 ",.01)
 ;;00009-0352-01
 ;;9002226.02101,"1876,00009-0352-01 ",.02)
 ;;00009-0352-01
 ;;9002226.02101,"1876,00009-0352-04 ",.01)
 ;;00009-0352-04
 ;;9002226.02101,"1876,00009-0352-04 ",.02)
 ;;00009-0352-04
 ;;9002226.02101,"1876,00009-3449-01 ",.01)
 ;;00009-3449-01
 ;;9002226.02101,"1876,00009-3449-01 ",.02)
 ;;00009-3449-01
 ;;9002226.02101,"1876,00009-3449-03 ",.01)
 ;;00009-3449-03
 ;;9002226.02101,"1876,00009-3449-03 ",.02)
 ;;00009-3449-03
 ;;9002226.02101,"1876,00024-5745-02 ",.01)
 ;;00024-5745-02
 ;;9002226.02101,"1876,00024-5745-02 ",.02)
 ;;00024-5745-02
 ;;9002226.02101,"1876,00024-5747-02 ",.01)
 ;;00024-5747-02
 ;;9002226.02101,"1876,00024-5747-02 ",.02)
 ;;00024-5747-02
 ;;9002226.02101,"1876,00039-0051-10 ",.01)
 ;;00039-0051-10
 ;;9002226.02101,"1876,00039-0051-10 ",.02)
 ;;00039-0051-10
 ;;9002226.02101,"1876,00039-0052-10 ",.01)
 ;;00039-0052-10
 ;;9002226.02101,"1876,00039-0052-10 ",.02)
 ;;00039-0052-10
 ;;9002226.02101,"1876,00039-0052-70 ",.01)
 ;;00039-0052-70
 ;;9002226.02101,"1876,00039-0052-70 ",.02)
 ;;00039-0052-70
 ;;9002226.02101,"1876,00039-0053-05 ",.01)
 ;;00039-0053-05
 ;;9002226.02101,"1876,00039-0053-05 ",.02)
 ;;00039-0053-05
 ;;9002226.02101,"1876,00039-0221-10 ",.01)
 ;;00039-0221-10
 ;;9002226.02101,"1876,00039-0221-10 ",.02)
 ;;00039-0221-10
 ;;9002226.02101,"1876,00039-0222-10 ",.01)
 ;;00039-0222-10
 ;;9002226.02101,"1876,00039-0222-10 ",.02)
 ;;00039-0222-10
 ;;9002226.02101,"1876,00039-0223-10 ",.01)
 ;;00039-0223-10
 ;;9002226.02101,"1876,00039-0223-10 ",.02)
 ;;00039-0223-10
 ;;9002226.02101,"1876,00049-0170-01 ",.01)
 ;;00049-0170-01
 ;;9002226.02101,"1876,00049-0170-01 ",.02)
 ;;00049-0170-01
 ;;9002226.02101,"1876,00049-0174-02 ",.01)
 ;;00049-0174-02
 ;;9002226.02101,"1876,00049-0174-02 ",.02)
 ;;00049-0174-02
 ;;9002226.02101,"1876,00049-0174-03 ",.01)
 ;;00049-0174-03
 ;;9002226.02101,"1876,00049-0174-03 ",.02)
 ;;00049-0174-03
 ;;9002226.02101,"1876,00049-0178-07 ",.01)
 ;;00049-0178-07
 ;;9002226.02101,"1876,00049-0178-07 ",.02)
 ;;00049-0178-07
 ;;9002226.02101,"1876,00049-0178-08 ",.01)
 ;;00049-0178-08
 ;;9002226.02101,"1876,00049-0178-08 ",.02)
 ;;00049-0178-08
 ;;9002226.02101,"1876,00049-1550-66 ",.01)
 ;;00049-1550-66
 ;;9002226.02101,"1876,00049-1550-66 ",.02)
 ;;00049-1550-66
 ;;9002226.02101,"1876,00049-1550-73 ",.01)
 ;;00049-1550-73
 ;;9002226.02101,"1876,00049-1550-73 ",.02)
 ;;00049-1550-73
 ;;9002226.02101,"1876,00049-1560-66 ",.01)
 ;;00049-1560-66
 ;;9002226.02101,"1876,00049-1560-66 ",.02)
 ;;00049-1560-66
 ;;9002226.02101,"1876,00049-1560-73 ",.01)
 ;;00049-1560-73
 ;;9002226.02101,"1876,00049-1560-73 ",.02)
 ;;00049-1560-73
 ;;9002226.02101,"1876,00049-4110-66 ",.01)
 ;;00049-4110-66
 ;;9002226.02101,"1876,00049-4110-66 ",.02)
 ;;00049-4110-66
 ;;9002226.02101,"1876,00049-4120-66 ",.01)
 ;;00049-4120-66
 ;;9002226.02101,"1876,00049-4120-66 ",.02)
 ;;00049-4120-66
 ;;9002226.02101,"1876,00078-0351-05 ",.01)
 ;;00078-0351-05
 ;;9002226.02101,"1876,00078-0351-05 ",.02)
 ;;00078-0351-05
 ;;9002226.02101,"1876,00078-0352-05 ",.01)
 ;;00078-0352-05
 ;;9002226.02101,"1876,00078-0352-05 ",.02)
 ;;00078-0352-05
 ;;9002226.02101,"1876,00087-6060-05 ",.01)
 ;;00087-6060-05
 ;;9002226.02101,"1876,00087-6060-05 ",.02)
 ;;00087-6060-05
 ;;9002226.02101,"1876,00087-6060-10 ",.01)
 ;;00087-6060-10
 ;;9002226.02101,"1876,00087-6060-10 ",.02)
 ;;00087-6060-10
 ;;9002226.02101,"1876,00087-6063-13 ",.01)
 ;;00087-6063-13
 ;;9002226.02101,"1876,00087-6063-13 ",.02)
 ;;00087-6063-13
 ;;9002226.02101,"1876,00087-6064-13 ",.01)
 ;;00087-6064-13
 ;;9002226.02101,"1876,00087-6064-13 ",.02)
 ;;00087-6064-13
 ;;9002226.02101,"1876,00087-6070-05 ",.01)
 ;;00087-6070-05