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

BGP6FXUF.m

Go to the documentation of this file.
BGP6FXUF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 12, 2005 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;;;BGP6;;DEC 12, 2005
 ;
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,"563,54868-2702-00 ",.02)
 ;;54868-2702-00
 ;;9002226.02101,"563,54868-2702-01 ",.01)
 ;;54868-2702-01
 ;;9002226.02101,"563,54868-2702-01 ",.02)
 ;;54868-2702-01
 ;;9002226.02101,"563,54868-2702-02 ",.01)
 ;;54868-2702-02
 ;;9002226.02101,"563,54868-2702-02 ",.02)
 ;;54868-2702-02
 ;;9002226.02101,"563,54868-2702-03 ",.01)
 ;;54868-2702-03
 ;;9002226.02101,"563,54868-2702-03 ",.02)
 ;;54868-2702-03
 ;;9002226.02101,"563,54868-3114-00 ",.01)
 ;;54868-3114-00
 ;;9002226.02101,"563,54868-3114-00 ",.02)
 ;;54868-3114-00
 ;;9002226.02101,"563,54868-3653-00 ",.01)
 ;;54868-3653-00
 ;;9002226.02101,"563,54868-3653-00 ",.02)
 ;;54868-3653-00
 ;;9002226.02101,"563,54868-3672-00 ",.01)
 ;;54868-3672-00
 ;;9002226.02101,"563,54868-3672-00 ",.02)
 ;;54868-3672-00
 ;;9002226.02101,"563,54868-3672-01 ",.01)
 ;;54868-3672-01
 ;;9002226.02101,"563,54868-3672-01 ",.02)
 ;;54868-3672-01
 ;;9002226.02101,"563,54868-3673-00 ",.01)
 ;;54868-3673-00
 ;;9002226.02101,"563,54868-3673-00 ",.02)
 ;;54868-3673-00
 ;;9002226.02101,"563,54868-3673-01 ",.01)
 ;;54868-3673-01
 ;;9002226.02101,"563,54868-3673-01 ",.02)
 ;;54868-3673-01
 ;;9002226.02101,"563,54868-3795-00 ",.01)
 ;;54868-3795-00
 ;;9002226.02101,"563,54868-3795-00 ",.02)
 ;;54868-3795-00
 ;;9002226.02101,"563,54868-3796-00 ",.01)
 ;;54868-3796-00
 ;;9002226.02101,"563,54868-3796-00 ",.02)
 ;;54868-3796-00
 ;;9002226.02101,"563,54868-3797-00 ",.01)
 ;;54868-3797-00
 ;;9002226.02101,"563,54868-3797-00 ",.02)
 ;;54868-3797-00
 ;;9002226.02101,"563,54868-3799-00 ",.01)
 ;;54868-3799-00
 ;;9002226.02101,"563,54868-3799-00 ",.02)
 ;;54868-3799-00
 ;;9002226.02101,"563,54868-3800-00 ",.01)
 ;;54868-3800-00
 ;;9002226.02101,"563,54868-3800-00 ",.02)
 ;;54868-3800-00
 ;;9002226.02101,"563,54868-3827-00 ",.01)
 ;;54868-3827-00
 ;;9002226.02101,"563,54868-3827-00 ",.02)
 ;;54868-3827-00
 ;;9002226.02101,"563,54868-3827-01 ",.01)
 ;;54868-3827-01
 ;;9002226.02101,"563,54868-3827-01 ",.02)
 ;;54868-3827-01
 ;;9002226.02101,"563,54868-3857-00 ",.01)
 ;;54868-3857-00
 ;;9002226.02101,"563,54868-3857-00 ",.02)
 ;;54868-3857-00
 ;;9002226.02101,"563,54868-4030-00 ",.01)
 ;;54868-4030-00
 ;;9002226.02101,"563,54868-4030-00 ",.02)
 ;;54868-4030-00
 ;;9002226.02101,"563,54868-4030-01 ",.01)
 ;;54868-4030-01
 ;;9002226.02101,"563,54868-4030-01 ",.02)
 ;;54868-4030-01
 ;;9002226.02101,"563,54868-4031-00 ",.01)
 ;;54868-4031-00
 ;;9002226.02101,"563,54868-4031-00 ",.02)
 ;;54868-4031-00
 ;;9002226.02101,"563,54868-4031-01 ",.01)
 ;;54868-4031-01
 ;;9002226.02101,"563,54868-4031-01 ",.02)
 ;;54868-4031-01
 ;;9002226.02101,"563,54868-4031-02 ",.01)
 ;;54868-4031-02
 ;;9002226.02101,"563,54868-4031-02 ",.02)
 ;;54868-4031-02
 ;;9002226.02101,"563,54868-4089-00 ",.01)
 ;;54868-4089-00
 ;;9002226.02101,"563,54868-4089-00 ",.02)
 ;;54868-4089-00
 ;;9002226.02101,"563,54868-4149-00 ",.01)
 ;;54868-4149-00
 ;;9002226.02101,"563,54868-4149-00 ",.02)
 ;;54868-4149-00
 ;;9002226.02101,"563,54868-4149-01 ",.01)
 ;;54868-4149-01
 ;;9002226.02101,"563,54868-4149-01 ",.02)
 ;;54868-4149-01
 ;;9002226.02101,"563,54868-4170-00 ",.01)
 ;;54868-4170-00
 ;;9002226.02101,"563,54868-4170-00 ",.02)
 ;;54868-4170-00
 ;;9002226.02101,"563,54868-4170-01 ",.01)
 ;;54868-4170-01
 ;;9002226.02101,"563,54868-4170-01 ",.02)
 ;;54868-4170-01
 ;;9002226.02101,"563,54868-4241-00 ",.01)
 ;;54868-4241-00
 ;;9002226.02101,"563,54868-4241-00 ",.02)
 ;;54868-4241-00
 ;;9002226.02101,"563,54868-4242-00 ",.01)
 ;;54868-4242-00
 ;;9002226.02101,"563,54868-4242-00 ",.02)
 ;;54868-4242-00
 ;;9002226.02101,"563,54868-4243-00 ",.01)
 ;;54868-4243-00
 ;;9002226.02101,"563,54868-4243-00 ",.02)
 ;;54868-4243-00
 ;;9002226.02101,"563,54868-4244-00 ",.01)
 ;;54868-4244-00
 ;;9002226.02101,"563,54868-4244-00 ",.02)
 ;;54868-4244-00
 ;;9002226.02101,"563,54868-4269-00 ",.01)
 ;;54868-4269-00
 ;;9002226.02101,"563,54868-4269-00 ",.02)
 ;;54868-4269-00
 ;;9002226.02101,"563,54868-4371-00 ",.01)
 ;;54868-4371-00
 ;;9002226.02101,"563,54868-4371-00 ",.02)
 ;;54868-4371-00
 ;;9002226.02101,"563,54868-4384-00 ",.01)
 ;;54868-4384-00
 ;;9002226.02101,"563,54868-4384-00 ",.02)
 ;;54868-4384-00
 ;;9002226.02101,"563,54868-4386-00 ",.01)
 ;;54868-4386-00
 ;;9002226.02101,"563,54868-4386-00 ",.02)
 ;;54868-4386-00
 ;;9002226.02101,"563,54868-4462-00 ",.01)
 ;;54868-4462-00
 ;;9002226.02101,"563,54868-4462-00 ",.02)
 ;;54868-4462-00
 ;;9002226.02101,"563,54868-4463-00 ",.01)
 ;;54868-4463-00
 ;;9002226.02101,"563,54868-4463-00 ",.02)
 ;;54868-4463-00
 ;;9002226.02101,"563,54868-4671-00 ",.01)
 ;;54868-4671-00
 ;;9002226.02101,"563,54868-4671-00 ",.02)
 ;;54868-4671-00
 ;;9002226.02101,"563,54868-4679-00 ",.01)
 ;;54868-4679-00
 ;;9002226.02101,"563,54868-4679-00 ",.02)
 ;;54868-4679-00
 ;;9002226.02101,"563,54868-4761-01 ",.01)
 ;;54868-4761-01
 ;;9002226.02101,"563,54868-4761-01 ",.02)
 ;;54868-4761-01
 ;;9002226.02101,"563,54868-4761-02 ",.01)
 ;;54868-4761-02
 ;;9002226.02101,"563,54868-4761-02 ",.02)
 ;;54868-4761-02
 ;;9002226.02101,"563,54868-4811-00 ",.01)
 ;;54868-4811-00
 ;;9002226.02101,"563,54868-4811-00 ",.02)
 ;;54868-4811-00
 ;;9002226.02101,"563,54868-4813-00 ",.01)
 ;;54868-4813-00
 ;;9002226.02101,"563,54868-4813-00 ",.02)
 ;;54868-4813-00
 ;;9002226.02101,"563,54868-4830-00 ",.01)
 ;;54868-4830-00
 ;;9002226.02101,"563,54868-4830-00 ",.02)
 ;;54868-4830-00
 ;;9002226.02101,"563,54868-4831-00 ",.01)
 ;;54868-4831-00
 ;;9002226.02101,"563,54868-4831-00 ",.02)
 ;;54868-4831-00
 ;;9002226.02101,"563,54868-4862-00 ",.01)
 ;;54868-4862-00
 ;;9002226.02101,"563,54868-4862-00 ",.02)
 ;;54868-4862-00
 ;;9002226.02101,"563,54868-4865-00 ",.01)
 ;;54868-4865-00
 ;;9002226.02101,"563,54868-4865-00 ",.02)
 ;;54868-4865-00
 ;;9002226.02101,"563,54868-4866-00 ",.01)
 ;;54868-4866-00
 ;;9002226.02101,"563,54868-4866-00 ",.02)
 ;;54868-4866-00
 ;;9002226.02101,"563,54868-4879-00 ",.01)
 ;;54868-4879-00
 ;;9002226.02101,"563,54868-4879-00 ",.02)
 ;;54868-4879-00
 ;;9002226.02101,"563,54868-4900-00 ",.01)
 ;;54868-4900-00
 ;;9002226.02101,"563,54868-4900-00 ",.02)
 ;;54868-4900-00
 ;;9002226.02101,"563,54868-4901-00 ",.01)
 ;;54868-4901-00
 ;;9002226.02101,"563,54868-4901-00 ",.02)
 ;;54868-4901-00
 ;;9002226.02101,"563,54868-4920-00 ",.01)
 ;;54868-4920-00
 ;;9002226.02101,"563,54868-4920-00 ",.02)
 ;;54868-4920-00
 ;;9002226.02101,"563,54868-5008-00 ",.01)
 ;;54868-5008-00
 ;;9002226.02101,"563,54868-5008-00 ",.02)
 ;;54868-5008-00
 ;;9002226.02101,"563,54868-5047-00 ",.01)
 ;;54868-5047-00
 ;;9002226.02101,"563,54868-5047-00 ",.02)
 ;;54868-5047-00
 ;;9002226.02101,"563,54868-5322-00 ",.01)
 ;;54868-5322-00
 ;;9002226.02101,"563,54868-5322-00 ",.02)
 ;;54868-5322-00
 ;;9002226.02101,"563,54868-5322-01 ",.01)
 ;;54868-5322-01
 ;;9002226.02101,"563,54868-5322-01 ",.02)
 ;;54868-5322-01
 ;;9002226.02101,"563,55045-1131-01 ",.01)
 ;;55045-1131-01
 ;;9002226.02101,"563,55045-1131-01 ",.02)
 ;;55045-1131-01
 ;;9002226.02101,"563,55045-1951-01 ",.01)
 ;;55045-1951-01
 ;;9002226.02101,"563,55045-1951-01 ",.02)
 ;;55045-1951-01
 ;;9002226.02101,"563,55045-2059-01 ",.01)
 ;;55045-2059-01
 ;;9002226.02101,"563,55045-2059-01 ",.02)
 ;;55045-2059-01
 ;;9002226.02101,"563,55045-2739-00 ",.01)
 ;;55045-2739-00
 ;;9002226.02101,"563,55045-2739-00 ",.02)
 ;;55045-2739-00
 ;;9002226.02101,"563,55045-2850-00 ",.01)
 ;;55045-2850-00
 ;;9002226.02101,"563,55045-2850-00 ",.02)
 ;;55045-2850-00
 ;;9002226.02101,"563,55175-4472-00 ",.01)
 ;;55175-4472-00
 ;;9002226.02101,"563,55175-4472-00 ",.02)
 ;;55175-4472-00
 ;;9002226.02101,"563,55175-4472-01 ",.01)
 ;;55175-4472-01
 ;;9002226.02101,"563,55175-4472-01 ",.02)
 ;;55175-4472-01
 ;;9002226.02101,"563,55175-4472-02 ",.01)
 ;;55175-4472-02
 ;;9002226.02101,"563,55175-4472-02 ",.02)
 ;;55175-4472-02
 ;;9002226.02101,"563,55175-4472-03 ",.01)
 ;;55175-4472-03
 ;;9002226.02101,"563,55175-4472-03 ",.02)
 ;;55175-4472-03
 ;;9002226.02101,"563,55175-5202-02 ",.01)
 ;;55175-5202-02
 ;;9002226.02101,"563,55175-5202-02 ",.02)
 ;;55175-5202-02
 ;;9002226.02101,"563,55289-0047-25 ",.01)
 ;;55289-0047-25
 ;;9002226.02101,"563,55289-0047-25 ",.02)
 ;;55289-0047-25
 ;;9002226.02101,"563,55289-0047-30 ",.01)
 ;;55289-0047-30
 ;;9002226.02101,"563,55289-0047-30 ",.02)
 ;;55289-0047-30
 ;;9002226.02101,"563,55289-0047-42 ",.01)
 ;;55289-0047-42
 ;;9002226.02101,"563,55289-0047-42 ",.02)
 ;;55289-0047-42
 ;;9002226.02101,"563,55289-0047-90 ",.01)
 ;;55289-0047-90
 ;;9002226.02101,"563,55289-0047-90 ",.02)
 ;;55289-0047-90
 ;;9002226.02101,"563,55289-0101-30 ",.01)
 ;;55289-0101-30
 ;;9002226.02101,"563,55289-0101-30 ",.02)
 ;;55289-0101-30
 ;;9002226.02101,"563,55289-0101-50 ",.01)
 ;;55289-0101-50
 ;;9002226.02101,"563,55289-0101-50 ",.02)
 ;;55289-0101-50
 ;;9002226.02101,"563,55289-0123-30 ",.01)
 ;;55289-0123-30
 ;;9002226.02101,"563,55289-0123-30 ",.02)
 ;;55289-0123-30
 ;;9002226.02101,"563,55289-0396-30 ",.01)
 ;;55289-0396-30
 ;;9002226.02101,"563,55289-0396-30 ",.02)
 ;;55289-0396-30
 ;;9002226.02101,"563,55289-0503-07 ",.01)
 ;;55289-0503-07
 ;;9002226.02101,"563,55289-0503-07 ",.02)
 ;;55289-0503-07
 ;;9002226.02101,"563,55289-0503-21 ",.01)
 ;;55289-0503-21
 ;;9002226.02101,"563,55289-0503-21 ",.02)
 ;;55289-0503-21
 ;;9002226.02101,"563,55289-0603-07 ",.01)
 ;;55289-0603-07
 ;;9002226.02101,"563,55289-0603-07 ",.02)
 ;;55289-0603-07
 ;;9002226.02101,"563,55289-0603-21 ",.01)
 ;;55289-0603-21
 ;;9002226.02101,"563,55289-0603-21 ",.02)
 ;;55289-0603-21
 ;;9002226.02101,"563,55289-0761-30 ",.01)
 ;;55289-0761-30
 ;;9002226.02101,"563,55289-0761-30 ",.02)
 ;;55289-0761-30
 ;;9002226.02101,"563,55289-0943-07 ",.01)
 ;;55289-0943-07
 ;;9002226.02101,"563,55289-0943-07 ",.02)
 ;;55289-0943-07
 ;;9002226.02101,"563,55289-0943-25 ",.01)
 ;;55289-0943-25
 ;;9002226.02101,"563,55289-0943-25 ",.02)
 ;;55289-0943-25
 ;;9002226.02101,"563,55289-0943-28 ",.01)
 ;;55289-0943-28
 ;;9002226.02101,"563,55289-0943-28 ",.02)
 ;;55289-0943-28
 ;;9002226.02101,"563,55289-0943-30 ",.01)
 ;;55289-0943-30
 ;;9002226.02101,"563,55289-0943-30 ",.02)
 ;;55289-0943-30
 ;;9002226.02101,"563,55887-0516-20 ",.01)
 ;;55887-0516-20
 ;;9002226.02101,"563,55887-0516-20 ",.02)
 ;;55887-0516-20
 ;;9002226.02101,"563,55887-0516-30 ",.01)
 ;;55887-0516-30
 ;;9002226.02101,"563,55887-0516-30 ",.02)
 ;;55887-0516-30
 ;;9002226.02101,"563,55887-0516-60 ",.01)
 ;;55887-0516-60
 ;;9002226.02101,"563,55887-0516-60 ",.02)
 ;;55887-0516-60
 ;;9002226.02101,"563,55887-0516-82 ",.01)
 ;;55887-0516-82
 ;;9002226.02101,"563,55887-0516-82 ",.02)
 ;;55887-0516-82
 ;;9002226.02101,"563,55887-0516-90 ",.01)
 ;;55887-0516-90
 ;;9002226.02101,"563,55887-0516-90 ",.02)
 ;;55887-0516-90
 ;;9002226.02101,"563,57866-0002-01 ",.01)
 ;;57866-0002-01
 ;;9002226.02101,"563,57866-0002-01 ",.02)
 ;;57866-0002-01
 ;;9002226.02101,"563,57866-0097-01 ",.01)
 ;;57866-0097-01
 ;;9002226.02101,"563,57866-0097-01 ",.02)
 ;;57866-0097-01
 ;;9002226.02101,"563,57866-3991-02 ",.01)
 ;;57866-3991-02
 ;;9002226.02101,"563,57866-3991-02 ",.02)
 ;;57866-3991-02
 ;;9002226.02101,"563,57866-3996-03 ",.01)
 ;;57866-3996-03
 ;;9002226.02101,"563,57866-3996-03 ",.02)
 ;;57866-3996-03
 ;;9002226.02101,"563,57866-6680-02 ",.01)
 ;;57866-6680-02
 ;;9002226.02101,"563,57866-6680-02 ",.02)
 ;;57866-6680-02
 ;;9002226.02101,"563,57866-6681-01 ",.01)
 ;;57866-6681-01
 ;;9002226.02101,"563,57866-6681-01 ",.02)
 ;;57866-6681-01
 ;;9002226.02101,"563,57866-6681-02 ",.01)
 ;;57866-6681-02
 ;;9002226.02101,"563,57866-6681-02 ",.02)
 ;;57866-6681-02
 ;;9002226.02101,"563,57866-6681-03 ",.01)
 ;;57866-6681-03
 ;;9002226.02101,"563,57866-6681-03 ",.02)
 ;;57866-6681-03
 ;;9002226.02101,"563,57866-6682-01 ",.01)
 ;;57866-6682-01
 ;;9002226.02101,"563,57866-6682-01 ",.02)
 ;;57866-6682-01
 ;;9002226.02101,"563,57866-6682-02 ",.01)
 ;;57866-6682-02
 ;;9002226.02101,"563,57866-6682-02 ",.02)
 ;;57866-6682-02
 ;;9002226.02101,"563,57866-7987-01 ",.01)
 ;;57866-7987-01
 ;;9002226.02101,"563,57866-7987-01 ",.02)
 ;;57866-7987-01
 ;;9002226.02101,"563,57866-7987-02 ",.01)
 ;;57866-7987-02
 ;;9002226.02101,"563,57866-7987-02 ",.02)
 ;;57866-7987-02
 ;;9002226.02101,"563,58016-0613-04 ",.01)
 ;;58016-0613-04
 ;;9002226.02101,"563,58016-0613-04 ",.02)
 ;;58016-0613-04
 ;;9002226.02101,"563,58016-0744-00 ",.01)
 ;;58016-0744-00
 ;;9002226.02101,"563,58016-0744-00 ",.02)
 ;;58016-0744-00
 ;;9002226.02101,"563,58016-0744-10 ",.01)
 ;;58016-0744-10
 ;;9002226.02101,"563,58016-0744-10 ",.02)
 ;;58016-0744-10
 ;;9002226.02101,"563,58016-0744-12 ",.01)
 ;;58016-0744-12
 ;;9002226.02101,"563,58016-0744-12 ",.02)
 ;;58016-0744-12
 ;;9002226.02101,"563,58016-0744-14 ",.01)
 ;;58016-0744-14
 ;;9002226.02101,"563,58016-0744-14 ",.02)
 ;;58016-0744-14
 ;;9002226.02101,"563,58016-0744-15 ",.01)
 ;;58016-0744-15
 ;;9002226.02101,"563,58016-0744-15 ",.02)
 ;;58016-0744-15
 ;;9002226.02101,"563,58016-0744-20 ",.01)
 ;;58016-0744-20
 ;;9002226.02101,"563,58016-0744-20 ",.02)
 ;;58016-0744-20
 ;;9002226.02101,"563,58016-0744-30 ",.01)
 ;;58016-0744-30
 ;;9002226.02101,"563,58016-0744-30 ",.02)
 ;;58016-0744-30
 ;;9002226.02101,"563,58016-0788-00 ",.01)
 ;;58016-0788-00
 ;;9002226.02101,"563,58016-0788-00 ",.02)
 ;;58016-0788-00
 ;;9002226.02101,"563,58016-0788-30 ",.01)
 ;;58016-0788-30
 ;;9002226.02101,"563,58016-0788-30 ",.02)
 ;;58016-0788-30
 ;;9002226.02101,"563,58016-0788-60 ",.01)
 ;;58016-0788-60
 ;;9002226.02101,"563,58016-0788-60 ",.02)
 ;;58016-0788-60