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

BGP0ZD33.m

Go to the documentation of this file.
BGP0ZD33 ;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,58016-0694-60 ",.02)
 ;;58016-0694-60
 ;;9002226.02101,"976,58016-0694-73 ",.01)
 ;;58016-0694-73
 ;;9002226.02101,"976,58016-0694-73 ",.02)
 ;;58016-0694-73
 ;;9002226.02101,"976,58016-0694-89 ",.01)
 ;;58016-0694-89
 ;;9002226.02101,"976,58016-0694-89 ",.02)
 ;;58016-0694-89
 ;;9002226.02101,"976,58016-0694-90 ",.01)
 ;;58016-0694-90
 ;;9002226.02101,"976,58016-0694-90 ",.02)
 ;;58016-0694-90
 ;;9002226.02101,"976,58016-0705-00 ",.01)
 ;;58016-0705-00
 ;;9002226.02101,"976,58016-0705-00 ",.02)
 ;;58016-0705-00
 ;;9002226.02101,"976,58016-0705-07 ",.01)
 ;;58016-0705-07
 ;;9002226.02101,"976,58016-0705-07 ",.02)
 ;;58016-0705-07
 ;;9002226.02101,"976,58016-0705-10 ",.01)
 ;;58016-0705-10
 ;;9002226.02101,"976,58016-0705-10 ",.02)
 ;;58016-0705-10
 ;;9002226.02101,"976,58016-0705-14 ",.01)
 ;;58016-0705-14
 ;;9002226.02101,"976,58016-0705-14 ",.02)
 ;;58016-0705-14
 ;;9002226.02101,"976,58016-0705-15 ",.01)
 ;;58016-0705-15
 ;;9002226.02101,"976,58016-0705-15 ",.02)
 ;;58016-0705-15
 ;;9002226.02101,"976,58016-0705-20 ",.01)
 ;;58016-0705-20
 ;;9002226.02101,"976,58016-0705-20 ",.02)
 ;;58016-0705-20
 ;;9002226.02101,"976,58016-0705-21 ",.01)
 ;;58016-0705-21
 ;;9002226.02101,"976,58016-0705-21 ",.02)
 ;;58016-0705-21
 ;;9002226.02101,"976,58016-0705-28 ",.01)
 ;;58016-0705-28
 ;;9002226.02101,"976,58016-0705-28 ",.02)
 ;;58016-0705-28
 ;;9002226.02101,"976,58016-0705-30 ",.01)
 ;;58016-0705-30
 ;;9002226.02101,"976,58016-0705-30 ",.02)
 ;;58016-0705-30
 ;;9002226.02101,"976,58016-0705-40 ",.01)
 ;;58016-0705-40
 ;;9002226.02101,"976,58016-0705-40 ",.02)
 ;;58016-0705-40
 ;;9002226.02101,"976,58016-0705-50 ",.01)
 ;;58016-0705-50
 ;;9002226.02101,"976,58016-0705-50 ",.02)
 ;;58016-0705-50
 ;;9002226.02101,"976,58016-0705-60 ",.01)
 ;;58016-0705-60
 ;;9002226.02101,"976,58016-0705-60 ",.02)
 ;;58016-0705-60
 ;;9002226.02101,"976,58016-0705-90 ",.01)
 ;;58016-0705-90
 ;;9002226.02101,"976,58016-0705-90 ",.02)
 ;;58016-0705-90
 ;;9002226.02101,"976,58016-0705-97 ",.01)
 ;;58016-0705-97
 ;;9002226.02101,"976,58016-0705-97 ",.02)
 ;;58016-0705-97
 ;;9002226.02101,"976,58016-0743-00 ",.01)
 ;;58016-0743-00
 ;;9002226.02101,"976,58016-0743-00 ",.02)
 ;;58016-0743-00
 ;;9002226.02101,"976,58016-0743-02 ",.01)
 ;;58016-0743-02
 ;;9002226.02101,"976,58016-0743-02 ",.02)
 ;;58016-0743-02
 ;;9002226.02101,"976,58016-0743-03 ",.01)
 ;;58016-0743-03
 ;;9002226.02101,"976,58016-0743-03 ",.02)
 ;;58016-0743-03
 ;;9002226.02101,"976,58016-0743-12 ",.01)
 ;;58016-0743-12
 ;;9002226.02101,"976,58016-0743-12 ",.02)
 ;;58016-0743-12
 ;;9002226.02101,"976,58016-0743-15 ",.01)
 ;;58016-0743-15
 ;;9002226.02101,"976,58016-0743-15 ",.02)
 ;;58016-0743-15
 ;;9002226.02101,"976,58016-0743-20 ",.01)
 ;;58016-0743-20
 ;;9002226.02101,"976,58016-0743-20 ",.02)
 ;;58016-0743-20
 ;;9002226.02101,"976,58016-0743-30 ",.01)
 ;;58016-0743-30
 ;;9002226.02101,"976,58016-0743-30 ",.02)
 ;;58016-0743-30
 ;;9002226.02101,"976,58016-0743-60 ",.01)
 ;;58016-0743-60
 ;;9002226.02101,"976,58016-0743-60 ",.02)
 ;;58016-0743-60
 ;;9002226.02101,"976,58016-0743-73 ",.01)
 ;;58016-0743-73
 ;;9002226.02101,"976,58016-0743-73 ",.02)
 ;;58016-0743-73
 ;;9002226.02101,"976,58016-0743-89 ",.01)
 ;;58016-0743-89
 ;;9002226.02101,"976,58016-0743-89 ",.02)
 ;;58016-0743-89
 ;;9002226.02101,"976,58016-0743-90 ",.01)
 ;;58016-0743-90
 ;;9002226.02101,"976,58016-0743-90 ",.02)
 ;;58016-0743-90
 ;;9002226.02101,"976,58016-0750-00 ",.01)
 ;;58016-0750-00
 ;;9002226.02101,"976,58016-0750-00 ",.02)
 ;;58016-0750-00
 ;;9002226.02101,"976,58016-0750-10 ",.01)
 ;;58016-0750-10
 ;;9002226.02101,"976,58016-0750-10 ",.02)
 ;;58016-0750-10
 ;;9002226.02101,"976,58016-0750-12 ",.01)
 ;;58016-0750-12
 ;;9002226.02101,"976,58016-0750-12 ",.02)
 ;;58016-0750-12
 ;;9002226.02101,"976,58016-0750-14 ",.01)
 ;;58016-0750-14
 ;;9002226.02101,"976,58016-0750-14 ",.02)
 ;;58016-0750-14
 ;;9002226.02101,"976,58016-0750-15 ",.01)
 ;;58016-0750-15
 ;;9002226.02101,"976,58016-0750-15 ",.02)
 ;;58016-0750-15
 ;;9002226.02101,"976,58016-0750-20 ",.01)
 ;;58016-0750-20
 ;;9002226.02101,"976,58016-0750-20 ",.02)
 ;;58016-0750-20
 ;;9002226.02101,"976,58016-0750-28 ",.01)
 ;;58016-0750-28
 ;;9002226.02101,"976,58016-0750-28 ",.02)
 ;;58016-0750-28
 ;;9002226.02101,"976,58016-0750-30 ",.01)
 ;;58016-0750-30
 ;;9002226.02101,"976,58016-0750-30 ",.02)
 ;;58016-0750-30
 ;;9002226.02101,"976,58016-0750-40 ",.01)
 ;;58016-0750-40
 ;;9002226.02101,"976,58016-0750-40 ",.02)
 ;;58016-0750-40
 ;;9002226.02101,"976,58016-0754-30 ",.01)
 ;;58016-0754-30
 ;;9002226.02101,"976,58016-0754-30 ",.02)
 ;;58016-0754-30
 ;;9002226.02101,"976,58016-4046-01 ",.01)
 ;;58016-4046-01
 ;;9002226.02101,"976,58016-4046-01 ",.02)
 ;;58016-4046-01
 ;;9002226.02101,"976,58016-6038-30 ",.01)
 ;;58016-6038-30
 ;;9002226.02101,"976,58016-6038-30 ",.02)
 ;;58016-6038-30
 ;;9002226.02101,"976,58016-6038-60 ",.01)
 ;;58016-6038-60
 ;;9002226.02101,"976,58016-6038-60 ",.02)
 ;;58016-6038-60
 ;;9002226.02101,"976,58016-6449-01 ",.01)
 ;;58016-6449-01
 ;;9002226.02101,"976,58016-6449-01 ",.02)
 ;;58016-6449-01
 ;;9002226.02101,"976,58016-6462-01 ",.01)
 ;;58016-6462-01
 ;;9002226.02101,"976,58016-6462-01 ",.02)
 ;;58016-6462-01
 ;;9002226.02101,"976,58016-9413-01 ",.01)
 ;;58016-9413-01
 ;;9002226.02101,"976,58016-9413-01 ",.02)
 ;;58016-9413-01
 ;;9002226.02101,"976,58177-0301-04 ",.01)
 ;;58177-0301-04
 ;;9002226.02101,"976,58177-0301-04 ",.02)
 ;;58177-0301-04
 ;;9002226.02101,"976,58177-0302-04 ",.01)
 ;;58177-0302-04
 ;;9002226.02101,"976,58177-0302-04 ",.02)
 ;;58177-0302-04
 ;;9002226.02101,"976,58177-0303-04 ",.01)
 ;;58177-0303-04
 ;;9002226.02101,"976,58177-0303-04 ",.02)
 ;;58177-0303-04
 ;;9002226.02101,"976,58468-2965-04 ",.01)
 ;;58468-2965-04
 ;;9002226.02101,"976,58468-2965-04 ",.02)
 ;;58468-2965-04
 ;;9002226.02101,"976,58768-0100-02 ",.01)
 ;;58768-0100-02
 ;;9002226.02101,"976,58768-0100-02 ",.02)
 ;;58768-0100-02
 ;;9002226.02101,"976,58768-0100-05 ",.01)
 ;;58768-0100-05
 ;;9002226.02101,"976,58768-0100-05 ",.02)
 ;;58768-0100-05
 ;;9002226.02101,"976,58864-0026-30 ",.01)
 ;;58864-0026-30
 ;;9002226.02101,"976,58864-0026-30 ",.02)
 ;;58864-0026-30
 ;;9002226.02101,"976,58864-0287-60 ",.01)
 ;;58864-0287-60
 ;;9002226.02101,"976,58864-0287-60 ",.02)
 ;;58864-0287-60
 ;;9002226.02101,"976,58864-0287-90 ",.01)
 ;;58864-0287-90
 ;;9002226.02101,"976,58864-0287-90 ",.02)
 ;;58864-0287-90
 ;;9002226.02101,"976,58864-0296-30 ",.01)
 ;;58864-0296-30
 ;;9002226.02101,"976,58864-0296-30 ",.02)
 ;;58864-0296-30
 ;;9002226.02101,"976,58864-0296-42 ",.01)
 ;;58864-0296-42
 ;;9002226.02101,"976,58864-0296-42 ",.02)
 ;;58864-0296-42
 ;;9002226.02101,"976,58864-0296-90 ",.01)
 ;;58864-0296-90
 ;;9002226.02101,"976,58864-0296-90 ",.02)
 ;;58864-0296-90
 ;;9002226.02101,"976,58864-0359-01 ",.01)
 ;;58864-0359-01
 ;;9002226.02101,"976,58864-0359-01 ",.02)
 ;;58864-0359-01
 ;;9002226.02101,"976,58864-0359-60 ",.01)
 ;;58864-0359-60
 ;;9002226.02101,"976,58864-0359-60 ",.02)
 ;;58864-0359-60
 ;;9002226.02101,"976,58864-0359-90 ",.01)
 ;;58864-0359-90
 ;;9002226.02101,"976,58864-0359-90 ",.02)
 ;;58864-0359-90
 ;;9002226.02101,"976,58864-0360-60 ",.01)
 ;;58864-0360-60
 ;;9002226.02101,"976,58864-0360-60 ",.02)
 ;;58864-0360-60
 ;;9002226.02101,"976,58864-0360-90 ",.01)
 ;;58864-0360-90
 ;;9002226.02101,"976,58864-0360-90 ",.02)
 ;;58864-0360-90
 ;;9002226.02101,"976,58864-0400-14 ",.01)
 ;;58864-0400-14
 ;;9002226.02101,"976,58864-0400-14 ",.02)
 ;;58864-0400-14
 ;;9002226.02101,"976,58864-0400-20 ",.01)
 ;;58864-0400-20
 ;;9002226.02101,"976,58864-0400-20 ",.02)
 ;;58864-0400-20
 ;;9002226.02101,"976,58864-0400-30 ",.01)
 ;;58864-0400-30
 ;;9002226.02101,"976,58864-0400-30 ",.02)
 ;;58864-0400-30
 ;;9002226.02101,"976,58864-0400-60 ",.01)
 ;;58864-0400-60
 ;;9002226.02101,"976,58864-0400-60 ",.02)
 ;;58864-0400-60
 ;;9002226.02101,"976,58864-0445-15 ",.01)
 ;;58864-0445-15
 ;;9002226.02101,"976,58864-0445-15 ",.02)
 ;;58864-0445-15
 ;;9002226.02101,"976,58864-0485-60 ",.01)
 ;;58864-0485-60
 ;;9002226.02101,"976,58864-0485-60 ",.02)
 ;;58864-0485-60
 ;;9002226.02101,"976,58864-0643-14 ",.01)
 ;;58864-0643-14
 ;;9002226.02101,"976,58864-0643-14 ",.02)
 ;;58864-0643-14
 ;;9002226.02101,"976,58864-0643-30 ",.01)
 ;;58864-0643-30
 ;;9002226.02101,"976,58864-0643-30 ",.02)
 ;;58864-0643-30
 ;;9002226.02101,"976,58864-0691-30 ",.01)
 ;;58864-0691-30
 ;;9002226.02101,"976,58864-0691-30 ",.02)
 ;;58864-0691-30
 ;;9002226.02101,"976,58864-0709-30 ",.01)
 ;;58864-0709-30
 ;;9002226.02101,"976,58864-0709-30 ",.02)
 ;;58864-0709-30
 ;;9002226.02101,"976,58864-0751-30 ",.01)
 ;;58864-0751-30
 ;;9002226.02101,"976,58864-0751-30 ",.02)
 ;;58864-0751-30
 ;;9002226.02101,"976,58864-0752-30 ",.01)
 ;;58864-0752-30
 ;;9002226.02101,"976,58864-0752-30 ",.02)
 ;;58864-0752-30
 ;;9002226.02101,"976,58868-0643-20 ",.01)
 ;;58868-0643-20
 ;;9002226.02101,"976,58868-0643-20 ",.02)
 ;;58868-0643-20
 ;;9002226.02101,"976,59591-0154-74 ",.01)
 ;;59591-0154-74
 ;;9002226.02101,"976,59591-0154-74 ",.02)
 ;;59591-0154-74
 ;;9002226.02101,"976,59591-0170-74 ",.01)
 ;;59591-0170-74
 ;;9002226.02101,"976,59591-0170-74 ",.02)
 ;;59591-0170-74
 ;;9002226.02101,"976,59591-0196-74 ",.01)
 ;;59591-0196-74
 ;;9002226.02101,"976,59591-0196-74 ",.02)
 ;;59591-0196-74
 ;;9002226.02101,"976,59630-0400-10 ",.01)
 ;;59630-0400-10
 ;;9002226.02101,"976,59630-0400-10 ",.02)
 ;;59630-0400-10
 ;;9002226.02101,"976,59762-3724-01 ",.01)
 ;;59762-3724-01
 ;;9002226.02101,"976,59762-3724-01 ",.02)
 ;;59762-3724-01
 ;;9002226.02101,"976,59762-3724-03 ",.01)
 ;;59762-3724-03
 ;;9002226.02101,"976,59762-3724-03 ",.02)
 ;;59762-3724-03
 ;;9002226.02101,"976,59762-5002-01 ",.01)
 ;;59762-5002-01
 ;;9002226.02101,"976,59762-5002-01 ",.02)
 ;;59762-5002-01
 ;;9002226.02101,"976,59762-5002-02 ",.01)
 ;;59762-5002-02
 ;;9002226.02101,"976,59762-5002-02 ",.02)
 ;;59762-5002-02
 ;;9002226.02101,"976,59762-7378-02 ",.01)
 ;;59762-7378-02
 ;;9002226.02101,"976,59762-7378-02 ",.02)
 ;;59762-7378-02
 ;;9002226.02101,"976,59762-7379-01 ",.01)
 ;;59762-7379-01
 ;;9002226.02101,"976,59762-7379-01 ",.02)
 ;;59762-7379-01
 ;;9002226.02101,"976,59762-7379-02 ",.01)
 ;;59762-7379-02
 ;;9002226.02101,"976,59762-7379-02 ",.02)
 ;;59762-7379-02
 ;;9002226.02101,"976,59762-7380-01 ",.01)
 ;;59762-7380-01
 ;;9002226.02101,"976,59762-7380-01 ",.02)
 ;;59762-7380-01
 ;;9002226.02101,"976,59762-7380-02 ",.01)
 ;;59762-7380-02
 ;;9002226.02101,"976,59762-7380-02 ",.02)
 ;;59762-7380-02
 ;;9002226.02101,"976,59762-7478-01 ",.01)
 ;;59762-7478-01
 ;;9002226.02101,"976,59762-7478-01 ",.02)
 ;;59762-7478-01
 ;;9002226.02101,"976,59930-1508-01 ",.01)
 ;;59930-1508-01
 ;;9002226.02101,"976,59930-1508-01 ",.02)
 ;;59930-1508-01
 ;;9002226.02101,"976,59930-1508-02 ",.01)
 ;;59930-1508-02
 ;;9002226.02101,"976,59930-1508-02 ",.02)
 ;;59930-1508-02
 ;;9002226.02101,"976,60258-0090-08 ",.01)
 ;;60258-0090-08
 ;;9002226.02101,"976,60258-0090-08 ",.02)
 ;;60258-0090-08
 ;;9002226.02101,"976,60258-0106-01 ",.01)
 ;;60258-0106-01
 ;;9002226.02101,"976,60258-0106-01 ",.02)
 ;;60258-0106-01
 ;;9002226.02101,"976,60345-0815-20 ",.01)
 ;;60345-0815-20
 ;;9002226.02101,"976,60345-0815-20 ",.02)
 ;;60345-0815-20
 ;;9002226.02101,"976,60346-0637-14 ",.01)
 ;;60346-0637-14
 ;;9002226.02101,"976,60346-0637-14 ",.02)
 ;;60346-0637-14
 ;;9002226.02101,"976,60346-0684-20 ",.01)
 ;;60346-0684-20
 ;;9002226.02101,"976,60346-0684-20 ",.02)
 ;;60346-0684-20
 ;;9002226.02101,"976,60346-0684-28 ",.01)
 ;;60346-0684-28
 ;;9002226.02101,"976,60346-0684-28 ",.02)
 ;;60346-0684-28
 ;;9002226.02101,"976,60346-0684-30 ",.01)
 ;;60346-0684-30
 ;;9002226.02101,"976,60346-0684-30 ",.02)
 ;;60346-0684-30
 ;;9002226.02101,"976,60346-0687-20 ",.01)
 ;;60346-0687-20
 ;;9002226.02101,"976,60346-0687-20 ",.02)
 ;;60346-0687-20
 ;;9002226.02101,"976,60346-0722-60 ",.01)
 ;;60346-0722-60
 ;;9002226.02101,"976,60346-0722-60 ",.02)
 ;;60346-0722-60
 ;;9002226.02101,"976,60426-0172-60 ",.01)
 ;;60426-0172-60
 ;;9002226.02101,"976,60426-0172-60 ",.02)
 ;;60426-0172-60
 ;;9002226.02101,"976,60429-0092-30 ",.01)
 ;;60429-0092-30
 ;;9002226.02101,"976,60429-0092-30 ",.02)
 ;;60429-0092-30
 ;;9002226.02101,"976,60429-0092-60 ",.01)
 ;;60429-0092-60
 ;;9002226.02101,"976,60429-0092-60 ",.02)
 ;;60429-0092-60
 ;;9002226.02101,"976,60429-0092-90 ",.01)
 ;;60429-0092-90
 ;;9002226.02101,"976,60429-0092-90 ",.02)
 ;;60429-0092-90
 ;;9002226.02101,"976,60429-0093-30 ",.01)
 ;;60429-0093-30
 ;;9002226.02101,"976,60429-0093-30 ",.02)
 ;;60429-0093-30
 ;;9002226.02101,"976,60429-0093-60 ",.01)
 ;;60429-0093-60
 ;;9002226.02101,"976,60429-0093-60 ",.02)
 ;;60429-0093-60
 ;;9002226.02101,"976,60429-0093-90 ",.01)
 ;;60429-0093-90
 ;;9002226.02101,"976,60429-0093-90 ",.02)
 ;;60429-0093-90
 ;;9002226.02101,"976,60429-0094-27 ",.01)
 ;;60429-0094-27
 ;;9002226.02101,"976,60429-0094-27 ",.02)
 ;;60429-0094-27
 ;;9002226.02101,"976,60429-0094-30 ",.01)
 ;;60429-0094-30
 ;;9002226.02101,"976,60429-0094-30 ",.02)
 ;;60429-0094-30
 ;;9002226.02101,"976,60429-0094-90 ",.01)
 ;;60429-0094-90
 ;;9002226.02101,"976,60429-0094-90 ",.02)
 ;;60429-0094-90
 ;;9002226.02101,"976,60429-0098-21 ",.01)
 ;;60429-0098-21
 ;;9002226.02101,"976,60429-0098-21 ",.02)
 ;;60429-0098-21
 ;;9002226.02101,"976,60429-0133-12 ",.01)
 ;;60429-0133-12