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

BGP82Z59.m

Go to the documentation of this file.
BGP82Z59 ; 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,55700-0367-01 ",.02)
 ;;55700-0367-01
 ;;9002226.02101,"619,55700-0367-30 ",.01)
 ;;55700-0367-30
 ;;9002226.02101,"619,55700-0367-30 ",.02)
 ;;55700-0367-30
 ;;9002226.02101,"619,55700-0367-60 ",.01)
 ;;55700-0367-60
 ;;9002226.02101,"619,55700-0367-60 ",.02)
 ;;55700-0367-60
 ;;9002226.02101,"619,55700-0367-90 ",.01)
 ;;55700-0367-90
 ;;9002226.02101,"619,55700-0367-90 ",.02)
 ;;55700-0367-90
 ;;9002226.02101,"619,55700-0368-01 ",.01)
 ;;55700-0368-01
 ;;9002226.02101,"619,55700-0368-01 ",.02)
 ;;55700-0368-01
 ;;9002226.02101,"619,55700-0368-30 ",.01)
 ;;55700-0368-30
 ;;9002226.02101,"619,55700-0368-30 ",.02)
 ;;55700-0368-30
 ;;9002226.02101,"619,55700-0368-60 ",.01)
 ;;55700-0368-60
 ;;9002226.02101,"619,55700-0368-60 ",.02)
 ;;55700-0368-60
 ;;9002226.02101,"619,55700-0368-90 ",.01)
 ;;55700-0368-90
 ;;9002226.02101,"619,55700-0368-90 ",.02)
 ;;55700-0368-90
 ;;9002226.02101,"619,55700-0369-30 ",.01)
 ;;55700-0369-30
 ;;9002226.02101,"619,55700-0369-30 ",.02)
 ;;55700-0369-30
 ;;9002226.02101,"619,55700-0369-60 ",.01)
 ;;55700-0369-60
 ;;9002226.02101,"619,55700-0369-60 ",.02)
 ;;55700-0369-60
 ;;9002226.02101,"619,55700-0370-30 ",.01)
 ;;55700-0370-30
 ;;9002226.02101,"619,55700-0370-30 ",.02)
 ;;55700-0370-30
 ;;9002226.02101,"619,55700-0373-01 ",.01)
 ;;55700-0373-01
 ;;9002226.02101,"619,55700-0373-01 ",.02)
 ;;55700-0373-01
 ;;9002226.02101,"619,55700-0373-30 ",.01)
 ;;55700-0373-30
 ;;9002226.02101,"619,55700-0373-30 ",.02)
 ;;55700-0373-30
 ;;9002226.02101,"619,55700-0373-40 ",.01)
 ;;55700-0373-40
 ;;9002226.02101,"619,55700-0373-40 ",.02)
 ;;55700-0373-40
 ;;9002226.02101,"619,55700-0373-60 ",.01)
 ;;55700-0373-60
 ;;9002226.02101,"619,55700-0373-60 ",.02)
 ;;55700-0373-60
 ;;9002226.02101,"619,55700-0373-90 ",.01)
 ;;55700-0373-90
 ;;9002226.02101,"619,55700-0373-90 ",.02)
 ;;55700-0373-90
 ;;9002226.02101,"619,55700-0381-30 ",.01)
 ;;55700-0381-30
 ;;9002226.02101,"619,55700-0381-30 ",.02)
 ;;55700-0381-30
 ;;9002226.02101,"619,55700-0385-01 ",.01)
 ;;55700-0385-01
 ;;9002226.02101,"619,55700-0385-01 ",.02)
 ;;55700-0385-01
 ;;9002226.02101,"619,55700-0385-15 ",.01)
 ;;55700-0385-15
 ;;9002226.02101,"619,55700-0385-15 ",.02)
 ;;55700-0385-15
 ;;9002226.02101,"619,55700-0385-20 ",.01)
 ;;55700-0385-20
 ;;9002226.02101,"619,55700-0385-20 ",.02)
 ;;55700-0385-20
 ;;9002226.02101,"619,55700-0385-30 ",.01)
 ;;55700-0385-30
 ;;9002226.02101,"619,55700-0385-30 ",.02)
 ;;55700-0385-30
 ;;9002226.02101,"619,55700-0385-40 ",.01)
 ;;55700-0385-40
 ;;9002226.02101,"619,55700-0385-40 ",.02)
 ;;55700-0385-40
 ;;9002226.02101,"619,55700-0385-60 ",.01)
 ;;55700-0385-60
 ;;9002226.02101,"619,55700-0385-60 ",.02)
 ;;55700-0385-60
 ;;9002226.02101,"619,55700-0385-90 ",.01)
 ;;55700-0385-90
 ;;9002226.02101,"619,55700-0385-90 ",.02)
 ;;55700-0385-90
 ;;9002226.02101,"619,55700-0387-30 ",.01)
 ;;55700-0387-30
 ;;9002226.02101,"619,55700-0387-30 ",.02)
 ;;55700-0387-30
 ;;9002226.02101,"619,55700-0387-60 ",.01)
 ;;55700-0387-60
 ;;9002226.02101,"619,55700-0387-60 ",.02)
 ;;55700-0387-60
 ;;9002226.02101,"619,55700-0396-30 ",.01)
 ;;55700-0396-30
 ;;9002226.02101,"619,55700-0396-30 ",.02)
 ;;55700-0396-30
 ;;9002226.02101,"619,55700-0400-30 ",.01)
 ;;55700-0400-30
 ;;9002226.02101,"619,55700-0400-30 ",.02)
 ;;55700-0400-30
 ;;9002226.02101,"619,55700-0402-05 ",.01)
 ;;55700-0402-05
 ;;9002226.02101,"619,55700-0402-05 ",.02)
 ;;55700-0402-05
 ;;9002226.02101,"619,55700-0412-01 ",.01)
 ;;55700-0412-01
 ;;9002226.02101,"619,55700-0412-01 ",.02)
 ;;55700-0412-01
 ;;9002226.02101,"619,55700-0412-08 ",.01)
 ;;55700-0412-08
 ;;9002226.02101,"619,55700-0412-08 ",.02)
 ;;55700-0412-08
 ;;9002226.02101,"619,55700-0412-12 ",.01)
 ;;55700-0412-12
 ;;9002226.02101,"619,55700-0412-12 ",.02)
 ;;55700-0412-12
 ;;9002226.02101,"619,55700-0412-15 ",.01)
 ;;55700-0412-15
 ;;9002226.02101,"619,55700-0412-15 ",.02)
 ;;55700-0412-15
 ;;9002226.02101,"619,55700-0412-18 ",.01)
 ;;55700-0412-18
 ;;9002226.02101,"619,55700-0412-18 ",.02)
 ;;55700-0412-18
 ;;9002226.02101,"619,55700-0412-20 ",.01)
 ;;55700-0412-20
 ;;9002226.02101,"619,55700-0412-20 ",.02)
 ;;55700-0412-20
 ;;9002226.02101,"619,55700-0412-24 ",.01)
 ;;55700-0412-24
 ;;9002226.02101,"619,55700-0412-24 ",.02)
 ;;55700-0412-24
 ;;9002226.02101,"619,55700-0412-30 ",.01)
 ;;55700-0412-30
 ;;9002226.02101,"619,55700-0412-30 ",.02)
 ;;55700-0412-30
 ;;9002226.02101,"619,55700-0412-40 ",.01)
 ;;55700-0412-40
 ;;9002226.02101,"619,55700-0412-40 ",.02)
 ;;55700-0412-40
 ;;9002226.02101,"619,55700-0412-60 ",.01)
 ;;55700-0412-60
 ;;9002226.02101,"619,55700-0412-60 ",.02)
 ;;55700-0412-60
 ;;9002226.02101,"619,55700-0412-90 ",.01)
 ;;55700-0412-90
 ;;9002226.02101,"619,55700-0412-90 ",.02)
 ;;55700-0412-90
 ;;9002226.02101,"619,55700-0417-30 ",.01)
 ;;55700-0417-30
 ;;9002226.02101,"619,55700-0417-30 ",.02)
 ;;55700-0417-30
 ;;9002226.02101,"619,55700-0417-60 ",.01)
 ;;55700-0417-60
 ;;9002226.02101,"619,55700-0417-60 ",.02)
 ;;55700-0417-60
 ;;9002226.02101,"619,55700-0419-60 ",.01)
 ;;55700-0419-60
 ;;9002226.02101,"619,55700-0419-60 ",.02)
 ;;55700-0419-60
 ;;9002226.02101,"619,55700-0423-30 ",.01)
 ;;55700-0423-30
 ;;9002226.02101,"619,55700-0423-30 ",.02)
 ;;55700-0423-30
 ;;9002226.02101,"619,55700-0427-30 ",.01)
 ;;55700-0427-30
 ;;9002226.02101,"619,55700-0427-30 ",.02)
 ;;55700-0427-30
 ;;9002226.02101,"619,55700-0431-30 ",.01)
 ;;55700-0431-30
 ;;9002226.02101,"619,55700-0431-30 ",.02)
 ;;55700-0431-30
 ;;9002226.02101,"619,55700-0431-60 ",.01)
 ;;55700-0431-60
 ;;9002226.02101,"619,55700-0431-60 ",.02)
 ;;55700-0431-60
 ;;9002226.02101,"619,55700-0437-30 ",.01)
 ;;55700-0437-30
 ;;9002226.02101,"619,55700-0437-30 ",.02)
 ;;55700-0437-30
 ;;9002226.02101,"619,55700-0441-30 ",.01)
 ;;55700-0441-30
 ;;9002226.02101,"619,55700-0441-30 ",.02)
 ;;55700-0441-30
 ;;9002226.02101,"619,55700-0443-30 ",.01)
 ;;55700-0443-30
 ;;9002226.02101,"619,55700-0443-30 ",.02)
 ;;55700-0443-30
 ;;9002226.02101,"619,55700-0447-30 ",.01)
 ;;55700-0447-30
 ;;9002226.02101,"619,55700-0447-30 ",.02)
 ;;55700-0447-30
 ;;9002226.02101,"619,55700-0448-30 ",.01)
 ;;55700-0448-30
 ;;9002226.02101,"619,55700-0448-30 ",.02)
 ;;55700-0448-30
 ;;9002226.02101,"619,55700-0462-90 ",.01)
 ;;55700-0462-90
 ;;9002226.02101,"619,55700-0462-90 ",.02)
 ;;55700-0462-90
 ;;9002226.02101,"619,55700-0496-01 ",.01)
 ;;55700-0496-01
 ;;9002226.02101,"619,55700-0496-01 ",.02)
 ;;55700-0496-01
 ;;9002226.02101,"619,55700-0496-14 ",.01)
 ;;55700-0496-14
 ;;9002226.02101,"619,55700-0496-14 ",.02)
 ;;55700-0496-14
 ;;9002226.02101,"619,55700-0496-21 ",.01)
 ;;55700-0496-21
 ;;9002226.02101,"619,55700-0496-21 ",.02)
 ;;55700-0496-21
 ;;9002226.02101,"619,55700-0496-30 ",.01)
 ;;55700-0496-30
 ;;9002226.02101,"619,55700-0496-30 ",.02)
 ;;55700-0496-30
 ;;9002226.02101,"619,55700-0496-60 ",.01)
 ;;55700-0496-60
 ;;9002226.02101,"619,55700-0496-60 ",.02)
 ;;55700-0496-60
 ;;9002226.02101,"619,55700-0496-90 ",.01)
 ;;55700-0496-90
 ;;9002226.02101,"619,55700-0496-90 ",.02)
 ;;55700-0496-90
 ;;9002226.02101,"619,55700-0497-01 ",.01)
 ;;55700-0497-01
 ;;9002226.02101,"619,55700-0497-01 ",.02)
 ;;55700-0497-01
 ;;9002226.02101,"619,55700-0497-30 ",.01)
 ;;55700-0497-30
 ;;9002226.02101,"619,55700-0497-30 ",.02)
 ;;55700-0497-30
 ;;9002226.02101,"619,55700-0497-60 ",.01)
 ;;55700-0497-60
 ;;9002226.02101,"619,55700-0497-60 ",.02)
 ;;55700-0497-60
 ;;9002226.02101,"619,55700-0497-90 ",.01)
 ;;55700-0497-90
 ;;9002226.02101,"619,55700-0497-90 ",.02)
 ;;55700-0497-90
 ;;9002226.02101,"619,55700-0498-01 ",.01)
 ;;55700-0498-01
 ;;9002226.02101,"619,55700-0498-01 ",.02)
 ;;55700-0498-01
 ;;9002226.02101,"619,55700-0498-14 ",.01)
 ;;55700-0498-14
 ;;9002226.02101,"619,55700-0498-14 ",.02)
 ;;55700-0498-14
 ;;9002226.02101,"619,55700-0498-15 ",.01)
 ;;55700-0498-15
 ;;9002226.02101,"619,55700-0498-15 ",.02)
 ;;55700-0498-15
 ;;9002226.02101,"619,55700-0498-20 ",.01)
 ;;55700-0498-20
 ;;9002226.02101,"619,55700-0498-20 ",.02)
 ;;55700-0498-20
 ;;9002226.02101,"619,55700-0498-21 ",.01)
 ;;55700-0498-21
 ;;9002226.02101,"619,55700-0498-21 ",.02)
 ;;55700-0498-21
 ;;9002226.02101,"619,55700-0498-30 ",.01)
 ;;55700-0498-30
 ;;9002226.02101,"619,55700-0498-30 ",.02)
 ;;55700-0498-30
 ;;9002226.02101,"619,55700-0498-40 ",.01)
 ;;55700-0498-40
 ;;9002226.02101,"619,55700-0498-40 ",.02)
 ;;55700-0498-40
 ;;9002226.02101,"619,55700-0498-60 ",.01)
 ;;55700-0498-60
 ;;9002226.02101,"619,55700-0498-60 ",.02)
 ;;55700-0498-60
 ;;9002226.02101,"619,55700-0498-90 ",.01)
 ;;55700-0498-90
 ;;9002226.02101,"619,55700-0498-90 ",.02)
 ;;55700-0498-90
 ;;9002226.02101,"619,55700-0509-01 ",.01)
 ;;55700-0509-01
 ;;9002226.02101,"619,55700-0509-01 ",.02)
 ;;55700-0509-01
 ;;9002226.02101,"619,55700-0509-30 ",.01)
 ;;55700-0509-30
 ;;9002226.02101,"619,55700-0509-30 ",.02)
 ;;55700-0509-30
 ;;9002226.02101,"619,57664-0126-13 ",.01)
 ;;57664-0126-13
 ;;9002226.02101,"619,57664-0126-13 ",.02)
 ;;57664-0126-13
 ;;9002226.02101,"619,57664-0126-88 ",.01)
 ;;57664-0126-88
 ;;9002226.02101,"619,57664-0126-88 ",.02)
 ;;57664-0126-88
 ;;9002226.02101,"619,57664-0155-13 ",.01)
 ;;57664-0155-13
 ;;9002226.02101,"619,57664-0155-13 ",.02)
 ;;57664-0155-13
 ;;9002226.02101,"619,57664-0155-88 ",.01)
 ;;57664-0155-88
 ;;9002226.02101,"619,57664-0155-88 ",.02)
 ;;57664-0155-88
 ;;9002226.02101,"619,57664-0156-88 ",.01)
 ;;57664-0156-88
 ;;9002226.02101,"619,57664-0156-88 ",.02)
 ;;57664-0156-88
 ;;9002226.02101,"619,57664-0160-88 ",.01)
 ;;57664-0160-88
 ;;9002226.02101,"619,57664-0160-88 ",.02)
 ;;57664-0160-88
 ;;9002226.02101,"619,57664-0170-13 ",.01)
 ;;57664-0170-13
 ;;9002226.02101,"619,57664-0170-13 ",.02)
 ;;57664-0170-13
 ;;9002226.02101,"619,57664-0170-88 ",.01)
 ;;57664-0170-88
 ;;9002226.02101,"619,57664-0170-88 ",.02)
 ;;57664-0170-88
 ;;9002226.02101,"619,57664-0176-13 ",.01)
 ;;57664-0176-13
 ;;9002226.02101,"619,57664-0176-13 ",.02)
 ;;57664-0176-13
 ;;9002226.02101,"619,57664-0176-88 ",.01)
 ;;57664-0176-88
 ;;9002226.02101,"619,57664-0176-88 ",.02)
 ;;57664-0176-88
 ;;9002226.02101,"619,57664-0185-31 ",.01)
 ;;57664-0185-31
 ;;9002226.02101,"619,57664-0185-31 ",.02)
 ;;57664-0185-31
 ;;9002226.02101,"619,57664-0185-34 ",.01)
 ;;57664-0185-34
 ;;9002226.02101,"619,57664-0185-34 ",.02)
 ;;57664-0185-34
 ;;9002226.02101,"619,57664-0187-88 ",.01)
 ;;57664-0187-88
 ;;9002226.02101,"619,57664-0187-88 ",.02)
 ;;57664-0187-88
 ;;9002226.02101,"619,57664-0223-88 ",.01)
 ;;57664-0223-88
 ;;9002226.02101,"619,57664-0223-88 ",.02)
 ;;57664-0223-88
 ;;9002226.02101,"619,57664-0224-88 ",.01)
 ;;57664-0224-88
 ;;9002226.02101,"619,57664-0224-88 ",.02)
 ;;57664-0224-88
 ;;9002226.02101,"619,57664-0358-31 ",.01)
 ;;57664-0358-31
 ;;9002226.02101,"619,57664-0358-31 ",.02)
 ;;57664-0358-31
 ;;9002226.02101,"619,57664-0358-35 ",.01)
 ;;57664-0358-35
 ;;9002226.02101,"619,57664-0358-35 ",.02)
 ;;57664-0358-35
 ;;9002226.02101,"619,57664-0359-31 ",.01)
 ;;57664-0359-31
 ;;9002226.02101,"619,57664-0359-31 ",.02)
 ;;57664-0359-31
 ;;9002226.02101,"619,57664-0359-35 ",.01)
 ;;57664-0359-35
 ;;9002226.02101,"619,57664-0359-35 ",.02)
 ;;57664-0359-35
 ;;9002226.02101,"619,57664-0370-88 ",.01)
 ;;57664-0370-88
 ;;9002226.02101,"619,57664-0370-88 ",.02)
 ;;57664-0370-88
 ;;9002226.02101,"619,57664-0371-88 ",.01)
 ;;57664-0371-88
 ;;9002226.02101,"619,57664-0371-88 ",.02)
 ;;57664-0371-88
 ;;9002226.02101,"619,57664-0377-08 ",.01)
 ;;57664-0377-08
 ;;9002226.02101,"619,57664-0377-08 ",.02)
 ;;57664-0377-08
 ;;9002226.02101,"619,57664-0377-13 ",.01)
 ;;57664-0377-13