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

BGP33J24.m

Go to the documentation of this file.
BGP33J24 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"734,00143-9982-01 ",.01)
 ;;00143-9982-01
 ;;9002226.02101,"734,00143-9982-01 ",.02)
 ;;00143-9982-01
 ;;9002226.02101,"734,00143-9982-50 ",.01)
 ;;00143-9982-50
 ;;9002226.02101,"734,00143-9982-50 ",.02)
 ;;00143-9982-50
 ;;9002226.02101,"734,00143-9982-75 ",.01)
 ;;00143-9982-75
 ;;9002226.02101,"734,00143-9982-75 ",.02)
 ;;00143-9982-75
 ;;9002226.02101,"734,00143-9983-03 ",.01)
 ;;00143-9983-03
 ;;9002226.02101,"734,00143-9983-03 ",.02)
 ;;00143-9983-03
 ;;9002226.02101,"734,00143-9983-91 ",.01)
 ;;00143-9983-91
 ;;9002226.02101,"734,00143-9983-91 ",.02)
 ;;00143-9983-91
 ;;9002226.02101,"734,00143-9985-01 ",.01)
 ;;00143-9985-01
 ;;9002226.02101,"734,00143-9985-01 ",.02)
 ;;00143-9985-01
 ;;9002226.02101,"734,00143-9986-01 ",.01)
 ;;00143-9986-01
 ;;9002226.02101,"734,00143-9986-01 ",.02)
 ;;00143-9986-01
 ;;9002226.02101,"734,00172-2407-00 ",.01)
 ;;00172-2407-00
 ;;9002226.02101,"734,00172-2407-00 ",.02)
 ;;00172-2407-00
 ;;9002226.02101,"734,00172-2407-10 ",.01)
 ;;00172-2407-10
 ;;9002226.02101,"734,00172-2407-10 ",.02)
 ;;00172-2407-10
 ;;9002226.02101,"734,00172-2407-60 ",.01)
 ;;00172-2407-60
 ;;9002226.02101,"734,00172-2407-60 ",.02)
 ;;00172-2407-60
 ;;9002226.02101,"734,00172-2407-80 ",.01)
 ;;00172-2407-80
 ;;9002226.02101,"734,00172-2407-80 ",.02)
 ;;00172-2407-80
 ;;9002226.02101,"734,00172-2416-00 ",.01)
 ;;00172-2416-00
 ;;9002226.02101,"734,00172-2416-00 ",.02)
 ;;00172-2416-00
 ;;9002226.02101,"734,00172-2416-10 ",.01)
 ;;00172-2416-10
 ;;9002226.02101,"734,00172-2416-10 ",.02)
 ;;00172-2416-10
 ;;9002226.02101,"734,00172-2416-60 ",.01)
 ;;00172-2416-60
 ;;9002226.02101,"734,00172-2416-60 ",.02)
 ;;00172-2416-60
 ;;9002226.02101,"734,00172-2416-80 ",.01)
 ;;00172-2416-80
 ;;9002226.02101,"734,00172-2416-80 ",.02)
 ;;00172-2416-80
 ;;9002226.02101,"734,00172-2984-48 ",.01)
 ;;00172-2984-48
 ;;9002226.02101,"734,00172-2984-48 ",.02)
 ;;00172-2984-48
 ;;9002226.02101,"734,00172-2985-48 ",.01)
 ;;00172-2985-48
 ;;9002226.02101,"734,00172-2985-48 ",.02)
 ;;00172-2985-48
 ;;9002226.02101,"734,00172-2985-70 ",.01)
 ;;00172-2985-70
 ;;9002226.02101,"734,00172-2985-70 ",.02)
 ;;00172-2985-70
 ;;9002226.02101,"734,00172-3626-10 ",.01)
 ;;00172-3626-10
 ;;9002226.02101,"734,00172-3626-10 ",.02)
 ;;00172-3626-10
 ;;9002226.02101,"734,00172-3626-48 ",.01)
 ;;00172-3626-48
 ;;9002226.02101,"734,00172-3626-48 ",.02)
 ;;00172-3626-48
 ;;9002226.02101,"734,00172-3626-70 ",.01)
 ;;00172-3626-70
 ;;9002226.02101,"734,00172-3626-70 ",.02)
 ;;00172-3626-70
 ;;9002226.02101,"734,00172-4058-48 ",.01)
 ;;00172-4058-48
 ;;9002226.02101,"734,00172-4058-48 ",.02)
 ;;00172-4058-48
 ;;9002226.02101,"734,00172-4058-60 ",.01)
 ;;00172-4058-60
 ;;9002226.02101,"734,00172-4058-60 ",.02)
 ;;00172-4058-60
 ;;9002226.02101,"734,00172-4073-70 ",.01)
 ;;00172-4073-70
 ;;9002226.02101,"734,00172-4073-70 ",.02)
 ;;00172-4073-70
 ;;9002226.02101,"734,00172-4626-60 ",.01)
 ;;00172-4626-60
 ;;9002226.02101,"734,00172-4626-60 ",.02)
 ;;00172-4626-60
 ;;9002226.02101,"734,00172-4626-70 ",.01)
 ;;00172-4626-70
 ;;9002226.02101,"734,00172-4626-70 ",.02)
 ;;00172-4626-70
 ;;9002226.02101,"734,00172-5311-00 ",.01)
 ;;00172-5311-00
 ;;9002226.02101,"734,00172-5311-00 ",.02)
 ;;00172-5311-00
 ;;9002226.02101,"734,00172-5311-10 ",.01)
 ;;00172-5311-10
 ;;9002226.02101,"734,00172-5311-10 ",.02)
 ;;00172-5311-10
 ;;9002226.02101,"734,00172-5311-60 ",.01)
 ;;00172-5311-60
 ;;9002226.02101,"734,00172-5311-60 ",.02)
 ;;00172-5311-60
 ;;9002226.02101,"734,00172-5312-00 ",.01)
 ;;00172-5312-00
 ;;9002226.02101,"734,00172-5312-00 ",.02)
 ;;00172-5312-00
 ;;9002226.02101,"734,00172-5312-10 ",.01)
 ;;00172-5312-10
 ;;9002226.02101,"734,00172-5312-10 ",.02)
 ;;00172-5312-10
 ;;9002226.02101,"734,00172-5312-60 ",.01)
 ;;00172-5312-60
 ;;9002226.02101,"734,00172-5312-60 ",.02)
 ;;00172-5312-60
 ;;9002226.02101,"734,00172-5312-70 ",.01)
 ;;00172-5312-70
 ;;9002226.02101,"734,00172-5312-70 ",.02)
 ;;00172-5312-70
 ;;9002226.02101,"734,00172-5313-00 ",.01)
 ;;00172-5313-00
 ;;9002226.02101,"734,00172-5313-00 ",.02)
 ;;00172-5313-00
 ;;9002226.02101,"734,00172-5313-10 ",.01)
 ;;00172-5313-10
 ;;9002226.02101,"734,00172-5313-10 ",.02)
 ;;00172-5313-10
 ;;9002226.02101,"734,00172-5313-60 ",.01)
 ;;00172-5313-60
 ;;9002226.02101,"734,00172-5313-60 ",.02)
 ;;00172-5313-60
 ;;9002226.02101,"734,00173-0352-10 ",.01)
 ;;00173-0352-10
 ;;9002226.02101,"734,00173-0352-10 ",.02)
 ;;00173-0352-10
 ;;9002226.02101,"734,00173-0354-10 ",.01)
 ;;00173-0354-10
 ;;9002226.02101,"734,00173-0354-10 ",.02)
 ;;00173-0354-10
 ;;9002226.02101,"734,00173-0387-00 ",.01)
 ;;00173-0387-00
 ;;9002226.02101,"734,00173-0387-00 ",.02)
 ;;00173-0387-00
 ;;9002226.02101,"734,00173-0394-00 ",.01)
 ;;00173-0394-00
 ;;9002226.02101,"734,00173-0394-00 ",.02)
 ;;00173-0394-00
 ;;9002226.02101,"734,00173-0394-42 ",.01)
 ;;00173-0394-42
 ;;9002226.02101,"734,00173-0394-42 ",.02)
 ;;00173-0394-42
 ;;9002226.02101,"734,00173-0400-00 ",.01)
 ;;00173-0400-00
 ;;9002226.02101,"734,00173-0400-00 ",.02)
 ;;00173-0400-00
 ;;9002226.02101,"734,00173-0424-00 ",.01)
 ;;00173-0424-00
 ;;9002226.02101,"734,00173-0424-00 ",.02)
 ;;00173-0424-00
 ;;9002226.02101,"734,00173-0425-00 ",.01)
 ;;00173-0425-00
 ;;9002226.02101,"734,00173-0425-00 ",.02)
 ;;00173-0425-00
 ;;9002226.02101,"734,00173-0436-00 ",.01)
 ;;00173-0436-00
 ;;9002226.02101,"734,00173-0436-00 ",.02)
 ;;00173-0436-00
 ;;9002226.02101,"734,00173-0437-00 ",.01)
 ;;00173-0437-00
 ;;9002226.02101,"734,00173-0437-00 ",.02)
 ;;00173-0437-00
 ;;9002226.02101,"734,00173-0740-00 ",.01)
 ;;00173-0740-00
 ;;9002226.02101,"734,00173-0740-00 ",.02)
 ;;00173-0740-00
 ;;9002226.02101,"734,00173-0741-00 ",.01)
 ;;00173-0741-00
 ;;9002226.02101,"734,00173-0741-00 ",.02)
 ;;00173-0741-00
 ;;9002226.02101,"734,00173-0741-10 ",.01)
 ;;00173-0741-10
 ;;9002226.02101,"734,00173-0741-10 ",.02)
 ;;00173-0741-10
 ;;9002226.02101,"734,00182-0112-00 ",.01)
 ;;00182-0112-00
 ;;9002226.02101,"734,00182-0112-00 ",.02)
 ;;00182-0112-00
 ;;9002226.02101,"734,00182-0112-89 ",.01)
 ;;00182-0112-89
 ;;9002226.02101,"734,00182-0112-89 ",.02)
 ;;00182-0112-89
 ;;9002226.02101,"734,00182-0679-00 ",.01)
 ;;00182-0679-00
 ;;9002226.02101,"734,00182-0679-00 ",.02)
 ;;00182-0679-00
 ;;9002226.02101,"734,00182-0679-89 ",.01)
 ;;00182-0679-89
 ;;9002226.02101,"734,00182-0679-89 ",.02)
 ;;00182-0679-89
 ;;9002226.02101,"734,00182-1035-00 ",.01)
 ;;00182-1035-00
 ;;9002226.02101,"734,00182-1035-00 ",.02)
 ;;00182-1035-00
 ;;9002226.02101,"734,00182-1035-89 ",.01)
 ;;00182-1035-89
 ;;9002226.02101,"734,00182-1035-89 ",.02)
 ;;00182-1035-89
 ;;9002226.02101,"734,00182-1535-00 ",.01)
 ;;00182-1535-00
 ;;9002226.02101,"734,00182-1535-00 ",.02)
 ;;00182-1535-00
 ;;9002226.02101,"734,00182-1535-89 ",.01)
 ;;00182-1535-89
 ;;9002226.02101,"734,00182-1535-89 ",.02)
 ;;00182-1535-89
 ;;9002226.02101,"734,00182-2631-01 ",.01)
 ;;00182-2631-01
 ;;9002226.02101,"734,00182-2631-01 ",.02)
 ;;00182-2631-01
 ;;9002226.02101,"734,00182-2721-36 ",.01)
 ;;00182-2721-36
 ;;9002226.02101,"734,00182-2721-36 ",.02)
 ;;00182-2721-36
 ;;9002226.02101,"734,00185-0036-01 ",.01)
 ;;00185-0036-01
 ;;9002226.02101,"734,00185-0036-01 ",.02)
 ;;00185-0036-01
 ;;9002226.02101,"734,00185-0106-01 ",.01)
 ;;00185-0106-01
 ;;9002226.02101,"734,00185-0106-01 ",.02)
 ;;00185-0106-01
 ;;9002226.02101,"734,00185-0112-01 ",.01)
 ;;00185-0112-01
 ;;9002226.02101,"734,00185-0112-01 ",.02)
 ;;00185-0112-01
 ;;9002226.02101,"734,00185-0112-05 ",.01)
 ;;00185-0112-05
 ;;9002226.02101,"734,00185-0112-05 ",.02)
 ;;00185-0112-05
 ;;9002226.02101,"734,00185-0216-52 ",.01)
 ;;00185-0216-52
 ;;9002226.02101,"734,00185-0216-52 ",.02)
 ;;00185-0216-52
 ;;9002226.02101,"734,00185-0216-53 ",.01)
 ;;00185-0216-53
 ;;9002226.02101,"734,00185-0216-53 ",.02)
 ;;00185-0216-53
 ;;9002226.02101,"734,00185-0275-60 ",.01)
 ;;00185-0275-60
 ;;9002226.02101,"734,00185-0275-60 ",.02)
 ;;00185-0275-60
 ;;9002226.02101,"734,00185-0805-01 ",.01)
 ;;00185-0805-01
 ;;9002226.02101,"734,00185-0805-01 ",.02)
 ;;00185-0805-01
 ;;9002226.02101,"734,00185-0810-01 ",.01)
 ;;00185-0810-01
 ;;9002226.02101,"734,00185-0810-01 ",.02)
 ;;00185-0810-01
 ;;9002226.02101,"734,00185-0810-52 ",.01)
 ;;00185-0810-52
 ;;9002226.02101,"734,00185-0810-52 ",.02)
 ;;00185-0810-52
 ;;9002226.02101,"734,00185-0810-53 ",.01)
 ;;00185-0810-53
 ;;9002226.02101,"734,00185-0810-53 ",.02)
 ;;00185-0810-53
 ;;9002226.02101,"734,00185-0815-53 ",.01)
 ;;00185-0815-53
 ;;9002226.02101,"734,00185-0815-53 ",.02)
 ;;00185-0815-53
 ;;9002226.02101,"734,00185-7203-70 ",.01)
 ;;00185-7203-70
 ;;9002226.02101,"734,00185-7203-70 ",.02)
 ;;00185-7203-70
 ;;9002226.02101,"734,00185-7206-70 ",.01)
 ;;00185-7206-70
 ;;9002226.02101,"734,00185-7206-70 ",.02)
 ;;00185-7206-70
 ;;9002226.02101,"734,00185-7209-69 ",.01)
 ;;00185-7209-69
 ;;9002226.02101,"734,00185-7209-69 ",.02)
 ;;00185-7209-69
 ;;9002226.02101,"734,00185-7212-68 ",.01)
 ;;00185-7212-68
 ;;9002226.02101,"734,00185-7212-68 ",.02)
 ;;00185-7212-68
 ;;9002226.02101,"734,00247-0001-00 ",.01)
 ;;00247-0001-00
 ;;9002226.02101,"734,00247-0001-00 ",.02)
 ;;00247-0001-00
 ;;9002226.02101,"734,00247-0001-01 ",.01)
 ;;00247-0001-01
 ;;9002226.02101,"734,00247-0001-01 ",.02)
 ;;00247-0001-01
 ;;9002226.02101,"734,00247-0001-02 ",.01)
 ;;00247-0001-02
 ;;9002226.02101,"734,00247-0001-02 ",.02)
 ;;00247-0001-02
 ;;9002226.02101,"734,00247-0001-03 ",.01)
 ;;00247-0001-03
 ;;9002226.02101,"734,00247-0001-03 ",.02)
 ;;00247-0001-03
 ;;9002226.02101,"734,00247-0001-04 ",.01)
 ;;00247-0001-04
 ;;9002226.02101,"734,00247-0001-04 ",.02)
 ;;00247-0001-04
 ;;9002226.02101,"734,00247-0001-05 ",.01)
 ;;00247-0001-05
 ;;9002226.02101,"734,00247-0001-05 ",.02)
 ;;00247-0001-05
 ;;9002226.02101,"734,00247-0001-06 ",.01)
 ;;00247-0001-06
 ;;9002226.02101,"734,00247-0001-06 ",.02)
 ;;00247-0001-06
 ;;9002226.02101,"734,00247-0001-08 ",.01)
 ;;00247-0001-08
 ;;9002226.02101,"734,00247-0001-08 ",.02)
 ;;00247-0001-08
 ;;9002226.02101,"734,00247-0001-09 ",.01)
 ;;00247-0001-09
 ;;9002226.02101,"734,00247-0001-09 ",.02)
 ;;00247-0001-09
 ;;9002226.02101,"734,00247-0001-10 ",.01)
 ;;00247-0001-10
 ;;9002226.02101,"734,00247-0001-10 ",.02)
 ;;00247-0001-10
 ;;9002226.02101,"734,00247-0001-12 ",.01)
 ;;00247-0001-12
 ;;9002226.02101,"734,00247-0001-12 ",.02)
 ;;00247-0001-12
 ;;9002226.02101,"734,00247-0001-15 ",.01)
 ;;00247-0001-15
 ;;9002226.02101,"734,00247-0001-15 ",.02)
 ;;00247-0001-15
 ;;9002226.02101,"734,00247-0001-20 ",.01)
 ;;00247-0001-20
 ;;9002226.02101,"734,00247-0001-20 ",.02)
 ;;00247-0001-20
 ;;9002226.02101,"734,00247-0001-21 ",.01)
 ;;00247-0001-21
 ;;9002226.02101,"734,00247-0001-21 ",.02)
 ;;00247-0001-21
 ;;9002226.02101,"734,00247-0001-24 ",.01)
 ;;00247-0001-24
 ;;9002226.02101,"734,00247-0001-24 ",.02)
 ;;00247-0001-24
 ;;9002226.02101,"734,00247-0001-25 ",.01)
 ;;00247-0001-25
 ;;9002226.02101,"734,00247-0001-25 ",.02)
 ;;00247-0001-25
 ;;9002226.02101,"734,00247-0001-28 ",.01)
 ;;00247-0001-28
 ;;9002226.02101,"734,00247-0001-28 ",.02)
 ;;00247-0001-28
 ;;9002226.02101,"734,00247-0001-30 ",.01)
 ;;00247-0001-30
 ;;9002226.02101,"734,00247-0001-30 ",.02)
 ;;00247-0001-30
 ;;9002226.02101,"734,00247-0001-33 ",.01)
 ;;00247-0001-33
 ;;9002226.02101,"734,00247-0001-33 ",.02)
 ;;00247-0001-33
 ;;9002226.02101,"734,00247-0001-40 ",.01)
 ;;00247-0001-40
 ;;9002226.02101,"734,00247-0001-40 ",.02)
 ;;00247-0001-40
 ;;9002226.02101,"734,00247-0001-42 ",.01)
 ;;00247-0001-42
 ;;9002226.02101,"734,00247-0001-42 ",.02)
 ;;00247-0001-42
 ;;9002226.02101,"734,00247-0001-56 ",.01)
 ;;00247-0001-56
 ;;9002226.02101,"734,00247-0001-56 ",.02)
 ;;00247-0001-56
 ;;9002226.02101,"734,00247-0001-69 ",.01)
 ;;00247-0001-69
 ;;9002226.02101,"734,00247-0001-69 ",.02)
 ;;00247-0001-69
 ;;9002226.02101,"734,00247-0001-98 ",.01)
 ;;00247-0001-98
 ;;9002226.02101,"734,00247-0001-98 ",.02)
 ;;00247-0001-98
 ;;9002226.02101,"734,00247-0002-00 ",.01)
 ;;00247-0002-00
 ;;9002226.02101,"734,00247-0002-00 ",.02)
 ;;00247-0002-00
 ;;9002226.02101,"734,00247-0002-01 ",.01)
 ;;00247-0002-01
 ;;9002226.02101,"734,00247-0002-01 ",.02)
 ;;00247-0002-01
 ;;9002226.02101,"734,00247-0002-02 ",.01)
 ;;00247-0002-02
 ;;9002226.02101,"734,00247-0002-02 ",.02)
 ;;00247-0002-02
 ;;9002226.02101,"734,00247-0002-03 ",.01)
 ;;00247-0002-03
 ;;9002226.02101,"734,00247-0002-03 ",.02)
 ;;00247-0002-03
 ;;9002226.02101,"734,00247-0002-04 ",.01)
 ;;00247-0002-04
 ;;9002226.02101,"734,00247-0002-04 ",.02)
 ;;00247-0002-04
 ;;9002226.02101,"734,00247-0002-05 ",.01)
 ;;00247-0002-05
 ;;9002226.02101,"734,00247-0002-05 ",.02)
 ;;00247-0002-05
 ;;9002226.02101,"734,00247-0002-06 ",.01)
 ;;00247-0002-06
 ;;9002226.02101,"734,00247-0002-06 ",.02)
 ;;00247-0002-06
 ;;9002226.02101,"734,00247-0002-08 ",.01)
 ;;00247-0002-08
 ;;9002226.02101,"734,00247-0002-08 ",.02)
 ;;00247-0002-08
 ;;9002226.02101,"734,00247-0002-09 ",.01)
 ;;00247-0002-09
 ;;9002226.02101,"734,00247-0002-09 ",.02)
 ;;00247-0002-09
 ;;9002226.02101,"734,00247-0002-10 ",.01)
 ;;00247-0002-10
 ;;9002226.02101,"734,00247-0002-10 ",.02)
 ;;00247-0002-10
 ;;9002226.02101,"734,00247-0002-12 ",.01)
 ;;00247-0002-12
 ;;9002226.02101,"734,00247-0002-12 ",.02)
 ;;00247-0002-12
 ;;9002226.02101,"734,00247-0002-14 ",.01)
 ;;00247-0002-14
 ;;9002226.02101,"734,00247-0002-14 ",.02)
 ;;00247-0002-14