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

BGP2VS3.m

Go to the documentation of this file.
BGP2VS3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"722,54868-0451-00 ",.01)
 ;;54868-0451-00
 ;;9002226.02101,"722,54868-0451-00 ",.02)
 ;;54868-0451-00
 ;;9002226.02101,"722,54868-0451-01 ",.01)
 ;;54868-0451-01
 ;;9002226.02101,"722,54868-0451-01 ",.02)
 ;;54868-0451-01
 ;;9002226.02101,"722,54868-0451-02 ",.01)
 ;;54868-0451-02
 ;;9002226.02101,"722,54868-0451-02 ",.02)
 ;;54868-0451-02
 ;;9002226.02101,"722,54868-0451-03 ",.01)
 ;;54868-0451-03
 ;;9002226.02101,"722,54868-0451-03 ",.02)
 ;;54868-0451-03
 ;;9002226.02101,"722,54868-0451-06 ",.01)
 ;;54868-0451-06
 ;;9002226.02101,"722,54868-0451-06 ",.02)
 ;;54868-0451-06
 ;;9002226.02101,"722,54868-0451-07 ",.01)
 ;;54868-0451-07
 ;;9002226.02101,"722,54868-0451-07 ",.02)
 ;;54868-0451-07
 ;;9002226.02101,"722,54868-0453-00 ",.01)
 ;;54868-0453-00
 ;;9002226.02101,"722,54868-0453-00 ",.02)
 ;;54868-0453-00
 ;;9002226.02101,"722,54868-0453-01 ",.01)
 ;;54868-0453-01
 ;;9002226.02101,"722,54868-0453-01 ",.02)
 ;;54868-0453-01
 ;;9002226.02101,"722,54868-0453-02 ",.01)
 ;;54868-0453-02
 ;;9002226.02101,"722,54868-0453-02 ",.02)
 ;;54868-0453-02
 ;;9002226.02101,"722,54868-0453-04 ",.01)
 ;;54868-0453-04
 ;;9002226.02101,"722,54868-0453-04 ",.02)
 ;;54868-0453-04
 ;;9002226.02101,"722,54868-0453-05 ",.01)
 ;;54868-0453-05
 ;;9002226.02101,"722,54868-0453-05 ",.02)
 ;;54868-0453-05
 ;;9002226.02101,"722,54868-0453-06 ",.01)
 ;;54868-0453-06
 ;;9002226.02101,"722,54868-0453-06 ",.02)
 ;;54868-0453-06
 ;;9002226.02101,"722,54868-1261-00 ",.01)
 ;;54868-1261-00
 ;;9002226.02101,"722,54868-1261-00 ",.02)
 ;;54868-1261-00
 ;;9002226.02101,"722,54868-1262-00 ",.01)
 ;;54868-1262-00
 ;;9002226.02101,"722,54868-1262-00 ",.02)
 ;;54868-1262-00
 ;;9002226.02101,"722,54868-1262-01 ",.01)
 ;;54868-1262-01
 ;;9002226.02101,"722,54868-1262-01 ",.02)
 ;;54868-1262-01
 ;;9002226.02101,"722,54868-1262-02 ",.01)
 ;;54868-1262-02
 ;;9002226.02101,"722,54868-1262-02 ",.02)
 ;;54868-1262-02
 ;;9002226.02101,"722,54868-1432-00 ",.01)
 ;;54868-1432-00
 ;;9002226.02101,"722,54868-1432-00 ",.02)
 ;;54868-1432-00
 ;;9002226.02101,"722,54868-1432-01 ",.01)
 ;;54868-1432-01
 ;;9002226.02101,"722,54868-1432-01 ",.02)
 ;;54868-1432-01
 ;;9002226.02101,"722,54868-2702-00 ",.01)
 ;;54868-2702-00
 ;;9002226.02101,"722,54868-2702-00 ",.02)
 ;;54868-2702-00
 ;;9002226.02101,"722,54868-2702-01 ",.01)
 ;;54868-2702-01
 ;;9002226.02101,"722,54868-2702-01 ",.02)
 ;;54868-2702-01
 ;;9002226.02101,"722,54868-2702-02 ",.01)
 ;;54868-2702-02
 ;;9002226.02101,"722,54868-2702-02 ",.02)
 ;;54868-2702-02
 ;;9002226.02101,"722,54868-2702-03 ",.01)
 ;;54868-2702-03
 ;;9002226.02101,"722,54868-2702-03 ",.02)
 ;;54868-2702-03
 ;;9002226.02101,"722,54868-2702-04 ",.01)
 ;;54868-2702-04
 ;;9002226.02101,"722,54868-2702-04 ",.02)
 ;;54868-2702-04
 ;;9002226.02101,"722,54868-3114-00 ",.01)
 ;;54868-3114-00
 ;;9002226.02101,"722,54868-3114-00 ",.02)
 ;;54868-3114-00
 ;;9002226.02101,"722,54868-3114-01 ",.01)
 ;;54868-3114-01
 ;;9002226.02101,"722,54868-3114-01 ",.02)
 ;;54868-3114-01
 ;;9002226.02101,"722,54868-3564-00 ",.01)
 ;;54868-3564-00
 ;;9002226.02101,"722,54868-3564-00 ",.02)
 ;;54868-3564-00
 ;;9002226.02101,"722,54868-3564-01 ",.01)
 ;;54868-3564-01
 ;;9002226.02101,"722,54868-3564-01 ",.02)
 ;;54868-3564-01
 ;;9002226.02101,"722,54868-3564-02 ",.01)
 ;;54868-3564-02
 ;;9002226.02101,"722,54868-3564-02 ",.02)
 ;;54868-3564-02
 ;;9002226.02101,"722,54868-3565-00 ",.01)
 ;;54868-3565-00
 ;;9002226.02101,"722,54868-3565-00 ",.02)
 ;;54868-3565-00
 ;;9002226.02101,"722,54868-3565-01 ",.01)
 ;;54868-3565-01
 ;;9002226.02101,"722,54868-3565-01 ",.02)
 ;;54868-3565-01
 ;;9002226.02101,"722,54868-3565-02 ",.01)
 ;;54868-3565-02
 ;;9002226.02101,"722,54868-3565-02 ",.02)
 ;;54868-3565-02
 ;;9002226.02101,"722,54868-3653-00 ",.01)
 ;;54868-3653-00
 ;;9002226.02101,"722,54868-3653-00 ",.02)
 ;;54868-3653-00
 ;;9002226.02101,"722,54868-3799-00 ",.01)
 ;;54868-3799-00
 ;;9002226.02101,"722,54868-3799-00 ",.02)
 ;;54868-3799-00
 ;;9002226.02101,"722,54868-3800-00 ",.01)
 ;;54868-3800-00
 ;;9002226.02101,"722,54868-3800-00 ",.02)
 ;;54868-3800-00
 ;;9002226.02101,"722,54868-4149-00 ",.01)
 ;;54868-4149-00
 ;;9002226.02101,"722,54868-4149-00 ",.02)
 ;;54868-4149-00
 ;;9002226.02101,"722,54868-4149-01 ",.01)
 ;;54868-4149-01
 ;;9002226.02101,"722,54868-4149-01 ",.02)
 ;;54868-4149-01
 ;;9002226.02101,"722,54868-4761-01 ",.01)
 ;;54868-4761-01
 ;;9002226.02101,"722,54868-4761-01 ",.02)
 ;;54868-4761-01
 ;;9002226.02101,"722,54868-4761-02 ",.01)
 ;;54868-4761-02
 ;;9002226.02101,"722,54868-4761-02 ",.02)
 ;;54868-4761-02
 ;;9002226.02101,"722,54868-4771-00 ",.01)
 ;;54868-4771-00
 ;;9002226.02101,"722,54868-4771-00 ",.02)
 ;;54868-4771-00
 ;;9002226.02101,"722,54868-4771-01 ",.01)
 ;;54868-4771-01
 ;;9002226.02101,"722,54868-4771-01 ",.02)
 ;;54868-4771-01
 ;;9002226.02101,"722,54868-4771-02 ",.01)
 ;;54868-4771-02
 ;;9002226.02101,"722,54868-4771-02 ",.02)
 ;;54868-4771-02
 ;;9002226.02101,"722,54868-4865-00 ",.01)
 ;;54868-4865-00
 ;;9002226.02101,"722,54868-4865-00 ",.02)
 ;;54868-4865-00
 ;;9002226.02101,"722,54868-4865-01 ",.01)
 ;;54868-4865-01
 ;;9002226.02101,"722,54868-4865-01 ",.02)
 ;;54868-4865-01
 ;;9002226.02101,"722,54868-4866-00 ",.01)
 ;;54868-4866-00
 ;;9002226.02101,"722,54868-4866-00 ",.02)
 ;;54868-4866-00
 ;;9002226.02101,"722,54868-4879-00 ",.01)
 ;;54868-4879-00
 ;;9002226.02101,"722,54868-4879-00 ",.02)
 ;;54868-4879-00
 ;;9002226.02101,"722,54868-4879-01 ",.01)
 ;;54868-4879-01
 ;;9002226.02101,"722,54868-4879-01 ",.02)
 ;;54868-4879-01
 ;;9002226.02101,"722,54868-4879-02 ",.01)
 ;;54868-4879-02
 ;;9002226.02101,"722,54868-4879-02 ",.02)
 ;;54868-4879-02
 ;;9002226.02101,"722,54868-5047-00 ",.01)
 ;;54868-5047-00
 ;;9002226.02101,"722,54868-5047-00 ",.02)
 ;;54868-5047-00
 ;;9002226.02101,"722,54868-5415-00 ",.01)
 ;;54868-5415-00
 ;;9002226.02101,"722,54868-5415-00 ",.02)
 ;;54868-5415-00
 ;;9002226.02101,"722,54868-5415-01 ",.01)
 ;;54868-5415-01
 ;;9002226.02101,"722,54868-5415-01 ",.02)
 ;;54868-5415-01
 ;;9002226.02101,"722,54868-5540-00 ",.01)
 ;;54868-5540-00
 ;;9002226.02101,"722,54868-5540-00 ",.02)
 ;;54868-5540-00
 ;;9002226.02101,"722,54868-5934-00 ",.01)
 ;;54868-5934-00
 ;;9002226.02101,"722,54868-5934-00 ",.02)
 ;;54868-5934-00
 ;;9002226.02101,"722,54868-5934-01 ",.01)
 ;;54868-5934-01
 ;;9002226.02101,"722,54868-5934-01 ",.02)
 ;;54868-5934-01
 ;;9002226.02101,"722,55045-3480-01 ",.01)
 ;;55045-3480-01
 ;;9002226.02101,"722,55045-3480-01 ",.02)
 ;;55045-3480-01
 ;;9002226.02101,"722,55289-0047-25 ",.01)
 ;;55289-0047-25
 ;;9002226.02101,"722,55289-0047-25 ",.02)
 ;;55289-0047-25
 ;;9002226.02101,"722,55289-0047-30 ",.01)
 ;;55289-0047-30
 ;;9002226.02101,"722,55289-0047-30 ",.02)
 ;;55289-0047-30
 ;;9002226.02101,"722,55289-0047-42 ",.01)
 ;;55289-0047-42
 ;;9002226.02101,"722,55289-0047-42 ",.02)
 ;;55289-0047-42
 ;;9002226.02101,"722,55289-0047-90 ",.01)
 ;;55289-0047-90
 ;;9002226.02101,"722,55289-0047-90 ",.02)
 ;;55289-0047-90
 ;;9002226.02101,"722,55289-0123-30 ",.01)
 ;;55289-0123-30
 ;;9002226.02101,"722,55289-0123-30 ",.02)
 ;;55289-0123-30
 ;;9002226.02101,"722,55289-0943-07 ",.01)
 ;;55289-0943-07
 ;;9002226.02101,"722,55289-0943-07 ",.02)
 ;;55289-0943-07
 ;;9002226.02101,"722,55289-0943-25 ",.01)
 ;;55289-0943-25
 ;;9002226.02101,"722,55289-0943-25 ",.02)
 ;;55289-0943-25
 ;;9002226.02101,"722,55289-0943-28 ",.01)
 ;;55289-0943-28
 ;;9002226.02101,"722,55289-0943-28 ",.02)
 ;;55289-0943-28
 ;;9002226.02101,"722,55289-0943-30 ",.01)
 ;;55289-0943-30
 ;;9002226.02101,"722,55289-0943-30 ",.02)
 ;;55289-0943-30
 ;;9002226.02101,"722,55887-0324-30 ",.01)
 ;;55887-0324-30
 ;;9002226.02101,"722,55887-0324-30 ",.02)
 ;;55887-0324-30
 ;;9002226.02101,"722,55887-0702-30 ",.01)
 ;;55887-0702-30
 ;;9002226.02101,"722,55887-0702-30 ",.02)
 ;;55887-0702-30
 ;;9002226.02101,"722,58016-0744-00 ",.01)
 ;;58016-0744-00
 ;;9002226.02101,"722,58016-0744-00 ",.02)
 ;;58016-0744-00
 ;;9002226.02101,"722,58016-0744-10 ",.01)
 ;;58016-0744-10
 ;;9002226.02101,"722,58016-0744-10 ",.02)
 ;;58016-0744-10
 ;;9002226.02101,"722,58016-0744-12 ",.01)
 ;;58016-0744-12
 ;;9002226.02101,"722,58016-0744-12 ",.02)
 ;;58016-0744-12
 ;;9002226.02101,"722,58016-0744-14 ",.01)
 ;;58016-0744-14
 ;;9002226.02101,"722,58016-0744-14 ",.02)
 ;;58016-0744-14
 ;;9002226.02101,"722,58016-0744-15 ",.01)
 ;;58016-0744-15
 ;;9002226.02101,"722,58016-0744-15 ",.02)
 ;;58016-0744-15
 ;;9002226.02101,"722,58016-0744-20 ",.01)
 ;;58016-0744-20
 ;;9002226.02101,"722,58016-0744-20 ",.02)
 ;;58016-0744-20
 ;;9002226.02101,"722,58016-0744-30 ",.01)
 ;;58016-0744-30
 ;;9002226.02101,"722,58016-0744-30 ",.02)
 ;;58016-0744-30
 ;;9002226.02101,"722,58016-0948-00 ",.01)
 ;;58016-0948-00
 ;;9002226.02101,"722,58016-0948-00 ",.02)
 ;;58016-0948-00
 ;;9002226.02101,"722,58016-0948-10 ",.01)
 ;;58016-0948-10
 ;;9002226.02101,"722,58016-0948-10 ",.02)
 ;;58016-0948-10
 ;;9002226.02101,"722,58016-0948-12 ",.01)
 ;;58016-0948-12
 ;;9002226.02101,"722,58016-0948-12 ",.02)
 ;;58016-0948-12
 ;;9002226.02101,"722,58016-0948-14 ",.01)
 ;;58016-0948-14
 ;;9002226.02101,"722,58016-0948-14 ",.02)
 ;;58016-0948-14
 ;;9002226.02101,"722,58016-0948-15 ",.01)
 ;;58016-0948-15
 ;;9002226.02101,"722,58016-0948-15 ",.02)
 ;;58016-0948-15
 ;;9002226.02101,"722,58016-0948-20 ",.01)
 ;;58016-0948-20
 ;;9002226.02101,"722,58016-0948-20 ",.02)
 ;;58016-0948-20
 ;;9002226.02101,"722,58016-0948-30 ",.01)
 ;;58016-0948-30
 ;;9002226.02101,"722,58016-0948-30 ",.02)
 ;;58016-0948-30
 ;;9002226.02101,"722,58016-0948-50 ",.01)
 ;;58016-0948-50
 ;;9002226.02101,"722,58016-0948-50 ",.02)
 ;;58016-0948-50
 ;;9002226.02101,"722,58016-4074-01 ",.01)
 ;;58016-4074-01
 ;;9002226.02101,"722,58016-4074-01 ",.02)
 ;;58016-4074-01
 ;;9002226.02101,"722,58864-0422-28 ",.01)
 ;;58864-0422-28
 ;;9002226.02101,"722,58864-0422-28 ",.02)
 ;;58864-0422-28
 ;;9002226.02101,"722,58864-0422-30 ",.01)
 ;;58864-0422-30
 ;;9002226.02101,"722,58864-0422-30 ",.02)
 ;;58864-0422-30
 ;;9002226.02101,"722,58864-0951-30 ",.01)
 ;;58864-0951-30
 ;;9002226.02101,"722,58864-0951-30 ",.02)
 ;;58864-0951-30
 ;;9002226.02101,"722,61570-0072-01 ",.01)
 ;;61570-0072-01
 ;;9002226.02101,"722,61570-0072-01 ",.02)
 ;;61570-0072-01
 ;;9002226.02101,"722,61570-0073-01 ",.01)
 ;;61570-0073-01
 ;;9002226.02101,"722,61570-0073-01 ",.02)
 ;;61570-0073-01
 ;;9002226.02101,"722,61570-0074-01 ",.01)
 ;;61570-0074-01
 ;;9002226.02101,"722,61570-0074-01 ",.02)
 ;;61570-0074-01
 ;;9002226.02101,"722,61570-0075-50 ",.01)
 ;;61570-0075-50
 ;;9002226.02101,"722,61570-0075-50 ",.02)
 ;;61570-0075-50
 ;;9002226.02101,"722,62559-1490-00 ",.01)
 ;;62559-1490-00
 ;;9002226.02101,"722,62559-1490-00 ",.02)
 ;;62559-1490-00
 ;;9002226.02101,"722,62559-1507-00 ",.01)
 ;;62559-1507-00
 ;;9002226.02101,"722,62559-1507-00 ",.02)
 ;;62559-1507-00
 ;;9002226.02101,"722,63874-0158-01 ",.01)
 ;;63874-0158-01
 ;;9002226.02101,"722,63874-0158-01 ",.02)
 ;;63874-0158-01
 ;;9002226.02101,"722,63874-0158-10 ",.01)
 ;;63874-0158-10
 ;;9002226.02101,"722,63874-0158-10 ",.02)
 ;;63874-0158-10
 ;;9002226.02101,"722,63874-0158-14 ",.01)
 ;;63874-0158-14
 ;;9002226.02101,"722,63874-0158-14 ",.02)
 ;;63874-0158-14
 ;;9002226.02101,"722,63874-0158-15 ",.01)
 ;;63874-0158-15
 ;;9002226.02101,"722,63874-0158-15 ",.02)
 ;;63874-0158-15
 ;;9002226.02101,"722,63874-0158-20 ",.01)
 ;;63874-0158-20
 ;;9002226.02101,"722,63874-0158-20 ",.02)
 ;;63874-0158-20
 ;;9002226.02101,"722,63874-0158-30 ",.01)
 ;;63874-0158-30
 ;;9002226.02101,"722,63874-0158-30 ",.02)
 ;;63874-0158-30
 ;;9002226.02101,"722,65162-0877-10 ",.01)
 ;;65162-0877-10
 ;;9002226.02101,"722,65162-0877-10 ",.02)
 ;;65162-0877-10
 ;;9002226.02101,"722,65162-0878-10 ",.01)
 ;;65162-0878-10
 ;;9002226.02101,"722,65162-0878-10 ",.02)
 ;;65162-0878-10
 ;;9002226.02101,"722,66105-0137-10 ",.01)
 ;;66105-0137-10
 ;;9002226.02101,"722,66105-0137-10 ",.02)
 ;;66105-0137-10
 ;;9002226.02101,"722,66105-0138-10 ",.01)
 ;;66105-0138-10
 ;;9002226.02101,"722,66105-0138-10 ",.02)
 ;;66105-0138-10
 ;;9002226.02101,"722,66267-0174-30 ",.01)
 ;;66267-0174-30
 ;;9002226.02101,"722,66267-0174-30 ",.02)
 ;;66267-0174-30
 ;;9002226.02101,"722,66336-0599-30 ",.01)
 ;;66336-0599-30
 ;;9002226.02101,"722,66336-0599-30 ",.02)
 ;;66336-0599-30
 ;;9002226.02101,"722,66336-0977-30 ",.01)
 ;;66336-0977-30
 ;;9002226.02101,"722,66336-0977-30 ",.02)
 ;;66336-0977-30
 ;;9002226.02101,"722,66993-0920-02 ",.01)
 ;;66993-0920-02
 ;;9002226.02101,"722,66993-0920-02 ",.02)
 ;;66993-0920-02
 ;;9002226.02101,"722,66993-0921-02 ",.01)
 ;;66993-0921-02
 ;;9002226.02101,"722,66993-0921-02 ",.02)
 ;;66993-0921-02
 ;;9002226.02101,"722,67801-0326-03 ",.01)
 ;;67801-0326-03
 ;;9002226.02101,"722,67801-0326-03 ",.02)
 ;;67801-0326-03
 ;;9002226.02101,"722,67801-0327-03 ",.01)
 ;;67801-0327-03
 ;;9002226.02101,"722,67801-0327-03 ",.02)
 ;;67801-0327-03
 ;;9002226.02101,"722,68115-0294-30 ",.01)
 ;;68115-0294-30
 ;;9002226.02101,"722,68115-0294-30 ",.02)
 ;;68115-0294-30
 ;;9002226.02101,"722,68462-0173-01 ",.01)
 ;;68462-0173-01
 ;;9002226.02101,"722,68462-0173-01 ",.02)
 ;;68462-0173-01
 ;;9002226.02101,"722,68462-0174-01 ",.01)
 ;;68462-0174-01
 ;;9002226.02101,"722,68462-0174-01 ",.02)
 ;;68462-0174-01