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

BGP13G5.m

Go to the documentation of this file.
BGP13G5 ; 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,"696,54569-0427-08 ",.01)
 ;;54569-0427-08
 ;;9002226.02101,"696,54569-0427-08 ",.02)
 ;;54569-0427-08
 ;;9002226.02101,"696,54569-0427-09 ",.01)
 ;;54569-0427-09
 ;;9002226.02101,"696,54569-0427-09 ",.02)
 ;;54569-0427-09
 ;;9002226.02101,"696,54569-0428-00 ",.01)
 ;;54569-0428-00
 ;;9002226.02101,"696,54569-0428-00 ",.02)
 ;;54569-0428-00
 ;;9002226.02101,"696,54569-3251-00 ",.01)
 ;;54569-3251-00
 ;;9002226.02101,"696,54569-3251-00 ",.02)
 ;;54569-3251-00
 ;;9002226.02101,"696,54569-3496-00 ",.01)
 ;;54569-3496-00
 ;;9002226.02101,"696,54569-3496-00 ",.02)
 ;;54569-3496-00
 ;;9002226.02101,"696,54569-3763-02 ",.01)
 ;;54569-3763-02
 ;;9002226.02101,"696,54569-3763-02 ",.02)
 ;;54569-3763-02
 ;;9002226.02101,"696,54807-0126-01 ",.01)
 ;;54807-0126-01
 ;;9002226.02101,"696,54807-0126-01 ",.02)
 ;;54807-0126-01
 ;;9002226.02101,"696,54838-0506-15 ",.01)
 ;;54838-0506-15
 ;;9002226.02101,"696,54838-0506-15 ",.02)
 ;;54838-0506-15
 ;;9002226.02101,"696,54838-0511-80 ",.01)
 ;;54838-0511-80
 ;;9002226.02101,"696,54838-0511-80 ",.02)
 ;;54838-0511-80
 ;;9002226.02101,"696,54868-0031-04 ",.01)
 ;;54868-0031-04
 ;;9002226.02101,"696,54868-0031-04 ",.02)
 ;;54868-0031-04
 ;;9002226.02101,"696,54868-0032-00 ",.01)
 ;;54868-0032-00
 ;;9002226.02101,"696,54868-0032-00 ",.02)
 ;;54868-0032-00
 ;;9002226.02101,"696,54868-0427-00 ",.01)
 ;;54868-0427-00
 ;;9002226.02101,"696,54868-0427-00 ",.02)
 ;;54868-0427-00
 ;;9002226.02101,"696,54868-0427-01 ",.01)
 ;;54868-0427-01
 ;;9002226.02101,"696,54868-0427-01 ",.02)
 ;;54868-0427-01
 ;;9002226.02101,"696,54868-0427-02 ",.01)
 ;;54868-0427-02
 ;;9002226.02101,"696,54868-0427-02 ",.02)
 ;;54868-0427-02
 ;;9002226.02101,"696,54868-0427-03 ",.01)
 ;;54868-0427-03
 ;;9002226.02101,"696,54868-0427-03 ",.02)
 ;;54868-0427-03
 ;;9002226.02101,"696,54868-0427-04 ",.01)
 ;;54868-0427-04
 ;;9002226.02101,"696,54868-0427-04 ",.02)
 ;;54868-0427-04
 ;;9002226.02101,"696,54868-1237-00 ",.01)
 ;;54868-1237-00
 ;;9002226.02101,"696,54868-1237-00 ",.02)
 ;;54868-1237-00
 ;;9002226.02101,"696,54868-1237-01 ",.01)
 ;;54868-1237-01
 ;;9002226.02101,"696,54868-1237-01 ",.02)
 ;;54868-1237-01
 ;;9002226.02101,"696,54868-1237-02 ",.01)
 ;;54868-1237-02
 ;;9002226.02101,"696,54868-1237-02 ",.02)
 ;;54868-1237-02
 ;;9002226.02101,"696,54868-1511-01 ",.01)
 ;;54868-1511-01
 ;;9002226.02101,"696,54868-1511-01 ",.02)
 ;;54868-1511-01
 ;;9002226.02101,"696,54868-1555-02 ",.01)
 ;;54868-1555-02
 ;;9002226.02101,"696,54868-1555-02 ",.02)
 ;;54868-1555-02
 ;;9002226.02101,"696,54868-1767-00 ",.01)
 ;;54868-1767-00
 ;;9002226.02101,"696,54868-1767-00 ",.02)
 ;;54868-1767-00
 ;;9002226.02101,"696,54868-2087-00 ",.01)
 ;;54868-2087-00
 ;;9002226.02101,"696,54868-2087-00 ",.02)
 ;;54868-2087-00
 ;;9002226.02101,"696,54868-2209-00 ",.01)
 ;;54868-2209-00
 ;;9002226.02101,"696,54868-2209-00 ",.02)
 ;;54868-2209-00
 ;;9002226.02101,"696,54868-2209-02 ",.01)
 ;;54868-2209-02
 ;;9002226.02101,"696,54868-2209-02 ",.02)
 ;;54868-2209-02
 ;;9002226.02101,"696,54868-2209-03 ",.01)
 ;;54868-2209-03
 ;;9002226.02101,"696,54868-2209-03 ",.02)
 ;;54868-2209-03
 ;;9002226.02101,"696,54868-2209-04 ",.01)
 ;;54868-2209-04
 ;;9002226.02101,"696,54868-2209-04 ",.02)
 ;;54868-2209-04
 ;;9002226.02101,"696,54868-2209-05 ",.01)
 ;;54868-2209-05
 ;;9002226.02101,"696,54868-2209-05 ",.02)
 ;;54868-2209-05
 ;;9002226.02101,"696,54868-2209-06 ",.01)
 ;;54868-2209-06
 ;;9002226.02101,"696,54868-2209-06 ",.02)
 ;;54868-2209-06
 ;;9002226.02101,"696,54868-2209-07 ",.01)
 ;;54868-2209-07
 ;;9002226.02101,"696,54868-2209-07 ",.02)
 ;;54868-2209-07
 ;;9002226.02101,"696,54868-3116-00 ",.01)
 ;;54868-3116-00
 ;;9002226.02101,"696,54868-3116-00 ",.02)
 ;;54868-3116-00
 ;;9002226.02101,"696,54868-3215-01 ",.01)
 ;;54868-3215-01
 ;;9002226.02101,"696,54868-3215-01 ",.02)
 ;;54868-3215-01
 ;;9002226.02101,"696,54868-3215-02 ",.01)
 ;;54868-3215-02
 ;;9002226.02101,"696,54868-3215-02 ",.02)
 ;;54868-3215-02
 ;;9002226.02101,"696,54868-3215-03 ",.01)
 ;;54868-3215-03
 ;;9002226.02101,"696,54868-3215-03 ",.02)
 ;;54868-3215-03
 ;;9002226.02101,"696,54868-3451-00 ",.01)
 ;;54868-3451-00
 ;;9002226.02101,"696,54868-3451-00 ",.02)
 ;;54868-3451-00
 ;;9002226.02101,"696,54868-3510-00 ",.01)
 ;;54868-3510-00
 ;;9002226.02101,"696,54868-3510-00 ",.02)
 ;;54868-3510-00
 ;;9002226.02101,"696,54868-3510-01 ",.01)
 ;;54868-3510-01
 ;;9002226.02101,"696,54868-3510-01 ",.02)
 ;;54868-3510-01
 ;;9002226.02101,"696,54868-3939-00 ",.01)
 ;;54868-3939-00
 ;;9002226.02101,"696,54868-3939-00 ",.02)
 ;;54868-3939-00
 ;;9002226.02101,"696,54868-3939-01 ",.01)
 ;;54868-3939-01
 ;;9002226.02101,"696,54868-3939-01 ",.02)
 ;;54868-3939-01
 ;;9002226.02101,"696,54868-5003-00 ",.01)
 ;;54868-5003-00
 ;;9002226.02101,"696,54868-5003-00 ",.02)
 ;;54868-5003-00
 ;;9002226.02101,"696,54868-5003-01 ",.01)
 ;;54868-5003-01
 ;;9002226.02101,"696,54868-5003-01 ",.02)
 ;;54868-5003-01
 ;;9002226.02101,"696,54868-5277-00 ",.01)
 ;;54868-5277-00
 ;;9002226.02101,"696,54868-5277-00 ",.02)
 ;;54868-5277-00
 ;;9002226.02101,"696,54868-5661-00 ",.01)
 ;;54868-5661-00
 ;;9002226.02101,"696,54868-5661-00 ",.02)
 ;;54868-5661-00
 ;;9002226.02101,"696,55045-2675-00 ",.01)
 ;;55045-2675-00
 ;;9002226.02101,"696,55045-2675-00 ",.02)
 ;;55045-2675-00
 ;;9002226.02101,"696,55289-0035-01 ",.01)
 ;;55289-0035-01
 ;;9002226.02101,"696,55289-0035-01 ",.02)
 ;;55289-0035-01
 ;;9002226.02101,"696,55289-0035-14 ",.01)
 ;;55289-0035-14
 ;;9002226.02101,"696,55289-0035-14 ",.02)
 ;;55289-0035-14
 ;;9002226.02101,"696,55289-0035-20 ",.01)
 ;;55289-0035-20
 ;;9002226.02101,"696,55289-0035-20 ",.02)
 ;;55289-0035-20
 ;;9002226.02101,"696,55289-0035-28 ",.01)
 ;;55289-0035-28
 ;;9002226.02101,"696,55289-0035-28 ",.02)
 ;;55289-0035-28
 ;;9002226.02101,"696,55289-0035-30 ",.01)
 ;;55289-0035-30
 ;;9002226.02101,"696,55289-0035-30 ",.02)
 ;;55289-0035-30
 ;;9002226.02101,"696,55289-0035-60 ",.01)
 ;;55289-0035-60
 ;;9002226.02101,"696,55289-0035-60 ",.02)
 ;;55289-0035-60
 ;;9002226.02101,"696,55289-0035-97 ",.01)
 ;;55289-0035-97
 ;;9002226.02101,"696,55289-0035-97 ",.02)
 ;;55289-0035-97
 ;;9002226.02101,"696,55289-0102-10 ",.01)
 ;;55289-0102-10
 ;;9002226.02101,"696,55289-0102-10 ",.02)
 ;;55289-0102-10
 ;;9002226.02101,"696,55289-0102-15 ",.01)
 ;;55289-0102-15
 ;;9002226.02101,"696,55289-0102-15 ",.02)
 ;;55289-0102-15
 ;;9002226.02101,"696,55289-0102-20 ",.01)
 ;;55289-0102-20
 ;;9002226.02101,"696,55289-0102-20 ",.02)
 ;;55289-0102-20
 ;;9002226.02101,"696,55289-0102-30 ",.01)
 ;;55289-0102-30
 ;;9002226.02101,"696,55289-0102-30 ",.02)
 ;;55289-0102-30
 ;;9002226.02101,"696,55289-0230-10 ",.01)
 ;;55289-0230-10
 ;;9002226.02101,"696,55289-0230-10 ",.02)
 ;;55289-0230-10
 ;;9002226.02101,"696,55289-0586-04 ",.01)
 ;;55289-0586-04
 ;;9002226.02101,"696,55289-0586-04 ",.02)
 ;;55289-0586-04
 ;;9002226.02101,"696,55289-0586-08 ",.01)
 ;;55289-0586-08
 ;;9002226.02101,"696,55289-0586-08 ",.02)
 ;;55289-0586-08
 ;;9002226.02101,"696,55289-0956-20 ",.01)
 ;;55289-0956-20
 ;;9002226.02101,"696,55289-0956-20 ",.02)
 ;;55289-0956-20
 ;;9002226.02101,"696,55566-8101-01 ",.01)
 ;;55566-8101-01
 ;;9002226.02101,"696,55566-8101-01 ",.02)
 ;;55566-8101-01
 ;;9002226.02101,"696,55887-0066-30 ",.01)
 ;;55887-0066-30
 ;;9002226.02101,"696,55887-0066-30 ",.02)
 ;;55887-0066-30
 ;;9002226.02101,"696,55887-0483-10 ",.01)
 ;;55887-0483-10
 ;;9002226.02101,"696,55887-0483-10 ",.02)
 ;;55887-0483-10
 ;;9002226.02101,"696,55887-0483-21 ",.01)
 ;;55887-0483-21
 ;;9002226.02101,"696,55887-0483-21 ",.02)
 ;;55887-0483-21
 ;;9002226.02101,"696,55887-0483-25 ",.01)
 ;;55887-0483-25
 ;;9002226.02101,"696,55887-0483-25 ",.02)
 ;;55887-0483-25
 ;;9002226.02101,"696,55887-0483-30 ",.01)
 ;;55887-0483-30
 ;;9002226.02101,"696,55887-0483-30 ",.02)
 ;;55887-0483-30
 ;;9002226.02101,"696,55887-0483-90 ",.01)
 ;;55887-0483-90
 ;;9002226.02101,"696,55887-0483-90 ",.02)
 ;;55887-0483-90
 ;;9002226.02101,"696,55887-0528-20 ",.01)
 ;;55887-0528-20
 ;;9002226.02101,"696,55887-0528-20 ",.02)
 ;;55887-0528-20
 ;;9002226.02101,"696,55887-0528-21 ",.01)
 ;;55887-0528-21
 ;;9002226.02101,"696,55887-0528-21 ",.02)
 ;;55887-0528-21
 ;;9002226.02101,"696,55887-0528-30 ",.01)
 ;;55887-0528-30
 ;;9002226.02101,"696,55887-0528-30 ",.02)
 ;;55887-0528-30
 ;;9002226.02101,"696,55887-0528-60 ",.01)
 ;;55887-0528-60
 ;;9002226.02101,"696,55887-0528-60 ",.02)
 ;;55887-0528-60
 ;;9002226.02101,"696,55887-0530-21 ",.01)
 ;;55887-0530-21
 ;;9002226.02101,"696,55887-0530-21 ",.02)
 ;;55887-0530-21
 ;;9002226.02101,"696,55887-0530-30 ",.01)
 ;;55887-0530-30
 ;;9002226.02101,"696,55887-0530-30 ",.02)
 ;;55887-0530-30
 ;;9002226.02101,"696,55887-0760-20 ",.01)
 ;;55887-0760-20
 ;;9002226.02101,"696,55887-0760-20 ",.02)
 ;;55887-0760-20
 ;;9002226.02101,"696,55887-0760-21 ",.01)
 ;;55887-0760-21
 ;;9002226.02101,"696,55887-0760-21 ",.02)
 ;;55887-0760-21
 ;;9002226.02101,"696,55887-0760-60 ",.01)
 ;;55887-0760-60
 ;;9002226.02101,"696,55887-0760-60 ",.02)
 ;;55887-0760-60
 ;;9002226.02101,"696,55887-0783-04 ",.01)
 ;;55887-0783-04
 ;;9002226.02101,"696,55887-0783-04 ",.02)
 ;;55887-0783-04
 ;;9002226.02101,"696,55887-0841-01 ",.01)
 ;;55887-0841-01
 ;;9002226.02101,"696,55887-0841-01 ",.02)
 ;;55887-0841-01
 ;;9002226.02101,"696,55887-0841-08 ",.01)
 ;;55887-0841-08
 ;;9002226.02101,"696,55887-0841-08 ",.02)
 ;;55887-0841-08
 ;;9002226.02101,"696,55887-0841-11 ",.01)
 ;;55887-0841-11
 ;;9002226.02101,"696,55887-0841-11 ",.02)
 ;;55887-0841-11
 ;;9002226.02101,"696,55887-0841-15 ",.01)
 ;;55887-0841-15
 ;;9002226.02101,"696,55887-0841-15 ",.02)
 ;;55887-0841-15
 ;;9002226.02101,"696,55887-0841-20 ",.01)
 ;;55887-0841-20
 ;;9002226.02101,"696,55887-0841-20 ",.02)
 ;;55887-0841-20
 ;;9002226.02101,"696,55887-0841-25 ",.01)
 ;;55887-0841-25
 ;;9002226.02101,"696,55887-0841-25 ",.02)
 ;;55887-0841-25
 ;;9002226.02101,"696,55887-0841-30 ",.01)
 ;;55887-0841-30
 ;;9002226.02101,"696,55887-0841-30 ",.02)
 ;;55887-0841-30
 ;;9002226.02101,"696,57866-3763-01 ",.01)
 ;;57866-3763-01
 ;;9002226.02101,"696,57866-3763-01 ",.02)
 ;;57866-3763-01
 ;;9002226.02101,"696,57866-3764-01 ",.01)
 ;;57866-3764-01
 ;;9002226.02101,"696,57866-3764-01 ",.02)
 ;;57866-3764-01
 ;;9002226.02101,"696,57866-9028-01 ",.01)
 ;;57866-9028-01
 ;;9002226.02101,"696,57866-9028-01 ",.02)
 ;;57866-9028-01
 ;;9002226.02101,"696,58016-0032-30 ",.01)
 ;;58016-0032-30
 ;;9002226.02101,"696,58016-0032-30 ",.02)
 ;;58016-0032-30
 ;;9002226.02101,"696,58016-0709-00 ",.01)
 ;;58016-0709-00
 ;;9002226.02101,"696,58016-0709-00 ",.02)
 ;;58016-0709-00
 ;;9002226.02101,"696,58016-0709-02 ",.01)
 ;;58016-0709-02
 ;;9002226.02101,"696,58016-0709-02 ",.02)
 ;;58016-0709-02
 ;;9002226.02101,"696,58016-0709-03 ",.01)
 ;;58016-0709-03
 ;;9002226.02101,"696,58016-0709-03 ",.02)
 ;;58016-0709-03
 ;;9002226.02101,"696,58016-0709-20 ",.01)
 ;;58016-0709-20
 ;;9002226.02101,"696,58016-0709-20 ",.02)
 ;;58016-0709-20
 ;;9002226.02101,"696,58016-0709-30 ",.01)
 ;;58016-0709-30
 ;;9002226.02101,"696,58016-0709-30 ",.02)
 ;;58016-0709-30
 ;;9002226.02101,"696,58016-0709-40 ",.01)
 ;;58016-0709-40
 ;;9002226.02101,"696,58016-0709-40 ",.02)
 ;;58016-0709-40
 ;;9002226.02101,"696,58016-0709-42 ",.01)
 ;;58016-0709-42
 ;;9002226.02101,"696,58016-0709-42 ",.02)
 ;;58016-0709-42
 ;;9002226.02101,"696,58016-0709-50 ",.01)
 ;;58016-0709-50
 ;;9002226.02101,"696,58016-0709-50 ",.02)
 ;;58016-0709-50
 ;;9002226.02101,"696,58016-0709-73 ",.01)
 ;;58016-0709-73
 ;;9002226.02101,"696,58016-0709-73 ",.02)
 ;;58016-0709-73
 ;;9002226.02101,"696,58016-0709-89 ",.01)
 ;;58016-0709-89
 ;;9002226.02101,"696,58016-0709-89 ",.02)
 ;;58016-0709-89
 ;;9002226.02101,"696,58016-0713-00 ",.01)
 ;;58016-0713-00
 ;;9002226.02101,"696,58016-0713-00 ",.02)
 ;;58016-0713-00
 ;;9002226.02101,"696,58016-0713-06 ",.01)
 ;;58016-0713-06
 ;;9002226.02101,"696,58016-0713-06 ",.02)
 ;;58016-0713-06
 ;;9002226.02101,"696,58016-0713-10 ",.01)
 ;;58016-0713-10
 ;;9002226.02101,"696,58016-0713-10 ",.02)
 ;;58016-0713-10
 ;;9002226.02101,"696,58016-0713-12 ",.01)
 ;;58016-0713-12
 ;;9002226.02101,"696,58016-0713-12 ",.02)
 ;;58016-0713-12
 ;;9002226.02101,"696,58016-0713-14 ",.01)
 ;;58016-0713-14
 ;;9002226.02101,"696,58016-0713-14 ",.02)
 ;;58016-0713-14
 ;;9002226.02101,"696,58016-0713-15 ",.01)
 ;;58016-0713-15
 ;;9002226.02101,"696,58016-0713-15 ",.02)
 ;;58016-0713-15
 ;;9002226.02101,"696,58016-0713-16 ",.01)
 ;;58016-0713-16