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

BGP82G29.m

Go to the documentation of this file.
BGP82G29 ; 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,"875,68387-0600-60 ",.02)
 ;;68387-0600-60
 ;;9002226.02101,"875,68387-0600-90 ",.01)
 ;;68387-0600-90
 ;;9002226.02101,"875,68387-0600-90 ",.02)
 ;;68387-0600-90
 ;;9002226.02101,"875,68405-0028-06 ",.01)
 ;;68405-0028-06
 ;;9002226.02101,"875,68405-0028-06 ",.02)
 ;;68405-0028-06
 ;;9002226.02101,"875,68405-0058-36 ",.01)
 ;;68405-0058-36
 ;;9002226.02101,"875,68405-0058-36 ",.02)
 ;;68405-0058-36
 ;;9002226.02101,"875,68405-0158-36 ",.01)
 ;;68405-0158-36
 ;;9002226.02101,"875,68405-0158-36 ",.02)
 ;;68405-0158-36
 ;;9002226.02101,"875,68405-0580-26 ",.01)
 ;;68405-0580-26
 ;;9002226.02101,"875,68405-0580-26 ",.02)
 ;;68405-0580-26
 ;;9002226.02101,"875,68453-0950-10 ",.01)
 ;;68453-0950-10
 ;;9002226.02101,"875,68453-0950-10 ",.02)
 ;;68453-0950-10
 ;;9002226.02101,"875,68645-0449-70 ",.01)
 ;;68645-0449-70
 ;;9002226.02101,"875,68645-0449-70 ",.02)
 ;;68645-0449-70
 ;;9002226.02101,"875,68645-0449-90 ",.01)
 ;;68645-0449-90
 ;;9002226.02101,"875,68645-0449-90 ",.02)
 ;;68645-0449-90
 ;;9002226.02101,"875,68645-0450-70 ",.01)
 ;;68645-0450-70
 ;;9002226.02101,"875,68645-0450-70 ",.02)
 ;;68645-0450-70
 ;;9002226.02101,"875,68645-0450-90 ",.01)
 ;;68645-0450-90
 ;;9002226.02101,"875,68645-0450-90 ",.02)
 ;;68645-0450-90
 ;;9002226.02101,"875,68645-0517-90 ",.01)
 ;;68645-0517-90
 ;;9002226.02101,"875,68645-0517-90 ",.02)
 ;;68645-0517-90
 ;;9002226.02101,"875,68645-0518-90 ",.01)
 ;;68645-0518-90
 ;;9002226.02101,"875,68645-0518-90 ",.02)
 ;;68645-0518-90
 ;;9002226.02101,"875,68788-2582-03 ",.01)
 ;;68788-2582-03
 ;;9002226.02101,"875,68788-2582-03 ",.02)
 ;;68788-2582-03
 ;;9002226.02101,"875,68788-2582-06 ",.01)
 ;;68788-2582-06
 ;;9002226.02101,"875,68788-2582-06 ",.02)
 ;;68788-2582-06
 ;;9002226.02101,"875,68788-2582-09 ",.01)
 ;;68788-2582-09
 ;;9002226.02101,"875,68788-2582-09 ",.02)
 ;;68788-2582-09
 ;;9002226.02101,"875,68788-6318-00 ",.01)
 ;;68788-6318-00
 ;;9002226.02101,"875,68788-6318-00 ",.02)
 ;;68788-6318-00
 ;;9002226.02101,"875,68788-6318-01 ",.01)
 ;;68788-6318-01
 ;;9002226.02101,"875,68788-6318-01 ",.02)
 ;;68788-6318-01
 ;;9002226.02101,"875,68788-6318-02 ",.01)
 ;;68788-6318-02
 ;;9002226.02101,"875,68788-6318-02 ",.02)
 ;;68788-6318-02
 ;;9002226.02101,"875,68788-6318-03 ",.01)
 ;;68788-6318-03
 ;;9002226.02101,"875,68788-6318-03 ",.02)
 ;;68788-6318-03
 ;;9002226.02101,"875,68788-6318-05 ",.01)
 ;;68788-6318-05
 ;;9002226.02101,"875,68788-6318-05 ",.02)
 ;;68788-6318-05
 ;;9002226.02101,"875,68788-6318-06 ",.01)
 ;;68788-6318-06
 ;;9002226.02101,"875,68788-6318-06 ",.02)
 ;;68788-6318-06
 ;;9002226.02101,"875,68788-6318-08 ",.01)
 ;;68788-6318-08
 ;;9002226.02101,"875,68788-6318-08 ",.02)
 ;;68788-6318-08
 ;;9002226.02101,"875,68788-6318-09 ",.01)
 ;;68788-6318-09
 ;;9002226.02101,"875,68788-6318-09 ",.02)
 ;;68788-6318-09
 ;;9002226.02101,"875,68788-6375-00 ",.01)
 ;;68788-6375-00
 ;;9002226.02101,"875,68788-6375-00 ",.02)
 ;;68788-6375-00
 ;;9002226.02101,"875,68788-6375-01 ",.01)
 ;;68788-6375-01
 ;;9002226.02101,"875,68788-6375-01 ",.02)
 ;;68788-6375-01
 ;;9002226.02101,"875,68788-6375-02 ",.01)
 ;;68788-6375-02
 ;;9002226.02101,"875,68788-6375-02 ",.02)
 ;;68788-6375-02
 ;;9002226.02101,"875,68788-6375-03 ",.01)
 ;;68788-6375-03
 ;;9002226.02101,"875,68788-6375-03 ",.02)
 ;;68788-6375-03
 ;;9002226.02101,"875,68788-6375-05 ",.01)
 ;;68788-6375-05
 ;;9002226.02101,"875,68788-6375-05 ",.02)
 ;;68788-6375-05
 ;;9002226.02101,"875,68788-6375-06 ",.01)
 ;;68788-6375-06
 ;;9002226.02101,"875,68788-6375-06 ",.02)
 ;;68788-6375-06
 ;;9002226.02101,"875,68788-6375-09 ",.01)
 ;;68788-6375-09
 ;;9002226.02101,"875,68788-6375-09 ",.02)
 ;;68788-6375-09
 ;;9002226.02101,"875,68788-6391-01 ",.01)
 ;;68788-6391-01
 ;;9002226.02101,"875,68788-6391-01 ",.02)
 ;;68788-6391-01
 ;;9002226.02101,"875,68788-6391-02 ",.01)
 ;;68788-6391-02
 ;;9002226.02101,"875,68788-6391-02 ",.02)
 ;;68788-6391-02
 ;;9002226.02101,"875,68788-6391-03 ",.01)
 ;;68788-6391-03
 ;;9002226.02101,"875,68788-6391-03 ",.02)
 ;;68788-6391-03
 ;;9002226.02101,"875,68788-6391-04 ",.01)
 ;;68788-6391-04
 ;;9002226.02101,"875,68788-6391-04 ",.02)
 ;;68788-6391-04
 ;;9002226.02101,"875,68788-6391-06 ",.01)
 ;;68788-6391-06
 ;;9002226.02101,"875,68788-6391-06 ",.02)
 ;;68788-6391-06
 ;;9002226.02101,"875,68788-6391-08 ",.01)
 ;;68788-6391-08
 ;;9002226.02101,"875,68788-6391-08 ",.02)
 ;;68788-6391-08
 ;;9002226.02101,"875,68788-6391-09 ",.01)
 ;;68788-6391-09
 ;;9002226.02101,"875,68788-6391-09 ",.02)
 ;;68788-6391-09
 ;;9002226.02101,"875,68788-6466-00 ",.01)
 ;;68788-6466-00
 ;;9002226.02101,"875,68788-6466-00 ",.02)
 ;;68788-6466-00
 ;;9002226.02101,"875,68788-6466-01 ",.01)
 ;;68788-6466-01
 ;;9002226.02101,"875,68788-6466-01 ",.02)
 ;;68788-6466-01
 ;;9002226.02101,"875,68788-6466-02 ",.01)
 ;;68788-6466-02
 ;;9002226.02101,"875,68788-6466-02 ",.02)
 ;;68788-6466-02
 ;;9002226.02101,"875,68788-6466-03 ",.01)
 ;;68788-6466-03
 ;;9002226.02101,"875,68788-6466-03 ",.02)
 ;;68788-6466-03
 ;;9002226.02101,"875,68788-6466-06 ",.01)
 ;;68788-6466-06
 ;;9002226.02101,"875,68788-6466-06 ",.02)
 ;;68788-6466-06
 ;;9002226.02101,"875,68788-9069-02 ",.01)
 ;;68788-9069-02
 ;;9002226.02101,"875,68788-9069-02 ",.02)
 ;;68788-9069-02
 ;;9002226.02101,"875,68788-9069-03 ",.01)
 ;;68788-9069-03
 ;;9002226.02101,"875,68788-9069-03 ",.02)
 ;;68788-9069-03
 ;;9002226.02101,"875,68788-9069-05 ",.01)
 ;;68788-9069-05
 ;;9002226.02101,"875,68788-9069-05 ",.02)
 ;;68788-9069-05
 ;;9002226.02101,"875,68788-9069-06 ",.01)
 ;;68788-9069-06
 ;;9002226.02101,"875,68788-9069-06 ",.02)
 ;;68788-9069-06
 ;;9002226.02101,"875,68788-9069-09 ",.01)
 ;;68788-9069-09
 ;;9002226.02101,"875,68788-9069-09 ",.02)
 ;;68788-9069-09
 ;;9002226.02101,"875,68788-9075-03 ",.01)
 ;;68788-9075-03
 ;;9002226.02101,"875,68788-9075-03 ",.02)
 ;;68788-9075-03
 ;;9002226.02101,"875,68788-9075-04 ",.01)
 ;;68788-9075-04
 ;;9002226.02101,"875,68788-9075-04 ",.02)
 ;;68788-9075-04
 ;;9002226.02101,"875,68788-9075-06 ",.01)
 ;;68788-9075-06
 ;;9002226.02101,"875,68788-9075-06 ",.02)
 ;;68788-9075-06
 ;;9002226.02101,"875,68788-9075-09 ",.01)
 ;;68788-9075-09
 ;;9002226.02101,"875,68788-9075-09 ",.02)
 ;;68788-9075-09
 ;;9002226.02101,"875,68788-9076-02 ",.01)
 ;;68788-9076-02
 ;;9002226.02101,"875,68788-9076-02 ",.02)
 ;;68788-9076-02
 ;;9002226.02101,"875,68788-9076-03 ",.01)
 ;;68788-9076-03
 ;;9002226.02101,"875,68788-9076-03 ",.02)
 ;;68788-9076-03
 ;;9002226.02101,"875,68788-9076-06 ",.01)
 ;;68788-9076-06
 ;;9002226.02101,"875,68788-9076-06 ",.02)
 ;;68788-9076-06
 ;;9002226.02101,"875,68788-9076-09 ",.01)
 ;;68788-9076-09
 ;;9002226.02101,"875,68788-9076-09 ",.02)
 ;;68788-9076-09
 ;;9002226.02101,"875,68788-9138-03 ",.01)
 ;;68788-9138-03
 ;;9002226.02101,"875,68788-9138-03 ",.02)
 ;;68788-9138-03
 ;;9002226.02101,"875,68788-9138-06 ",.01)
 ;;68788-9138-06
 ;;9002226.02101,"875,68788-9138-06 ",.02)
 ;;68788-9138-06
 ;;9002226.02101,"875,68788-9138-09 ",.01)
 ;;68788-9138-09
 ;;9002226.02101,"875,68788-9138-09 ",.02)
 ;;68788-9138-09
 ;;9002226.02101,"875,68788-9150-03 ",.01)
 ;;68788-9150-03
 ;;9002226.02101,"875,68788-9150-03 ",.02)
 ;;68788-9150-03
 ;;9002226.02101,"875,68788-9150-06 ",.01)
 ;;68788-9150-06
 ;;9002226.02101,"875,68788-9150-06 ",.02)
 ;;68788-9150-06
 ;;9002226.02101,"875,68788-9150-09 ",.01)
 ;;68788-9150-09
 ;;9002226.02101,"875,68788-9150-09 ",.02)
 ;;68788-9150-09
 ;;9002226.02101,"875,68788-9277-01 ",.01)
 ;;68788-9277-01
 ;;9002226.02101,"875,68788-9277-01 ",.02)
 ;;68788-9277-01
 ;;9002226.02101,"875,68788-9376-02 ",.01)
 ;;68788-9376-02
 ;;9002226.02101,"875,68788-9376-02 ",.02)
 ;;68788-9376-02
 ;;9002226.02101,"875,68788-9508-02 ",.01)
 ;;68788-9508-02
 ;;9002226.02101,"875,68788-9508-02 ",.02)
 ;;68788-9508-02
 ;;9002226.02101,"875,68788-9508-03 ",.01)
 ;;68788-9508-03
 ;;9002226.02101,"875,68788-9508-03 ",.02)
 ;;68788-9508-03
 ;;9002226.02101,"875,68788-9768-01 ",.01)
 ;;68788-9768-01
 ;;9002226.02101,"875,68788-9768-01 ",.02)
 ;;68788-9768-01
 ;;9002226.02101,"875,68788-9768-02 ",.01)
 ;;68788-9768-02
 ;;9002226.02101,"875,68788-9768-02 ",.02)
 ;;68788-9768-02
 ;;9002226.02101,"875,68788-9768-03 ",.01)
 ;;68788-9768-03
 ;;9002226.02101,"875,68788-9768-03 ",.02)
 ;;68788-9768-03
 ;;9002226.02101,"875,68788-9768-04 ",.01)
 ;;68788-9768-04
 ;;9002226.02101,"875,68788-9768-04 ",.02)
 ;;68788-9768-04
 ;;9002226.02101,"875,68788-9768-06 ",.01)
 ;;68788-9768-06
 ;;9002226.02101,"875,68788-9768-06 ",.02)
 ;;68788-9768-06
 ;;9002226.02101,"875,68788-9768-08 ",.01)
 ;;68788-9768-08
 ;;9002226.02101,"875,68788-9768-08 ",.02)
 ;;68788-9768-08
 ;;9002226.02101,"875,68788-9768-09 ",.01)
 ;;68788-9768-09
 ;;9002226.02101,"875,68788-9768-09 ",.02)
 ;;68788-9768-09
 ;;9002226.02101,"875,68788-9797-03 ",.01)
 ;;68788-9797-03
 ;;9002226.02101,"875,68788-9797-03 ",.02)
 ;;68788-9797-03
 ;;9002226.02101,"875,68788-9797-06 ",.01)
 ;;68788-9797-06
 ;;9002226.02101,"875,68788-9797-06 ",.02)
 ;;68788-9797-06
 ;;9002226.02101,"875,68788-9896-03 ",.01)
 ;;68788-9896-03
 ;;9002226.02101,"875,68788-9896-03 ",.02)
 ;;68788-9896-03
 ;;9002226.02101,"875,68788-9967-03 ",.01)
 ;;68788-9967-03
 ;;9002226.02101,"875,68788-9967-03 ",.02)
 ;;68788-9967-03
 ;;9002226.02101,"875,69097-0845-07 ",.01)
 ;;69097-0845-07
 ;;9002226.02101,"875,69097-0845-07 ",.02)
 ;;69097-0845-07
 ;;9002226.02101,"875,69097-0846-07 ",.01)
 ;;69097-0846-07
 ;;9002226.02101,"875,69097-0846-07 ",.02)
 ;;69097-0846-07
 ;;9002226.02101,"875,69097-0846-15 ",.01)
 ;;69097-0846-15
 ;;9002226.02101,"875,69097-0846-15 ",.02)
 ;;69097-0846-15
 ;;9002226.02101,"875,69176-0100-02 ",.01)
 ;;69176-0100-02
 ;;9002226.02101,"875,69176-0100-02 ",.02)
 ;;69176-0100-02
 ;;9002226.02101,"875,69336-0104-11 ",.01)
 ;;69336-0104-11
 ;;9002226.02101,"875,69336-0104-11 ",.02)
 ;;69336-0104-11
 ;;9002226.02101,"875,69336-0105-11 ",.01)
 ;;69336-0105-11
 ;;9002226.02101,"875,69336-0105-11 ",.02)
 ;;69336-0105-11
 ;;9002226.02101,"875,69420-1001-01 ",.01)
 ;;69420-1001-01
 ;;9002226.02101,"875,69420-1001-01 ",.02)
 ;;69420-1001-01
 ;;9002226.02101,"875,69512-0541-10 ",.01)
 ;;69512-0541-10
 ;;9002226.02101,"875,69512-0541-10 ",.02)
 ;;69512-0541-10
 ;;9002226.02101,"875,69543-0134-10 ",.01)
 ;;69543-0134-10
 ;;9002226.02101,"875,69543-0134-10 ",.02)
 ;;69543-0134-10
 ;;9002226.02101,"875,69543-0134-50 ",.01)
 ;;69543-0134-50
 ;;9002226.02101,"875,69543-0134-50 ",.02)
 ;;69543-0134-50
 ;;9002226.02101,"875,69543-0135-10 ",.01)
 ;;69543-0135-10
 ;;9002226.02101,"875,69543-0135-10 ",.02)
 ;;69543-0135-10
 ;;9002226.02101,"875,69543-0135-50 ",.01)
 ;;69543-0135-50
 ;;9002226.02101,"875,69543-0135-50 ",.02)
 ;;69543-0135-50
 ;;9002226.02101,"875,69597-0003-31 ",.01)
 ;;69597-0003-31
 ;;9002226.02101,"875,69597-0003-31 ",.02)
 ;;69597-0003-31
 ;;9002226.02101,"875,70332-0102-01 ",.01)
 ;;70332-0102-01
 ;;9002226.02101,"875,70332-0102-01 ",.02)
 ;;70332-0102-01
 ;;9002226.02101,"875,70332-0106-01 ",.01)
 ;;70332-0106-01
 ;;9002226.02101,"875,70332-0106-01 ",.02)
 ;;70332-0106-01
 ;;9002226.02101,"875,70655-0071-10 ",.01)
 ;;70655-0071-10
 ;;9002226.02101,"875,70655-0071-10 ",.02)
 ;;70655-0071-10
 ;;9002226.02101,"875,70655-0071-25 ",.01)
 ;;70655-0071-25
 ;;9002226.02101,"875,70655-0071-25 ",.02)
 ;;70655-0071-25
 ;;9002226.02101,"875,71085-0010-01 ",.01)
 ;;71085-0010-01
 ;;9002226.02101,"875,71085-0010-01 ",.02)
 ;;71085-0010-01
 ;;9002226.02101,"875,76218-1219-01 ",.01)
 ;;76218-1219-01
 ;;9002226.02101,"875,76218-1219-01 ",.02)
 ;;76218-1219-01
 ;;9002226.02101,"875,76218-1219-07 ",.01)
 ;;76218-1219-07