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

BGP31P32.m

Go to the documentation of this file.
BGP31P32 ;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,"730,55887-0552-30 ",.02)
 ;;55887-0552-30
 ;;9002226.02101,"730,55887-0552-60 ",.01)
 ;;55887-0552-60
 ;;9002226.02101,"730,55887-0552-60 ",.02)
 ;;55887-0552-60
 ;;9002226.02101,"730,55887-0552-82 ",.01)
 ;;55887-0552-82
 ;;9002226.02101,"730,55887-0552-82 ",.02)
 ;;55887-0552-82
 ;;9002226.02101,"730,55887-0552-90 ",.01)
 ;;55887-0552-90
 ;;9002226.02101,"730,55887-0552-90 ",.02)
 ;;55887-0552-90
 ;;9002226.02101,"730,55887-0566-20 ",.01)
 ;;55887-0566-20
 ;;9002226.02101,"730,55887-0566-20 ",.02)
 ;;55887-0566-20
 ;;9002226.02101,"730,55887-0566-30 ",.01)
 ;;55887-0566-30
 ;;9002226.02101,"730,55887-0566-30 ",.02)
 ;;55887-0566-30
 ;;9002226.02101,"730,55887-0566-60 ",.01)
 ;;55887-0566-60
 ;;9002226.02101,"730,55887-0566-60 ",.02)
 ;;55887-0566-60
 ;;9002226.02101,"730,55887-0570-20 ",.01)
 ;;55887-0570-20
 ;;9002226.02101,"730,55887-0570-20 ",.02)
 ;;55887-0570-20
 ;;9002226.02101,"730,55887-0570-30 ",.01)
 ;;55887-0570-30
 ;;9002226.02101,"730,55887-0570-30 ",.02)
 ;;55887-0570-30
 ;;9002226.02101,"730,55887-0570-60 ",.01)
 ;;55887-0570-60
 ;;9002226.02101,"730,55887-0570-60 ",.02)
 ;;55887-0570-60
 ;;9002226.02101,"730,55887-0570-90 ",.01)
 ;;55887-0570-90
 ;;9002226.02101,"730,55887-0570-90 ",.02)
 ;;55887-0570-90
 ;;9002226.02101,"730,55887-0572-20 ",.01)
 ;;55887-0572-20
 ;;9002226.02101,"730,55887-0572-20 ",.02)
 ;;55887-0572-20
 ;;9002226.02101,"730,55887-0572-30 ",.01)
 ;;55887-0572-30
 ;;9002226.02101,"730,55887-0572-30 ",.02)
 ;;55887-0572-30
 ;;9002226.02101,"730,55887-0572-50 ",.01)
 ;;55887-0572-50
 ;;9002226.02101,"730,55887-0572-50 ",.02)
 ;;55887-0572-50
 ;;9002226.02101,"730,55887-0572-60 ",.01)
 ;;55887-0572-60
 ;;9002226.02101,"730,55887-0572-60 ",.02)
 ;;55887-0572-60
 ;;9002226.02101,"730,55887-0572-82 ",.01)
 ;;55887-0572-82
 ;;9002226.02101,"730,55887-0572-82 ",.02)
 ;;55887-0572-82
 ;;9002226.02101,"730,55887-0572-90 ",.01)
 ;;55887-0572-90
 ;;9002226.02101,"730,55887-0572-90 ",.02)
 ;;55887-0572-90
 ;;9002226.02101,"730,55887-0615-30 ",.01)
 ;;55887-0615-30
 ;;9002226.02101,"730,55887-0615-30 ",.02)
 ;;55887-0615-30
 ;;9002226.02101,"730,55887-0755-30 ",.01)
 ;;55887-0755-30
 ;;9002226.02101,"730,55887-0755-30 ",.02)
 ;;55887-0755-30
 ;;9002226.02101,"730,55887-0755-60 ",.01)
 ;;55887-0755-60
 ;;9002226.02101,"730,55887-0755-60 ",.02)
 ;;55887-0755-60
 ;;9002226.02101,"730,55887-0755-90 ",.01)
 ;;55887-0755-90
 ;;9002226.02101,"730,55887-0755-90 ",.02)
 ;;55887-0755-90
 ;;9002226.02101,"730,55887-0806-10 ",.01)
 ;;55887-0806-10
 ;;9002226.02101,"730,55887-0806-10 ",.02)
 ;;55887-0806-10
 ;;9002226.02101,"730,55887-0806-20 ",.01)
 ;;55887-0806-20
 ;;9002226.02101,"730,55887-0806-20 ",.02)
 ;;55887-0806-20
 ;;9002226.02101,"730,55887-0806-30 ",.01)
 ;;55887-0806-30
 ;;9002226.02101,"730,55887-0806-30 ",.02)
 ;;55887-0806-30
 ;;9002226.02101,"730,55887-0806-60 ",.01)
 ;;55887-0806-60
 ;;9002226.02101,"730,55887-0806-60 ",.02)
 ;;55887-0806-60
 ;;9002226.02101,"730,55887-0806-82 ",.01)
 ;;55887-0806-82
 ;;9002226.02101,"730,55887-0806-82 ",.02)
 ;;55887-0806-82
 ;;9002226.02101,"730,55887-0806-90 ",.01)
 ;;55887-0806-90
 ;;9002226.02101,"730,55887-0806-90 ",.02)
 ;;55887-0806-90
 ;;9002226.02101,"730,55887-0918-30 ",.01)
 ;;55887-0918-30
 ;;9002226.02101,"730,55887-0918-30 ",.02)
 ;;55887-0918-30
 ;;9002226.02101,"730,55887-0918-60 ",.01)
 ;;55887-0918-60
 ;;9002226.02101,"730,55887-0918-60 ",.02)
 ;;55887-0918-60
 ;;9002226.02101,"730,55887-0918-90 ",.01)
 ;;55887-0918-90
 ;;9002226.02101,"730,55887-0918-90 ",.02)
 ;;55887-0918-90
 ;;9002226.02101,"730,55887-0988-05 ",.01)
 ;;55887-0988-05
 ;;9002226.02101,"730,55887-0988-05 ",.02)
 ;;55887-0988-05
 ;;9002226.02101,"730,55887-0988-06 ",.01)
 ;;55887-0988-06
 ;;9002226.02101,"730,55887-0988-06 ",.02)
 ;;55887-0988-06
 ;;9002226.02101,"730,55887-0988-20 ",.01)
 ;;55887-0988-20
 ;;9002226.02101,"730,55887-0988-20 ",.02)
 ;;55887-0988-20
 ;;9002226.02101,"730,55887-0988-30 ",.01)
 ;;55887-0988-30
 ;;9002226.02101,"730,55887-0988-30 ",.02)
 ;;55887-0988-30
 ;;9002226.02101,"730,55887-0988-40 ",.01)
 ;;55887-0988-40
 ;;9002226.02101,"730,55887-0988-40 ",.02)
 ;;55887-0988-40
 ;;9002226.02101,"730,55887-0988-60 ",.01)
 ;;55887-0988-60
 ;;9002226.02101,"730,55887-0988-60 ",.02)
 ;;55887-0988-60
 ;;9002226.02101,"730,55887-0988-82 ",.01)
 ;;55887-0988-82
 ;;9002226.02101,"730,55887-0988-82 ",.02)
 ;;55887-0988-82
 ;;9002226.02101,"730,55887-0988-90 ",.01)
 ;;55887-0988-90
 ;;9002226.02101,"730,55887-0988-90 ",.02)
 ;;55887-0988-90
 ;;9002226.02101,"730,57664-0515-13 ",.01)
 ;;57664-0515-13
 ;;9002226.02101,"730,57664-0515-13 ",.02)
 ;;57664-0515-13
 ;;9002226.02101,"730,57664-0515-18 ",.01)
 ;;57664-0515-18
 ;;9002226.02101,"730,57664-0515-18 ",.02)
 ;;57664-0515-18
 ;;9002226.02101,"730,57664-0515-88 ",.01)
 ;;57664-0515-88
 ;;9002226.02101,"730,57664-0515-88 ",.02)
 ;;57664-0515-88
 ;;9002226.02101,"730,57664-0516-13 ",.01)
 ;;57664-0516-13
 ;;9002226.02101,"730,57664-0516-13 ",.02)
 ;;57664-0516-13
 ;;9002226.02101,"730,57664-0516-18 ",.01)
 ;;57664-0516-18
 ;;9002226.02101,"730,57664-0516-18 ",.02)
 ;;57664-0516-18
 ;;9002226.02101,"730,57664-0516-88 ",.01)
 ;;57664-0516-88
 ;;9002226.02101,"730,57664-0516-88 ",.02)
 ;;57664-0516-88
 ;;9002226.02101,"730,57866-1042-01 ",.01)
 ;;57866-1042-01
 ;;9002226.02101,"730,57866-1042-01 ",.02)
 ;;57866-1042-01
 ;;9002226.02101,"730,57866-3026-01 ",.01)
 ;;57866-3026-01
 ;;9002226.02101,"730,57866-3026-01 ",.02)
 ;;57866-3026-01
 ;;9002226.02101,"730,57866-3051-01 ",.01)
 ;;57866-3051-01
 ;;9002226.02101,"730,57866-3051-01 ",.02)
 ;;57866-3051-01
 ;;9002226.02101,"730,57866-3052-01 ",.01)
 ;;57866-3052-01
 ;;9002226.02101,"730,57866-3052-01 ",.02)
 ;;57866-3052-01
 ;;9002226.02101,"730,57866-3071-01 ",.01)
 ;;57866-3071-01
 ;;9002226.02101,"730,57866-3071-01 ",.02)
 ;;57866-3071-01
 ;;9002226.02101,"730,57866-3072-01 ",.01)
 ;;57866-3072-01
 ;;9002226.02101,"730,57866-3072-01 ",.02)
 ;;57866-3072-01
 ;;9002226.02101,"730,57866-3072-02 ",.01)
 ;;57866-3072-02
 ;;9002226.02101,"730,57866-3072-02 ",.02)
 ;;57866-3072-02
 ;;9002226.02101,"730,57866-3072-03 ",.01)
 ;;57866-3072-03
 ;;9002226.02101,"730,57866-3072-03 ",.02)
 ;;57866-3072-03
 ;;9002226.02101,"730,57866-3072-10 ",.01)
 ;;57866-3072-10
 ;;9002226.02101,"730,57866-3072-10 ",.02)
 ;;57866-3072-10
 ;;9002226.02101,"730,57866-3073-01 ",.01)
 ;;57866-3073-01
 ;;9002226.02101,"730,57866-3073-01 ",.02)
 ;;57866-3073-01
 ;;9002226.02101,"730,57866-3073-02 ",.01)
 ;;57866-3073-02
 ;;9002226.02101,"730,57866-3073-02 ",.02)
 ;;57866-3073-02
 ;;9002226.02101,"730,57866-3073-03 ",.01)
 ;;57866-3073-03
 ;;9002226.02101,"730,57866-3073-03 ",.02)
 ;;57866-3073-03
 ;;9002226.02101,"730,57866-3155-01 ",.01)
 ;;57866-3155-01
 ;;9002226.02101,"730,57866-3155-01 ",.02)
 ;;57866-3155-01
 ;;9002226.02101,"730,57866-3402-01 ",.01)
 ;;57866-3402-01
 ;;9002226.02101,"730,57866-3402-01 ",.02)
 ;;57866-3402-01
 ;;9002226.02101,"730,57866-3402-02 ",.01)
 ;;57866-3402-02
 ;;9002226.02101,"730,57866-3402-02 ",.02)
 ;;57866-3402-02
 ;;9002226.02101,"730,57866-3403-01 ",.01)
 ;;57866-3403-01
 ;;9002226.02101,"730,57866-3403-01 ",.02)
 ;;57866-3403-01
 ;;9002226.02101,"730,57866-3403-03 ",.01)
 ;;57866-3403-03
 ;;9002226.02101,"730,57866-3403-03 ",.02)
 ;;57866-3403-03
 ;;9002226.02101,"730,57866-3906-01 ",.01)
 ;;57866-3906-01
 ;;9002226.02101,"730,57866-3906-01 ",.02)
 ;;57866-3906-01
 ;;9002226.02101,"730,57866-3907-01 ",.01)
 ;;57866-3907-01
 ;;9002226.02101,"730,57866-3907-01 ",.02)
 ;;57866-3907-01
 ;;9002226.02101,"730,57866-3920-00 ",.01)
 ;;57866-3920-00
 ;;9002226.02101,"730,57866-3920-00 ",.02)
 ;;57866-3920-00
 ;;9002226.02101,"730,57866-3920-02 ",.01)
 ;;57866-3920-02
 ;;9002226.02101,"730,57866-3920-02 ",.02)
 ;;57866-3920-02
 ;;9002226.02101,"730,57866-3920-03 ",.01)
 ;;57866-3920-03
 ;;9002226.02101,"730,57866-3920-03 ",.02)
 ;;57866-3920-03
 ;;9002226.02101,"730,57866-3930-01 ",.01)
 ;;57866-3930-01
 ;;9002226.02101,"730,57866-3930-01 ",.02)
 ;;57866-3930-01
 ;;9002226.02101,"730,57866-3931-01 ",.01)
 ;;57866-3931-01
 ;;9002226.02101,"730,57866-3931-01 ",.02)
 ;;57866-3931-01
 ;;9002226.02101,"730,57866-3938-01 ",.01)
 ;;57866-3938-01
 ;;9002226.02101,"730,57866-3938-01 ",.02)
 ;;57866-3938-01
 ;;9002226.02101,"730,57866-3938-02 ",.01)
 ;;57866-3938-02
 ;;9002226.02101,"730,57866-3938-02 ",.02)
 ;;57866-3938-02
 ;;9002226.02101,"730,57866-3938-03 ",.01)
 ;;57866-3938-03
 ;;9002226.02101,"730,57866-3938-03 ",.02)
 ;;57866-3938-03
 ;;9002226.02101,"730,57866-3939-01 ",.01)
 ;;57866-3939-01
 ;;9002226.02101,"730,57866-3939-01 ",.02)
 ;;57866-3939-01
 ;;9002226.02101,"730,57866-3939-02 ",.01)
 ;;57866-3939-02
 ;;9002226.02101,"730,57866-3939-02 ",.02)
 ;;57866-3939-02
 ;;9002226.02101,"730,57866-3939-03 ",.01)
 ;;57866-3939-03
 ;;9002226.02101,"730,57866-3939-03 ",.02)
 ;;57866-3939-03
 ;;9002226.02101,"730,57866-4170-01 ",.01)
 ;;57866-4170-01
 ;;9002226.02101,"730,57866-4170-01 ",.02)
 ;;57866-4170-01
 ;;9002226.02101,"730,57866-4170-02 ",.01)
 ;;57866-4170-02
 ;;9002226.02101,"730,57866-4170-02 ",.02)
 ;;57866-4170-02
 ;;9002226.02101,"730,57866-4170-03 ",.01)
 ;;57866-4170-03
 ;;9002226.02101,"730,57866-4170-03 ",.02)
 ;;57866-4170-03
 ;;9002226.02101,"730,57866-4224-01 ",.01)
 ;;57866-4224-01
 ;;9002226.02101,"730,57866-4224-01 ",.02)
 ;;57866-4224-01
 ;;9002226.02101,"730,57866-4224-02 ",.01)
 ;;57866-4224-02
 ;;9002226.02101,"730,57866-4224-02 ",.02)
 ;;57866-4224-02
 ;;9002226.02101,"730,57866-4224-03 ",.01)
 ;;57866-4224-03
 ;;9002226.02101,"730,57866-4224-03 ",.02)
 ;;57866-4224-03
 ;;9002226.02101,"730,57866-4355-01 ",.01)
 ;;57866-4355-01
 ;;9002226.02101,"730,57866-4355-01 ",.02)
 ;;57866-4355-01
 ;;9002226.02101,"730,57866-4564-01 ",.01)
 ;;57866-4564-01
 ;;9002226.02101,"730,57866-4564-01 ",.02)
 ;;57866-4564-01
 ;;9002226.02101,"730,57866-4565-01 ",.01)
 ;;57866-4565-01
 ;;9002226.02101,"730,57866-4565-01 ",.02)
 ;;57866-4565-01
 ;;9002226.02101,"730,57866-4565-02 ",.01)
 ;;57866-4565-02
 ;;9002226.02101,"730,57866-4565-02 ",.02)
 ;;57866-4565-02
 ;;9002226.02101,"730,57866-4565-03 ",.01)
 ;;57866-4565-03
 ;;9002226.02101,"730,57866-4565-03 ",.02)
 ;;57866-4565-03
 ;;9002226.02101,"730,57866-4565-04 ",.01)
 ;;57866-4565-04
 ;;9002226.02101,"730,57866-4565-04 ",.02)
 ;;57866-4565-04
 ;;9002226.02101,"730,57866-4566-01 ",.01)
 ;;57866-4566-01
 ;;9002226.02101,"730,57866-4566-01 ",.02)
 ;;57866-4566-01
 ;;9002226.02101,"730,57866-4642-03 ",.01)
 ;;57866-4642-03
 ;;9002226.02101,"730,57866-4642-03 ",.02)
 ;;57866-4642-03
 ;;9002226.02101,"730,57866-4643-01 ",.01)
 ;;57866-4643-01
 ;;9002226.02101,"730,57866-4643-01 ",.02)
 ;;57866-4643-01
 ;;9002226.02101,"730,57866-4644-01 ",.01)
 ;;57866-4644-01
 ;;9002226.02101,"730,57866-4644-01 ",.02)
 ;;57866-4644-01
 ;;9002226.02101,"730,57866-4856-02 ",.01)
 ;;57866-4856-02
 ;;9002226.02101,"730,57866-4856-02 ",.02)
 ;;57866-4856-02
 ;;9002226.02101,"730,57866-4856-03 ",.01)
 ;;57866-4856-03
 ;;9002226.02101,"730,57866-4856-03 ",.02)
 ;;57866-4856-03
 ;;9002226.02101,"730,57866-4856-04 ",.01)
 ;;57866-4856-04
 ;;9002226.02101,"730,57866-4856-04 ",.02)
 ;;57866-4856-04
 ;;9002226.02101,"730,57866-4856-05 ",.01)
 ;;57866-4856-05
 ;;9002226.02101,"730,57866-4856-05 ",.02)
 ;;57866-4856-05
 ;;9002226.02101,"730,57866-4856-06 ",.01)
 ;;57866-4856-06
 ;;9002226.02101,"730,57866-4856-06 ",.02)
 ;;57866-4856-06
 ;;9002226.02101,"730,57866-4857-01 ",.01)
 ;;57866-4857-01
 ;;9002226.02101,"730,57866-4857-01 ",.02)
 ;;57866-4857-01
 ;;9002226.02101,"730,57866-4857-02 ",.01)
 ;;57866-4857-02
 ;;9002226.02101,"730,57866-4857-02 ",.02)
 ;;57866-4857-02
 ;;9002226.02101,"730,57866-4857-03 ",.01)
 ;;57866-4857-03
 ;;9002226.02101,"730,57866-4857-03 ",.02)
 ;;57866-4857-03
 ;;9002226.02101,"730,57866-4857-04 ",.01)
 ;;57866-4857-04
 ;;9002226.02101,"730,57866-4857-04 ",.02)
 ;;57866-4857-04
 ;;9002226.02101,"730,58016-0002-00 ",.01)
 ;;58016-0002-00
 ;;9002226.02101,"730,58016-0002-00 ",.02)
 ;;58016-0002-00
 ;;9002226.02101,"730,58016-0002-30 ",.01)
 ;;58016-0002-30
 ;;9002226.02101,"730,58016-0002-30 ",.02)
 ;;58016-0002-30
 ;;9002226.02101,"730,58016-0002-60 ",.01)
 ;;58016-0002-60
 ;;9002226.02101,"730,58016-0002-60 ",.02)
 ;;58016-0002-60
 ;;9002226.02101,"730,58016-0002-90 ",.01)
 ;;58016-0002-90
 ;;9002226.02101,"730,58016-0002-90 ",.02)
 ;;58016-0002-90
 ;;9002226.02101,"730,58016-0040-00 ",.01)
 ;;58016-0040-00
 ;;9002226.02101,"730,58016-0040-00 ",.02)
 ;;58016-0040-00
 ;;9002226.02101,"730,58016-0040-30 ",.01)
 ;;58016-0040-30
 ;;9002226.02101,"730,58016-0040-30 ",.02)
 ;;58016-0040-30
 ;;9002226.02101,"730,58016-0040-60 ",.01)
 ;;58016-0040-60
 ;;9002226.02101,"730,58016-0040-60 ",.02)
 ;;58016-0040-60
 ;;9002226.02101,"730,58016-0040-90 ",.01)
 ;;58016-0040-90
 ;;9002226.02101,"730,58016-0040-90 ",.02)
 ;;58016-0040-90
 ;;9002226.02101,"730,58016-0073-00 ",.01)
 ;;58016-0073-00
 ;;9002226.02101,"730,58016-0073-00 ",.02)
 ;;58016-0073-00
 ;;9002226.02101,"730,58016-0073-30 ",.01)
 ;;58016-0073-30
 ;;9002226.02101,"730,58016-0073-30 ",.02)
 ;;58016-0073-30
 ;;9002226.02101,"730,58016-0073-60 ",.01)
 ;;58016-0073-60
 ;;9002226.02101,"730,58016-0073-60 ",.02)
 ;;58016-0073-60
 ;;9002226.02101,"730,58016-0073-90 ",.01)
 ;;58016-0073-90
 ;;9002226.02101,"730,58016-0073-90 ",.02)
 ;;58016-0073-90
 ;;9002226.02101,"730,58016-0089-00 ",.01)
 ;;58016-0089-00