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

BGP13D24.m

Go to the documentation of this file.
BGP13D24 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"994,66336-0589-20 ",.01)
 ;;66336-0589-20
 ;;9002226.02101,"994,66336-0589-20 ",.02)
 ;;66336-0589-20
 ;;9002226.02101,"994,66336-0589-30 ",.01)
 ;;66336-0589-30
 ;;9002226.02101,"994,66336-0589-30 ",.02)
 ;;66336-0589-30
 ;;9002226.02101,"994,66336-0589-60 ",.01)
 ;;66336-0589-60
 ;;9002226.02101,"994,66336-0589-60 ",.02)
 ;;66336-0589-60
 ;;9002226.02101,"994,66336-0795-15 ",.01)
 ;;66336-0795-15
 ;;9002226.02101,"994,66336-0795-15 ",.02)
 ;;66336-0795-15
 ;;9002226.02101,"994,66336-0796-30 ",.01)
 ;;66336-0796-30
 ;;9002226.02101,"994,66336-0796-30 ",.02)
 ;;66336-0796-30
 ;;9002226.02101,"994,66336-0797-60 ",.01)
 ;;66336-0797-60
 ;;9002226.02101,"994,66336-0797-60 ",.02)
 ;;66336-0797-60
 ;;9002226.02101,"994,66346-0121-65 ",.01)
 ;;66346-0121-65
 ;;9002226.02101,"994,66346-0121-65 ",.02)
 ;;66346-0121-65
 ;;9002226.02101,"994,66346-0191-65 ",.01)
 ;;66346-0191-65
 ;;9002226.02101,"994,66346-0191-65 ",.02)
 ;;66346-0191-65
 ;;9002226.02101,"994,66375-0107-02 ",.01)
 ;;66375-0107-02
 ;;9002226.02101,"994,66375-0107-02 ",.02)
 ;;66375-0107-02
 ;;9002226.02101,"994,66375-0108-02 ",.01)
 ;;66375-0108-02
 ;;9002226.02101,"994,66375-0108-02 ",.02)
 ;;66375-0108-02
 ;;9002226.02101,"994,66424-0020-01 ",.01)
 ;;66424-0020-01
 ;;9002226.02101,"994,66424-0020-01 ",.02)
 ;;66424-0020-01
 ;;9002226.02101,"994,66424-0020-10 ",.01)
 ;;66424-0020-10
 ;;9002226.02101,"994,66424-0020-10 ",.02)
 ;;66424-0020-10
 ;;9002226.02101,"994,66424-0021-01 ",.01)
 ;;66424-0021-01
 ;;9002226.02101,"994,66424-0021-01 ",.02)
 ;;66424-0021-01
 ;;9002226.02101,"994,66424-0021-10 ",.01)
 ;;66424-0021-10
 ;;9002226.02101,"994,66424-0021-10 ",.02)
 ;;66424-0021-10
 ;;9002226.02101,"994,66553-0010-01 ",.01)
 ;;66553-0010-01
 ;;9002226.02101,"994,66553-0010-01 ",.02)
 ;;66553-0010-01
 ;;9002226.02101,"994,66869-0107-10 ",.01)
 ;;66869-0107-10
 ;;9002226.02101,"994,66869-0107-10 ",.02)
 ;;66869-0107-10
 ;;9002226.02101,"994,66869-0154-10 ",.01)
 ;;66869-0154-10
 ;;9002226.02101,"994,66869-0154-10 ",.02)
 ;;66869-0154-10
 ;;9002226.02101,"994,66869-0407-10 ",.01)
 ;;66869-0407-10
 ;;9002226.02101,"994,66869-0407-10 ",.02)
 ;;66869-0407-10
 ;;9002226.02101,"994,66869-0426-10 ",.01)
 ;;66869-0426-10
 ;;9002226.02101,"994,66869-0426-10 ",.02)
 ;;66869-0426-10
 ;;9002226.02101,"994,67405-0575-10 ",.01)
 ;;67405-0575-10
 ;;9002226.02101,"994,67405-0575-10 ",.02)
 ;;67405-0575-10
 ;;9002226.02101,"994,67405-0575-50 ",.01)
 ;;67405-0575-50
 ;;9002226.02101,"994,67405-0575-50 ",.02)
 ;;67405-0575-50
 ;;9002226.02101,"994,67405-0575-96 ",.01)
 ;;67405-0575-96
 ;;9002226.02101,"994,67405-0575-96 ",.02)
 ;;67405-0575-96
 ;;9002226.02101,"994,67405-0577-10 ",.01)
 ;;67405-0577-10
 ;;9002226.02101,"994,67405-0577-10 ",.02)
 ;;67405-0577-10
 ;;9002226.02101,"994,67405-0671-10 ",.01)
 ;;67405-0671-10
 ;;9002226.02101,"994,67405-0671-10 ",.02)
 ;;67405-0671-10
 ;;9002226.02101,"994,67405-0671-50 ",.01)
 ;;67405-0671-50
 ;;9002226.02101,"994,67405-0671-50 ",.02)
 ;;67405-0671-50
 ;;9002226.02101,"994,67405-0671-96 ",.01)
 ;;67405-0671-96
 ;;9002226.02101,"994,67405-0671-96 ",.02)
 ;;67405-0671-96
 ;;9002226.02101,"994,67544-0791-30 ",.01)
 ;;67544-0791-30
 ;;9002226.02101,"994,67544-0791-30 ",.02)
 ;;67544-0791-30
 ;;9002226.02101,"994,68025-0032-16 ",.01)
 ;;68025-0032-16
 ;;9002226.02101,"994,68025-0032-16 ",.02)
 ;;68025-0032-16
 ;;9002226.02101,"994,68032-0189-60 ",.01)
 ;;68032-0189-60
 ;;9002226.02101,"994,68032-0189-60 ",.02)
 ;;68032-0189-60
 ;;9002226.02101,"994,68032-0205-60 ",.01)
 ;;68032-0205-60
 ;;9002226.02101,"994,68032-0205-60 ",.02)
 ;;68032-0205-60
 ;;9002226.02101,"994,68047-0136-16 ",.01)
 ;;68047-0136-16
 ;;9002226.02101,"994,68047-0136-16 ",.02)
 ;;68047-0136-16
 ;;9002226.02101,"994,68047-0271-01 ",.01)
 ;;68047-0271-01
 ;;9002226.02101,"994,68047-0271-01 ",.02)
 ;;68047-0271-01
 ;;9002226.02101,"994,68084-0154-01 ",.01)
 ;;68084-0154-01
 ;;9002226.02101,"994,68084-0154-01 ",.02)
 ;;68084-0154-01
 ;;9002226.02101,"994,68084-0154-11 ",.01)
 ;;68084-0154-11
 ;;9002226.02101,"994,68084-0154-11 ",.02)
 ;;68084-0154-11
 ;;9002226.02101,"994,68084-0155-01 ",.01)
 ;;68084-0155-01
 ;;9002226.02101,"994,68084-0155-01 ",.02)
 ;;68084-0155-01
 ;;9002226.02101,"994,68084-0155-11 ",.01)
 ;;68084-0155-11
 ;;9002226.02101,"994,68084-0155-11 ",.02)
 ;;68084-0155-11
 ;;9002226.02101,"994,68084-0156-01 ",.01)
 ;;68084-0156-01
 ;;9002226.02101,"994,68084-0156-01 ",.02)
 ;;68084-0156-01
 ;;9002226.02101,"994,68084-0253-01 ",.01)
 ;;68084-0253-01
 ;;9002226.02101,"994,68084-0253-01 ",.02)
 ;;68084-0253-01
 ;;9002226.02101,"994,68084-0254-01 ",.01)
 ;;68084-0254-01
 ;;9002226.02101,"994,68084-0254-01 ",.02)
 ;;68084-0254-01
 ;;9002226.02101,"994,68084-0255-01 ",.01)
 ;;68084-0255-01
 ;;9002226.02101,"994,68084-0255-01 ",.02)
 ;;68084-0255-01
 ;;9002226.02101,"994,68115-0116-00 ",.01)
 ;;68115-0116-00
 ;;9002226.02101,"994,68115-0116-00 ",.02)
 ;;68115-0116-00
 ;;9002226.02101,"994,68115-0116-10 ",.01)
 ;;68115-0116-10
 ;;9002226.02101,"994,68115-0116-10 ",.02)
 ;;68115-0116-10
 ;;9002226.02101,"994,68115-0116-12 ",.01)
 ;;68115-0116-12
 ;;9002226.02101,"994,68115-0116-12 ",.02)
 ;;68115-0116-12
 ;;9002226.02101,"994,68115-0116-15 ",.01)
 ;;68115-0116-15
 ;;9002226.02101,"994,68115-0116-15 ",.02)
 ;;68115-0116-15
 ;;9002226.02101,"994,68115-0116-20 ",.01)
 ;;68115-0116-20
 ;;9002226.02101,"994,68115-0116-20 ",.02)
 ;;68115-0116-20
 ;;9002226.02101,"994,68115-0116-24 ",.01)
 ;;68115-0116-24
 ;;9002226.02101,"994,68115-0116-24 ",.02)
 ;;68115-0116-24
 ;;9002226.02101,"994,68115-0116-30 ",.01)
 ;;68115-0116-30
 ;;9002226.02101,"994,68115-0116-30 ",.02)
 ;;68115-0116-30
 ;;9002226.02101,"994,68115-0116-60 ",.01)
 ;;68115-0116-60
 ;;9002226.02101,"994,68115-0116-60 ",.02)
 ;;68115-0116-60
 ;;9002226.02101,"994,68115-0117-06 ",.01)
 ;;68115-0117-06
 ;;9002226.02101,"994,68115-0117-06 ",.02)
 ;;68115-0117-06
 ;;9002226.02101,"994,68115-0117-15 ",.01)
 ;;68115-0117-15
 ;;9002226.02101,"994,68115-0117-15 ",.02)
 ;;68115-0117-15
 ;;9002226.02101,"994,68115-0117-20 ",.01)
 ;;68115-0117-20
 ;;9002226.02101,"994,68115-0117-20 ",.02)
 ;;68115-0117-20
 ;;9002226.02101,"994,68115-0117-30 ",.01)
 ;;68115-0117-30
 ;;9002226.02101,"994,68115-0117-30 ",.02)
 ;;68115-0117-30
 ;;9002226.02101,"994,68115-0174-00 ",.01)
 ;;68115-0174-00
 ;;9002226.02101,"994,68115-0174-00 ",.02)
 ;;68115-0174-00
 ;;9002226.02101,"994,68115-0174-15 ",.01)
 ;;68115-0174-15
 ;;9002226.02101,"994,68115-0174-15 ",.02)
 ;;68115-0174-15
 ;;9002226.02101,"994,68115-0174-30 ",.01)
 ;;68115-0174-30
 ;;9002226.02101,"994,68115-0174-30 ",.02)
 ;;68115-0174-30
 ;;9002226.02101,"994,68115-0175-12 ",.01)
 ;;68115-0175-12
 ;;9002226.02101,"994,68115-0175-12 ",.02)
 ;;68115-0175-12
 ;;9002226.02101,"994,68115-0175-15 ",.01)
 ;;68115-0175-15
 ;;9002226.02101,"994,68115-0175-15 ",.02)
 ;;68115-0175-15
 ;;9002226.02101,"994,68115-0175-20 ",.01)
 ;;68115-0175-20
 ;;9002226.02101,"994,68115-0175-20 ",.02)
 ;;68115-0175-20
 ;;9002226.02101,"994,68115-0175-30 ",.01)
 ;;68115-0175-30
 ;;9002226.02101,"994,68115-0175-30 ",.02)
 ;;68115-0175-30
 ;;9002226.02101,"994,68115-0175-60 ",.01)
 ;;68115-0175-60
 ;;9002226.02101,"994,68115-0175-60 ",.02)
 ;;68115-0175-60
 ;;9002226.02101,"994,68115-0176-00 ",.01)
 ;;68115-0176-00
 ;;9002226.02101,"994,68115-0176-00 ",.02)
 ;;68115-0176-00
 ;;9002226.02101,"994,68115-0176-30 ",.01)
 ;;68115-0176-30
 ;;9002226.02101,"994,68115-0176-30 ",.02)
 ;;68115-0176-30
 ;;9002226.02101,"994,68115-0177-00 ",.01)
 ;;68115-0177-00
 ;;9002226.02101,"994,68115-0177-00 ",.02)
 ;;68115-0177-00
 ;;9002226.02101,"994,68115-0177-30 ",.01)
 ;;68115-0177-30
 ;;9002226.02101,"994,68115-0177-30 ",.02)
 ;;68115-0177-30
 ;;9002226.02101,"994,68115-0177-60 ",.01)
 ;;68115-0177-60
 ;;9002226.02101,"994,68115-0177-60 ",.02)
 ;;68115-0177-60
 ;;9002226.02101,"994,68115-0178-20 ",.01)
 ;;68115-0178-20
 ;;9002226.02101,"994,68115-0178-20 ",.02)
 ;;68115-0178-20
 ;;9002226.02101,"994,68115-0178-60 ",.01)
 ;;68115-0178-60
 ;;9002226.02101,"994,68115-0178-60 ",.02)
 ;;68115-0178-60
 ;;9002226.02101,"994,68115-0302-00 ",.01)
 ;;68115-0302-00
 ;;9002226.02101,"994,68115-0302-00 ",.02)
 ;;68115-0302-00
 ;;9002226.02101,"994,68115-0302-04 ",.01)
 ;;68115-0302-04
 ;;9002226.02101,"994,68115-0302-04 ",.02)
 ;;68115-0302-04
 ;;9002226.02101,"994,68115-0302-20 ",.01)
 ;;68115-0302-20
 ;;9002226.02101,"994,68115-0302-20 ",.02)
 ;;68115-0302-20
 ;;9002226.02101,"994,68115-0302-30 ",.01)
 ;;68115-0302-30
 ;;9002226.02101,"994,68115-0302-30 ",.02)
 ;;68115-0302-30
 ;;9002226.02101,"994,68115-0302-90 ",.01)
 ;;68115-0302-90
 ;;9002226.02101,"994,68115-0302-90 ",.02)
 ;;68115-0302-90
 ;;9002226.02101,"994,68115-0900-04 ",.01)
 ;;68115-0900-04
 ;;9002226.02101,"994,68115-0900-04 ",.02)
 ;;68115-0900-04
 ;;9002226.02101,"994,68115-0915-04 ",.01)
 ;;68115-0915-04
 ;;9002226.02101,"994,68115-0915-04 ",.02)
 ;;68115-0915-04
 ;;9002226.02101,"994,68115-0976-04 ",.01)
 ;;68115-0976-04
 ;;9002226.02101,"994,68115-0976-04 ",.02)
 ;;68115-0976-04
 ;;9002226.02101,"994,68303-0180-10 ",.01)
 ;;68303-0180-10
 ;;9002226.02101,"994,68303-0180-10 ",.02)
 ;;68303-0180-10
 ;;9002226.02101,"994,68308-0122-04 ",.01)
 ;;68308-0122-04
 ;;9002226.02101,"994,68308-0122-04 ",.02)
 ;;68308-0122-04
 ;;9002226.02101,"994,68308-0126-04 ",.01)
 ;;68308-0126-04
 ;;9002226.02101,"994,68308-0126-04 ",.02)
 ;;68308-0126-04
 ;;9002226.02101,"994,68308-0130-04 ",.01)
 ;;68308-0130-04
 ;;9002226.02101,"994,68308-0130-04 ",.02)
 ;;68308-0130-04
 ;;9002226.02101,"994,68308-0134-04 ",.01)
 ;;68308-0134-04
 ;;9002226.02101,"994,68308-0134-04 ",.02)
 ;;68308-0134-04
 ;;9002226.02101,"994,68308-0140-04 ",.01)
 ;;68308-0140-04
 ;;9002226.02101,"994,68308-0140-04 ",.02)
 ;;68308-0140-04
 ;;9002226.02101,"994,68308-0180-10 ",.01)
 ;;68308-0180-10
 ;;9002226.02101,"994,68308-0180-10 ",.02)
 ;;68308-0180-10
 ;;9002226.02101,"994,68308-0526-60 ",.01)
 ;;68308-0526-60
 ;;9002226.02101,"994,68308-0526-60 ",.02)
 ;;68308-0526-60
 ;;9002226.02101,"994,68308-0737-16 ",.01)
 ;;68308-0737-16
 ;;9002226.02101,"994,68308-0737-16 ",.02)
 ;;68308-0737-16
 ;;9002226.02101,"994,68308-0755-60 ",.01)
 ;;68308-0755-60
 ;;9002226.02101,"994,68308-0755-60 ",.02)
 ;;68308-0755-60
 ;;9002226.02101,"994,68382-0040-01 ",.01)
 ;;68382-0040-01
 ;;9002226.02101,"994,68382-0040-01 ",.02)
 ;;68382-0040-01
 ;;9002226.02101,"994,68382-0040-10 ",.01)
 ;;68382-0040-10
 ;;9002226.02101,"994,68382-0040-10 ",.02)
 ;;68382-0040-10
 ;;9002226.02101,"994,68382-0041-01 ",.01)
 ;;68382-0041-01
 ;;9002226.02101,"994,68382-0041-01 ",.02)
 ;;68382-0041-01
 ;;9002226.02101,"994,68382-0041-10 ",.01)
 ;;68382-0041-10
 ;;9002226.02101,"994,68382-0041-10 ",.02)
 ;;68382-0041-10
 ;;9002226.02101,"994,68382-0042-01 ",.01)
 ;;68382-0042-01
 ;;9002226.02101,"994,68382-0042-01 ",.02)
 ;;68382-0042-01
 ;;9002226.02101,"994,68382-0042-10 ",.01)
 ;;68382-0042-10
 ;;9002226.02101,"994,68382-0042-10 ",.02)
 ;;68382-0042-10
 ;;9002226.02101,"994,68387-0468-30 ",.01)
 ;;68387-0468-30
 ;;9002226.02101,"994,68387-0468-30 ",.02)
 ;;68387-0468-30
 ;;9002226.02101,"994,68387-0469-30 ",.01)
 ;;68387-0469-30
 ;;9002226.02101,"994,68387-0469-30 ",.02)
 ;;68387-0469-30
 ;;9002226.02101,"994,68387-0536-30 ",.01)
 ;;68387-0536-30
 ;;9002226.02101,"994,68387-0536-30 ",.02)
 ;;68387-0536-30
 ;;9002226.02101,"994,68387-0536-90 ",.01)
 ;;68387-0536-90
 ;;9002226.02101,"994,68387-0536-90 ",.02)
 ;;68387-0536-90
 ;;9002226.02101,"994,68387-0541-30 ",.01)
 ;;68387-0541-30
 ;;9002226.02101,"994,68387-0541-30 ",.02)
 ;;68387-0541-30
 ;;9002226.02101,"994,68453-0145-04 ",.01)
 ;;68453-0145-04
 ;;9002226.02101,"994,68453-0145-04 ",.02)
 ;;68453-0145-04
 ;;9002226.02101,"994,68453-0145-16 ",.01)
 ;;68453-0145-16
 ;;9002226.02101,"994,68453-0145-16 ",.02)
 ;;68453-0145-16
 ;;9002226.02101,"994,68462-0360-01 ",.01)
 ;;68462-0360-01
 ;;9002226.02101,"994,68462-0360-01 ",.02)
 ;;68462-0360-01
 ;;9002226.02101,"994,68462-0360-05 ",.01)
 ;;68462-0360-05
 ;;9002226.02101,"994,68462-0360-05 ",.02)
 ;;68462-0360-05
 ;;9002226.02101,"994,68462-0361-01 ",.01)
 ;;68462-0361-01
 ;;9002226.02101,"994,68462-0361-01 ",.02)
 ;;68462-0361-01
 ;;9002226.02101,"994,68462-0361-05 ",.01)
 ;;68462-0361-05
 ;;9002226.02101,"994,68462-0361-05 ",.02)
 ;;68462-0361-05
 ;;9002226.02101,"994,68462-0362-01 ",.01)
 ;;68462-0362-01
 ;;9002226.02101,"994,68462-0362-01 ",.02)
 ;;68462-0362-01
 ;;9002226.02101,"994,68462-0362-05 ",.01)
 ;;68462-0362-05