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

BGP83A34.m

Go to the documentation of this file.
BGP83A34 ; 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,"1828,63304-0553-01 ",.01)
 ;;63304-0553-01
 ;;9002226.02101,"1828,63304-0553-01 ",.02)
 ;;63304-0553-01
 ;;9002226.02101,"1828,63304-0553-05 ",.01)
 ;;63304-0553-05
 ;;9002226.02101,"1828,63304-0553-05 ",.02)
 ;;63304-0553-05
 ;;9002226.02101,"1828,63304-0554-01 ",.01)
 ;;63304-0554-01
 ;;9002226.02101,"1828,63304-0554-01 ",.02)
 ;;63304-0554-01
 ;;9002226.02101,"1828,63304-0772-01 ",.01)
 ;;63304-0772-01
 ;;9002226.02101,"1828,63304-0772-01 ",.02)
 ;;63304-0772-01
 ;;9002226.02101,"1828,63304-0772-05 ",.01)
 ;;63304-0772-05
 ;;9002226.02101,"1828,63304-0772-05 ",.02)
 ;;63304-0772-05
 ;;9002226.02101,"1828,63304-0772-90 ",.01)
 ;;63304-0772-90
 ;;9002226.02101,"1828,63304-0772-90 ",.02)
 ;;63304-0772-90
 ;;9002226.02101,"1828,63304-0773-01 ",.01)
 ;;63304-0773-01
 ;;9002226.02101,"1828,63304-0773-01 ",.02)
 ;;63304-0773-01
 ;;9002226.02101,"1828,63304-0773-05 ",.01)
 ;;63304-0773-05
 ;;9002226.02101,"1828,63304-0773-05 ",.02)
 ;;63304-0773-05
 ;;9002226.02101,"1828,63304-0773-10 ",.01)
 ;;63304-0773-10
 ;;9002226.02101,"1828,63304-0773-10 ",.02)
 ;;63304-0773-10
 ;;9002226.02101,"1828,63304-0773-90 ",.01)
 ;;63304-0773-90
 ;;9002226.02101,"1828,63304-0773-90 ",.02)
 ;;63304-0773-90
 ;;9002226.02101,"1828,63304-0774-01 ",.01)
 ;;63304-0774-01
 ;;9002226.02101,"1828,63304-0774-01 ",.02)
 ;;63304-0774-01
 ;;9002226.02101,"1828,63304-0774-05 ",.01)
 ;;63304-0774-05
 ;;9002226.02101,"1828,63304-0774-05 ",.02)
 ;;63304-0774-05
 ;;9002226.02101,"1828,63304-0774-90 ",.01)
 ;;63304-0774-90
 ;;9002226.02101,"1828,63304-0774-90 ",.02)
 ;;63304-0774-90
 ;;9002226.02101,"1828,63629-1233-00 ",.01)
 ;;63629-1233-00
 ;;9002226.02101,"1828,63629-1233-00 ",.02)
 ;;63629-1233-00
 ;;9002226.02101,"1828,63629-1233-01 ",.01)
 ;;63629-1233-01
 ;;9002226.02101,"1828,63629-1233-01 ",.02)
 ;;63629-1233-01
 ;;9002226.02101,"1828,63629-1233-02 ",.01)
 ;;63629-1233-02
 ;;9002226.02101,"1828,63629-1233-02 ",.02)
 ;;63629-1233-02
 ;;9002226.02101,"1828,63629-1233-03 ",.01)
 ;;63629-1233-03
 ;;9002226.02101,"1828,63629-1233-03 ",.02)
 ;;63629-1233-03
 ;;9002226.02101,"1828,63629-1233-04 ",.01)
 ;;63629-1233-04
 ;;9002226.02101,"1828,63629-1233-04 ",.02)
 ;;63629-1233-04
 ;;9002226.02101,"1828,63629-1233-05 ",.01)
 ;;63629-1233-05
 ;;9002226.02101,"1828,63629-1233-05 ",.02)
 ;;63629-1233-05
 ;;9002226.02101,"1828,63629-1233-06 ",.01)
 ;;63629-1233-06
 ;;9002226.02101,"1828,63629-1233-06 ",.02)
 ;;63629-1233-06
 ;;9002226.02101,"1828,63629-1233-07 ",.01)
 ;;63629-1233-07
 ;;9002226.02101,"1828,63629-1233-07 ",.02)
 ;;63629-1233-07
 ;;9002226.02101,"1828,63629-1233-08 ",.01)
 ;;63629-1233-08
 ;;9002226.02101,"1828,63629-1233-08 ",.02)
 ;;63629-1233-08
 ;;9002226.02101,"1828,63629-1233-09 ",.01)
 ;;63629-1233-09
 ;;9002226.02101,"1828,63629-1233-09 ",.02)
 ;;63629-1233-09
 ;;9002226.02101,"1828,63629-1340-01 ",.01)
 ;;63629-1340-01
 ;;9002226.02101,"1828,63629-1340-01 ",.02)
 ;;63629-1340-01
 ;;9002226.02101,"1828,63629-1340-02 ",.01)
 ;;63629-1340-02
 ;;9002226.02101,"1828,63629-1340-02 ",.02)
 ;;63629-1340-02
 ;;9002226.02101,"1828,63629-1340-03 ",.01)
 ;;63629-1340-03
 ;;9002226.02101,"1828,63629-1340-03 ",.02)
 ;;63629-1340-03
 ;;9002226.02101,"1828,63629-1340-04 ",.01)
 ;;63629-1340-04
 ;;9002226.02101,"1828,63629-1340-04 ",.02)
 ;;63629-1340-04
 ;;9002226.02101,"1828,63629-1340-05 ",.01)
 ;;63629-1340-05
 ;;9002226.02101,"1828,63629-1340-05 ",.02)
 ;;63629-1340-05
 ;;9002226.02101,"1828,63629-1340-06 ",.01)
 ;;63629-1340-06
 ;;9002226.02101,"1828,63629-1340-06 ",.02)
 ;;63629-1340-06
 ;;9002226.02101,"1828,63629-1341-01 ",.01)
 ;;63629-1341-01
 ;;9002226.02101,"1828,63629-1341-01 ",.02)
 ;;63629-1341-01
 ;;9002226.02101,"1828,63629-1341-02 ",.01)
 ;;63629-1341-02
 ;;9002226.02101,"1828,63629-1341-02 ",.02)
 ;;63629-1341-02
 ;;9002226.02101,"1828,63629-1341-03 ",.01)
 ;;63629-1341-03
 ;;9002226.02101,"1828,63629-1341-03 ",.02)
 ;;63629-1341-03
 ;;9002226.02101,"1828,63629-1341-04 ",.01)
 ;;63629-1341-04
 ;;9002226.02101,"1828,63629-1341-04 ",.02)
 ;;63629-1341-04
 ;;9002226.02101,"1828,63629-1341-05 ",.01)
 ;;63629-1341-05
 ;;9002226.02101,"1828,63629-1341-05 ",.02)
 ;;63629-1341-05
 ;;9002226.02101,"1828,63629-1523-01 ",.01)
 ;;63629-1523-01
 ;;9002226.02101,"1828,63629-1523-01 ",.02)
 ;;63629-1523-01
 ;;9002226.02101,"1828,63629-1523-02 ",.01)
 ;;63629-1523-02
 ;;9002226.02101,"1828,63629-1523-02 ",.02)
 ;;63629-1523-02
 ;;9002226.02101,"1828,63629-1523-03 ",.01)
 ;;63629-1523-03
 ;;9002226.02101,"1828,63629-1523-03 ",.02)
 ;;63629-1523-03
 ;;9002226.02101,"1828,63629-1523-04 ",.01)
 ;;63629-1523-04
 ;;9002226.02101,"1828,63629-1523-04 ",.02)
 ;;63629-1523-04
 ;;9002226.02101,"1828,63629-1523-05 ",.01)
 ;;63629-1523-05
 ;;9002226.02101,"1828,63629-1523-05 ",.02)
 ;;63629-1523-05
 ;;9002226.02101,"1828,63629-1523-06 ",.01)
 ;;63629-1523-06
 ;;9002226.02101,"1828,63629-1523-06 ",.02)
 ;;63629-1523-06
 ;;9002226.02101,"1828,63629-1523-07 ",.01)
 ;;63629-1523-07
 ;;9002226.02101,"1828,63629-1523-07 ",.02)
 ;;63629-1523-07
 ;;9002226.02101,"1828,63629-1523-08 ",.01)
 ;;63629-1523-08
 ;;9002226.02101,"1828,63629-1523-08 ",.02)
 ;;63629-1523-08
 ;;9002226.02101,"1828,63629-1523-09 ",.01)
 ;;63629-1523-09
 ;;9002226.02101,"1828,63629-1523-09 ",.02)
 ;;63629-1523-09
 ;;9002226.02101,"1828,63629-1524-01 ",.01)
 ;;63629-1524-01
 ;;9002226.02101,"1828,63629-1524-01 ",.02)
 ;;63629-1524-01
 ;;9002226.02101,"1828,63629-1524-02 ",.01)
 ;;63629-1524-02
 ;;9002226.02101,"1828,63629-1524-02 ",.02)
 ;;63629-1524-02
 ;;9002226.02101,"1828,63629-1524-03 ",.01)
 ;;63629-1524-03
 ;;9002226.02101,"1828,63629-1524-03 ",.02)
 ;;63629-1524-03
 ;;9002226.02101,"1828,63629-1524-04 ",.01)
 ;;63629-1524-04
 ;;9002226.02101,"1828,63629-1524-04 ",.02)
 ;;63629-1524-04
 ;;9002226.02101,"1828,63629-1524-05 ",.01)
 ;;63629-1524-05
 ;;9002226.02101,"1828,63629-1524-05 ",.02)
 ;;63629-1524-05
 ;;9002226.02101,"1828,63629-1524-06 ",.01)
 ;;63629-1524-06
 ;;9002226.02101,"1828,63629-1524-06 ",.02)
 ;;63629-1524-06
 ;;9002226.02101,"1828,63629-1524-07 ",.01)
 ;;63629-1524-07
 ;;9002226.02101,"1828,63629-1524-07 ",.02)
 ;;63629-1524-07
 ;;9002226.02101,"1828,63629-1524-08 ",.01)
 ;;63629-1524-08
 ;;9002226.02101,"1828,63629-1524-08 ",.02)
 ;;63629-1524-08
 ;;9002226.02101,"1828,63629-1524-09 ",.01)
 ;;63629-1524-09
 ;;9002226.02101,"1828,63629-1524-09 ",.02)
 ;;63629-1524-09
 ;;9002226.02101,"1828,63629-1524-10 ",.01)
 ;;63629-1524-10
 ;;9002226.02101,"1828,63629-1524-10 ",.02)
 ;;63629-1524-10
 ;;9002226.02101,"1828,63629-1541-01 ",.01)
 ;;63629-1541-01
 ;;9002226.02101,"1828,63629-1541-01 ",.02)
 ;;63629-1541-01
 ;;9002226.02101,"1828,63629-1541-02 ",.01)
 ;;63629-1541-02
 ;;9002226.02101,"1828,63629-1541-02 ",.02)
 ;;63629-1541-02
 ;;9002226.02101,"1828,63629-1541-03 ",.01)
 ;;63629-1541-03
 ;;9002226.02101,"1828,63629-1541-03 ",.02)
 ;;63629-1541-03
 ;;9002226.02101,"1828,63629-1541-04 ",.01)
 ;;63629-1541-04
 ;;9002226.02101,"1828,63629-1541-04 ",.02)
 ;;63629-1541-04
 ;;9002226.02101,"1828,63629-1541-05 ",.01)
 ;;63629-1541-05
 ;;9002226.02101,"1828,63629-1541-05 ",.02)
 ;;63629-1541-05
 ;;9002226.02101,"1828,63629-1541-06 ",.01)
 ;;63629-1541-06
 ;;9002226.02101,"1828,63629-1541-06 ",.02)
 ;;63629-1541-06
 ;;9002226.02101,"1828,63629-1541-07 ",.01)
 ;;63629-1541-07
 ;;9002226.02101,"1828,63629-1541-07 ",.02)
 ;;63629-1541-07
 ;;9002226.02101,"1828,63629-1619-01 ",.01)
 ;;63629-1619-01
 ;;9002226.02101,"1828,63629-1619-01 ",.02)
 ;;63629-1619-01
 ;;9002226.02101,"1828,63629-1619-02 ",.01)
 ;;63629-1619-02
 ;;9002226.02101,"1828,63629-1619-02 ",.02)
 ;;63629-1619-02
 ;;9002226.02101,"1828,63629-1619-03 ",.01)
 ;;63629-1619-03
 ;;9002226.02101,"1828,63629-1619-03 ",.02)
 ;;63629-1619-03
 ;;9002226.02101,"1828,63629-1619-04 ",.01)
 ;;63629-1619-04
 ;;9002226.02101,"1828,63629-1619-04 ",.02)
 ;;63629-1619-04
 ;;9002226.02101,"1828,63629-1621-01 ",.01)
 ;;63629-1621-01
 ;;9002226.02101,"1828,63629-1621-01 ",.02)
 ;;63629-1621-01
 ;;9002226.02101,"1828,63629-1621-02 ",.01)
 ;;63629-1621-02
 ;;9002226.02101,"1828,63629-1621-02 ",.02)
 ;;63629-1621-02
 ;;9002226.02101,"1828,63629-1621-03 ",.01)
 ;;63629-1621-03
 ;;9002226.02101,"1828,63629-1621-03 ",.02)
 ;;63629-1621-03
 ;;9002226.02101,"1828,63629-1621-04 ",.01)
 ;;63629-1621-04
 ;;9002226.02101,"1828,63629-1621-04 ",.02)
 ;;63629-1621-04
 ;;9002226.02101,"1828,63629-1621-05 ",.01)
 ;;63629-1621-05
 ;;9002226.02101,"1828,63629-1621-05 ",.02)
 ;;63629-1621-05
 ;;9002226.02101,"1828,63629-1775-01 ",.01)
 ;;63629-1775-01
 ;;9002226.02101,"1828,63629-1775-01 ",.02)
 ;;63629-1775-01
 ;;9002226.02101,"1828,63629-1775-02 ",.01)
 ;;63629-1775-02
 ;;9002226.02101,"1828,63629-1775-02 ",.02)
 ;;63629-1775-02
 ;;9002226.02101,"1828,63629-1775-03 ",.01)
 ;;63629-1775-03
 ;;9002226.02101,"1828,63629-1775-03 ",.02)
 ;;63629-1775-03
 ;;9002226.02101,"1828,63629-2942-00 ",.01)
 ;;63629-2942-00
 ;;9002226.02101,"1828,63629-2942-00 ",.02)
 ;;63629-2942-00
 ;;9002226.02101,"1828,63629-2942-01 ",.01)
 ;;63629-2942-01
 ;;9002226.02101,"1828,63629-2942-01 ",.02)
 ;;63629-2942-01
 ;;9002226.02101,"1828,63629-2942-02 ",.01)
 ;;63629-2942-02
 ;;9002226.02101,"1828,63629-2942-02 ",.02)
 ;;63629-2942-02
 ;;9002226.02101,"1828,63629-2942-03 ",.01)
 ;;63629-2942-03
 ;;9002226.02101,"1828,63629-2942-03 ",.02)
 ;;63629-2942-03
 ;;9002226.02101,"1828,63629-2942-04 ",.01)
 ;;63629-2942-04
 ;;9002226.02101,"1828,63629-2942-04 ",.02)
 ;;63629-2942-04
 ;;9002226.02101,"1828,63629-2942-05 ",.01)
 ;;63629-2942-05
 ;;9002226.02101,"1828,63629-2942-05 ",.02)
 ;;63629-2942-05
 ;;9002226.02101,"1828,63629-2942-06 ",.01)
 ;;63629-2942-06
 ;;9002226.02101,"1828,63629-2942-06 ",.02)
 ;;63629-2942-06
 ;;9002226.02101,"1828,63629-2942-07 ",.01)
 ;;63629-2942-07
 ;;9002226.02101,"1828,63629-2942-07 ",.02)
 ;;63629-2942-07
 ;;9002226.02101,"1828,63629-2942-08 ",.01)
 ;;63629-2942-08
 ;;9002226.02101,"1828,63629-2942-08 ",.02)
 ;;63629-2942-08
 ;;9002226.02101,"1828,63629-2942-09 ",.01)
 ;;63629-2942-09
 ;;9002226.02101,"1828,63629-2942-09 ",.02)
 ;;63629-2942-09
 ;;9002226.02101,"1828,63629-2948-01 ",.01)
 ;;63629-2948-01
 ;;9002226.02101,"1828,63629-2948-01 ",.02)
 ;;63629-2948-01
 ;;9002226.02101,"1828,63629-2948-02 ",.01)
 ;;63629-2948-02
 ;;9002226.02101,"1828,63629-2948-02 ",.02)
 ;;63629-2948-02
 ;;9002226.02101,"1828,63629-2948-03 ",.01)
 ;;63629-2948-03
 ;;9002226.02101,"1828,63629-2948-03 ",.02)
 ;;63629-2948-03
 ;;9002226.02101,"1828,63629-2948-04 ",.01)
 ;;63629-2948-04
 ;;9002226.02101,"1828,63629-2948-04 ",.02)
 ;;63629-2948-04
 ;;9002226.02101,"1828,63629-2953-01 ",.01)
 ;;63629-2953-01
 ;;9002226.02101,"1828,63629-2953-01 ",.02)
 ;;63629-2953-01
 ;;9002226.02101,"1828,63629-2953-02 ",.01)
 ;;63629-2953-02
 ;;9002226.02101,"1828,63629-2953-02 ",.02)
 ;;63629-2953-02
 ;;9002226.02101,"1828,63629-2953-03 ",.01)
 ;;63629-2953-03
 ;;9002226.02101,"1828,63629-2953-03 ",.02)
 ;;63629-2953-03
 ;;9002226.02101,"1828,63629-2953-04 ",.01)
 ;;63629-2953-04
 ;;9002226.02101,"1828,63629-2953-04 ",.02)
 ;;63629-2953-04
 ;;9002226.02101,"1828,63629-2953-05 ",.01)
 ;;63629-2953-05
 ;;9002226.02101,"1828,63629-2953-05 ",.02)
 ;;63629-2953-05
 ;;9002226.02101,"1828,63629-2953-06 ",.01)
 ;;63629-2953-06
 ;;9002226.02101,"1828,63629-2953-06 ",.02)
 ;;63629-2953-06
 ;;9002226.02101,"1828,63629-2954-01 ",.01)
 ;;63629-2954-01
 ;;9002226.02101,"1828,63629-2954-01 ",.02)
 ;;63629-2954-01
 ;;9002226.02101,"1828,63629-2954-02 ",.01)
 ;;63629-2954-02
 ;;9002226.02101,"1828,63629-2954-02 ",.02)
 ;;63629-2954-02
 ;;9002226.02101,"1828,63629-2954-03 ",.01)
 ;;63629-2954-03