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