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

BGP32A28.m

Go to the documentation of this file.
BGP32A28 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 12, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,60432-0539-16 ",.01)
 ;;60432-0539-16
 ;;9002226.02101,"618,60432-0539-16 ",.02)
 ;;60432-0539-16
 ;;9002226.02101,"618,60432-0539-28 ",.01)
 ;;60432-0539-28
 ;;9002226.02101,"618,60432-0539-28 ",.02)
 ;;60432-0539-28
 ;;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-0732-04 ",.01)
 ;;60432-0732-04
 ;;9002226.02101,"618,60432-0732-04 ",.02)
 ;;60432-0732-04
 ;;9002226.02101,"618,60432-0951-30 ",.01)
 ;;60432-0951-30
 ;;9002226.02101,"618,60432-0951-30 ",.02)
 ;;60432-0951-30
 ;;9002226.02101,"618,60505-0357-00 ",.01)
 ;;60505-0357-00
 ;;9002226.02101,"618,60505-0357-00 ",.02)
 ;;60505-0357-00
 ;;9002226.02101,"618,60575-0212-16 ",.01)
 ;;60575-0212-16
 ;;9002226.02101,"618,60575-0212-16 ",.02)
 ;;60575-0212-16
 ;;9002226.02101,"618,60575-0513-19 ",.01)
 ;;60575-0513-19
 ;;9002226.02101,"618,60575-0513-19 ",.02)
 ;;60575-0513-19
 ;;9002226.02101,"618,60575-0612-19 ",.01)
 ;;60575-0612-19
 ;;9002226.02101,"618,60575-0612-19 ",.02)
 ;;60575-0612-19
 ;;9002226.02101,"618,60575-0619-19 ",.01)
 ;;60575-0619-19
 ;;9002226.02101,"618,60575-0619-19 ",.02)
 ;;60575-0619-19
 ;;9002226.02101,"618,60575-0786-19 ",.01)
 ;;60575-0786-19
 ;;9002226.02101,"618,60575-0786-19 ",.02)
 ;;60575-0786-19
 ;;9002226.02101,"618,60575-0825-19 ",.01)
 ;;60575-0825-19
 ;;9002226.02101,"618,60575-0825-19 ",.02)
 ;;60575-0825-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,61646-0152-01 ",.01)
 ;;61646-0152-01
 ;;9002226.02101,"618,61646-0152-01 ",.02)
 ;;61646-0152-01
 ;;9002226.02101,"618,61646-0152-05 ",.01)
 ;;61646-0152-05
 ;;9002226.02101,"618,61646-0152-05 ",.02)
 ;;61646-0152-05
 ;;9002226.02101,"618,61646-0300-01 ",.01)
 ;;61646-0300-01
 ;;9002226.02101,"618,61646-0300-01 ",.02)
 ;;61646-0300-01
 ;;9002226.02101,"618,61646-0300-05 ",.01)
 ;;61646-0300-05
 ;;9002226.02101,"618,61646-0300-05 ",.02)
 ;;61646-0300-05
 ;;9002226.02101,"618,61646-0301-01 ",.01)
 ;;61646-0301-01
 ;;9002226.02101,"618,61646-0301-01 ",.02)
 ;;61646-0301-01
 ;;9002226.02101,"618,61646-0302-01 ",.01)
 ;;61646-0302-01
 ;;9002226.02101,"618,61646-0302-01 ",.02)
 ;;61646-0302-01
 ;;9002226.02101,"618,61646-0311-01 ",.01)
 ;;61646-0311-01
 ;;9002226.02101,"618,61646-0311-01 ",.02)
 ;;61646-0311-01
 ;;9002226.02101,"618,61646-0311-10 ",.01)
 ;;61646-0311-10
 ;;9002226.02101,"618,61646-0311-10 ",.02)
 ;;61646-0311-10
 ;;9002226.02101,"618,61646-0312-01 ",.01)
 ;;61646-0312-01
 ;;9002226.02101,"618,61646-0312-01 ",.02)
 ;;61646-0312-01
 ;;9002226.02101,"618,61646-0312-10 ",.01)
 ;;61646-0312-10
 ;;9002226.02101,"618,61646-0312-10 ",.02)
 ;;61646-0312-10
 ;;9002226.02101,"618,61748-0054-16 ",.01)
 ;;61748-0054-16
 ;;9002226.02101,"618,61748-0054-16 ",.02)
 ;;61748-0054-16
 ;;9002226.02101,"618,62022-0089-01 ",.01)
 ;;62022-0089-01
 ;;9002226.02101,"618,62022-0089-01 ",.02)
 ;;62022-0089-01
 ;;9002226.02101,"618,62022-0254-16 ",.01)
 ;;62022-0254-16
 ;;9002226.02101,"618,62022-0254-16 ",.02)
 ;;62022-0254-16
 ;;9002226.02101,"618,62022-0258-01 ",.01)
 ;;62022-0258-01
 ;;9002226.02101,"618,62022-0258-01 ",.02)
 ;;62022-0258-01
 ;;9002226.02101,"618,62022-0275-16 ",.01)
 ;;62022-0275-16
 ;;9002226.02101,"618,62022-0275-16 ",.02)
 ;;62022-0275-16
 ;;9002226.02101,"618,62022-0910-16 ",.01)
 ;;62022-0910-16
 ;;9002226.02101,"618,62022-0910-16 ",.02)
 ;;62022-0910-16
 ;;9002226.02101,"618,62086-0154-10 ",.01)
 ;;62086-0154-10
 ;;9002226.02101,"618,62086-0154-10 ",.02)
 ;;62086-0154-10
 ;;9002226.02101,"618,62175-0490-70 ",.01)
 ;;62175-0490-70
 ;;9002226.02101,"618,62175-0490-70 ",.02)
 ;;62175-0490-70
 ;;9002226.02101,"618,62441-0200-10 ",.01)
 ;;62441-0200-10
 ;;9002226.02101,"618,62441-0200-10 ",.02)
 ;;62441-0200-10
 ;;9002226.02101,"618,62441-0200-50 ",.01)
 ;;62441-0200-50
 ;;9002226.02101,"618,62441-0200-50 ",.02)
 ;;62441-0200-50
 ;;9002226.02101,"618,62559-6291-04 ",.01)
 ;;62559-6291-04
 ;;9002226.02101,"618,62559-6291-04 ",.02)
 ;;62559-6291-04
 ;;9002226.02101,"618,62559-6293-06 ",.01)
 ;;62559-6293-06
 ;;9002226.02101,"618,62559-6293-06 ",.02)
 ;;62559-6293-06
 ;;9002226.02101,"618,62559-6331-06 ",.01)
 ;;62559-6331-06
 ;;9002226.02101,"618,62559-6331-06 ",.02)
 ;;62559-6331-06
 ;;9002226.02101,"618,62584-0626-33 ",.01)
 ;;62584-0626-33
 ;;9002226.02101,"618,62584-0626-33 ",.02)
 ;;62584-0626-33
 ;;9002226.02101,"618,62584-0627-33 ",.01)
 ;;62584-0627-33
 ;;9002226.02101,"618,62584-0627-33 ",.02)
 ;;62584-0627-33
 ;;9002226.02101,"618,62584-0675-01 ",.01)
 ;;62584-0675-01
 ;;9002226.02101,"618,62584-0675-01 ",.02)
 ;;62584-0675-01
 ;;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-0886-33 ",.01)
 ;;62584-0886-33
 ;;9002226.02101,"618,62584-0886-33 ",.02)
 ;;62584-0886-33
 ;;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,63162-0507-16 ",.01)
 ;;63162-0507-16
 ;;9002226.02101,"618,63162-0507-16 ",.02)
 ;;63162-0507-16
 ;;9002226.02101,"618,63162-0508-16 ",.01)
 ;;63162-0508-16
 ;;9002226.02101,"618,63162-0508-16 ",.02)
 ;;63162-0508-16
 ;;9002226.02101,"618,63162-0509-30 ",.01)
 ;;63162-0509-30
 ;;9002226.02101,"618,63162-0509-30 ",.02)
 ;;63162-0509-30
 ;;9002226.02101,"618,63162-0515-16 ",.01)
 ;;63162-0515-16
 ;;9002226.02101,"618,63162-0515-16 ",.02)
 ;;63162-0515-16
 ;;9002226.02101,"618,63162-0516-60 ",.01)
 ;;63162-0516-60
 ;;9002226.02101,"618,63162-0516-60 ",.02)
 ;;63162-0516-60
 ;;9002226.02101,"618,63162-0517-60 ",.01)
 ;;63162-0517-60
 ;;9002226.02101,"618,63162-0517-60 ",.02)
 ;;63162-0517-60
 ;;9002226.02101,"618,63323-0021-01 ",.01)
 ;;63323-0021-01
 ;;9002226.02101,"618,63323-0021-01 ",.02)
 ;;63323-0021-01
 ;;9002226.02101,"618,63323-0051-01 ",.01)
 ;;63323-0051-01
 ;;9002226.02101,"618,63323-0051-01 ",.02)
 ;;63323-0051-01
 ;;9002226.02101,"618,63323-0051-02 ",.01)
 ;;63323-0051-02
 ;;9002226.02101,"618,63323-0051-02 ",.02)
 ;;63323-0051-02
 ;;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