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

BGP33J27.m

Go to the documentation of this file.
BGP33J27 ;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-0067-21 ",.01)
 ;;00247-0067-21
 ;;9002226.02101,"734,00247-0067-21 ",.02)
 ;;00247-0067-21
 ;;9002226.02101,"734,00247-0067-28 ",.01)
 ;;00247-0067-28
 ;;9002226.02101,"734,00247-0067-28 ",.02)
 ;;00247-0067-28
 ;;9002226.02101,"734,00247-0067-30 ",.01)
 ;;00247-0067-30
 ;;9002226.02101,"734,00247-0067-30 ",.02)
 ;;00247-0067-30
 ;;9002226.02101,"734,00247-0067-40 ",.01)
 ;;00247-0067-40
 ;;9002226.02101,"734,00247-0067-40 ",.02)
 ;;00247-0067-40
 ;;9002226.02101,"734,00247-0067-52 ",.01)
 ;;00247-0067-52
 ;;9002226.02101,"734,00247-0067-52 ",.02)
 ;;00247-0067-52
 ;;9002226.02101,"734,00247-0067-56 ",.01)
 ;;00247-0067-56
 ;;9002226.02101,"734,00247-0067-56 ",.02)
 ;;00247-0067-56
 ;;9002226.02101,"734,00247-0067-60 ",.01)
 ;;00247-0067-60
 ;;9002226.02101,"734,00247-0067-60 ",.02)
 ;;00247-0067-60
 ;;9002226.02101,"734,00247-0067-90 ",.01)
 ;;00247-0067-90
 ;;9002226.02101,"734,00247-0067-90 ",.02)
 ;;00247-0067-90
 ;;9002226.02101,"734,00247-0067-99 ",.01)
 ;;00247-0067-99
 ;;9002226.02101,"734,00247-0067-99 ",.02)
 ;;00247-0067-99
 ;;9002226.02101,"734,00247-0068-01 ",.01)
 ;;00247-0068-01
 ;;9002226.02101,"734,00247-0068-01 ",.02)
 ;;00247-0068-01
 ;;9002226.02101,"734,00247-0068-02 ",.01)
 ;;00247-0068-02
 ;;9002226.02101,"734,00247-0068-02 ",.02)
 ;;00247-0068-02
 ;;9002226.02101,"734,00247-0068-03 ",.01)
 ;;00247-0068-03
 ;;9002226.02101,"734,00247-0068-03 ",.02)
 ;;00247-0068-03
 ;;9002226.02101,"734,00247-0068-04 ",.01)
 ;;00247-0068-04
 ;;9002226.02101,"734,00247-0068-04 ",.02)
 ;;00247-0068-04
 ;;9002226.02101,"734,00247-0068-06 ",.01)
 ;;00247-0068-06
 ;;9002226.02101,"734,00247-0068-06 ",.02)
 ;;00247-0068-06
 ;;9002226.02101,"734,00247-0068-08 ",.01)
 ;;00247-0068-08
 ;;9002226.02101,"734,00247-0068-08 ",.02)
 ;;00247-0068-08
 ;;9002226.02101,"734,00247-0068-10 ",.01)
 ;;00247-0068-10
 ;;9002226.02101,"734,00247-0068-10 ",.02)
 ;;00247-0068-10
 ;;9002226.02101,"734,00247-0068-12 ",.01)
 ;;00247-0068-12
 ;;9002226.02101,"734,00247-0068-12 ",.02)
 ;;00247-0068-12
 ;;9002226.02101,"734,00247-0068-14 ",.01)
 ;;00247-0068-14
 ;;9002226.02101,"734,00247-0068-14 ",.02)
 ;;00247-0068-14
 ;;9002226.02101,"734,00247-0068-15 ",.01)
 ;;00247-0068-15
 ;;9002226.02101,"734,00247-0068-15 ",.02)
 ;;00247-0068-15
 ;;9002226.02101,"734,00247-0068-16 ",.01)
 ;;00247-0068-16
 ;;9002226.02101,"734,00247-0068-16 ",.02)
 ;;00247-0068-16
 ;;9002226.02101,"734,00247-0068-18 ",.01)
 ;;00247-0068-18
 ;;9002226.02101,"734,00247-0068-18 ",.02)
 ;;00247-0068-18
 ;;9002226.02101,"734,00247-0068-20 ",.01)
 ;;00247-0068-20
 ;;9002226.02101,"734,00247-0068-20 ",.02)
 ;;00247-0068-20
 ;;9002226.02101,"734,00247-0068-21 ",.01)
 ;;00247-0068-21
 ;;9002226.02101,"734,00247-0068-21 ",.02)
 ;;00247-0068-21
 ;;9002226.02101,"734,00247-0068-24 ",.01)
 ;;00247-0068-24
 ;;9002226.02101,"734,00247-0068-24 ",.02)
 ;;00247-0068-24
 ;;9002226.02101,"734,00247-0068-25 ",.01)
 ;;00247-0068-25
 ;;9002226.02101,"734,00247-0068-25 ",.02)
 ;;00247-0068-25
 ;;9002226.02101,"734,00247-0068-28 ",.01)
 ;;00247-0068-28
 ;;9002226.02101,"734,00247-0068-28 ",.02)
 ;;00247-0068-28
 ;;9002226.02101,"734,00247-0068-30 ",.01)
 ;;00247-0068-30
 ;;9002226.02101,"734,00247-0068-30 ",.02)
 ;;00247-0068-30
 ;;9002226.02101,"734,00247-0068-32 ",.01)
 ;;00247-0068-32
 ;;9002226.02101,"734,00247-0068-32 ",.02)
 ;;00247-0068-32
 ;;9002226.02101,"734,00247-0068-40 ",.01)
 ;;00247-0068-40
 ;;9002226.02101,"734,00247-0068-40 ",.02)
 ;;00247-0068-40
 ;;9002226.02101,"734,00247-0068-98 ",.01)
 ;;00247-0068-98
 ;;9002226.02101,"734,00247-0068-98 ",.02)
 ;;00247-0068-98
 ;;9002226.02101,"734,00247-0069-02 ",.01)
 ;;00247-0069-02
 ;;9002226.02101,"734,00247-0069-02 ",.02)
 ;;00247-0069-02
 ;;9002226.02101,"734,00247-0077-30 ",.01)
 ;;00247-0077-30
 ;;9002226.02101,"734,00247-0077-30 ",.02)
 ;;00247-0077-30
 ;;9002226.02101,"734,00247-0096-00 ",.01)
 ;;00247-0096-00
 ;;9002226.02101,"734,00247-0096-00 ",.02)
 ;;00247-0096-00
 ;;9002226.02101,"734,00247-0096-05 ",.01)
 ;;00247-0096-05
 ;;9002226.02101,"734,00247-0096-05 ",.02)
 ;;00247-0096-05
 ;;9002226.02101,"734,00247-0096-20 ",.01)
 ;;00247-0096-20
 ;;9002226.02101,"734,00247-0096-20 ",.02)
 ;;00247-0096-20
 ;;9002226.02101,"734,00247-0096-23 ",.01)
 ;;00247-0096-23
 ;;9002226.02101,"734,00247-0096-23 ",.02)
 ;;00247-0096-23
 ;;9002226.02101,"734,00247-0096-30 ",.01)
 ;;00247-0096-30
 ;;9002226.02101,"734,00247-0096-30 ",.02)
 ;;00247-0096-30
 ;;9002226.02101,"734,00247-0096-33 ",.01)
 ;;00247-0096-33
 ;;9002226.02101,"734,00247-0096-33 ",.02)
 ;;00247-0096-33
 ;;9002226.02101,"734,00247-0096-38 ",.01)
 ;;00247-0096-38
 ;;9002226.02101,"734,00247-0096-38 ",.02)
 ;;00247-0096-38
 ;;9002226.02101,"734,00247-0096-49 ",.01)
 ;;00247-0096-49
 ;;9002226.02101,"734,00247-0096-49 ",.02)
 ;;00247-0096-49
 ;;9002226.02101,"734,00247-0096-50 ",.01)
 ;;00247-0096-50
 ;;9002226.02101,"734,00247-0096-50 ",.02)
 ;;00247-0096-50
 ;;9002226.02101,"734,00247-0096-52 ",.01)
 ;;00247-0096-52
 ;;9002226.02101,"734,00247-0096-52 ",.02)
 ;;00247-0096-52
 ;;9002226.02101,"734,00247-0096-59 ",.01)
 ;;00247-0096-59
 ;;9002226.02101,"734,00247-0096-59 ",.02)
 ;;00247-0096-59
 ;;9002226.02101,"734,00247-0096-60 ",.01)
 ;;00247-0096-60
 ;;9002226.02101,"734,00247-0096-60 ",.02)
 ;;00247-0096-60
 ;;9002226.02101,"734,00247-0096-77 ",.01)
 ;;00247-0096-77
 ;;9002226.02101,"734,00247-0096-77 ",.02)
 ;;00247-0096-77
 ;;9002226.02101,"734,00247-0096-78 ",.01)
 ;;00247-0096-78
 ;;9002226.02101,"734,00247-0096-78 ",.02)
 ;;00247-0096-78
 ;;9002226.02101,"734,00247-0096-79 ",.01)
 ;;00247-0096-79
 ;;9002226.02101,"734,00247-0096-79 ",.02)
 ;;00247-0096-79
 ;;9002226.02101,"734,00247-0096-90 ",.01)
 ;;00247-0096-90
 ;;9002226.02101,"734,00247-0096-90 ",.02)
 ;;00247-0096-90
 ;;9002226.02101,"734,00247-0096-95 ",.01)
 ;;00247-0096-95
 ;;9002226.02101,"734,00247-0096-95 ",.02)
 ;;00247-0096-95
 ;;9002226.02101,"734,00247-0104-04 ",.01)
 ;;00247-0104-04
 ;;9002226.02101,"734,00247-0104-04 ",.02)
 ;;00247-0104-04
 ;;9002226.02101,"734,00247-0104-08 ",.01)
 ;;00247-0104-08
 ;;9002226.02101,"734,00247-0104-08 ",.02)
 ;;00247-0104-08
 ;;9002226.02101,"734,00247-0104-14 ",.01)
 ;;00247-0104-14
 ;;9002226.02101,"734,00247-0104-14 ",.02)
 ;;00247-0104-14
 ;;9002226.02101,"734,00247-0104-20 ",.01)
 ;;00247-0104-20
 ;;9002226.02101,"734,00247-0104-20 ",.02)
 ;;00247-0104-20
 ;;9002226.02101,"734,00247-0104-28 ",.01)
 ;;00247-0104-28
 ;;9002226.02101,"734,00247-0104-28 ",.02)
 ;;00247-0104-28
 ;;9002226.02101,"734,00247-0104-30 ",.01)
 ;;00247-0104-30
 ;;9002226.02101,"734,00247-0104-30 ",.02)
 ;;00247-0104-30
 ;;9002226.02101,"734,00247-0104-40 ",.01)
 ;;00247-0104-40
 ;;9002226.02101,"734,00247-0104-40 ",.02)
 ;;00247-0104-40
 ;;9002226.02101,"734,00247-0106-00 ",.01)
 ;;00247-0106-00
 ;;9002226.02101,"734,00247-0106-00 ",.02)
 ;;00247-0106-00
 ;;9002226.02101,"734,00247-0106-79 ",.01)
 ;;00247-0106-79
 ;;9002226.02101,"734,00247-0106-79 ",.02)
 ;;00247-0106-79
 ;;9002226.02101,"734,00247-0110-01 ",.01)
 ;;00247-0110-01
 ;;9002226.02101,"734,00247-0110-01 ",.02)
 ;;00247-0110-01
 ;;9002226.02101,"734,00247-0110-04 ",.01)
 ;;00247-0110-04
 ;;9002226.02101,"734,00247-0110-04 ",.02)
 ;;00247-0110-04
 ;;9002226.02101,"734,00247-0110-08 ",.01)
 ;;00247-0110-08
 ;;9002226.02101,"734,00247-0110-08 ",.02)
 ;;00247-0110-08
 ;;9002226.02101,"734,00247-0110-10 ",.01)
 ;;00247-0110-10
 ;;9002226.02101,"734,00247-0110-10 ",.02)
 ;;00247-0110-10
 ;;9002226.02101,"734,00247-0110-12 ",.01)
 ;;00247-0110-12
 ;;9002226.02101,"734,00247-0110-12 ",.02)
 ;;00247-0110-12
 ;;9002226.02101,"734,00247-0110-20 ",.01)
 ;;00247-0110-20
 ;;9002226.02101,"734,00247-0110-20 ",.02)
 ;;00247-0110-20
 ;;9002226.02101,"734,00247-0110-21 ",.01)
 ;;00247-0110-21
 ;;9002226.02101,"734,00247-0110-21 ",.02)
 ;;00247-0110-21
 ;;9002226.02101,"734,00247-0110-24 ",.01)
 ;;00247-0110-24
 ;;9002226.02101,"734,00247-0110-24 ",.02)
 ;;00247-0110-24
 ;;9002226.02101,"734,00247-0110-28 ",.01)
 ;;00247-0110-28
 ;;9002226.02101,"734,00247-0110-28 ",.02)
 ;;00247-0110-28
 ;;9002226.02101,"734,00247-0110-30 ",.01)
 ;;00247-0110-30
 ;;9002226.02101,"734,00247-0110-30 ",.02)
 ;;00247-0110-30
 ;;9002226.02101,"734,00247-0110-40 ",.01)
 ;;00247-0110-40
 ;;9002226.02101,"734,00247-0110-40 ",.02)
 ;;00247-0110-40
 ;;9002226.02101,"734,00247-0110-56 ",.01)
 ;;00247-0110-56
 ;;9002226.02101,"734,00247-0110-56 ",.02)
 ;;00247-0110-56
 ;;9002226.02101,"734,00247-0110-98 ",.01)
 ;;00247-0110-98
 ;;9002226.02101,"734,00247-0110-98 ",.02)
 ;;00247-0110-98
 ;;9002226.02101,"734,00247-0115-02 ",.01)
 ;;00247-0115-02
 ;;9002226.02101,"734,00247-0115-02 ",.02)
 ;;00247-0115-02
 ;;9002226.02101,"734,00247-0115-03 ",.01)
 ;;00247-0115-03
 ;;9002226.02101,"734,00247-0115-03 ",.02)
 ;;00247-0115-03
 ;;9002226.02101,"734,00247-0115-04 ",.01)
 ;;00247-0115-04
 ;;9002226.02101,"734,00247-0115-04 ",.02)
 ;;00247-0115-04
 ;;9002226.02101,"734,00247-0115-08 ",.01)
 ;;00247-0115-08
 ;;9002226.02101,"734,00247-0115-08 ",.02)
 ;;00247-0115-08
 ;;9002226.02101,"734,00247-0115-10 ",.01)
 ;;00247-0115-10
 ;;9002226.02101,"734,00247-0115-10 ",.02)
 ;;00247-0115-10
 ;;9002226.02101,"734,00247-0115-14 ",.01)
 ;;00247-0115-14
 ;;9002226.02101,"734,00247-0115-14 ",.02)
 ;;00247-0115-14
 ;;9002226.02101,"734,00247-0115-20 ",.01)
 ;;00247-0115-20
 ;;9002226.02101,"734,00247-0115-20 ",.02)
 ;;00247-0115-20
 ;;9002226.02101,"734,00247-0115-28 ",.01)
 ;;00247-0115-28
 ;;9002226.02101,"734,00247-0115-28 ",.02)
 ;;00247-0115-28
 ;;9002226.02101,"734,00247-0116-02 ",.01)
 ;;00247-0116-02
 ;;9002226.02101,"734,00247-0116-02 ",.02)
 ;;00247-0116-02
 ;;9002226.02101,"734,00247-0116-03 ",.01)
 ;;00247-0116-03
 ;;9002226.02101,"734,00247-0116-03 ",.02)
 ;;00247-0116-03
 ;;9002226.02101,"734,00247-0116-04 ",.01)
 ;;00247-0116-04
 ;;9002226.02101,"734,00247-0116-04 ",.02)
 ;;00247-0116-04
 ;;9002226.02101,"734,00247-0116-05 ",.01)
 ;;00247-0116-05
 ;;9002226.02101,"734,00247-0116-05 ",.02)
 ;;00247-0116-05
 ;;9002226.02101,"734,00247-0116-06 ",.01)
 ;;00247-0116-06
 ;;9002226.02101,"734,00247-0116-06 ",.02)
 ;;00247-0116-06
 ;;9002226.02101,"734,00247-0116-09 ",.01)
 ;;00247-0116-09
 ;;9002226.02101,"734,00247-0116-09 ",.02)
 ;;00247-0116-09
 ;;9002226.02101,"734,00247-0116-15 ",.01)
 ;;00247-0116-15
 ;;9002226.02101,"734,00247-0116-15 ",.02)
 ;;00247-0116-15
 ;;9002226.02101,"734,00247-0116-20 ",.01)
 ;;00247-0116-20
 ;;9002226.02101,"734,00247-0116-20 ",.02)
 ;;00247-0116-20
 ;;9002226.02101,"734,00247-0116-21 ",.01)
 ;;00247-0116-21
 ;;9002226.02101,"734,00247-0116-21 ",.02)
 ;;00247-0116-21
 ;;9002226.02101,"734,00247-0116-28 ",.01)
 ;;00247-0116-28
 ;;9002226.02101,"734,00247-0116-28 ",.02)
 ;;00247-0116-28
 ;;9002226.02101,"734,00247-0116-30 ",.01)
 ;;00247-0116-30
 ;;9002226.02101,"734,00247-0116-30 ",.02)
 ;;00247-0116-30
 ;;9002226.02101,"734,00247-0116-40 ",.01)
 ;;00247-0116-40
 ;;9002226.02101,"734,00247-0116-40 ",.02)
 ;;00247-0116-40
 ;;9002226.02101,"734,00247-0116-42 ",.01)
 ;;00247-0116-42
 ;;9002226.02101,"734,00247-0116-42 ",.02)
 ;;00247-0116-42
 ;;9002226.02101,"734,00247-0129-03 ",.01)
 ;;00247-0129-03
 ;;9002226.02101,"734,00247-0129-03 ",.02)
 ;;00247-0129-03
 ;;9002226.02101,"734,00247-0129-04 ",.01)
 ;;00247-0129-04
 ;;9002226.02101,"734,00247-0129-04 ",.02)
 ;;00247-0129-04
 ;;9002226.02101,"734,00247-0129-06 ",.01)
 ;;00247-0129-06
 ;;9002226.02101,"734,00247-0129-06 ",.02)
 ;;00247-0129-06
 ;;9002226.02101,"734,00247-0129-08 ",.01)
 ;;00247-0129-08
 ;;9002226.02101,"734,00247-0129-08 ",.02)
 ;;00247-0129-08
 ;;9002226.02101,"734,00247-0129-12 ",.01)
 ;;00247-0129-12
 ;;9002226.02101,"734,00247-0129-12 ",.02)
 ;;00247-0129-12
 ;;9002226.02101,"734,00247-0129-20 ",.01)
 ;;00247-0129-20
 ;;9002226.02101,"734,00247-0129-20 ",.02)
 ;;00247-0129-20
 ;;9002226.02101,"734,00247-0129-28 ",.01)
 ;;00247-0129-28
 ;;9002226.02101,"734,00247-0129-28 ",.02)
 ;;00247-0129-28
 ;;9002226.02101,"734,00247-0129-30 ",.01)
 ;;00247-0129-30
 ;;9002226.02101,"734,00247-0129-30 ",.02)
 ;;00247-0129-30
 ;;9002226.02101,"734,00247-0129-40 ",.01)
 ;;00247-0129-40
 ;;9002226.02101,"734,00247-0129-40 ",.02)
 ;;00247-0129-40
 ;;9002226.02101,"734,00247-0156-01 ",.01)
 ;;00247-0156-01
 ;;9002226.02101,"734,00247-0156-01 ",.02)
 ;;00247-0156-01
 ;;9002226.02101,"734,00247-0156-03 ",.01)
 ;;00247-0156-03
 ;;9002226.02101,"734,00247-0156-03 ",.02)
 ;;00247-0156-03
 ;;9002226.02101,"734,00247-0156-04 ",.01)
 ;;00247-0156-04
 ;;9002226.02101,"734,00247-0156-04 ",.02)
 ;;00247-0156-04
 ;;9002226.02101,"734,00247-0156-12 ",.01)
 ;;00247-0156-12
 ;;9002226.02101,"734,00247-0156-12 ",.02)
 ;;00247-0156-12
 ;;9002226.02101,"734,00247-0156-15 ",.01)
 ;;00247-0156-15
 ;;9002226.02101,"734,00247-0156-15 ",.02)
 ;;00247-0156-15
 ;;9002226.02101,"734,00247-0156-16 ",.01)
 ;;00247-0156-16
 ;;9002226.02101,"734,00247-0156-16 ",.02)
 ;;00247-0156-16
 ;;9002226.02101,"734,00247-0156-20 ",.01)
 ;;00247-0156-20
 ;;9002226.02101,"734,00247-0156-20 ",.02)
 ;;00247-0156-20
 ;;9002226.02101,"734,00247-0156-21 ",.01)
 ;;00247-0156-21
 ;;9002226.02101,"734,00247-0156-21 ",.02)
 ;;00247-0156-21
 ;;9002226.02101,"734,00247-0156-28 ",.01)
 ;;00247-0156-28
 ;;9002226.02101,"734,00247-0156-28 ",.02)
 ;;00247-0156-28
 ;;9002226.02101,"734,00247-0156-29 ",.01)
 ;;00247-0156-29
 ;;9002226.02101,"734,00247-0156-29 ",.02)
 ;;00247-0156-29