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

BGP2VV8.m

Go to the documentation of this file.
BGP2VV8 ;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,"736,58016-0212-50 ",.02)
 ;;58016-0212-50
 ;;9002226.02101,"736,58016-0212-56 ",.01)
 ;;58016-0212-56
 ;;9002226.02101,"736,58016-0212-56 ",.02)
 ;;58016-0212-56
 ;;9002226.02101,"736,58016-0212-60 ",.01)
 ;;58016-0212-60
 ;;9002226.02101,"736,58016-0212-60 ",.02)
 ;;58016-0212-60
 ;;9002226.02101,"736,58016-0212-73 ",.01)
 ;;58016-0212-73
 ;;9002226.02101,"736,58016-0212-73 ",.02)
 ;;58016-0212-73
 ;;9002226.02101,"736,58016-0212-80 ",.01)
 ;;58016-0212-80
 ;;9002226.02101,"736,58016-0212-80 ",.02)
 ;;58016-0212-80
 ;;9002226.02101,"736,58016-0212-84 ",.01)
 ;;58016-0212-84
 ;;9002226.02101,"736,58016-0212-84 ",.02)
 ;;58016-0212-84
 ;;9002226.02101,"736,58016-0212-89 ",.01)
 ;;58016-0212-89
 ;;9002226.02101,"736,58016-0212-89 ",.02)
 ;;58016-0212-89
 ;;9002226.02101,"736,58016-0212-90 ",.01)
 ;;58016-0212-90
 ;;9002226.02101,"736,58016-0212-90 ",.02)
 ;;58016-0212-90
 ;;9002226.02101,"736,58016-0212-92 ",.01)
 ;;58016-0212-92
 ;;9002226.02101,"736,58016-0212-92 ",.02)
 ;;58016-0212-92
 ;;9002226.02101,"736,58016-0212-99 ",.01)
 ;;58016-0212-99
 ;;9002226.02101,"736,58016-0212-99 ",.02)
 ;;58016-0212-99
 ;;9002226.02101,"736,58016-0214-00 ",.01)
 ;;58016-0214-00
 ;;9002226.02101,"736,58016-0214-00 ",.02)
 ;;58016-0214-00
 ;;9002226.02101,"736,58016-0214-02 ",.01)
 ;;58016-0214-02
 ;;9002226.02101,"736,58016-0214-02 ",.02)
 ;;58016-0214-02
 ;;9002226.02101,"736,58016-0214-30 ",.01)
 ;;58016-0214-30
 ;;9002226.02101,"736,58016-0214-30 ",.02)
 ;;58016-0214-30
 ;;9002226.02101,"736,58016-0214-60 ",.01)
 ;;58016-0214-60
 ;;9002226.02101,"736,58016-0214-60 ",.02)
 ;;58016-0214-60
 ;;9002226.02101,"736,58016-0214-90 ",.01)
 ;;58016-0214-90
 ;;9002226.02101,"736,58016-0214-90 ",.02)
 ;;58016-0214-90
 ;;9002226.02101,"736,58016-0215-00 ",.01)
 ;;58016-0215-00
 ;;9002226.02101,"736,58016-0215-00 ",.02)
 ;;58016-0215-00
 ;;9002226.02101,"736,58016-0215-02 ",.01)
 ;;58016-0215-02
 ;;9002226.02101,"736,58016-0215-02 ",.02)
 ;;58016-0215-02
 ;;9002226.02101,"736,58016-0215-12 ",.01)
 ;;58016-0215-12
 ;;9002226.02101,"736,58016-0215-12 ",.02)
 ;;58016-0215-12
 ;;9002226.02101,"736,58016-0215-15 ",.01)
 ;;58016-0215-15
 ;;9002226.02101,"736,58016-0215-15 ",.02)
 ;;58016-0215-15
 ;;9002226.02101,"736,58016-0215-20 ",.01)
 ;;58016-0215-20
 ;;9002226.02101,"736,58016-0215-20 ",.02)
 ;;58016-0215-20
 ;;9002226.02101,"736,58016-0215-28 ",.01)
 ;;58016-0215-28
 ;;9002226.02101,"736,58016-0215-28 ",.02)
 ;;58016-0215-28
 ;;9002226.02101,"736,58016-0215-30 ",.01)
 ;;58016-0215-30
 ;;9002226.02101,"736,58016-0215-30 ",.02)
 ;;58016-0215-30
 ;;9002226.02101,"736,58016-0215-56 ",.01)
 ;;58016-0215-56
 ;;9002226.02101,"736,58016-0215-56 ",.02)
 ;;58016-0215-56
 ;;9002226.02101,"736,58016-0215-60 ",.01)
 ;;58016-0215-60
 ;;9002226.02101,"736,58016-0215-60 ",.02)
 ;;58016-0215-60
 ;;9002226.02101,"736,58016-0279-00 ",.01)
 ;;58016-0279-00
 ;;9002226.02101,"736,58016-0279-00 ",.02)
 ;;58016-0279-00
 ;;9002226.02101,"736,58016-0279-02 ",.01)
 ;;58016-0279-02
 ;;9002226.02101,"736,58016-0279-02 ",.02)
 ;;58016-0279-02
 ;;9002226.02101,"736,58016-0279-10 ",.01)
 ;;58016-0279-10
 ;;9002226.02101,"736,58016-0279-10 ",.02)
 ;;58016-0279-10
 ;;9002226.02101,"736,58016-0279-12 ",.01)
 ;;58016-0279-12
 ;;9002226.02101,"736,58016-0279-12 ",.02)
 ;;58016-0279-12
 ;;9002226.02101,"736,58016-0279-15 ",.01)
 ;;58016-0279-15
 ;;9002226.02101,"736,58016-0279-15 ",.02)
 ;;58016-0279-15
 ;;9002226.02101,"736,58016-0279-20 ",.01)
 ;;58016-0279-20
 ;;9002226.02101,"736,58016-0279-20 ",.02)
 ;;58016-0279-20
 ;;9002226.02101,"736,58016-0279-25 ",.01)
 ;;58016-0279-25
 ;;9002226.02101,"736,58016-0279-25 ",.02)
 ;;58016-0279-25
 ;;9002226.02101,"736,58016-0279-30 ",.01)
 ;;58016-0279-30
 ;;9002226.02101,"736,58016-0279-30 ",.02)
 ;;58016-0279-30
 ;;9002226.02101,"736,58016-0279-40 ",.01)
 ;;58016-0279-40
 ;;9002226.02101,"736,58016-0279-40 ",.02)
 ;;58016-0279-40
 ;;9002226.02101,"736,58016-0279-50 ",.01)
 ;;58016-0279-50
 ;;9002226.02101,"736,58016-0279-50 ",.02)
 ;;58016-0279-50
 ;;9002226.02101,"736,58016-0279-60 ",.01)
 ;;58016-0279-60
 ;;9002226.02101,"736,58016-0279-60 ",.02)
 ;;58016-0279-60
 ;;9002226.02101,"736,58016-0279-70 ",.01)
 ;;58016-0279-70
 ;;9002226.02101,"736,58016-0279-70 ",.02)
 ;;58016-0279-70
 ;;9002226.02101,"736,58016-0279-80 ",.01)
 ;;58016-0279-80
 ;;9002226.02101,"736,58016-0279-80 ",.02)
 ;;58016-0279-80
 ;;9002226.02101,"736,58016-0279-90 ",.01)
 ;;58016-0279-90
 ;;9002226.02101,"736,58016-0279-90 ",.02)
 ;;58016-0279-90
 ;;9002226.02101,"736,58016-0392-00 ",.01)
 ;;58016-0392-00
 ;;9002226.02101,"736,58016-0392-00 ",.02)
 ;;58016-0392-00
 ;;9002226.02101,"736,58016-0392-10 ",.01)
 ;;58016-0392-10
 ;;9002226.02101,"736,58016-0392-10 ",.02)
 ;;58016-0392-10
 ;;9002226.02101,"736,58016-0392-12 ",.01)
 ;;58016-0392-12
 ;;9002226.02101,"736,58016-0392-12 ",.02)
 ;;58016-0392-12
 ;;9002226.02101,"736,58016-0392-20 ",.01)
 ;;58016-0392-20
 ;;9002226.02101,"736,58016-0392-20 ",.02)
 ;;58016-0392-20
 ;;9002226.02101,"736,58016-0392-30 ",.01)
 ;;58016-0392-30
 ;;9002226.02101,"736,58016-0392-30 ",.02)
 ;;58016-0392-30
 ;;9002226.02101,"736,58016-0392-40 ",.01)
 ;;58016-0392-40
 ;;9002226.02101,"736,58016-0392-40 ",.02)
 ;;58016-0392-40
 ;;9002226.02101,"736,58016-0392-60 ",.01)
 ;;58016-0392-60
 ;;9002226.02101,"736,58016-0392-60 ",.02)
 ;;58016-0392-60
 ;;9002226.02101,"736,58016-0461-00 ",.01)
 ;;58016-0461-00
 ;;9002226.02101,"736,58016-0461-00 ",.02)
 ;;58016-0461-00
 ;;9002226.02101,"736,58016-0461-20 ",.01)
 ;;58016-0461-20
 ;;9002226.02101,"736,58016-0461-20 ",.02)
 ;;58016-0461-20
 ;;9002226.02101,"736,58016-0461-30 ",.01)
 ;;58016-0461-30
 ;;9002226.02101,"736,58016-0461-30 ",.02)
 ;;58016-0461-30
 ;;9002226.02101,"736,58016-0461-60 ",.01)
 ;;58016-0461-60
 ;;9002226.02101,"736,58016-0461-60 ",.02)
 ;;58016-0461-60
 ;;9002226.02101,"736,58016-0461-90 ",.01)
 ;;58016-0461-90
 ;;9002226.02101,"736,58016-0461-90 ",.02)
 ;;58016-0461-90
 ;;9002226.02101,"736,58177-0027-04 ",.01)
 ;;58177-0027-04
 ;;9002226.02101,"736,58177-0027-04 ",.02)
 ;;58177-0027-04
 ;;9002226.02101,"736,58864-0428-20 ",.01)
 ;;58864-0428-20
 ;;9002226.02101,"736,58864-0428-20 ",.02)
 ;;58864-0428-20
 ;;9002226.02101,"736,60429-0534-01 ",.01)
 ;;60429-0534-01
 ;;9002226.02101,"736,60429-0534-01 ",.02)
 ;;60429-0534-01
 ;;9002226.02101,"736,60429-0535-01 ",.01)
 ;;60429-0535-01
 ;;9002226.02101,"736,60429-0535-01 ",.02)
 ;;60429-0535-01
 ;;9002226.02101,"736,60429-0570-01 ",.01)
 ;;60429-0570-01
 ;;9002226.02101,"736,60429-0570-01 ",.02)
 ;;60429-0570-01
 ;;9002226.02101,"736,60760-0890-15 ",.01)
 ;;60760-0890-15
 ;;9002226.02101,"736,60760-0890-15 ",.02)
 ;;60760-0890-15
 ;;9002226.02101,"736,60760-0890-30 ",.01)
 ;;60760-0890-30
 ;;9002226.02101,"736,60760-0890-30 ",.02)
 ;;60760-0890-30
 ;;9002226.02101,"736,60760-0890-60 ",.01)
 ;;60760-0890-60
 ;;9002226.02101,"736,60760-0890-60 ",.02)
 ;;60760-0890-60
 ;;9002226.02101,"736,61392-0446-10 ",.01)
 ;;61392-0446-10
 ;;9002226.02101,"736,61392-0446-10 ",.02)
 ;;61392-0446-10
 ;;9002226.02101,"736,61392-0446-15 ",.01)
 ;;61392-0446-15
 ;;9002226.02101,"736,61392-0446-15 ",.02)
 ;;61392-0446-15
 ;;9002226.02101,"736,61392-0446-45 ",.01)
 ;;61392-0446-45
 ;;9002226.02101,"736,61392-0446-45 ",.02)
 ;;61392-0446-45
 ;;9002226.02101,"736,61392-0446-56 ",.01)
 ;;61392-0446-56
 ;;9002226.02101,"736,61392-0446-56 ",.02)
 ;;61392-0446-56
 ;;9002226.02101,"736,61451-5015-07 ",.01)
 ;;61451-5015-07
 ;;9002226.02101,"736,61451-5015-07 ",.02)
 ;;61451-5015-07
 ;;9002226.02101,"736,61451-5016-07 ",.01)
 ;;61451-5016-07
 ;;9002226.02101,"736,61451-5016-07 ",.02)
 ;;61451-5016-07
 ;;9002226.02101,"736,61553-0170-41 ",.01)
 ;;61553-0170-41
 ;;9002226.02101,"736,61553-0170-41 ",.02)
 ;;61553-0170-41
 ;;9002226.02101,"736,61553-0172-48 ",.01)
 ;;61553-0172-48
 ;;9002226.02101,"736,61553-0172-48 ",.02)
 ;;61553-0172-48
 ;;9002226.02101,"736,61553-0173-48 ",.01)
 ;;61553-0173-48
 ;;9002226.02101,"736,61553-0173-48 ",.02)
 ;;61553-0173-48
 ;;9002226.02101,"736,61553-0611-75 ",.01)
 ;;61553-0611-75
 ;;9002226.02101,"736,61553-0611-75 ",.02)
 ;;61553-0611-75
 ;;9002226.02101,"736,61553-0676-44 ",.01)
 ;;61553-0676-44
 ;;9002226.02101,"736,61553-0676-44 ",.02)
 ;;61553-0676-44
 ;;9002226.02101,"736,61553-0841-48 ",.01)
 ;;61553-0841-48
 ;;9002226.02101,"736,61553-0841-48 ",.02)
 ;;61553-0841-48
 ;;9002226.02101,"736,63629-1344-01 ",.01)
 ;;63629-1344-01
 ;;9002226.02101,"736,63629-1344-01 ",.02)
 ;;63629-1344-01
 ;;9002226.02101,"736,63629-1344-02 ",.01)
 ;;63629-1344-02
 ;;9002226.02101,"736,63629-1344-02 ",.02)
 ;;63629-1344-02
 ;;9002226.02101,"736,63629-1344-03 ",.01)
 ;;63629-1344-03
 ;;9002226.02101,"736,63629-1344-03 ",.02)
 ;;63629-1344-03
 ;;9002226.02101,"736,63629-1344-04 ",.01)
 ;;63629-1344-04
 ;;9002226.02101,"736,63629-1344-04 ",.02)
 ;;63629-1344-04
 ;;9002226.02101,"736,63629-1344-05 ",.01)
 ;;63629-1344-05
 ;;9002226.02101,"736,63629-1344-05 ",.02)
 ;;63629-1344-05
 ;;9002226.02101,"736,63629-1344-06 ",.01)
 ;;63629-1344-06
 ;;9002226.02101,"736,63629-1344-06 ",.02)
 ;;63629-1344-06
 ;;9002226.02101,"736,63629-1344-07 ",.01)
 ;;63629-1344-07
 ;;9002226.02101,"736,63629-1344-07 ",.02)
 ;;63629-1344-07
 ;;9002226.02101,"736,63629-1344-08 ",.01)
 ;;63629-1344-08
 ;;9002226.02101,"736,63629-1344-08 ",.02)
 ;;63629-1344-08
 ;;9002226.02101,"736,63629-1344-09 ",.01)
 ;;63629-1344-09
 ;;9002226.02101,"736,63629-1344-09 ",.02)
 ;;63629-1344-09
 ;;9002226.02101,"736,63629-1359-01 ",.01)
 ;;63629-1359-01
 ;;9002226.02101,"736,63629-1359-01 ",.02)
 ;;63629-1359-01
 ;;9002226.02101,"736,63629-1359-02 ",.01)
 ;;63629-1359-02
 ;;9002226.02101,"736,63629-1359-02 ",.02)
 ;;63629-1359-02
 ;;9002226.02101,"736,63629-1359-03 ",.01)
 ;;63629-1359-03
 ;;9002226.02101,"736,63629-1359-03 ",.02)
 ;;63629-1359-03
 ;;9002226.02101,"736,63629-3206-01 ",.01)
 ;;63629-3206-01
 ;;9002226.02101,"736,63629-3206-01 ",.02)
 ;;63629-3206-01
 ;;9002226.02101,"736,63739-0215-01 ",.01)
 ;;63739-0215-01
 ;;9002226.02101,"736,63739-0215-01 ",.02)
 ;;63739-0215-01
 ;;9002226.02101,"736,63739-0215-03 ",.01)
 ;;63739-0215-03
 ;;9002226.02101,"736,63739-0215-03 ",.02)
 ;;63739-0215-03
 ;;9002226.02101,"736,63739-0215-10 ",.01)
 ;;63739-0215-10
 ;;9002226.02101,"736,63739-0215-10 ",.02)
 ;;63739-0215-10
 ;;9002226.02101,"736,63739-0215-15 ",.01)
 ;;63739-0215-15
 ;;9002226.02101,"736,63739-0215-15 ",.02)
 ;;63739-0215-15
 ;;9002226.02101,"736,63874-0201-01 ",.01)
 ;;63874-0201-01
 ;;9002226.02101,"736,63874-0201-01 ",.02)
 ;;63874-0201-01
 ;;9002226.02101,"736,63874-0201-03 ",.01)
 ;;63874-0201-03
 ;;9002226.02101,"736,63874-0201-03 ",.02)
 ;;63874-0201-03
 ;;9002226.02101,"736,63874-0201-04 ",.01)
 ;;63874-0201-04
 ;;9002226.02101,"736,63874-0201-04 ",.02)
 ;;63874-0201-04
 ;;9002226.02101,"736,63874-0201-05 ",.01)
 ;;63874-0201-05
 ;;9002226.02101,"736,63874-0201-05 ",.02)
 ;;63874-0201-05
 ;;9002226.02101,"736,63874-0201-08 ",.01)
 ;;63874-0201-08
 ;;9002226.02101,"736,63874-0201-08 ",.02)
 ;;63874-0201-08
 ;;9002226.02101,"736,63874-0201-10 ",.01)
 ;;63874-0201-10
 ;;9002226.02101,"736,63874-0201-10 ",.02)
 ;;63874-0201-10
 ;;9002226.02101,"736,63874-0201-12 ",.01)
 ;;63874-0201-12
 ;;9002226.02101,"736,63874-0201-12 ",.02)
 ;;63874-0201-12
 ;;9002226.02101,"736,63874-0201-14 ",.01)
 ;;63874-0201-14
 ;;9002226.02101,"736,63874-0201-14 ",.02)
 ;;63874-0201-14
 ;;9002226.02101,"736,63874-0201-15 ",.01)
 ;;63874-0201-15
 ;;9002226.02101,"736,63874-0201-15 ",.02)
 ;;63874-0201-15
 ;;9002226.02101,"736,63874-0201-16 ",.01)
 ;;63874-0201-16
 ;;9002226.02101,"736,63874-0201-16 ",.02)
 ;;63874-0201-16
 ;;9002226.02101,"736,63874-0201-18 ",.01)
 ;;63874-0201-18
 ;;9002226.02101,"736,63874-0201-18 ",.02)
 ;;63874-0201-18
 ;;9002226.02101,"736,63874-0201-20 ",.01)
 ;;63874-0201-20
 ;;9002226.02101,"736,63874-0201-20 ",.02)
 ;;63874-0201-20
 ;;9002226.02101,"736,63874-0201-21 ",.01)
 ;;63874-0201-21
 ;;9002226.02101,"736,63874-0201-21 ",.02)
 ;;63874-0201-21
 ;;9002226.02101,"736,63874-0201-24 ",.01)
 ;;63874-0201-24
 ;;9002226.02101,"736,63874-0201-24 ",.02)
 ;;63874-0201-24
 ;;9002226.02101,"736,63874-0201-25 ",.01)
 ;;63874-0201-25
 ;;9002226.02101,"736,63874-0201-25 ",.02)
 ;;63874-0201-25
 ;;9002226.02101,"736,63874-0201-28 ",.01)
 ;;63874-0201-28
 ;;9002226.02101,"736,63874-0201-28 ",.02)
 ;;63874-0201-28
 ;;9002226.02101,"736,63874-0201-30 ",.01)
 ;;63874-0201-30
 ;;9002226.02101,"736,63874-0201-30 ",.02)
 ;;63874-0201-30
 ;;9002226.02101,"736,63874-0201-35 ",.01)
 ;;63874-0201-35
 ;;9002226.02101,"736,63874-0201-35 ",.02)
 ;;63874-0201-35
 ;;9002226.02101,"736,63874-0201-36 ",.01)
 ;;63874-0201-36
 ;;9002226.02101,"736,63874-0201-36 ",.02)
 ;;63874-0201-36
 ;;9002226.02101,"736,63874-0201-40 ",.01)
 ;;63874-0201-40
 ;;9002226.02101,"736,63874-0201-40 ",.02)
 ;;63874-0201-40
 ;;9002226.02101,"736,63874-0201-42 ",.01)
 ;;63874-0201-42
 ;;9002226.02101,"736,63874-0201-42 ",.02)
 ;;63874-0201-42
 ;;9002226.02101,"736,63874-0201-45 ",.01)
 ;;63874-0201-45
 ;;9002226.02101,"736,63874-0201-45 ",.02)
 ;;63874-0201-45
 ;;9002226.02101,"736,63874-0201-48 ",.01)
 ;;63874-0201-48
 ;;9002226.02101,"736,63874-0201-48 ",.02)
 ;;63874-0201-48
 ;;9002226.02101,"736,63874-0201-50 ",.01)
 ;;63874-0201-50
 ;;9002226.02101,"736,63874-0201-50 ",.02)
 ;;63874-0201-50
 ;;9002226.02101,"736,63874-0201-56 ",.01)
 ;;63874-0201-56