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

BGP06B20.m

Go to the documentation of this file.
BGP06B20 ;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,00839-7896-06 ",.01)
 ;;00839-7896-06
 ;;9002226.02101,"975,00839-7896-06 ",.02)
 ;;00839-7896-06
 ;;9002226.02101,"975,00839-7896-16 ",.01)
 ;;00839-7896-16
 ;;9002226.02101,"975,00839-7896-16 ",.02)
 ;;00839-7896-16
 ;;9002226.02101,"975,00904-0200-60 ",.01)
 ;;00904-0200-60
 ;;9002226.02101,"975,00904-0200-60 ",.02)
 ;;00904-0200-60
 ;;9002226.02101,"975,00904-0200-61 ",.01)
 ;;00904-0200-61
 ;;9002226.02101,"975,00904-0200-61 ",.02)
 ;;00904-0200-61
 ;;9002226.02101,"975,00904-0200-80 ",.01)
 ;;00904-0200-80
 ;;9002226.02101,"975,00904-0200-80 ",.02)
 ;;00904-0200-80
 ;;9002226.02101,"975,00904-0201-60 ",.01)
 ;;00904-0201-60
 ;;9002226.02101,"975,00904-0201-60 ",.02)
 ;;00904-0201-60
 ;;9002226.02101,"975,00904-0201-61 ",.01)
 ;;00904-0201-61
 ;;9002226.02101,"975,00904-0201-61 ",.02)
 ;;00904-0201-61
 ;;9002226.02101,"975,00904-0201-80 ",.01)
 ;;00904-0201-80
 ;;9002226.02101,"975,00904-0201-80 ",.02)
 ;;00904-0201-80
 ;;9002226.02101,"975,00904-0202-46 ",.01)
 ;;00904-0202-46
 ;;9002226.02101,"975,00904-0202-46 ",.02)
 ;;00904-0202-46
 ;;9002226.02101,"975,00904-0202-60 ",.01)
 ;;00904-0202-60
 ;;9002226.02101,"975,00904-0202-60 ",.02)
 ;;00904-0202-60
 ;;9002226.02101,"975,00904-0202-61 ",.01)
 ;;00904-0202-61
 ;;9002226.02101,"975,00904-0202-61 ",.02)
 ;;00904-0202-61
 ;;9002226.02101,"975,00904-0202-80 ",.01)
 ;;00904-0202-80
 ;;9002226.02101,"975,00904-0202-80 ",.02)
 ;;00904-0202-80
 ;;9002226.02101,"975,00904-0203-60 ",.01)
 ;;00904-0203-60
 ;;9002226.02101,"975,00904-0203-60 ",.02)
 ;;00904-0203-60
 ;;9002226.02101,"975,00904-0203-61 ",.01)
 ;;00904-0203-61
 ;;9002226.02101,"975,00904-0203-61 ",.02)
 ;;00904-0203-61
 ;;9002226.02101,"975,00904-0204-60 ",.01)
 ;;00904-0204-60
 ;;9002226.02101,"975,00904-0204-60 ",.02)
 ;;00904-0204-60
 ;;9002226.02101,"975,00904-0204-61 ",.01)
 ;;00904-0204-61
 ;;9002226.02101,"975,00904-0204-61 ",.02)
 ;;00904-0204-61
 ;;9002226.02101,"975,00904-0205-60 ",.01)
 ;;00904-0205-60
 ;;9002226.02101,"975,00904-0205-60 ",.02)
 ;;00904-0205-60
 ;;9002226.02101,"975,00904-0925-70 ",.01)
 ;;00904-0925-70
 ;;9002226.02101,"975,00904-0925-70 ",.02)
 ;;00904-0925-70
 ;;9002226.02101,"975,00904-0925-80 ",.01)
 ;;00904-0925-80
 ;;9002226.02101,"975,00904-0925-80 ",.02)
 ;;00904-0925-80
 ;;9002226.02101,"975,00904-0927-70 ",.01)
 ;;00904-0927-70
 ;;9002226.02101,"975,00904-0927-70 ",.02)
 ;;00904-0927-70
 ;;9002226.02101,"975,00904-0927-80 ",.01)
 ;;00904-0927-80
 ;;9002226.02101,"975,00904-0927-80 ",.02)
 ;;00904-0927-80
 ;;9002226.02101,"975,00904-0929-70 ",.01)
 ;;00904-0929-70
 ;;9002226.02101,"975,00904-0929-70 ",.02)
 ;;00904-0929-70
 ;;9002226.02101,"975,00904-0929-80 ",.01)
 ;;00904-0929-80
 ;;9002226.02101,"975,00904-0929-80 ",.02)
 ;;00904-0929-80
 ;;9002226.02101,"975,00904-1260-60 ",.01)
 ;;00904-1260-60
 ;;9002226.02101,"975,00904-1260-60 ",.02)
 ;;00904-1260-60
 ;;9002226.02101,"975,00904-1260-61 ",.01)
 ;;00904-1260-61
 ;;9002226.02101,"975,00904-1260-61 ",.02)
 ;;00904-1260-61
 ;;9002226.02101,"975,00904-1260-80 ",.01)
 ;;00904-1260-80
 ;;9002226.02101,"975,00904-1260-80 ",.02)
 ;;00904-1260-80
 ;;9002226.02101,"975,00904-1261-60 ",.01)
 ;;00904-1261-60
 ;;9002226.02101,"975,00904-1261-60 ",.02)
 ;;00904-1261-60
 ;;9002226.02101,"975,00904-1261-61 ",.01)
 ;;00904-1261-61
 ;;9002226.02101,"975,00904-1261-61 ",.02)
 ;;00904-1261-61
 ;;9002226.02101,"975,00904-1261-80 ",.01)
 ;;00904-1261-80
 ;;9002226.02101,"975,00904-1261-80 ",.02)
 ;;00904-1261-80
 ;;9002226.02101,"975,00904-1262-60 ",.01)
 ;;00904-1262-60
 ;;9002226.02101,"975,00904-1262-60 ",.02)
 ;;00904-1262-60
 ;;9002226.02101,"975,00904-1262-61 ",.01)
 ;;00904-1262-61
 ;;9002226.02101,"975,00904-1262-61 ",.02)
 ;;00904-1262-61
 ;;9002226.02101,"975,00904-1262-80 ",.01)
 ;;00904-1262-80
 ;;9002226.02101,"975,00904-1262-80 ",.02)
 ;;00904-1262-80
 ;;9002226.02101,"975,00904-1263-60 ",.01)
 ;;00904-1263-60
 ;;9002226.02101,"975,00904-1263-60 ",.02)
 ;;00904-1263-60
 ;;9002226.02101,"975,00904-1263-61 ",.01)
 ;;00904-1263-61
 ;;9002226.02101,"975,00904-1263-61 ",.02)
 ;;00904-1263-61
 ;;9002226.02101,"975,00904-1264-60 ",.01)
 ;;00904-1264-60
 ;;9002226.02101,"975,00904-1264-60 ",.02)
 ;;00904-1264-60
 ;;9002226.02101,"975,00904-1264-61 ",.01)
 ;;00904-1264-61
 ;;9002226.02101,"975,00904-1264-61 ",.02)
 ;;00904-1264-61
 ;;9002226.02101,"975,00904-1265-60 ",.01)
 ;;00904-1265-60
 ;;9002226.02101,"975,00904-1265-60 ",.02)
 ;;00904-1265-60
 ;;9002226.02101,"975,00904-1570-40 ",.01)
 ;;00904-1570-40
 ;;9002226.02101,"975,00904-1570-40 ",.02)
 ;;00904-1570-40
 ;;9002226.02101,"975,00904-1570-60 ",.01)
 ;;00904-1570-60
 ;;9002226.02101,"975,00904-1570-60 ",.02)
 ;;00904-1570-60
 ;;9002226.02101,"975,00904-1570-80 ",.01)
 ;;00904-1570-80
 ;;9002226.02101,"975,00904-1570-80 ",.02)
 ;;00904-1570-80
 ;;9002226.02101,"975,00904-1571-40 ",.01)
 ;;00904-1571-40
 ;;9002226.02101,"975,00904-1571-40 ",.02)
 ;;00904-1571-40
 ;;9002226.02101,"975,00904-1571-60 ",.01)
 ;;00904-1571-60
 ;;9002226.02101,"975,00904-1571-60 ",.02)
 ;;00904-1571-60
 ;;9002226.02101,"975,00904-1571-80 ",.01)
 ;;00904-1571-80
 ;;9002226.02101,"975,00904-1571-80 ",.02)
 ;;00904-1571-80
 ;;9002226.02101,"975,00904-1572-60 ",.01)
 ;;00904-1572-60
 ;;9002226.02101,"975,00904-1572-60 ",.02)
 ;;00904-1572-60
 ;;9002226.02101,"975,00904-1573-60 ",.01)
 ;;00904-1573-60
 ;;9002226.02101,"975,00904-1573-60 ",.02)
 ;;00904-1573-60
 ;;9002226.02101,"975,00904-1582-60 ",.01)
 ;;00904-1582-60
 ;;9002226.02101,"975,00904-1582-60 ",.02)
 ;;00904-1582-60
 ;;9002226.02101,"975,00904-1582-61 ",.01)
 ;;00904-1582-61
 ;;9002226.02101,"975,00904-1582-61 ",.02)
 ;;00904-1582-61
 ;;9002226.02101,"975,00904-1582-80 ",.01)
 ;;00904-1582-80
 ;;9002226.02101,"975,00904-1582-80 ",.02)
 ;;00904-1582-80
 ;;9002226.02101,"975,00904-1583-60 ",.01)
 ;;00904-1583-60
 ;;9002226.02101,"975,00904-1583-60 ",.02)
 ;;00904-1583-60
 ;;9002226.02101,"975,00904-1700-40 ",.01)
 ;;00904-1700-40
 ;;9002226.02101,"975,00904-1700-40 ",.02)
 ;;00904-1700-40
 ;;9002226.02101,"975,00904-1700-60 ",.01)
 ;;00904-1700-60
 ;;9002226.02101,"975,00904-1700-60 ",.02)
 ;;00904-1700-60
 ;;9002226.02101,"975,00904-1701-40 ",.01)
 ;;00904-1701-40
 ;;9002226.02101,"975,00904-1701-40 ",.02)
 ;;00904-1701-40
 ;;9002226.02101,"975,00904-1820-40 ",.01)
 ;;00904-1820-40
 ;;9002226.02101,"975,00904-1820-40 ",.02)
 ;;00904-1820-40
 ;;9002226.02101,"975,00904-1820-60 ",.01)
 ;;00904-1820-60
 ;;9002226.02101,"975,00904-1820-60 ",.02)
 ;;00904-1820-60
 ;;9002226.02101,"975,00904-1820-61 ",.01)
 ;;00904-1820-61
 ;;9002226.02101,"975,00904-1820-61 ",.02)
 ;;00904-1820-61
 ;;9002226.02101,"975,00904-1825-40 ",.01)
 ;;00904-1825-40
 ;;9002226.02101,"975,00904-1825-40 ",.02)
 ;;00904-1825-40
 ;;9002226.02101,"975,00904-1825-60 ",.01)
 ;;00904-1825-60
 ;;9002226.02101,"975,00904-1825-60 ",.02)
 ;;00904-1825-60
 ;;9002226.02101,"975,00904-1825-61 ",.01)
 ;;00904-1825-61
 ;;9002226.02101,"975,00904-1825-61 ",.02)
 ;;00904-1825-61
 ;;9002226.02101,"975,00904-1840-40 ",.01)
 ;;00904-1840-40
 ;;9002226.02101,"975,00904-1840-40 ",.02)
 ;;00904-1840-40
 ;;9002226.02101,"975,00904-1840-60 ",.01)
 ;;00904-1840-60
 ;;9002226.02101,"975,00904-1840-60 ",.02)
 ;;00904-1840-60
 ;;9002226.02101,"975,00904-1845-40 ",.01)
 ;;00904-1845-40
 ;;9002226.02101,"975,00904-1845-40 ",.02)
 ;;00904-1845-40
 ;;9002226.02101,"975,00904-1845-60 ",.01)
 ;;00904-1845-60
 ;;9002226.02101,"975,00904-1845-60 ",.02)
 ;;00904-1845-60
 ;;9002226.02101,"975,00904-1845-61 ",.01)
 ;;00904-1845-61
 ;;9002226.02101,"975,00904-1845-61 ",.02)
 ;;00904-1845-61
 ;;9002226.02101,"975,00904-1850-60 ",.01)
 ;;00904-1850-60
 ;;9002226.02101,"975,00904-1850-60 ",.02)
 ;;00904-1850-60
 ;;9002226.02101,"975,00904-1850-61 ",.01)
 ;;00904-1850-61
 ;;9002226.02101,"975,00904-1850-61 ",.02)
 ;;00904-1850-61
 ;;9002226.02101,"975,00904-3323-60 ",.01)
 ;;00904-3323-60
 ;;9002226.02101,"975,00904-3323-60 ",.02)
 ;;00904-3323-60
 ;;9002226.02101,"975,00904-3323-61 ",.01)
 ;;00904-3323-61
 ;;9002226.02101,"975,00904-3323-61 ",.02)
 ;;00904-3323-61
 ;;9002226.02101,"975,00904-3324-60 ",.01)
 ;;00904-3324-60
 ;;9002226.02101,"975,00904-3324-60 ",.02)
 ;;00904-3324-60
 ;;9002226.02101,"975,00904-3392-70 ",.01)
 ;;00904-3392-70
 ;;9002226.02101,"975,00904-3392-70 ",.02)
 ;;00904-3392-70
 ;;9002226.02101,"975,00904-3990-40 ",.01)
 ;;00904-3990-40
 ;;9002226.02101,"975,00904-3990-40 ",.02)
 ;;00904-3990-40
 ;;9002226.02101,"975,00904-3990-60 ",.01)
 ;;00904-3990-60
 ;;9002226.02101,"975,00904-3990-60 ",.02)
 ;;00904-3990-60
 ;;9002226.02101,"975,00904-3990-61 ",.01)
 ;;00904-3990-61
 ;;9002226.02101,"975,00904-3990-61 ",.02)
 ;;00904-3990-61
 ;;9002226.02101,"975,00904-3990-80 ",.01)
 ;;00904-3990-80
 ;;9002226.02101,"975,00904-3990-80 ",.02)
 ;;00904-3990-80
 ;;9002226.02101,"975,00904-3991-40 ",.01)
 ;;00904-3991-40
 ;;9002226.02101,"975,00904-3991-40 ",.02)
 ;;00904-3991-40
 ;;9002226.02101,"975,00904-3991-60 ",.01)
 ;;00904-3991-60
 ;;9002226.02101,"975,00904-3991-60 ",.02)
 ;;00904-3991-60
 ;;9002226.02101,"975,00904-3991-61 ",.01)
 ;;00904-3991-61
 ;;9002226.02101,"975,00904-3991-61 ",.02)
 ;;00904-3991-61
 ;;9002226.02101,"975,00904-3992-60 ",.01)
 ;;00904-3992-60
 ;;9002226.02101,"975,00904-3992-60 ",.02)
 ;;00904-3992-60
 ;;9002226.02101,"975,00904-3992-70 ",.01)
 ;;00904-3992-70
 ;;9002226.02101,"975,00904-3992-70 ",.02)
 ;;00904-3992-70
 ;;9002226.02101,"975,00904-3994-60 ",.01)
 ;;00904-3994-60
 ;;9002226.02101,"975,00904-3994-60 ",.02)
 ;;00904-3994-60
 ;;9002226.02101,"975,00904-3994-61 ",.01)
 ;;00904-3994-61
 ;;9002226.02101,"975,00904-3994-61 ",.02)
 ;;00904-3994-61
 ;;9002226.02101,"975,00904-3995-60 ",.01)
 ;;00904-3995-60
 ;;9002226.02101,"975,00904-3995-60 ",.02)
 ;;00904-3995-60
 ;;9002226.02101,"975,00904-3995-61 ",.01)
 ;;00904-3995-61
 ;;9002226.02101,"975,00904-3995-61 ",.02)
 ;;00904-3995-61
 ;;9002226.02101,"975,00904-3996-60 ",.01)
 ;;00904-3996-60
 ;;9002226.02101,"975,00904-3996-60 ",.02)
 ;;00904-3996-60
 ;;9002226.02101,"975,00904-3997-46 ",.01)
 ;;00904-3997-46
 ;;9002226.02101,"975,00904-3997-46 ",.02)
 ;;00904-3997-46
 ;;9002226.02101,"975,00904-5219-40 ",.01)
 ;;00904-5219-40
 ;;9002226.02101,"975,00904-5219-40 ",.02)
 ;;00904-5219-40
 ;;9002226.02101,"975,00904-5219-60 ",.01)
 ;;00904-5219-60
 ;;9002226.02101,"975,00904-5219-60 ",.02)
 ;;00904-5219-60
 ;;9002226.02101,"975,00904-5219-80 ",.01)
 ;;00904-5219-80
 ;;9002226.02101,"975,00904-5219-80 ",.02)
 ;;00904-5219-80
 ;;9002226.02101,"975,00904-5220-40 ",.01)
 ;;00904-5220-40
 ;;9002226.02101,"975,00904-5220-40 ",.02)
 ;;00904-5220-40
 ;;9002226.02101,"975,00904-5220-60 ",.01)
 ;;00904-5220-60
 ;;9002226.02101,"975,00904-5220-60 ",.02)
 ;;00904-5220-60
 ;;9002226.02101,"975,00904-5676-61 ",.01)
 ;;00904-5676-61
 ;;9002226.02101,"975,00904-5676-61 ",.02)
 ;;00904-5676-61
 ;;9002226.02101,"975,00904-5677-61 ",.01)
 ;;00904-5677-61
 ;;9002226.02101,"975,00904-5677-61 ",.02)
 ;;00904-5677-61
 ;;9002226.02101,"975,00904-5678-61 ",.01)
 ;;00904-5678-61
 ;;9002226.02101,"975,00904-5678-61 ",.02)
 ;;00904-5678-61
 ;;9002226.02101,"975,00904-5679-61 ",.01)
 ;;00904-5679-61
 ;;9002226.02101,"975,00904-5679-61 ",.02)
 ;;00904-5679-61
 ;;9002226.02101,"975,00904-7636-61 ",.01)
 ;;00904-7636-61
 ;;9002226.02101,"975,00904-7636-61 ",.02)
 ;;00904-7636-61
 ;;9002226.02101,"975,00904-7637-61 ",.01)
 ;;00904-7637-61
 ;;9002226.02101,"975,00904-7637-61 ",.02)
 ;;00904-7637-61
 ;;9002226.02101,"975,00904-7638-61 ",.01)
 ;;00904-7638-61
 ;;9002226.02101,"975,00904-7638-61 ",.02)
 ;;00904-7638-61
 ;;9002226.02101,"975,00904-7742-60 ",.01)
 ;;00904-7742-60
 ;;9002226.02101,"975,00904-7742-60 ",.02)
 ;;00904-7742-60
 ;;9002226.02101,"975,00904-7787-60 ",.01)
 ;;00904-7787-60
 ;;9002226.02101,"975,00904-7787-60 ",.02)
 ;;00904-7787-60
 ;;9002226.02101,"975,00904-7788-60 ",.01)
 ;;00904-7788-60
 ;;9002226.02101,"975,00904-7788-60 ",.02)
 ;;00904-7788-60
 ;;9002226.02101,"975,00904-7790-60 ",.01)
 ;;00904-7790-60
 ;;9002226.02101,"975,00904-7790-60 ",.02)
 ;;00904-7790-60
 ;;9002226.02101,"975,00904-7795-60 ",.01)
 ;;00904-7795-60
 ;;9002226.02101,"975,00904-7795-60 ",.02)
 ;;00904-7795-60
 ;;9002226.02101,"975,00904-7798-60 ",.01)
 ;;00904-7798-60
 ;;9002226.02101,"975,00904-7798-60 ",.02)
 ;;00904-7798-60
 ;;9002226.02101,"975,00904-7939-60 ",.01)
 ;;00904-7939-60
 ;;9002226.02101,"975,00904-7939-60 ",.02)
 ;;00904-7939-60
 ;;9002226.02101,"975,00904-7940-60 ",.01)
 ;;00904-7940-60
 ;;9002226.02101,"975,00904-7940-60 ",.02)
 ;;00904-7940-60
 ;;9002226.02101,"975,00904-7941-60 ",.01)
 ;;00904-7941-60
 ;;9002226.02101,"975,00904-7941-60 ",.02)
 ;;00904-7941-60
 ;;9002226.02101,"975,00904-7942-60 ",.01)
 ;;00904-7942-60
 ;;9002226.02101,"975,00904-7942-60 ",.02)
 ;;00904-7942-60
 ;;9002226.02101,"975,10768-7060-01 ",.01)
 ;;10768-7060-01
 ;;9002226.02101,"975,10768-7060-01 ",.02)
 ;;10768-7060-01
 ;;9002226.02101,"975,10768-7060-03 ",.01)
 ;;10768-7060-03
 ;;9002226.02101,"975,10768-7060-03 ",.02)
 ;;10768-7060-03
 ;;9002226.02101,"975,10768-7191-01 ",.01)
 ;;10768-7191-01
 ;;9002226.02101,"975,10768-7191-01 ",.02)
 ;;10768-7191-01
 ;;9002226.02101,"975,10768-7191-03 ",.01)
 ;;10768-7191-03
 ;;9002226.02101,"975,10768-7191-03 ",.02)
 ;;10768-7191-03
 ;;9002226.02101,"975,10768-7616-01 ",.01)
 ;;10768-7616-01
 ;;9002226.02101,"975,10768-7616-01 ",.02)
 ;;10768-7616-01