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

BGP31O6.m

Go to the documentation of this file.
BGP31O6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 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,"726,55887-0262-60 ",.02)
 ;;55887-0262-60
 ;;9002226.02101,"726,55887-0262-82 ",.01)
 ;;55887-0262-82
 ;;9002226.02101,"726,55887-0262-82 ",.02)
 ;;55887-0262-82
 ;;9002226.02101,"726,55887-0262-90 ",.01)
 ;;55887-0262-90
 ;;9002226.02101,"726,55887-0262-90 ",.02)
 ;;55887-0262-90
 ;;9002226.02101,"726,55887-0668-01 ",.01)
 ;;55887-0668-01
 ;;9002226.02101,"726,55887-0668-01 ",.02)
 ;;55887-0668-01
 ;;9002226.02101,"726,55887-0668-10 ",.01)
 ;;55887-0668-10
 ;;9002226.02101,"726,55887-0668-10 ",.02)
 ;;55887-0668-10
 ;;9002226.02101,"726,55887-0668-13 ",.01)
 ;;55887-0668-13
 ;;9002226.02101,"726,55887-0668-13 ",.02)
 ;;55887-0668-13
 ;;9002226.02101,"726,55887-0668-15 ",.01)
 ;;55887-0668-15
 ;;9002226.02101,"726,55887-0668-15 ",.02)
 ;;55887-0668-15
 ;;9002226.02101,"726,55887-0668-30 ",.01)
 ;;55887-0668-30
 ;;9002226.02101,"726,55887-0668-30 ",.02)
 ;;55887-0668-30
 ;;9002226.02101,"726,55887-0703-30 ",.01)
 ;;55887-0703-30
 ;;9002226.02101,"726,55887-0703-30 ",.02)
 ;;55887-0703-30
 ;;9002226.02101,"726,55887-0703-60 ",.01)
 ;;55887-0703-60
 ;;9002226.02101,"726,55887-0703-60 ",.02)
 ;;55887-0703-60
 ;;9002226.02101,"726,55887-0703-82 ",.01)
 ;;55887-0703-82
 ;;9002226.02101,"726,55887-0703-82 ",.02)
 ;;55887-0703-82
 ;;9002226.02101,"726,55887-0703-90 ",.01)
 ;;55887-0703-90
 ;;9002226.02101,"726,55887-0703-90 ",.02)
 ;;55887-0703-90
 ;;9002226.02101,"726,55887-0919-01 ",.01)
 ;;55887-0919-01
 ;;9002226.02101,"726,55887-0919-01 ",.02)
 ;;55887-0919-01
 ;;9002226.02101,"726,57664-0437-18 ",.01)
 ;;57664-0437-18
 ;;9002226.02101,"726,57664-0437-18 ",.02)
 ;;57664-0437-18
 ;;9002226.02101,"726,57664-0437-88 ",.01)
 ;;57664-0437-88
 ;;9002226.02101,"726,57664-0437-88 ",.02)
 ;;57664-0437-88
 ;;9002226.02101,"726,57664-0441-18 ",.01)
 ;;57664-0441-18
 ;;9002226.02101,"726,57664-0441-18 ",.02)
 ;;57664-0441-18
 ;;9002226.02101,"726,57664-0441-88 ",.01)
 ;;57664-0441-88
 ;;9002226.02101,"726,57664-0441-88 ",.02)
 ;;57664-0441-88
 ;;9002226.02101,"726,57866-0228-01 ",.01)
 ;;57866-0228-01
 ;;9002226.02101,"726,57866-0228-01 ",.02)
 ;;57866-0228-01
 ;;9002226.02101,"726,57866-0324-01 ",.01)
 ;;57866-0324-01
 ;;9002226.02101,"726,57866-0324-01 ",.02)
 ;;57866-0324-01
 ;;9002226.02101,"726,57866-0324-02 ",.01)
 ;;57866-0324-02
 ;;9002226.02101,"726,57866-0324-02 ",.02)
 ;;57866-0324-02
 ;;9002226.02101,"726,57866-1257-01 ",.01)
 ;;57866-1257-01
 ;;9002226.02101,"726,57866-1257-01 ",.02)
 ;;57866-1257-01
 ;;9002226.02101,"726,57866-1258-01 ",.01)
 ;;57866-1258-01
 ;;9002226.02101,"726,57866-1258-01 ",.02)
 ;;57866-1258-01
 ;;9002226.02101,"726,57866-6660-01 ",.01)
 ;;57866-6660-01
 ;;9002226.02101,"726,57866-6660-01 ",.02)
 ;;57866-6660-01
 ;;9002226.02101,"726,57866-6660-02 ",.01)
 ;;57866-6660-02
 ;;9002226.02101,"726,57866-6660-02 ",.02)
 ;;57866-6660-02
 ;;9002226.02101,"726,57866-6660-03 ",.01)
 ;;57866-6660-03
 ;;9002226.02101,"726,57866-6660-03 ",.02)
 ;;57866-6660-03
 ;;9002226.02101,"726,58016-0202-00 ",.01)
 ;;58016-0202-00
 ;;9002226.02101,"726,58016-0202-00 ",.02)
 ;;58016-0202-00
 ;;9002226.02101,"726,58016-0202-30 ",.01)
 ;;58016-0202-30
 ;;9002226.02101,"726,58016-0202-30 ",.02)
 ;;58016-0202-30
 ;;9002226.02101,"726,58016-0202-60 ",.01)
 ;;58016-0202-60
 ;;9002226.02101,"726,58016-0202-60 ",.02)
 ;;58016-0202-60
 ;;9002226.02101,"726,58016-0537-00 ",.01)
 ;;58016-0537-00
 ;;9002226.02101,"726,58016-0537-00 ",.02)
 ;;58016-0537-00
 ;;9002226.02101,"726,58016-0537-03 ",.01)
 ;;58016-0537-03
 ;;9002226.02101,"726,58016-0537-03 ",.02)
 ;;58016-0537-03
 ;;9002226.02101,"726,58016-0537-10 ",.01)
 ;;58016-0537-10
 ;;9002226.02101,"726,58016-0537-10 ",.02)
 ;;58016-0537-10
 ;;9002226.02101,"726,58016-0537-12 ",.01)
 ;;58016-0537-12
 ;;9002226.02101,"726,58016-0537-12 ",.02)
 ;;58016-0537-12
 ;;9002226.02101,"726,58016-0537-15 ",.01)
 ;;58016-0537-15
 ;;9002226.02101,"726,58016-0537-15 ",.02)
 ;;58016-0537-15
 ;;9002226.02101,"726,58016-0537-30 ",.01)
 ;;58016-0537-30
 ;;9002226.02101,"726,58016-0537-30 ",.02)
 ;;58016-0537-30
 ;;9002226.02101,"726,58016-0620-00 ",.01)
 ;;58016-0620-00
 ;;9002226.02101,"726,58016-0620-00 ",.02)
 ;;58016-0620-00
 ;;9002226.02101,"726,58016-0620-12 ",.01)
 ;;58016-0620-12
 ;;9002226.02101,"726,58016-0620-12 ",.02)
 ;;58016-0620-12
 ;;9002226.02101,"726,58016-0620-15 ",.01)
 ;;58016-0620-15
 ;;9002226.02101,"726,58016-0620-15 ",.02)
 ;;58016-0620-15
 ;;9002226.02101,"726,58016-0620-20 ",.01)
 ;;58016-0620-20
 ;;9002226.02101,"726,58016-0620-20 ",.02)
 ;;58016-0620-20
 ;;9002226.02101,"726,58016-0620-30 ",.01)
 ;;58016-0620-30
 ;;9002226.02101,"726,58016-0620-30 ",.02)
 ;;58016-0620-30
 ;;9002226.02101,"726,58016-0620-90 ",.01)
 ;;58016-0620-90
 ;;9002226.02101,"726,58016-0620-90 ",.02)
 ;;58016-0620-90
 ;;9002226.02101,"726,58016-0622-00 ",.01)
 ;;58016-0622-00
 ;;9002226.02101,"726,58016-0622-00 ",.02)
 ;;58016-0622-00
 ;;9002226.02101,"726,58016-0622-08 ",.01)
 ;;58016-0622-08
 ;;9002226.02101,"726,58016-0622-08 ",.02)
 ;;58016-0622-08
 ;;9002226.02101,"726,58016-0622-30 ",.01)
 ;;58016-0622-30
 ;;9002226.02101,"726,58016-0622-30 ",.02)
 ;;58016-0622-30
 ;;9002226.02101,"726,58016-0622-50 ",.01)
 ;;58016-0622-50
 ;;9002226.02101,"726,58016-0622-50 ",.02)
 ;;58016-0622-50
 ;;9002226.02101,"726,58016-0622-60 ",.01)
 ;;58016-0622-60
 ;;9002226.02101,"726,58016-0622-60 ",.02)
 ;;58016-0622-60
 ;;9002226.02101,"726,58016-0622-90 ",.01)
 ;;58016-0622-90
 ;;9002226.02101,"726,58016-0622-90 ",.02)
 ;;58016-0622-90
 ;;9002226.02101,"726,58016-0755-00 ",.01)
 ;;58016-0755-00
 ;;9002226.02101,"726,58016-0755-00 ",.02)
 ;;58016-0755-00
 ;;9002226.02101,"726,58016-0755-30 ",.01)
 ;;58016-0755-30
 ;;9002226.02101,"726,58016-0755-30 ",.02)
 ;;58016-0755-30
 ;;9002226.02101,"726,58016-0755-60 ",.01)
 ;;58016-0755-60
 ;;9002226.02101,"726,58016-0755-60 ",.02)
 ;;58016-0755-60
 ;;9002226.02101,"726,58177-0002-04 ",.01)
 ;;58177-0002-04
 ;;9002226.02101,"726,58177-0002-04 ",.02)
 ;;58177-0002-04
 ;;9002226.02101,"726,58864-0068-20 ",.01)
 ;;58864-0068-20
 ;;9002226.02101,"726,58864-0068-20 ",.02)
 ;;58864-0068-20
 ;;9002226.02101,"726,58864-0068-30 ",.01)
 ;;58864-0068-30
 ;;9002226.02101,"726,58864-0068-30 ",.02)
 ;;58864-0068-30
 ;;9002226.02101,"726,58864-0365-90 ",.01)
 ;;58864-0365-90
 ;;9002226.02101,"726,58864-0365-90 ",.02)
 ;;58864-0365-90
 ;;9002226.02101,"726,58864-0634-14 ",.01)
 ;;58864-0634-14
 ;;9002226.02101,"726,58864-0634-14 ",.02)
 ;;58864-0634-14
 ;;9002226.02101,"726,58864-0634-20 ",.01)
 ;;58864-0634-20
 ;;9002226.02101,"726,58864-0634-20 ",.02)
 ;;58864-0634-20
 ;;9002226.02101,"726,58864-0634-30 ",.01)
 ;;58864-0634-30
 ;;9002226.02101,"726,58864-0634-30 ",.02)
 ;;58864-0634-30
 ;;9002226.02101,"726,58864-0769-30 ",.01)
 ;;58864-0769-30
 ;;9002226.02101,"726,58864-0769-30 ",.02)
 ;;58864-0769-30
 ;;9002226.02101,"726,58864-0796-20 ",.01)
 ;;58864-0796-20
 ;;9002226.02101,"726,58864-0796-20 ",.02)
 ;;58864-0796-20
 ;;9002226.02101,"726,58864-0797-30 ",.01)
 ;;58864-0797-30
 ;;9002226.02101,"726,58864-0797-30 ",.02)
 ;;58864-0797-30
 ;;9002226.02101,"726,58864-0815-01 ",.01)
 ;;58864-0815-01
 ;;9002226.02101,"726,58864-0815-01 ",.02)
 ;;58864-0815-01
 ;;9002226.02101,"726,58864-0815-30 ",.01)
 ;;58864-0815-30
 ;;9002226.02101,"726,58864-0815-30 ",.02)
 ;;58864-0815-30
 ;;9002226.02101,"726,58864-0870-14 ",.01)
 ;;58864-0870-14
 ;;9002226.02101,"726,58864-0870-14 ",.02)
 ;;58864-0870-14
 ;;9002226.02101,"726,60346-0140-60 ",.01)
 ;;60346-0140-60
 ;;9002226.02101,"726,60346-0140-60 ",.02)
 ;;60346-0140-60
 ;;9002226.02101,"726,60346-0396-30 ",.01)
 ;;60346-0396-30
 ;;9002226.02101,"726,60346-0396-30 ",.02)
 ;;60346-0396-30
 ;;9002226.02101,"726,60346-0396-90 ",.01)
 ;;60346-0396-90
 ;;9002226.02101,"726,60346-0396-90 ",.02)
 ;;60346-0396-90
 ;;9002226.02101,"726,60346-0459-30 ",.01)
 ;;60346-0459-30
 ;;9002226.02101,"726,60346-0459-30 ",.02)
 ;;60346-0459-30
 ;;9002226.02101,"726,60346-0459-60 ",.01)
 ;;60346-0459-60
 ;;9002226.02101,"726,60346-0459-60 ",.02)
 ;;60346-0459-60
 ;;9002226.02101,"726,60346-0459-90 ",.01)
 ;;60346-0459-90
 ;;9002226.02101,"726,60346-0459-90 ",.02)
 ;;60346-0459-90
 ;;9002226.02101,"726,60346-0607-00 ",.01)
 ;;60346-0607-00
 ;;9002226.02101,"726,60346-0607-00 ",.02)
 ;;60346-0607-00
 ;;9002226.02101,"726,60346-0607-25 ",.01)
 ;;60346-0607-25
 ;;9002226.02101,"726,60346-0607-25 ",.02)
 ;;60346-0607-25
 ;;9002226.02101,"726,60346-0607-30 ",.01)
 ;;60346-0607-30
 ;;9002226.02101,"726,60346-0607-30 ",.02)
 ;;60346-0607-30
 ;;9002226.02101,"726,60346-0607-90 ",.01)
 ;;60346-0607-90
 ;;9002226.02101,"726,60346-0607-90 ",.02)
 ;;60346-0607-90
 ;;9002226.02101,"726,60346-0794-90 ",.01)
 ;;60346-0794-90
 ;;9002226.02101,"726,60346-0794-90 ",.02)
 ;;60346-0794-90
 ;;9002226.02101,"726,60346-0803-06 ",.01)
 ;;60346-0803-06
 ;;9002226.02101,"726,60346-0803-06 ",.02)
 ;;60346-0803-06
 ;;9002226.02101,"726,60346-0803-10 ",.01)
 ;;60346-0803-10
 ;;9002226.02101,"726,60346-0803-10 ",.02)
 ;;60346-0803-10
 ;;9002226.02101,"726,60346-0803-15 ",.01)
 ;;60346-0803-15
 ;;9002226.02101,"726,60346-0803-15 ",.02)
 ;;60346-0803-15
 ;;9002226.02101,"726,60346-0803-20 ",.01)
 ;;60346-0803-20
 ;;9002226.02101,"726,60346-0803-20 ",.02)
 ;;60346-0803-20
 ;;9002226.02101,"726,60346-0803-25 ",.01)
 ;;60346-0803-25
 ;;9002226.02101,"726,60346-0803-25 ",.02)
 ;;60346-0803-25
 ;;9002226.02101,"726,60346-0803-30 ",.01)
 ;;60346-0803-30
 ;;9002226.02101,"726,60346-0803-30 ",.02)
 ;;60346-0803-30
 ;;9002226.02101,"726,60346-0803-50 ",.01)
 ;;60346-0803-50
 ;;9002226.02101,"726,60346-0803-50 ",.02)
 ;;60346-0803-50
 ;;9002226.02101,"726,60346-0803-59 ",.01)
 ;;60346-0803-59
 ;;9002226.02101,"726,60346-0803-59 ",.02)
 ;;60346-0803-59
 ;;9002226.02101,"726,60346-0803-90 ",.01)
 ;;60346-0803-90
 ;;9002226.02101,"726,60346-0803-90 ",.02)
 ;;60346-0803-90
 ;;9002226.02101,"726,60346-0809-60 ",.01)
 ;;60346-0809-60
 ;;9002226.02101,"726,60346-0809-60 ",.02)
 ;;60346-0809-60
 ;;9002226.02101,"726,60346-0809-90 ",.01)
 ;;60346-0809-90
 ;;9002226.02101,"726,60346-0809-90 ",.02)
 ;;60346-0809-90
 ;;9002226.02101,"726,60346-0829-60 ",.01)
 ;;60346-0829-60
 ;;9002226.02101,"726,60346-0829-60 ",.02)
 ;;60346-0829-60
 ;;9002226.02101,"726,60346-0837-30 ",.01)
 ;;60346-0837-30
 ;;9002226.02101,"726,60346-0837-30 ",.02)
 ;;60346-0837-30
 ;;9002226.02101,"726,60346-0837-60 ",.01)
 ;;60346-0837-60
 ;;9002226.02101,"726,60346-0837-60 ",.02)
 ;;60346-0837-60
 ;;9002226.02101,"726,60346-0845-30 ",.01)
 ;;60346-0845-30
 ;;9002226.02101,"726,60346-0845-30 ",.02)
 ;;60346-0845-30
 ;;9002226.02101,"726,60346-0845-90 ",.01)
 ;;60346-0845-90
 ;;9002226.02101,"726,60346-0845-90 ",.02)
 ;;60346-0845-90
 ;;9002226.02101,"726,60346-0939-00 ",.01)
 ;;60346-0939-00
 ;;9002226.02101,"726,60346-0939-00 ",.02)
 ;;60346-0939-00
 ;;9002226.02101,"726,60346-0939-30 ",.01)
 ;;60346-0939-30
 ;;9002226.02101,"726,60346-0939-30 ",.02)
 ;;60346-0939-30
 ;;9002226.02101,"726,60346-0939-90 ",.01)
 ;;60346-0939-90
 ;;9002226.02101,"726,60346-0939-90 ",.02)
 ;;60346-0939-90
 ;;9002226.02101,"726,60429-0099-01 ",.01)
 ;;60429-0099-01
 ;;9002226.02101,"726,60429-0099-01 ",.02)
 ;;60429-0099-01
 ;;9002226.02101,"726,60429-0099-10 ",.01)
 ;;60429-0099-10
 ;;9002226.02101,"726,60429-0099-10 ",.02)
 ;;60429-0099-10
 ;;9002226.02101,"726,60429-0100-01 ",.01)
 ;;60429-0100-01
 ;;9002226.02101,"726,60429-0100-01 ",.02)
 ;;60429-0100-01
 ;;9002226.02101,"726,60429-0100-10 ",.01)
 ;;60429-0100-10
 ;;9002226.02101,"726,60429-0100-10 ",.02)
 ;;60429-0100-10
 ;;9002226.02101,"726,60429-0163-01 ",.01)
 ;;60429-0163-01
 ;;9002226.02101,"726,60429-0163-01 ",.02)
 ;;60429-0163-01
 ;;9002226.02101,"726,62584-0249-01 ",.01)
 ;;62584-0249-01
 ;;9002226.02101,"726,62584-0249-01 ",.02)
 ;;62584-0249-01
 ;;9002226.02101,"726,62584-0249-33 ",.01)
 ;;62584-0249-33
 ;;9002226.02101,"726,62584-0249-33 ",.02)
 ;;62584-0249-33
 ;;9002226.02101,"726,62584-0802-33 ",.01)
 ;;62584-0802-33
 ;;9002226.02101,"726,62584-0802-33 ",.02)
 ;;62584-0802-33
 ;;9002226.02101,"726,62584-0989-01 ",.01)
 ;;62584-0989-01
 ;;9002226.02101,"726,62584-0989-01 ",.02)
 ;;62584-0989-01
 ;;9002226.02101,"726,62584-0989-11 ",.01)
 ;;62584-0989-11
 ;;9002226.02101,"726,62584-0989-11 ",.02)
 ;;62584-0989-11
 ;;9002226.02101,"726,62584-0989-80 ",.01)
 ;;62584-0989-80
 ;;9002226.02101,"726,62584-0989-80 ",.02)
 ;;62584-0989-80
 ;;9002226.02101,"726,62584-0989-85 ",.01)
 ;;62584-0989-85
 ;;9002226.02101,"726,62584-0989-85 ",.02)
 ;;62584-0989-85
 ;;9002226.02101,"726,62584-0990-01 ",.01)
 ;;62584-0990-01
 ;;9002226.02101,"726,62584-0990-01 ",.02)
 ;;62584-0990-01
 ;;9002226.02101,"726,62584-0990-11 ",.01)
 ;;62584-0990-11
 ;;9002226.02101,"726,62584-0990-11 ",.02)
 ;;62584-0990-11
 ;;9002226.02101,"726,62584-0990-80 ",.01)
 ;;62584-0990-80
 ;;9002226.02101,"726,62584-0990-80 ",.02)
 ;;62584-0990-80
 ;;9002226.02101,"726,62584-0990-85 ",.01)
 ;;62584-0990-85
 ;;9002226.02101,"726,62584-0990-85 ",.02)
 ;;62584-0990-85
 ;;9002226.02101,"726,62794-0145-01 ",.01)
 ;;62794-0145-01
 ;;9002226.02101,"726,62794-0145-01 ",.02)
 ;;62794-0145-01
 ;;9002226.02101,"726,62794-0145-10 ",.01)
 ;;62794-0145-10
 ;;9002226.02101,"726,62794-0145-10 ",.02)
 ;;62794-0145-10
 ;;9002226.02101,"726,62794-0145-56 ",.01)
 ;;62794-0145-56
 ;;9002226.02101,"726,62794-0145-56 ",.02)
 ;;62794-0145-56
 ;;9002226.02101,"726,62794-0146-01 ",.01)
 ;;62794-0146-01