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

BGPM5AVQ.m

Go to the documentation of this file.
BGPM5AVQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"1033,57866011703 ",.02)
 ;;57866011703
 ;;9002226.02101,"1033,57866011704 ",.01)
 ;;57866011704
 ;;9002226.02101,"1033,57866011704 ",.02)
 ;;57866011704
 ;;9002226.02101,"1033,57866011705 ",.01)
 ;;57866011705
 ;;9002226.02101,"1033,57866011705 ",.02)
 ;;57866011705
 ;;9002226.02101,"1033,57866011706 ",.01)
 ;;57866011706
 ;;9002226.02101,"1033,57866011706 ",.02)
 ;;57866011706
 ;;9002226.02101,"1033,57866015500 ",.01)
 ;;57866015500
 ;;9002226.02101,"1033,57866015500 ",.02)
 ;;57866015500
 ;;9002226.02101,"1033,57866015501 ",.01)
 ;;57866015501
 ;;9002226.02101,"1033,57866015501 ",.02)
 ;;57866015501
 ;;9002226.02101,"1033,57866015502 ",.01)
 ;;57866015502
 ;;9002226.02101,"1033,57866015502 ",.02)
 ;;57866015502
 ;;9002226.02101,"1033,57866015504 ",.01)
 ;;57866015504
 ;;9002226.02101,"1033,57866015504 ",.02)
 ;;57866015504
 ;;9002226.02101,"1033,57866015505 ",.01)
 ;;57866015505
 ;;9002226.02101,"1033,57866015505 ",.02)
 ;;57866015505
 ;;9002226.02101,"1033,57866015506 ",.01)
 ;;57866015506
 ;;9002226.02101,"1033,57866015506 ",.02)
 ;;57866015506
 ;;9002226.02101,"1033,57866015507 ",.01)
 ;;57866015507
 ;;9002226.02101,"1033,57866015507 ",.02)
 ;;57866015507
 ;;9002226.02101,"1033,57866015508 ",.01)
 ;;57866015508
 ;;9002226.02101,"1033,57866015508 ",.02)
 ;;57866015508
 ;;9002226.02101,"1033,57866017101 ",.01)
 ;;57866017101
 ;;9002226.02101,"1033,57866017101 ",.02)
 ;;57866017101
 ;;9002226.02101,"1033,57866025001 ",.01)
 ;;57866025001
 ;;9002226.02101,"1033,57866025001 ",.02)
 ;;57866025001
 ;;9002226.02101,"1033,57866025002 ",.01)
 ;;57866025002
 ;;9002226.02101,"1033,57866025002 ",.02)
 ;;57866025002
 ;;9002226.02101,"1033,57866025004 ",.01)
 ;;57866025004
 ;;9002226.02101,"1033,57866025004 ",.02)
 ;;57866025004
 ;;9002226.02101,"1033,57866034000 ",.01)
 ;;57866034000
 ;;9002226.02101,"1033,57866034000 ",.02)
 ;;57866034000
 ;;9002226.02101,"1033,57866034001 ",.01)
 ;;57866034001
 ;;9002226.02101,"1033,57866034001 ",.02)
 ;;57866034001
 ;;9002226.02101,"1033,57866034002 ",.01)
 ;;57866034002
 ;;9002226.02101,"1033,57866034002 ",.02)
 ;;57866034002
 ;;9002226.02101,"1033,57866034003 ",.01)
 ;;57866034003
 ;;9002226.02101,"1033,57866034003 ",.02)
 ;;57866034003
 ;;9002226.02101,"1033,57866034005 ",.01)
 ;;57866034005
 ;;9002226.02101,"1033,57866034005 ",.02)
 ;;57866034005
 ;;9002226.02101,"1033,57866034101 ",.01)
 ;;57866034101
 ;;9002226.02101,"1033,57866034101 ",.02)
 ;;57866034101
 ;;9002226.02101,"1033,57866034102 ",.01)
 ;;57866034102
 ;;9002226.02101,"1033,57866034102 ",.02)
 ;;57866034102
 ;;9002226.02101,"1033,57866034103 ",.01)
 ;;57866034103
 ;;9002226.02101,"1033,57866034103 ",.02)
 ;;57866034103
 ;;9002226.02101,"1033,57866034104 ",.01)
 ;;57866034104
 ;;9002226.02101,"1033,57866034104 ",.02)
 ;;57866034104
 ;;9002226.02101,"1033,57866034301 ",.01)
 ;;57866034301
 ;;9002226.02101,"1033,57866034301 ",.02)
 ;;57866034301
 ;;9002226.02101,"1033,57866035101 ",.01)
 ;;57866035101
 ;;9002226.02101,"1033,57866035101 ",.02)
 ;;57866035101
 ;;9002226.02101,"1033,57866035102 ",.01)
 ;;57866035102
 ;;9002226.02101,"1033,57866035102 ",.02)
 ;;57866035102
 ;;9002226.02101,"1033,57866035103 ",.01)
 ;;57866035103
 ;;9002226.02101,"1033,57866035103 ",.02)
 ;;57866035103
 ;;9002226.02101,"1033,57866035104 ",.01)
 ;;57866035104
 ;;9002226.02101,"1033,57866035104 ",.02)
 ;;57866035104
 ;;9002226.02101,"1033,57866109402 ",.01)
 ;;57866109402
 ;;9002226.02101,"1033,57866109402 ",.02)
 ;;57866109402
 ;;9002226.02101,"1033,57866182001 ",.01)
 ;;57866182001
 ;;9002226.02101,"1033,57866182001 ",.02)
 ;;57866182001
 ;;9002226.02101,"1033,57866182002 ",.01)
 ;;57866182002
 ;;9002226.02101,"1033,57866182002 ",.02)
 ;;57866182002
 ;;9002226.02101,"1033,57866187001 ",.01)
 ;;57866187001
 ;;9002226.02101,"1033,57866187001 ",.02)
 ;;57866187001
 ;;9002226.02101,"1033,57866312901 ",.01)
 ;;57866312901
 ;;9002226.02101,"1033,57866312901 ",.02)
 ;;57866312901
 ;;9002226.02101,"1033,57866313501 ",.01)
 ;;57866313501
 ;;9002226.02101,"1033,57866313501 ",.02)
 ;;57866313501
 ;;9002226.02101,"1033,57866314802 ",.01)
 ;;57866314802
 ;;9002226.02101,"1033,57866314802 ",.02)
 ;;57866314802
 ;;9002226.02101,"1033,57866361302 ",.01)
 ;;57866361302
 ;;9002226.02101,"1033,57866361302 ",.02)
 ;;57866361302
 ;;9002226.02101,"1033,57866361401 ",.01)
 ;;57866361401
 ;;9002226.02101,"1033,57866361401 ",.02)
 ;;57866361401
 ;;9002226.02101,"1033,57866435301 ",.01)
 ;;57866435301
 ;;9002226.02101,"1033,57866435301 ",.02)
 ;;57866435301
 ;;9002226.02101,"1033,57866435601 ",.01)
 ;;57866435601
 ;;9002226.02101,"1033,57866435601 ",.02)
 ;;57866435601
 ;;9002226.02101,"1033,57866469201 ",.01)
 ;;57866469201
 ;;9002226.02101,"1033,57866469201 ",.02)
 ;;57866469201
 ;;9002226.02101,"1033,57866469301 ",.01)
 ;;57866469301
 ;;9002226.02101,"1033,57866469301 ",.02)
 ;;57866469301
 ;;9002226.02101,"1033,57866469302 ",.01)
 ;;57866469302
 ;;9002226.02101,"1033,57866469302 ",.02)
 ;;57866469302
 ;;9002226.02101,"1033,57866469303 ",.01)
 ;;57866469303
 ;;9002226.02101,"1033,57866469303 ",.02)
 ;;57866469303
 ;;9002226.02101,"1033,57866469304 ",.01)
 ;;57866469304
 ;;9002226.02101,"1033,57866469304 ",.02)
 ;;57866469304
 ;;9002226.02101,"1033,57866469305 ",.01)
 ;;57866469305
 ;;9002226.02101,"1033,57866469305 ",.02)
 ;;57866469305
 ;;9002226.02101,"1033,57866469306 ",.01)
 ;;57866469306
 ;;9002226.02101,"1033,57866469306 ",.02)
 ;;57866469306
 ;;9002226.02101,"1033,57866469401 ",.01)
 ;;57866469401
 ;;9002226.02101,"1033,57866469401 ",.02)
 ;;57866469401
 ;;9002226.02101,"1033,57866604101 ",.01)
 ;;57866604101
 ;;9002226.02101,"1033,57866604101 ",.02)
 ;;57866604101
 ;;9002226.02101,"1033,57866604102 ",.01)
 ;;57866604102
 ;;9002226.02101,"1033,57866604102 ",.02)
 ;;57866604102
 ;;9002226.02101,"1033,57866604103 ",.01)
 ;;57866604103
 ;;9002226.02101,"1033,57866604103 ",.02)
 ;;57866604103
 ;;9002226.02101,"1033,57866604104 ",.01)
 ;;57866604104
 ;;9002226.02101,"1033,57866604104 ",.02)
 ;;57866604104
 ;;9002226.02101,"1033,57866604105 ",.01)
 ;;57866604105
 ;;9002226.02101,"1033,57866604105 ",.02)
 ;;57866604105
 ;;9002226.02101,"1033,57866604108 ",.01)
 ;;57866604108
 ;;9002226.02101,"1033,57866604108 ",.02)
 ;;57866604108
 ;;9002226.02101,"1033,57866721601 ",.01)
 ;;57866721601
 ;;9002226.02101,"1033,57866721601 ",.02)
 ;;57866721601
 ;;9002226.02101,"1033,57866721602 ",.01)
 ;;57866721602
 ;;9002226.02101,"1033,57866721602 ",.02)
 ;;57866721602
 ;;9002226.02101,"1033,57866721603 ",.01)
 ;;57866721603
 ;;9002226.02101,"1033,57866721603 ",.02)
 ;;57866721603
 ;;9002226.02101,"1033,57866721604 ",.01)
 ;;57866721604
 ;;9002226.02101,"1033,57866721604 ",.02)
 ;;57866721604
 ;;9002226.02101,"1033,57866721607 ",.01)
 ;;57866721607
 ;;9002226.02101,"1033,57866721607 ",.02)
 ;;57866721607
 ;;9002226.02101,"1033,57866721608 ",.01)
 ;;57866721608
 ;;9002226.02101,"1033,57866721608 ",.02)
 ;;57866721608
 ;;9002226.02101,"1033,57866721801 ",.01)
 ;;57866721801
 ;;9002226.02101,"1033,57866721801 ",.02)
 ;;57866721801
 ;;9002226.02101,"1033,57866721802 ",.01)
 ;;57866721802
 ;;9002226.02101,"1033,57866721802 ",.02)
 ;;57866721802
 ;;9002226.02101,"1033,57866820501 ",.01)
 ;;57866820501
 ;;9002226.02101,"1033,57866820501 ",.02)
 ;;57866820501
 ;;9002226.02101,"1033,57866820502 ",.01)
 ;;57866820502
 ;;9002226.02101,"1033,57866820502 ",.02)
 ;;57866820502
 ;;9002226.02101,"1033,57866820601 ",.01)
 ;;57866820601
 ;;9002226.02101,"1033,57866820601 ",.02)
 ;;57866820601
 ;;9002226.02101,"1033,57866820602 ",.01)
 ;;57866820602
 ;;9002226.02101,"1033,57866820602 ",.02)
 ;;57866820602
 ;;9002226.02101,"1033,58 ",.01)
 ;;58
 ;;9002226.02101,"1033,58 ",.02)
 ;;58
 ;;9002226.02101,"1033,58016007500 ",.01)
 ;;58016007500
 ;;9002226.02101,"1033,58016007500 ",.02)
 ;;58016007500
 ;;9002226.02101,"1033,58016007530 ",.01)
 ;;58016007530
 ;;9002226.02101,"1033,58016007530 ",.02)
 ;;58016007530
 ;;9002226.02101,"1033,58016007560 ",.01)
 ;;58016007560
 ;;9002226.02101,"1033,58016007560 ",.02)
 ;;58016007560
 ;;9002226.02101,"1033,58016007590 ",.01)
 ;;58016007590
 ;;9002226.02101,"1033,58016007590 ",.02)
 ;;58016007590
 ;;9002226.02101,"1033,58016008600 ",.01)
 ;;58016008600
 ;;9002226.02101,"1033,58016008600 ",.02)
 ;;58016008600
 ;;9002226.02101,"1033,58016008601 ",.01)
 ;;58016008601
 ;;9002226.02101,"1033,58016008601 ",.02)
 ;;58016008601
 ;;9002226.02101,"1033,58016008602 ",.01)
 ;;58016008602
 ;;9002226.02101,"1033,58016008602 ",.02)
 ;;58016008602
 ;;9002226.02101,"1033,58016008603 ",.01)
 ;;58016008603
 ;;9002226.02101,"1033,58016008603 ",.02)
 ;;58016008603
 ;;9002226.02101,"1033,58016008604 ",.01)
 ;;58016008604
 ;;9002226.02101,"1033,58016008604 ",.02)
 ;;58016008604
 ;;9002226.02101,"1033,58016008605 ",.01)
 ;;58016008605
 ;;9002226.02101,"1033,58016008605 ",.02)
 ;;58016008605
 ;;9002226.02101,"1033,58016008606 ",.01)
 ;;58016008606
 ;;9002226.02101,"1033,58016008606 ",.02)
 ;;58016008606
 ;;9002226.02101,"1033,58016008607 ",.01)
 ;;58016008607
 ;;9002226.02101,"1033,58016008607 ",.02)
 ;;58016008607
 ;;9002226.02101,"1033,58016008608 ",.01)
 ;;58016008608
 ;;9002226.02101,"1033,58016008608 ",.02)
 ;;58016008608
 ;;9002226.02101,"1033,58016008609 ",.01)
 ;;58016008609
 ;;9002226.02101,"1033,58016008609 ",.02)
 ;;58016008609
 ;;9002226.02101,"1033,58016008610 ",.01)
 ;;58016008610
 ;;9002226.02101,"1033,58016008610 ",.02)
 ;;58016008610
 ;;9002226.02101,"1033,58016008612 ",.01)
 ;;58016008612
 ;;9002226.02101,"1033,58016008612 ",.02)
 ;;58016008612
 ;;9002226.02101,"1033,58016008614 ",.01)
 ;;58016008614
 ;;9002226.02101,"1033,58016008614 ",.02)
 ;;58016008614
 ;;9002226.02101,"1033,58016008615 ",.01)
 ;;58016008615
 ;;9002226.02101,"1033,58016008615 ",.02)
 ;;58016008615
 ;;9002226.02101,"1033,58016008616 ",.01)
 ;;58016008616
 ;;9002226.02101,"1033,58016008616 ",.02)
 ;;58016008616
 ;;9002226.02101,"1033,58016008618 ",.01)
 ;;58016008618
 ;;9002226.02101,"1033,58016008618 ",.02)
 ;;58016008618
 ;;9002226.02101,"1033,58016008620 ",.01)
 ;;58016008620
 ;;9002226.02101,"1033,58016008620 ",.02)
 ;;58016008620
 ;;9002226.02101,"1033,58016008621 ",.01)
 ;;58016008621
 ;;9002226.02101,"1033,58016008621 ",.02)
 ;;58016008621
 ;;9002226.02101,"1033,58016008624 ",.01)
 ;;58016008624
 ;;9002226.02101,"1033,58016008624 ",.02)
 ;;58016008624
 ;;9002226.02101,"1033,58016008625 ",.01)
 ;;58016008625
 ;;9002226.02101,"1033,58016008625 ",.02)
 ;;58016008625
 ;;9002226.02101,"1033,58016008626 ",.01)
 ;;58016008626
 ;;9002226.02101,"1033,58016008626 ",.02)
 ;;58016008626
 ;;9002226.02101,"1033,58016008627 ",.01)
 ;;58016008627
 ;;9002226.02101,"1033,58016008627 ",.02)
 ;;58016008627
 ;;9002226.02101,"1033,58016008628 ",.01)
 ;;58016008628
 ;;9002226.02101,"1033,58016008628 ",.02)
 ;;58016008628
 ;;9002226.02101,"1033,58016008630 ",.01)
 ;;58016008630
 ;;9002226.02101,"1033,58016008630 ",.02)
 ;;58016008630
 ;;9002226.02101,"1033,58016008632 ",.01)
 ;;58016008632
 ;;9002226.02101,"1033,58016008632 ",.02)
 ;;58016008632
 ;;9002226.02101,"1033,58016008635 ",.01)
 ;;58016008635
 ;;9002226.02101,"1033,58016008635 ",.02)
 ;;58016008635
 ;;9002226.02101,"1033,58016008636 ",.01)
 ;;58016008636
 ;;9002226.02101,"1033,58016008636 ",.02)
 ;;58016008636
 ;;9002226.02101,"1033,58016008640 ",.01)
 ;;58016008640
 ;;9002226.02101,"1033,58016008640 ",.02)
 ;;58016008640
 ;;9002226.02101,"1033,58016008642 ",.01)
 ;;58016008642
 ;;9002226.02101,"1033,58016008642 ",.02)
 ;;58016008642
 ;;9002226.02101,"1033,58016008644 ",.01)
 ;;58016008644