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

BGP47N37.m

Go to the documentation of this file.
BGP47N37 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"730,60429-0017-30 ",.02)
 ;;60429-0017-30
 ;;9002226.02101,"730,60429-0095-01 ",.01)
 ;;60429-0095-01
 ;;9002226.02101,"730,60429-0095-01 ",.02)
 ;;60429-0095-01
 ;;9002226.02101,"730,60429-0096-01 ",.01)
 ;;60429-0096-01
 ;;9002226.02101,"730,60429-0096-01 ",.02)
 ;;60429-0096-01
 ;;9002226.02101,"730,60429-0097-01 ",.01)
 ;;60429-0097-01
 ;;9002226.02101,"730,60429-0097-01 ",.02)
 ;;60429-0097-01
 ;;9002226.02101,"730,60429-0252-01 ",.01)
 ;;60429-0252-01
 ;;9002226.02101,"730,60429-0252-01 ",.02)
 ;;60429-0252-01
 ;;9002226.02101,"730,60429-0252-05 ",.01)
 ;;60429-0252-05
 ;;9002226.02101,"730,60429-0252-05 ",.02)
 ;;60429-0252-05
 ;;9002226.02101,"730,60429-0253-01 ",.01)
 ;;60429-0253-01
 ;;9002226.02101,"730,60429-0253-01 ",.02)
 ;;60429-0253-01
 ;;9002226.02101,"730,60429-0253-05 ",.01)
 ;;60429-0253-05
 ;;9002226.02101,"730,60429-0253-05 ",.02)
 ;;60429-0253-05
 ;;9002226.02101,"730,60429-0287-30 ",.01)
 ;;60429-0287-30
 ;;9002226.02101,"730,60429-0287-30 ",.02)
 ;;60429-0287-30
 ;;9002226.02101,"730,60429-0287-90 ",.01)
 ;;60429-0287-90
 ;;9002226.02101,"730,60429-0287-90 ",.02)
 ;;60429-0287-90
 ;;9002226.02101,"730,60429-0288-30 ",.01)
 ;;60429-0288-30
 ;;9002226.02101,"730,60429-0288-30 ",.02)
 ;;60429-0288-30
 ;;9002226.02101,"730,60429-0288-90 ",.01)
 ;;60429-0288-90
 ;;9002226.02101,"730,60429-0288-90 ",.02)
 ;;60429-0288-90
 ;;9002226.02101,"730,60429-0289-30 ",.01)
 ;;60429-0289-30
 ;;9002226.02101,"730,60429-0289-30 ",.02)
 ;;60429-0289-30
 ;;9002226.02101,"730,60429-0289-90 ",.01)
 ;;60429-0289-90
 ;;9002226.02101,"730,60429-0289-90 ",.02)
 ;;60429-0289-90
 ;;9002226.02101,"730,60429-0530-01 ",.01)
 ;;60429-0530-01
 ;;9002226.02101,"730,60429-0530-01 ",.02)
 ;;60429-0530-01
 ;;9002226.02101,"730,60429-0530-05 ",.01)
 ;;60429-0530-05
 ;;9002226.02101,"730,60429-0530-05 ",.02)
 ;;60429-0530-05
 ;;9002226.02101,"730,60429-0530-20 ",.01)
 ;;60429-0530-20
 ;;9002226.02101,"730,60429-0530-20 ",.02)
 ;;60429-0530-20
 ;;9002226.02101,"730,60429-0530-30 ",.01)
 ;;60429-0530-30
 ;;9002226.02101,"730,60429-0530-30 ",.02)
 ;;60429-0530-30
 ;;9002226.02101,"730,60429-0530-60 ",.01)
 ;;60429-0530-60
 ;;9002226.02101,"730,60429-0530-60 ",.02)
 ;;60429-0530-60
 ;;9002226.02101,"730,60429-0530-90 ",.01)
 ;;60429-0530-90
 ;;9002226.02101,"730,60429-0530-90 ",.02)
 ;;60429-0530-90
 ;;9002226.02101,"730,60429-0531-01 ",.01)
 ;;60429-0531-01
 ;;9002226.02101,"730,60429-0531-01 ",.02)
 ;;60429-0531-01
 ;;9002226.02101,"730,60429-0531-05 ",.01)
 ;;60429-0531-05
 ;;9002226.02101,"730,60429-0531-05 ",.02)
 ;;60429-0531-05
 ;;9002226.02101,"730,60429-0531-15 ",.01)
 ;;60429-0531-15
 ;;9002226.02101,"730,60429-0531-15 ",.02)
 ;;60429-0531-15
 ;;9002226.02101,"730,60429-0531-20 ",.01)
 ;;60429-0531-20
 ;;9002226.02101,"730,60429-0531-20 ",.02)
 ;;60429-0531-20
 ;;9002226.02101,"730,60429-0531-30 ",.01)
 ;;60429-0531-30
 ;;9002226.02101,"730,60429-0531-30 ",.02)
 ;;60429-0531-30
 ;;9002226.02101,"730,60429-0531-60 ",.01)
 ;;60429-0531-60
 ;;9002226.02101,"730,60429-0531-60 ",.02)
 ;;60429-0531-60
 ;;9002226.02101,"730,60429-0531-90 ",.01)
 ;;60429-0531-90
 ;;9002226.02101,"730,60429-0531-90 ",.02)
 ;;60429-0531-90
 ;;9002226.02101,"730,60429-0545-01 ",.01)
 ;;60429-0545-01
 ;;9002226.02101,"730,60429-0545-01 ",.02)
 ;;60429-0545-01
 ;;9002226.02101,"730,60429-0545-10 ",.01)
 ;;60429-0545-10
 ;;9002226.02101,"730,60429-0545-10 ",.02)
 ;;60429-0545-10
 ;;9002226.02101,"730,60429-0546-01 ",.01)
 ;;60429-0546-01
 ;;9002226.02101,"730,60429-0546-01 ",.02)
 ;;60429-0546-01
 ;;9002226.02101,"730,60429-0547-01 ",.01)
 ;;60429-0547-01
 ;;9002226.02101,"730,60429-0547-01 ",.02)
 ;;60429-0547-01
 ;;9002226.02101,"730,60429-0547-05 ",.01)
 ;;60429-0547-05
 ;;9002226.02101,"730,60429-0547-05 ",.02)
 ;;60429-0547-05
 ;;9002226.02101,"730,60432-0009-04 ",.01)
 ;;60432-0009-04
 ;;9002226.02101,"730,60432-0009-04 ",.02)
 ;;60432-0009-04
 ;;9002226.02101,"730,60432-0009-16 ",.01)
 ;;60432-0009-16
 ;;9002226.02101,"730,60432-0009-16 ",.02)
 ;;60432-0009-16
 ;;9002226.02101,"730,60432-0009-28 ",.01)
 ;;60432-0009-28
 ;;9002226.02101,"730,60432-0009-28 ",.02)
 ;;60432-0009-28
 ;;9002226.02101,"730,60432-0533-16 ",.01)
 ;;60432-0533-16
 ;;9002226.02101,"730,60432-0533-16 ",.02)
 ;;60432-0533-16
 ;;9002226.02101,"730,60432-0651-04 ",.01)
 ;;60432-0651-04
 ;;9002226.02101,"730,60432-0651-04 ",.02)
 ;;60432-0651-04
 ;;9002226.02101,"730,60505-2604-00 ",.01)
 ;;60505-2604-00
 ;;9002226.02101,"730,60505-2604-00 ",.02)
 ;;60505-2604-00
 ;;9002226.02101,"730,60505-2604-01 ",.01)
 ;;60505-2604-01
 ;;9002226.02101,"730,60505-2604-01 ",.02)
 ;;60505-2604-01
 ;;9002226.02101,"730,60505-2604-08 ",.01)
 ;;60505-2604-08
 ;;9002226.02101,"730,60505-2604-08 ",.02)
 ;;60505-2604-08
 ;;9002226.02101,"730,60505-2605-00 ",.01)
 ;;60505-2605-00
 ;;9002226.02101,"730,60505-2605-00 ",.02)
 ;;60505-2605-00
 ;;9002226.02101,"730,60505-2605-01 ",.01)
 ;;60505-2605-01
 ;;9002226.02101,"730,60505-2605-01 ",.02)
 ;;60505-2605-01
 ;;9002226.02101,"730,60505-2605-08 ",.01)
 ;;60505-2605-08
 ;;9002226.02101,"730,60505-2605-08 ",.02)
 ;;60505-2605-08
 ;;9002226.02101,"730,60760-0116-30 ",.01)
 ;;60760-0116-30
 ;;9002226.02101,"730,60760-0116-30 ",.02)
 ;;60760-0116-30
 ;;9002226.02101,"730,60760-0191-30 ",.01)
 ;;60760-0191-30
 ;;9002226.02101,"730,60760-0191-30 ",.02)
 ;;60760-0191-30
 ;;9002226.02101,"730,60760-0193-30 ",.01)
 ;;60760-0193-30
 ;;9002226.02101,"730,60760-0193-30 ",.02)
 ;;60760-0193-30
 ;;9002226.02101,"730,60760-0211-30 ",.01)
 ;;60760-0211-30
 ;;9002226.02101,"730,60760-0211-30 ",.02)
 ;;60760-0211-30
 ;;9002226.02101,"730,60760-0212-15 ",.01)
 ;;60760-0212-15
 ;;9002226.02101,"730,60760-0212-15 ",.02)
 ;;60760-0212-15
 ;;9002226.02101,"730,60760-0212-30 ",.01)
 ;;60760-0212-30
 ;;9002226.02101,"730,60760-0212-30 ",.02)
 ;;60760-0212-30
 ;;9002226.02101,"730,60760-0214-30 ",.01)
 ;;60760-0214-30
 ;;9002226.02101,"730,60760-0214-30 ",.02)
 ;;60760-0214-30
 ;;9002226.02101,"730,60760-0221-30 ",.01)
 ;;60760-0221-30
 ;;9002226.02101,"730,60760-0221-30 ",.02)
 ;;60760-0221-30
 ;;9002226.02101,"730,60760-0288-30 ",.01)
 ;;60760-0288-30
 ;;9002226.02101,"730,60760-0288-30 ",.02)
 ;;60760-0288-30
 ;;9002226.02101,"730,60760-0367-30 ",.01)
 ;;60760-0367-30
 ;;9002226.02101,"730,60760-0367-30 ",.02)
 ;;60760-0367-30
 ;;9002226.02101,"730,60760-0367-60 ",.01)
 ;;60760-0367-60
 ;;9002226.02101,"730,60760-0367-60 ",.02)
 ;;60760-0367-60
 ;;9002226.02101,"730,60760-0515-30 ",.01)
 ;;60760-0515-30
 ;;9002226.02101,"730,60760-0515-30 ",.02)
 ;;60760-0515-30
 ;;9002226.02101,"730,60760-0550-30 ",.01)
 ;;60760-0550-30
 ;;9002226.02101,"730,60760-0550-30 ",.02)
 ;;60760-0550-30
 ;;9002226.02101,"730,60760-0551-30 ",.01)
 ;;60760-0551-30
 ;;9002226.02101,"730,60760-0551-30 ",.02)
 ;;60760-0551-30
 ;;9002226.02101,"730,60760-0754-30 ",.01)
 ;;60760-0754-30
 ;;9002226.02101,"730,60760-0754-30 ",.02)
 ;;60760-0754-30
 ;;9002226.02101,"730,60793-0145-01 ",.01)
 ;;60793-0145-01
 ;;9002226.02101,"730,60793-0145-01 ",.02)
 ;;60793-0145-01
 ;;9002226.02101,"730,60793-0146-01 ",.01)
 ;;60793-0146-01
 ;;9002226.02101,"730,60793-0146-01 ",.02)
 ;;60793-0146-01
 ;;9002226.02101,"730,60793-0146-56 ",.01)
 ;;60793-0146-56
 ;;9002226.02101,"730,60793-0146-56 ",.02)
 ;;60793-0146-56
 ;;9002226.02101,"730,60951-0675-70 ",.01)
 ;;60951-0675-70
 ;;9002226.02101,"730,60951-0675-70 ",.02)
 ;;60951-0675-70
 ;;9002226.02101,"730,61442-0231-01 ",.01)
 ;;61442-0231-01
 ;;9002226.02101,"730,61442-0231-01 ",.02)
 ;;61442-0231-01
 ;;9002226.02101,"730,61442-0232-01 ",.01)
 ;;61442-0232-01
 ;;9002226.02101,"730,61442-0232-01 ",.02)
 ;;61442-0232-01
 ;;9002226.02101,"730,61451-6005-07 ",.01)
 ;;61451-6005-07
 ;;9002226.02101,"730,61451-6005-07 ",.02)
 ;;61451-6005-07
 ;;9002226.02101,"730,61451-6010-07 ",.01)
 ;;61451-6010-07
 ;;9002226.02101,"730,61451-6010-07 ",.02)
 ;;61451-6010-07
 ;;9002226.02101,"730,61808-0110-01 ",.01)
 ;;61808-0110-01
 ;;9002226.02101,"730,61808-0110-01 ",.02)
 ;;61808-0110-01
 ;;9002226.02101,"730,61808-0110-05 ",.01)
 ;;61808-0110-05
 ;;9002226.02101,"730,61808-0110-05 ",.02)
 ;;61808-0110-05
 ;;9002226.02101,"730,62022-0070-01 ",.01)
 ;;62022-0070-01
 ;;9002226.02101,"730,62022-0070-01 ",.02)
 ;;62022-0070-01
 ;;9002226.02101,"730,62022-0073-01 ",.01)
 ;;62022-0073-01
 ;;9002226.02101,"730,62022-0073-01 ",.02)
 ;;62022-0073-01
 ;;9002226.02101,"730,62584-0687-01 ",.01)
 ;;62584-0687-01
 ;;9002226.02101,"730,62584-0687-01 ",.02)
 ;;62584-0687-01
 ;;9002226.02101,"730,62584-0687-33 ",.01)
 ;;62584-0687-33
 ;;9002226.02101,"730,62584-0687-33 ",.02)
 ;;62584-0687-33
 ;;9002226.02101,"730,62584-0688-01 ",.01)
 ;;62584-0688-01
 ;;9002226.02101,"730,62584-0688-01 ",.02)
 ;;62584-0688-01
 ;;9002226.02101,"730,62584-0688-33 ",.01)
 ;;62584-0688-33
 ;;9002226.02101,"730,62584-0688-33 ",.02)
 ;;62584-0688-33
 ;;9002226.02101,"730,62584-0750-01 ",.01)
 ;;62584-0750-01
 ;;9002226.02101,"730,62584-0750-01 ",.02)
 ;;62584-0750-01
 ;;9002226.02101,"730,62584-0751-01 ",.01)
 ;;62584-0751-01
 ;;9002226.02101,"730,62584-0751-01 ",.02)
 ;;62584-0751-01
 ;;9002226.02101,"730,62682-7032-01 ",.01)
 ;;62682-7032-01
 ;;9002226.02101,"730,62682-7032-01 ",.02)
 ;;62682-7032-01
 ;;9002226.02101,"730,63304-0159-01 ",.01)
 ;;63304-0159-01
 ;;9002226.02101,"730,63304-0159-01 ",.02)
 ;;63304-0159-01
 ;;9002226.02101,"730,63304-0159-05 ",.01)
 ;;63304-0159-05
 ;;9002226.02101,"730,63304-0159-05 ",.02)
 ;;63304-0159-05
 ;;9002226.02101,"730,63304-0160-01 ",.01)
 ;;63304-0160-01
 ;;9002226.02101,"730,63304-0160-01 ",.02)
 ;;63304-0160-01
 ;;9002226.02101,"730,63304-0160-05 ",.01)
 ;;63304-0160-05
 ;;9002226.02101,"730,63304-0160-05 ",.02)
 ;;63304-0160-05
 ;;9002226.02101,"730,63304-0303-10 ",.01)
 ;;63304-0303-10
 ;;9002226.02101,"730,63304-0303-10 ",.02)
 ;;63304-0303-10
 ;;9002226.02101,"730,63304-0303-25 ",.01)
 ;;63304-0303-25
 ;;9002226.02101,"730,63304-0303-25 ",.02)
 ;;63304-0303-25
 ;;9002226.02101,"730,63304-0679-01 ",.01)
 ;;63304-0679-01
 ;;9002226.02101,"730,63304-0679-01 ",.02)
 ;;63304-0679-01
 ;;9002226.02101,"730,63304-0679-80 ",.01)
 ;;63304-0679-80
 ;;9002226.02101,"730,63304-0679-80 ",.02)
 ;;63304-0679-80
 ;;9002226.02101,"730,63304-0680-01 ",.01)
 ;;63304-0680-01
 ;;9002226.02101,"730,63304-0680-01 ",.02)
 ;;63304-0680-01
 ;;9002226.02101,"730,63304-0741-01 ",.01)
 ;;63304-0741-01
 ;;9002226.02101,"730,63304-0741-01 ",.02)
 ;;63304-0741-01
 ;;9002226.02101,"730,63304-0742-01 ",.01)
 ;;63304-0742-01
 ;;9002226.02101,"730,63304-0742-01 ",.02)
 ;;63304-0742-01
 ;;9002226.02101,"730,63304-0742-10 ",.01)
 ;;63304-0742-10
 ;;9002226.02101,"730,63304-0742-10 ",.02)
 ;;63304-0742-10
 ;;9002226.02101,"730,63304-0743-01 ",.01)
 ;;63304-0743-01
 ;;9002226.02101,"730,63304-0743-01 ",.02)
 ;;63304-0743-01
 ;;9002226.02101,"730,63304-0743-10 ",.01)
 ;;63304-0743-10
 ;;9002226.02101,"730,63304-0743-10 ",.02)
 ;;63304-0743-10
 ;;9002226.02101,"730,63304-0744-01 ",.01)
 ;;63304-0744-01
 ;;9002226.02101,"730,63304-0744-01 ",.02)
 ;;63304-0744-01
 ;;9002226.02101,"730,63402-0190-10 ",.01)
 ;;63402-0190-10
 ;;9002226.02101,"730,63402-0190-10 ",.02)
 ;;63402-0190-10
 ;;9002226.02101,"730,63402-0190-30 ",.01)
 ;;63402-0190-30
 ;;9002226.02101,"730,63402-0190-30 ",.02)
 ;;63402-0190-30
 ;;9002226.02101,"730,63402-0191-09 ",.01)
 ;;63402-0191-09
 ;;9002226.02101,"730,63402-0191-09 ",.02)
 ;;63402-0191-09
 ;;9002226.02101,"730,63402-0191-10 ",.01)
 ;;63402-0191-10
 ;;9002226.02101,"730,63402-0191-10 ",.02)
 ;;63402-0191-10
 ;;9002226.02101,"730,63402-0193-09 ",.01)
 ;;63402-0193-09
 ;;9002226.02101,"730,63402-0193-09 ",.02)
 ;;63402-0193-09
 ;;9002226.02101,"730,63402-0193-10 ",.01)
 ;;63402-0193-10
 ;;9002226.02101,"730,63402-0193-10 ",.02)
 ;;63402-0193-10
 ;;9002226.02101,"730,63629-1256-01 ",.01)
 ;;63629-1256-01
 ;;9002226.02101,"730,63629-1256-01 ",.02)
 ;;63629-1256-01
 ;;9002226.02101,"730,63629-1256-02 ",.01)
 ;;63629-1256-02
 ;;9002226.02101,"730,63629-1256-02 ",.02)
 ;;63629-1256-02
 ;;9002226.02101,"730,63629-1256-03 ",.01)
 ;;63629-1256-03
 ;;9002226.02101,"730,63629-1256-03 ",.02)
 ;;63629-1256-03
 ;;9002226.02101,"730,63629-1256-04 ",.01)
 ;;63629-1256-04
 ;;9002226.02101,"730,63629-1256-04 ",.02)
 ;;63629-1256-04
 ;;9002226.02101,"730,63629-1256-05 ",.01)
 ;;63629-1256-05
 ;;9002226.02101,"730,63629-1256-05 ",.02)
 ;;63629-1256-05
 ;;9002226.02101,"730,63629-1356-01 ",.01)
 ;;63629-1356-01
 ;;9002226.02101,"730,63629-1356-01 ",.02)
 ;;63629-1356-01
 ;;9002226.02101,"730,63629-1356-02 ",.01)
 ;;63629-1356-02
 ;;9002226.02101,"730,63629-1356-02 ",.02)
 ;;63629-1356-02
 ;;9002226.02101,"730,63629-1368-01 ",.01)
 ;;63629-1368-01
 ;;9002226.02101,"730,63629-1368-01 ",.02)
 ;;63629-1368-01
 ;;9002226.02101,"730,63629-1368-02 ",.01)
 ;;63629-1368-02
 ;;9002226.02101,"730,63629-1368-02 ",.02)
 ;;63629-1368-02
 ;;9002226.02101,"730,63629-1368-03 ",.01)
 ;;63629-1368-03
 ;;9002226.02101,"730,63629-1368-03 ",.02)
 ;;63629-1368-03
 ;;9002226.02101,"730,63629-1368-04 ",.01)
 ;;63629-1368-04
 ;;9002226.02101,"730,63629-1368-04 ",.02)
 ;;63629-1368-04
 ;;9002226.02101,"730,63629-1368-05 ",.01)
 ;;63629-1368-05
 ;;9002226.02101,"730,63629-1368-05 ",.02)
 ;;63629-1368-05
 ;;9002226.02101,"730,63629-1368-06 ",.01)
 ;;63629-1368-06
 ;;9002226.02101,"730,63629-1368-06 ",.02)
 ;;63629-1368-06
 ;;9002226.02101,"730,63629-1368-07 ",.01)
 ;;63629-1368-07