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

BGP12XJ.m

Go to the documentation of this file.
BGP12XJ ; 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,54868-0252-03 ",.01)
 ;;54868-0252-03
 ;;9002226.02101,"686,54868-0252-03 ",.02)
 ;;54868-0252-03
 ;;9002226.02101,"686,54868-0253-00 ",.01)
 ;;54868-0253-00
 ;;9002226.02101,"686,54868-0253-00 ",.02)
 ;;54868-0253-00
 ;;9002226.02101,"686,54868-0253-01 ",.01)
 ;;54868-0253-01
 ;;9002226.02101,"686,54868-0253-01 ",.02)
 ;;54868-0253-01
 ;;9002226.02101,"686,54868-0283-00 ",.01)
 ;;54868-0283-00
 ;;9002226.02101,"686,54868-0283-00 ",.02)
 ;;54868-0283-00
 ;;9002226.02101,"686,54868-0283-01 ",.01)
 ;;54868-0283-01
 ;;9002226.02101,"686,54868-0283-01 ",.02)
 ;;54868-0283-01
 ;;9002226.02101,"686,54868-0479-01 ",.01)
 ;;54868-0479-01
 ;;9002226.02101,"686,54868-0479-01 ",.02)
 ;;54868-0479-01
 ;;9002226.02101,"686,54868-0668-00 ",.01)
 ;;54868-0668-00
 ;;9002226.02101,"686,54868-0668-00 ",.02)
 ;;54868-0668-00
 ;;9002226.02101,"686,54868-0668-01 ",.01)
 ;;54868-0668-01
 ;;9002226.02101,"686,54868-0668-01 ",.02)
 ;;54868-0668-01
 ;;9002226.02101,"686,54868-0733-00 ",.01)
 ;;54868-0733-00
 ;;9002226.02101,"686,54868-0733-00 ",.02)
 ;;54868-0733-00
 ;;9002226.02101,"686,54868-0733-01 ",.01)
 ;;54868-0733-01
 ;;9002226.02101,"686,54868-0733-01 ",.02)
 ;;54868-0733-01
 ;;9002226.02101,"686,54868-0733-02 ",.01)
 ;;54868-0733-02
 ;;9002226.02101,"686,54868-0733-02 ",.02)
 ;;54868-0733-02
 ;;9002226.02101,"686,54868-0733-03 ",.01)
 ;;54868-0733-03
 ;;9002226.02101,"686,54868-0733-03 ",.02)
 ;;54868-0733-03
 ;;9002226.02101,"686,54868-0733-04 ",.01)
 ;;54868-0733-04
 ;;9002226.02101,"686,54868-0733-04 ",.02)
 ;;54868-0733-04
 ;;9002226.02101,"686,54868-1051-01 ",.01)
 ;;54868-1051-01
 ;;9002226.02101,"686,54868-1051-01 ",.02)
 ;;54868-1051-01
 ;;9002226.02101,"686,54868-1462-00 ",.01)
 ;;54868-1462-00
 ;;9002226.02101,"686,54868-1462-00 ",.02)
 ;;54868-1462-00
 ;;9002226.02101,"686,54868-1462-01 ",.01)
 ;;54868-1462-01
 ;;9002226.02101,"686,54868-1462-01 ",.02)
 ;;54868-1462-01
 ;;9002226.02101,"686,54868-1463-00 ",.01)
 ;;54868-1463-00
 ;;9002226.02101,"686,54868-1463-00 ",.02)
 ;;54868-1463-00
 ;;9002226.02101,"686,54868-1704-00 ",.01)
 ;;54868-1704-00
 ;;9002226.02101,"686,54868-1704-00 ",.02)
 ;;54868-1704-00
 ;;9002226.02101,"686,54868-1704-01 ",.01)
 ;;54868-1704-01
 ;;9002226.02101,"686,54868-1704-01 ",.02)
 ;;54868-1704-01
 ;;9002226.02101,"686,54868-1704-02 ",.01)
 ;;54868-1704-02
 ;;9002226.02101,"686,54868-1704-02 ",.02)
 ;;54868-1704-02
 ;;9002226.02101,"686,54868-1704-03 ",.01)
 ;;54868-1704-03
 ;;9002226.02101,"686,54868-1704-03 ",.02)
 ;;54868-1704-03
 ;;9002226.02101,"686,54868-1704-04 ",.01)
 ;;54868-1704-04
 ;;9002226.02101,"686,54868-1704-04 ",.02)
 ;;54868-1704-04
 ;;9002226.02101,"686,54868-1704-05 ",.01)
 ;;54868-1704-05
 ;;9002226.02101,"686,54868-1704-05 ",.02)
 ;;54868-1704-05
 ;;9002226.02101,"686,54868-1706-00 ",.01)
 ;;54868-1706-00
 ;;9002226.02101,"686,54868-1706-00 ",.02)
 ;;54868-1706-00
 ;;9002226.02101,"686,54868-1706-01 ",.01)
 ;;54868-1706-01
 ;;9002226.02101,"686,54868-1706-01 ",.02)
 ;;54868-1706-01
 ;;9002226.02101,"686,54868-1706-02 ",.01)
 ;;54868-1706-02
 ;;9002226.02101,"686,54868-1706-02 ",.02)
 ;;54868-1706-02
 ;;9002226.02101,"686,54868-1706-03 ",.01)
 ;;54868-1706-03
 ;;9002226.02101,"686,54868-1706-03 ",.02)
 ;;54868-1706-03
 ;;9002226.02101,"686,54868-2418-00 ",.01)
 ;;54868-2418-00
 ;;9002226.02101,"686,54868-2418-00 ",.02)
 ;;54868-2418-00
 ;;9002226.02101,"686,54868-2418-01 ",.01)
 ;;54868-2418-01
 ;;9002226.02101,"686,54868-2418-01 ",.02)
 ;;54868-2418-01
 ;;9002226.02101,"686,54868-2418-02 ",.01)
 ;;54868-2418-02
 ;;9002226.02101,"686,54868-2418-02 ",.02)
 ;;54868-2418-02
 ;;9002226.02101,"686,54868-2762-00 ",.01)
 ;;54868-2762-00
 ;;9002226.02101,"686,54868-2762-00 ",.02)
 ;;54868-2762-00
 ;;9002226.02101,"686,54868-2974-00 ",.01)
 ;;54868-2974-00
 ;;9002226.02101,"686,54868-2974-00 ",.02)
 ;;54868-2974-00
 ;;9002226.02101,"686,54868-2974-01 ",.01)
 ;;54868-2974-01
 ;;9002226.02101,"686,54868-2974-01 ",.02)
 ;;54868-2974-01
 ;;9002226.02101,"686,54868-2974-02 ",.01)
 ;;54868-2974-02
 ;;9002226.02101,"686,54868-2974-02 ",.02)
 ;;54868-2974-02
 ;;9002226.02101,"686,54868-2974-03 ",.01)
 ;;54868-2974-03
 ;;9002226.02101,"686,54868-2974-03 ",.02)
 ;;54868-2974-03
 ;;9002226.02101,"686,54868-3071-00 ",.01)
 ;;54868-3071-00
 ;;9002226.02101,"686,54868-3071-00 ",.02)
 ;;54868-3071-00
 ;;9002226.02101,"686,54868-3402-00 ",.01)
 ;;54868-3402-00
 ;;9002226.02101,"686,54868-3402-00 ",.02)
 ;;54868-3402-00
 ;;9002226.02101,"686,54868-3402-01 ",.01)
 ;;54868-3402-01
 ;;9002226.02101,"686,54868-3402-01 ",.02)
 ;;54868-3402-01
 ;;9002226.02101,"686,54868-3403-00 ",.01)
 ;;54868-3403-00
 ;;9002226.02101,"686,54868-3403-00 ",.02)
 ;;54868-3403-00
 ;;9002226.02101,"686,54868-3454-00 ",.01)
 ;;54868-3454-00
 ;;9002226.02101,"686,54868-3454-00 ",.02)
 ;;54868-3454-00
 ;;9002226.02101,"686,54868-3454-01 ",.01)
 ;;54868-3454-01
 ;;9002226.02101,"686,54868-3454-01 ",.02)
 ;;54868-3454-01
 ;;9002226.02101,"686,54868-3454-02 ",.01)
 ;;54868-3454-02
 ;;9002226.02101,"686,54868-3454-02 ",.02)
 ;;54868-3454-02
 ;;9002226.02101,"686,54868-3454-03 ",.01)
 ;;54868-3454-03
 ;;9002226.02101,"686,54868-3454-03 ",.02)
 ;;54868-3454-03
 ;;9002226.02101,"686,54868-3454-04 ",.01)
 ;;54868-3454-04
 ;;9002226.02101,"686,54868-3454-04 ",.02)
 ;;54868-3454-04
 ;;9002226.02101,"686,54868-3454-05 ",.01)
 ;;54868-3454-05
 ;;9002226.02101,"686,54868-3454-05 ",.02)
 ;;54868-3454-05
 ;;9002226.02101,"686,54868-3454-06 ",.01)
 ;;54868-3454-06
 ;;9002226.02101,"686,54868-3454-06 ",.02)
 ;;54868-3454-06
 ;;9002226.02101,"686,54868-3674-00 ",.01)
 ;;54868-3674-00
 ;;9002226.02101,"686,54868-3674-00 ",.02)
 ;;54868-3674-00
 ;;9002226.02101,"686,54868-3674-01 ",.01)
 ;;54868-3674-01
 ;;9002226.02101,"686,54868-3674-01 ",.02)
 ;;54868-3674-01
 ;;9002226.02101,"686,54868-3674-02 ",.01)
 ;;54868-3674-02
 ;;9002226.02101,"686,54868-3674-02 ",.02)
 ;;54868-3674-02
 ;;9002226.02101,"686,54868-3811-00 ",.01)
 ;;54868-3811-00
 ;;9002226.02101,"686,54868-3811-00 ",.02)
 ;;54868-3811-00
 ;;9002226.02101,"686,54868-3976-00 ",.01)
 ;;54868-3976-00
 ;;9002226.02101,"686,54868-3976-00 ",.02)
 ;;54868-3976-00
 ;;9002226.02101,"686,54868-4410-00 ",.01)
 ;;54868-4410-00
 ;;9002226.02101,"686,54868-4410-00 ",.02)
 ;;54868-4410-00
 ;;9002226.02101,"686,54868-4410-01 ",.01)
 ;;54868-4410-01
 ;;9002226.02101,"686,54868-4410-01 ",.02)
 ;;54868-4410-01
 ;;9002226.02101,"686,54868-4489-00 ",.01)
 ;;54868-4489-00
 ;;9002226.02101,"686,54868-4489-00 ",.02)
 ;;54868-4489-00
 ;;9002226.02101,"686,54868-4489-01 ",.01)
 ;;54868-4489-01
 ;;9002226.02101,"686,54868-4489-01 ",.02)
 ;;54868-4489-01
 ;;9002226.02101,"686,54868-4489-02 ",.01)
 ;;54868-4489-02
 ;;9002226.02101,"686,54868-4489-02 ",.02)
 ;;54868-4489-02
 ;;9002226.02101,"686,54868-4489-03 ",.01)
 ;;54868-4489-03
 ;;9002226.02101,"686,54868-4489-03 ",.02)
 ;;54868-4489-03
 ;;9002226.02101,"686,54868-4631-00 ",.01)
 ;;54868-4631-00
 ;;9002226.02101,"686,54868-4631-00 ",.02)
 ;;54868-4631-00
 ;;9002226.02101,"686,54868-4631-01 ",.01)
 ;;54868-4631-01
 ;;9002226.02101,"686,54868-4631-01 ",.02)
 ;;54868-4631-01
 ;;9002226.02101,"686,54868-4631-02 ",.01)
 ;;54868-4631-02
 ;;9002226.02101,"686,54868-4631-02 ",.02)
 ;;54868-4631-02
 ;;9002226.02101,"686,54868-4631-03 ",.01)
 ;;54868-4631-03
 ;;9002226.02101,"686,54868-4631-03 ",.02)
 ;;54868-4631-03
 ;;9002226.02101,"686,54868-4640-00 ",.01)
 ;;54868-4640-00
 ;;9002226.02101,"686,54868-4640-00 ",.02)
 ;;54868-4640-00
 ;;9002226.02101,"686,54868-4640-01 ",.01)
 ;;54868-4640-01
 ;;9002226.02101,"686,54868-4640-01 ",.02)
 ;;54868-4640-01
 ;;9002226.02101,"686,54868-4640-02 ",.01)
 ;;54868-4640-02
 ;;9002226.02101,"686,54868-4640-02 ",.02)
 ;;54868-4640-02
 ;;9002226.02101,"686,54868-4718-00 ",.01)
 ;;54868-4718-00
 ;;9002226.02101,"686,54868-4718-00 ",.02)
 ;;54868-4718-00
 ;;9002226.02101,"686,54868-4718-01 ",.01)
 ;;54868-4718-01
 ;;9002226.02101,"686,54868-4718-01 ",.02)
 ;;54868-4718-01
 ;;9002226.02101,"686,54868-4728-00 ",.01)
 ;;54868-4728-00
 ;;9002226.02101,"686,54868-4728-00 ",.02)
 ;;54868-4728-00
 ;;9002226.02101,"686,54868-4728-01 ",.01)
 ;;54868-4728-01
 ;;9002226.02101,"686,54868-4728-01 ",.02)
 ;;54868-4728-01
 ;;9002226.02101,"686,54868-4728-02 ",.01)
 ;;54868-4728-02
 ;;9002226.02101,"686,54868-4728-02 ",.02)
 ;;54868-4728-02
 ;;9002226.02101,"686,54868-4728-03 ",.01)
 ;;54868-4728-03
 ;;9002226.02101,"686,54868-4728-03 ",.02)
 ;;54868-4728-03
 ;;9002226.02101,"686,54868-4728-04 ",.01)
 ;;54868-4728-04
 ;;9002226.02101,"686,54868-4728-04 ",.02)
 ;;54868-4728-04
 ;;9002226.02101,"686,54868-4728-05 ",.01)
 ;;54868-4728-05
 ;;9002226.02101,"686,54868-4728-05 ",.02)
 ;;54868-4728-05
 ;;9002226.02101,"686,54868-4758-00 ",.01)
 ;;54868-4758-00
 ;;9002226.02101,"686,54868-4758-00 ",.02)
 ;;54868-4758-00
 ;;9002226.02101,"686,54868-4758-01 ",.01)
 ;;54868-4758-01
 ;;9002226.02101,"686,54868-4758-01 ",.02)
 ;;54868-4758-01
 ;;9002226.02101,"686,54868-4759-00 ",.01)
 ;;54868-4759-00
 ;;9002226.02101,"686,54868-4759-00 ",.02)
 ;;54868-4759-00
 ;;9002226.02101,"686,54868-4759-01 ",.01)
 ;;54868-4759-01
 ;;9002226.02101,"686,54868-4759-01 ",.02)
 ;;54868-4759-01
 ;;9002226.02101,"686,54868-4759-02 ",.01)
 ;;54868-4759-02
 ;;9002226.02101,"686,54868-4759-02 ",.02)
 ;;54868-4759-02
 ;;9002226.02101,"686,54868-4759-03 ",.01)
 ;;54868-4759-03
 ;;9002226.02101,"686,54868-4759-03 ",.02)
 ;;54868-4759-03
 ;;9002226.02101,"686,54868-4760-00 ",.01)
 ;;54868-4760-00
 ;;9002226.02101,"686,54868-4760-00 ",.02)
 ;;54868-4760-00
 ;;9002226.02101,"686,54868-4760-01 ",.01)
 ;;54868-4760-01
 ;;9002226.02101,"686,54868-4760-01 ",.02)
 ;;54868-4760-01
 ;;9002226.02101,"686,54868-4760-02 ",.01)
 ;;54868-4760-02
 ;;9002226.02101,"686,54868-4760-02 ",.02)
 ;;54868-4760-02
 ;;9002226.02101,"686,54868-4760-03 ",.01)
 ;;54868-4760-03
 ;;9002226.02101,"686,54868-4760-03 ",.02)
 ;;54868-4760-03
 ;;9002226.02101,"686,54868-4789-00 ",.01)
 ;;54868-4789-00
 ;;9002226.02101,"686,54868-4789-00 ",.02)
 ;;54868-4789-00
 ;;9002226.02101,"686,54868-4789-01 ",.01)
 ;;54868-4789-01
 ;;9002226.02101,"686,54868-4789-01 ",.02)
 ;;54868-4789-01
 ;;9002226.02101,"686,54868-4863-00 ",.01)
 ;;54868-4863-00
 ;;9002226.02101,"686,54868-4863-00 ",.02)
 ;;54868-4863-00
 ;;9002226.02101,"686,54868-4863-01 ",.01)
 ;;54868-4863-01
 ;;9002226.02101,"686,54868-4863-01 ",.02)
 ;;54868-4863-01
 ;;9002226.02101,"686,54868-4957-00 ",.01)
 ;;54868-4957-00
 ;;9002226.02101,"686,54868-4957-00 ",.02)
 ;;54868-4957-00
 ;;9002226.02101,"686,54868-4957-01 ",.01)
 ;;54868-4957-01
 ;;9002226.02101,"686,54868-4957-01 ",.02)
 ;;54868-4957-01
 ;;9002226.02101,"686,54868-5007-00 ",.01)
 ;;54868-5007-00
 ;;9002226.02101,"686,54868-5007-00 ",.02)
 ;;54868-5007-00
 ;;9002226.02101,"686,54868-5007-01 ",.01)
 ;;54868-5007-01
 ;;9002226.02101,"686,54868-5007-01 ",.02)
 ;;54868-5007-01
 ;;9002226.02101,"686,54868-5007-02 ",.01)
 ;;54868-5007-02
 ;;9002226.02101,"686,54868-5007-02 ",.02)
 ;;54868-5007-02
 ;;9002226.02101,"686,54868-5073-00 ",.01)
 ;;54868-5073-00
 ;;9002226.02101,"686,54868-5073-00 ",.02)
 ;;54868-5073-00
 ;;9002226.02101,"686,54868-5073-01 ",.01)
 ;;54868-5073-01
 ;;9002226.02101,"686,54868-5073-01 ",.02)
 ;;54868-5073-01
 ;;9002226.02101,"686,54868-5073-02 ",.01)
 ;;54868-5073-02
 ;;9002226.02101,"686,54868-5073-02 ",.02)
 ;;54868-5073-02
 ;;9002226.02101,"686,54868-5073-03 ",.01)
 ;;54868-5073-03
 ;;9002226.02101,"686,54868-5073-03 ",.02)
 ;;54868-5073-03
 ;;9002226.02101,"686,54868-5103-00 ",.01)
 ;;54868-5103-00
 ;;9002226.02101,"686,54868-5103-00 ",.02)
 ;;54868-5103-00
 ;;9002226.02101,"686,54868-5103-01 ",.01)
 ;;54868-5103-01
 ;;9002226.02101,"686,54868-5103-01 ",.02)
 ;;54868-5103-01
 ;;9002226.02101,"686,54868-5103-02 ",.01)
 ;;54868-5103-02
 ;;9002226.02101,"686,54868-5103-02 ",.02)
 ;;54868-5103-02
 ;;9002226.02101,"686,54868-5103-03 ",.01)
 ;;54868-5103-03
 ;;9002226.02101,"686,54868-5103-03 ",.02)
 ;;54868-5103-03
 ;;9002226.02101,"686,54868-5136-00 ",.01)
 ;;54868-5136-00
 ;;9002226.02101,"686,54868-5136-00 ",.02)
 ;;54868-5136-00
 ;;9002226.02101,"686,54868-5140-00 ",.01)
 ;;54868-5140-00
 ;;9002226.02101,"686,54868-5140-00 ",.02)
 ;;54868-5140-00
 ;;9002226.02101,"686,54868-5140-01 ",.01)
 ;;54868-5140-01
 ;;9002226.02101,"686,54868-5140-01 ",.02)
 ;;54868-5140-01
 ;;9002226.02101,"686,54868-5142-00 ",.01)
 ;;54868-5142-00
 ;;9002226.02101,"686,54868-5142-00 ",.02)
 ;;54868-5142-00
 ;;9002226.02101,"686,54868-5142-01 ",.01)
 ;;54868-5142-01