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

BGP33J26.m

Go to the documentation of this file.
BGP33J26 ;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,00247-0014-79 ",.01)
 ;;00247-0014-79
 ;;9002226.02101,"734,00247-0014-79 ",.02)
 ;;00247-0014-79
 ;;9002226.02101,"734,00247-0021-00 ",.01)
 ;;00247-0021-00
 ;;9002226.02101,"734,00247-0021-00 ",.02)
 ;;00247-0021-00
 ;;9002226.02101,"734,00247-0021-78 ",.01)
 ;;00247-0021-78
 ;;9002226.02101,"734,00247-0021-78 ",.02)
 ;;00247-0021-78
 ;;9002226.02101,"734,00247-0021-80 ",.01)
 ;;00247-0021-80
 ;;9002226.02101,"734,00247-0021-80 ",.02)
 ;;00247-0021-80
 ;;9002226.02101,"734,00247-0022-00 ",.01)
 ;;00247-0022-00
 ;;9002226.02101,"734,00247-0022-00 ",.02)
 ;;00247-0022-00
 ;;9002226.02101,"734,00247-0022-05 ",.01)
 ;;00247-0022-05
 ;;9002226.02101,"734,00247-0022-05 ",.02)
 ;;00247-0022-05
 ;;9002226.02101,"734,00247-0022-10 ",.01)
 ;;00247-0022-10
 ;;9002226.02101,"734,00247-0022-10 ",.02)
 ;;00247-0022-10
 ;;9002226.02101,"734,00247-0022-78 ",.01)
 ;;00247-0022-78
 ;;9002226.02101,"734,00247-0022-78 ",.02)
 ;;00247-0022-78
 ;;9002226.02101,"734,00247-0022-79 ",.01)
 ;;00247-0022-79
 ;;9002226.02101,"734,00247-0022-79 ",.02)
 ;;00247-0022-79
 ;;9002226.02101,"734,00247-0022-80 ",.01)
 ;;00247-0022-80
 ;;9002226.02101,"734,00247-0022-80 ",.02)
 ;;00247-0022-80
 ;;9002226.02101,"734,00247-0023-00 ",.01)
 ;;00247-0023-00
 ;;9002226.02101,"734,00247-0023-00 ",.02)
 ;;00247-0023-00
 ;;9002226.02101,"734,00247-0023-02 ",.01)
 ;;00247-0023-02
 ;;9002226.02101,"734,00247-0023-02 ",.02)
 ;;00247-0023-02
 ;;9002226.02101,"734,00247-0023-04 ",.01)
 ;;00247-0023-04
 ;;9002226.02101,"734,00247-0023-04 ",.02)
 ;;00247-0023-04
 ;;9002226.02101,"734,00247-0023-06 ",.01)
 ;;00247-0023-06
 ;;9002226.02101,"734,00247-0023-06 ",.02)
 ;;00247-0023-06
 ;;9002226.02101,"734,00247-0023-08 ",.01)
 ;;00247-0023-08
 ;;9002226.02101,"734,00247-0023-08 ",.02)
 ;;00247-0023-08
 ;;9002226.02101,"734,00247-0023-15 ",.01)
 ;;00247-0023-15
 ;;9002226.02101,"734,00247-0023-15 ",.02)
 ;;00247-0023-15
 ;;9002226.02101,"734,00247-0023-20 ",.01)
 ;;00247-0023-20
 ;;9002226.02101,"734,00247-0023-20 ",.02)
 ;;00247-0023-20
 ;;9002226.02101,"734,00247-0023-21 ",.01)
 ;;00247-0023-21
 ;;9002226.02101,"734,00247-0023-21 ",.02)
 ;;00247-0023-21
 ;;9002226.02101,"734,00247-0023-28 ",.01)
 ;;00247-0023-28
 ;;9002226.02101,"734,00247-0023-28 ",.02)
 ;;00247-0023-28
 ;;9002226.02101,"734,00247-0023-30 ",.01)
 ;;00247-0023-30
 ;;9002226.02101,"734,00247-0023-30 ",.02)
 ;;00247-0023-30
 ;;9002226.02101,"734,00247-0023-40 ",.01)
 ;;00247-0023-40
 ;;9002226.02101,"734,00247-0023-40 ",.02)
 ;;00247-0023-40
 ;;9002226.02101,"734,00247-0023-98 ",.01)
 ;;00247-0023-98
 ;;9002226.02101,"734,00247-0023-98 ",.02)
 ;;00247-0023-98
 ;;9002226.02101,"734,00247-0025-00 ",.01)
 ;;00247-0025-00
 ;;9002226.02101,"734,00247-0025-00 ",.02)
 ;;00247-0025-00
 ;;9002226.02101,"734,00247-0025-75 ",.01)
 ;;00247-0025-75
 ;;9002226.02101,"734,00247-0025-75 ",.02)
 ;;00247-0025-75
 ;;9002226.02101,"734,00247-0025-78 ",.01)
 ;;00247-0025-78
 ;;9002226.02101,"734,00247-0025-78 ",.02)
 ;;00247-0025-78
 ;;9002226.02101,"734,00247-0026-02 ",.01)
 ;;00247-0026-02
 ;;9002226.02101,"734,00247-0026-02 ",.02)
 ;;00247-0026-02
 ;;9002226.02101,"734,00247-0026-03 ",.01)
 ;;00247-0026-03
 ;;9002226.02101,"734,00247-0026-03 ",.02)
 ;;00247-0026-03
 ;;9002226.02101,"734,00247-0026-04 ",.01)
 ;;00247-0026-04
 ;;9002226.02101,"734,00247-0026-04 ",.02)
 ;;00247-0026-04
 ;;9002226.02101,"734,00247-0026-06 ",.01)
 ;;00247-0026-06
 ;;9002226.02101,"734,00247-0026-06 ",.02)
 ;;00247-0026-06
 ;;9002226.02101,"734,00247-0026-08 ",.01)
 ;;00247-0026-08
 ;;9002226.02101,"734,00247-0026-08 ",.02)
 ;;00247-0026-08
 ;;9002226.02101,"734,00247-0026-15 ",.01)
 ;;00247-0026-15
 ;;9002226.02101,"734,00247-0026-15 ",.02)
 ;;00247-0026-15
 ;;9002226.02101,"734,00247-0026-20 ",.01)
 ;;00247-0026-20
 ;;9002226.02101,"734,00247-0026-20 ",.02)
 ;;00247-0026-20
 ;;9002226.02101,"734,00247-0026-21 ",.01)
 ;;00247-0026-21
 ;;9002226.02101,"734,00247-0026-21 ",.02)
 ;;00247-0026-21
 ;;9002226.02101,"734,00247-0026-24 ",.01)
 ;;00247-0026-24
 ;;9002226.02101,"734,00247-0026-24 ",.02)
 ;;00247-0026-24
 ;;9002226.02101,"734,00247-0026-30 ",.01)
 ;;00247-0026-30
 ;;9002226.02101,"734,00247-0026-30 ",.02)
 ;;00247-0026-30
 ;;9002226.02101,"734,00247-0027-01 ",.01)
 ;;00247-0027-01
 ;;9002226.02101,"734,00247-0027-01 ",.02)
 ;;00247-0027-01
 ;;9002226.02101,"734,00247-0027-02 ",.01)
 ;;00247-0027-02
 ;;9002226.02101,"734,00247-0027-02 ",.02)
 ;;00247-0027-02
 ;;9002226.02101,"734,00247-0027-03 ",.01)
 ;;00247-0027-03
 ;;9002226.02101,"734,00247-0027-03 ",.02)
 ;;00247-0027-03
 ;;9002226.02101,"734,00247-0027-04 ",.01)
 ;;00247-0027-04
 ;;9002226.02101,"734,00247-0027-04 ",.02)
 ;;00247-0027-04
 ;;9002226.02101,"734,00247-0027-07 ",.01)
 ;;00247-0027-07
 ;;9002226.02101,"734,00247-0027-07 ",.02)
 ;;00247-0027-07
 ;;9002226.02101,"734,00247-0027-09 ",.01)
 ;;00247-0027-09
 ;;9002226.02101,"734,00247-0027-09 ",.02)
 ;;00247-0027-09
 ;;9002226.02101,"734,00247-0027-10 ",.01)
 ;;00247-0027-10
 ;;9002226.02101,"734,00247-0027-10 ",.02)
 ;;00247-0027-10
 ;;9002226.02101,"734,00247-0027-14 ",.01)
 ;;00247-0027-14
 ;;9002226.02101,"734,00247-0027-14 ",.02)
 ;;00247-0027-14
 ;;9002226.02101,"734,00247-0027-15 ",.01)
 ;;00247-0027-15
 ;;9002226.02101,"734,00247-0027-15 ",.02)
 ;;00247-0027-15
 ;;9002226.02101,"734,00247-0027-20 ",.01)
 ;;00247-0027-20
 ;;9002226.02101,"734,00247-0027-20 ",.02)
 ;;00247-0027-20
 ;;9002226.02101,"734,00247-0027-21 ",.01)
 ;;00247-0027-21
 ;;9002226.02101,"734,00247-0027-21 ",.02)
 ;;00247-0027-21
 ;;9002226.02101,"734,00247-0027-30 ",.01)
 ;;00247-0027-30
 ;;9002226.02101,"734,00247-0027-30 ",.02)
 ;;00247-0027-30
 ;;9002226.02101,"734,00247-0028-01 ",.01)
 ;;00247-0028-01
 ;;9002226.02101,"734,00247-0028-01 ",.02)
 ;;00247-0028-01
 ;;9002226.02101,"734,00247-0028-03 ",.01)
 ;;00247-0028-03
 ;;9002226.02101,"734,00247-0028-03 ",.02)
 ;;00247-0028-03
 ;;9002226.02101,"734,00247-0028-04 ",.01)
 ;;00247-0028-04
 ;;9002226.02101,"734,00247-0028-04 ",.02)
 ;;00247-0028-04
 ;;9002226.02101,"734,00247-0028-06 ",.01)
 ;;00247-0028-06
 ;;9002226.02101,"734,00247-0028-06 ",.02)
 ;;00247-0028-06
 ;;9002226.02101,"734,00247-0028-08 ",.01)
 ;;00247-0028-08
 ;;9002226.02101,"734,00247-0028-08 ",.02)
 ;;00247-0028-08
 ;;9002226.02101,"734,00247-0028-10 ",.01)
 ;;00247-0028-10
 ;;9002226.02101,"734,00247-0028-10 ",.02)
 ;;00247-0028-10
 ;;9002226.02101,"734,00247-0028-15 ",.01)
 ;;00247-0028-15
 ;;9002226.02101,"734,00247-0028-15 ",.02)
 ;;00247-0028-15
 ;;9002226.02101,"734,00247-0028-21 ",.01)
 ;;00247-0028-21
 ;;9002226.02101,"734,00247-0028-21 ",.02)
 ;;00247-0028-21
 ;;9002226.02101,"734,00247-0028-30 ",.01)
 ;;00247-0028-30
 ;;9002226.02101,"734,00247-0028-30 ",.02)
 ;;00247-0028-30
 ;;9002226.02101,"734,00247-0035-00 ",.01)
 ;;00247-0035-00
 ;;9002226.02101,"734,00247-0035-00 ",.02)
 ;;00247-0035-00
 ;;9002226.02101,"734,00247-0035-75 ",.01)
 ;;00247-0035-75
 ;;9002226.02101,"734,00247-0035-75 ",.02)
 ;;00247-0035-75
 ;;9002226.02101,"734,00247-0035-78 ",.01)
 ;;00247-0035-78
 ;;9002226.02101,"734,00247-0035-78 ",.02)
 ;;00247-0035-78
 ;;9002226.02101,"734,00247-0054-75 ",.01)
 ;;00247-0054-75
 ;;9002226.02101,"734,00247-0054-75 ",.02)
 ;;00247-0054-75
 ;;9002226.02101,"734,00247-0054-78 ",.01)
 ;;00247-0054-78
 ;;9002226.02101,"734,00247-0054-78 ",.02)
 ;;00247-0054-78
 ;;9002226.02101,"734,00247-0055-00 ",.01)
 ;;00247-0055-00
 ;;9002226.02101,"734,00247-0055-00 ",.02)
 ;;00247-0055-00
 ;;9002226.02101,"734,00247-0055-50 ",.01)
 ;;00247-0055-50
 ;;9002226.02101,"734,00247-0055-50 ",.02)
 ;;00247-0055-50
 ;;9002226.02101,"734,00247-0063-00 ",.01)
 ;;00247-0063-00
 ;;9002226.02101,"734,00247-0063-00 ",.02)
 ;;00247-0063-00
 ;;9002226.02101,"734,00247-0063-01 ",.01)
 ;;00247-0063-01
 ;;9002226.02101,"734,00247-0063-01 ",.02)
 ;;00247-0063-01
 ;;9002226.02101,"734,00247-0063-02 ",.01)
 ;;00247-0063-02
 ;;9002226.02101,"734,00247-0063-02 ",.02)
 ;;00247-0063-02
 ;;9002226.02101,"734,00247-0063-03 ",.01)
 ;;00247-0063-03
 ;;9002226.02101,"734,00247-0063-03 ",.02)
 ;;00247-0063-03
 ;;9002226.02101,"734,00247-0063-04 ",.01)
 ;;00247-0063-04
 ;;9002226.02101,"734,00247-0063-04 ",.02)
 ;;00247-0063-04
 ;;9002226.02101,"734,00247-0063-06 ",.01)
 ;;00247-0063-06
 ;;9002226.02101,"734,00247-0063-06 ",.02)
 ;;00247-0063-06
 ;;9002226.02101,"734,00247-0063-07 ",.01)
 ;;00247-0063-07
 ;;9002226.02101,"734,00247-0063-07 ",.02)
 ;;00247-0063-07
 ;;9002226.02101,"734,00247-0063-08 ",.01)
 ;;00247-0063-08
 ;;9002226.02101,"734,00247-0063-08 ",.02)
 ;;00247-0063-08
 ;;9002226.02101,"734,00247-0063-10 ",.01)
 ;;00247-0063-10
 ;;9002226.02101,"734,00247-0063-10 ",.02)
 ;;00247-0063-10
 ;;9002226.02101,"734,00247-0063-12 ",.01)
 ;;00247-0063-12
 ;;9002226.02101,"734,00247-0063-12 ",.02)
 ;;00247-0063-12
 ;;9002226.02101,"734,00247-0063-14 ",.01)
 ;;00247-0063-14
 ;;9002226.02101,"734,00247-0063-14 ",.02)
 ;;00247-0063-14
 ;;9002226.02101,"734,00247-0063-15 ",.01)
 ;;00247-0063-15
 ;;9002226.02101,"734,00247-0063-15 ",.02)
 ;;00247-0063-15
 ;;9002226.02101,"734,00247-0063-16 ",.01)
 ;;00247-0063-16
 ;;9002226.02101,"734,00247-0063-16 ",.02)
 ;;00247-0063-16
 ;;9002226.02101,"734,00247-0063-19 ",.01)
 ;;00247-0063-19
 ;;9002226.02101,"734,00247-0063-19 ",.02)
 ;;00247-0063-19
 ;;9002226.02101,"734,00247-0063-20 ",.01)
 ;;00247-0063-20
 ;;9002226.02101,"734,00247-0063-20 ",.02)
 ;;00247-0063-20
 ;;9002226.02101,"734,00247-0063-28 ",.01)
 ;;00247-0063-28
 ;;9002226.02101,"734,00247-0063-28 ",.02)
 ;;00247-0063-28
 ;;9002226.02101,"734,00247-0063-30 ",.01)
 ;;00247-0063-30
 ;;9002226.02101,"734,00247-0063-30 ",.02)
 ;;00247-0063-30
 ;;9002226.02101,"734,00247-0063-40 ",.01)
 ;;00247-0063-40
 ;;9002226.02101,"734,00247-0063-40 ",.02)
 ;;00247-0063-40
 ;;9002226.02101,"734,00247-0063-42 ",.01)
 ;;00247-0063-42
 ;;9002226.02101,"734,00247-0063-42 ",.02)
 ;;00247-0063-42
 ;;9002226.02101,"734,00247-0063-56 ",.01)
 ;;00247-0063-56
 ;;9002226.02101,"734,00247-0063-56 ",.02)
 ;;00247-0063-56
 ;;9002226.02101,"734,00247-0063-60 ",.01)
 ;;00247-0063-60
 ;;9002226.02101,"734,00247-0063-60 ",.02)
 ;;00247-0063-60
 ;;9002226.02101,"734,00247-0063-98 ",.01)
 ;;00247-0063-98
 ;;9002226.02101,"734,00247-0063-98 ",.02)
 ;;00247-0063-98
 ;;9002226.02101,"734,00247-0064-10 ",.01)
 ;;00247-0064-10
 ;;9002226.02101,"734,00247-0064-10 ",.02)
 ;;00247-0064-10
 ;;9002226.02101,"734,00247-0064-12 ",.01)
 ;;00247-0064-12
 ;;9002226.02101,"734,00247-0064-12 ",.02)
 ;;00247-0064-12
 ;;9002226.02101,"734,00247-0064-14 ",.01)
 ;;00247-0064-14
 ;;9002226.02101,"734,00247-0064-14 ",.02)
 ;;00247-0064-14
 ;;9002226.02101,"734,00247-0064-15 ",.01)
 ;;00247-0064-15
 ;;9002226.02101,"734,00247-0064-15 ",.02)
 ;;00247-0064-15
 ;;9002226.02101,"734,00247-0064-20 ",.01)
 ;;00247-0064-20
 ;;9002226.02101,"734,00247-0064-20 ",.02)
 ;;00247-0064-20
 ;;9002226.02101,"734,00247-0064-30 ",.01)
 ;;00247-0064-30
 ;;9002226.02101,"734,00247-0064-30 ",.02)
 ;;00247-0064-30
 ;;9002226.02101,"734,00247-0066-00 ",.01)
 ;;00247-0066-00
 ;;9002226.02101,"734,00247-0066-00 ",.02)
 ;;00247-0066-00
 ;;9002226.02101,"734,00247-0066-04 ",.01)
 ;;00247-0066-04
 ;;9002226.02101,"734,00247-0066-04 ",.02)
 ;;00247-0066-04
 ;;9002226.02101,"734,00247-0066-05 ",.01)
 ;;00247-0066-05
 ;;9002226.02101,"734,00247-0066-05 ",.02)
 ;;00247-0066-05
 ;;9002226.02101,"734,00247-0066-10 ",.01)
 ;;00247-0066-10
 ;;9002226.02101,"734,00247-0066-10 ",.02)
 ;;00247-0066-10
 ;;9002226.02101,"734,00247-0066-12 ",.01)
 ;;00247-0066-12
 ;;9002226.02101,"734,00247-0066-12 ",.02)
 ;;00247-0066-12
 ;;9002226.02101,"734,00247-0066-20 ",.01)
 ;;00247-0066-20
 ;;9002226.02101,"734,00247-0066-20 ",.02)
 ;;00247-0066-20
 ;;9002226.02101,"734,00247-0066-21 ",.01)
 ;;00247-0066-21
 ;;9002226.02101,"734,00247-0066-21 ",.02)
 ;;00247-0066-21
 ;;9002226.02101,"734,00247-0066-28 ",.01)
 ;;00247-0066-28
 ;;9002226.02101,"734,00247-0066-28 ",.02)
 ;;00247-0066-28
 ;;9002226.02101,"734,00247-0066-30 ",.01)
 ;;00247-0066-30
 ;;9002226.02101,"734,00247-0066-30 ",.02)
 ;;00247-0066-30
 ;;9002226.02101,"734,00247-0066-40 ",.01)
 ;;00247-0066-40
 ;;9002226.02101,"734,00247-0066-40 ",.02)
 ;;00247-0066-40
 ;;9002226.02101,"734,00247-0066-60 ",.01)
 ;;00247-0066-60
 ;;9002226.02101,"734,00247-0066-60 ",.02)
 ;;00247-0066-60
 ;;9002226.02101,"734,00247-0066-99 ",.01)
 ;;00247-0066-99
 ;;9002226.02101,"734,00247-0066-99 ",.02)
 ;;00247-0066-99
 ;;9002226.02101,"734,00247-0067-00 ",.01)
 ;;00247-0067-00
 ;;9002226.02101,"734,00247-0067-00 ",.02)
 ;;00247-0067-00
 ;;9002226.02101,"734,00247-0067-04 ",.01)
 ;;00247-0067-04
 ;;9002226.02101,"734,00247-0067-04 ",.02)
 ;;00247-0067-04
 ;;9002226.02101,"734,00247-0067-08 ",.01)
 ;;00247-0067-08
 ;;9002226.02101,"734,00247-0067-08 ",.02)
 ;;00247-0067-08
 ;;9002226.02101,"734,00247-0067-10 ",.01)
 ;;00247-0067-10
 ;;9002226.02101,"734,00247-0067-10 ",.02)
 ;;00247-0067-10
 ;;9002226.02101,"734,00247-0067-12 ",.01)
 ;;00247-0067-12
 ;;9002226.02101,"734,00247-0067-12 ",.02)
 ;;00247-0067-12
 ;;9002226.02101,"734,00247-0067-15 ",.01)
 ;;00247-0067-15
 ;;9002226.02101,"734,00247-0067-15 ",.02)
 ;;00247-0067-15
 ;;9002226.02101,"734,00247-0067-16 ",.01)
 ;;00247-0067-16
 ;;9002226.02101,"734,00247-0067-16 ",.02)
 ;;00247-0067-16
 ;;9002226.02101,"734,00247-0067-20 ",.01)
 ;;00247-0067-20
 ;;9002226.02101,"734,00247-0067-20 ",.02)
 ;;00247-0067-20