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

BGP05X9.m

Go to the documentation of this file.
BGP05X9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"686,54569-5195-07 ",.02)
 ;;54569-5195-07
 ;;9002226.02101,"686,54569-5195-08 ",.01)
 ;;54569-5195-08
 ;;9002226.02101,"686,54569-5195-08 ",.02)
 ;;54569-5195-08
 ;;9002226.02101,"686,54569-5195-09 ",.01)
 ;;54569-5195-09
 ;;9002226.02101,"686,54569-5195-09 ",.02)
 ;;54569-5195-09
 ;;9002226.02101,"686,54569-5224-02 ",.01)
 ;;54569-5224-02
 ;;9002226.02101,"686,54569-5224-02 ",.02)
 ;;54569-5224-02
 ;;9002226.02101,"686,54569-5233-00 ",.01)
 ;;54569-5233-00
 ;;9002226.02101,"686,54569-5233-00 ",.02)
 ;;54569-5233-00
 ;;9002226.02101,"686,54569-5233-01 ",.01)
 ;;54569-5233-01
 ;;9002226.02101,"686,54569-5233-01 ",.02)
 ;;54569-5233-01
 ;;9002226.02101,"686,54868-0087-00 ",.01)
 ;;54868-0087-00
 ;;9002226.02101,"686,54868-0087-00 ",.02)
 ;;54868-0087-00
 ;;9002226.02101,"686,54868-0087-01 ",.01)
 ;;54868-0087-01
 ;;9002226.02101,"686,54868-0087-01 ",.02)
 ;;54868-0087-01
 ;;9002226.02101,"686,54868-0087-02 ",.01)
 ;;54868-0087-02
 ;;9002226.02101,"686,54868-0087-02 ",.02)
 ;;54868-0087-02
 ;;9002226.02101,"686,54868-0087-03 ",.01)
 ;;54868-0087-03
 ;;9002226.02101,"686,54868-0087-03 ",.02)
 ;;54868-0087-03
 ;;9002226.02101,"686,54868-0192-00 ",.01)
 ;;54868-0192-00
 ;;9002226.02101,"686,54868-0192-00 ",.02)
 ;;54868-0192-00
 ;;9002226.02101,"686,54868-0192-01 ",.01)
 ;;54868-0192-01
 ;;9002226.02101,"686,54868-0192-01 ",.02)
 ;;54868-0192-01
 ;;9002226.02101,"686,54868-0192-04 ",.01)
 ;;54868-0192-04
 ;;9002226.02101,"686,54868-0192-04 ",.02)
 ;;54868-0192-04
 ;;9002226.02101,"686,54868-0252-00 ",.01)
 ;;54868-0252-00
 ;;9002226.02101,"686,54868-0252-00 ",.02)
 ;;54868-0252-00
 ;;9002226.02101,"686,54868-0252-01 ",.01)
 ;;54868-0252-01
 ;;9002226.02101,"686,54868-0252-01 ",.02)
 ;;54868-0252-01
 ;;9002226.02101,"686,54868-0252-03 ",.01)
 ;;54868-0252-03
 ;;9002226.02101,"686,54868-0252-03 ",.02)
 ;;54868-0252-03
 ;;9002226.02101,"686,54868-0253-00 ",.01)
 ;;54868-0253-00
 ;;9002226.02101,"686,54868-0253-00 ",.02)
 ;;54868-0253-00
 ;;9002226.02101,"686,54868-0253-01 ",.01)
 ;;54868-0253-01
 ;;9002226.02101,"686,54868-0253-01 ",.02)
 ;;54868-0253-01
 ;;9002226.02101,"686,54868-0283-00 ",.01)
 ;;54868-0283-00
 ;;9002226.02101,"686,54868-0283-00 ",.02)
 ;;54868-0283-00
 ;;9002226.02101,"686,54868-0283-01 ",.01)
 ;;54868-0283-01
 ;;9002226.02101,"686,54868-0283-01 ",.02)
 ;;54868-0283-01
 ;;9002226.02101,"686,54868-0479-01 ",.01)
 ;;54868-0479-01
 ;;9002226.02101,"686,54868-0479-01 ",.02)
 ;;54868-0479-01
 ;;9002226.02101,"686,54868-0668-00 ",.01)
 ;;54868-0668-00
 ;;9002226.02101,"686,54868-0668-00 ",.02)
 ;;54868-0668-00
 ;;9002226.02101,"686,54868-0668-01 ",.01)
 ;;54868-0668-01
 ;;9002226.02101,"686,54868-0668-01 ",.02)
 ;;54868-0668-01
 ;;9002226.02101,"686,54868-0733-00 ",.01)
 ;;54868-0733-00
 ;;9002226.02101,"686,54868-0733-00 ",.02)
 ;;54868-0733-00
 ;;9002226.02101,"686,54868-0733-01 ",.01)
 ;;54868-0733-01
 ;;9002226.02101,"686,54868-0733-01 ",.02)
 ;;54868-0733-01
 ;;9002226.02101,"686,54868-0733-02 ",.01)
 ;;54868-0733-02
 ;;9002226.02101,"686,54868-0733-02 ",.02)
 ;;54868-0733-02
 ;;9002226.02101,"686,54868-0733-03 ",.01)
 ;;54868-0733-03
 ;;9002226.02101,"686,54868-0733-03 ",.02)
 ;;54868-0733-03
 ;;9002226.02101,"686,54868-0733-04 ",.01)
 ;;54868-0733-04
 ;;9002226.02101,"686,54868-0733-04 ",.02)
 ;;54868-0733-04
 ;;9002226.02101,"686,54868-1051-01 ",.01)
 ;;54868-1051-01
 ;;9002226.02101,"686,54868-1051-01 ",.02)
 ;;54868-1051-01
 ;;9002226.02101,"686,54868-1462-00 ",.01)
 ;;54868-1462-00
 ;;9002226.02101,"686,54868-1462-00 ",.02)
 ;;54868-1462-00
 ;;9002226.02101,"686,54868-1462-01 ",.01)
 ;;54868-1462-01
 ;;9002226.02101,"686,54868-1462-01 ",.02)
 ;;54868-1462-01
 ;;9002226.02101,"686,54868-1463-00 ",.01)
 ;;54868-1463-00
 ;;9002226.02101,"686,54868-1463-00 ",.02)
 ;;54868-1463-00
 ;;9002226.02101,"686,54868-1704-00 ",.01)
 ;;54868-1704-00
 ;;9002226.02101,"686,54868-1704-00 ",.02)
 ;;54868-1704-00
 ;;9002226.02101,"686,54868-1704-01 ",.01)
 ;;54868-1704-01
 ;;9002226.02101,"686,54868-1704-01 ",.02)
 ;;54868-1704-01
 ;;9002226.02101,"686,54868-1704-02 ",.01)
 ;;54868-1704-02
 ;;9002226.02101,"686,54868-1704-02 ",.02)
 ;;54868-1704-02
 ;;9002226.02101,"686,54868-1704-03 ",.01)
 ;;54868-1704-03
 ;;9002226.02101,"686,54868-1704-03 ",.02)
 ;;54868-1704-03
 ;;9002226.02101,"686,54868-1704-04 ",.01)
 ;;54868-1704-04
 ;;9002226.02101,"686,54868-1704-04 ",.02)
 ;;54868-1704-04
 ;;9002226.02101,"686,54868-1704-05 ",.01)
 ;;54868-1704-05
 ;;9002226.02101,"686,54868-1704-05 ",.02)
 ;;54868-1704-05
 ;;9002226.02101,"686,54868-1706-00 ",.01)
 ;;54868-1706-00
 ;;9002226.02101,"686,54868-1706-00 ",.02)
 ;;54868-1706-00
 ;;9002226.02101,"686,54868-1706-01 ",.01)
 ;;54868-1706-01
 ;;9002226.02101,"686,54868-1706-01 ",.02)
 ;;54868-1706-01
 ;;9002226.02101,"686,54868-1706-02 ",.01)
 ;;54868-1706-02
 ;;9002226.02101,"686,54868-1706-02 ",.02)
 ;;54868-1706-02
 ;;9002226.02101,"686,54868-1706-03 ",.01)
 ;;54868-1706-03
 ;;9002226.02101,"686,54868-1706-03 ",.02)
 ;;54868-1706-03
 ;;9002226.02101,"686,54868-2418-00 ",.01)
 ;;54868-2418-00
 ;;9002226.02101,"686,54868-2418-00 ",.02)
 ;;54868-2418-00
 ;;9002226.02101,"686,54868-2418-01 ",.01)
 ;;54868-2418-01
 ;;9002226.02101,"686,54868-2418-01 ",.02)
 ;;54868-2418-01
 ;;9002226.02101,"686,54868-2418-02 ",.01)
 ;;54868-2418-02
 ;;9002226.02101,"686,54868-2418-02 ",.02)
 ;;54868-2418-02
 ;;9002226.02101,"686,54868-2762-00 ",.01)
 ;;54868-2762-00
 ;;9002226.02101,"686,54868-2762-00 ",.02)
 ;;54868-2762-00
 ;;9002226.02101,"686,54868-2974-00 ",.01)
 ;;54868-2974-00
 ;;9002226.02101,"686,54868-2974-00 ",.02)
 ;;54868-2974-00
 ;;9002226.02101,"686,54868-2974-01 ",.01)
 ;;54868-2974-01
 ;;9002226.02101,"686,54868-2974-01 ",.02)
 ;;54868-2974-01
 ;;9002226.02101,"686,54868-2974-02 ",.01)
 ;;54868-2974-02
 ;;9002226.02101,"686,54868-2974-02 ",.02)
 ;;54868-2974-02
 ;;9002226.02101,"686,54868-2974-03 ",.01)
 ;;54868-2974-03
 ;;9002226.02101,"686,54868-2974-03 ",.02)
 ;;54868-2974-03
 ;;9002226.02101,"686,54868-3402-00 ",.01)
 ;;54868-3402-00
 ;;9002226.02101,"686,54868-3402-00 ",.02)
 ;;54868-3402-00
 ;;9002226.02101,"686,54868-3402-01 ",.01)
 ;;54868-3402-01
 ;;9002226.02101,"686,54868-3402-01 ",.02)
 ;;54868-3402-01
 ;;9002226.02101,"686,54868-3454-00 ",.01)
 ;;54868-3454-00
 ;;9002226.02101,"686,54868-3454-00 ",.02)
 ;;54868-3454-00
 ;;9002226.02101,"686,54868-3454-01 ",.01)
 ;;54868-3454-01
 ;;9002226.02101,"686,54868-3454-01 ",.02)
 ;;54868-3454-01
 ;;9002226.02101,"686,54868-3454-02 ",.01)
 ;;54868-3454-02
 ;;9002226.02101,"686,54868-3454-02 ",.02)
 ;;54868-3454-02
 ;;9002226.02101,"686,54868-3454-03 ",.01)
 ;;54868-3454-03
 ;;9002226.02101,"686,54868-3454-03 ",.02)
 ;;54868-3454-03
 ;;9002226.02101,"686,54868-3454-04 ",.01)
 ;;54868-3454-04
 ;;9002226.02101,"686,54868-3454-04 ",.02)
 ;;54868-3454-04
 ;;9002226.02101,"686,54868-3454-05 ",.01)
 ;;54868-3454-05
 ;;9002226.02101,"686,54868-3454-05 ",.02)
 ;;54868-3454-05
 ;;9002226.02101,"686,54868-3454-06 ",.01)
 ;;54868-3454-06
 ;;9002226.02101,"686,54868-3454-06 ",.02)
 ;;54868-3454-06
 ;;9002226.02101,"686,54868-3674-00 ",.01)
 ;;54868-3674-00
 ;;9002226.02101,"686,54868-3674-00 ",.02)
 ;;54868-3674-00
 ;;9002226.02101,"686,54868-3674-01 ",.01)
 ;;54868-3674-01
 ;;9002226.02101,"686,54868-3674-01 ",.02)
 ;;54868-3674-01
 ;;9002226.02101,"686,54868-3674-02 ",.01)
 ;;54868-3674-02
 ;;9002226.02101,"686,54868-3674-02 ",.02)
 ;;54868-3674-02
 ;;9002226.02101,"686,54868-3811-00 ",.01)
 ;;54868-3811-00
 ;;9002226.02101,"686,54868-3811-00 ",.02)
 ;;54868-3811-00
 ;;9002226.02101,"686,54868-3976-00 ",.01)
 ;;54868-3976-00
 ;;9002226.02101,"686,54868-3976-00 ",.02)
 ;;54868-3976-00
 ;;9002226.02101,"686,54868-4410-00 ",.01)
 ;;54868-4410-00
 ;;9002226.02101,"686,54868-4410-00 ",.02)
 ;;54868-4410-00
 ;;9002226.02101,"686,54868-4410-01 ",.01)
 ;;54868-4410-01
 ;;9002226.02101,"686,54868-4410-01 ",.02)
 ;;54868-4410-01
 ;;9002226.02101,"686,54868-4631-00 ",.01)
 ;;54868-4631-00
 ;;9002226.02101,"686,54868-4631-00 ",.02)
 ;;54868-4631-00
 ;;9002226.02101,"686,54868-4631-01 ",.01)
 ;;54868-4631-01
 ;;9002226.02101,"686,54868-4631-01 ",.02)
 ;;54868-4631-01
 ;;9002226.02101,"686,54868-4631-02 ",.01)
 ;;54868-4631-02
 ;;9002226.02101,"686,54868-4631-02 ",.02)
 ;;54868-4631-02
 ;;9002226.02101,"686,54868-4631-03 ",.01)
 ;;54868-4631-03
 ;;9002226.02101,"686,54868-4631-03 ",.02)
 ;;54868-4631-03
 ;;9002226.02101,"686,54868-4640-00 ",.01)
 ;;54868-4640-00
 ;;9002226.02101,"686,54868-4640-00 ",.02)
 ;;54868-4640-00
 ;;9002226.02101,"686,54868-4640-01 ",.01)
 ;;54868-4640-01
 ;;9002226.02101,"686,54868-4640-01 ",.02)
 ;;54868-4640-01
 ;;9002226.02101,"686,54868-4640-02 ",.01)
 ;;54868-4640-02
 ;;9002226.02101,"686,54868-4640-02 ",.02)
 ;;54868-4640-02
 ;;9002226.02101,"686,54868-4718-00 ",.01)
 ;;54868-4718-00
 ;;9002226.02101,"686,54868-4718-00 ",.02)
 ;;54868-4718-00
 ;;9002226.02101,"686,54868-4718-01 ",.01)
 ;;54868-4718-01
 ;;9002226.02101,"686,54868-4718-01 ",.02)
 ;;54868-4718-01
 ;;9002226.02101,"686,54868-4728-00 ",.01)
 ;;54868-4728-00
 ;;9002226.02101,"686,54868-4728-00 ",.02)
 ;;54868-4728-00
 ;;9002226.02101,"686,54868-4728-01 ",.01)
 ;;54868-4728-01
 ;;9002226.02101,"686,54868-4728-01 ",.02)
 ;;54868-4728-01
 ;;9002226.02101,"686,54868-4728-02 ",.01)
 ;;54868-4728-02
 ;;9002226.02101,"686,54868-4728-02 ",.02)
 ;;54868-4728-02
 ;;9002226.02101,"686,54868-4728-04 ",.01)
 ;;54868-4728-04
 ;;9002226.02101,"686,54868-4728-04 ",.02)
 ;;54868-4728-04
 ;;9002226.02101,"686,54868-4728-05 ",.01)
 ;;54868-4728-05
 ;;9002226.02101,"686,54868-4728-05 ",.02)
 ;;54868-4728-05
 ;;9002226.02101,"686,54868-4758-00 ",.01)
 ;;54868-4758-00
 ;;9002226.02101,"686,54868-4758-00 ",.02)
 ;;54868-4758-00
 ;;9002226.02101,"686,54868-4758-01 ",.01)
 ;;54868-4758-01
 ;;9002226.02101,"686,54868-4758-01 ",.02)
 ;;54868-4758-01
 ;;9002226.02101,"686,54868-4760-01 ",.01)
 ;;54868-4760-01
 ;;9002226.02101,"686,54868-4760-01 ",.02)
 ;;54868-4760-01
 ;;9002226.02101,"686,54868-4760-02 ",.01)
 ;;54868-4760-02
 ;;9002226.02101,"686,54868-4760-02 ",.02)
 ;;54868-4760-02
 ;;9002226.02101,"686,54868-4760-03 ",.01)
 ;;54868-4760-03
 ;;9002226.02101,"686,54868-4760-03 ",.02)
 ;;54868-4760-03
 ;;9002226.02101,"686,54868-4863-00 ",.01)
 ;;54868-4863-00
 ;;9002226.02101,"686,54868-4863-00 ",.02)
 ;;54868-4863-00
 ;;9002226.02101,"686,54868-4863-01 ",.01)
 ;;54868-4863-01
 ;;9002226.02101,"686,54868-4863-01 ",.02)
 ;;54868-4863-01
 ;;9002226.02101,"686,54868-5007-00 ",.01)
 ;;54868-5007-00
 ;;9002226.02101,"686,54868-5007-00 ",.02)
 ;;54868-5007-00
 ;;9002226.02101,"686,54868-5007-01 ",.01)
 ;;54868-5007-01
 ;;9002226.02101,"686,54868-5007-01 ",.02)
 ;;54868-5007-01
 ;;9002226.02101,"686,54868-5073-00 ",.01)
 ;;54868-5073-00
 ;;9002226.02101,"686,54868-5073-00 ",.02)
 ;;54868-5073-00
 ;;9002226.02101,"686,54868-5073-01 ",.01)
 ;;54868-5073-01
 ;;9002226.02101,"686,54868-5073-01 ",.02)
 ;;54868-5073-01
 ;;9002226.02101,"686,54868-5073-02 ",.01)
 ;;54868-5073-02
 ;;9002226.02101,"686,54868-5073-02 ",.02)
 ;;54868-5073-02
 ;;9002226.02101,"686,54868-5073-03 ",.01)
 ;;54868-5073-03
 ;;9002226.02101,"686,54868-5073-03 ",.02)
 ;;54868-5073-03
 ;;9002226.02101,"686,54868-5103-00 ",.01)
 ;;54868-5103-00
 ;;9002226.02101,"686,54868-5103-00 ",.02)
 ;;54868-5103-00
 ;;9002226.02101,"686,54868-5103-01 ",.01)
 ;;54868-5103-01
 ;;9002226.02101,"686,54868-5103-01 ",.02)
 ;;54868-5103-01
 ;;9002226.02101,"686,54868-5103-02 ",.01)
 ;;54868-5103-02
 ;;9002226.02101,"686,54868-5103-02 ",.02)
 ;;54868-5103-02
 ;;9002226.02101,"686,54868-5103-03 ",.01)
 ;;54868-5103-03
 ;;9002226.02101,"686,54868-5103-03 ",.02)
 ;;54868-5103-03
 ;;9002226.02101,"686,54868-5140-00 ",.01)
 ;;54868-5140-00
 ;;9002226.02101,"686,54868-5140-00 ",.02)
 ;;54868-5140-00
 ;;9002226.02101,"686,54868-5140-01 ",.01)
 ;;54868-5140-01
 ;;9002226.02101,"686,54868-5140-01 ",.02)
 ;;54868-5140-01
 ;;9002226.02101,"686,54868-5142-02 ",.01)
 ;;54868-5142-02
 ;;9002226.02101,"686,54868-5142-02 ",.02)
 ;;54868-5142-02
 ;;9002226.02101,"686,54868-5367-00 ",.01)
 ;;54868-5367-00
 ;;9002226.02101,"686,54868-5367-00 ",.02)
 ;;54868-5367-00
 ;;9002226.02101,"686,54868-5367-01 ",.01)
 ;;54868-5367-01
 ;;9002226.02101,"686,54868-5367-01 ",.02)
 ;;54868-5367-01
 ;;9002226.02101,"686,54868-5368-00 ",.01)
 ;;54868-5368-00
 ;;9002226.02101,"686,54868-5368-00 ",.02)
 ;;54868-5368-00
 ;;9002226.02101,"686,54868-5368-01 ",.01)
 ;;54868-5368-01
 ;;9002226.02101,"686,54868-5368-01 ",.02)
 ;;54868-5368-01
 ;;9002226.02101,"686,54868-5387-00 ",.01)
 ;;54868-5387-00
 ;;9002226.02101,"686,54868-5387-00 ",.02)
 ;;54868-5387-00
 ;;9002226.02101,"686,54868-5388-00 ",.01)
 ;;54868-5388-00
 ;;9002226.02101,"686,54868-5388-00 ",.02)
 ;;54868-5388-00
 ;;9002226.02101,"686,54868-5388-01 ",.01)
 ;;54868-5388-01
 ;;9002226.02101,"686,54868-5388-01 ",.02)
 ;;54868-5388-01
 ;;9002226.02101,"686,54868-5397-00 ",.01)
 ;;54868-5397-00
 ;;9002226.02101,"686,54868-5397-00 ",.02)
 ;;54868-5397-00
 ;;9002226.02101,"686,54868-5397-01 ",.01)
 ;;54868-5397-01
 ;;9002226.02101,"686,54868-5397-01 ",.02)
 ;;54868-5397-01
 ;;9002226.02101,"686,54868-5407-00 ",.01)
 ;;54868-5407-00
 ;;9002226.02101,"686,54868-5407-00 ",.02)
 ;;54868-5407-00
 ;;9002226.02101,"686,54868-5407-01 ",.01)
 ;;54868-5407-01
 ;;9002226.02101,"686,54868-5407-01 ",.02)
 ;;54868-5407-01
 ;;9002226.02101,"686,54868-5470-00 ",.01)
 ;;54868-5470-00