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

BGP0ZD26.m

Go to the documentation of this file.
BGP0ZD26 ;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,"976,55289-0445-60 ",.02)
 ;;55289-0445-60
 ;;9002226.02101,"976,55289-0451-14 ",.01)
 ;;55289-0451-14
 ;;9002226.02101,"976,55289-0451-14 ",.02)
 ;;55289-0451-14
 ;;9002226.02101,"976,55289-0451-20 ",.01)
 ;;55289-0451-20
 ;;9002226.02101,"976,55289-0451-20 ",.02)
 ;;55289-0451-20
 ;;9002226.02101,"976,55289-0453-14 ",.01)
 ;;55289-0453-14
 ;;9002226.02101,"976,55289-0453-14 ",.02)
 ;;55289-0453-14
 ;;9002226.02101,"976,55289-0453-15 ",.01)
 ;;55289-0453-15
 ;;9002226.02101,"976,55289-0453-15 ",.02)
 ;;55289-0453-15
 ;;9002226.02101,"976,55289-0453-30 ",.01)
 ;;55289-0453-30
 ;;9002226.02101,"976,55289-0453-30 ",.02)
 ;;55289-0453-30
 ;;9002226.02101,"976,55289-0453-40 ",.01)
 ;;55289-0453-40
 ;;9002226.02101,"976,55289-0453-40 ",.02)
 ;;55289-0453-40
 ;;9002226.02101,"976,55289-0453-42 ",.01)
 ;;55289-0453-42
 ;;9002226.02101,"976,55289-0453-42 ",.02)
 ;;55289-0453-42
 ;;9002226.02101,"976,55289-0453-60 ",.01)
 ;;55289-0453-60
 ;;9002226.02101,"976,55289-0453-60 ",.02)
 ;;55289-0453-60
 ;;9002226.02101,"976,55289-0460-10 ",.01)
 ;;55289-0460-10
 ;;9002226.02101,"976,55289-0460-10 ",.02)
 ;;55289-0460-10
 ;;9002226.02101,"976,55289-0460-15 ",.01)
 ;;55289-0460-15
 ;;9002226.02101,"976,55289-0460-15 ",.02)
 ;;55289-0460-15
 ;;9002226.02101,"976,55289-0460-20 ",.01)
 ;;55289-0460-20
 ;;9002226.02101,"976,55289-0460-20 ",.02)
 ;;55289-0460-20
 ;;9002226.02101,"976,55289-0460-30 ",.01)
 ;;55289-0460-30
 ;;9002226.02101,"976,55289-0460-30 ",.02)
 ;;55289-0460-30
 ;;9002226.02101,"976,55289-0467-06 ",.01)
 ;;55289-0467-06
 ;;9002226.02101,"976,55289-0467-06 ",.02)
 ;;55289-0467-06
 ;;9002226.02101,"976,55289-0467-10 ",.01)
 ;;55289-0467-10
 ;;9002226.02101,"976,55289-0467-10 ",.02)
 ;;55289-0467-10
 ;;9002226.02101,"976,55289-0467-21 ",.01)
 ;;55289-0467-21
 ;;9002226.02101,"976,55289-0467-21 ",.02)
 ;;55289-0467-21
 ;;9002226.02101,"976,55289-0467-30 ",.01)
 ;;55289-0467-30
 ;;9002226.02101,"976,55289-0467-30 ",.02)
 ;;55289-0467-30
 ;;9002226.02101,"976,55289-0469-10 ",.01)
 ;;55289-0469-10
 ;;9002226.02101,"976,55289-0469-10 ",.02)
 ;;55289-0469-10
 ;;9002226.02101,"976,55289-0469-14 ",.01)
 ;;55289-0469-14
 ;;9002226.02101,"976,55289-0469-14 ",.02)
 ;;55289-0469-14
 ;;9002226.02101,"976,55289-0469-15 ",.01)
 ;;55289-0469-15
 ;;9002226.02101,"976,55289-0469-15 ",.02)
 ;;55289-0469-15
 ;;9002226.02101,"976,55289-0469-20 ",.01)
 ;;55289-0469-20
 ;;9002226.02101,"976,55289-0469-20 ",.02)
 ;;55289-0469-20
 ;;9002226.02101,"976,55289-0469-30 ",.01)
 ;;55289-0469-30
 ;;9002226.02101,"976,55289-0469-30 ",.02)
 ;;55289-0469-30
 ;;9002226.02101,"976,55289-0471-07 ",.01)
 ;;55289-0471-07
 ;;9002226.02101,"976,55289-0471-07 ",.02)
 ;;55289-0471-07
 ;;9002226.02101,"976,55289-0471-10 ",.01)
 ;;55289-0471-10
 ;;9002226.02101,"976,55289-0471-10 ",.02)
 ;;55289-0471-10
 ;;9002226.02101,"976,55289-0471-14 ",.01)
 ;;55289-0471-14
 ;;9002226.02101,"976,55289-0471-14 ",.02)
 ;;55289-0471-14
 ;;9002226.02101,"976,55289-0471-30 ",.01)
 ;;55289-0471-30
 ;;9002226.02101,"976,55289-0471-30 ",.02)
 ;;55289-0471-30
 ;;9002226.02101,"976,55289-0475-10 ",.01)
 ;;55289-0475-10
 ;;9002226.02101,"976,55289-0475-10 ",.02)
 ;;55289-0475-10
 ;;9002226.02101,"976,55289-0475-14 ",.01)
 ;;55289-0475-14
 ;;9002226.02101,"976,55289-0475-14 ",.02)
 ;;55289-0475-14
 ;;9002226.02101,"976,55289-0475-20 ",.01)
 ;;55289-0475-20
 ;;9002226.02101,"976,55289-0475-20 ",.02)
 ;;55289-0475-20
 ;;9002226.02101,"976,55289-0475-28 ",.01)
 ;;55289-0475-28
 ;;9002226.02101,"976,55289-0475-28 ",.02)
 ;;55289-0475-28
 ;;9002226.02101,"976,55289-0475-60 ",.01)
 ;;55289-0475-60
 ;;9002226.02101,"976,55289-0475-60 ",.02)
 ;;55289-0475-60
 ;;9002226.02101,"976,55289-0501-30 ",.01)
 ;;55289-0501-30
 ;;9002226.02101,"976,55289-0501-30 ",.02)
 ;;55289-0501-30
 ;;9002226.02101,"976,55289-0515-10 ",.01)
 ;;55289-0515-10
 ;;9002226.02101,"976,55289-0515-10 ",.02)
 ;;55289-0515-10
 ;;9002226.02101,"976,55289-0526-14 ",.01)
 ;;55289-0526-14
 ;;9002226.02101,"976,55289-0526-14 ",.02)
 ;;55289-0526-14
 ;;9002226.02101,"976,55289-0526-28 ",.01)
 ;;55289-0526-28
 ;;9002226.02101,"976,55289-0526-28 ",.02)
 ;;55289-0526-28
 ;;9002226.02101,"976,55289-0526-42 ",.01)
 ;;55289-0526-42
 ;;9002226.02101,"976,55289-0526-42 ",.02)
 ;;55289-0526-42
 ;;9002226.02101,"976,55289-0541-14 ",.01)
 ;;55289-0541-14
 ;;9002226.02101,"976,55289-0541-14 ",.02)
 ;;55289-0541-14
 ;;9002226.02101,"976,55289-0541-30 ",.01)
 ;;55289-0541-30
 ;;9002226.02101,"976,55289-0541-30 ",.02)
 ;;55289-0541-30
 ;;9002226.02101,"976,55289-0561-10 ",.01)
 ;;55289-0561-10
 ;;9002226.02101,"976,55289-0561-10 ",.02)
 ;;55289-0561-10
 ;;9002226.02101,"976,55289-0561-15 ",.01)
 ;;55289-0561-15
 ;;9002226.02101,"976,55289-0561-15 ",.02)
 ;;55289-0561-15
 ;;9002226.02101,"976,55289-0561-30 ",.01)
 ;;55289-0561-30
 ;;9002226.02101,"976,55289-0561-30 ",.02)
 ;;55289-0561-30
 ;;9002226.02101,"976,55289-0574-10 ",.01)
 ;;55289-0574-10
 ;;9002226.02101,"976,55289-0574-10 ",.02)
 ;;55289-0574-10
 ;;9002226.02101,"976,55289-0574-15 ",.01)
 ;;55289-0574-15
 ;;9002226.02101,"976,55289-0574-15 ",.02)
 ;;55289-0574-15
 ;;9002226.02101,"976,55289-0590-08 ",.01)
 ;;55289-0590-08
 ;;9002226.02101,"976,55289-0590-08 ",.02)
 ;;55289-0590-08
 ;;9002226.02101,"976,55289-0590-10 ",.01)
 ;;55289-0590-10
 ;;9002226.02101,"976,55289-0590-10 ",.02)
 ;;55289-0590-10
 ;;9002226.02101,"976,55289-0590-12 ",.01)
 ;;55289-0590-12
 ;;9002226.02101,"976,55289-0590-12 ",.02)
 ;;55289-0590-12
 ;;9002226.02101,"976,55289-0590-15 ",.01)
 ;;55289-0590-15
 ;;9002226.02101,"976,55289-0590-15 ",.02)
 ;;55289-0590-15
 ;;9002226.02101,"976,55289-0590-20 ",.01)
 ;;55289-0590-20
 ;;9002226.02101,"976,55289-0590-20 ",.02)
 ;;55289-0590-20
 ;;9002226.02101,"976,55289-0590-21 ",.01)
 ;;55289-0590-21
 ;;9002226.02101,"976,55289-0590-21 ",.02)
 ;;55289-0590-21
 ;;9002226.02101,"976,55289-0590-30 ",.01)
 ;;55289-0590-30
 ;;9002226.02101,"976,55289-0590-30 ",.02)
 ;;55289-0590-30
 ;;9002226.02101,"976,55289-0590-36 ",.01)
 ;;55289-0590-36
 ;;9002226.02101,"976,55289-0590-36 ",.02)
 ;;55289-0590-36
 ;;9002226.02101,"976,55289-0590-40 ",.01)
 ;;55289-0590-40
 ;;9002226.02101,"976,55289-0590-40 ",.02)
 ;;55289-0590-40
 ;;9002226.02101,"976,55289-0590-60 ",.01)
 ;;55289-0590-60
 ;;9002226.02101,"976,55289-0590-60 ",.02)
 ;;55289-0590-60
 ;;9002226.02101,"976,55289-0590-90 ",.01)
 ;;55289-0590-90
 ;;9002226.02101,"976,55289-0590-90 ",.02)
 ;;55289-0590-90
 ;;9002226.02101,"976,55289-0595-10 ",.01)
 ;;55289-0595-10
 ;;9002226.02101,"976,55289-0595-10 ",.02)
 ;;55289-0595-10
 ;;9002226.02101,"976,55289-0595-15 ",.01)
 ;;55289-0595-15
 ;;9002226.02101,"976,55289-0595-15 ",.02)
 ;;55289-0595-15
 ;;9002226.02101,"976,55289-0595-20 ",.01)
 ;;55289-0595-20
 ;;9002226.02101,"976,55289-0595-20 ",.02)
 ;;55289-0595-20
 ;;9002226.02101,"976,55289-0595-30 ",.01)
 ;;55289-0595-30
 ;;9002226.02101,"976,55289-0595-30 ",.02)
 ;;55289-0595-30
 ;;9002226.02101,"976,55289-0601-20 ",.01)
 ;;55289-0601-20
 ;;9002226.02101,"976,55289-0601-20 ",.02)
 ;;55289-0601-20
 ;;9002226.02101,"976,55289-0601-30 ",.01)
 ;;55289-0601-30
 ;;9002226.02101,"976,55289-0601-30 ",.02)
 ;;55289-0601-30
 ;;9002226.02101,"976,55289-0609-30 ",.01)
 ;;55289-0609-30
 ;;9002226.02101,"976,55289-0609-30 ",.02)
 ;;55289-0609-30
 ;;9002226.02101,"976,55289-0611-20 ",.01)
 ;;55289-0611-20
 ;;9002226.02101,"976,55289-0611-20 ",.02)
 ;;55289-0611-20
 ;;9002226.02101,"976,55289-0611-30 ",.01)
 ;;55289-0611-30
 ;;9002226.02101,"976,55289-0611-30 ",.02)
 ;;55289-0611-30
 ;;9002226.02101,"976,55289-0618-14 ",.01)
 ;;55289-0618-14
 ;;9002226.02101,"976,55289-0618-14 ",.02)
 ;;55289-0618-14
 ;;9002226.02101,"976,55289-0644-12 ",.01)
 ;;55289-0644-12
 ;;9002226.02101,"976,55289-0644-12 ",.02)
 ;;55289-0644-12
 ;;9002226.02101,"976,55289-0644-20 ",.01)
 ;;55289-0644-20
 ;;9002226.02101,"976,55289-0644-20 ",.02)
 ;;55289-0644-20
 ;;9002226.02101,"976,55289-0654-60 ",.01)
 ;;55289-0654-60
 ;;9002226.02101,"976,55289-0654-60 ",.02)
 ;;55289-0654-60
 ;;9002226.02101,"976,55289-0663-01 ",.01)
 ;;55289-0663-01
 ;;9002226.02101,"976,55289-0663-01 ",.02)
 ;;55289-0663-01
 ;;9002226.02101,"976,55289-0663-20 ",.01)
 ;;55289-0663-20
 ;;9002226.02101,"976,55289-0663-20 ",.02)
 ;;55289-0663-20
 ;;9002226.02101,"976,55289-0663-30 ",.01)
 ;;55289-0663-30
 ;;9002226.02101,"976,55289-0663-30 ",.02)
 ;;55289-0663-30
 ;;9002226.02101,"976,55289-0693-14 ",.01)
 ;;55289-0693-14
 ;;9002226.02101,"976,55289-0693-14 ",.02)
 ;;55289-0693-14
 ;;9002226.02101,"976,55289-0693-15 ",.01)
 ;;55289-0693-15
 ;;9002226.02101,"976,55289-0693-15 ",.02)
 ;;55289-0693-15
 ;;9002226.02101,"976,55289-0693-30 ",.01)
 ;;55289-0693-30
 ;;9002226.02101,"976,55289-0693-30 ",.02)
 ;;55289-0693-30
 ;;9002226.02101,"976,55289-0721-20 ",.01)
 ;;55289-0721-20
 ;;9002226.02101,"976,55289-0721-20 ",.02)
 ;;55289-0721-20
 ;;9002226.02101,"976,55289-0721-30 ",.01)
 ;;55289-0721-30
 ;;9002226.02101,"976,55289-0721-30 ",.02)
 ;;55289-0721-30
 ;;9002226.02101,"976,55289-0739-14 ",.01)
 ;;55289-0739-14
 ;;9002226.02101,"976,55289-0739-14 ",.02)
 ;;55289-0739-14
 ;;9002226.02101,"976,55289-0759-08 ",.01)
 ;;55289-0759-08
 ;;9002226.02101,"976,55289-0759-08 ",.02)
 ;;55289-0759-08
 ;;9002226.02101,"976,55289-0759-30 ",.01)
 ;;55289-0759-30
 ;;9002226.02101,"976,55289-0759-30 ",.02)
 ;;55289-0759-30
 ;;9002226.02101,"976,55289-0759-36 ",.01)
 ;;55289-0759-36
 ;;9002226.02101,"976,55289-0759-36 ",.02)
 ;;55289-0759-36
 ;;9002226.02101,"976,55289-0781-21 ",.01)
 ;;55289-0781-21
 ;;9002226.02101,"976,55289-0781-21 ",.02)
 ;;55289-0781-21
 ;;9002226.02101,"976,55289-0837-10 ",.01)
 ;;55289-0837-10
 ;;9002226.02101,"976,55289-0837-10 ",.02)
 ;;55289-0837-10
 ;;9002226.02101,"976,55289-0837-20 ",.01)
 ;;55289-0837-20
 ;;9002226.02101,"976,55289-0837-20 ",.02)
 ;;55289-0837-20
 ;;9002226.02101,"976,55289-0930-10 ",.01)
 ;;55289-0930-10
 ;;9002226.02101,"976,55289-0930-10 ",.02)
 ;;55289-0930-10
 ;;9002226.02101,"976,55289-0930-14 ",.01)
 ;;55289-0930-14
 ;;9002226.02101,"976,55289-0930-14 ",.02)
 ;;55289-0930-14
 ;;9002226.02101,"976,55289-0930-20 ",.01)
 ;;55289-0930-20
 ;;9002226.02101,"976,55289-0930-20 ",.02)
 ;;55289-0930-20
 ;;9002226.02101,"976,55289-0977-17 ",.01)
 ;;55289-0977-17
 ;;9002226.02101,"976,55289-0977-17 ",.02)
 ;;55289-0977-17
 ;;9002226.02101,"976,55289-0985-08 ",.01)
 ;;55289-0985-08
 ;;9002226.02101,"976,55289-0985-08 ",.02)
 ;;55289-0985-08
 ;;9002226.02101,"976,55289-0985-15 ",.01)
 ;;55289-0985-15
 ;;9002226.02101,"976,55289-0985-15 ",.02)
 ;;55289-0985-15
 ;;9002226.02101,"976,55289-0985-20 ",.01)
 ;;55289-0985-20
 ;;9002226.02101,"976,55289-0985-20 ",.02)
 ;;55289-0985-20
 ;;9002226.02101,"976,55289-0985-30 ",.01)
 ;;55289-0985-30
 ;;9002226.02101,"976,55289-0985-30 ",.02)
 ;;55289-0985-30
 ;;9002226.02101,"976,55289-0985-40 ",.01)
 ;;55289-0985-40
 ;;9002226.02101,"976,55289-0985-40 ",.02)
 ;;55289-0985-40
 ;;9002226.02101,"976,55289-0992-20 ",.01)
 ;;55289-0992-20
 ;;9002226.02101,"976,55289-0992-20 ",.02)
 ;;55289-0992-20
 ;;9002226.02101,"976,55289-0992-21 ",.01)
 ;;55289-0992-21
 ;;9002226.02101,"976,55289-0992-21 ",.02)
 ;;55289-0992-21
 ;;9002226.02101,"976,55289-0992-30 ",.01)
 ;;55289-0992-30
 ;;9002226.02101,"976,55289-0992-30 ",.02)
 ;;55289-0992-30
 ;;9002226.02101,"976,55289-0992-42 ",.01)
 ;;55289-0992-42
 ;;9002226.02101,"976,55289-0992-42 ",.02)
 ;;55289-0992-42
 ;;9002226.02101,"976,55289-0992-60 ",.01)
 ;;55289-0992-60
 ;;9002226.02101,"976,55289-0992-60 ",.02)
 ;;55289-0992-60
 ;;9002226.02101,"976,55370-0139-03 ",.01)
 ;;55370-0139-03
 ;;9002226.02101,"976,55370-0139-03 ",.02)
 ;;55370-0139-03
 ;;9002226.02101,"976,55370-0139-05 ",.01)
 ;;55370-0139-05
 ;;9002226.02101,"976,55370-0139-05 ",.02)
 ;;55370-0139-05
 ;;9002226.02101,"976,55370-0140-03 ",.01)
 ;;55370-0140-03
 ;;9002226.02101,"976,55370-0140-03 ",.02)
 ;;55370-0140-03
 ;;9002226.02101,"976,55370-0140-05 ",.01)
 ;;55370-0140-05
 ;;9002226.02101,"976,55370-0140-05 ",.02)
 ;;55370-0140-05
 ;;9002226.02101,"976,55370-0141-03 ",.01)
 ;;55370-0141-03
 ;;9002226.02101,"976,55370-0141-03 ",.02)
 ;;55370-0141-03
 ;;9002226.02101,"976,55370-0141-05 ",.01)
 ;;55370-0141-05
 ;;9002226.02101,"976,55370-0141-05 ",.02)
 ;;55370-0141-05
 ;;9002226.02101,"976,55370-0552-07 ",.01)
 ;;55370-0552-07
 ;;9002226.02101,"976,55370-0552-07 ",.02)
 ;;55370-0552-07
 ;;9002226.02101,"976,55370-0552-08 ",.01)
 ;;55370-0552-08
 ;;9002226.02101,"976,55370-0552-08 ",.02)
 ;;55370-0552-08
 ;;9002226.02101,"976,55390-0480-01 ",.01)
 ;;55390-0480-01
 ;;9002226.02101,"976,55390-0480-01 ",.02)
 ;;55390-0480-01
 ;;9002226.02101,"976,55390-0481-01 ",.01)
 ;;55390-0481-01
 ;;9002226.02101,"976,55390-0481-01 ",.02)
 ;;55390-0481-01
 ;;9002226.02101,"976,55390-0481-02 ",.01)
 ;;55390-0481-02
 ;;9002226.02101,"976,55390-0481-02 ",.02)
 ;;55390-0481-02
 ;;9002226.02101,"976,55390-0481-10 ",.01)
 ;;55390-0481-10
 ;;9002226.02101,"976,55390-0481-10 ",.02)
 ;;55390-0481-10
 ;;9002226.02101,"976,55887-0410-20 ",.01)
 ;;55887-0410-20
 ;;9002226.02101,"976,55887-0410-20 ",.02)
 ;;55887-0410-20
 ;;9002226.02101,"976,55887-0410-30 ",.01)
 ;;55887-0410-30
 ;;9002226.02101,"976,55887-0410-30 ",.02)
 ;;55887-0410-30
 ;;9002226.02101,"976,55887-0410-60 ",.01)
 ;;55887-0410-60
 ;;9002226.02101,"976,55887-0410-60 ",.02)
 ;;55887-0410-60
 ;;9002226.02101,"976,55887-0410-82 ",.01)
 ;;55887-0410-82