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

BGP53R3.m

Go to the documentation of this file.
BGP53R3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 24, 2015;
 ;;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,"493,54868-3857-00 ",.01)
 ;;54868-3857-00
 ;;9002226.02101,"493,54868-3857-00 ",.02)
 ;;54868-3857-00
 ;;9002226.02101,"493,54868-4170-00 ",.01)
 ;;54868-4170-00
 ;;9002226.02101,"493,54868-4170-00 ",.02)
 ;;54868-4170-00
 ;;9002226.02101,"493,54868-4170-01 ",.01)
 ;;54868-4170-01
 ;;9002226.02101,"493,54868-4170-01 ",.02)
 ;;54868-4170-01
 ;;9002226.02101,"493,54868-4384-00 ",.01)
 ;;54868-4384-00
 ;;9002226.02101,"493,54868-4384-00 ",.02)
 ;;54868-4384-00
 ;;9002226.02101,"493,54868-4386-00 ",.01)
 ;;54868-4386-00
 ;;9002226.02101,"493,54868-4386-00 ",.02)
 ;;54868-4386-00
 ;;9002226.02101,"493,54868-4462-00 ",.01)
 ;;54868-4462-00
 ;;9002226.02101,"493,54868-4462-00 ",.02)
 ;;54868-4462-00
 ;;9002226.02101,"493,54868-4463-00 ",.01)
 ;;54868-4463-00
 ;;9002226.02101,"493,54868-4463-00 ",.02)
 ;;54868-4463-00
 ;;9002226.02101,"493,54868-4671-00 ",.01)
 ;;54868-4671-00
 ;;9002226.02101,"493,54868-4671-00 ",.02)
 ;;54868-4671-00
 ;;9002226.02101,"493,54868-5322-00 ",.01)
 ;;54868-5322-00
 ;;9002226.02101,"493,54868-5322-00 ",.02)
 ;;54868-5322-00
 ;;9002226.02101,"493,54868-5322-01 ",.01)
 ;;54868-5322-01
 ;;9002226.02101,"493,54868-5322-01 ",.02)
 ;;54868-5322-01
 ;;9002226.02101,"493,54868-5480-00 ",.01)
 ;;54868-5480-00
 ;;9002226.02101,"493,54868-5480-00 ",.02)
 ;;54868-5480-00
 ;;9002226.02101,"493,54868-5499-00 ",.01)
 ;;54868-5499-00
 ;;9002226.02101,"493,54868-5499-00 ",.02)
 ;;54868-5499-00
 ;;9002226.02101,"493,54868-5860-00 ",.01)
 ;;54868-5860-00
 ;;9002226.02101,"493,54868-5860-00 ",.02)
 ;;54868-5860-00
 ;;9002226.02101,"493,54868-5861-00 ",.01)
 ;;54868-5861-00
 ;;9002226.02101,"493,54868-5861-00 ",.02)
 ;;54868-5861-00
 ;;9002226.02101,"493,54868-5862-00 ",.01)
 ;;54868-5862-00
 ;;9002226.02101,"493,54868-5862-00 ",.02)
 ;;54868-5862-00
 ;;9002226.02101,"493,55045-3908-01 ",.01)
 ;;55045-3908-01
 ;;9002226.02101,"493,55045-3908-01 ",.02)
 ;;55045-3908-01
 ;;9002226.02101,"493,55111-0575-03 ",.01)
 ;;55111-0575-03
 ;;9002226.02101,"493,55111-0575-03 ",.02)
 ;;55111-0575-03
 ;;9002226.02101,"493,55111-0588-01 ",.01)
 ;;55111-0588-01
 ;;9002226.02101,"493,55111-0588-01 ",.02)
 ;;55111-0588-01
 ;;9002226.02101,"493,55111-0588-30 ",.01)
 ;;55111-0588-30
 ;;9002226.02101,"493,55111-0588-30 ",.02)
 ;;55111-0588-30
 ;;9002226.02101,"493,55111-0589-01 ",.01)
 ;;55111-0589-01
 ;;9002226.02101,"493,55111-0589-01 ",.02)
 ;;55111-0589-01
 ;;9002226.02101,"493,55111-0589-30 ",.01)
 ;;55111-0589-30
 ;;9002226.02101,"493,55111-0589-30 ",.02)
 ;;55111-0589-30
 ;;9002226.02101,"493,55111-0590-48 ",.01)
 ;;55111-0590-48
 ;;9002226.02101,"493,55111-0590-48 ",.02)
 ;;55111-0590-48
 ;;9002226.02101,"493,55111-0592-48 ",.01)
 ;;55111-0592-48
 ;;9002226.02101,"493,55111-0592-48 ",.02)
 ;;55111-0592-48
 ;;9002226.02101,"493,55111-0685-07 ",.01)
 ;;55111-0685-07
 ;;9002226.02101,"493,55111-0685-07 ",.02)
 ;;55111-0685-07
 ;;9002226.02101,"493,55111-0688-52 ",.01)
 ;;55111-0688-52
 ;;9002226.02101,"493,55111-0688-52 ",.02)
 ;;55111-0688-52
 ;;9002226.02101,"493,55289-0266-30 ",.01)
 ;;55289-0266-30
 ;;9002226.02101,"493,55289-0266-30 ",.02)
 ;;55289-0266-30
 ;;9002226.02101,"493,55513-0710-01 ",.01)
 ;;55513-0710-01
 ;;9002226.02101,"493,55513-0710-01 ",.02)
 ;;55513-0710-01
 ;;9002226.02101,"493,55513-0730-01 ",.01)
 ;;55513-0730-01
 ;;9002226.02101,"493,55513-0730-01 ",.02)
 ;;55513-0730-01
 ;;9002226.02101,"493,55887-0106-04 ",.01)
 ;;55887-0106-04
 ;;9002226.02101,"493,55887-0106-04 ",.02)
 ;;55887-0106-04
 ;;9002226.02101,"493,55887-0516-20 ",.01)
 ;;55887-0516-20
 ;;9002226.02101,"493,55887-0516-20 ",.02)
 ;;55887-0516-20
 ;;9002226.02101,"493,55887-0516-30 ",.01)
 ;;55887-0516-30
 ;;9002226.02101,"493,55887-0516-30 ",.02)
 ;;55887-0516-30
 ;;9002226.02101,"493,55887-0516-60 ",.01)
 ;;55887-0516-60
 ;;9002226.02101,"493,55887-0516-60 ",.02)
 ;;55887-0516-60
 ;;9002226.02101,"493,55887-0516-82 ",.01)
 ;;55887-0516-82
 ;;9002226.02101,"493,55887-0516-82 ",.02)
 ;;55887-0516-82
 ;;9002226.02101,"493,55887-0516-90 ",.01)
 ;;55887-0516-90
 ;;9002226.02101,"493,55887-0516-90 ",.02)
 ;;55887-0516-90
 ;;9002226.02101,"493,55887-0641-03 ",.01)
 ;;55887-0641-03
 ;;9002226.02101,"493,55887-0641-03 ",.02)
 ;;55887-0641-03
 ;;9002226.02101,"493,55887-0685-04 ",.01)
 ;;55887-0685-04
 ;;9002226.02101,"493,55887-0685-04 ",.02)
 ;;55887-0685-04
 ;;9002226.02101,"493,58016-0613-04 ",.01)
 ;;58016-0613-04
 ;;9002226.02101,"493,58016-0613-04 ",.02)
 ;;58016-0613-04
 ;;9002226.02101,"493,58016-0788-00 ",.01)
 ;;58016-0788-00
 ;;9002226.02101,"493,58016-0788-00 ",.02)
 ;;58016-0788-00
 ;;9002226.02101,"493,58016-0788-30 ",.01)
 ;;58016-0788-30
 ;;9002226.02101,"493,58016-0788-30 ",.02)
 ;;58016-0788-30
 ;;9002226.02101,"493,58016-0788-60 ",.01)
 ;;58016-0788-60
 ;;9002226.02101,"493,58016-0788-60 ",.02)
 ;;58016-0788-60
 ;;9002226.02101,"493,58016-0788-90 ",.01)
 ;;58016-0788-90
 ;;9002226.02101,"493,58016-0788-90 ",.02)
 ;;58016-0788-90
 ;;9002226.02101,"493,59746-0242-02 ",.01)
 ;;59746-0242-02
 ;;9002226.02101,"493,59746-0242-02 ",.02)
 ;;59746-0242-02
 ;;9002226.02101,"493,59746-0244-02 ",.01)
 ;;59746-0244-02
 ;;9002226.02101,"493,59746-0244-02 ",.02)
 ;;59746-0244-02
 ;;9002226.02101,"493,60429-0773-04 ",.01)
 ;;60429-0773-04
 ;;9002226.02101,"493,60429-0773-04 ",.02)
 ;;60429-0773-04
 ;;9002226.02101,"493,60429-0773-12 ",.01)
 ;;60429-0773-12
 ;;9002226.02101,"493,60429-0773-12 ",.02)
 ;;60429-0773-12
 ;;9002226.02101,"493,60505-0823-06 ",.01)
 ;;60505-0823-06
 ;;9002226.02101,"493,60505-0823-06 ",.02)
 ;;60505-0823-06
 ;;9002226.02101,"493,60505-2592-01 ",.01)
 ;;60505-2592-01
 ;;9002226.02101,"493,60505-2592-01 ",.02)
 ;;60505-2592-01
 ;;9002226.02101,"493,60505-2592-03 ",.01)
 ;;60505-2592-03
 ;;9002226.02101,"493,60505-2592-03 ",.02)
 ;;60505-2592-03
 ;;9002226.02101,"493,60505-2593-01 ",.01)
 ;;60505-2593-01
 ;;9002226.02101,"493,60505-2593-01 ",.02)
 ;;60505-2593-01
 ;;9002226.02101,"493,60505-2593-03 ",.01)
 ;;60505-2593-03
 ;;9002226.02101,"493,60505-2593-03 ",.02)
 ;;60505-2593-03
 ;;9002226.02101,"493,60505-2594-04 ",.01)
 ;;60505-2594-04
 ;;9002226.02101,"493,60505-2594-04 ",.02)
 ;;60505-2594-04
 ;;9002226.02101,"493,60505-2596-02 ",.01)
 ;;60505-2596-02
 ;;9002226.02101,"493,60505-2596-02 ",.02)
 ;;60505-2596-02
 ;;9002226.02101,"493,60505-2596-04 ",.01)
 ;;60505-2596-04
 ;;9002226.02101,"493,60505-2596-04 ",.02)
 ;;60505-2596-04
 ;;9002226.02101,"493,60505-2596-08 ",.01)
 ;;60505-2596-08
 ;;9002226.02101,"493,60505-2596-08 ",.02)
 ;;60505-2596-08
 ;;9002226.02101,"493,60505-2795-00 ",.01)
 ;;60505-2795-00
 ;;9002226.02101,"493,60505-2795-00 ",.02)
 ;;60505-2795-00
 ;;9002226.02101,"493,60505-3097-02 ",.01)
 ;;60505-3097-02
 ;;9002226.02101,"493,60505-3097-02 ",.02)
 ;;60505-3097-02
 ;;9002226.02101,"493,60505-3097-04 ",.01)
 ;;60505-3097-04
 ;;9002226.02101,"493,60505-3097-04 ",.02)
 ;;60505-3097-04
 ;;9002226.02101,"493,60505-6110-00 ",.01)
 ;;60505-6110-00
 ;;9002226.02101,"493,60505-6110-00 ",.02)
 ;;60505-6110-00
 ;;9002226.02101,"493,62756-0218-40 ",.01)
 ;;62756-0218-40
 ;;9002226.02101,"493,62756-0218-40 ",.02)
 ;;62756-0218-40
 ;;9002226.02101,"493,63874-0089-01 ",.01)
 ;;63874-0089-01
 ;;9002226.02101,"493,63874-0089-01 ",.02)
 ;;63874-0089-01
 ;;9002226.02101,"493,64679-0185-01 ",.01)
 ;;64679-0185-01
 ;;9002226.02101,"493,64679-0185-01 ",.02)
 ;;64679-0185-01
 ;;9002226.02101,"493,64679-0186-01 ",.01)
 ;;64679-0186-01
 ;;9002226.02101,"493,64679-0186-01 ",.02)
 ;;64679-0186-01
 ;;9002226.02101,"493,65862-0327-30 ",.01)
 ;;65862-0327-30
 ;;9002226.02101,"493,65862-0327-30 ",.02)
 ;;65862-0327-30
 ;;9002226.02101,"493,65862-0328-04 ",.01)
 ;;65862-0328-04
 ;;9002226.02101,"493,65862-0328-04 ",.02)
 ;;65862-0328-04
 ;;9002226.02101,"493,65862-0329-04 ",.01)
 ;;65862-0329-04
 ;;9002226.02101,"493,65862-0329-04 ",.02)
 ;;65862-0329-04
 ;;9002226.02101,"493,66105-0538-03 ",.01)
 ;;66105-0538-03
 ;;9002226.02101,"493,66105-0538-03 ",.02)
 ;;66105-0538-03
 ;;9002226.02101,"493,66993-0417-02 ",.01)
 ;;66993-0417-02
 ;;9002226.02101,"493,66993-0417-02 ",.02)
 ;;66993-0417-02
 ;;9002226.02101,"493,66993-0417-30 ",.01)
 ;;66993-0417-30
 ;;9002226.02101,"493,66993-0417-30 ",.02)
 ;;66993-0417-30
 ;;9002226.02101,"493,66993-0417-88 ",.01)
 ;;66993-0417-88
 ;;9002226.02101,"493,66993-0417-88 ",.02)
 ;;66993-0417-88
 ;;9002226.02101,"493,67457-0524-33 ",.01)
 ;;67457-0524-33
 ;;9002226.02101,"493,67457-0524-33 ",.02)
 ;;67457-0524-33
 ;;9002226.02101,"493,67801-0320-03 ",.01)
 ;;67801-0320-03
 ;;9002226.02101,"493,67801-0320-03 ",.02)
 ;;67801-0320-03
 ;;9002226.02101,"493,67877-0240-31 ",.01)
 ;;67877-0240-31
 ;;9002226.02101,"493,67877-0240-31 ",.02)
 ;;67877-0240-31
 ;;9002226.02101,"493,67877-0240-33 ",.01)
 ;;67877-0240-33
 ;;9002226.02101,"493,67877-0240-33 ",.02)
 ;;67877-0240-33
 ;;9002226.02101,"493,67877-0241-31 ",.01)
 ;;67877-0241-31
 ;;9002226.02101,"493,67877-0241-31 ",.02)
 ;;67877-0241-31
 ;;9002226.02101,"493,67877-0241-33 ",.01)
 ;;67877-0241-33
 ;;9002226.02101,"493,67877-0241-33 ",.02)
 ;;67877-0241-33
 ;;9002226.02101,"493,68084-0322-11 ",.01)
 ;;68084-0322-11
 ;;9002226.02101,"493,68084-0322-11 ",.02)
 ;;68084-0322-11
 ;;9002226.02101,"493,68084-0322-94 ",.01)
 ;;68084-0322-94
 ;;9002226.02101,"493,68084-0322-94 ",.02)
 ;;68084-0322-94
 ;;9002226.02101,"493,68258-3014-01 ",.01)
 ;;68258-3014-01
 ;;9002226.02101,"493,68258-3014-01 ",.02)
 ;;68258-3014-01
 ;;9002226.02101,"493,76439-0130-04 ",.01)
 ;;76439-0130-04
 ;;9002226.02101,"493,76439-0130-04 ",.02)
 ;;76439-0130-04
 ;;9002226.02101,"493,76439-0130-12 ",.01)
 ;;76439-0130-12
 ;;9002226.02101,"493,76439-0130-12 ",.02)
 ;;76439-0130-12
 ;;9002226.02101,"493,76439-0131-04 ",.01)
 ;;76439-0131-04
 ;;9002226.02101,"493,76439-0131-04 ",.02)
 ;;76439-0131-04
 ;;9002226.02101,"493,76439-0131-12 ",.01)
 ;;76439-0131-12
 ;;9002226.02101,"493,76439-0131-12 ",.02)
 ;;76439-0131-12
 ;;9002226.02101,"493,76439-0131-20 ",.01)
 ;;76439-0131-20
 ;;9002226.02101,"493,76439-0131-20 ",.02)
 ;;76439-0131-20