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

BGP51F16.m

Go to the documentation of this file.
BGP51F16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"618,60429-0223-10 ",.01)
 ;;60429-0223-10
 ;;9002226.02101,"618,60429-0223-10 ",.02)
 ;;60429-0223-10
 ;;9002226.02101,"618,60429-0224-01 ",.01)
 ;;60429-0224-01
 ;;9002226.02101,"618,60429-0224-01 ",.02)
 ;;60429-0224-01
 ;;9002226.02101,"618,60429-0224-10 ",.01)
 ;;60429-0224-10
 ;;9002226.02101,"618,60429-0224-10 ",.02)
 ;;60429-0224-10
 ;;9002226.02101,"618,60429-0224-28 ",.01)
 ;;60429-0224-28
 ;;9002226.02101,"618,60429-0224-28 ",.02)
 ;;60429-0224-28
 ;;9002226.02101,"618,60429-0225-01 ",.01)
 ;;60429-0225-01
 ;;9002226.02101,"618,60429-0225-01 ",.02)
 ;;60429-0225-01
 ;;9002226.02101,"618,60429-0225-05 ",.01)
 ;;60429-0225-05
 ;;9002226.02101,"618,60429-0225-05 ",.02)
 ;;60429-0225-05
 ;;9002226.02101,"618,60429-0231-01 ",.01)
 ;;60429-0231-01
 ;;9002226.02101,"618,60429-0231-01 ",.02)
 ;;60429-0231-01
 ;;9002226.02101,"618,60429-0231-10 ",.01)
 ;;60429-0231-10
 ;;9002226.02101,"618,60429-0231-10 ",.02)
 ;;60429-0231-10
 ;;9002226.02101,"618,60429-0276-01 ",.01)
 ;;60429-0276-01
 ;;9002226.02101,"618,60429-0276-01 ",.02)
 ;;60429-0276-01
 ;;9002226.02101,"618,60429-0276-10 ",.01)
 ;;60429-0276-10
 ;;9002226.02101,"618,60429-0276-10 ",.02)
 ;;60429-0276-10
 ;;9002226.02101,"618,60429-0344-16 ",.01)
 ;;60429-0344-16
 ;;9002226.02101,"618,60429-0344-16 ",.02)
 ;;60429-0344-16
 ;;9002226.02101,"618,60432-0150-04 ",.01)
 ;;60432-0150-04
 ;;9002226.02101,"618,60432-0150-04 ",.02)
 ;;60432-0150-04
 ;;9002226.02101,"618,60432-0150-16 ",.01)
 ;;60432-0150-16
 ;;9002226.02101,"618,60432-0150-16 ",.02)
 ;;60432-0150-16
 ;;9002226.02101,"618,60432-0539-16 ",.01)
 ;;60432-0539-16
 ;;9002226.02101,"618,60432-0539-16 ",.02)
 ;;60432-0539-16
 ;;9002226.02101,"618,60432-0604-04 ",.01)
 ;;60432-0604-04
 ;;9002226.02101,"618,60432-0604-04 ",.02)
 ;;60432-0604-04
 ;;9002226.02101,"618,60432-0604-16 ",.01)
 ;;60432-0604-16
 ;;9002226.02101,"618,60432-0604-16 ",.02)
 ;;60432-0604-16
 ;;9002226.02101,"618,60432-0606-04 ",.01)
 ;;60432-0606-04
 ;;9002226.02101,"618,60432-0606-04 ",.02)
 ;;60432-0606-04
 ;;9002226.02101,"618,60432-0606-16 ",.01)
 ;;60432-0606-16
 ;;9002226.02101,"618,60432-0606-16 ",.02)
 ;;60432-0606-16
 ;;9002226.02101,"618,60432-0608-04 ",.01)
 ;;60432-0608-04
 ;;9002226.02101,"618,60432-0608-04 ",.02)
 ;;60432-0608-04
 ;;9002226.02101,"618,60432-0608-16 ",.01)
 ;;60432-0608-16
 ;;9002226.02101,"618,60432-0608-16 ",.02)
 ;;60432-0608-16
 ;;9002226.02101,"618,60432-0837-04 ",.01)
 ;;60432-0837-04
 ;;9002226.02101,"618,60432-0837-04 ",.02)
 ;;60432-0837-04
 ;;9002226.02101,"618,60432-0837-16 ",.01)
 ;;60432-0837-16
 ;;9002226.02101,"618,60432-0837-16 ",.02)
 ;;60432-0837-16
 ;;9002226.02101,"618,60575-0177-19 ",.01)
 ;;60575-0177-19
 ;;9002226.02101,"618,60575-0177-19 ",.02)
 ;;60575-0177-19
 ;;9002226.02101,"618,60575-0212-16 ",.01)
 ;;60575-0212-16
 ;;9002226.02101,"618,60575-0212-16 ",.02)
 ;;60575-0212-16
 ;;9002226.02101,"618,60575-0313-16 ",.01)
 ;;60575-0313-16
 ;;9002226.02101,"618,60575-0313-16 ",.02)
 ;;60575-0313-16
 ;;9002226.02101,"618,60575-0786-19 ",.01)
 ;;60575-0786-19
 ;;9002226.02101,"618,60575-0786-19 ",.02)
 ;;60575-0786-19
 ;;9002226.02101,"618,60760-0307-20 ",.01)
 ;;60760-0307-20
 ;;9002226.02101,"618,60760-0307-20 ",.02)
 ;;60760-0307-20
 ;;9002226.02101,"618,60760-0330-30 ",.01)
 ;;60760-0330-30
 ;;9002226.02101,"618,60760-0330-30 ",.02)
 ;;60760-0330-30
 ;;9002226.02101,"618,60760-0830-20 ",.01)
 ;;60760-0830-20
 ;;9002226.02101,"618,60760-0830-20 ",.02)
 ;;60760-0830-20
 ;;9002226.02101,"618,60760-0830-30 ",.01)
 ;;60760-0830-30
 ;;9002226.02101,"618,60760-0830-30 ",.02)
 ;;60760-0830-30
 ;;9002226.02101,"618,60760-0830-60 ",.01)
 ;;60760-0830-60
 ;;9002226.02101,"618,60760-0830-60 ",.02)
 ;;60760-0830-60
 ;;9002226.02101,"618,60760-0971-30 ",.01)
 ;;60760-0971-30
 ;;9002226.02101,"618,60760-0971-30 ",.02)
 ;;60760-0971-30
 ;;9002226.02101,"618,60977-0001-01 ",.01)
 ;;60977-0001-01
 ;;9002226.02101,"618,60977-0001-01 ",.02)
 ;;60977-0001-01
 ;;9002226.02101,"618,60977-0001-03 ",.01)
 ;;60977-0001-03
 ;;9002226.02101,"618,60977-0001-03 ",.02)
 ;;60977-0001-03
 ;;9002226.02101,"618,60977-0001-43 ",.01)
 ;;60977-0001-43
 ;;9002226.02101,"618,60977-0001-43 ",.02)
 ;;60977-0001-43
 ;;9002226.02101,"618,60977-0001-44 ",.01)
 ;;60977-0001-44
 ;;9002226.02101,"618,60977-0001-44 ",.02)
 ;;60977-0001-44
 ;;9002226.02101,"618,60977-0002-02 ",.01)
 ;;60977-0002-02
 ;;9002226.02101,"618,60977-0002-02 ",.02)
 ;;60977-0002-02
 ;;9002226.02101,"618,60977-0002-04 ",.01)
 ;;60977-0002-04
 ;;9002226.02101,"618,60977-0002-04 ",.02)
 ;;60977-0002-04
 ;;9002226.02101,"618,60977-0002-43 ",.01)
 ;;60977-0002-43
 ;;9002226.02101,"618,60977-0002-43 ",.02)
 ;;60977-0002-43
 ;;9002226.02101,"618,60977-0002-44 ",.01)
 ;;60977-0002-44
 ;;9002226.02101,"618,60977-0002-44 ",.02)
 ;;60977-0002-44
 ;;9002226.02101,"618,61748-0054-16 ",.01)
 ;;61748-0054-16
 ;;9002226.02101,"618,61748-0054-16 ",.02)
 ;;61748-0054-16
 ;;9002226.02101,"618,61919-0008-10 ",.01)
 ;;61919-0008-10
 ;;9002226.02101,"618,61919-0008-10 ",.02)
 ;;61919-0008-10
 ;;9002226.02101,"618,61919-0008-30 ",.01)
 ;;61919-0008-30
 ;;9002226.02101,"618,61919-0008-30 ",.02)
 ;;61919-0008-30
 ;;9002226.02101,"618,61919-0047-30 ",.01)
 ;;61919-0047-30
 ;;9002226.02101,"618,61919-0047-30 ",.02)
 ;;61919-0047-30
 ;;9002226.02101,"618,61919-0047-40 ",.01)
 ;;61919-0047-40
 ;;9002226.02101,"618,61919-0047-40 ",.02)
 ;;61919-0047-40
 ;;9002226.02101,"618,61919-0079-30 ",.01)
 ;;61919-0079-30
 ;;9002226.02101,"618,61919-0079-30 ",.02)
 ;;61919-0079-30
 ;;9002226.02101,"618,61919-0122-30 ",.01)
 ;;61919-0122-30
 ;;9002226.02101,"618,61919-0122-30 ",.02)
 ;;61919-0122-30
 ;;9002226.02101,"618,61919-0191-30 ",.01)
 ;;61919-0191-30
 ;;9002226.02101,"618,61919-0191-30 ",.02)
 ;;61919-0191-30
 ;;9002226.02101,"618,61919-0357-15 ",.01)
 ;;61919-0357-15
 ;;9002226.02101,"618,61919-0357-15 ",.02)
 ;;61919-0357-15
 ;;9002226.02101,"618,61919-0357-30 ",.01)
 ;;61919-0357-30
 ;;9002226.02101,"618,61919-0357-30 ",.02)
 ;;61919-0357-30
 ;;9002226.02101,"618,62175-0490-64 ",.01)
 ;;62175-0490-64
 ;;9002226.02101,"618,62175-0490-64 ",.02)
 ;;62175-0490-64
 ;;9002226.02101,"618,62175-0490-70 ",.01)
 ;;62175-0490-70
 ;;9002226.02101,"618,62175-0490-70 ",.02)
 ;;62175-0490-70
 ;;9002226.02101,"618,62584-0739-01 ",.01)
 ;;62584-0739-01
 ;;9002226.02101,"618,62584-0739-01 ",.02)
 ;;62584-0739-01
 ;;9002226.02101,"618,62584-0739-11 ",.01)
 ;;62584-0739-11
 ;;9002226.02101,"618,62584-0739-11 ",.02)
 ;;62584-0739-11
 ;;9002226.02101,"618,62584-0741-01 ",.01)
 ;;62584-0741-01
 ;;9002226.02101,"618,62584-0741-01 ",.02)
 ;;62584-0741-01
 ;;9002226.02101,"618,62584-0741-11 ",.01)
 ;;62584-0741-11
 ;;9002226.02101,"618,62584-0741-11 ",.02)
 ;;62584-0741-11
 ;;9002226.02101,"618,62584-0886-01 ",.01)
 ;;62584-0886-01
 ;;9002226.02101,"618,62584-0886-01 ",.02)
 ;;62584-0886-01
 ;;9002226.02101,"618,62584-0886-11 ",.01)
 ;;62584-0886-11
 ;;9002226.02101,"618,62584-0886-11 ",.02)
 ;;62584-0886-11
 ;;9002226.02101,"618,62584-0887-11 ",.01)
 ;;62584-0887-11
 ;;9002226.02101,"618,62584-0887-11 ",.02)
 ;;62584-0887-11
 ;;9002226.02101,"618,62584-0887-21 ",.01)
 ;;62584-0887-21
 ;;9002226.02101,"618,62584-0887-21 ",.02)
 ;;62584-0887-21
 ;;9002226.02101,"618,63629-1349-01 ",.01)
 ;;63629-1349-01
 ;;9002226.02101,"618,63629-1349-01 ",.02)
 ;;63629-1349-01
 ;;9002226.02101,"618,63629-1349-02 ",.01)
 ;;63629-1349-02
 ;;9002226.02101,"618,63629-1349-02 ",.02)
 ;;63629-1349-02
 ;;9002226.02101,"618,63629-1349-03 ",.01)
 ;;63629-1349-03
 ;;9002226.02101,"618,63629-1349-03 ",.02)
 ;;63629-1349-03
 ;;9002226.02101,"618,63629-1349-04 ",.01)
 ;;63629-1349-04
 ;;9002226.02101,"618,63629-1349-04 ",.02)
 ;;63629-1349-04
 ;;9002226.02101,"618,63629-1349-05 ",.01)
 ;;63629-1349-05
 ;;9002226.02101,"618,63629-1349-05 ",.02)
 ;;63629-1349-05
 ;;9002226.02101,"618,63629-1533-01 ",.01)
 ;;63629-1533-01
 ;;9002226.02101,"618,63629-1533-01 ",.02)
 ;;63629-1533-01
 ;;9002226.02101,"618,63629-1533-02 ",.01)
 ;;63629-1533-02
 ;;9002226.02101,"618,63629-1533-02 ",.02)
 ;;63629-1533-02
 ;;9002226.02101,"618,63629-1533-03 ",.01)
 ;;63629-1533-03
 ;;9002226.02101,"618,63629-1533-03 ",.02)
 ;;63629-1533-03
 ;;9002226.02101,"618,63629-1533-04 ",.01)
 ;;63629-1533-04
 ;;9002226.02101,"618,63629-1533-04 ",.02)
 ;;63629-1533-04
 ;;9002226.02101,"618,63629-1588-01 ",.01)
 ;;63629-1588-01
 ;;9002226.02101,"618,63629-1588-01 ",.02)
 ;;63629-1588-01
 ;;9002226.02101,"618,63629-1588-02 ",.01)
 ;;63629-1588-02
 ;;9002226.02101,"618,63629-1588-02 ",.02)
 ;;63629-1588-02
 ;;9002226.02101,"618,63629-1588-03 ",.01)
 ;;63629-1588-03
 ;;9002226.02101,"618,63629-1588-03 ",.02)
 ;;63629-1588-03
 ;;9002226.02101,"618,63629-1591-01 ",.01)
 ;;63629-1591-01
 ;;9002226.02101,"618,63629-1591-01 ",.02)
 ;;63629-1591-01
 ;;9002226.02101,"618,63629-1591-02 ",.01)
 ;;63629-1591-02
 ;;9002226.02101,"618,63629-1591-02 ",.02)
 ;;63629-1591-02
 ;;9002226.02101,"618,63629-1591-03 ",.01)
 ;;63629-1591-03
 ;;9002226.02101,"618,63629-1591-03 ",.02)
 ;;63629-1591-03
 ;;9002226.02101,"618,63629-1591-04 ",.01)
 ;;63629-1591-04
 ;;9002226.02101,"618,63629-1591-04 ",.02)
 ;;63629-1591-04
 ;;9002226.02101,"618,63629-1591-05 ",.01)
 ;;63629-1591-05
 ;;9002226.02101,"618,63629-1591-05 ",.02)
 ;;63629-1591-05
 ;;9002226.02101,"618,63629-1591-06 ",.01)
 ;;63629-1591-06
 ;;9002226.02101,"618,63629-1591-06 ",.02)
 ;;63629-1591-06
 ;;9002226.02101,"618,63629-1607-01 ",.01)
 ;;63629-1607-01
 ;;9002226.02101,"618,63629-1607-01 ",.02)
 ;;63629-1607-01
 ;;9002226.02101,"618,63629-1607-02 ",.01)
 ;;63629-1607-02
 ;;9002226.02101,"618,63629-1607-02 ",.02)
 ;;63629-1607-02
 ;;9002226.02101,"618,63629-1607-03 ",.01)
 ;;63629-1607-03
 ;;9002226.02101,"618,63629-1607-03 ",.02)
 ;;63629-1607-03
 ;;9002226.02101,"618,63629-1742-01 ",.01)
 ;;63629-1742-01
 ;;9002226.02101,"618,63629-1742-01 ",.02)
 ;;63629-1742-01
 ;;9002226.02101,"618,63629-1742-02 ",.01)
 ;;63629-1742-02
 ;;9002226.02101,"618,63629-1742-02 ",.02)
 ;;63629-1742-02
 ;;9002226.02101,"618,63629-1742-03 ",.01)
 ;;63629-1742-03
 ;;9002226.02101,"618,63629-1742-03 ",.02)
 ;;63629-1742-03
 ;;9002226.02101,"618,63629-1742-04 ",.01)
 ;;63629-1742-04
 ;;9002226.02101,"618,63629-1742-04 ",.02)
 ;;63629-1742-04
 ;;9002226.02101,"618,63629-1742-05 ",.01)
 ;;63629-1742-05
 ;;9002226.02101,"618,63629-1742-05 ",.02)
 ;;63629-1742-05
 ;;9002226.02101,"618,63629-1742-06 ",.01)
 ;;63629-1742-06
 ;;9002226.02101,"618,63629-1742-06 ",.02)
 ;;63629-1742-06
 ;;9002226.02101,"618,63629-1742-07 ",.01)
 ;;63629-1742-07
 ;;9002226.02101,"618,63629-1742-07 ",.02)
 ;;63629-1742-07
 ;;9002226.02101,"618,63629-1742-08 ",.01)
 ;;63629-1742-08
 ;;9002226.02101,"618,63629-1742-08 ",.02)
 ;;63629-1742-08
 ;;9002226.02101,"618,63629-1751-01 ",.01)
 ;;63629-1751-01
 ;;9002226.02101,"618,63629-1751-01 ",.02)
 ;;63629-1751-01
 ;;9002226.02101,"618,63629-1751-02 ",.01)
 ;;63629-1751-02
 ;;9002226.02101,"618,63629-1751-02 ",.02)
 ;;63629-1751-02
 ;;9002226.02101,"618,63629-1855-01 ",.01)
 ;;63629-1855-01
 ;;9002226.02101,"618,63629-1855-01 ",.02)
 ;;63629-1855-01
 ;;9002226.02101,"618,63629-1855-02 ",.01)
 ;;63629-1855-02
 ;;9002226.02101,"618,63629-1855-02 ",.02)
 ;;63629-1855-02
 ;;9002226.02101,"618,63629-1856-01 ",.01)
 ;;63629-1856-01
 ;;9002226.02101,"618,63629-1856-01 ",.02)
 ;;63629-1856-01
 ;;9002226.02101,"618,63629-1856-02 ",.01)
 ;;63629-1856-02
 ;;9002226.02101,"618,63629-1856-02 ",.02)
 ;;63629-1856-02
 ;;9002226.02101,"618,63629-1868-01 ",.01)
 ;;63629-1868-01
 ;;9002226.02101,"618,63629-1868-01 ",.02)
 ;;63629-1868-01
 ;;9002226.02101,"618,63629-1868-02 ",.01)
 ;;63629-1868-02
 ;;9002226.02101,"618,63629-1868-02 ",.02)
 ;;63629-1868-02
 ;;9002226.02101,"618,63629-1870-01 ",.01)
 ;;63629-1870-01
 ;;9002226.02101,"618,63629-1870-01 ",.02)
 ;;63629-1870-01
 ;;9002226.02101,"618,63629-1870-02 ",.01)
 ;;63629-1870-02
 ;;9002226.02101,"618,63629-1870-02 ",.02)
 ;;63629-1870-02
 ;;9002226.02101,"618,63629-2959-01 ",.01)
 ;;63629-2959-01
 ;;9002226.02101,"618,63629-2959-01 ",.02)
 ;;63629-2959-01
 ;;9002226.02101,"618,63629-2982-01 ",.01)
 ;;63629-2982-01
 ;;9002226.02101,"618,63629-2982-01 ",.02)
 ;;63629-2982-01
 ;;9002226.02101,"618,63629-2982-02 ",.01)
 ;;63629-2982-02
 ;;9002226.02101,"618,63629-2982-02 ",.02)
 ;;63629-2982-02
 ;;9002226.02101,"618,63629-4121-01 ",.01)
 ;;63629-4121-01
 ;;9002226.02101,"618,63629-4121-01 ",.02)
 ;;63629-4121-01
 ;;9002226.02101,"618,63717-0290-30 ",.01)
 ;;63717-0290-30
 ;;9002226.02101,"618,63717-0290-30 ",.02)
 ;;63717-0290-30
 ;;9002226.02101,"618,63717-0291-30 ",.01)
 ;;63717-0291-30
 ;;9002226.02101,"618,63717-0291-30 ",.02)
 ;;63717-0291-30
 ;;9002226.02101,"618,63717-0870-01 ",.01)
 ;;63717-0870-01
 ;;9002226.02101,"618,63717-0870-01 ",.02)
 ;;63717-0870-01
 ;;9002226.02101,"618,63717-0871-16 ",.01)
 ;;63717-0871-16
 ;;9002226.02101,"618,63717-0871-16 ",.02)
 ;;63717-0871-16
 ;;9002226.02101,"618,63717-0876-16 ",.01)
 ;;63717-0876-16
 ;;9002226.02101,"618,63717-0876-16 ",.02)
 ;;63717-0876-16
 ;;9002226.02101,"618,63717-0877-16 ",.01)
 ;;63717-0877-16
 ;;9002226.02101,"618,63717-0877-16 ",.02)
 ;;63717-0877-16
 ;;9002226.02101,"618,63739-0213-10 ",.01)
 ;;63739-0213-10
 ;;9002226.02101,"618,63739-0213-10 ",.02)
 ;;63739-0213-10
 ;;9002226.02101,"618,63739-0389-10 ",.01)
 ;;63739-0389-10
 ;;9002226.02101,"618,63739-0389-10 ",.02)
 ;;63739-0389-10