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

BGP47Q2.m

Go to the documentation of this file.
BGP47Q2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1736,52959-0479-20 ",.01)
 ;;52959-0479-20
 ;;9002226.02101,"1736,52959-0479-20 ",.02)
 ;;52959-0479-20
 ;;9002226.02101,"1736,52959-0479-30 ",.01)
 ;;52959-0479-30
 ;;9002226.02101,"1736,52959-0479-30 ",.02)
 ;;52959-0479-30
 ;;9002226.02101,"1736,52959-0573-01 ",.01)
 ;;52959-0573-01
 ;;9002226.02101,"1736,52959-0573-01 ",.02)
 ;;52959-0573-01
 ;;9002226.02101,"1736,52959-0817-10 ",.01)
 ;;52959-0817-10
 ;;9002226.02101,"1736,52959-0817-10 ",.02)
 ;;52959-0817-10
 ;;9002226.02101,"1736,52959-1264-01 ",.01)
 ;;52959-1264-01
 ;;9002226.02101,"1736,52959-1264-01 ",.02)
 ;;52959-1264-01
 ;;9002226.02101,"1736,52959-1264-05 ",.01)
 ;;52959-1264-05
 ;;9002226.02101,"1736,52959-1264-05 ",.02)
 ;;52959-1264-05
 ;;9002226.02101,"1736,53489-0293-01 ",.01)
 ;;53489-0293-01
 ;;9002226.02101,"1736,53489-0293-01 ",.02)
 ;;53489-0293-01
 ;;9002226.02101,"1736,53489-0376-01 ",.01)
 ;;53489-0376-01
 ;;9002226.02101,"1736,53489-0376-01 ",.02)
 ;;53489-0376-01
 ;;9002226.02101,"1736,53489-0376-05 ",.01)
 ;;53489-0376-05
 ;;9002226.02101,"1736,53489-0376-05 ",.02)
 ;;53489-0376-05
 ;;9002226.02101,"1736,54092-0187-01 ",.01)
 ;;54092-0187-01
 ;;9002226.02101,"1736,54092-0187-01 ",.02)
 ;;54092-0187-01
 ;;9002226.02101,"1736,54092-0542-02 ",.01)
 ;;54092-0542-02
 ;;9002226.02101,"1736,54092-0542-02 ",.02)
 ;;54092-0542-02
 ;;9002226.02101,"1736,54569-0364-01 ",.01)
 ;;54569-0364-01
 ;;9002226.02101,"1736,54569-0364-01 ",.02)
 ;;54569-0364-01
 ;;9002226.02101,"1736,54569-0365-00 ",.01)
 ;;54569-0365-00
 ;;9002226.02101,"1736,54569-0365-00 ",.02)
 ;;54569-0365-00
 ;;9002226.02101,"1736,54569-0365-01 ",.01)
 ;;54569-0365-01
 ;;9002226.02101,"1736,54569-0365-01 ",.02)
 ;;54569-0365-01
 ;;9002226.02101,"1736,54569-1796-01 ",.01)
 ;;54569-1796-01
 ;;9002226.02101,"1736,54569-1796-01 ",.02)
 ;;54569-1796-01
 ;;9002226.02101,"1736,54569-1896-00 ",.01)
 ;;54569-1896-00
 ;;9002226.02101,"1736,54569-1896-00 ",.02)
 ;;54569-1896-00
 ;;9002226.02101,"1736,54569-1896-01 ",.01)
 ;;54569-1896-01
 ;;9002226.02101,"1736,54569-1896-01 ",.02)
 ;;54569-1896-01
 ;;9002226.02101,"1736,54569-1896-02 ",.01)
 ;;54569-1896-02
 ;;9002226.02101,"1736,54569-1896-02 ",.02)
 ;;54569-1896-02
 ;;9002226.02101,"1736,54569-1896-03 ",.01)
 ;;54569-1896-03
 ;;9002226.02101,"1736,54569-1896-03 ",.02)
 ;;54569-1896-03
 ;;9002226.02101,"1736,54569-1897-00 ",.01)
 ;;54569-1897-00
 ;;9002226.02101,"1736,54569-1897-00 ",.02)
 ;;54569-1897-00
 ;;9002226.02101,"1736,54569-1897-01 ",.01)
 ;;54569-1897-01
 ;;9002226.02101,"1736,54569-1897-01 ",.02)
 ;;54569-1897-01
 ;;9002226.02101,"1736,54569-3407-00 ",.01)
 ;;54569-3407-00
 ;;9002226.02101,"1736,54569-3407-00 ",.02)
 ;;54569-3407-00
 ;;9002226.02101,"1736,54569-5589-00 ",.01)
 ;;54569-5589-00
 ;;9002226.02101,"1736,54569-5589-00 ",.02)
 ;;54569-5589-00
 ;;9002226.02101,"1736,54569-5589-01 ",.01)
 ;;54569-5589-01
 ;;9002226.02101,"1736,54569-5589-01 ",.02)
 ;;54569-5589-01
 ;;9002226.02101,"1736,54868-0340-00 ",.01)
 ;;54868-0340-00
 ;;9002226.02101,"1736,54868-0340-00 ",.02)
 ;;54868-0340-00
 ;;9002226.02101,"1736,54868-0340-01 ",.01)
 ;;54868-0340-01
 ;;9002226.02101,"1736,54868-0340-01 ",.02)
 ;;54868-0340-01
 ;;9002226.02101,"1736,54868-0608-00 ",.01)
 ;;54868-0608-00
 ;;9002226.02101,"1736,54868-0608-00 ",.02)
 ;;54868-0608-00
 ;;9002226.02101,"1736,54868-0756-00 ",.01)
 ;;54868-0756-00
 ;;9002226.02101,"1736,54868-0756-00 ",.02)
 ;;54868-0756-00
 ;;9002226.02101,"1736,54868-1485-01 ",.01)
 ;;54868-1485-01
 ;;9002226.02101,"1736,54868-1485-01 ",.02)
 ;;54868-1485-01
 ;;9002226.02101,"1736,54868-2195-00 ",.01)
 ;;54868-2195-00
 ;;9002226.02101,"1736,54868-2195-00 ",.02)
 ;;54868-2195-00
 ;;9002226.02101,"1736,54868-2195-01 ",.01)
 ;;54868-2195-01
 ;;9002226.02101,"1736,54868-2195-01 ",.02)
 ;;54868-2195-01
 ;;9002226.02101,"1736,54868-2973-00 ",.01)
 ;;54868-2973-00
 ;;9002226.02101,"1736,54868-2973-00 ",.02)
 ;;54868-2973-00
 ;;9002226.02101,"1736,54868-2973-02 ",.01)
 ;;54868-2973-02
 ;;9002226.02101,"1736,54868-2973-02 ",.02)
 ;;54868-2973-02
 ;;9002226.02101,"1736,54868-2973-03 ",.01)
 ;;54868-2973-03
 ;;9002226.02101,"1736,54868-2973-03 ",.02)
 ;;54868-2973-03
 ;;9002226.02101,"1736,54868-2973-04 ",.01)
 ;;54868-2973-04
 ;;9002226.02101,"1736,54868-2973-04 ",.02)
 ;;54868-2973-04
 ;;9002226.02101,"1736,54868-3487-00 ",.01)
 ;;54868-3487-00
 ;;9002226.02101,"1736,54868-3487-00 ",.02)
 ;;54868-3487-00
 ;;9002226.02101,"1736,54868-3487-01 ",.01)
 ;;54868-3487-01
 ;;9002226.02101,"1736,54868-3487-01 ",.02)
 ;;54868-3487-01
 ;;9002226.02101,"1736,54868-3487-02 ",.01)
 ;;54868-3487-02
 ;;9002226.02101,"1736,54868-3487-02 ",.02)
 ;;54868-3487-02
 ;;9002226.02101,"1736,54868-3487-03 ",.01)
 ;;54868-3487-03
 ;;9002226.02101,"1736,54868-3487-03 ",.02)
 ;;54868-3487-03
 ;;9002226.02101,"1736,54868-3487-04 ",.01)
 ;;54868-3487-04
 ;;9002226.02101,"1736,54868-3487-04 ",.02)
 ;;54868-3487-04
 ;;9002226.02101,"1736,54868-5181-00 ",.01)
 ;;54868-5181-00
 ;;9002226.02101,"1736,54868-5181-00 ",.02)
 ;;54868-5181-00
 ;;9002226.02101,"1736,54868-5741-00 ",.01)
 ;;54868-5741-00
 ;;9002226.02101,"1736,54868-5741-00 ",.02)
 ;;54868-5741-00
 ;;9002226.02101,"1736,54868-5741-01 ",.01)
 ;;54868-5741-01
 ;;9002226.02101,"1736,54868-5741-01 ",.02)
 ;;54868-5741-01
 ;;9002226.02101,"1736,55045-1133-03 ",.01)
 ;;55045-1133-03
 ;;9002226.02101,"1736,55045-1133-03 ",.02)
 ;;55045-1133-03
 ;;9002226.02101,"1736,55045-1197-01 ",.01)
 ;;55045-1197-01
 ;;9002226.02101,"1736,55045-1197-01 ",.02)
 ;;55045-1197-01
 ;;9002226.02101,"1736,55045-1197-03 ",.01)
 ;;55045-1197-03
 ;;9002226.02101,"1736,55045-1197-03 ",.02)
 ;;55045-1197-03
 ;;9002226.02101,"1736,55045-1198-02 ",.01)
 ;;55045-1198-02
 ;;9002226.02101,"1736,55045-1198-02 ",.02)
 ;;55045-1198-02
 ;;9002226.02101,"1736,55045-1198-03 ",.01)
 ;;55045-1198-03
 ;;9002226.02101,"1736,55045-1198-03 ",.02)
 ;;55045-1198-03
 ;;9002226.02101,"1736,55045-1628-03 ",.01)
 ;;55045-1628-03
 ;;9002226.02101,"1736,55045-1628-03 ",.02)
 ;;55045-1628-03
 ;;9002226.02101,"1736,55053-0444-01 ",.01)
 ;;55053-0444-01
 ;;9002226.02101,"1736,55053-0444-01 ",.02)
 ;;55053-0444-01
 ;;9002226.02101,"1736,55289-0219-20 ",.01)
 ;;55289-0219-20
 ;;9002226.02101,"1736,55289-0219-20 ",.02)
 ;;55289-0219-20
 ;;9002226.02101,"1736,55289-0428-10 ",.01)
 ;;55289-0428-10
 ;;9002226.02101,"1736,55289-0428-10 ",.02)
 ;;55289-0428-10
 ;;9002226.02101,"1736,55289-0428-17 ",.01)
 ;;55289-0428-17
 ;;9002226.02101,"1736,55289-0428-17 ",.02)
 ;;55289-0428-17
 ;;9002226.02101,"1736,55289-0529-05 ",.01)
 ;;55289-0529-05
 ;;9002226.02101,"1736,55289-0529-05 ",.02)
 ;;55289-0529-05
 ;;9002226.02101,"1736,55289-0953-06 ",.01)
 ;;55289-0953-06
 ;;9002226.02101,"1736,55289-0953-06 ",.02)
 ;;55289-0953-06
 ;;9002226.02101,"1736,55887-0081-06 ",.01)
 ;;55887-0081-06
 ;;9002226.02101,"1736,55887-0081-06 ",.02)
 ;;55887-0081-06
 ;;9002226.02101,"1736,55887-0632-10 ",.01)
 ;;55887-0632-10
 ;;9002226.02101,"1736,55887-0632-10 ",.02)
 ;;55887-0632-10
 ;;9002226.02101,"1736,57866-4727-02 ",.01)
 ;;57866-4727-02
 ;;9002226.02101,"1736,57866-4727-02 ",.02)
 ;;57866-4727-02
 ;;9002226.02101,"1736,58016-0973-00 ",.01)
 ;;58016-0973-00
 ;;9002226.02101,"1736,58016-0973-00 ",.02)
 ;;58016-0973-00
 ;;9002226.02101,"1736,58016-0973-02 ",.01)
 ;;58016-0973-02
 ;;9002226.02101,"1736,58016-0973-02 ",.02)
 ;;58016-0973-02
 ;;9002226.02101,"1736,58016-0973-03 ",.01)
 ;;58016-0973-03
 ;;9002226.02101,"1736,58016-0973-03 ",.02)
 ;;58016-0973-03
 ;;9002226.02101,"1736,58016-0973-08 ",.01)
 ;;58016-0973-08
 ;;9002226.02101,"1736,58016-0973-08 ",.02)
 ;;58016-0973-08
 ;;9002226.02101,"1736,58016-0973-10 ",.01)
 ;;58016-0973-10
 ;;9002226.02101,"1736,58016-0973-10 ",.02)
 ;;58016-0973-10
 ;;9002226.02101,"1736,58016-0973-12 ",.01)
 ;;58016-0973-12
 ;;9002226.02101,"1736,58016-0973-12 ",.02)
 ;;58016-0973-12
 ;;9002226.02101,"1736,58016-0973-15 ",.01)
 ;;58016-0973-15
 ;;9002226.02101,"1736,58016-0973-15 ",.02)
 ;;58016-0973-15
 ;;9002226.02101,"1736,58016-0973-20 ",.01)
 ;;58016-0973-20
 ;;9002226.02101,"1736,58016-0973-20 ",.02)
 ;;58016-0973-20
 ;;9002226.02101,"1736,58016-0973-24 ",.01)
 ;;58016-0973-24
 ;;9002226.02101,"1736,58016-0973-24 ",.02)
 ;;58016-0973-24
 ;;9002226.02101,"1736,58016-0973-30 ",.01)
 ;;58016-0973-30
 ;;9002226.02101,"1736,58016-0973-30 ",.02)
 ;;58016-0973-30
 ;;9002226.02101,"1736,58016-0973-50 ",.01)
 ;;58016-0973-50
 ;;9002226.02101,"1736,58016-0973-50 ",.02)
 ;;58016-0973-50
 ;;9002226.02101,"1736,58016-0973-60 ",.01)
 ;;58016-0973-60
 ;;9002226.02101,"1736,58016-0973-60 ",.02)
 ;;58016-0973-60
 ;;9002226.02101,"1736,58016-0973-73 ",.01)
 ;;58016-0973-73
 ;;9002226.02101,"1736,58016-0973-73 ",.02)
 ;;58016-0973-73
 ;;9002226.02101,"1736,58016-0973-89 ",.01)
 ;;58016-0973-89
 ;;9002226.02101,"1736,58016-0973-89 ",.02)
 ;;58016-0973-89
 ;;9002226.02101,"1736,58016-0973-90 ",.01)
 ;;58016-0973-90
 ;;9002226.02101,"1736,58016-0973-90 ",.02)
 ;;58016-0973-90
 ;;9002226.02101,"1736,58016-3091-01 ",.01)
 ;;58016-3091-01
 ;;9002226.02101,"1736,58016-3091-01 ",.02)
 ;;58016-3091-01
 ;;9002226.02101,"1736,58016-3092-01 ",.01)
 ;;58016-3092-01
 ;;9002226.02101,"1736,58016-3092-01 ",.02)
 ;;58016-3092-01
 ;;9002226.02101,"1736,58016-3126-01 ",.01)
 ;;58016-3126-01
 ;;9002226.02101,"1736,58016-3126-01 ",.02)
 ;;58016-3126-01
 ;;9002226.02101,"1736,58177-0037-04 ",.01)
 ;;58177-0037-04
 ;;9002226.02101,"1736,58177-0037-04 ",.02)
 ;;58177-0037-04
 ;;9002226.02101,"1736,58298-0140-10 ",.01)
 ;;58298-0140-10
 ;;9002226.02101,"1736,58298-0140-10 ",.02)
 ;;58298-0140-10
 ;;9002226.02101,"1736,58298-0145-10 ",.01)
 ;;58298-0145-10
 ;;9002226.02101,"1736,58298-0145-10 ",.02)
 ;;58298-0145-10
 ;;9002226.02101,"1736,58298-0145-50 ",.01)
 ;;58298-0145-50
 ;;9002226.02101,"1736,58298-0145-50 ",.02)
 ;;58298-0145-50
 ;;9002226.02101,"1736,59741-0304-09 ",.01)
 ;;59741-0304-09
 ;;9002226.02101,"1736,59741-0304-09 ",.02)
 ;;59741-0304-09
 ;;9002226.02101,"1736,59741-0304-50 ",.01)
 ;;59741-0304-50
 ;;9002226.02101,"1736,59741-0304-50 ",.02)
 ;;59741-0304-50
 ;;9002226.02101,"1736,59741-0305-09 ",.01)
 ;;59741-0305-09
 ;;9002226.02101,"1736,59741-0305-09 ",.02)
 ;;59741-0305-09
 ;;9002226.02101,"1736,59741-0305-50 ",.01)
 ;;59741-0305-50
 ;;9002226.02101,"1736,59741-0305-50 ",.02)
 ;;59741-0305-50
 ;;9002226.02101,"1736,59879-0115-01 ",.01)
 ;;59879-0115-01
 ;;9002226.02101,"1736,59879-0115-01 ",.02)
 ;;59879-0115-01
 ;;9002226.02101,"1736,60346-0494-05 ",.01)
 ;;60346-0494-05
 ;;9002226.02101,"1736,60346-0494-05 ",.02)
 ;;60346-0494-05
 ;;9002226.02101,"1736,60346-0495-05 ",.01)
 ;;60346-0495-05
 ;;9002226.02101,"1736,60346-0495-05 ",.02)
 ;;60346-0495-05
 ;;9002226.02101,"1736,60346-0629-10 ",.01)
 ;;60346-0629-10
 ;;9002226.02101,"1736,60346-0629-10 ",.02)
 ;;60346-0629-10
 ;;9002226.02101,"1736,60346-0629-12 ",.01)
 ;;60346-0629-12
 ;;9002226.02101,"1736,60346-0629-12 ",.02)
 ;;60346-0629-12
 ;;9002226.02101,"1736,60346-0629-15 ",.01)
 ;;60346-0629-15
 ;;9002226.02101,"1736,60346-0629-15 ",.02)
 ;;60346-0629-15
 ;;9002226.02101,"1736,60346-0629-30 ",.01)
 ;;60346-0629-30
 ;;9002226.02101,"1736,60346-0629-30 ",.02)
 ;;60346-0629-30
 ;;9002226.02101,"1736,61570-0079-01 ",.01)
 ;;61570-0079-01
 ;;9002226.02101,"1736,61570-0079-01 ",.02)
 ;;61570-0079-01
 ;;9002226.02101,"1736,61570-0079-05 ",.01)
 ;;61570-0079-05
 ;;9002226.02101,"1736,61570-0079-05 ",.02)
 ;;61570-0079-05
 ;;9002226.02101,"1736,61570-0503-10 ",.01)
 ;;61570-0503-10
 ;;9002226.02101,"1736,61570-0503-10 ",.02)
 ;;61570-0503-10
 ;;9002226.02101,"1736,61570-0504-10 ",.01)
 ;;61570-0504-10
 ;;9002226.02101,"1736,61570-0504-10 ",.02)
 ;;61570-0504-10
 ;;9002226.02101,"1736,61570-0504-50 ",.01)
 ;;61570-0504-50
 ;;9002226.02101,"1736,61570-0504-50 ",.02)
 ;;61570-0504-50
 ;;9002226.02101,"1736,61570-0540-02 ",.01)
 ;;61570-0540-02
 ;;9002226.02101,"1736,61570-0540-02 ",.02)
 ;;61570-0540-02
 ;;9002226.02101,"1736,61570-0541-20 ",.01)
 ;;61570-0541-20
 ;;9002226.02101,"1736,61570-0541-20 ",.02)
 ;;61570-0541-20
 ;;9002226.02101,"1736,61570-0543-25 ",.01)
 ;;61570-0543-25
 ;;9002226.02101,"1736,61570-0543-25 ",.02)
 ;;61570-0543-25
 ;;9002226.02101,"1736,61646-0308-01 ",.01)
 ;;61646-0308-01
 ;;9002226.02101,"1736,61646-0308-01 ",.02)
 ;;61646-0308-01
 ;;9002226.02101,"1736,63629-3685-01 ",.01)
 ;;63629-3685-01
 ;;9002226.02101,"1736,63629-3685-01 ",.02)
 ;;63629-3685-01
 ;;9002226.02101,"1736,63629-3685-02 ",.01)
 ;;63629-3685-02
 ;;9002226.02101,"1736,63629-3685-02 ",.02)
 ;;63629-3685-02
 ;;9002226.02101,"1736,66267-0208-10 ",.01)
 ;;66267-0208-10
 ;;9002226.02101,"1736,66267-0208-10 ",.02)
 ;;66267-0208-10
 ;;9002226.02101,"1736,66267-0208-20 ",.01)
 ;;66267-0208-20
 ;;9002226.02101,"1736,66267-0208-20 ",.02)
 ;;66267-0208-20
 ;;9002226.02101,"1736,66267-0273-05 ",.01)
 ;;66267-0273-05
 ;;9002226.02101,"1736,66267-0273-05 ",.02)
 ;;66267-0273-05
 ;;9002226.02101,"1736,66336-0026-12 ",.01)
 ;;66336-0026-12
 ;;9002226.02101,"1736,66336-0026-12 ",.02)
 ;;66336-0026-12
 ;;9002226.02101,"1736,66336-0494-05 ",.01)
 ;;66336-0494-05
 ;;9002226.02101,"1736,66336-0494-05 ",.02)
 ;;66336-0494-05
 ;;9002226.02101,"1736,66336-0495-05 ",.01)
 ;;66336-0495-05
 ;;9002226.02101,"1736,66336-0495-05 ",.02)
 ;;66336-0495-05
 ;;9002226.02101,"1736,68030-7289-01 ",.01)
 ;;68030-7289-01
 ;;9002226.02101,"1736,68030-7289-01 ",.02)
 ;;68030-7289-01
 ;;9002226.02101,"1736,68115-0337-03 ",.01)
 ;;68115-0337-03