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

BGP06A23.m

Go to the documentation of this file.
BGP06A23 ;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,"974,00115-7018-13 ",.01)
 ;;00115-7018-13
 ;;9002226.02101,"974,00115-7018-13 ",.02)
 ;;00115-7018-13
 ;;9002226.02101,"974,00115-7054-01 ",.01)
 ;;00115-7054-01
 ;;9002226.02101,"974,00115-7054-01 ",.02)
 ;;00115-7054-01
 ;;9002226.02101,"974,00143-2112-05 ",.01)
 ;;00143-2112-05
 ;;9002226.02101,"974,00143-2112-05 ",.02)
 ;;00143-2112-05
 ;;9002226.02101,"974,00143-2112-50 ",.01)
 ;;00143-2112-50
 ;;9002226.02101,"974,00143-2112-50 ",.02)
 ;;00143-2112-50
 ;;9002226.02101,"974,00143-3141-50 ",.01)
 ;;00143-3141-50
 ;;9002226.02101,"974,00143-3141-50 ",.02)
 ;;00143-3141-50
 ;;9002226.02101,"974,00143-3142-05 ",.01)
 ;;00143-3142-05
 ;;9002226.02101,"974,00143-3142-05 ",.02)
 ;;00143-3142-05
 ;;9002226.02101,"974,00143-3142-14 ",.01)
 ;;00143-3142-14
 ;;9002226.02101,"974,00143-3142-14 ",.02)
 ;;00143-3142-14
 ;;9002226.02101,"974,00143-3142-25 ",.01)
 ;;00143-3142-25
 ;;9002226.02101,"974,00143-3142-25 ",.02)
 ;;00143-3142-25
 ;;9002226.02101,"974,00143-3142-50 ",.01)
 ;;00143-3142-50
 ;;9002226.02101,"974,00143-3142-50 ",.02)
 ;;00143-3142-50
 ;;9002226.02101,"974,00143-9886-01 ",.01)
 ;;00143-9886-01
 ;;9002226.02101,"974,00143-9886-01 ",.02)
 ;;00143-9886-01
 ;;9002226.02101,"974,00143-9886-50 ",.01)
 ;;00143-9886-50
 ;;9002226.02101,"974,00143-9886-50 ",.02)
 ;;00143-9886-50
 ;;9002226.02101,"974,00143-9886-75 ",.01)
 ;;00143-9886-75
 ;;9002226.02101,"974,00143-9886-75 ",.02)
 ;;00143-9886-75
 ;;9002226.02101,"974,00143-9887-01 ",.01)
 ;;00143-9887-01
 ;;9002226.02101,"974,00143-9887-01 ",.02)
 ;;00143-9887-01
 ;;9002226.02101,"974,00143-9887-50 ",.01)
 ;;00143-9887-50
 ;;9002226.02101,"974,00143-9887-50 ",.02)
 ;;00143-9887-50
 ;;9002226.02101,"974,00143-9887-75 ",.01)
 ;;00143-9887-75
 ;;9002226.02101,"974,00143-9887-75 ",.02)
 ;;00143-9887-75
 ;;9002226.02101,"974,00143-9888-01 ",.01)
 ;;00143-9888-01
 ;;9002226.02101,"974,00143-9888-01 ",.02)
 ;;00143-9888-01
 ;;9002226.02101,"974,00143-9888-15 ",.01)
 ;;00143-9888-15
 ;;9002226.02101,"974,00143-9888-15 ",.02)
 ;;00143-9888-15
 ;;9002226.02101,"974,00143-9888-80 ",.01)
 ;;00143-9888-80
 ;;9002226.02101,"974,00143-9888-80 ",.02)
 ;;00143-9888-80
 ;;9002226.02101,"974,00143-9889-01 ",.01)
 ;;00143-9889-01
 ;;9002226.02101,"974,00143-9889-01 ",.02)
 ;;00143-9889-01
 ;;9002226.02101,"974,00143-9889-15 ",.01)
 ;;00143-9889-15
 ;;9002226.02101,"974,00143-9889-15 ",.02)
 ;;00143-9889-15
 ;;9002226.02101,"974,00143-9889-80 ",.01)
 ;;00143-9889-80
 ;;9002226.02101,"974,00143-9889-80 ",.02)
 ;;00143-9889-80
 ;;9002226.02101,"974,00143-9897-01 ",.01)
 ;;00143-9897-01
 ;;9002226.02101,"974,00143-9897-01 ",.02)
 ;;00143-9897-01
 ;;9002226.02101,"974,00143-9897-05 ",.01)
 ;;00143-9897-05
 ;;9002226.02101,"974,00143-9897-05 ",.02)
 ;;00143-9897-05
 ;;9002226.02101,"974,00143-9898-01 ",.01)
 ;;00143-9898-01
 ;;9002226.02101,"974,00143-9898-01 ",.02)
 ;;00143-9898-01
 ;;9002226.02101,"974,00143-9898-05 ",.01)
 ;;00143-9898-05
 ;;9002226.02101,"974,00143-9898-05 ",.02)
 ;;00143-9898-05
 ;;9002226.02101,"974,00143-9923-90 ",.01)
 ;;00143-9923-90
 ;;9002226.02101,"974,00143-9923-90 ",.02)
 ;;00143-9923-90
 ;;9002226.02101,"974,00143-9924-90 ",.01)
 ;;00143-9924-90
 ;;9002226.02101,"974,00143-9924-90 ",.02)
 ;;00143-9924-90
 ;;9002226.02101,"974,00143-9928-01 ",.01)
 ;;00143-9928-01
 ;;9002226.02101,"974,00143-9928-01 ",.02)
 ;;00143-9928-01
 ;;9002226.02101,"974,00143-9929-50 ",.01)
 ;;00143-9929-50
 ;;9002226.02101,"974,00143-9929-50 ",.02)
 ;;00143-9929-50
 ;;9002226.02101,"974,00143-9951-01 ",.01)
 ;;00143-9951-01
 ;;9002226.02101,"974,00143-9951-01 ",.02)
 ;;00143-9951-01
 ;;9002226.02101,"974,00143-9951-20 ",.01)
 ;;00143-9951-20
 ;;9002226.02101,"974,00143-9951-20 ",.02)
 ;;00143-9951-20
 ;;9002226.02101,"974,00143-9976-03 ",.01)
 ;;00143-9976-03
 ;;9002226.02101,"974,00143-9976-03 ",.02)
 ;;00143-9976-03
 ;;9002226.02101,"974,00143-9976-91 ",.01)
 ;;00143-9976-91
 ;;9002226.02101,"974,00143-9976-91 ",.02)
 ;;00143-9976-91
 ;;9002226.02101,"974,00143-9977-22 ",.01)
 ;;00143-9977-22
 ;;9002226.02101,"974,00143-9977-22 ",.02)
 ;;00143-9977-22
 ;;9002226.02101,"974,00143-9977-90 ",.01)
 ;;00143-9977-90
 ;;9002226.02101,"974,00143-9977-90 ",.02)
 ;;00143-9977-90
 ;;9002226.02101,"974,00143-9979-22 ",.01)
 ;;00143-9979-22
 ;;9002226.02101,"974,00143-9979-22 ",.02)
 ;;00143-9979-22
 ;;9002226.02101,"974,00143-9979-90 ",.01)
 ;;00143-9979-90
 ;;9002226.02101,"974,00143-9979-90 ",.02)
 ;;00143-9979-90
 ;;9002226.02101,"974,00143-9981-01 ",.01)
 ;;00143-9981-01
 ;;9002226.02101,"974,00143-9981-01 ",.02)
 ;;00143-9981-01
 ;;9002226.02101,"974,00143-9981-50 ",.01)
 ;;00143-9981-50
 ;;9002226.02101,"974,00143-9981-50 ",.02)
 ;;00143-9981-50
 ;;9002226.02101,"974,00143-9981-75 ",.01)
 ;;00143-9981-75
 ;;9002226.02101,"974,00143-9981-75 ",.02)
 ;;00143-9981-75
 ;;9002226.02101,"974,00143-9982-01 ",.01)
 ;;00143-9982-01
 ;;9002226.02101,"974,00143-9982-01 ",.02)
 ;;00143-9982-01
 ;;9002226.02101,"974,00143-9982-50 ",.01)
 ;;00143-9982-50
 ;;9002226.02101,"974,00143-9982-50 ",.02)
 ;;00143-9982-50
 ;;9002226.02101,"974,00143-9982-75 ",.01)
 ;;00143-9982-75
 ;;9002226.02101,"974,00143-9982-75 ",.02)
 ;;00143-9982-75
 ;;9002226.02101,"974,00143-9983-03 ",.01)
 ;;00143-9983-03
 ;;9002226.02101,"974,00143-9983-03 ",.02)
 ;;00143-9983-03
 ;;9002226.02101,"974,00143-9983-91 ",.01)
 ;;00143-9983-91
 ;;9002226.02101,"974,00143-9983-91 ",.02)
 ;;00143-9983-91
 ;;9002226.02101,"974,00172-2218-60 ",.01)
 ;;00172-2218-60
 ;;9002226.02101,"974,00172-2218-60 ",.02)
 ;;00172-2218-60
 ;;9002226.02101,"974,00172-2218-80 ",.01)
 ;;00172-2218-80
 ;;9002226.02101,"974,00172-2218-80 ",.02)
 ;;00172-2218-80
 ;;9002226.02101,"974,00172-2407-60 ",.01)
 ;;00172-2407-60
 ;;9002226.02101,"974,00172-2407-60 ",.02)
 ;;00172-2407-60
 ;;9002226.02101,"974,00172-2407-80 ",.01)
 ;;00172-2407-80
 ;;9002226.02101,"974,00172-2407-80 ",.02)
 ;;00172-2407-80
 ;;9002226.02101,"974,00172-2416-60 ",.01)
 ;;00172-2416-60
 ;;9002226.02101,"974,00172-2416-60 ",.02)
 ;;00172-2416-60
 ;;9002226.02101,"974,00172-2416-80 ",.01)
 ;;00172-2416-80
 ;;9002226.02101,"974,00172-2416-80 ",.02)
 ;;00172-2416-80
 ;;9002226.02101,"974,00172-2458-80 ",.01)
 ;;00172-2458-80
 ;;9002226.02101,"974,00172-2458-80 ",.02)
 ;;00172-2458-80
 ;;9002226.02101,"974,00172-2984-48 ",.01)
 ;;00172-2984-48
 ;;9002226.02101,"974,00172-2984-48 ",.02)
 ;;00172-2984-48
 ;;9002226.02101,"974,00172-2984-70 ",.01)
 ;;00172-2984-70
 ;;9002226.02101,"974,00172-2984-70 ",.02)
 ;;00172-2984-70
 ;;9002226.02101,"974,00172-2985-48 ",.01)
 ;;00172-2985-48
 ;;9002226.02101,"974,00172-2985-48 ",.02)
 ;;00172-2985-48
 ;;9002226.02101,"974,00172-2985-70 ",.01)
 ;;00172-2985-70
 ;;9002226.02101,"974,00172-2985-70 ",.02)
 ;;00172-2985-70
 ;;9002226.02101,"974,00172-3626-48 ",.01)
 ;;00172-3626-48
 ;;9002226.02101,"974,00172-3626-48 ",.02)
 ;;00172-3626-48
 ;;9002226.02101,"974,00172-3626-70 ",.01)
 ;;00172-3626-70
 ;;9002226.02101,"974,00172-3626-70 ",.02)
 ;;00172-3626-70
 ;;9002226.02101,"974,00172-4058-43 ",.01)
 ;;00172-4058-43
 ;;9002226.02101,"974,00172-4058-43 ",.02)
 ;;00172-4058-43
 ;;9002226.02101,"974,00172-4058-48 ",.01)
 ;;00172-4058-48
 ;;9002226.02101,"974,00172-4058-48 ",.02)
 ;;00172-4058-48
 ;;9002226.02101,"974,00172-4058-60 ",.01)
 ;;00172-4058-60
 ;;9002226.02101,"974,00172-4058-60 ",.02)
 ;;00172-4058-60
 ;;9002226.02101,"974,00172-4058-70 ",.01)
 ;;00172-4058-70
 ;;9002226.02101,"974,00172-4058-70 ",.02)
 ;;00172-4058-70
 ;;9002226.02101,"974,00172-4059-48 ",.01)
 ;;00172-4059-48
 ;;9002226.02101,"974,00172-4059-48 ",.02)
 ;;00172-4059-48
 ;;9002226.02101,"974,00172-4073-60 ",.01)
 ;;00172-4073-60
 ;;9002226.02101,"974,00172-4073-60 ",.02)
 ;;00172-4073-60
 ;;9002226.02101,"974,00172-4073-70 ",.01)
 ;;00172-4073-70
 ;;9002226.02101,"974,00172-4073-70 ",.02)
 ;;00172-4073-70
 ;;9002226.02101,"974,00172-4074-60 ",.01)
 ;;00172-4074-60
 ;;9002226.02101,"974,00172-4074-60 ",.02)
 ;;00172-4074-60
 ;;9002226.02101,"974,00172-4074-70 ",.01)
 ;;00172-4074-70
 ;;9002226.02101,"974,00172-4074-70 ",.02)
 ;;00172-4074-70
 ;;9002226.02101,"974,00172-4194-60 ",.01)
 ;;00172-4194-60
 ;;9002226.02101,"974,00172-4194-60 ",.02)
 ;;00172-4194-60
 ;;9002226.02101,"974,00172-4610-22 ",.01)
 ;;00172-4610-22
 ;;9002226.02101,"974,00172-4610-22 ",.02)
 ;;00172-4610-22
 ;;9002226.02101,"974,00172-4610-23 ",.01)
 ;;00172-4610-23
 ;;9002226.02101,"974,00172-4610-23 ",.02)
 ;;00172-4610-23
 ;;9002226.02101,"974,00172-4611-22 ",.01)
 ;;00172-4611-22
 ;;9002226.02101,"974,00172-4611-22 ",.02)
 ;;00172-4611-22
 ;;9002226.02101,"974,00172-4611-23 ",.01)
 ;;00172-4611-23
 ;;9002226.02101,"974,00172-4611-23 ",.02)
 ;;00172-4611-23
 ;;9002226.02101,"974,00172-4612-20 ",.01)
 ;;00172-4612-20
 ;;9002226.02101,"974,00172-4612-20 ",.02)
 ;;00172-4612-20
 ;;9002226.02101,"974,00172-4612-21 ",.01)
 ;;00172-4612-21
 ;;9002226.02101,"974,00172-4612-21 ",.02)
 ;;00172-4612-21
 ;;9002226.02101,"974,00172-4613-20 ",.01)
 ;;00172-4613-20
 ;;9002226.02101,"974,00172-4613-20 ",.02)
 ;;00172-4613-20
 ;;9002226.02101,"974,00172-4613-21 ",.01)
 ;;00172-4613-21
 ;;9002226.02101,"974,00172-4613-21 ",.02)
 ;;00172-4613-21
 ;;9002226.02101,"974,00172-4626-60 ",.01)
 ;;00172-4626-60
 ;;9002226.02101,"974,00172-4626-60 ",.02)
 ;;00172-4626-60
 ;;9002226.02101,"974,00172-4626-70 ",.01)
 ;;00172-4626-70
 ;;9002226.02101,"974,00172-4626-70 ",.02)
 ;;00172-4626-70
 ;;9002226.02101,"974,00172-4760-40 ",.01)
 ;;00172-4760-40
 ;;9002226.02101,"974,00172-4760-40 ",.02)
 ;;00172-4760-40
 ;;9002226.02101,"974,00172-4760-60 ",.01)
 ;;00172-4760-60
 ;;9002226.02101,"974,00172-4760-60 ",.02)
 ;;00172-4760-60
 ;;9002226.02101,"974,00172-4760-70 ",.01)
 ;;00172-4760-70
 ;;9002226.02101,"974,00172-4760-70 ",.02)
 ;;00172-4760-70
 ;;9002226.02101,"974,00172-4760-80 ",.01)
 ;;00172-4760-80
 ;;9002226.02101,"974,00172-4760-80 ",.02)
 ;;00172-4760-80
 ;;9002226.02101,"974,00172-4761-40 ",.01)
 ;;00172-4761-40
 ;;9002226.02101,"974,00172-4761-40 ",.02)
 ;;00172-4761-40
 ;;9002226.02101,"974,00172-4761-60 ",.01)
 ;;00172-4761-60
 ;;9002226.02101,"974,00172-4761-60 ",.02)
 ;;00172-4761-60
 ;;9002226.02101,"974,00172-4761-70 ",.01)
 ;;00172-4761-70
 ;;9002226.02101,"974,00172-4761-70 ",.02)
 ;;00172-4761-70
 ;;9002226.02101,"974,00172-4770-60 ",.01)
 ;;00172-4770-60
 ;;9002226.02101,"974,00172-4770-60 ",.02)
 ;;00172-4770-60
 ;;9002226.02101,"974,00172-4771-60 ",.01)
 ;;00172-4771-60
 ;;9002226.02101,"974,00172-4771-60 ",.02)
 ;;00172-4771-60
 ;;9002226.02101,"974,00172-4772-22 ",.01)
 ;;00172-4772-22
 ;;9002226.02101,"974,00172-4772-22 ",.02)
 ;;00172-4772-22
 ;;9002226.02101,"974,00172-4772-23 ",.01)
 ;;00172-4772-23
 ;;9002226.02101,"974,00172-4772-23 ",.02)
 ;;00172-4772-23
 ;;9002226.02101,"974,00172-4773-20 ",.01)
 ;;00172-4773-20
 ;;9002226.02101,"974,00172-4773-20 ",.02)
 ;;00172-4773-20
 ;;9002226.02101,"974,00172-4773-21 ",.01)
 ;;00172-4773-21
 ;;9002226.02101,"974,00172-4773-21 ",.02)
 ;;00172-4773-21
 ;;9002226.02101,"974,00172-4774-22 ",.01)
 ;;00172-4774-22
 ;;9002226.02101,"974,00172-4774-22 ",.02)
 ;;00172-4774-22
 ;;9002226.02101,"974,00172-4774-23 ",.01)
 ;;00172-4774-23
 ;;9002226.02101,"974,00172-4774-23 ",.02)
 ;;00172-4774-23
 ;;9002226.02101,"974,00172-4775-20 ",.01)
 ;;00172-4775-20
 ;;9002226.02101,"974,00172-4775-20 ",.02)
 ;;00172-4775-20
 ;;9002226.02101,"974,00172-4775-21 ",.01)
 ;;00172-4775-21
 ;;9002226.02101,"974,00172-4775-21 ",.02)
 ;;00172-4775-21
 ;;9002226.02101,"974,00172-5311-10 ",.01)
 ;;00172-5311-10
 ;;9002226.02101,"974,00172-5311-10 ",.02)
 ;;00172-5311-10
 ;;9002226.02101,"974,00172-5311-60 ",.01)
 ;;00172-5311-60
 ;;9002226.02101,"974,00172-5311-60 ",.02)
 ;;00172-5311-60
 ;;9002226.02101,"974,00172-5312-10 ",.01)
 ;;00172-5312-10
 ;;9002226.02101,"974,00172-5312-10 ",.02)
 ;;00172-5312-10
 ;;9002226.02101,"974,00172-5312-60 ",.01)
 ;;00172-5312-60
 ;;9002226.02101,"974,00172-5312-60 ",.02)
 ;;00172-5312-60
 ;;9002226.02101,"974,00172-5312-70 ",.01)
 ;;00172-5312-70
 ;;9002226.02101,"974,00172-5312-70 ",.02)
 ;;00172-5312-70
 ;;9002226.02101,"974,00172-5313-10 ",.01)
 ;;00172-5313-10
 ;;9002226.02101,"974,00172-5313-10 ",.02)
 ;;00172-5313-10
 ;;9002226.02101,"974,00172-5313-60 ",.01)
 ;;00172-5313-60
 ;;9002226.02101,"974,00172-5313-60 ",.02)
 ;;00172-5313-60
 ;;9002226.02101,"974,00172-7401-28 ",.01)
 ;;00172-7401-28
 ;;9002226.02101,"974,00172-7401-28 ",.02)
 ;;00172-7401-28
 ;;9002226.02101,"974,00172-7402-28 ",.01)
 ;;00172-7402-28
 ;;9002226.02101,"974,00172-7402-28 ",.02)
 ;;00172-7402-28
 ;;9002226.02101,"974,00172-7403-10 ",.01)
 ;;00172-7403-10
 ;;9002226.02101,"974,00172-7403-10 ",.02)
 ;;00172-7403-10
 ;;9002226.02101,"974,00172-7403-42 ",.01)
 ;;00172-7403-42
 ;;9002226.02101,"974,00172-7403-42 ",.02)
 ;;00172-7403-42
 ;;9002226.02101,"974,00172-7404-42 ",.01)
 ;;00172-7404-42
 ;;9002226.02101,"974,00172-7404-42 ",.02)
 ;;00172-7404-42
 ;;9002226.02101,"974,00172-7405-20 ",.01)
 ;;00172-7405-20
 ;;9002226.02101,"974,00172-7405-20 ",.02)
 ;;00172-7405-20
 ;;9002226.02101,"974,00172-7405-21 ",.01)
 ;;00172-7405-21
 ;;9002226.02101,"974,00172-7405-21 ",.02)
 ;;00172-7405-21
 ;;9002226.02101,"974,00172-7405-22 ",.01)
 ;;00172-7405-22
 ;;9002226.02101,"974,00172-7405-22 ",.02)
 ;;00172-7405-22
 ;;9002226.02101,"974,00172-7406-20 ",.01)
 ;;00172-7406-20
 ;;9002226.02101,"974,00172-7406-20 ",.02)
 ;;00172-7406-20