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

BGP12XH.m

Go to the documentation of this file.
BGP12XH ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"686,49999-0842-30 ",.01)
 ;;49999-0842-30
 ;;9002226.02101,"686,49999-0842-30 ",.02)
 ;;49999-0842-30
 ;;9002226.02101,"686,49999-0843-30 ",.01)
 ;;49999-0843-30
 ;;9002226.02101,"686,49999-0843-30 ",.02)
 ;;49999-0843-30
 ;;9002226.02101,"686,49999-0844-30 ",.01)
 ;;49999-0844-30
 ;;9002226.02101,"686,49999-0844-30 ",.02)
 ;;49999-0844-30
 ;;9002226.02101,"686,49999-0925-00 ",.01)
 ;;49999-0925-00
 ;;9002226.02101,"686,49999-0925-00 ",.02)
 ;;49999-0925-00
 ;;9002226.02101,"686,50458-0585-01 ",.01)
 ;;50458-0585-01
 ;;9002226.02101,"686,50458-0585-01 ",.02)
 ;;50458-0585-01
 ;;9002226.02101,"686,50458-0586-01 ",.01)
 ;;50458-0586-01
 ;;9002226.02101,"686,50458-0586-01 ",.02)
 ;;50458-0586-01
 ;;9002226.02101,"686,50458-0587-01 ",.01)
 ;;50458-0587-01
 ;;9002226.02101,"686,50458-0587-01 ",.02)
 ;;50458-0587-01
 ;;9002226.02101,"686,50458-0588-01 ",.01)
 ;;50458-0588-01
 ;;9002226.02101,"686,50458-0588-01 ",.02)
 ;;50458-0588-01
 ;;9002226.02101,"686,51991-0712-50 ",.01)
 ;;51991-0712-50
 ;;9002226.02101,"686,51991-0712-50 ",.02)
 ;;51991-0712-50
 ;;9002226.02101,"686,51991-0713-50 ",.01)
 ;;51991-0713-50
 ;;9002226.02101,"686,51991-0713-50 ",.02)
 ;;51991-0713-50
 ;;9002226.02101,"686,52152-0159-02 ",.01)
 ;;52152-0159-02
 ;;9002226.02101,"686,52152-0159-02 ",.02)
 ;;52152-0159-02
 ;;9002226.02101,"686,52152-0159-05 ",.01)
 ;;52152-0159-05
 ;;9002226.02101,"686,52152-0159-05 ",.02)
 ;;52152-0159-05
 ;;9002226.02101,"686,52152-0160-02 ",.01)
 ;;52152-0160-02
 ;;9002226.02101,"686,52152-0160-02 ",.02)
 ;;52152-0160-02
 ;;9002226.02101,"686,52152-0160-05 ",.01)
 ;;52152-0160-05
 ;;9002226.02101,"686,52152-0160-05 ",.02)
 ;;52152-0160-05
 ;;9002226.02101,"686,52152-0167-02 ",.01)
 ;;52152-0167-02
 ;;9002226.02101,"686,52152-0167-02 ",.02)
 ;;52152-0167-02
 ;;9002226.02101,"686,52152-0167-05 ",.01)
 ;;52152-0167-05
 ;;9002226.02101,"686,52152-0167-05 ",.02)
 ;;52152-0167-05
 ;;9002226.02101,"686,52152-0170-02 ",.01)
 ;;52152-0170-02
 ;;9002226.02101,"686,52152-0170-02 ",.02)
 ;;52152-0170-02
 ;;9002226.02101,"686,52152-0170-05 ",.01)
 ;;52152-0170-05
 ;;9002226.02101,"686,52152-0170-05 ",.02)
 ;;52152-0170-05
 ;;9002226.02101,"686,52152-0173-02 ",.01)
 ;;52152-0173-02
 ;;9002226.02101,"686,52152-0173-02 ",.02)
 ;;52152-0173-02
 ;;9002226.02101,"686,52152-0173-05 ",.01)
 ;;52152-0173-05
 ;;9002226.02101,"686,52152-0173-05 ",.02)
 ;;52152-0173-05
 ;;9002226.02101,"686,52152-0327-02 ",.01)
 ;;52152-0327-02
 ;;9002226.02101,"686,52152-0327-02 ",.02)
 ;;52152-0327-02
 ;;9002226.02101,"686,52152-0327-05 ",.01)
 ;;52152-0327-05
 ;;9002226.02101,"686,52152-0327-05 ",.02)
 ;;52152-0327-05
 ;;9002226.02101,"686,52604-0010-01 ",.01)
 ;;52604-0010-01
 ;;9002226.02101,"686,52604-0010-01 ",.02)
 ;;52604-0010-01
 ;;9002226.02101,"686,52604-0470-01 ",.01)
 ;;52604-0470-01
 ;;9002226.02101,"686,52604-0470-01 ",.02)
 ;;52604-0470-01
 ;;9002226.02101,"686,52637-0030-10 ",.01)
 ;;52637-0030-10
 ;;9002226.02101,"686,52637-0030-10 ",.02)
 ;;52637-0030-10
 ;;9002226.02101,"686,52637-0035-10 ",.01)
 ;;52637-0035-10
 ;;9002226.02101,"686,52637-0035-10 ",.02)
 ;;52637-0035-10
 ;;9002226.02101,"686,52637-0036-10 ",.01)
 ;;52637-0036-10
 ;;9002226.02101,"686,52637-0036-10 ",.02)
 ;;52637-0036-10
 ;;9002226.02101,"686,52637-0051-10 ",.01)
 ;;52637-0051-10
 ;;9002226.02101,"686,52637-0051-10 ",.02)
 ;;52637-0051-10
 ;;9002226.02101,"686,52637-0052-10 ",.01)
 ;;52637-0052-10
 ;;9002226.02101,"686,52637-0052-10 ",.02)
 ;;52637-0052-10
 ;;9002226.02101,"686,52959-0150-30 ",.01)
 ;;52959-0150-30
 ;;9002226.02101,"686,52959-0150-30 ",.02)
 ;;52959-0150-30
 ;;9002226.02101,"686,52959-0150-90 ",.01)
 ;;52959-0150-90
 ;;9002226.02101,"686,52959-0150-90 ",.02)
 ;;52959-0150-90
 ;;9002226.02101,"686,52959-0282-00 ",.01)
 ;;52959-0282-00
 ;;9002226.02101,"686,52959-0282-00 ",.02)
 ;;52959-0282-00
 ;;9002226.02101,"686,52959-0282-21 ",.01)
 ;;52959-0282-21
 ;;9002226.02101,"686,52959-0282-21 ",.02)
 ;;52959-0282-21
 ;;9002226.02101,"686,52959-0282-28 ",.01)
 ;;52959-0282-28
 ;;9002226.02101,"686,52959-0282-28 ",.02)
 ;;52959-0282-28
 ;;9002226.02101,"686,52959-0282-30 ",.01)
 ;;52959-0282-30
 ;;9002226.02101,"686,52959-0282-30 ",.02)
 ;;52959-0282-30
 ;;9002226.02101,"686,52959-0282-42 ",.01)
 ;;52959-0282-42
 ;;9002226.02101,"686,52959-0282-42 ",.02)
 ;;52959-0282-42
 ;;9002226.02101,"686,52959-0282-90 ",.01)
 ;;52959-0282-90
 ;;9002226.02101,"686,52959-0282-90 ",.02)
 ;;52959-0282-90
 ;;9002226.02101,"686,52959-0329-14 ",.01)
 ;;52959-0329-14
 ;;9002226.02101,"686,52959-0329-14 ",.02)
 ;;52959-0329-14
 ;;9002226.02101,"686,52959-0329-28 ",.01)
 ;;52959-0329-28
 ;;9002226.02101,"686,52959-0329-28 ",.02)
 ;;52959-0329-28
 ;;9002226.02101,"686,52959-0329-30 ",.01)
 ;;52959-0329-30
 ;;9002226.02101,"686,52959-0329-30 ",.02)
 ;;52959-0329-30
 ;;9002226.02101,"686,52959-0329-90 ",.01)
 ;;52959-0329-90
 ;;9002226.02101,"686,52959-0329-90 ",.02)
 ;;52959-0329-90
 ;;9002226.02101,"686,52959-0418-30 ",.01)
 ;;52959-0418-30
 ;;9002226.02101,"686,52959-0418-30 ",.02)
 ;;52959-0418-30
 ;;9002226.02101,"686,52959-0426-06 ",.01)
 ;;52959-0426-06
 ;;9002226.02101,"686,52959-0426-06 ",.02)
 ;;52959-0426-06
 ;;9002226.02101,"686,52959-0426-07 ",.01)
 ;;52959-0426-07
 ;;9002226.02101,"686,52959-0426-07 ",.02)
 ;;52959-0426-07
 ;;9002226.02101,"686,52959-0426-14 ",.01)
 ;;52959-0426-14
 ;;9002226.02101,"686,52959-0426-14 ",.02)
 ;;52959-0426-14
 ;;9002226.02101,"686,52959-0426-15 ",.01)
 ;;52959-0426-15
 ;;9002226.02101,"686,52959-0426-15 ",.02)
 ;;52959-0426-15
 ;;9002226.02101,"686,52959-0426-24 ",.01)
 ;;52959-0426-24
 ;;9002226.02101,"686,52959-0426-24 ",.02)
 ;;52959-0426-24
 ;;9002226.02101,"686,52959-0426-28 ",.01)
 ;;52959-0426-28
 ;;9002226.02101,"686,52959-0426-28 ",.02)
 ;;52959-0426-28
 ;;9002226.02101,"686,52959-0426-30 ",.01)
 ;;52959-0426-30
 ;;9002226.02101,"686,52959-0426-30 ",.02)
 ;;52959-0426-30
 ;;9002226.02101,"686,52959-0426-60 ",.01)
 ;;52959-0426-60
 ;;9002226.02101,"686,52959-0426-60 ",.02)
 ;;52959-0426-60
 ;;9002226.02101,"686,52959-0432-07 ",.01)
 ;;52959-0432-07
 ;;9002226.02101,"686,52959-0432-07 ",.02)
 ;;52959-0432-07
 ;;9002226.02101,"686,52959-0432-14 ",.01)
 ;;52959-0432-14
 ;;9002226.02101,"686,52959-0432-14 ",.02)
 ;;52959-0432-14
 ;;9002226.02101,"686,52959-0432-30 ",.01)
 ;;52959-0432-30
 ;;9002226.02101,"686,52959-0432-30 ",.02)
 ;;52959-0432-30
 ;;9002226.02101,"686,52959-0440-07 ",.01)
 ;;52959-0440-07
 ;;9002226.02101,"686,52959-0440-07 ",.02)
 ;;52959-0440-07
 ;;9002226.02101,"686,52959-0440-14 ",.01)
 ;;52959-0440-14
 ;;9002226.02101,"686,52959-0440-14 ",.02)
 ;;52959-0440-14
 ;;9002226.02101,"686,52959-0440-15 ",.01)
 ;;52959-0440-15
 ;;9002226.02101,"686,52959-0440-15 ",.02)
 ;;52959-0440-15
 ;;9002226.02101,"686,52959-0440-28 ",.01)
 ;;52959-0440-28
 ;;9002226.02101,"686,52959-0440-28 ",.02)
 ;;52959-0440-28
 ;;9002226.02101,"686,52959-0440-30 ",.01)
 ;;52959-0440-30
 ;;9002226.02101,"686,52959-0440-30 ",.02)
 ;;52959-0440-30
 ;;9002226.02101,"686,52959-0628-28 ",.01)
 ;;52959-0628-28
 ;;9002226.02101,"686,52959-0628-28 ",.02)
 ;;52959-0628-28
 ;;9002226.02101,"686,52959-0628-30 ",.01)
 ;;52959-0628-30
 ;;9002226.02101,"686,52959-0628-30 ",.02)
 ;;52959-0628-30
 ;;9002226.02101,"686,52959-0812-07 ",.01)
 ;;52959-0812-07
 ;;9002226.02101,"686,52959-0812-07 ",.02)
 ;;52959-0812-07
 ;;9002226.02101,"686,52959-0812-10 ",.01)
 ;;52959-0812-10
 ;;9002226.02101,"686,52959-0812-10 ",.02)
 ;;52959-0812-10
 ;;9002226.02101,"686,52959-0812-14 ",.01)
 ;;52959-0812-14
 ;;9002226.02101,"686,52959-0812-14 ",.02)
 ;;52959-0812-14
 ;;9002226.02101,"686,52959-0812-20 ",.01)
 ;;52959-0812-20
 ;;9002226.02101,"686,52959-0812-20 ",.02)
 ;;52959-0812-20
 ;;9002226.02101,"686,52959-0812-30 ",.01)
 ;;52959-0812-30
 ;;9002226.02101,"686,52959-0812-30 ",.02)
 ;;52959-0812-30
 ;;9002226.02101,"686,52959-0812-60 ",.01)
 ;;52959-0812-60
 ;;9002226.02101,"686,52959-0812-60 ",.02)
 ;;52959-0812-60
 ;;9002226.02101,"686,52959-0812-90 ",.01)
 ;;52959-0812-90
 ;;9002226.02101,"686,52959-0812-90 ",.02)
 ;;52959-0812-90
 ;;9002226.02101,"686,52959-0886-07 ",.01)
 ;;52959-0886-07
 ;;9002226.02101,"686,52959-0886-07 ",.02)
 ;;52959-0886-07
 ;;9002226.02101,"686,52959-0886-30 ",.01)
 ;;52959-0886-30
 ;;9002226.02101,"686,52959-0886-30 ",.02)
 ;;52959-0886-30
 ;;9002226.02101,"686,53014-0530-07 ",.01)
 ;;53014-0530-07
 ;;9002226.02101,"686,53014-0530-07 ",.02)
 ;;53014-0530-07
 ;;9002226.02101,"686,53014-0530-12 ",.01)
 ;;53014-0530-12
 ;;9002226.02101,"686,53014-0530-12 ",.02)
 ;;53014-0530-12
 ;;9002226.02101,"686,53014-0531-07 ",.01)
 ;;53014-0531-07
 ;;9002226.02101,"686,53014-0531-07 ",.02)
 ;;53014-0531-07
 ;;9002226.02101,"686,53014-0531-12 ",.01)
 ;;53014-0531-12
 ;;9002226.02101,"686,53014-0531-12 ",.02)
 ;;53014-0531-12
 ;;9002226.02101,"686,53014-0532-07 ",.01)
 ;;53014-0532-07
 ;;9002226.02101,"686,53014-0532-07 ",.02)
 ;;53014-0532-07
 ;;9002226.02101,"686,53014-0532-12 ",.01)
 ;;53014-0532-12
 ;;9002226.02101,"686,53014-0532-12 ",.02)
 ;;53014-0532-12
 ;;9002226.02101,"686,53014-0574-07 ",.01)
 ;;53014-0574-07
 ;;9002226.02101,"686,53014-0574-07 ",.02)
 ;;53014-0574-07
 ;;9002226.02101,"686,53014-0575-07 ",.01)
 ;;53014-0575-07
 ;;9002226.02101,"686,53014-0575-07 ",.02)
 ;;53014-0575-07
 ;;9002226.02101,"686,53014-0575-72 ",.01)
 ;;53014-0575-72
 ;;9002226.02101,"686,53014-0575-72 ",.02)
 ;;53014-0575-72
 ;;9002226.02101,"686,53014-0576-07 ",.01)
 ;;53014-0576-07
 ;;9002226.02101,"686,53014-0576-07 ",.02)
 ;;53014-0576-07
 ;;9002226.02101,"686,53014-0579-07 ",.01)
 ;;53014-0579-07
 ;;9002226.02101,"686,53014-0579-07 ",.02)
 ;;53014-0579-07
 ;;9002226.02101,"686,53014-0580-07 ",.01)
 ;;53014-0580-07
 ;;9002226.02101,"686,53014-0580-07 ",.02)
 ;;53014-0580-07
 ;;9002226.02101,"686,53014-0581-07 ",.01)
 ;;53014-0581-07
 ;;9002226.02101,"686,53014-0581-07 ",.02)
 ;;53014-0581-07
 ;;9002226.02101,"686,53014-0582-07 ",.01)
 ;;53014-0582-07
 ;;9002226.02101,"686,53014-0582-07 ",.02)
 ;;53014-0582-07
 ;;9002226.02101,"686,53014-0583-07 ",.01)
 ;;53014-0583-07
 ;;9002226.02101,"686,53014-0583-07 ",.02)
 ;;53014-0583-07
 ;;9002226.02101,"686,53014-0584-07 ",.01)
 ;;53014-0584-07
 ;;9002226.02101,"686,53014-0584-07 ",.02)
 ;;53014-0584-07
 ;;9002226.02101,"686,53014-0593-07 ",.01)
 ;;53014-0593-07
 ;;9002226.02101,"686,53014-0593-07 ",.02)
 ;;53014-0593-07
 ;;9002226.02101,"686,53014-0594-07 ",.01)
 ;;53014-0594-07
 ;;9002226.02101,"686,53014-0594-07 ",.02)
 ;;53014-0594-07
 ;;9002226.02101,"686,53014-0903-71 ",.01)
 ;;53014-0903-71
 ;;9002226.02101,"686,53014-0903-71 ",.02)
 ;;53014-0903-71
 ;;9002226.02101,"686,53014-0904-71 ",.01)
 ;;53014-0904-71
 ;;9002226.02101,"686,53014-0904-71 ",.02)
 ;;53014-0904-71
 ;;9002226.02101,"686,53014-0904-84 ",.01)
 ;;53014-0904-84
 ;;9002226.02101,"686,53014-0904-84 ",.02)
 ;;53014-0904-84
 ;;9002226.02101,"686,53489-0406-01 ",.01)
 ;;53489-0406-01
 ;;9002226.02101,"686,53489-0406-01 ",.02)
 ;;53489-0406-01
 ;;9002226.02101,"686,53489-0406-10 ",.01)
 ;;53489-0406-10
 ;;9002226.02101,"686,53489-0406-10 ",.02)
 ;;53489-0406-10
 ;;9002226.02101,"686,53489-0433-01 ",.01)
 ;;53489-0433-01
 ;;9002226.02101,"686,53489-0433-01 ",.02)
 ;;53489-0433-01
 ;;9002226.02101,"686,53489-0433-10 ",.01)
 ;;53489-0433-10
 ;;9002226.02101,"686,53489-0433-10 ",.02)
 ;;53489-0433-10
 ;;9002226.02101,"686,53489-0564-01 ",.01)
 ;;53489-0564-01
 ;;9002226.02101,"686,53489-0564-01 ",.02)
 ;;53489-0564-01
 ;;9002226.02101,"686,53489-0565-01 ",.01)
 ;;53489-0565-01
 ;;9002226.02101,"686,53489-0565-01 ",.02)
 ;;53489-0565-01
 ;;9002226.02101,"686,53489-0566-01 ",.01)
 ;;53489-0566-01
 ;;9002226.02101,"686,53489-0566-01 ",.02)
 ;;53489-0566-01
 ;;9002226.02101,"686,53489-0567-01 ",.01)
 ;;53489-0567-01
 ;;9002226.02101,"686,53489-0567-01 ",.02)
 ;;53489-0567-01
 ;;9002226.02101,"686,53489-0568-01 ",.01)
 ;;53489-0568-01
 ;;9002226.02101,"686,53489-0568-01 ",.02)
 ;;53489-0568-01
 ;;9002226.02101,"686,53489-0569-01 ",.01)
 ;;53489-0569-01
 ;;9002226.02101,"686,53489-0569-01 ",.02)
 ;;53489-0569-01
 ;;9002226.02101,"686,53489-0570-01 ",.01)
 ;;53489-0570-01
 ;;9002226.02101,"686,53489-0570-01 ",.02)
 ;;53489-0570-01
 ;;9002226.02101,"686,54092-0371-01 ",.01)
 ;;54092-0371-01
 ;;9002226.02101,"686,54092-0371-01 ",.02)
 ;;54092-0371-01
 ;;9002226.02101,"686,54092-0372-01 ",.01)
 ;;54092-0372-01
 ;;9002226.02101,"686,54092-0372-01 ",.02)
 ;;54092-0372-01
 ;;9002226.02101,"686,54092-0373-01 ",.01)
 ;;54092-0373-01