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

BGP06D11.m

Go to the documentation of this file.
BGP06D11 ;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,"978,00904-1508-16 ",.01)
 ;;00904-1508-16
 ;;9002226.02101,"978,00904-1508-16 ",.02)
 ;;00904-1508-16
 ;;9002226.02101,"978,00904-1508-20 ",.01)
 ;;00904-1508-20
 ;;9002226.02101,"978,00904-1508-20 ",.02)
 ;;00904-1508-20
 ;;9002226.02101,"978,00904-1508-28 ",.01)
 ;;00904-1508-28
 ;;9002226.02101,"978,00904-1508-28 ",.02)
 ;;00904-1508-28
 ;;9002226.02101,"978,00904-1516-00 ",.01)
 ;;00904-1516-00
 ;;9002226.02101,"978,00904-1516-00 ",.02)
 ;;00904-1516-00
 ;;9002226.02101,"978,00904-1516-16 ",.01)
 ;;00904-1516-16
 ;;9002226.02101,"978,00904-1516-16 ",.02)
 ;;00904-1516-16
 ;;9002226.02101,"978,00904-1516-28 ",.01)
 ;;00904-1516-28
 ;;9002226.02101,"978,00904-1516-28 ",.02)
 ;;00904-1516-28
 ;;9002226.02101,"978,00904-2035-24 ",.01)
 ;;00904-2035-24
 ;;9002226.02101,"978,00904-2035-24 ",.02)
 ;;00904-2035-24
 ;;9002226.02101,"978,00904-2035-59 ",.01)
 ;;00904-2035-59
 ;;9002226.02101,"978,00904-2035-59 ",.02)
 ;;00904-2035-59
 ;;9002226.02101,"978,00904-2056-61 ",.01)
 ;;00904-2056-61
 ;;9002226.02101,"978,00904-2056-61 ",.02)
 ;;00904-2056-61
 ;;9002226.02101,"978,00904-2329-60 ",.01)
 ;;00904-2329-60
 ;;9002226.02101,"978,00904-2329-60 ",.02)
 ;;00904-2329-60
 ;;9002226.02101,"978,00904-2329-80 ",.01)
 ;;00904-2329-80
 ;;9002226.02101,"978,00904-2329-80 ",.02)
 ;;00904-2329-80
 ;;9002226.02101,"978,00904-2330-60 ",.01)
 ;;00904-2330-60
 ;;9002226.02101,"978,00904-2330-60 ",.02)
 ;;00904-2330-60
 ;;9002226.02101,"978,00904-5174-16 ",.01)
 ;;00904-5174-16
 ;;9002226.02101,"978,00904-5174-16 ",.02)
 ;;00904-5174-16
 ;;9002226.02101,"978,00904-5306-60 ",.01)
 ;;00904-5306-60
 ;;9002226.02101,"978,00904-5306-60 ",.02)
 ;;00904-5306-60
 ;;9002226.02101,"978,00904-5306-61 ",.01)
 ;;00904-5306-61
 ;;9002226.02101,"978,00904-5306-61 ",.02)
 ;;00904-5306-61
 ;;9002226.02101,"978,00904-5306-80 ",.01)
 ;;00904-5306-80
 ;;9002226.02101,"978,00904-5306-80 ",.02)
 ;;00904-5306-80
 ;;9002226.02101,"978,00904-5307-60 ",.01)
 ;;00904-5307-60
 ;;9002226.02101,"978,00904-5307-60 ",.02)
 ;;00904-5307-60
 ;;9002226.02101,"978,00904-5307-80 ",.01)
 ;;00904-5307-80
 ;;9002226.02101,"978,00904-5307-80 ",.02)
 ;;00904-5307-80
 ;;9002226.02101,"978,00904-5551-24 ",.01)
 ;;00904-5551-24
 ;;9002226.02101,"978,00904-5551-24 ",.02)
 ;;00904-5551-24
 ;;9002226.02101,"978,00904-5551-59 ",.01)
 ;;00904-5551-59
 ;;9002226.02101,"978,00904-5551-59 ",.02)
 ;;00904-5551-59
 ;;9002226.02101,"978,00904-5840-61 ",.01)
 ;;00904-5840-61
 ;;9002226.02101,"978,00904-5840-61 ",.02)
 ;;00904-5840-61
 ;;9002226.02101,"978,00904-7616-51 ",.01)
 ;;00904-7616-51
 ;;9002226.02101,"978,00904-7616-51 ",.02)
 ;;00904-7616-51
 ;;9002226.02101,"978,00904-7651-51 ",.01)
 ;;00904-7651-51
 ;;9002226.02101,"978,00904-7651-51 ",.02)
 ;;00904-7651-51
 ;;9002226.02101,"978,00927-0221-24 ",.01)
 ;;00927-0221-24
 ;;9002226.02101,"978,00927-0221-24 ",.02)
 ;;00927-0221-24
 ;;9002226.02101,"978,00927-0616-34 ",.01)
 ;;00927-0616-34
 ;;9002226.02101,"978,00927-0616-34 ",.02)
 ;;00927-0616-34
 ;;9002226.02101,"978,01981-0003-23 ",.01)
 ;;01981-0003-23
 ;;9002226.02101,"978,01981-0003-23 ",.02)
 ;;01981-0003-23
 ;;9002226.02101,"978,01981-0003-25 ",.01)
 ;;01981-0003-25
 ;;9002226.02101,"978,01981-0003-25 ",.02)
 ;;01981-0003-25
 ;;9002226.02101,"978,01981-0003-26 ",.01)
 ;;01981-0003-26
 ;;9002226.02101,"978,01981-0003-26 ",.02)
 ;;01981-0003-26
 ;;9002226.02101,"978,01981-0076-34 ",.01)
 ;;01981-0076-34
 ;;9002226.02101,"978,01981-0076-34 ",.02)
 ;;01981-0076-34
 ;;9002226.02101,"978,01981-0076-43 ",.01)
 ;;01981-0076-43
 ;;9002226.02101,"978,01981-0076-43 ",.02)
 ;;01981-0076-43
 ;;9002226.02101,"978,10135-0119-99 ",.01)
 ;;10135-0119-99
 ;;9002226.02101,"978,10135-0119-99 ",.02)
 ;;10135-0119-99
 ;;9002226.02101,"978,10135-0149-01 ",.01)
 ;;10135-0149-01
 ;;9002226.02101,"978,10135-0149-01 ",.02)
 ;;10135-0149-01
 ;;9002226.02101,"978,10135-0149-10 ",.01)
 ;;10135-0149-10
 ;;9002226.02101,"978,10135-0149-10 ",.02)
 ;;10135-0149-10
 ;;9002226.02101,"978,10135-0149-24 ",.01)
 ;;10135-0149-24
 ;;9002226.02101,"978,10135-0149-24 ",.02)
 ;;10135-0149-24
 ;;9002226.02101,"978,10135-0149-61 ",.01)
 ;;10135-0149-61
 ;;9002226.02101,"978,10135-0149-61 ",.02)
 ;;10135-0149-61
 ;;9002226.02101,"978,10135-0151-01 ",.01)
 ;;10135-0151-01
 ;;9002226.02101,"978,10135-0151-01 ",.02)
 ;;10135-0151-01
 ;;9002226.02101,"978,10135-0151-10 ",.01)
 ;;10135-0151-10
 ;;9002226.02101,"978,10135-0151-10 ",.02)
 ;;10135-0151-10
 ;;9002226.02101,"978,10135-0151-13 ",.01)
 ;;10135-0151-13
 ;;9002226.02101,"978,10135-0151-13 ",.02)
 ;;10135-0151-13
 ;;9002226.02101,"978,10135-0151-24 ",.01)
 ;;10135-0151-24
 ;;9002226.02101,"978,10135-0151-24 ",.02)
 ;;10135-0151-24
 ;;9002226.02101,"978,10135-0151-50 ",.01)
 ;;10135-0151-50
 ;;9002226.02101,"978,10135-0151-50 ",.02)
 ;;10135-0151-50
 ;;9002226.02101,"978,10135-0151-52 ",.01)
 ;;10135-0151-52
 ;;9002226.02101,"978,10135-0151-52 ",.02)
 ;;10135-0151-52
 ;;9002226.02101,"978,10135-0151-57 ",.01)
 ;;10135-0151-57
 ;;9002226.02101,"978,10135-0151-57 ",.02)
 ;;10135-0151-57
 ;;9002226.02101,"978,10135-0156-01 ",.01)
 ;;10135-0156-01
 ;;9002226.02101,"978,10135-0156-01 ",.02)
 ;;10135-0156-01
 ;;9002226.02101,"978,10135-0156-10 ",.01)
 ;;10135-0156-10
 ;;9002226.02101,"978,10135-0156-10 ",.02)
 ;;10135-0156-10
 ;;9002226.02101,"978,10135-0156-13 ",.01)
 ;;10135-0156-13
 ;;9002226.02101,"978,10135-0156-13 ",.02)
 ;;10135-0156-13
 ;;9002226.02101,"978,10135-0166-13 ",.01)
 ;;10135-0166-13
 ;;9002226.02101,"978,10135-0166-13 ",.02)
 ;;10135-0166-13
 ;;9002226.02101,"978,10135-0352-01 ",.01)
 ;;10135-0352-01
 ;;9002226.02101,"978,10135-0352-01 ",.02)
 ;;10135-0352-01
 ;;9002226.02101,"978,10135-0352-13 ",.01)
 ;;10135-0352-13
 ;;9002226.02101,"978,10135-0352-13 ",.02)
 ;;10135-0352-13
 ;;9002226.02101,"978,10135-0352-50 ",.01)
 ;;10135-0352-50
 ;;9002226.02101,"978,10135-0352-50 ",.02)
 ;;10135-0352-50
 ;;9002226.02101,"978,10135-0352-55 ",.01)
 ;;10135-0352-55
 ;;9002226.02101,"978,10135-0352-55 ",.02)
 ;;10135-0352-55
 ;;9002226.02101,"978,10135-0352-57 ",.01)
 ;;10135-0352-57
 ;;9002226.02101,"978,10135-0352-57 ",.02)
 ;;10135-0352-57
 ;;9002226.02101,"978,10135-0410-55 ",.01)
 ;;10135-0410-55
 ;;9002226.02101,"978,10135-0410-55 ",.02)
 ;;10135-0410-55
 ;;9002226.02101,"978,10135-0418-29 ",.01)
 ;;10135-0418-29
 ;;9002226.02101,"978,10135-0418-29 ",.02)
 ;;10135-0418-29
 ;;9002226.02101,"978,10135-0495-01 ",.01)
 ;;10135-0495-01
 ;;9002226.02101,"978,10135-0495-01 ",.02)
 ;;10135-0495-01
 ;;9002226.02101,"978,10135-0495-10 ",.01)
 ;;10135-0495-10
 ;;9002226.02101,"978,10135-0495-10 ",.02)
 ;;10135-0495-10
 ;;9002226.02101,"978,10135-0496-01 ",.01)
 ;;10135-0496-01
 ;;9002226.02101,"978,10135-0496-01 ",.02)
 ;;10135-0496-01
 ;;9002226.02101,"978,10135-0514-01 ",.01)
 ;;10135-0514-01
 ;;9002226.02101,"978,10135-0514-01 ",.02)
 ;;10135-0514-01
 ;;9002226.02101,"978,10158-0043-02 ",.01)
 ;;10158-0043-02
 ;;9002226.02101,"978,10158-0043-02 ",.02)
 ;;10158-0043-02
 ;;9002226.02101,"978,10158-0043-04 ",.01)
 ;;10158-0043-04
 ;;9002226.02101,"978,10158-0043-04 ",.02)
 ;;10158-0043-04
 ;;9002226.02101,"978,10158-0043-06 ",.01)
 ;;10158-0043-06
 ;;9002226.02101,"978,10158-0043-06 ",.02)
 ;;10158-0043-06
 ;;9002226.02101,"978,10267-0835-01 ",.01)
 ;;10267-0835-01
 ;;9002226.02101,"978,10267-0835-01 ",.02)
 ;;10267-0835-01
 ;;9002226.02101,"978,10267-0835-04 ",.01)
 ;;10267-0835-04
 ;;9002226.02101,"978,10267-0835-04 ",.02)
 ;;10267-0835-04
 ;;9002226.02101,"978,10267-0836-01 ",.01)
 ;;10267-0836-01
 ;;9002226.02101,"978,10267-0836-01 ",.02)
 ;;10267-0836-01
 ;;9002226.02101,"978,10267-0836-04 ",.01)
 ;;10267-0836-04
 ;;9002226.02101,"978,10267-0836-04 ",.02)
 ;;10267-0836-04
 ;;9002226.02101,"978,10267-1311-01 ",.01)
 ;;10267-1311-01
 ;;9002226.02101,"978,10267-1311-01 ",.02)
 ;;10267-1311-01
 ;;9002226.02101,"978,10544-0328-30 ",.01)
 ;;10544-0328-30
 ;;9002226.02101,"978,10544-0328-30 ",.02)
 ;;10544-0328-30
 ;;9002226.02101,"978,10702-0002-01 ",.01)
 ;;10702-0002-01
 ;;9002226.02101,"978,10702-0002-01 ",.02)
 ;;10702-0002-01
 ;;9002226.02101,"978,10702-0003-01 ",.01)
 ;;10702-0003-01
 ;;9002226.02101,"978,10702-0003-01 ",.02)
 ;;10702-0003-01
 ;;9002226.02101,"978,10702-0003-10 ",.01)
 ;;10702-0003-10
 ;;9002226.02101,"978,10702-0003-10 ",.02)
 ;;10702-0003-10
 ;;9002226.02101,"978,10702-0004-01 ",.01)
 ;;10702-0004-01
 ;;9002226.02101,"978,10702-0004-01 ",.02)
 ;;10702-0004-01
 ;;9002226.02101,"978,10702-0010-01 ",.01)
 ;;10702-0010-01
 ;;9002226.02101,"978,10702-0010-01 ",.02)
 ;;10702-0010-01
 ;;9002226.02101,"978,10702-0010-10 ",.01)
 ;;10702-0010-10
 ;;9002226.02101,"978,10702-0010-10 ",.02)
 ;;10702-0010-10
 ;;9002226.02101,"978,10702-0010-50 ",.01)
 ;;10702-0010-50
 ;;9002226.02101,"978,10702-0010-50 ",.02)
 ;;10702-0010-50
 ;;9002226.02101,"978,10702-0011-01 ",.01)
 ;;10702-0011-01
 ;;9002226.02101,"978,10702-0011-01 ",.02)
 ;;10702-0011-01
 ;;9002226.02101,"978,10702-0011-10 ",.01)
 ;;10702-0011-10
 ;;9002226.02101,"978,10702-0011-10 ",.02)
 ;;10702-0011-10
 ;;9002226.02101,"978,10702-0011-50 ",.01)
 ;;10702-0011-50
 ;;9002226.02101,"978,10702-0011-50 ",.02)
 ;;10702-0011-50
 ;;9002226.02101,"978,10702-0012-01 ",.01)
 ;;10702-0012-01
 ;;9002226.02101,"978,10702-0012-01 ",.02)
 ;;10702-0012-01
 ;;9002226.02101,"978,10702-0012-10 ",.01)
 ;;10702-0012-10
 ;;9002226.02101,"978,10702-0012-10 ",.02)
 ;;10702-0012-10
 ;;9002226.02101,"978,10702-0012-50 ",.01)
 ;;10702-0012-50
 ;;9002226.02101,"978,10702-0012-50 ",.02)
 ;;10702-0012-50
 ;;9002226.02101,"978,10702-0052-16 ",.01)
 ;;10702-0052-16
 ;;9002226.02101,"978,10702-0052-16 ",.02)
 ;;10702-0052-16
 ;;9002226.02101,"978,10892-0112-65 ",.01)
 ;;10892-0112-65
 ;;9002226.02101,"978,10892-0112-65 ",.02)
 ;;10892-0112-65
 ;;9002226.02101,"978,10914-0931-06 ",.01)
 ;;10914-0931-06
 ;;9002226.02101,"978,10914-0931-06 ",.02)
 ;;10914-0931-06
 ;;9002226.02101,"978,10939-0564-01 ",.01)
 ;;10939-0564-01
 ;;9002226.02101,"978,10939-0564-01 ",.02)
 ;;10939-0564-01
 ;;9002226.02101,"978,10956-0601-24 ",.01)
 ;;10956-0601-24
 ;;9002226.02101,"978,10956-0601-24 ",.02)
 ;;10956-0601-24
 ;;9002226.02101,"978,10956-0601-48 ",.01)
 ;;10956-0601-48
 ;;9002226.02101,"978,10956-0601-48 ",.02)
 ;;10956-0601-48
 ;;9002226.02101,"978,10956-0607-24 ",.01)
 ;;10956-0607-24
 ;;9002226.02101,"978,10956-0607-24 ",.02)
 ;;10956-0607-24
 ;;9002226.02101,"978,10956-0607-48 ",.01)
 ;;10956-0607-48
 ;;9002226.02101,"978,10956-0607-48 ",.02)
 ;;10956-0607-48
 ;;9002226.02101,"978,10956-0610-24 ",.01)
 ;;10956-0610-24
 ;;9002226.02101,"978,10956-0610-24 ",.02)
 ;;10956-0610-24
 ;;9002226.02101,"978,10956-0610-48 ",.01)
 ;;10956-0610-48
 ;;9002226.02101,"978,10956-0610-48 ",.02)
 ;;10956-0610-48
 ;;9002226.02101,"978,10956-0623-04 ",.01)
 ;;10956-0623-04
 ;;9002226.02101,"978,10956-0623-04 ",.02)
 ;;10956-0623-04
 ;;9002226.02101,"978,10956-0750-24 ",.01)
 ;;10956-0750-24
 ;;9002226.02101,"978,10956-0750-24 ",.02)
 ;;10956-0750-24
 ;;9002226.02101,"978,10956-0750-48 ",.01)
 ;;10956-0750-48
 ;;9002226.02101,"978,10956-0750-48 ",.02)
 ;;10956-0750-48
 ;;9002226.02101,"978,12280-0068-24 ",.01)
 ;;12280-0068-24
 ;;9002226.02101,"978,12280-0068-24 ",.02)
 ;;12280-0068-24
 ;;9002226.02101,"978,12280-0068-30 ",.01)
 ;;12280-0068-30
 ;;9002226.02101,"978,12280-0068-30 ",.02)
 ;;12280-0068-30
 ;;9002226.02101,"978,12280-0114-04 ",.01)
 ;;12280-0114-04
 ;;9002226.02101,"978,12280-0114-04 ",.02)
 ;;12280-0114-04
 ;;9002226.02101,"978,12280-0185-00 ",.01)
 ;;12280-0185-00
 ;;9002226.02101,"978,12280-0185-00 ",.02)
 ;;12280-0185-00
 ;;9002226.02101,"978,12280-0197-00 ",.01)
 ;;12280-0197-00
 ;;9002226.02101,"978,12280-0197-00 ",.02)
 ;;12280-0197-00
 ;;9002226.02101,"978,12280-0205-04 ",.01)
 ;;12280-0205-04
 ;;9002226.02101,"978,12280-0205-04 ",.02)
 ;;12280-0205-04
 ;;9002226.02101,"978,12547-0170-21 ",.01)
 ;;12547-0170-21
 ;;9002226.02101,"978,12547-0170-21 ",.02)
 ;;12547-0170-21
 ;;9002226.02101,"978,12547-0170-31 ",.01)
 ;;12547-0170-31
 ;;9002226.02101,"978,12547-0170-31 ",.02)
 ;;12547-0170-31
 ;;9002226.02101,"978,12547-0170-33 ",.01)
 ;;12547-0170-33
 ;;9002226.02101,"978,12547-0170-33 ",.02)
 ;;12547-0170-33
 ;;9002226.02101,"978,12547-0170-50 ",.01)
 ;;12547-0170-50
 ;;9002226.02101,"978,12547-0170-50 ",.02)
 ;;12547-0170-50
 ;;9002226.02101,"978,12547-0170-55 ",.01)
 ;;12547-0170-55
 ;;9002226.02101,"978,12547-0170-55 ",.02)
 ;;12547-0170-55
 ;;9002226.02101,"978,12547-0171-36 ",.01)
 ;;12547-0171-36
 ;;9002226.02101,"978,12547-0171-36 ",.02)
 ;;12547-0171-36
 ;;9002226.02101,"978,12547-0171-37 ",.01)
 ;;12547-0171-37
 ;;9002226.02101,"978,12547-0171-37 ",.02)
 ;;12547-0171-37
 ;;9002226.02101,"978,12547-0172-38 ",.01)
 ;;12547-0172-38
 ;;9002226.02101,"978,12547-0172-38 ",.02)
 ;;12547-0172-38
 ;;9002226.02101,"978,12547-0175-85 ",.01)
 ;;12547-0175-85
 ;;9002226.02101,"978,12547-0175-85 ",.02)
 ;;12547-0175-85
 ;;9002226.02101,"978,12547-0175-86 ",.01)
 ;;12547-0175-86
 ;;9002226.02101,"978,12547-0175-86 ",.02)
 ;;12547-0175-86
 ;;9002226.02101,"978,12547-0175-88 ",.01)
 ;;12547-0175-88
 ;;9002226.02101,"978,12547-0175-88 ",.02)
 ;;12547-0175-88
 ;;9002226.02101,"978,12547-0227-33 ",.01)
 ;;12547-0227-33
 ;;9002226.02101,"978,12547-0227-33 ",.02)
 ;;12547-0227-33
 ;;9002226.02101,"978,12547-0227-34 ",.01)
 ;;12547-0227-34
 ;;9002226.02101,"978,12547-0227-34 ",.02)
 ;;12547-0227-34