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

BGP33I41.m

Go to the documentation of this file.
BGP33I41 ;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,"798,55887-0663-90 ",.02)
 ;;55887-0663-90
 ;;9002226.02101,"798,55887-0664-30 ",.01)
 ;;55887-0664-30
 ;;9002226.02101,"798,55887-0664-30 ",.02)
 ;;55887-0664-30
 ;;9002226.02101,"798,55887-0664-90 ",.01)
 ;;55887-0664-90
 ;;9002226.02101,"798,55887-0664-90 ",.02)
 ;;55887-0664-90
 ;;9002226.02101,"798,55887-0745-50 ",.01)
 ;;55887-0745-50
 ;;9002226.02101,"798,55887-0745-50 ",.02)
 ;;55887-0745-50
 ;;9002226.02101,"798,55887-0871-30 ",.01)
 ;;55887-0871-30
 ;;9002226.02101,"798,55887-0871-30 ",.02)
 ;;55887-0871-30
 ;;9002226.02101,"798,55887-0871-60 ",.01)
 ;;55887-0871-60
 ;;9002226.02101,"798,55887-0871-60 ",.02)
 ;;55887-0871-60
 ;;9002226.02101,"798,55887-0925-30 ",.01)
 ;;55887-0925-30
 ;;9002226.02101,"798,55887-0925-30 ",.02)
 ;;55887-0925-30
 ;;9002226.02101,"798,55887-0925-60 ",.01)
 ;;55887-0925-60
 ;;9002226.02101,"798,55887-0925-60 ",.02)
 ;;55887-0925-60
 ;;9002226.02101,"798,55887-0925-82 ",.01)
 ;;55887-0925-82
 ;;9002226.02101,"798,55887-0925-82 ",.02)
 ;;55887-0925-82
 ;;9002226.02101,"798,55887-0925-90 ",.01)
 ;;55887-0925-90
 ;;9002226.02101,"798,55887-0925-90 ",.02)
 ;;55887-0925-90
 ;;9002226.02101,"798,55887-0947-07 ",.01)
 ;;55887-0947-07
 ;;9002226.02101,"798,55887-0947-07 ",.02)
 ;;55887-0947-07
 ;;9002226.02101,"798,55887-0947-30 ",.01)
 ;;55887-0947-30
 ;;9002226.02101,"798,55887-0947-30 ",.02)
 ;;55887-0947-30
 ;;9002226.02101,"798,55887-0967-30 ",.01)
 ;;55887-0967-30
 ;;9002226.02101,"798,55887-0967-30 ",.02)
 ;;55887-0967-30
 ;;9002226.02101,"798,57664-0357-88 ",.01)
 ;;57664-0357-88
 ;;9002226.02101,"798,57664-0357-88 ",.02)
 ;;57664-0357-88
 ;;9002226.02101,"798,57664-0361-13 ",.01)
 ;;57664-0361-13
 ;;9002226.02101,"798,57664-0361-13 ",.02)
 ;;57664-0361-13
 ;;9002226.02101,"798,57664-0361-88 ",.01)
 ;;57664-0361-88
 ;;9002226.02101,"798,57664-0361-88 ",.02)
 ;;57664-0361-88
 ;;9002226.02101,"798,57664-0362-13 ",.01)
 ;;57664-0362-13
 ;;9002226.02101,"798,57664-0362-13 ",.02)
 ;;57664-0362-13
 ;;9002226.02101,"798,57664-0362-88 ",.01)
 ;;57664-0362-88
 ;;9002226.02101,"798,57664-0362-88 ",.02)
 ;;57664-0362-88
 ;;9002226.02101,"798,57664-0421-13 ",.01)
 ;;57664-0421-13
 ;;9002226.02101,"798,57664-0421-13 ",.02)
 ;;57664-0421-13
 ;;9002226.02101,"798,57664-0421-83 ",.01)
 ;;57664-0421-83
 ;;9002226.02101,"798,57664-0421-83 ",.02)
 ;;57664-0421-83
 ;;9002226.02101,"798,57664-0421-99 ",.01)
 ;;57664-0421-99
 ;;9002226.02101,"798,57664-0421-99 ",.02)
 ;;57664-0421-99
 ;;9002226.02101,"798,57664-0422-13 ",.01)
 ;;57664-0422-13
 ;;9002226.02101,"798,57664-0422-13 ",.02)
 ;;57664-0422-13
 ;;9002226.02101,"798,57664-0422-18 ",.01)
 ;;57664-0422-18
 ;;9002226.02101,"798,57664-0422-18 ",.02)
 ;;57664-0422-18
 ;;9002226.02101,"798,57664-0422-83 ",.01)
 ;;57664-0422-83
 ;;9002226.02101,"798,57664-0422-83 ",.02)
 ;;57664-0422-83
 ;;9002226.02101,"798,57664-0422-99 ",.01)
 ;;57664-0422-99
 ;;9002226.02101,"798,57664-0422-99 ",.02)
 ;;57664-0422-99
 ;;9002226.02101,"798,57664-0424-13 ",.01)
 ;;57664-0424-13
 ;;9002226.02101,"798,57664-0424-13 ",.02)
 ;;57664-0424-13
 ;;9002226.02101,"798,57664-0424-83 ",.01)
 ;;57664-0424-83
 ;;9002226.02101,"798,57664-0424-83 ",.02)
 ;;57664-0424-83
 ;;9002226.02101,"798,57664-0424-99 ",.01)
 ;;57664-0424-99
 ;;9002226.02101,"798,57664-0424-99 ",.02)
 ;;57664-0424-99
 ;;9002226.02101,"798,57664-0425-13 ",.01)
 ;;57664-0425-13
 ;;9002226.02101,"798,57664-0425-13 ",.02)
 ;;57664-0425-13
 ;;9002226.02101,"798,57664-0425-83 ",.01)
 ;;57664-0425-83
 ;;9002226.02101,"798,57664-0425-83 ",.02)
 ;;57664-0425-83
 ;;9002226.02101,"798,57664-0425-99 ",.01)
 ;;57664-0425-99
 ;;9002226.02101,"798,57664-0425-99 ",.02)
 ;;57664-0425-99
 ;;9002226.02101,"798,57664-0499-18 ",.01)
 ;;57664-0499-18
 ;;9002226.02101,"798,57664-0499-18 ",.02)
 ;;57664-0499-18
 ;;9002226.02101,"798,57664-0499-83 ",.01)
 ;;57664-0499-83
 ;;9002226.02101,"798,57664-0499-83 ",.02)
 ;;57664-0499-83
 ;;9002226.02101,"798,57664-0500-18 ",.01)
 ;;57664-0500-18
 ;;9002226.02101,"798,57664-0500-18 ",.02)
 ;;57664-0500-18
 ;;9002226.02101,"798,57664-0500-83 ",.01)
 ;;57664-0500-83
 ;;9002226.02101,"798,57664-0500-83 ",.02)
 ;;57664-0500-83
 ;;9002226.02101,"798,57664-0501-18 ",.01)
 ;;57664-0501-18
 ;;9002226.02101,"798,57664-0501-18 ",.02)
 ;;57664-0501-18
 ;;9002226.02101,"798,57664-0501-83 ",.01)
 ;;57664-0501-83
 ;;9002226.02101,"798,57664-0501-83 ",.02)
 ;;57664-0501-83
 ;;9002226.02101,"798,57664-0507-13 ",.01)
 ;;57664-0507-13
 ;;9002226.02101,"798,57664-0507-13 ",.02)
 ;;57664-0507-13
 ;;9002226.02101,"798,57664-0507-18 ",.01)
 ;;57664-0507-18
 ;;9002226.02101,"798,57664-0507-18 ",.02)
 ;;57664-0507-18
 ;;9002226.02101,"798,57664-0507-83 ",.01)
 ;;57664-0507-83
 ;;9002226.02101,"798,57664-0507-83 ",.02)
 ;;57664-0507-83
 ;;9002226.02101,"798,57664-0507-88 ",.01)
 ;;57664-0507-88
 ;;9002226.02101,"798,57664-0507-88 ",.02)
 ;;57664-0507-88
 ;;9002226.02101,"798,57664-0508-13 ",.01)
 ;;57664-0508-13
 ;;9002226.02101,"798,57664-0508-13 ",.02)
 ;;57664-0508-13
 ;;9002226.02101,"798,57664-0508-18 ",.01)
 ;;57664-0508-18
 ;;9002226.02101,"798,57664-0508-18 ",.02)
 ;;57664-0508-18
 ;;9002226.02101,"798,57664-0508-83 ",.01)
 ;;57664-0508-83
 ;;9002226.02101,"798,57664-0508-83 ",.02)
 ;;57664-0508-83
 ;;9002226.02101,"798,57664-0508-88 ",.01)
 ;;57664-0508-88
 ;;9002226.02101,"798,57664-0508-88 ",.02)
 ;;57664-0508-88
 ;;9002226.02101,"798,57664-0509-13 ",.01)
 ;;57664-0509-13
 ;;9002226.02101,"798,57664-0509-13 ",.02)
 ;;57664-0509-13
 ;;9002226.02101,"798,57664-0509-18 ",.01)
 ;;57664-0509-18
 ;;9002226.02101,"798,57664-0509-18 ",.02)
 ;;57664-0509-18
 ;;9002226.02101,"798,57664-0509-83 ",.01)
 ;;57664-0509-83
 ;;9002226.02101,"798,57664-0509-83 ",.02)
 ;;57664-0509-83
 ;;9002226.02101,"798,57664-0509-88 ",.01)
 ;;57664-0509-88
 ;;9002226.02101,"798,57664-0509-88 ",.02)
 ;;57664-0509-88
 ;;9002226.02101,"798,57664-0510-18 ",.01)
 ;;57664-0510-18
 ;;9002226.02101,"798,57664-0510-18 ",.02)
 ;;57664-0510-18
 ;;9002226.02101,"798,57664-0510-83 ",.01)
 ;;57664-0510-83
 ;;9002226.02101,"798,57664-0510-83 ",.02)
 ;;57664-0510-83
 ;;9002226.02101,"798,57866-0920-01 ",.01)
 ;;57866-0920-01
 ;;9002226.02101,"798,57866-0920-01 ",.02)
 ;;57866-0920-01
 ;;9002226.02101,"798,57866-0920-02 ",.01)
 ;;57866-0920-02
 ;;9002226.02101,"798,57866-0920-02 ",.02)
 ;;57866-0920-02
 ;;9002226.02101,"798,57866-0920-03 ",.01)
 ;;57866-0920-03
 ;;9002226.02101,"798,57866-0920-03 ",.02)
 ;;57866-0920-03
 ;;9002226.02101,"798,57866-0922-01 ",.01)
 ;;57866-0922-01
 ;;9002226.02101,"798,57866-0922-01 ",.02)
 ;;57866-0922-01
 ;;9002226.02101,"798,57866-0922-02 ",.01)
 ;;57866-0922-02
 ;;9002226.02101,"798,57866-0922-02 ",.02)
 ;;57866-0922-02
 ;;9002226.02101,"798,57866-0922-03 ",.01)
 ;;57866-0922-03
 ;;9002226.02101,"798,57866-0922-03 ",.02)
 ;;57866-0922-03
 ;;9002226.02101,"798,57866-3061-02 ",.01)
 ;;57866-3061-02
 ;;9002226.02101,"798,57866-3061-02 ",.02)
 ;;57866-3061-02
 ;;9002226.02101,"798,57866-3071-01 ",.01)
 ;;57866-3071-01
 ;;9002226.02101,"798,57866-3071-01 ",.02)
 ;;57866-3071-01
 ;;9002226.02101,"798,57866-3072-01 ",.01)
 ;;57866-3072-01
 ;;9002226.02101,"798,57866-3072-01 ",.02)
 ;;57866-3072-01
 ;;9002226.02101,"798,57866-3072-02 ",.01)
 ;;57866-3072-02
 ;;9002226.02101,"798,57866-3072-02 ",.02)
 ;;57866-3072-02
 ;;9002226.02101,"798,57866-3072-03 ",.01)
 ;;57866-3072-03
 ;;9002226.02101,"798,57866-3072-03 ",.02)
 ;;57866-3072-03
 ;;9002226.02101,"798,57866-3073-01 ",.01)
 ;;57866-3073-01
 ;;9002226.02101,"798,57866-3073-01 ",.02)
 ;;57866-3073-01
 ;;9002226.02101,"798,57866-3073-02 ",.01)
 ;;57866-3073-02
 ;;9002226.02101,"798,57866-3073-02 ",.02)
 ;;57866-3073-02
 ;;9002226.02101,"798,57866-3073-03 ",.01)
 ;;57866-3073-03
 ;;9002226.02101,"798,57866-3073-03 ",.02)
 ;;57866-3073-03
 ;;9002226.02101,"798,57866-3906-01 ",.01)
 ;;57866-3906-01
 ;;9002226.02101,"798,57866-3906-01 ",.02)
 ;;57866-3906-01
 ;;9002226.02101,"798,57866-3907-01 ",.01)
 ;;57866-3907-01
 ;;9002226.02101,"798,57866-3907-01 ",.02)
 ;;57866-3907-01
 ;;9002226.02101,"798,57866-3930-01 ",.01)
 ;;57866-3930-01
 ;;9002226.02101,"798,57866-3930-01 ",.02)
 ;;57866-3930-01
 ;;9002226.02101,"798,57866-3931-01 ",.01)
 ;;57866-3931-01
 ;;9002226.02101,"798,57866-3931-01 ",.02)
 ;;57866-3931-01
 ;;9002226.02101,"798,57866-4688-01 ",.01)
 ;;57866-4688-01
 ;;9002226.02101,"798,57866-4688-01 ",.02)
 ;;57866-4688-01
 ;;9002226.02101,"798,57866-4688-02 ",.01)
 ;;57866-4688-02
 ;;9002226.02101,"798,57866-4688-02 ",.02)
 ;;57866-4688-02
 ;;9002226.02101,"798,57866-4688-03 ",.01)
 ;;57866-4688-03
 ;;9002226.02101,"798,57866-4688-03 ",.02)
 ;;57866-4688-03
 ;;9002226.02101,"798,57866-4688-04 ",.01)
 ;;57866-4688-04
 ;;9002226.02101,"798,57866-4688-04 ",.02)
 ;;57866-4688-04
 ;;9002226.02101,"798,57866-4715-01 ",.01)
 ;;57866-4715-01
 ;;9002226.02101,"798,57866-4715-01 ",.02)
 ;;57866-4715-01
 ;;9002226.02101,"798,57866-4715-02 ",.01)
 ;;57866-4715-02
 ;;9002226.02101,"798,57866-4715-02 ",.02)
 ;;57866-4715-02
 ;;9002226.02101,"798,57866-4715-03 ",.01)
 ;;57866-4715-03
 ;;9002226.02101,"798,57866-4715-03 ",.02)
 ;;57866-4715-03
 ;;9002226.02101,"798,57866-4715-04 ",.01)
 ;;57866-4715-04
 ;;9002226.02101,"798,57866-4715-04 ",.02)
 ;;57866-4715-04
 ;;9002226.02101,"798,57866-6650-01 ",.01)
 ;;57866-6650-01
 ;;9002226.02101,"798,57866-6650-01 ",.02)
 ;;57866-6650-01
 ;;9002226.02101,"798,57866-6650-02 ",.01)
 ;;57866-6650-02
 ;;9002226.02101,"798,57866-6650-02 ",.02)
 ;;57866-6650-02
 ;;9002226.02101,"798,57866-6650-03 ",.01)
 ;;57866-6650-03
 ;;9002226.02101,"798,57866-6650-03 ",.02)
 ;;57866-6650-03
 ;;9002226.02101,"798,58016-0004-00 ",.01)
 ;;58016-0004-00
 ;;9002226.02101,"798,58016-0004-00 ",.02)
 ;;58016-0004-00
 ;;9002226.02101,"798,58016-0004-30 ",.01)
 ;;58016-0004-30
 ;;9002226.02101,"798,58016-0004-30 ",.02)
 ;;58016-0004-30
 ;;9002226.02101,"798,58016-0004-60 ",.01)
 ;;58016-0004-60
 ;;9002226.02101,"798,58016-0004-60 ",.02)
 ;;58016-0004-60
 ;;9002226.02101,"798,58016-0004-90 ",.01)
 ;;58016-0004-90
 ;;9002226.02101,"798,58016-0004-90 ",.02)
 ;;58016-0004-90
 ;;9002226.02101,"798,58016-0009-00 ",.01)
 ;;58016-0009-00
 ;;9002226.02101,"798,58016-0009-00 ",.02)
 ;;58016-0009-00
 ;;9002226.02101,"798,58016-0009-30 ",.01)
 ;;58016-0009-30
 ;;9002226.02101,"798,58016-0009-30 ",.02)
 ;;58016-0009-30
 ;;9002226.02101,"798,58016-0009-60 ",.01)
 ;;58016-0009-60
 ;;9002226.02101,"798,58016-0009-60 ",.02)
 ;;58016-0009-60
 ;;9002226.02101,"798,58016-0009-90 ",.01)
 ;;58016-0009-90
 ;;9002226.02101,"798,58016-0009-90 ",.02)
 ;;58016-0009-90
 ;;9002226.02101,"798,58016-0010-00 ",.01)
 ;;58016-0010-00
 ;;9002226.02101,"798,58016-0010-00 ",.02)
 ;;58016-0010-00
 ;;9002226.02101,"798,58016-0010-30 ",.01)
 ;;58016-0010-30
 ;;9002226.02101,"798,58016-0010-30 ",.02)
 ;;58016-0010-30
 ;;9002226.02101,"798,58016-0010-60 ",.01)
 ;;58016-0010-60
 ;;9002226.02101,"798,58016-0010-60 ",.02)
 ;;58016-0010-60
 ;;9002226.02101,"798,58016-0010-90 ",.01)
 ;;58016-0010-90
 ;;9002226.02101,"798,58016-0010-90 ",.02)
 ;;58016-0010-90
 ;;9002226.02101,"798,58016-0011-00 ",.01)
 ;;58016-0011-00
 ;;9002226.02101,"798,58016-0011-00 ",.02)
 ;;58016-0011-00
 ;;9002226.02101,"798,58016-0011-30 ",.01)
 ;;58016-0011-30
 ;;9002226.02101,"798,58016-0011-30 ",.02)
 ;;58016-0011-30
 ;;9002226.02101,"798,58016-0011-60 ",.01)
 ;;58016-0011-60
 ;;9002226.02101,"798,58016-0011-60 ",.02)
 ;;58016-0011-60
 ;;9002226.02101,"798,58016-0011-90 ",.01)
 ;;58016-0011-90
 ;;9002226.02101,"798,58016-0011-90 ",.02)
 ;;58016-0011-90
 ;;9002226.02101,"798,58016-0024-00 ",.01)
 ;;58016-0024-00
 ;;9002226.02101,"798,58016-0024-00 ",.02)
 ;;58016-0024-00
 ;;9002226.02101,"798,58016-0024-30 ",.01)
 ;;58016-0024-30
 ;;9002226.02101,"798,58016-0024-30 ",.02)
 ;;58016-0024-30
 ;;9002226.02101,"798,58016-0024-60 ",.01)
 ;;58016-0024-60
 ;;9002226.02101,"798,58016-0024-60 ",.02)
 ;;58016-0024-60
 ;;9002226.02101,"798,58016-0024-90 ",.01)
 ;;58016-0024-90
 ;;9002226.02101,"798,58016-0024-90 ",.02)
 ;;58016-0024-90
 ;;9002226.02101,"798,58016-0027-00 ",.01)
 ;;58016-0027-00
 ;;9002226.02101,"798,58016-0027-00 ",.02)
 ;;58016-0027-00
 ;;9002226.02101,"798,58016-0027-30 ",.01)
 ;;58016-0027-30
 ;;9002226.02101,"798,58016-0027-30 ",.02)
 ;;58016-0027-30
 ;;9002226.02101,"798,58016-0027-60 ",.01)
 ;;58016-0027-60
 ;;9002226.02101,"798,58016-0027-60 ",.02)
 ;;58016-0027-60
 ;;9002226.02101,"798,58016-0027-90 ",.01)
 ;;58016-0027-90
 ;;9002226.02101,"798,58016-0027-90 ",.02)
 ;;58016-0027-90
 ;;9002226.02101,"798,58016-0030-00 ",.01)
 ;;58016-0030-00
 ;;9002226.02101,"798,58016-0030-00 ",.02)
 ;;58016-0030-00
 ;;9002226.02101,"798,58016-0030-30 ",.01)
 ;;58016-0030-30
 ;;9002226.02101,"798,58016-0030-30 ",.02)
 ;;58016-0030-30
 ;;9002226.02101,"798,58016-0030-60 ",.01)
 ;;58016-0030-60
 ;;9002226.02101,"798,58016-0030-60 ",.02)
 ;;58016-0030-60
 ;;9002226.02101,"798,58016-0030-90 ",.01)
 ;;58016-0030-90
 ;;9002226.02101,"798,58016-0030-90 ",.02)
 ;;58016-0030-90
 ;;9002226.02101,"798,58016-0031-00 ",.01)
 ;;58016-0031-00
 ;;9002226.02101,"798,58016-0031-00 ",.02)
 ;;58016-0031-00
 ;;9002226.02101,"798,58016-0031-30 ",.01)
 ;;58016-0031-30
 ;;9002226.02101,"798,58016-0031-30 ",.02)
 ;;58016-0031-30
 ;;9002226.02101,"798,58016-0031-60 ",.01)
 ;;58016-0031-60
 ;;9002226.02101,"798,58016-0031-60 ",.02)
 ;;58016-0031-60
 ;;9002226.02101,"798,58016-0031-90 ",.01)
 ;;58016-0031-90