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

BGP82Z19.m

Go to the documentation of this file.
BGP82Z19 ; 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)
 ;;9002226.02101,"619,00054-0551-25 ",.02)
 ;;00054-0551-25
 ;;9002226.02101,"619,00054-0551-29 ",.01)
 ;;00054-0551-29
 ;;9002226.02101,"619,00054-0551-29 ",.02)
 ;;00054-0551-29
 ;;9002226.02101,"619,00054-3090-36 ",.01)
 ;;00054-3090-36
 ;;9002226.02101,"619,00054-3090-36 ",.02)
 ;;00054-3090-36
 ;;9002226.02101,"619,00054-3545-63 ",.01)
 ;;00054-3545-63
 ;;9002226.02101,"619,00054-3545-63 ",.02)
 ;;00054-3545-63
 ;;9002226.02101,"619,00054-3553-44 ",.01)
 ;;00054-3553-44
 ;;9002226.02101,"619,00054-3553-44 ",.02)
 ;;00054-3553-44
 ;;9002226.02101,"619,00054-3555-63 ",.01)
 ;;00054-3555-63
 ;;9002226.02101,"619,00054-3555-63 ",.02)
 ;;00054-3555-63
 ;;9002226.02101,"619,00054-3556-63 ",.01)
 ;;00054-3556-63
 ;;9002226.02101,"619,00054-3556-63 ",.02)
 ;;00054-3556-63
 ;;9002226.02101,"619,00054-4218-25 ",.01)
 ;;00054-4218-25
 ;;9002226.02101,"619,00054-4218-25 ",.02)
 ;;00054-4218-25
 ;;9002226.02101,"619,00054-4219-25 ",.01)
 ;;00054-4219-25
 ;;9002226.02101,"619,00054-4219-25 ",.02)
 ;;00054-4219-25
 ;;9002226.02101,"619,00054-4538-25 ",.01)
 ;;00054-4538-25
 ;;9002226.02101,"619,00054-4538-25 ",.02)
 ;;00054-4538-25
 ;;9002226.02101,"619,00054-4570-25 ",.01)
 ;;00054-4570-25
 ;;9002226.02101,"619,00054-4570-25 ",.02)
 ;;00054-4570-25
 ;;9002226.02101,"619,00054-4571-25 ",.01)
 ;;00054-4571-25
 ;;9002226.02101,"619,00054-4571-25 ",.02)
 ;;00054-4571-25
 ;;9002226.02101,"619,00054-4595-25 ",.01)
 ;;00054-4595-25
 ;;9002226.02101,"619,00054-4595-25 ",.02)
 ;;00054-4595-25
 ;;9002226.02101,"619,00054-4596-25 ",.01)
 ;;00054-4596-25
 ;;9002226.02101,"619,00054-4596-25 ",.02)
 ;;00054-4596-25
 ;;9002226.02101,"619,00054-8553-24 ",.01)
 ;;00054-8553-24
 ;;9002226.02101,"619,00054-8553-24 ",.02)
 ;;00054-8553-24
 ;;9002226.02101,"619,00054-8554-24 ",.01)
 ;;00054-8554-24
 ;;9002226.02101,"619,00054-8554-24 ",.02)
 ;;00054-8554-24
 ;;9002226.02101,"619,00054-8595-11 ",.01)
 ;;00054-8595-11
 ;;9002226.02101,"619,00054-8595-11 ",.02)
 ;;00054-8595-11
 ;;9002226.02101,"619,00074-2277-14 ",.01)
 ;;00074-2277-14
 ;;9002226.02101,"619,00074-2277-14 ",.02)
 ;;00074-2277-14
 ;;9002226.02101,"619,00074-2277-54 ",.01)
 ;;00074-2277-54
 ;;9002226.02101,"619,00074-2277-54 ",.02)
 ;;00074-2277-54
 ;;9002226.02101,"619,00074-3041-13 ",.01)
 ;;00074-3041-13
 ;;9002226.02101,"619,00074-3041-13 ",.02)
 ;;00074-3041-13
 ;;9002226.02101,"619,00074-3041-53 ",.01)
 ;;00074-3041-53
 ;;9002226.02101,"619,00074-3041-53 ",.02)
 ;;00074-3041-53
 ;;9002226.02101,"619,00074-3043-13 ",.01)
 ;;00074-3043-13
 ;;9002226.02101,"619,00074-3043-13 ",.02)
 ;;00074-3043-13
 ;;9002226.02101,"619,00074-3043-53 ",.01)
 ;;00074-3043-53
 ;;9002226.02101,"619,00074-3043-53 ",.02)
 ;;00074-3043-53
 ;;9002226.02101,"619,00074-3054-13 ",.01)
 ;;00074-3054-13
 ;;9002226.02101,"619,00074-3054-13 ",.02)
 ;;00074-3054-13
 ;;9002226.02101,"619,00074-3054-53 ",.01)
 ;;00074-3054-53
 ;;9002226.02101,"619,00074-3054-53 ",.02)
 ;;00074-3054-53
 ;;9002226.02101,"619,00093-0050-01 ",.01)
 ;;00093-0050-01
 ;;9002226.02101,"619,00093-0050-01 ",.02)
 ;;00093-0050-01
 ;;9002226.02101,"619,00093-0058-01 ",.01)
 ;;00093-0058-01
 ;;9002226.02101,"619,00093-0058-01 ",.02)
 ;;00093-0058-01
 ;;9002226.02101,"619,00093-0058-05 ",.01)
 ;;00093-0058-05
 ;;9002226.02101,"619,00093-0058-05 ",.02)
 ;;00093-0058-05
 ;;9002226.02101,"619,00093-0150-01 ",.01)
 ;;00093-0150-01
 ;;9002226.02101,"619,00093-0150-01 ",.02)
 ;;00093-0150-01
 ;;9002226.02101,"619,00093-0150-10 ",.01)
 ;;00093-0150-10
 ;;9002226.02101,"619,00093-0150-10 ",.02)
 ;;00093-0150-10
 ;;9002226.02101,"619,00093-0350-01 ",.01)
 ;;00093-0350-01
 ;;9002226.02101,"619,00093-0350-01 ",.02)
 ;;00093-0350-01
 ;;9002226.02101,"619,00093-0350-05 ",.01)
 ;;00093-0350-05
 ;;9002226.02101,"619,00093-0350-05 ",.02)
 ;;00093-0350-05
 ;;9002226.02101,"619,00093-0350-10 ",.01)
 ;;00093-0350-10
 ;;9002226.02101,"619,00093-0350-10 ",.02)
 ;;00093-0350-10
 ;;9002226.02101,"619,00093-3600-21 ",.01)
 ;;00093-3600-21
 ;;9002226.02101,"619,00093-3600-21 ",.02)
 ;;00093-3600-21
 ;;9002226.02101,"619,00093-3600-40 ",.01)
 ;;00093-3600-40
 ;;9002226.02101,"619,00093-3600-40 ",.02)
 ;;00093-3600-40
 ;;9002226.02101,"619,00093-3601-21 ",.01)
 ;;00093-3601-21
 ;;9002226.02101,"619,00093-3601-21 ",.02)
 ;;00093-3601-21
 ;;9002226.02101,"619,00093-3601-40 ",.01)
 ;;00093-3601-40
 ;;9002226.02101,"619,00093-3601-40 ",.02)
 ;;00093-3601-40
 ;;9002226.02101,"619,00093-3602-21 ",.01)
 ;;00093-3602-21
 ;;9002226.02101,"619,00093-3602-21 ",.02)
 ;;00093-3602-21
 ;;9002226.02101,"619,00093-3602-40 ",.01)
 ;;00093-3602-40
 ;;9002226.02101,"619,00093-3602-40 ",.02)
 ;;00093-3602-40
 ;;9002226.02101,"619,00093-3603-21 ",.01)
 ;;00093-3603-21
 ;;9002226.02101,"619,00093-3603-21 ",.02)
 ;;00093-3603-21
 ;;9002226.02101,"619,00093-3603-40 ",.01)
 ;;00093-3603-40
 ;;9002226.02101,"619,00093-3603-40 ",.02)
 ;;00093-3603-40
 ;;9002226.02101,"619,00093-5161-01 ",.01)
 ;;00093-5161-01
 ;;9002226.02101,"619,00093-5161-01 ",.02)
 ;;00093-5161-01
 ;;9002226.02101,"619,00093-5731-01 ",.01)
 ;;00093-5731-01
 ;;9002226.02101,"619,00093-5731-01 ",.02)
 ;;00093-5731-01
 ;;9002226.02101,"619,00093-5732-01 ",.01)
 ;;00093-5732-01
 ;;9002226.02101,"619,00093-5732-01 ",.02)
 ;;00093-5732-01
 ;;9002226.02101,"619,00093-5733-01 ",.01)
 ;;00093-5733-01
 ;;9002226.02101,"619,00093-5733-01 ",.02)
 ;;00093-5733-01
 ;;9002226.02101,"619,00093-5734-01 ",.01)
 ;;00093-5734-01
 ;;9002226.02101,"619,00093-5734-01 ",.02)
 ;;00093-5734-01
 ;;9002226.02101,"619,00093-5861-01 ",.01)
 ;;00093-5861-01
 ;;9002226.02101,"619,00093-5861-01 ",.02)
 ;;00093-5861-01
 ;;9002226.02101,"619,00093-5862-01 ",.01)
 ;;00093-5862-01
 ;;9002226.02101,"619,00093-5862-01 ",.02)
 ;;00093-5862-01
 ;;9002226.02101,"619,00093-6900-19 ",.01)
 ;;00093-6900-19
 ;;9002226.02101,"619,00093-6900-19 ",.02)
 ;;00093-6900-19
 ;;9002226.02101,"619,00093-6900-45 ",.01)
 ;;00093-6900-45
 ;;9002226.02101,"619,00093-6900-45 ",.02)
 ;;00093-6900-45
 ;;9002226.02101,"619,00093-6901-19 ",.01)
 ;;00093-6901-19
 ;;9002226.02101,"619,00093-6901-19 ",.02)
 ;;00093-6901-19
 ;;9002226.02101,"619,00093-6901-45 ",.01)
 ;;00093-6901-45
 ;;9002226.02101,"619,00093-6901-45 ",.02)
 ;;00093-6901-45
 ;;9002226.02101,"619,00093-6902-19 ",.01)
 ;;00093-6902-19
 ;;9002226.02101,"619,00093-6902-19 ",.02)
 ;;00093-6902-19
 ;;9002226.02101,"619,00093-6902-45 ",.01)
 ;;00093-6902-45
 ;;9002226.02101,"619,00093-6902-45 ",.02)
 ;;00093-6902-45
 ;;9002226.02101,"619,00093-6903-45 ",.01)
 ;;00093-6903-45
 ;;9002226.02101,"619,00093-6903-45 ",.02)
 ;;00093-6903-45
 ;;9002226.02101,"619,00093-7865-19 ",.01)
 ;;00093-7865-19
 ;;9002226.02101,"619,00093-7865-19 ",.02)
 ;;00093-7865-19
 ;;9002226.02101,"619,00093-7865-65 ",.01)
 ;;00093-7865-65
 ;;9002226.02101,"619,00093-7865-65 ",.02)
 ;;00093-7865-65
 ;;9002226.02101,"619,00093-7866-19 ",.01)
 ;;00093-7866-19
 ;;9002226.02101,"619,00093-7866-19 ",.02)
 ;;00093-7866-19
 ;;9002226.02101,"619,00093-7866-65 ",.01)
 ;;00093-7866-65
 ;;9002226.02101,"619,00093-7866-65 ",.02)
 ;;00093-7866-65
 ;;9002226.02101,"619,00093-7867-19 ",.01)
 ;;00093-7867-19
 ;;9002226.02101,"619,00093-7867-19 ",.02)
 ;;00093-7867-19
 ;;9002226.02101,"619,00093-7867-65 ",.01)
 ;;00093-7867-65
 ;;9002226.02101,"619,00093-7867-65 ",.02)
 ;;00093-7867-65
 ;;9002226.02101,"619,00093-7868-19 ",.01)
 ;;00093-7868-19
 ;;9002226.02101,"619,00093-7868-19 ",.02)
 ;;00093-7868-19
 ;;9002226.02101,"619,00093-7868-65 ",.01)
 ;;00093-7868-65
 ;;9002226.02101,"619,00093-7868-65 ",.02)
 ;;00093-7868-65
 ;;9002226.02101,"619,00093-7869-19 ",.01)
 ;;00093-7869-19
 ;;9002226.02101,"619,00093-7869-19 ",.02)
 ;;00093-7869-19
 ;;9002226.02101,"619,00093-7869-65 ",.01)
 ;;00093-7869-65
 ;;9002226.02101,"619,00093-7869-65 ",.02)
 ;;00093-7869-65
 ;;9002226.02101,"619,00093-7870-19 ",.01)
 ;;00093-7870-19
 ;;9002226.02101,"619,00093-7870-19 ",.02)
 ;;00093-7870-19
 ;;9002226.02101,"619,00093-7870-65 ",.01)
 ;;00093-7870-65
 ;;9002226.02101,"619,00093-7870-65 ",.02)
 ;;00093-7870-65
 ;;9002226.02101,"619,00095-0054-20 ",.01)
 ;;00095-0054-20
 ;;9002226.02101,"619,00095-0054-20 ",.02)
 ;;00095-0054-20
 ;;9002226.02101,"619,00095-0108-01 ",.01)
 ;;00095-0108-01
 ;;9002226.02101,"619,00095-0108-01 ",.02)
 ;;00095-0108-01
 ;;9002226.02101,"619,00095-0108-20 ",.01)
 ;;00095-0108-20
 ;;9002226.02101,"619,00095-0108-20 ",.02)
 ;;00095-0108-20
 ;;9002226.02101,"619,00095-9090-16 ",.01)
 ;;00095-9090-16
 ;;9002226.02101,"619,00095-9090-16 ",.02)
 ;;00095-9090-16
 ;;9002226.02101,"619,00115-1231-01 ",.01)
 ;;00115-1231-01
 ;;9002226.02101,"619,00115-1231-01 ",.02)
 ;;00115-1231-01
 ;;9002226.02101,"619,00115-1231-13 ",.01)
 ;;00115-1231-13
 ;;9002226.02101,"619,00115-1231-13 ",.02)
 ;;00115-1231-13
 ;;9002226.02101,"619,00115-1232-01 ",.01)
 ;;00115-1232-01
 ;;9002226.02101,"619,00115-1232-01 ",.02)
 ;;00115-1232-01
 ;;9002226.02101,"619,00115-1232-13 ",.01)
 ;;00115-1232-13
 ;;9002226.02101,"619,00115-1232-13 ",.02)
 ;;00115-1232-13
 ;;9002226.02101,"619,00115-1233-01 ",.01)
 ;;00115-1233-01
 ;;9002226.02101,"619,00115-1233-01 ",.02)
 ;;00115-1233-01
 ;;9002226.02101,"619,00115-1233-13 ",.01)
 ;;00115-1233-13
 ;;9002226.02101,"619,00115-1233-13 ",.02)
 ;;00115-1233-13
 ;;9002226.02101,"619,00115-1234-01 ",.01)
 ;;00115-1234-01
 ;;9002226.02101,"619,00115-1234-01 ",.02)
 ;;00115-1234-01
 ;;9002226.02101,"619,00115-1234-13 ",.01)
 ;;00115-1234-13
 ;;9002226.02101,"619,00115-1234-13 ",.02)
 ;;00115-1234-13
 ;;9002226.02101,"619,00115-1277-01 ",.01)
 ;;00115-1277-01
 ;;9002226.02101,"619,00115-1277-01 ",.02)
 ;;00115-1277-01
 ;;9002226.02101,"619,00115-1278-01 ",.01)
 ;;00115-1278-01
 ;;9002226.02101,"619,00115-1278-01 ",.02)
 ;;00115-1278-01
 ;;9002226.02101,"619,00115-1279-01 ",.01)
 ;;00115-1279-01
 ;;9002226.02101,"619,00115-1279-01 ",.02)
 ;;00115-1279-01
 ;;9002226.02101,"619,00115-1280-01 ",.01)
 ;;00115-1280-01
 ;;9002226.02101,"619,00115-1280-01 ",.02)
 ;;00115-1280-01
 ;;9002226.02101,"619,00115-1281-01 ",.01)
 ;;00115-1281-01
 ;;9002226.02101,"619,00115-1281-01 ",.02)
 ;;00115-1281-01
 ;;9002226.02101,"619,00115-1282-01 ",.01)
 ;;00115-1282-01
 ;;9002226.02101,"619,00115-1282-01 ",.02)
 ;;00115-1282-01
 ;;9002226.02101,"619,00115-1315-01 ",.01)
 ;;00115-1315-01
 ;;9002226.02101,"619,00115-1315-01 ",.02)
 ;;00115-1315-01
 ;;9002226.02101,"619,00115-1315-13 ",.01)
 ;;00115-1315-13
 ;;9002226.02101,"619,00115-1315-13 ",.02)
 ;;00115-1315-13
 ;;9002226.02101,"619,00115-1316-01 ",.01)
 ;;00115-1316-01
 ;;9002226.02101,"619,00115-1316-01 ",.02)
 ;;00115-1316-01
 ;;9002226.02101,"619,00115-1316-13 ",.01)
 ;;00115-1316-13
 ;;9002226.02101,"619,00115-1316-13 ",.02)
 ;;00115-1316-13
 ;;9002226.02101,"619,00115-1317-01 ",.01)
 ;;00115-1317-01
 ;;9002226.02101,"619,00115-1317-01 ",.02)
 ;;00115-1317-01
 ;;9002226.02101,"619,00115-1317-13 ",.01)
 ;;00115-1317-13
 ;;9002226.02101,"619,00115-1317-13 ",.02)
 ;;00115-1317-13
 ;;9002226.02101,"619,00115-1556-01 ",.01)
 ;;00115-1556-01
 ;;9002226.02101,"619,00115-1556-01 ",.02)
 ;;00115-1556-01
 ;;9002226.02101,"619,00115-1557-01 ",.01)
 ;;00115-1557-01
 ;;9002226.02101,"619,00115-1557-01 ",.02)
 ;;00115-1557-01
 ;;9002226.02101,"619,00115-1558-01 ",.01)
 ;;00115-1558-01
 ;;9002226.02101,"619,00115-1558-01 ",.02)
 ;;00115-1558-01
 ;;9002226.02101,"619,00115-1559-01 ",.01)
 ;;00115-1559-01
 ;;9002226.02101,"619,00115-1559-01 ",.02)
 ;;00115-1559-01
 ;;9002226.02101,"619,00115-1560-01 ",.01)
 ;;00115-1560-01
 ;;9002226.02101,"619,00115-1560-01 ",.02)
 ;;00115-1560-01
 ;;9002226.02101,"619,00115-1561-01 ",.01)
 ;;00115-1561-01