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

BGP8ZR2.m

Go to the documentation of this file.
BGP8ZR2 ;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,"67857-0706-01 ")
 ;;340
 ;;21,"68084-0022-01 ")
 ;;341
 ;;21,"68084-0022-11 ")
 ;;342
 ;;21,"68084-0366-01 ")
 ;;343
 ;;21,"68084-0366-11 ")
 ;;344
 ;;21,"68084-0680-01 ")
 ;;345
 ;;21,"68084-0680-11 ")
 ;;346
 ;;21,"68084-0748-11 ")
 ;;347
 ;;21,"68084-0748-21 ")
 ;;348
 ;;21,"68084-0748-25 ")
 ;;349
 ;;21,"68084-0748-95 ")
 ;;350
 ;;21,"68084-0923-32 ")
 ;;351
 ;;21,"68084-0923-33 ")
 ;;352
 ;;21,"68094-0751-59 ")
 ;;353
 ;;21,"68094-0751-62 ")
 ;;354
 ;;21,"68094-0752-59 ")
 ;;355
 ;;21,"68094-0752-62 ")
 ;;356
 ;;21,"69315-0211-01 ")
 ;;357
 ;;21,"69315-0212-01 ")
 ;;358
 ;;9002226,1798,.01)
 ;;BGP HEDIS CARDIOVASCULAR NDC
 ;;9002226,1798,.02)
 ;;@
 ;;9002226,1798,.04)
 ;;n
 ;;9002226,1798,.06)
 ;;@
 ;;9002226,1798,.08)
 ;;@
 ;;9002226,1798,.09)
 ;;3180122
 ;;9002226,1798,.11)
 ;;@
 ;;9002226,1798,.12)
 ;;@
 ;;9002226,1798,.13)
 ;;1
 ;;9002226,1798,.14)
 ;;@
 ;;9002226,1798,.15)
 ;;50.67
 ;;9002226,1798,.16)
 ;;@
 ;;9002226,1798,.17)
 ;;@
 ;;9002226,1798,.22)
 ;;1
 ;;9002226,1798,3101)
 ;;@
 ;;9002226.02101,"1798,00025-2732-31 ",.01)
 ;;00025-2732-31
 ;;9002226.02101,"1798,00025-2732-31 ",.02)
 ;;00025-2732-31
 ;;9002226.02101,"1798,00025-2732-51 ",.01)
 ;;00025-2732-51
 ;;9002226.02101,"1798,00025-2732-51 ",.02)
 ;;00025-2732-51
 ;;9002226.02101,"1798,00025-2742-31 ",.01)
 ;;00025-2742-31
 ;;9002226.02101,"1798,00025-2742-31 ",.02)
 ;;00025-2742-31
 ;;9002226.02101,"1798,00025-2742-51 ",.01)
 ;;00025-2742-51
 ;;9002226.02101,"1798,00025-2742-51 ",.02)
 ;;00025-2742-51
 ;;9002226.02101,"1798,00025-2752-31 ",.01)
 ;;00025-2752-31
 ;;9002226.02101,"1798,00025-2752-31 ",.02)
 ;;00025-2752-31
 ;;9002226.02101,"1798,00025-2762-31 ",.01)
 ;;00025-2762-31
 ;;9002226.02101,"1798,00025-2762-31 ",.02)
 ;;00025-2762-31
 ;;9002226.02101,"1798,00054-0057-46 ",.01)
 ;;00054-0057-46
 ;;9002226.02101,"1798,00054-0057-46 ",.02)
 ;;00054-0057-46
 ;;9002226.02101,"1798,00069-2600-66 ",.01)
 ;;00069-2600-66
 ;;9002226.02101,"1798,00069-2600-66 ",.02)
 ;;00069-2600-66
 ;;9002226.02101,"1798,00093-2931-01 ",.01)
 ;;00093-2931-01
 ;;9002226.02101,"1798,00093-2931-01 ",.02)
 ;;00093-2931-01
 ;;9002226.02101,"1798,00093-2931-10 ",.01)
 ;;00093-2931-10
 ;;9002226.02101,"1798,00093-2931-10 ",.02)
 ;;00093-2931-10
 ;;9002226.02101,"1798,00093-2932-01 ",.01)
 ;;00093-2932-01
 ;;9002226.02101,"1798,00093-2932-01 ",.02)
 ;;00093-2932-01
 ;;9002226.02101,"1798,00093-2932-05 ",.01)
 ;;00093-2932-05
 ;;9002226.02101,"1798,00093-2932-05 ",.02)
 ;;00093-2932-05
 ;;9002226.02101,"1798,00093-3127-01 ",.01)
 ;;00093-3127-01
 ;;9002226.02101,"1798,00093-3127-01 ",.02)
 ;;00093-3127-01
 ;;9002226.02101,"1798,00093-3129-01 ",.01)
 ;;00093-3129-01
 ;;9002226.02101,"1798,00093-3129-01 ",.02)
 ;;00093-3129-01
 ;;9002226.02101,"1798,00093-5960-01 ",.01)
 ;;00093-5960-01
 ;;9002226.02101,"1798,00093-5960-01 ",.02)
 ;;00093-5960-01
 ;;9002226.02101,"1798,00093-5961-01 ",.01)
 ;;00093-5961-01
 ;;9002226.02101,"1798,00093-5961-01 ",.02)
 ;;00093-5961-01
 ;;9002226.02101,"1798,00093-5963-01 ",.01)
 ;;00093-5963-01
 ;;9002226.02101,"1798,00093-5963-01 ",.02)
 ;;00093-5963-01
 ;;9002226.02101,"1798,00093-5964-01 ",.01)
 ;;00093-5964-01
 ;;9002226.02101,"1798,00093-5964-01 ",.02)
 ;;00093-5964-01
 ;;9002226.02101,"1798,00115-9811-01 ",.01)
 ;;00115-9811-01
 ;;9002226.02101,"1798,00115-9811-01 ",.02)
 ;;00115-9811-01
 ;;9002226.02101,"1798,00115-9811-03 ",.01)
 ;;00115-9811-03
 ;;9002226.02101,"1798,00115-9811-03 ",.02)
 ;;00115-9811-03
 ;;9002226.02101,"1798,00115-9822-01 ",.01)
 ;;00115-9822-01
 ;;9002226.02101,"1798,00115-9822-01 ",.02)
 ;;00115-9822-01
 ;;9002226.02101,"1798,00115-9822-03 ",.01)
 ;;00115-9822-03
 ;;9002226.02101,"1798,00115-9822-03 ",.02)
 ;;00115-9822-03
 ;;9002226.02101,"1798,00143-1240-01 ",.01)
 ;;00143-1240-01
 ;;9002226.02101,"1798,00143-1240-01 ",.02)
 ;;00143-1240-01
 ;;9002226.02101,"1798,00143-1240-10 ",.01)
 ;;00143-1240-10
 ;;9002226.02101,"1798,00143-1240-10 ",.02)
 ;;00143-1240-10
 ;;9002226.02101,"1798,00143-1240-51 ",.01)
 ;;00143-1240-51
 ;;9002226.02101,"1798,00143-1240-51 ",.02)
 ;;00143-1240-51
 ;;9002226.02101,"1798,00143-1241-01 ",.01)
 ;;00143-1241-01
 ;;9002226.02101,"1798,00143-1241-01 ",.02)
 ;;00143-1241-01
 ;;9002226.02101,"1798,00143-1241-10 ",.01)
 ;;00143-1241-10
 ;;9002226.02101,"1798,00143-1241-10 ",.02)
 ;;00143-1241-10
 ;;9002226.02101,"1798,00143-1241-51 ",.01)
 ;;00143-1241-51
 ;;9002226.02101,"1798,00143-1241-51 ",.02)
 ;;00143-1241-51
 ;;9002226.02101,"1798,00173-0242-55 ",.01)
 ;;00173-0242-55
 ;;9002226.02101,"1798,00173-0242-55 ",.02)
 ;;00173-0242-55
 ;;9002226.02101,"1798,00173-0242-56 ",.01)
 ;;00173-0242-56
 ;;9002226.02101,"1798,00173-0242-56 ",.02)
 ;;00173-0242-56
 ;;9002226.02101,"1798,00173-0242-75 ",.01)
 ;;00173-0242-75
 ;;9002226.02101,"1798,00173-0242-75 ",.02)
 ;;00173-0242-75
 ;;9002226.02101,"1798,00173-0249-55 ",.01)
 ;;00173-0249-55
 ;;9002226.02101,"1798,00173-0249-55 ",.02)
 ;;00173-0249-55
 ;;9002226.02101,"1798,00173-0249-56 ",.01)
 ;;00173-0249-56
 ;;9002226.02101,"1798,00173-0249-56 ",.02)
 ;;00173-0249-56
 ;;9002226.02101,"1798,00173-0249-75 ",.01)
 ;;00173-0249-75
 ;;9002226.02101,"1798,00173-0249-75 ",.02)
 ;;00173-0249-75
 ;;9002226.02101,"1798,00173-0249-80 ",.01)
 ;;00173-0249-80
 ;;9002226.02101,"1798,00173-0249-80 ",.02)
 ;;00173-0249-80
 ;;9002226.02101,"1798,00185-0032-01 ",.01)
 ;;00185-0032-01
 ;;9002226.02101,"1798,00185-0032-01 ",.02)
 ;;00185-0032-01
 ;;9002226.02101,"1798,00185-0032-10 ",.01)
 ;;00185-0032-10
 ;;9002226.02101,"1798,00185-0032-10 ",.02)
 ;;00185-0032-10
 ;;9002226.02101,"1798,00185-0134-01 ",.01)
 ;;00185-0134-01
 ;;9002226.02101,"1798,00185-0134-01 ",.02)
 ;;00185-0134-01
 ;;9002226.02101,"1798,00228-2497-10 ",.01)
 ;;00228-2497-10
 ;;9002226.02101,"1798,00228-2497-10 ",.02)
 ;;00228-2497-10
 ;;9002226.02101,"1798,00228-2530-10 ",.01)
 ;;00228-2530-10
 ;;9002226.02101,"1798,00228-2530-10 ",.02)
 ;;00228-2530-10
 ;;9002226.02101,"1798,00228-2850-11 ",.01)
 ;;00228-2850-11
 ;;9002226.02101,"1798,00228-2850-11 ",.02)
 ;;00228-2850-11
 ;;9002226.02101,"1798,00228-2851-11 ",.01)
 ;;00228-2851-11
 ;;9002226.02101,"1798,00228-2851-11 ",.02)
 ;;00228-2851-11
 ;;9002226.02101,"1798,00228-2853-11 ",.01)
 ;;00228-2853-11
 ;;9002226.02101,"1798,00228-2853-11 ",.02)
 ;;00228-2853-11
 ;;9002226.02101,"1798,00228-2855-11 ",.01)
 ;;00228-2855-11
 ;;9002226.02101,"1798,00228-2855-11 ",.02)
 ;;00228-2855-11
 ;;9002226.02101,"1798,00378-0421-01 ",.01)
 ;;00378-0421-01
 ;;9002226.02101,"1798,00378-0421-01 ",.02)
 ;;00378-0421-01
 ;;9002226.02101,"1798,00378-0507-01 ",.01)
 ;;00378-0507-01
 ;;9002226.02101,"1798,00378-0507-01 ",.02)
 ;;00378-0507-01
 ;;9002226.02101,"1798,00378-0611-01 ",.01)
 ;;00378-0611-01
 ;;9002226.02101,"1798,00378-0611-01 ",.02)
 ;;00378-0611-01
 ;;9002226.02101,"1798,00378-0711-01 ",.01)
 ;;00378-0711-01
 ;;9002226.02101,"1798,00378-0711-01 ",.02)
 ;;00378-0711-01
 ;;9002226.02101,"1798,00378-1061-01 ",.01)
 ;;00378-1061-01
 ;;9002226.02101,"1798,00378-1061-01 ",.02)
 ;;00378-1061-01
 ;;9002226.02101,"1798,00378-1062-01 ",.01)
 ;;00378-1062-01
 ;;9002226.02101,"1798,00378-1062-01 ",.02)
 ;;00378-1062-01
 ;;9002226.02101,"1798,00378-1063-01 ",.01)
 ;;00378-1063-01
 ;;9002226.02101,"1798,00378-1063-01 ",.02)
 ;;00378-1063-01
 ;;9002226.02101,"1798,00378-1065-01 ",.01)
 ;;00378-1065-01
 ;;9002226.02101,"1798,00378-1065-01 ",.02)
 ;;00378-1065-01
 ;;9002226.02101,"1798,00378-1160-01 ",.01)
 ;;00378-1160-01
 ;;9002226.02101,"1798,00378-1160-01 ",.02)
 ;;00378-1160-01
 ;;9002226.02101,"1798,00378-1190-01 ",.01)
 ;;00378-1190-01
 ;;9002226.02101,"1798,00378-1190-01 ",.02)
 ;;00378-1190-01
 ;;9002226.02101,"1798,00378-6155-01 ",.01)
 ;;00378-6155-01
 ;;9002226.02101,"1798,00378-6155-01 ",.02)
 ;;00378-6155-01
 ;;9002226.02101,"1798,00378-6155-10 ",.01)
 ;;00378-6155-10
 ;;9002226.02101,"1798,00378-6155-10 ",.02)
 ;;00378-6155-10
 ;;9002226.02101,"1798,00378-6156-01 ",.01)
 ;;00378-6156-01
 ;;9002226.02101,"1798,00378-6156-01 ",.02)
 ;;00378-6156-01
 ;;9002226.02101,"1798,00378-6156-10 ",.01)
 ;;00378-6156-10
 ;;9002226.02101,"1798,00378-6156-10 ",.02)
 ;;00378-6156-10
 ;;9002226.02101,"1798,00409-2169-31 ",.01)
 ;;00409-2169-31
 ;;9002226.02101,"1798,00409-2169-31 ",.02)
 ;;00409-2169-31
 ;;9002226.02101,"1798,00440-7390-90 ",.01)
 ;;00440-7390-90
 ;;9002226.02101,"1798,00440-7390-90 ",.02)
 ;;00440-7390-90
 ;;9002226.02101,"1798,00440-7391-30 ",.01)
 ;;00440-7391-30
 ;;9002226.02101,"1798,00440-7391-30 ",.02)
 ;;00440-7391-30
 ;;9002226.02101,"1798,00440-7391-90 ",.01)
 ;;00440-7391-90
 ;;9002226.02101,"1798,00440-7391-90 ",.02)
 ;;00440-7391-90
 ;;9002226.02101,"1798,00440-7755-90 ",.01)
 ;;00440-7755-90
 ;;9002226.02101,"1798,00440-7755-90 ",.02)
 ;;00440-7755-90
 ;;9002226.02101,"1798,00440-7755-94 ",.01)
 ;;00440-7755-94
 ;;9002226.02101,"1798,00440-7755-94 ",.02)
 ;;00440-7755-94
 ;;9002226.02101,"1798,00440-7756-90 ",.01)
 ;;00440-7756-90
 ;;9002226.02101,"1798,00440-7756-90 ",.02)
 ;;00440-7756-90
 ;;9002226.02101,"1798,00440-7756-94 ",.01)
 ;;00440-7756-94
 ;;9002226.02101,"1798,00440-7756-94 ",.02)
 ;;00440-7756-94
 ;;9002226.02101,"1798,00440-7860-04 ",.01)
 ;;00440-7860-04
 ;;9002226.02101,"1798,00440-7860-04 ",.02)
 ;;00440-7860-04
 ;;9002226.02101,"1798,00440-7860-08 ",.01)
 ;;00440-7860-08
 ;;9002226.02101,"1798,00440-7860-08 ",.02)
 ;;00440-7860-08
 ;;9002226.02101,"1798,00440-7860-90 ",.01)
 ;;00440-7860-90
 ;;9002226.02101,"1798,00440-7860-90 ",.02)
 ;;00440-7860-90
 ;;9002226.02101,"1798,00517-8905-10 ",.01)
 ;;00517-8905-10
 ;;9002226.02101,"1798,00517-8905-10 ",.02)
 ;;00517-8905-10
 ;;9002226.02101,"1798,00527-1324-01 ",.01)
 ;;00527-1324-01
 ;;9002226.02101,"1798,00527-1324-01 ",.02)
 ;;00527-1324-01
 ;;9002226.02101,"1798,00527-1324-10 ",.01)
 ;;00527-1324-10
 ;;9002226.02101,"1798,00527-1324-10 ",.02)
 ;;00527-1324-10
 ;;9002226.02101,"1798,00527-1325-01 ",.01)
 ;;00527-1325-01
 ;;9002226.02101,"1798,00527-1325-01 ",.02)
 ;;00527-1325-01
 ;;9002226.02101,"1798,00527-1325-10 ",.01)
 ;;00527-1325-10
 ;;9002226.02101,"1798,00527-1325-10 ",.02)
 ;;00527-1325-10
 ;;9002226.02101,"1798,00591-0444-01 ",.01)
 ;;00591-0444-01
 ;;9002226.02101,"1798,00591-0444-01 ",.02)
 ;;00591-0444-01
 ;;9002226.02101,"1798,00591-0453-01 ",.01)
 ;;00591-0453-01
 ;;9002226.02101,"1798,00591-0453-01 ",.02)
 ;;00591-0453-01
 ;;9002226.02101,"1798,00591-5560-01 ",.01)
 ;;00591-5560-01
 ;;9002226.02101,"1798,00591-5560-01 ",.02)
 ;;00591-5560-01
 ;;9002226.02101,"1798,00591-5561-01 ",.01)
 ;;00591-5561-01
 ;;9002226.02101,"1798,00591-5561-01 ",.02)
 ;;00591-5561-01
 ;;9002226.02101,"1798,00615-0547-43 ",.01)
 ;;00615-0547-43
 ;;9002226.02101,"1798,00615-0547-43 ",.02)
 ;;00615-0547-43
 ;;9002226.02101,"1798,00641-1410-31 ",.01)
 ;;00641-1410-31
 ;;9002226.02101,"1798,00641-1410-31 ",.02)
 ;;00641-1410-31
 ;;9002226.02101,"1798,00641-1410-35 ",.01)
 ;;00641-1410-35
 ;;9002226.02101,"1798,00641-1410-35 ",.02)
 ;;00641-1410-35
 ;;9002226.02101,"1798,00641-6184-01 ",.01)
 ;;00641-6184-01
 ;;9002226.02101,"1798,00641-6184-01 ",.02)
 ;;00641-6184-01
 ;;9002226.02101,"1798,00641-6184-25 ",.01)
 ;;00641-6184-25
 ;;9002226.02101,"1798,00641-6184-25 ",.02)
 ;;00641-6184-25
 ;;9002226.02101,"1798,00781-3059-72 ",.01)
 ;;00781-3059-72
 ;;9002226.02101,"1798,00781-3059-72 ",.02)
 ;;00781-3059-72
 ;;9002226.02101,"1798,00781-3059-95 ",.01)
 ;;00781-3059-95
 ;;9002226.02101,"1798,00781-3059-95 ",.02)
 ;;00781-3059-95
 ;;9002226.02101,"1798,00781-5451-01 ",.01)
 ;;00781-5451-01