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

BGP06B16.m

Go to the documentation of this file.
  1. BGP06B16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"975,00405-4534-01 ",.01)
  1. ;;00405-4534-01
  1. ;;9002226.02101,"975,00405-4534-01 ",.02)
  1. ;;00405-4534-01
  1. ;;9002226.02101,"975,00405-4534-03 ",.01)
  1. ;;00405-4534-03
  1. ;;9002226.02101,"975,00405-4534-03 ",.02)
  1. ;;00405-4534-03
  1. ;;9002226.02101,"975,00405-4535-01 ",.01)
  1. ;;00405-4535-01
  1. ;;9002226.02101,"975,00405-4535-01 ",.02)
  1. ;;00405-4535-01
  1. ;;9002226.02101,"975,00405-4535-03 ",.01)
  1. ;;00405-4535-03
  1. ;;9002226.02101,"975,00405-4535-03 ",.02)
  1. ;;00405-4535-03
  1. ;;9002226.02101,"975,00405-4536-01 ",.01)
  1. ;;00405-4536-01
  1. ;;9002226.02101,"975,00405-4536-01 ",.02)
  1. ;;00405-4536-01
  1. ;;9002226.02101,"975,00405-4536-03 ",.01)
  1. ;;00405-4536-03
  1. ;;9002226.02101,"975,00405-4536-03 ",.02)
  1. ;;00405-4536-03
  1. ;;9002226.02101,"975,00405-4594-01 ",.01)
  1. ;;00405-4594-01
  1. ;;9002226.02101,"975,00405-4594-01 ",.02)
  1. ;;00405-4594-01
  1. ;;9002226.02101,"975,00405-4595-01 ",.01)
  1. ;;00405-4595-01
  1. ;;9002226.02101,"975,00405-4595-01 ",.02)
  1. ;;00405-4595-01
  1. ;;9002226.02101,"975,00405-4596-01 ",.01)
  1. ;;00405-4596-01
  1. ;;9002226.02101,"975,00405-4596-01 ",.02)
  1. ;;00405-4596-01
  1. ;;9002226.02101,"975,00405-4705-01 ",.01)
  1. ;;00405-4705-01
  1. ;;9002226.02101,"975,00405-4705-01 ",.02)
  1. ;;00405-4705-01
  1. ;;9002226.02101,"975,00405-4706-01 ",.01)
  1. ;;00405-4706-01
  1. ;;9002226.02101,"975,00405-4706-01 ",.02)
  1. ;;00405-4706-01
  1. ;;9002226.02101,"975,00405-4707-01 ",.01)
  1. ;;00405-4707-01
  1. ;;9002226.02101,"975,00405-4707-01 ",.02)
  1. ;;00405-4707-01
  1. ;;9002226.02101,"975,00405-4708-01 ",.01)
  1. ;;00405-4708-01
  1. ;;9002226.02101,"975,00405-4708-01 ",.02)
  1. ;;00405-4708-01
  1. ;;9002226.02101,"975,00405-4787-01 ",.01)
  1. ;;00405-4787-01
  1. ;;9002226.02101,"975,00405-4787-01 ",.02)
  1. ;;00405-4787-01
  1. ;;9002226.02101,"975,00405-4788-01 ",.01)
  1. ;;00405-4788-01
  1. ;;9002226.02101,"975,00405-4788-01 ",.02)
  1. ;;00405-4788-01
  1. ;;9002226.02101,"975,00405-4789-01 ",.01)
  1. ;;00405-4789-01
  1. ;;9002226.02101,"975,00405-4789-01 ",.02)
  1. ;;00405-4789-01
  1. ;;9002226.02101,"975,00405-4790-01 ",.01)
  1. ;;00405-4790-01
  1. ;;9002226.02101,"975,00405-4790-01 ",.02)
  1. ;;00405-4790-01
  1. ;;9002226.02101,"975,00405-5036-01 ",.01)
  1. ;;00405-5036-01
  1. ;;9002226.02101,"975,00405-5036-01 ",.02)
  1. ;;00405-5036-01
  1. ;;9002226.02101,"975,00405-5036-03 ",.01)
  1. ;;00405-5036-03
  1. ;;9002226.02101,"975,00405-5036-03 ",.02)
  1. ;;00405-5036-03
  1. ;;9002226.02101,"975,00405-5037-01 ",.01)
  1. ;;00405-5037-01
  1. ;;9002226.02101,"975,00405-5037-01 ",.02)
  1. ;;00405-5037-01
  1. ;;9002226.02101,"975,00405-5038-01 ",.01)
  1. ;;00405-5038-01
  1. ;;9002226.02101,"975,00405-5038-01 ",.02)
  1. ;;00405-5038-01
  1. ;;9002226.02101,"975,00406-0661-01 ",.01)
  1. ;;00406-0661-01
  1. ;;9002226.02101,"975,00406-0661-01 ",.02)
  1. ;;00406-0661-01
  1. ;;9002226.02101,"975,00406-0661-05 ",.01)
  1. ;;00406-0661-05
  1. ;;9002226.02101,"975,00406-0661-05 ",.02)
  1. ;;00406-0661-05
  1. ;;9002226.02101,"975,00406-0661-91 ",.01)
  1. ;;00406-0661-91
  1. ;;9002226.02101,"975,00406-0661-91 ",.02)
  1. ;;00406-0661-91
  1. ;;9002226.02101,"975,00406-0663-01 ",.01)
  1. ;;00406-0663-01
  1. ;;9002226.02101,"975,00406-0663-01 ",.02)
  1. ;;00406-0663-01
  1. ;;9002226.02101,"975,00406-0663-03 ",.01)
  1. ;;00406-0663-03
  1. ;;9002226.02101,"975,00406-0663-03 ",.02)
  1. ;;00406-0663-03
  1. ;;9002226.02101,"975,00406-0663-05 ",.01)
  1. ;;00406-0663-05
  1. ;;9002226.02101,"975,00406-0663-05 ",.02)
  1. ;;00406-0663-05
  1. ;;9002226.02101,"975,00406-0663-62 ",.01)
  1. ;;00406-0663-62
  1. ;;9002226.02101,"975,00406-0663-62 ",.02)
  1. ;;00406-0663-62
  1. ;;9002226.02101,"975,00406-0663-91 ",.01)
  1. ;;00406-0663-91
  1. ;;9002226.02101,"975,00406-0663-91 ",.02)
  1. ;;00406-0663-91
  1. ;;9002226.02101,"975,00406-0667-01 ",.01)
  1. ;;00406-0667-01
  1. ;;9002226.02101,"975,00406-0667-01 ",.02)
  1. ;;00406-0667-01
  1. ;;9002226.02101,"975,00406-9906-01 ",.01)
  1. ;;00406-9906-01
  1. ;;9002226.02101,"975,00406-9906-01 ",.02)
  1. ;;00406-9906-01
  1. ;;9002226.02101,"975,00406-9906-03 ",.01)
  1. ;;00406-9906-03
  1. ;;9002226.02101,"975,00406-9906-03 ",.02)
  1. ;;00406-9906-03
  1. ;;9002226.02101,"975,00406-9906-62 ",.01)
  1. ;;00406-9906-62
  1. ;;9002226.02101,"975,00406-9906-62 ",.02)
  1. ;;00406-9906-62
  1. ;;9002226.02101,"975,00406-9907-01 ",.01)
  1. ;;00406-9907-01
  1. ;;9002226.02101,"975,00406-9907-01 ",.02)
  1. ;;00406-9907-01
  1. ;;9002226.02101,"975,00406-9907-03 ",.01)
  1. ;;00406-9907-03
  1. ;;9002226.02101,"975,00406-9907-03 ",.02)
  1. ;;00406-9907-03
  1. ;;9002226.02101,"975,00406-9907-62 ",.01)
  1. ;;00406-9907-62
  1. ;;9002226.02101,"975,00406-9907-62 ",.02)
  1. ;;00406-9907-62
  1. ;;9002226.02101,"975,00406-9908-01 ",.01)
  1. ;;00406-9908-01
  1. ;;9002226.02101,"975,00406-9908-01 ",.02)
  1. ;;00406-9908-01
  1. ;;9002226.02101,"975,00406-9908-03 ",.01)
  1. ;;00406-9908-03
  1. ;;9002226.02101,"975,00406-9908-03 ",.02)
  1. ;;00406-9908-03
  1. ;;9002226.02101,"975,00406-9910-01 ",.01)
  1. ;;00406-9910-01
  1. ;;9002226.02101,"975,00406-9910-01 ",.02)
  1. ;;00406-9910-01
  1. ;;9002226.02101,"975,00406-9911-01 ",.01)
  1. ;;00406-9911-01
  1. ;;9002226.02101,"975,00406-9911-01 ",.02)
  1. ;;00406-9911-01
  1. ;;9002226.02101,"975,00406-9912-01 ",.01)
  1. ;;00406-9912-01
  1. ;;9002226.02101,"975,00406-9912-01 ",.02)
  1. ;;00406-9912-01
  1. ;;9002226.02101,"975,00406-9913-01 ",.01)
  1. ;;00406-9913-01
  1. ;;9002226.02101,"975,00406-9913-01 ",.02)
  1. ;;00406-9913-01
  1. ;;9002226.02101,"975,00406-9918-16 ",.01)
  1. ;;00406-9918-16
  1. ;;9002226.02101,"975,00406-9918-16 ",.02)
  1. ;;00406-9918-16
  1. ;;9002226.02101,"975,00406-9920-01 ",.01)
  1. ;;00406-9920-01
  1. ;;9002226.02101,"975,00406-9920-01 ",.02)
  1. ;;00406-9920-01
  1. ;;9002226.02101,"975,00406-9921-01 ",.01)
  1. ;;00406-9921-01
  1. ;;9002226.02101,"975,00406-9921-01 ",.02)
  1. ;;00406-9921-01
  1. ;;9002226.02101,"975,00406-9922-01 ",.01)
  1. ;;00406-9922-01
  1. ;;9002226.02101,"975,00406-9922-01 ",.02)
  1. ;;00406-9922-01
  1. ;;9002226.02101,"975,00406-9923-01 ",.01)
  1. ;;00406-9923-01
  1. ;;9002226.02101,"975,00406-9923-01 ",.02)
  1. ;;00406-9923-01
  1. ;;9002226.02101,"975,00406-9923-03 ",.01)
  1. ;;00406-9923-03
  1. ;;9002226.02101,"975,00406-9923-03 ",.02)
  1. ;;00406-9923-03
  1. ;;9002226.02101,"975,00406-9924-01 ",.01)
  1. ;;00406-9924-01
  1. ;;9002226.02101,"975,00406-9924-01 ",.02)
  1. ;;00406-9924-01
  1. ;;9002226.02101,"975,00406-9924-03 ",.01)
  1. ;;00406-9924-03
  1. ;;9002226.02101,"975,00406-9924-03 ",.02)
  1. ;;00406-9924-03
  1. ;;9002226.02101,"975,00406-9925-01 ",.01)
  1. ;;00406-9925-01
  1. ;;9002226.02101,"975,00406-9925-01 ",.02)
  1. ;;00406-9925-01
  1. ;;9002226.02101,"975,00406-9925-03 ",.01)
  1. ;;00406-9925-03
  1. ;;9002226.02101,"975,00406-9925-03 ",.02)
  1. ;;00406-9925-03
  1. ;;9002226.02101,"975,00406-9926-01 ",.01)
  1. ;;00406-9926-01
  1. ;;9002226.02101,"975,00406-9926-01 ",.02)
  1. ;;00406-9926-01
  1. ;;9002226.02101,"975,00406-9926-03 ",.01)
  1. ;;00406-9926-03
  1. ;;9002226.02101,"975,00406-9926-03 ",.02)
  1. ;;00406-9926-03
  1. ;;9002226.02101,"975,00406-9931-03 ",.01)
  1. ;;00406-9931-03
  1. ;;9002226.02101,"975,00406-9931-03 ",.02)
  1. ;;00406-9931-03
  1. ;;9002226.02101,"975,00406-9932-03 ",.01)
  1. ;;00406-9932-03
  1. ;;9002226.02101,"975,00406-9932-03 ",.02)
  1. ;;00406-9932-03
  1. ;;9002226.02101,"975,00406-9933-03 ",.01)
  1. ;;00406-9933-03
  1. ;;9002226.02101,"975,00406-9933-03 ",.02)
  1. ;;00406-9933-03
  1. ;;9002226.02101,"975,00406-9934-03 ",.01)
  1. ;;00406-9934-03
  1. ;;9002226.02101,"975,00406-9934-03 ",.02)
  1. ;;00406-9934-03
  1. ;;9002226.02101,"975,00430-0435-14 ",.01)
  1. ;;00430-0435-14
  1. ;;9002226.02101,"975,00430-0435-14 ",.02)
  1. ;;00430-0435-14
  1. ;;9002226.02101,"975,00430-0436-14 ",.01)
  1. ;;00430-0436-14
  1. ;;9002226.02101,"975,00430-0436-14 ",.02)
  1. ;;00430-0436-14
  1. ;;9002226.02101,"975,00456-2005-01 ",.01)
  1. ;;00456-2005-01
  1. ;;9002226.02101,"975,00456-2005-01 ",.02)
  1. ;;00456-2005-01
  1. ;;9002226.02101,"975,00456-2010-01 ",.01)
  1. ;;00456-2010-01
  1. ;;9002226.02101,"975,00456-2010-01 ",.02)
  1. ;;00456-2010-01
  1. ;;9002226.02101,"975,00456-2010-63 ",.01)
  1. ;;00456-2010-63
  1. ;;9002226.02101,"975,00456-2010-63 ",.02)
  1. ;;00456-2010-63
  1. ;;9002226.02101,"975,00456-2020-01 ",.01)
  1. ;;00456-2020-01
  1. ;;9002226.02101,"975,00456-2020-01 ",.02)
  1. ;;00456-2020-01
  1. ;;9002226.02101,"975,00456-2020-63 ",.01)
  1. ;;00456-2020-63
  1. ;;9002226.02101,"975,00456-2020-63 ",.02)
  1. ;;00456-2020-63
  1. ;;9002226.02101,"975,00456-2101-08 ",.01)
  1. ;;00456-2101-08
  1. ;;9002226.02101,"975,00456-2101-08 ",.02)
  1. ;;00456-2101-08
  1. ;;9002226.02101,"975,00456-4010-01 ",.01)
  1. ;;00456-4010-01
  1. ;;9002226.02101,"975,00456-4010-01 ",.02)
  1. ;;00456-4010-01
  1. ;;9002226.02101,"975,00456-4020-01 ",.01)
  1. ;;00456-4020-01
  1. ;;9002226.02101,"975,00456-4020-01 ",.02)
  1. ;;00456-4020-01
  1. ;;9002226.02101,"975,00456-4020-63 ",.01)
  1. ;;00456-4020-63
  1. ;;9002226.02101,"975,00456-4020-63 ",.02)
  1. ;;00456-4020-63
  1. ;;9002226.02101,"975,00456-4040-01 ",.01)
  1. ;;00456-4040-01
  1. ;;9002226.02101,"975,00456-4040-01 ",.02)
  1. ;;00456-4040-01
  1. ;;9002226.02101,"975,00456-4040-63 ",.01)
  1. ;;00456-4040-63
  1. ;;9002226.02101,"975,00456-4040-63 ",.02)
  1. ;;00456-4040-63
  1. ;;9002226.02101,"975,00456-4130-04 ",.01)
  1. ;;00456-4130-04
  1. ;;9002226.02101,"975,00456-4130-04 ",.02)
  1. ;;00456-4130-04
  1. ;;9002226.02101,"975,00456-4130-08 ",.01)
  1. ;;00456-4130-08
  1. ;;9002226.02101,"975,00456-4130-08 ",.02)
  1. ;;00456-4130-08
  1. ;;9002226.02101,"975,00472-0021-04 ",.01)
  1. ;;00472-0021-04
  1. ;;9002226.02101,"975,00472-0021-04 ",.02)
  1. ;;00472-0021-04
  1. ;;9002226.02101,"975,00536-3083-05 ",.01)
  1. ;;00536-3083-05
  1. ;;9002226.02101,"975,00536-3083-05 ",.02)
  1. ;;00536-3083-05
  1. ;;9002226.02101,"975,00536-4563-10 ",.01)
  1. ;;00536-4563-10
  1. ;;9002226.02101,"975,00536-4563-10 ",.02)
  1. ;;00536-4563-10
  1. ;;9002226.02101,"975,00536-4691-01 ",.01)
  1. ;;00536-4691-01
  1. ;;9002226.02101,"975,00536-4691-01 ",.02)
  1. ;;00536-4691-01
  1. ;;9002226.02101,"975,00536-4715-01 ",.01)
  1. ;;00536-4715-01
  1. ;;9002226.02101,"975,00536-4715-01 ",.02)
  1. ;;00536-4715-01
  1. ;;9002226.02101,"975,00536-4881-01 ",.01)
  1. ;;00536-4881-01
  1. ;;9002226.02101,"975,00536-4881-01 ",.02)
  1. ;;00536-4881-01
  1. ;;9002226.02101,"975,00536-4881-05 ",.01)
  1. ;;00536-4881-05
  1. ;;9002226.02101,"975,00536-4881-05 ",.02)
  1. ;;00536-4881-05
  1. ;;9002226.02101,"975,00536-4882-01 ",.01)
  1. ;;00536-4882-01
  1. ;;9002226.02101,"975,00536-4882-01 ",.02)
  1. ;;00536-4882-01
  1. ;;9002226.02101,"975,00536-4882-05 ",.01)
  1. ;;00536-4882-05
  1. ;;9002226.02101,"975,00536-4882-05 ",.02)
  1. ;;00536-4882-05
  1. ;;9002226.02101,"975,00536-4883-01 ",.01)
  1. ;;00536-4883-01
  1. ;;9002226.02101,"975,00536-4883-01 ",.02)
  1. ;;00536-4883-01
  1. ;;9002226.02101,"975,00555-0201-01 ",.01)
  1. ;;00555-0201-01
  1. ;;9002226.02101,"975,00555-0201-01 ",.02)
  1. ;;00555-0201-01
  1. ;;9002226.02101,"975,00555-0241-71 ",.01)
  1. ;;00555-0241-71
  1. ;;9002226.02101,"975,00555-0241-71 ",.02)
  1. ;;00555-0241-71
  1. ;;9002226.02101,"975,00555-0242-71 ",.01)
  1. ;;00555-0242-71
  1. ;;9002226.02101,"975,00555-0242-71 ",.02)
  1. ;;00555-0242-71
  1. ;;9002226.02101,"975,00555-0489-02 ",.01)
  1. ;;00555-0489-02
  1. ;;9002226.02101,"975,00555-0489-02 ",.02)
  1. ;;00555-0489-02
  1. ;;9002226.02101,"975,00555-0489-04 ",.01)
  1. ;;00555-0489-04
  1. ;;9002226.02101,"975,00555-0489-04 ",.02)
  1. ;;00555-0489-04
  1. ;;9002226.02101,"975,00555-0490-02 ",.01)
  1. ;;00555-0490-02
  1. ;;9002226.02101,"975,00555-0490-02 ",.02)
  1. ;;00555-0490-02
  1. ;;9002226.02101,"975,00555-0490-04 ",.01)
  1. ;;00555-0490-04
  1. ;;9002226.02101,"975,00555-0490-04 ",.02)
  1. ;;00555-0490-04
  1. ;;9002226.02101,"975,00555-0732-02 ",.01)
  1. ;;00555-0732-02
  1. ;;9002226.02101,"975,00555-0732-02 ",.02)
  1. ;;00555-0732-02
  1. ;;9002226.02101,"975,00555-0732-04 ",.01)
  1. ;;00555-0732-04
  1. ;;9002226.02101,"975,00555-0732-04 ",.02)
  1. ;;00555-0732-04
  1. ;;9002226.02101,"975,00555-0733-02 ",.01)
  1. ;;00555-0733-02
  1. ;;9002226.02101,"975,00555-0733-02 ",.02)
  1. ;;00555-0733-02
  1. ;;9002226.02101,"975,00555-0876-02 ",.01)
  1. ;;00555-0876-02
  1. ;;9002226.02101,"975,00555-0876-02 ",.02)
  1. ;;00555-0876-02
  1. ;;9002226.02101,"975,00555-0877-02 ",.01)
  1. ;;00555-0877-02
  1. ;;9002226.02101,"975,00555-0877-02 ",.02)
  1. ;;00555-0877-02
  1. ;;9002226.02101,"975,00555-0877-07 ",.01)
  1. ;;00555-0877-07
  1. ;;9002226.02101,"975,00555-0877-07 ",.02)
  1. ;;00555-0877-07
  1. ;;9002226.02101,"975,00555-0967-02 ",.01)
  1. ;;00555-0967-02
  1. ;;9002226.02101,"975,00555-0967-02 ",.02)
  1. ;;00555-0967-02
  1. ;;9002226.02101,"975,00555-0968-02 ",.01)
  1. ;;00555-0968-02
  1. ;;9002226.02101,"975,00555-0968-02 ",.02)
  1. ;;00555-0968-02
  1. ;;9002226.02101,"975,00555-0969-02 ",.01)
  1. ;;00555-0969-02
  1. ;;9002226.02101,"975,00555-0969-02 ",.02)
  1. ;;00555-0969-02
  1. ;;9002226.02101,"975,00555-7243-71 ",.01)
  1. ;;00555-7243-71
  1. ;;9002226.02101,"975,00555-7243-71 ",.02)
  1. ;;00555-7243-71
  1. ;;9002226.02101,"975,00591-0379-01 ",.01)
  1. ;;00591-0379-01
  1. ;;9002226.02101,"975,00591-0379-01 ",.02)
  1. ;;00591-0379-01
  1. ;;9002226.02101,"975,00591-0381-01 ",.01)
  1. ;;00591-0381-01
  1. ;;9002226.02101,"975,00591-0381-01 ",.02)
  1. ;;00591-0381-01
  1. ;;9002226.02101,"975,00591-0382-30 ",.01)
  1. ;;00591-0382-30
  1. ;;9002226.02101,"975,00591-0382-30 ",.02)
  1. ;;00591-0382-30
  1. ;;9002226.02101,"975,00591-0545-01 ",.01)
  1. ;;00591-0545-01
  1. ;;9002226.02101,"975,00591-0545-01 ",.02)
  1. ;;00591-0545-01
  1. ;;9002226.02101,"975,00591-0764-60 ",.01)
  1. ;;00591-0764-60
  1. ;;9002226.02101,"975,00591-0764-60 ",.02)
  1. ;;00591-0764-60
  1. ;;9002226.02101,"975,00591-0765-60 ",.01)
  1. ;;00591-0765-60
  1. ;;9002226.02101,"975,00591-0765-60 ",.02)
  1. ;;00591-0765-60
  1. ;;9002226.02101,"975,00591-0766-60 ",.01)
  1. ;;00591-0766-60
  1. ;;9002226.02101,"975,00591-0766-60 ",.02)
  1. ;;00591-0766-60
  1. ;;9002226.02101,"975,00591-0767-60 ",.01)
  1. ;;00591-0767-60
  1. ;;9002226.02101,"975,00591-0767-60 ",.02)
  1. ;;00591-0767-60
  1. ;;9002226.02101,"975,00591-0808-01 ",.01)
  1. ;;00591-0808-01
  1. ;;9002226.02101,"975,00591-0808-01 ",.02)
  1. ;;00591-0808-01
  1. ;;9002226.02101,"975,00591-0808-05 ",.01)
  1. ;;00591-0808-05
  1. ;;9002226.02101,"975,00591-0808-05 ",.02)
  1. ;;00591-0808-05
  1. ;;9002226.02101,"975,00591-0809-01 ",.01)
  1. ;;00591-0809-01
  1. ;;9002226.02101,"975,00591-0809-01 ",.02)
  1. ;;00591-0809-01