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

BGP05X11.m

Go to the documentation of this file.
BGP05X11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"686,55887-0225-28 ",.02)
 ;;55887-0225-28
 ;;9002226.02101,"686,55887-0225-30 ",.01)
 ;;55887-0225-30
 ;;9002226.02101,"686,55887-0225-30 ",.02)
 ;;55887-0225-30
 ;;9002226.02101,"686,55887-0225-42 ",.01)
 ;;55887-0225-42
 ;;9002226.02101,"686,55887-0225-42 ",.02)
 ;;55887-0225-42
 ;;9002226.02101,"686,55887-0225-60 ",.01)
 ;;55887-0225-60
 ;;9002226.02101,"686,55887-0225-60 ",.02)
 ;;55887-0225-60
 ;;9002226.02101,"686,55887-0225-90 ",.01)
 ;;55887-0225-90
 ;;9002226.02101,"686,55887-0225-90 ",.02)
 ;;55887-0225-90
 ;;9002226.02101,"686,55887-0654-07 ",.01)
 ;;55887-0654-07
 ;;9002226.02101,"686,55887-0654-07 ",.02)
 ;;55887-0654-07
 ;;9002226.02101,"686,55887-0654-14 ",.01)
 ;;55887-0654-14
 ;;9002226.02101,"686,55887-0654-14 ",.02)
 ;;55887-0654-14
 ;;9002226.02101,"686,55887-0654-15 ",.01)
 ;;55887-0654-15
 ;;9002226.02101,"686,55887-0654-15 ",.02)
 ;;55887-0654-15
 ;;9002226.02101,"686,55887-0654-30 ",.01)
 ;;55887-0654-30
 ;;9002226.02101,"686,55887-0654-30 ",.02)
 ;;55887-0654-30
 ;;9002226.02101,"686,55887-0654-60 ",.01)
 ;;55887-0654-60
 ;;9002226.02101,"686,55887-0654-60 ",.02)
 ;;55887-0654-60
 ;;9002226.02101,"686,55887-0669-15 ",.01)
 ;;55887-0669-15
 ;;9002226.02101,"686,55887-0669-15 ",.02)
 ;;55887-0669-15
 ;;9002226.02101,"686,55887-0669-21 ",.01)
 ;;55887-0669-21
 ;;9002226.02101,"686,55887-0669-21 ",.02)
 ;;55887-0669-21
 ;;9002226.02101,"686,55887-0669-30 ",.01)
 ;;55887-0669-30
 ;;9002226.02101,"686,55887-0669-30 ",.02)
 ;;55887-0669-30
 ;;9002226.02101,"686,55887-0669-60 ",.01)
 ;;55887-0669-60
 ;;9002226.02101,"686,55887-0669-60 ",.02)
 ;;55887-0669-60
 ;;9002226.02101,"686,55887-0669-90 ",.01)
 ;;55887-0669-90
 ;;9002226.02101,"686,55887-0669-90 ",.02)
 ;;55887-0669-90
 ;;9002226.02101,"686,55887-0712-14 ",.01)
 ;;55887-0712-14
 ;;9002226.02101,"686,55887-0712-14 ",.02)
 ;;55887-0712-14
 ;;9002226.02101,"686,55887-0712-30 ",.01)
 ;;55887-0712-30
 ;;9002226.02101,"686,55887-0712-30 ",.02)
 ;;55887-0712-30
 ;;9002226.02101,"686,55887-0712-60 ",.01)
 ;;55887-0712-60
 ;;9002226.02101,"686,55887-0712-60 ",.02)
 ;;55887-0712-60
 ;;9002226.02101,"686,55887-0762-07 ",.01)
 ;;55887-0762-07
 ;;9002226.02101,"686,55887-0762-07 ",.02)
 ;;55887-0762-07
 ;;9002226.02101,"686,55887-0762-14 ",.01)
 ;;55887-0762-14
 ;;9002226.02101,"686,55887-0762-14 ",.02)
 ;;55887-0762-14
 ;;9002226.02101,"686,55887-0762-15 ",.01)
 ;;55887-0762-15
 ;;9002226.02101,"686,55887-0762-15 ",.02)
 ;;55887-0762-15
 ;;9002226.02101,"686,55887-0762-30 ",.01)
 ;;55887-0762-30
 ;;9002226.02101,"686,55887-0762-30 ",.02)
 ;;55887-0762-30
 ;;9002226.02101,"686,55887-0762-60 ",.01)
 ;;55887-0762-60
 ;;9002226.02101,"686,55887-0762-60 ",.02)
 ;;55887-0762-60
 ;;9002226.02101,"686,55887-0840-01 ",.01)
 ;;55887-0840-01
 ;;9002226.02101,"686,55887-0840-01 ",.02)
 ;;55887-0840-01
 ;;9002226.02101,"686,55887-0840-07 ",.01)
 ;;55887-0840-07
 ;;9002226.02101,"686,55887-0840-07 ",.02)
 ;;55887-0840-07
 ;;9002226.02101,"686,55887-0840-14 ",.01)
 ;;55887-0840-14
 ;;9002226.02101,"686,55887-0840-14 ",.02)
 ;;55887-0840-14
 ;;9002226.02101,"686,55887-0840-15 ",.01)
 ;;55887-0840-15
 ;;9002226.02101,"686,55887-0840-15 ",.02)
 ;;55887-0840-15
 ;;9002226.02101,"686,55887-0840-20 ",.01)
 ;;55887-0840-20
 ;;9002226.02101,"686,55887-0840-20 ",.02)
 ;;55887-0840-20
 ;;9002226.02101,"686,55887-0840-23 ",.01)
 ;;55887-0840-23
 ;;9002226.02101,"686,55887-0840-23 ",.02)
 ;;55887-0840-23
 ;;9002226.02101,"686,55887-0840-30 ",.01)
 ;;55887-0840-30
 ;;9002226.02101,"686,55887-0840-30 ",.02)
 ;;55887-0840-30
 ;;9002226.02101,"686,55887-0840-45 ",.01)
 ;;55887-0840-45
 ;;9002226.02101,"686,55887-0840-45 ",.02)
 ;;55887-0840-45
 ;;9002226.02101,"686,55887-0840-60 ",.01)
 ;;55887-0840-60
 ;;9002226.02101,"686,55887-0840-60 ",.02)
 ;;55887-0840-60
 ;;9002226.02101,"686,55887-0840-90 ",.01)
 ;;55887-0840-90
 ;;9002226.02101,"686,55887-0840-90 ",.02)
 ;;55887-0840-90
 ;;9002226.02101,"686,55887-0891-01 ",.01)
 ;;55887-0891-01
 ;;9002226.02101,"686,55887-0891-01 ",.02)
 ;;55887-0891-01
 ;;9002226.02101,"686,55887-0891-14 ",.01)
 ;;55887-0891-14
 ;;9002226.02101,"686,55887-0891-14 ",.02)
 ;;55887-0891-14
 ;;9002226.02101,"686,55887-0891-15 ",.01)
 ;;55887-0891-15
 ;;9002226.02101,"686,55887-0891-15 ",.02)
 ;;55887-0891-15
 ;;9002226.02101,"686,55887-0891-30 ",.01)
 ;;55887-0891-30
 ;;9002226.02101,"686,55887-0891-30 ",.02)
 ;;55887-0891-30
 ;;9002226.02101,"686,55887-0891-60 ",.01)
 ;;55887-0891-60
 ;;9002226.02101,"686,55887-0891-60 ",.02)
 ;;55887-0891-60
 ;;9002226.02101,"686,57664-0504-18 ",.01)
 ;;57664-0504-18
 ;;9002226.02101,"686,57664-0504-18 ",.02)
 ;;57664-0504-18
 ;;9002226.02101,"686,57664-0504-88 ",.01)
 ;;57664-0504-88
 ;;9002226.02101,"686,57664-0504-88 ",.02)
 ;;57664-0504-88
 ;;9002226.02101,"686,57844-0009-01 ",.01)
 ;;57844-0009-01
 ;;9002226.02101,"686,57844-0009-01 ",.02)
 ;;57844-0009-01
 ;;9002226.02101,"686,57844-0019-01 ",.01)
 ;;57844-0019-01
 ;;9002226.02101,"686,57844-0019-01 ",.02)
 ;;57844-0019-01
 ;;9002226.02101,"686,57866-9029-01 ",.01)
 ;;57866-9029-01
 ;;9002226.02101,"686,57866-9029-01 ",.02)
 ;;57866-9029-01
 ;;9002226.02101,"686,57866-9030-01 ",.01)
 ;;57866-9030-01
 ;;9002226.02101,"686,57866-9030-01 ",.02)
 ;;57866-9030-01
 ;;9002226.02101,"686,58016-0043-00 ",.01)
 ;;58016-0043-00
 ;;9002226.02101,"686,58016-0043-00 ",.02)
 ;;58016-0043-00
 ;;9002226.02101,"686,58016-0043-30 ",.01)
 ;;58016-0043-30
 ;;9002226.02101,"686,58016-0043-30 ",.02)
 ;;58016-0043-30
 ;;9002226.02101,"686,58016-0043-60 ",.01)
 ;;58016-0043-60
 ;;9002226.02101,"686,58016-0043-60 ",.02)
 ;;58016-0043-60
 ;;9002226.02101,"686,58016-0043-90 ",.01)
 ;;58016-0043-90
 ;;9002226.02101,"686,58016-0043-90 ",.02)
 ;;58016-0043-90
 ;;9002226.02101,"686,58016-0310-00 ",.01)
 ;;58016-0310-00
 ;;9002226.02101,"686,58016-0310-00 ",.02)
 ;;58016-0310-00
 ;;9002226.02101,"686,58016-0310-30 ",.01)
 ;;58016-0310-30
 ;;9002226.02101,"686,58016-0310-30 ",.02)
 ;;58016-0310-30
 ;;9002226.02101,"686,58016-0310-60 ",.01)
 ;;58016-0310-60
 ;;9002226.02101,"686,58016-0310-60 ",.02)
 ;;58016-0310-60
 ;;9002226.02101,"686,58016-0310-90 ",.01)
 ;;58016-0310-90
 ;;9002226.02101,"686,58016-0310-90 ",.02)
 ;;58016-0310-90
 ;;9002226.02101,"686,58016-0836-07 ",.01)
 ;;58016-0836-07
 ;;9002226.02101,"686,58016-0836-07 ",.02)
 ;;58016-0836-07
 ;;9002226.02101,"686,58016-0836-14 ",.01)
 ;;58016-0836-14
 ;;9002226.02101,"686,58016-0836-14 ",.02)
 ;;58016-0836-14
 ;;9002226.02101,"686,58016-0836-15 ",.01)
 ;;58016-0836-15
 ;;9002226.02101,"686,58016-0836-15 ",.02)
 ;;58016-0836-15
 ;;9002226.02101,"686,58016-0836-30 ",.01)
 ;;58016-0836-30
 ;;9002226.02101,"686,58016-0836-30 ",.02)
 ;;58016-0836-30
 ;;9002226.02101,"686,58016-0854-42 ",.01)
 ;;58016-0854-42
 ;;9002226.02101,"686,58016-0854-42 ",.02)
 ;;58016-0854-42
 ;;9002226.02101,"686,58016-0856-00 ",.01)
 ;;58016-0856-00
 ;;9002226.02101,"686,58016-0856-00 ",.02)
 ;;58016-0856-00
 ;;9002226.02101,"686,58016-0856-15 ",.01)
 ;;58016-0856-15
 ;;9002226.02101,"686,58016-0856-15 ",.02)
 ;;58016-0856-15
 ;;9002226.02101,"686,58016-0856-21 ",.01)
 ;;58016-0856-21
 ;;9002226.02101,"686,58016-0856-21 ",.02)
 ;;58016-0856-21
 ;;9002226.02101,"686,58016-0856-42 ",.01)
 ;;58016-0856-42
 ;;9002226.02101,"686,58016-0856-42 ",.02)
 ;;58016-0856-42
 ;;9002226.02101,"686,58016-0861-14 ",.01)
 ;;58016-0861-14
 ;;9002226.02101,"686,58016-0861-14 ",.02)
 ;;58016-0861-14
 ;;9002226.02101,"686,58016-0861-30 ",.01)
 ;;58016-0861-30
 ;;9002226.02101,"686,58016-0861-30 ",.02)
 ;;58016-0861-30
 ;;9002226.02101,"686,58016-0861-60 ",.01)
 ;;58016-0861-60
 ;;9002226.02101,"686,58016-0861-60 ",.02)
 ;;58016-0861-60
 ;;9002226.02101,"686,58177-0311-04 ",.01)
 ;;58177-0311-04
 ;;9002226.02101,"686,58177-0311-04 ",.02)
 ;;58177-0311-04
 ;;9002226.02101,"686,58177-0312-04 ",.01)
 ;;58177-0312-04
 ;;9002226.02101,"686,58177-0312-04 ",.02)
 ;;58177-0312-04
 ;;9002226.02101,"686,58521-0333-05 ",.01)
 ;;58521-0333-05
 ;;9002226.02101,"686,58521-0333-05 ",.02)
 ;;58521-0333-05
 ;;9002226.02101,"686,58605-0503-01 ",.01)
 ;;58605-0503-01
 ;;9002226.02101,"686,58605-0503-01 ",.02)
 ;;58605-0503-01
 ;;9002226.02101,"686,58605-0504-01 ",.01)
 ;;58605-0504-01
 ;;9002226.02101,"686,58605-0504-01 ",.02)
 ;;58605-0504-01
 ;;9002226.02101,"686,58605-0508-01 ",.01)
 ;;58605-0508-01
 ;;9002226.02101,"686,58605-0508-01 ",.02)
 ;;58605-0508-01
 ;;9002226.02101,"686,59630-0750-50 ",.01)
 ;;59630-0750-50
 ;;9002226.02101,"686,59630-0750-50 ",.02)
 ;;59630-0750-50
 ;;9002226.02101,"686,59630-0755-50 ",.01)
 ;;59630-0755-50
 ;;9002226.02101,"686,59630-0755-50 ",.02)
 ;;59630-0755-50
 ;;9002226.02101,"686,59630-0761-10 ",.01)
 ;;59630-0761-10
 ;;9002226.02101,"686,59630-0761-10 ",.02)
 ;;59630-0761-10
 ;;9002226.02101,"686,60793-0009-01 ",.01)
 ;;60793-0009-01
 ;;9002226.02101,"686,60793-0009-01 ",.02)
 ;;60793-0009-01
 ;;9002226.02101,"686,63304-0908-01 ",.01)
 ;;63304-0908-01
 ;;9002226.02101,"686,63304-0908-01 ",.02)
 ;;63304-0908-01
 ;;9002226.02101,"686,63304-0909-01 ",.01)
 ;;63304-0909-01
 ;;9002226.02101,"686,63304-0909-01 ",.02)
 ;;63304-0909-01
 ;;9002226.02101,"686,63304-0910-01 ",.01)
 ;;63304-0910-01
 ;;9002226.02101,"686,63304-0910-01 ",.02)
 ;;63304-0910-01
 ;;9002226.02101,"686,63304-0911-01 ",.01)
 ;;63304-0911-01
 ;;9002226.02101,"686,63304-0911-01 ",.02)
 ;;63304-0911-01
 ;;9002226.02101,"686,63629-1584-01 ",.01)
 ;;63629-1584-01
 ;;9002226.02101,"686,63629-1584-01 ",.02)
 ;;63629-1584-01
 ;;9002226.02101,"686,63629-1584-02 ",.01)
 ;;63629-1584-02
 ;;9002226.02101,"686,63629-1584-02 ",.02)
 ;;63629-1584-02
 ;;9002226.02101,"686,63629-1584-03 ",.01)
 ;;63629-1584-03
 ;;9002226.02101,"686,63629-1584-03 ",.02)
 ;;63629-1584-03
 ;;9002226.02101,"686,63629-1584-04 ",.01)
 ;;63629-1584-04
 ;;9002226.02101,"686,63629-1584-04 ",.02)
 ;;63629-1584-04
 ;;9002226.02101,"686,63629-1584-05 ",.01)
 ;;63629-1584-05
 ;;9002226.02101,"686,63629-1584-05 ",.02)
 ;;63629-1584-05
 ;;9002226.02101,"686,63629-1604-01 ",.01)
 ;;63629-1604-01
 ;;9002226.02101,"686,63629-1604-01 ",.02)
 ;;63629-1604-01
 ;;9002226.02101,"686,63629-1604-02 ",.01)
 ;;63629-1604-02
 ;;9002226.02101,"686,63629-1604-02 ",.02)
 ;;63629-1604-02
 ;;9002226.02101,"686,63629-1604-03 ",.01)
 ;;63629-1604-03
 ;;9002226.02101,"686,63629-1604-03 ",.02)
 ;;63629-1604-03
 ;;9002226.02101,"686,63629-1604-04 ",.01)
 ;;63629-1604-04
 ;;9002226.02101,"686,63629-1604-04 ",.02)
 ;;63629-1604-04
 ;;9002226.02101,"686,63629-2949-01 ",.01)
 ;;63629-2949-01
 ;;9002226.02101,"686,63629-2949-01 ",.02)
 ;;63629-2949-01
 ;;9002226.02101,"686,63629-2949-02 ",.01)
 ;;63629-2949-02
 ;;9002226.02101,"686,63629-2949-02 ",.02)
 ;;63629-2949-02
 ;;9002226.02101,"686,63629-2949-03 ",.01)
 ;;63629-2949-03
 ;;9002226.02101,"686,63629-2949-03 ",.02)
 ;;63629-2949-03
 ;;9002226.02101,"686,63629-2949-04 ",.01)
 ;;63629-2949-04
 ;;9002226.02101,"686,63629-2949-04 ",.02)
 ;;63629-2949-04
 ;;9002226.02101,"686,63629-2950-01 ",.01)
 ;;63629-2950-01
 ;;9002226.02101,"686,63629-2950-01 ",.02)
 ;;63629-2950-01
 ;;9002226.02101,"686,63629-2950-02 ",.01)
 ;;63629-2950-02
 ;;9002226.02101,"686,63629-2950-02 ",.02)
 ;;63629-2950-02
 ;;9002226.02101,"686,63629-2950-03 ",.01)
 ;;63629-2950-03
 ;;9002226.02101,"686,63629-2950-03 ",.02)
 ;;63629-2950-03
 ;;9002226.02101,"686,63629-2950-04 ",.01)
 ;;63629-2950-04
 ;;9002226.02101,"686,63629-2950-04 ",.02)
 ;;63629-2950-04
 ;;9002226.02101,"686,63629-3051-01 ",.01)
 ;;63629-3051-01
 ;;9002226.02101,"686,63629-3051-01 ",.02)
 ;;63629-3051-01
 ;;9002226.02101,"686,63629-3065-01 ",.01)
 ;;63629-3065-01
 ;;9002226.02101,"686,63629-3065-01 ",.02)
 ;;63629-3065-01
 ;;9002226.02101,"686,63629-3166-01 ",.01)
 ;;63629-3166-01
 ;;9002226.02101,"686,63629-3166-01 ",.02)
 ;;63629-3166-01
 ;;9002226.02101,"686,63629-3166-02 ",.01)
 ;;63629-3166-02
 ;;9002226.02101,"686,63629-3166-02 ",.02)
 ;;63629-3166-02
 ;;9002226.02101,"686,63874-0260-01 ",.01)
 ;;63874-0260-01
 ;;9002226.02101,"686,63874-0260-01 ",.02)
 ;;63874-0260-01
 ;;9002226.02101,"686,63874-0260-02 ",.01)
 ;;63874-0260-02
 ;;9002226.02101,"686,63874-0260-02 ",.02)
 ;;63874-0260-02
 ;;9002226.02101,"686,63874-0260-07 ",.01)
 ;;63874-0260-07
 ;;9002226.02101,"686,63874-0260-07 ",.02)
 ;;63874-0260-07
 ;;9002226.02101,"686,63874-0260-14 ",.01)
 ;;63874-0260-14
 ;;9002226.02101,"686,63874-0260-14 ",.02)
 ;;63874-0260-14
 ;;9002226.02101,"686,63874-0260-20 ",.01)
 ;;63874-0260-20
 ;;9002226.02101,"686,63874-0260-20 ",.02)
 ;;63874-0260-20
 ;;9002226.02101,"686,63874-0260-30 ",.01)
 ;;63874-0260-30
 ;;9002226.02101,"686,63874-0260-30 ",.02)
 ;;63874-0260-30
 ;;9002226.02101,"686,63874-0260-50 ",.01)
 ;;63874-0260-50
 ;;9002226.02101,"686,63874-0260-50 ",.02)
 ;;63874-0260-50
 ;;9002226.02101,"686,63874-0265-01 ",.01)
 ;;63874-0265-01
 ;;9002226.02101,"686,63874-0265-01 ",.02)
 ;;63874-0265-01
 ;;9002226.02101,"686,63874-0265-20 ",.01)
 ;;63874-0265-20
 ;;9002226.02101,"686,63874-0265-20 ",.02)
 ;;63874-0265-20
 ;;9002226.02101,"686,63874-0269-01 ",.01)
 ;;63874-0269-01
 ;;9002226.02101,"686,63874-0269-01 ",.02)
 ;;63874-0269-01
 ;;9002226.02101,"686,63874-0269-02 ",.01)
 ;;63874-0269-02
 ;;9002226.02101,"686,63874-0269-02 ",.02)
 ;;63874-0269-02
 ;;9002226.02101,"686,63874-0269-03 ",.01)
 ;;63874-0269-03
 ;;9002226.02101,"686,63874-0269-03 ",.02)
 ;;63874-0269-03
 ;;9002226.02101,"686,63874-0269-07 ",.01)
 ;;63874-0269-07