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

BGP06B18.m

Go to the documentation of this file.
BGP06B18 ;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,"975,00677-0421-01 ",.01)
 ;;00677-0421-01
 ;;9002226.02101,"975,00677-0421-01 ",.02)
 ;;00677-0421-01
 ;;9002226.02101,"975,00677-0421-06 ",.01)
 ;;00677-0421-06
 ;;9002226.02101,"975,00677-0421-06 ",.02)
 ;;00677-0421-06
 ;;9002226.02101,"975,00677-0421-07 ",.01)
 ;;00677-0421-07
 ;;9002226.02101,"975,00677-0421-07 ",.02)
 ;;00677-0421-07
 ;;9002226.02101,"975,00677-0422-01 ",.01)
 ;;00677-0422-01
 ;;9002226.02101,"975,00677-0422-01 ",.02)
 ;;00677-0422-01
 ;;9002226.02101,"975,00677-0422-06 ",.01)
 ;;00677-0422-06
 ;;9002226.02101,"975,00677-0422-06 ",.02)
 ;;00677-0422-06
 ;;9002226.02101,"975,00677-0422-07 ",.01)
 ;;00677-0422-07
 ;;9002226.02101,"975,00677-0422-07 ",.02)
 ;;00677-0422-07
 ;;9002226.02101,"975,00677-0423-01 ",.01)
 ;;00677-0423-01
 ;;9002226.02101,"975,00677-0423-01 ",.02)
 ;;00677-0423-01
 ;;9002226.02101,"975,00677-0423-06 ",.01)
 ;;00677-0423-06
 ;;9002226.02101,"975,00677-0423-06 ",.02)
 ;;00677-0423-06
 ;;9002226.02101,"975,00677-0423-07 ",.01)
 ;;00677-0423-07
 ;;9002226.02101,"975,00677-0423-07 ",.02)
 ;;00677-0423-07
 ;;9002226.02101,"975,00677-0475-01 ",.01)
 ;;00677-0475-01
 ;;9002226.02101,"975,00677-0475-01 ",.02)
 ;;00677-0475-01
 ;;9002226.02101,"975,00677-0475-10 ",.01)
 ;;00677-0475-10
 ;;9002226.02101,"975,00677-0475-10 ",.02)
 ;;00677-0475-10
 ;;9002226.02101,"975,00677-0476-01 ",.01)
 ;;00677-0476-01
 ;;9002226.02101,"975,00677-0476-01 ",.02)
 ;;00677-0476-01
 ;;9002226.02101,"975,00677-0476-10 ",.01)
 ;;00677-0476-10
 ;;9002226.02101,"975,00677-0476-10 ",.02)
 ;;00677-0476-10
 ;;9002226.02101,"975,00677-0477-01 ",.01)
 ;;00677-0477-01
 ;;9002226.02101,"975,00677-0477-01 ",.02)
 ;;00677-0477-01
 ;;9002226.02101,"975,00677-0477-10 ",.01)
 ;;00677-0477-10
 ;;9002226.02101,"975,00677-0477-10 ",.02)
 ;;00677-0477-10
 ;;9002226.02101,"975,00677-0478-01 ",.01)
 ;;00677-0478-01
 ;;9002226.02101,"975,00677-0478-01 ",.02)
 ;;00677-0478-01
 ;;9002226.02101,"975,00677-0568-01 ",.01)
 ;;00677-0568-01
 ;;9002226.02101,"975,00677-0568-01 ",.02)
 ;;00677-0568-01
 ;;9002226.02101,"975,00677-0645-01 ",.01)
 ;;00677-0645-01
 ;;9002226.02101,"975,00677-0645-01 ",.02)
 ;;00677-0645-01
 ;;9002226.02101,"975,00677-1133-01 ",.01)
 ;;00677-1133-01
 ;;9002226.02101,"975,00677-1133-01 ",.02)
 ;;00677-1133-01
 ;;9002226.02101,"975,00677-1133-05 ",.01)
 ;;00677-1133-05
 ;;9002226.02101,"975,00677-1133-05 ",.02)
 ;;00677-1133-05
 ;;9002226.02101,"975,00677-1134-01 ",.01)
 ;;00677-1134-01
 ;;9002226.02101,"975,00677-1134-01 ",.02)
 ;;00677-1134-01
 ;;9002226.02101,"975,00677-1134-05 ",.01)
 ;;00677-1134-05
 ;;9002226.02101,"975,00677-1134-05 ",.02)
 ;;00677-1134-05
 ;;9002226.02101,"975,00677-1198-01 ",.01)
 ;;00677-1198-01
 ;;9002226.02101,"975,00677-1198-01 ",.02)
 ;;00677-1198-01
 ;;9002226.02101,"975,00677-1199-01 ",.01)
 ;;00677-1199-01
 ;;9002226.02101,"975,00677-1199-01 ",.02)
 ;;00677-1199-01
 ;;9002226.02101,"975,00677-1302-01 ",.01)
 ;;00677-1302-01
 ;;9002226.02101,"975,00677-1302-01 ",.02)
 ;;00677-1302-01
 ;;9002226.02101,"975,00677-1302-05 ",.01)
 ;;00677-1302-05
 ;;9002226.02101,"975,00677-1302-05 ",.02)
 ;;00677-1302-05
 ;;9002226.02101,"975,00677-1302-06 ",.01)
 ;;00677-1302-06
 ;;9002226.02101,"975,00677-1302-06 ",.02)
 ;;00677-1302-06
 ;;9002226.02101,"975,00677-1302-07 ",.01)
 ;;00677-1302-07
 ;;9002226.02101,"975,00677-1302-07 ",.02)
 ;;00677-1302-07
 ;;9002226.02101,"975,00677-1380-07 ",.01)
 ;;00677-1380-07
 ;;9002226.02101,"975,00677-1380-07 ",.02)
 ;;00677-1380-07
 ;;9002226.02101,"975,00677-1555-01 ",.01)
 ;;00677-1555-01
 ;;9002226.02101,"975,00677-1555-01 ",.02)
 ;;00677-1555-01
 ;;9002226.02101,"975,00677-1556-01 ",.01)
 ;;00677-1556-01
 ;;9002226.02101,"975,00677-1556-01 ",.02)
 ;;00677-1556-01
 ;;9002226.02101,"975,00677-1557-01 ",.01)
 ;;00677-1557-01
 ;;9002226.02101,"975,00677-1557-01 ",.02)
 ;;00677-1557-01
 ;;9002226.02101,"975,00677-1766-01 ",.01)
 ;;00677-1766-01
 ;;9002226.02101,"975,00677-1766-01 ",.02)
 ;;00677-1766-01
 ;;9002226.02101,"975,00677-1766-05 ",.01)
 ;;00677-1766-05
 ;;9002226.02101,"975,00677-1766-05 ",.02)
 ;;00677-1766-05
 ;;9002226.02101,"975,00677-1766-10 ",.01)
 ;;00677-1766-10
 ;;9002226.02101,"975,00677-1766-10 ",.02)
 ;;00677-1766-10
 ;;9002226.02101,"975,00677-1767-01 ",.01)
 ;;00677-1767-01
 ;;9002226.02101,"975,00677-1767-01 ",.02)
 ;;00677-1767-01
 ;;9002226.02101,"975,00677-1767-05 ",.01)
 ;;00677-1767-05
 ;;9002226.02101,"975,00677-1767-05 ",.02)
 ;;00677-1767-05
 ;;9002226.02101,"975,00677-1767-10 ",.01)
 ;;00677-1767-10
 ;;9002226.02101,"975,00677-1767-10 ",.02)
 ;;00677-1767-10
 ;;9002226.02101,"975,00686-0079-20 ",.01)
 ;;00686-0079-20
 ;;9002226.02101,"975,00686-0079-20 ",.02)
 ;;00686-0079-20
 ;;9002226.02101,"975,00686-0080-20 ",.01)
 ;;00686-0080-20
 ;;9002226.02101,"975,00686-0080-20 ",.02)
 ;;00686-0080-20
 ;;9002226.02101,"975,00686-0081-20 ",.01)
 ;;00686-0081-20
 ;;9002226.02101,"975,00686-0081-20 ",.02)
 ;;00686-0081-20
 ;;9002226.02101,"975,00686-0107-20 ",.01)
 ;;00686-0107-20
 ;;9002226.02101,"975,00686-0107-20 ",.02)
 ;;00686-0107-20
 ;;9002226.02101,"975,00686-0131-20 ",.01)
 ;;00686-0131-20
 ;;9002226.02101,"975,00686-0131-20 ",.02)
 ;;00686-0131-20
 ;;9002226.02101,"975,00686-0133-20 ",.01)
 ;;00686-0133-20
 ;;9002226.02101,"975,00686-0133-20 ",.02)
 ;;00686-0133-20
 ;;9002226.02101,"975,00686-0147-20 ",.01)
 ;;00686-0147-20
 ;;9002226.02101,"975,00686-0147-20 ",.02)
 ;;00686-0147-20
 ;;9002226.02101,"975,00686-0428-20 ",.01)
 ;;00686-0428-20
 ;;9002226.02101,"975,00686-0428-20 ",.02)
 ;;00686-0428-20
 ;;9002226.02101,"975,00686-0436-20 ",.01)
 ;;00686-0436-20
 ;;9002226.02101,"975,00686-0436-20 ",.02)
 ;;00686-0436-20
 ;;9002226.02101,"975,00686-0437-20 ",.01)
 ;;00686-0437-20
 ;;9002226.02101,"975,00686-0437-20 ",.02)
 ;;00686-0437-20
 ;;9002226.02101,"975,00686-0438-20 ",.01)
 ;;00686-0438-20
 ;;9002226.02101,"975,00686-0438-20 ",.02)
 ;;00686-0438-20
 ;;9002226.02101,"975,00686-0465-20 ",.01)
 ;;00686-0465-20
 ;;9002226.02101,"975,00686-0465-20 ",.02)
 ;;00686-0465-20
 ;;9002226.02101,"975,00686-0472-20 ",.01)
 ;;00686-0472-20
 ;;9002226.02101,"975,00686-0472-20 ",.02)
 ;;00686-0472-20
 ;;9002226.02101,"975,00686-0489-20 ",.01)
 ;;00686-0489-20
 ;;9002226.02101,"975,00686-0489-20 ",.02)
 ;;00686-0489-20
 ;;9002226.02101,"975,00686-0490-20 ",.01)
 ;;00686-0490-20
 ;;9002226.02101,"975,00686-0490-20 ",.02)
 ;;00686-0490-20
 ;;9002226.02101,"975,00686-0491-20 ",.01)
 ;;00686-0491-20
 ;;9002226.02101,"975,00686-0491-20 ",.02)
 ;;00686-0491-20
 ;;9002226.02101,"975,00686-0493-20 ",.01)
 ;;00686-0493-20
 ;;9002226.02101,"975,00686-0493-20 ",.02)
 ;;00686-0493-20
 ;;9002226.02101,"975,00686-0494-20 ",.01)
 ;;00686-0494-20
 ;;9002226.02101,"975,00686-0494-20 ",.02)
 ;;00686-0494-20
 ;;9002226.02101,"975,00686-0563-20 ",.01)
 ;;00686-0563-20
 ;;9002226.02101,"975,00686-0563-20 ",.02)
 ;;00686-0563-20
 ;;9002226.02101,"975,00686-0564-20 ",.01)
 ;;00686-0564-20
 ;;9002226.02101,"975,00686-0564-20 ",.02)
 ;;00686-0564-20
 ;;9002226.02101,"975,00686-0612-14 ",.01)
 ;;00686-0612-14
 ;;9002226.02101,"975,00686-0612-14 ",.02)
 ;;00686-0612-14
 ;;9002226.02101,"975,00686-0651-20 ",.01)
 ;;00686-0651-20
 ;;9002226.02101,"975,00686-0651-20 ",.02)
 ;;00686-0651-20
 ;;9002226.02101,"975,00777-3104-01 ",.01)
 ;;00777-3104-01
 ;;9002226.02101,"975,00777-3104-01 ",.02)
 ;;00777-3104-01
 ;;9002226.02101,"975,00777-3104-02 ",.01)
 ;;00777-3104-02
 ;;9002226.02101,"975,00777-3104-02 ",.02)
 ;;00777-3104-02
 ;;9002226.02101,"975,00777-3104-82 ",.01)
 ;;00777-3104-82
 ;;9002226.02101,"975,00777-3104-82 ",.02)
 ;;00777-3104-82
 ;;9002226.02101,"975,00777-3105-01 ",.01)
 ;;00777-3105-01
 ;;9002226.02101,"975,00777-3105-01 ",.02)
 ;;00777-3105-01
 ;;9002226.02101,"975,00777-3105-02 ",.01)
 ;;00777-3105-02
 ;;9002226.02101,"975,00777-3105-02 ",.02)
 ;;00777-3105-02
 ;;9002226.02101,"975,00777-3105-07 ",.01)
 ;;00777-3105-07
 ;;9002226.02101,"975,00777-3105-07 ",.02)
 ;;00777-3105-07
 ;;9002226.02101,"975,00777-3105-30 ",.01)
 ;;00777-3105-30
 ;;9002226.02101,"975,00777-3105-30 ",.02)
 ;;00777-3105-30
 ;;9002226.02101,"975,00777-3105-33 ",.01)
 ;;00777-3105-33
 ;;9002226.02101,"975,00777-3105-33 ",.02)
 ;;00777-3105-33
 ;;9002226.02101,"975,00777-3105-82 ",.01)
 ;;00777-3105-82
 ;;9002226.02101,"975,00777-3105-82 ",.02)
 ;;00777-3105-82
 ;;9002226.02101,"975,00777-3107-30 ",.01)
 ;;00777-3107-30
 ;;9002226.02101,"975,00777-3107-30 ",.02)
 ;;00777-3107-30
 ;;9002226.02101,"975,00777-5120-58 ",.01)
 ;;00777-5120-58
 ;;9002226.02101,"975,00777-5120-58 ",.02)
 ;;00777-5120-58
 ;;9002226.02101,"975,00781-1053-01 ",.01)
 ;;00781-1053-01
 ;;9002226.02101,"975,00781-1053-01 ",.02)
 ;;00781-1053-01
 ;;9002226.02101,"975,00781-1053-10 ",.01)
 ;;00781-1053-10
 ;;9002226.02101,"975,00781-1053-10 ",.02)
 ;;00781-1053-10
 ;;9002226.02101,"975,00781-1064-01 ",.01)
 ;;00781-1064-01
 ;;9002226.02101,"975,00781-1064-01 ",.02)
 ;;00781-1064-01
 ;;9002226.02101,"975,00781-1064-10 ",.01)
 ;;00781-1064-10
 ;;9002226.02101,"975,00781-1064-10 ",.02)
 ;;00781-1064-10
 ;;9002226.02101,"975,00781-1265-01 ",.01)
 ;;00781-1265-01
 ;;9002226.02101,"975,00781-1265-01 ",.02)
 ;;00781-1265-01
 ;;9002226.02101,"975,00781-1265-05 ",.01)
 ;;00781-1265-05
 ;;9002226.02101,"975,00781-1265-05 ",.02)
 ;;00781-1265-05
 ;;9002226.02101,"975,00781-1265-13 ",.01)
 ;;00781-1265-13
 ;;9002226.02101,"975,00781-1265-13 ",.02)
 ;;00781-1265-13
 ;;9002226.02101,"975,00781-1267-01 ",.01)
 ;;00781-1267-01
 ;;9002226.02101,"975,00781-1267-01 ",.02)
 ;;00781-1267-01
 ;;9002226.02101,"975,00781-1267-05 ",.01)
 ;;00781-1267-05
 ;;9002226.02101,"975,00781-1267-05 ",.02)
 ;;00781-1267-05
 ;;9002226.02101,"975,00781-1267-13 ",.01)
 ;;00781-1267-13
 ;;9002226.02101,"975,00781-1267-13 ",.02)
 ;;00781-1267-13
 ;;9002226.02101,"975,00781-1268-01 ",.01)
 ;;00781-1268-01
 ;;9002226.02101,"975,00781-1268-01 ",.02)
 ;;00781-1268-01
 ;;9002226.02101,"975,00781-1273-01 ",.01)
 ;;00781-1273-01
 ;;9002226.02101,"975,00781-1273-01 ",.02)
 ;;00781-1273-01
 ;;9002226.02101,"975,00781-1273-05 ",.01)
 ;;00781-1273-05
 ;;9002226.02101,"975,00781-1273-05 ",.02)
 ;;00781-1273-05
 ;;9002226.02101,"975,00781-1486-01 ",.01)
 ;;00781-1486-01
 ;;9002226.02101,"975,00781-1486-01 ",.02)
 ;;00781-1486-01
 ;;9002226.02101,"975,00781-1486-10 ",.01)
 ;;00781-1486-10
 ;;9002226.02101,"975,00781-1486-10 ",.02)
 ;;00781-1486-10
 ;;9002226.02101,"975,00781-1486-13 ",.01)
 ;;00781-1486-13
 ;;9002226.02101,"975,00781-1486-13 ",.02)
 ;;00781-1486-13
 ;;9002226.02101,"975,00781-1487-01 ",.01)
 ;;00781-1487-01
 ;;9002226.02101,"975,00781-1487-01 ",.02)
 ;;00781-1487-01
 ;;9002226.02101,"975,00781-1487-10 ",.01)
 ;;00781-1487-10
 ;;9002226.02101,"975,00781-1487-10 ",.02)
 ;;00781-1487-10
 ;;9002226.02101,"975,00781-1487-13 ",.01)
 ;;00781-1487-13
 ;;9002226.02101,"975,00781-1487-13 ",.02)
 ;;00781-1487-13
 ;;9002226.02101,"975,00781-1488-01 ",.01)
 ;;00781-1488-01
 ;;9002226.02101,"975,00781-1488-01 ",.02)
 ;;00781-1488-01
 ;;9002226.02101,"975,00781-1488-10 ",.01)
 ;;00781-1488-10
 ;;9002226.02101,"975,00781-1488-10 ",.02)
 ;;00781-1488-10
 ;;9002226.02101,"975,00781-1488-13 ",.01)
 ;;00781-1488-13
 ;;9002226.02101,"975,00781-1488-13 ",.02)
 ;;00781-1488-13
 ;;9002226.02101,"975,00781-1489-01 ",.01)
 ;;00781-1489-01
 ;;9002226.02101,"975,00781-1489-01 ",.02)
 ;;00781-1489-01
 ;;9002226.02101,"975,00781-1489-13 ",.01)
 ;;00781-1489-13
 ;;9002226.02101,"975,00781-1489-13 ",.02)
 ;;00781-1489-13
 ;;9002226.02101,"975,00781-1490-01 ",.01)
 ;;00781-1490-01
 ;;9002226.02101,"975,00781-1490-01 ",.02)
 ;;00781-1490-01
 ;;9002226.02101,"975,00781-1490-13 ",.01)
 ;;00781-1490-13
 ;;9002226.02101,"975,00781-1490-13 ",.02)
 ;;00781-1490-13
 ;;9002226.02101,"975,00781-1491-01 ",.01)
 ;;00781-1491-01
 ;;9002226.02101,"975,00781-1491-01 ",.02)
 ;;00781-1491-01
 ;;9002226.02101,"975,00781-1491-13 ",.01)
 ;;00781-1491-13
 ;;9002226.02101,"975,00781-1491-13 ",.02)
 ;;00781-1491-13
 ;;9002226.02101,"975,00781-1762-01 ",.01)
 ;;00781-1762-01
 ;;9002226.02101,"975,00781-1762-01 ",.02)
 ;;00781-1762-01
 ;;9002226.02101,"975,00781-1764-01 ",.01)
 ;;00781-1764-01
 ;;9002226.02101,"975,00781-1764-01 ",.02)
 ;;00781-1764-01
 ;;9002226.02101,"975,00781-1764-10 ",.01)
 ;;00781-1764-10
 ;;9002226.02101,"975,00781-1764-10 ",.02)
 ;;00781-1764-10
 ;;9002226.02101,"975,00781-1764-13 ",.01)
 ;;00781-1764-13
 ;;9002226.02101,"975,00781-1764-13 ",.02)
 ;;00781-1764-13
 ;;9002226.02101,"975,00781-1766-01 ",.01)
 ;;00781-1766-01
 ;;9002226.02101,"975,00781-1766-01 ",.02)
 ;;00781-1766-01
 ;;9002226.02101,"975,00781-1766-10 ",.01)
 ;;00781-1766-10
 ;;9002226.02101,"975,00781-1766-10 ",.02)
 ;;00781-1766-10
 ;;9002226.02101,"975,00781-1766-13 ",.01)
 ;;00781-1766-13
 ;;9002226.02101,"975,00781-1766-13 ",.02)
 ;;00781-1766-13
 ;;9002226.02101,"975,00781-1807-01 ",.01)
 ;;00781-1807-01
 ;;9002226.02101,"975,00781-1807-01 ",.02)
 ;;00781-1807-01
 ;;9002226.02101,"975,00781-1807-05 ",.01)
 ;;00781-1807-05
 ;;9002226.02101,"975,00781-1807-05 ",.02)
 ;;00781-1807-05
 ;;9002226.02101,"975,00781-1807-10 ",.01)
 ;;00781-1807-10
 ;;9002226.02101,"975,00781-1807-10 ",.02)
 ;;00781-1807-10
 ;;9002226.02101,"975,00781-1807-13 ",.01)
 ;;00781-1807-13
 ;;9002226.02101,"975,00781-1807-13 ",.02)
 ;;00781-1807-13
 ;;9002226.02101,"975,00781-1808-01 ",.01)
 ;;00781-1808-01
 ;;9002226.02101,"975,00781-1808-01 ",.02)
 ;;00781-1808-01