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

BGP14C15.m

Go to the documentation of this file.
BGP14C15 ; 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,"1105,58016-0546-00 ",.01)
 ;;58016-0546-00
 ;;9002226.02101,"1105,58016-0546-00 ",.02)
 ;;58016-0546-00
 ;;9002226.02101,"1105,58016-0900-00 ",.01)
 ;;58016-0900-00
 ;;9002226.02101,"1105,58016-0900-00 ",.02)
 ;;58016-0900-00
 ;;9002226.02101,"1105,58016-0900-02 ",.01)
 ;;58016-0900-02
 ;;9002226.02101,"1105,58016-0900-02 ",.02)
 ;;58016-0900-02
 ;;9002226.02101,"1105,58016-0900-30 ",.01)
 ;;58016-0900-30
 ;;9002226.02101,"1105,58016-0900-30 ",.02)
 ;;58016-0900-30
 ;;9002226.02101,"1105,58016-0900-60 ",.01)
 ;;58016-0900-60
 ;;9002226.02101,"1105,58016-0900-60 ",.02)
 ;;58016-0900-60
 ;;9002226.02101,"1105,58016-0900-90 ",.01)
 ;;58016-0900-90
 ;;9002226.02101,"1105,58016-0900-90 ",.02)
 ;;58016-0900-90
 ;;9002226.02101,"1105,58016-0922-00 ",.01)
 ;;58016-0922-00
 ;;9002226.02101,"1105,58016-0922-00 ",.02)
 ;;58016-0922-00
 ;;9002226.02101,"1105,58016-0922-02 ",.01)
 ;;58016-0922-02
 ;;9002226.02101,"1105,58016-0922-02 ",.02)
 ;;58016-0922-02
 ;;9002226.02101,"1105,58016-0922-30 ",.01)
 ;;58016-0922-30
 ;;9002226.02101,"1105,58016-0922-30 ",.02)
 ;;58016-0922-30
 ;;9002226.02101,"1105,58016-0922-60 ",.01)
 ;;58016-0922-60
 ;;9002226.02101,"1105,58016-0922-60 ",.02)
 ;;58016-0922-60
 ;;9002226.02101,"1105,58016-0922-90 ",.01)
 ;;58016-0922-90
 ;;9002226.02101,"1105,58016-0922-90 ",.02)
 ;;58016-0922-90
 ;;9002226.02101,"1105,58016-0979-00 ",.01)
 ;;58016-0979-00
 ;;9002226.02101,"1105,58016-0979-00 ",.02)
 ;;58016-0979-00
 ;;9002226.02101,"1105,58016-0979-02 ",.01)
 ;;58016-0979-02
 ;;9002226.02101,"1105,58016-0979-02 ",.02)
 ;;58016-0979-02
 ;;9002226.02101,"1105,58016-0979-20 ",.01)
 ;;58016-0979-20
 ;;9002226.02101,"1105,58016-0979-20 ",.02)
 ;;58016-0979-20
 ;;9002226.02101,"1105,58016-0979-30 ",.01)
 ;;58016-0979-30
 ;;9002226.02101,"1105,58016-0979-30 ",.02)
 ;;58016-0979-30
 ;;9002226.02101,"1105,58016-0979-60 ",.01)
 ;;58016-0979-60
 ;;9002226.02101,"1105,58016-0979-60 ",.02)
 ;;58016-0979-60
 ;;9002226.02101,"1105,58016-0979-90 ",.01)
 ;;58016-0979-90
 ;;9002226.02101,"1105,58016-0979-90 ",.02)
 ;;58016-0979-90
 ;;9002226.02101,"1105,58864-0608-30 ",.01)
 ;;58864-0608-30
 ;;9002226.02101,"1105,58864-0608-30 ",.02)
 ;;58864-0608-30
 ;;9002226.02101,"1105,58864-0623-15 ",.01)
 ;;58864-0623-15
 ;;9002226.02101,"1105,58864-0623-15 ",.02)
 ;;58864-0623-15
 ;;9002226.02101,"1105,58864-0623-30 ",.01)
 ;;58864-0623-30
 ;;9002226.02101,"1105,58864-0623-30 ",.02)
 ;;58864-0623-30
 ;;9002226.02101,"1105,58864-0653-30 ",.01)
 ;;58864-0653-30
 ;;9002226.02101,"1105,58864-0653-30 ",.02)
 ;;58864-0653-30
 ;;9002226.02101,"1105,58864-0682-30 ",.01)
 ;;58864-0682-30
 ;;9002226.02101,"1105,58864-0682-30 ",.02)
 ;;58864-0682-30
 ;;9002226.02101,"1105,58864-0685-30 ",.01)
 ;;58864-0685-30
 ;;9002226.02101,"1105,58864-0685-30 ",.02)
 ;;58864-0685-30
 ;;9002226.02101,"1105,58864-0739-30 ",.01)
 ;;58864-0739-30
 ;;9002226.02101,"1105,58864-0739-30 ",.02)
 ;;58864-0739-30
 ;;9002226.02101,"1105,58864-0743-15 ",.01)
 ;;58864-0743-15
 ;;9002226.02101,"1105,58864-0743-15 ",.02)
 ;;58864-0743-15
 ;;9002226.02101,"1105,58864-0743-30 ",.01)
 ;;58864-0743-30
 ;;9002226.02101,"1105,58864-0743-30 ",.02)
 ;;58864-0743-30
 ;;9002226.02101,"1105,58864-0760-30 ",.01)
 ;;58864-0760-30
 ;;9002226.02101,"1105,58864-0760-30 ",.02)
 ;;58864-0760-30
 ;;9002226.02101,"1105,58864-0780-30 ",.01)
 ;;58864-0780-30
 ;;9002226.02101,"1105,58864-0780-30 ",.02)
 ;;58864-0780-30
 ;;9002226.02101,"1105,58864-0780-60 ",.01)
 ;;58864-0780-60
 ;;9002226.02101,"1105,58864-0780-60 ",.02)
 ;;58864-0780-60
 ;;9002226.02101,"1105,58864-0781-30 ",.01)
 ;;58864-0781-30
 ;;9002226.02101,"1105,58864-0781-30 ",.02)
 ;;58864-0781-30
 ;;9002226.02101,"1105,58864-0834-30 ",.01)
 ;;58864-0834-30
 ;;9002226.02101,"1105,58864-0834-30 ",.02)
 ;;58864-0834-30
 ;;9002226.02101,"1105,59630-0628-30 ",.01)
 ;;59630-0628-30
 ;;9002226.02101,"1105,59630-0628-30 ",.02)
 ;;59630-0628-30
 ;;9002226.02101,"1105,59630-0629-30 ",.01)
 ;;59630-0629-30
 ;;9002226.02101,"1105,59630-0629-30 ",.02)
 ;;59630-0629-30
 ;;9002226.02101,"1105,59630-0630-30 ",.01)
 ;;59630-0630-30
 ;;9002226.02101,"1105,59630-0630-30 ",.02)
 ;;59630-0630-30
 ;;9002226.02101,"1105,60429-0248-10 ",.01)
 ;;60429-0248-10
 ;;9002226.02101,"1105,60429-0248-10 ",.02)
 ;;60429-0248-10
 ;;9002226.02101,"1105,60429-0248-60 ",.01)
 ;;60429-0248-60
 ;;9002226.02101,"1105,60429-0248-60 ",.02)
 ;;60429-0248-60
 ;;9002226.02101,"1105,60429-0249-10 ",.01)
 ;;60429-0249-10
 ;;9002226.02101,"1105,60429-0249-10 ",.02)
 ;;60429-0249-10
 ;;9002226.02101,"1105,60429-0249-60 ",.01)
 ;;60429-0249-60
 ;;9002226.02101,"1105,60429-0249-60 ",.02)
 ;;60429-0249-60
 ;;9002226.02101,"1105,60429-0250-10 ",.01)
 ;;60429-0250-10
 ;;9002226.02101,"1105,60429-0250-10 ",.02)
 ;;60429-0250-10
 ;;9002226.02101,"1105,60429-0250-60 ",.01)
 ;;60429-0250-60
 ;;9002226.02101,"1105,60429-0250-60 ",.02)
 ;;60429-0250-60
 ;;9002226.02101,"1105,60429-0250-90 ",.01)
 ;;60429-0250-90
 ;;9002226.02101,"1105,60429-0250-90 ",.02)
 ;;60429-0250-90
 ;;9002226.02101,"1105,60505-0168-05 ",.01)
 ;;60505-0168-05
 ;;9002226.02101,"1105,60505-0168-05 ",.02)
 ;;60505-0168-05
 ;;9002226.02101,"1105,60505-0168-09 ",.01)
 ;;60505-0168-09
 ;;9002226.02101,"1105,60505-0168-09 ",.02)
 ;;60505-0168-09
 ;;9002226.02101,"1105,60505-0169-07 ",.01)
 ;;60505-0169-07
 ;;9002226.02101,"1105,60505-0169-07 ",.02)
 ;;60505-0169-07
 ;;9002226.02101,"1105,60505-0169-09 ",.01)
 ;;60505-0169-09
 ;;9002226.02101,"1105,60505-0169-09 ",.02)
 ;;60505-0169-09
 ;;9002226.02101,"1105,60505-0170-07 ",.01)
 ;;60505-0170-07
 ;;9002226.02101,"1105,60505-0170-07 ",.02)
 ;;60505-0170-07
 ;;9002226.02101,"1105,60505-0170-08 ",.01)
 ;;60505-0170-08
 ;;9002226.02101,"1105,60505-0170-08 ",.02)
 ;;60505-0170-08
 ;;9002226.02101,"1105,60505-0170-09 ",.01)
 ;;60505-0170-09
 ;;9002226.02101,"1105,60505-0170-09 ",.02)
 ;;60505-0170-09
 ;;9002226.02101,"1105,60505-0177-00 ",.01)
 ;;60505-0177-00
 ;;9002226.02101,"1105,60505-0177-00 ",.02)
 ;;60505-0177-00
 ;;9002226.02101,"1105,60505-0178-00 ",.01)
 ;;60505-0178-00
 ;;9002226.02101,"1105,60505-0178-00 ",.02)
 ;;60505-0178-00
 ;;9002226.02101,"1105,60505-0179-00 ",.01)
 ;;60505-0179-00
 ;;9002226.02101,"1105,60505-0179-00 ",.02)
 ;;60505-0179-00
 ;;9002226.02101,"1105,60505-1323-05 ",.01)
 ;;60505-1323-05
 ;;9002226.02101,"1105,60505-1323-05 ",.02)
 ;;60505-1323-05
 ;;9002226.02101,"1105,60505-1323-09 ",.01)
 ;;60505-1323-09
 ;;9002226.02101,"1105,60505-1323-09 ",.02)
 ;;60505-1323-09
 ;;9002226.02101,"1105,60598-0006-90 ",.01)
 ;;60598-0006-90
 ;;9002226.02101,"1105,60598-0006-90 ",.02)
 ;;60598-0006-90
 ;;9002226.02101,"1105,60598-0007-90 ",.01)
 ;;60598-0007-90
 ;;9002226.02101,"1105,60598-0007-90 ",.02)
 ;;60598-0007-90
 ;;9002226.02101,"1105,60598-0008-90 ",.01)
 ;;60598-0008-90
 ;;9002226.02101,"1105,60598-0008-90 ",.02)
 ;;60598-0008-90
 ;;9002226.02101,"1105,60598-0009-90 ",.01)
 ;;60598-0009-90
 ;;9002226.02101,"1105,60598-0009-90 ",.02)
 ;;60598-0009-90
 ;;9002226.02101,"1105,61442-0141-01 ",.01)
 ;;61442-0141-01
 ;;9002226.02101,"1105,61442-0141-01 ",.02)
 ;;61442-0141-01
 ;;9002226.02101,"1105,61442-0141-10 ",.01)
 ;;61442-0141-10
 ;;9002226.02101,"1105,61442-0141-10 ",.02)
 ;;61442-0141-10
 ;;9002226.02101,"1105,61442-0141-60 ",.01)
 ;;61442-0141-60
 ;;9002226.02101,"1105,61442-0141-60 ",.02)
 ;;61442-0141-60
 ;;9002226.02101,"1105,61442-0142-01 ",.01)
 ;;61442-0142-01
 ;;9002226.02101,"1105,61442-0142-01 ",.02)
 ;;61442-0142-01
 ;;9002226.02101,"1105,61442-0142-05 ",.01)
 ;;61442-0142-05
 ;;9002226.02101,"1105,61442-0142-05 ",.02)
 ;;61442-0142-05
 ;;9002226.02101,"1105,61442-0142-10 ",.01)
 ;;61442-0142-10
 ;;9002226.02101,"1105,61442-0142-10 ",.02)
 ;;61442-0142-10
 ;;9002226.02101,"1105,61442-0142-60 ",.01)
 ;;61442-0142-60
 ;;9002226.02101,"1105,61442-0142-60 ",.02)
 ;;61442-0142-60
 ;;9002226.02101,"1105,61442-0143-01 ",.01)
 ;;61442-0143-01
 ;;9002226.02101,"1105,61442-0143-01 ",.02)
 ;;61442-0143-01
 ;;9002226.02101,"1105,61442-0143-05 ",.01)
 ;;61442-0143-05
 ;;9002226.02101,"1105,61442-0143-05 ",.02)
 ;;61442-0143-05
 ;;9002226.02101,"1105,61442-0143-10 ",.01)
 ;;61442-0143-10
 ;;9002226.02101,"1105,61442-0143-10 ",.02)
 ;;61442-0143-10
 ;;9002226.02101,"1105,61442-0143-60 ",.01)
 ;;61442-0143-60
 ;;9002226.02101,"1105,61442-0143-60 ",.02)
 ;;61442-0143-60
 ;;9002226.02101,"1105,62022-0627-30 ",.01)
 ;;62022-0627-30
 ;;9002226.02101,"1105,62022-0627-30 ",.02)
 ;;62022-0627-30
 ;;9002226.02101,"1105,62022-0628-30 ",.01)
 ;;62022-0628-30
 ;;9002226.02101,"1105,62022-0628-30 ",.02)
 ;;62022-0628-30
 ;;9002226.02101,"1105,62022-0629-30 ",.01)
 ;;62022-0629-30
 ;;9002226.02101,"1105,62022-0629-30 ",.02)
 ;;62022-0629-30
 ;;9002226.02101,"1105,62022-0630-30 ",.01)
 ;;62022-0630-30
 ;;9002226.02101,"1105,62022-0630-30 ",.02)
 ;;62022-0630-30
 ;;9002226.02101,"1105,62022-0760-30 ",.01)
 ;;62022-0760-30
 ;;9002226.02101,"1105,62022-0760-30 ",.02)
 ;;62022-0760-30
 ;;9002226.02101,"1105,62022-0770-30 ",.01)
 ;;62022-0770-30
 ;;9002226.02101,"1105,62022-0770-30 ",.02)
 ;;62022-0770-30
 ;;9002226.02101,"1105,62022-0780-30 ",.01)
 ;;62022-0780-30
 ;;9002226.02101,"1105,62022-0780-30 ",.02)
 ;;62022-0780-30
 ;;9002226.02101,"1105,62022-0781-30 ",.01)
 ;;62022-0781-30
 ;;9002226.02101,"1105,62022-0781-30 ",.02)
 ;;62022-0781-30
 ;;9002226.02101,"1105,62037-0791-01 ",.01)
 ;;62037-0791-01
 ;;9002226.02101,"1105,62037-0791-01 ",.02)
 ;;62037-0791-01
 ;;9002226.02101,"1105,62037-0791-60 ",.01)
 ;;62037-0791-60
 ;;9002226.02101,"1105,62037-0791-60 ",.02)
 ;;62037-0791-60
 ;;9002226.02101,"1105,62037-0792-01 ",.01)
 ;;62037-0792-01
 ;;9002226.02101,"1105,62037-0792-01 ",.02)
 ;;62037-0792-01
 ;;9002226.02101,"1105,62037-0792-60 ",.01)
 ;;62037-0792-60
 ;;9002226.02101,"1105,62037-0792-60 ",.02)
 ;;62037-0792-60
 ;;9002226.02101,"1105,62037-0793-01 ",.01)
 ;;62037-0793-01
 ;;9002226.02101,"1105,62037-0793-01 ",.02)
 ;;62037-0793-01
 ;;9002226.02101,"1105,62037-0793-60 ",.01)
 ;;62037-0793-60
 ;;9002226.02101,"1105,62037-0793-60 ",.02)
 ;;62037-0793-60
 ;;9002226.02101,"1105,63304-0595-90 ",.01)
 ;;63304-0595-90
 ;;9002226.02101,"1105,63304-0595-90 ",.02)
 ;;63304-0595-90
 ;;9002226.02101,"1105,63304-0596-90 ",.01)
 ;;63304-0596-90
 ;;9002226.02101,"1105,63304-0596-90 ",.02)
 ;;63304-0596-90
 ;;9002226.02101,"1105,63304-0597-90 ",.01)
 ;;63304-0597-90
 ;;9002226.02101,"1105,63304-0597-90 ",.02)
 ;;63304-0597-90
 ;;9002226.02101,"1105,63304-0598-05 ",.01)
 ;;63304-0598-05
 ;;9002226.02101,"1105,63304-0598-05 ",.02)
 ;;63304-0598-05
 ;;9002226.02101,"1105,63304-0598-90 ",.01)
 ;;63304-0598-90
 ;;9002226.02101,"1105,63304-0598-90 ",.02)
 ;;63304-0598-90
 ;;9002226.02101,"1105,63304-0789-10 ",.01)
 ;;63304-0789-10
 ;;9002226.02101,"1105,63304-0789-10 ",.02)
 ;;63304-0789-10
 ;;9002226.02101,"1105,63304-0789-30 ",.01)
 ;;63304-0789-30
 ;;9002226.02101,"1105,63304-0789-30 ",.02)
 ;;63304-0789-30
 ;;9002226.02101,"1105,63304-0789-90 ",.01)
 ;;63304-0789-90
 ;;9002226.02101,"1105,63304-0789-90 ",.02)
 ;;63304-0789-90
 ;;9002226.02101,"1105,63304-0790-10 ",.01)
 ;;63304-0790-10
 ;;9002226.02101,"1105,63304-0790-10 ",.02)
 ;;63304-0790-10
 ;;9002226.02101,"1105,63304-0790-30 ",.01)
 ;;63304-0790-30
 ;;9002226.02101,"1105,63304-0790-30 ",.02)
 ;;63304-0790-30
 ;;9002226.02101,"1105,63304-0790-90 ",.01)
 ;;63304-0790-90
 ;;9002226.02101,"1105,63304-0790-90 ",.02)
 ;;63304-0790-90
 ;;9002226.02101,"1105,63304-0791-10 ",.01)
 ;;63304-0791-10
 ;;9002226.02101,"1105,63304-0791-10 ",.02)
 ;;63304-0791-10
 ;;9002226.02101,"1105,63304-0791-30 ",.01)
 ;;63304-0791-30
 ;;9002226.02101,"1105,63304-0791-30 ",.02)
 ;;63304-0791-30
 ;;9002226.02101,"1105,63304-0791-90 ",.01)
 ;;63304-0791-90
 ;;9002226.02101,"1105,63304-0791-90 ",.02)
 ;;63304-0791-90
 ;;9002226.02101,"1105,63304-0792-10 ",.01)
 ;;63304-0792-10
 ;;9002226.02101,"1105,63304-0792-10 ",.02)
 ;;63304-0792-10
 ;;9002226.02101,"1105,63304-0792-30 ",.01)
 ;;63304-0792-30
 ;;9002226.02101,"1105,63304-0792-30 ",.02)
 ;;63304-0792-30
 ;;9002226.02101,"1105,63304-0792-90 ",.01)
 ;;63304-0792-90
 ;;9002226.02101,"1105,63304-0792-90 ",.02)
 ;;63304-0792-90
 ;;9002226.02101,"1105,63304-0793-10 ",.01)
 ;;63304-0793-10
 ;;9002226.02101,"1105,63304-0793-10 ",.02)
 ;;63304-0793-10
 ;;9002226.02101,"1105,63304-0793-30 ",.01)
 ;;63304-0793-30
 ;;9002226.02101,"1105,63304-0793-30 ",.02)
 ;;63304-0793-30
 ;;9002226.02101,"1105,63304-0793-50 ",.01)
 ;;63304-0793-50
 ;;9002226.02101,"1105,63304-0793-50 ",.02)
 ;;63304-0793-50