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

BGPM5AHH.m

Go to the documentation of this file.
  1. BGPM5AHH ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,60505018701 ",.02)
  1. ;;60505018701
  1. ;;9002226.02101,"882,60505018707 ",.01)
  1. ;;60505018707
  1. ;;9002226.02101,"882,60505018707 ",.02)
  1. ;;60505018707
  1. ;;9002226.02101,"882,60505018709 ",.01)
  1. ;;60505018709
  1. ;;9002226.02101,"882,60505018709 ",.02)
  1. ;;60505018709
  1. ;;9002226.02101,"882,60505018800 ",.01)
  1. ;;60505018800
  1. ;;9002226.02101,"882,60505018800 ",.02)
  1. ;;60505018800
  1. ;;9002226.02101,"882,60505018801 ",.01)
  1. ;;60505018801
  1. ;;9002226.02101,"882,60505018801 ",.02)
  1. ;;60505018801
  1. ;;9002226.02101,"882,60505018809 ",.01)
  1. ;;60505018809
  1. ;;9002226.02101,"882,60505018809 ",.02)
  1. ;;60505018809
  1. ;;9002226.02101,"882,60505018900 ",.01)
  1. ;;60505018900
  1. ;;9002226.02101,"882,60505018900 ",.02)
  1. ;;60505018900
  1. ;;9002226.02101,"882,60505018901 ",.01)
  1. ;;60505018901
  1. ;;9002226.02101,"882,60505018901 ",.02)
  1. ;;60505018901
  1. ;;9002226.02101,"882,60505018908 ",.01)
  1. ;;60505018908
  1. ;;9002226.02101,"882,60505018908 ",.02)
  1. ;;60505018908
  1. ;;9002226.02101,"882,60505018909 ",.01)
  1. ;;60505018909
  1. ;;9002226.02101,"882,60505018909 ",.02)
  1. ;;60505018909
  1. ;;9002226.02101,"882,60505020501 ",.01)
  1. ;;60505020501
  1. ;;9002226.02101,"882,60505020501 ",.02)
  1. ;;60505020501
  1. ;;9002226.02101,"882,60505020502 ",.01)
  1. ;;60505020502
  1. ;;9002226.02101,"882,60505020502 ",.02)
  1. ;;60505020502
  1. ;;9002226.02101,"882,60505020503 ",.01)
  1. ;;60505020503
  1. ;;9002226.02101,"882,60505020503 ",.02)
  1. ;;60505020503
  1. ;;9002226.02101,"882,60505020505 ",.01)
  1. ;;60505020505
  1. ;;9002226.02101,"882,60505020505 ",.02)
  1. ;;60505020505
  1. ;;9002226.02101,"882,60505020507 ",.01)
  1. ;;60505020507
  1. ;;9002226.02101,"882,60505020507 ",.02)
  1. ;;60505020507
  1. ;;9002226.02101,"882,60505020601 ",.01)
  1. ;;60505020601
  1. ;;9002226.02101,"882,60505020601 ",.02)
  1. ;;60505020601
  1. ;;9002226.02101,"882,60505020602 ",.01)
  1. ;;60505020602
  1. ;;9002226.02101,"882,60505020602 ",.02)
  1. ;;60505020602
  1. ;;9002226.02101,"882,60505020603 ",.01)
  1. ;;60505020603
  1. ;;9002226.02101,"882,60505020603 ",.02)
  1. ;;60505020603
  1. ;;9002226.02101,"882,60505020605 ",.01)
  1. ;;60505020605
  1. ;;9002226.02101,"882,60505020605 ",.02)
  1. ;;60505020605
  1. ;;9002226.02101,"882,60505020607 ",.01)
  1. ;;60505020607
  1. ;;9002226.02101,"882,60505020607 ",.02)
  1. ;;60505020607
  1. ;;9002226.02101,"882,60505020701 ",.01)
  1. ;;60505020701
  1. ;;9002226.02101,"882,60505020701 ",.02)
  1. ;;60505020701
  1. ;;9002226.02101,"882,60505020702 ",.01)
  1. ;;60505020702
  1. ;;9002226.02101,"882,60505020702 ",.02)
  1. ;;60505020702
  1. ;;9002226.02101,"882,60505020703 ",.01)
  1. ;;60505020703
  1. ;;9002226.02101,"882,60505020703 ",.02)
  1. ;;60505020703
  1. ;;9002226.02101,"882,60505020705 ",.01)
  1. ;;60505020705
  1. ;;9002226.02101,"882,60505020705 ",.02)
  1. ;;60505020705
  1. ;;9002226.02101,"882,60505020707 ",.01)
  1. ;;60505020707
  1. ;;9002226.02101,"882,60505020707 ",.02)
  1. ;;60505020707
  1. ;;9002226.02101,"882,60505020801 ",.01)
  1. ;;60505020801
  1. ;;9002226.02101,"882,60505020801 ",.02)
  1. ;;60505020801
  1. ;;9002226.02101,"882,60505020802 ",.01)
  1. ;;60505020802
  1. ;;9002226.02101,"882,60505020802 ",.02)
  1. ;;60505020802
  1. ;;9002226.02101,"882,60505020901 ",.01)
  1. ;;60505020901
  1. ;;9002226.02101,"882,60505020901 ",.02)
  1. ;;60505020901
  1. ;;9002226.02101,"882,60505020902 ",.01)
  1. ;;60505020902
  1. ;;9002226.02101,"882,60505020902 ",.02)
  1. ;;60505020902
  1. ;;9002226.02101,"882,60505027101 ",.01)
  1. ;;60505027101
  1. ;;9002226.02101,"882,60505027101 ",.02)
  1. ;;60505027101
  1. ;;9002226.02101,"882,60505027103 ",.01)
  1. ;;60505027103
  1. ;;9002226.02101,"882,60505027103 ",.02)
  1. ;;60505027103
  1. ;;9002226.02101,"882,60505027105 ",.01)
  1. ;;60505027105
  1. ;;9002226.02101,"882,60505027105 ",.02)
  1. ;;60505027105
  1. ;;9002226.02101,"882,60505027108 ",.01)
  1. ;;60505027108
  1. ;;9002226.02101,"882,60505027108 ",.02)
  1. ;;60505027108
  1. ;;9002226.02101,"882,60505027201 ",.01)
  1. ;;60505027201
  1. ;;9002226.02101,"882,60505027201 ",.02)
  1. ;;60505027201
  1. ;;9002226.02101,"882,60505027203 ",.01)
  1. ;;60505027203
  1. ;;9002226.02101,"882,60505027203 ",.02)
  1. ;;60505027203
  1. ;;9002226.02101,"882,60505027205 ",.01)
  1. ;;60505027205
  1. ;;9002226.02101,"882,60505027205 ",.02)
  1. ;;60505027205
  1. ;;9002226.02101,"882,60505027208 ",.01)
  1. ;;60505027208
  1. ;;9002226.02101,"882,60505027208 ",.02)
  1. ;;60505027208
  1. ;;9002226.02101,"882,60505251002 ",.01)
  1. ;;60505251002
  1. ;;9002226.02101,"882,60505251002 ",.02)
  1. ;;60505251002
  1. ;;9002226.02101,"882,60505251003 ",.01)
  1. ;;60505251003
  1. ;;9002226.02101,"882,60505251003 ",.02)
  1. ;;60505251003
  1. ;;9002226.02101,"882,60505251004 ",.01)
  1. ;;60505251004
  1. ;;9002226.02101,"882,60505251004 ",.02)
  1. ;;60505251004
  1. ;;9002226.02101,"882,60505251102 ",.01)
  1. ;;60505251102
  1. ;;9002226.02101,"882,60505251102 ",.02)
  1. ;;60505251102
  1. ;;9002226.02101,"882,60505251103 ",.01)
  1. ;;60505251103
  1. ;;9002226.02101,"882,60505251103 ",.02)
  1. ;;60505251103
  1. ;;9002226.02101,"882,60505251104 ",.01)
  1. ;;60505251104
  1. ;;9002226.02101,"882,60505251104 ",.02)
  1. ;;60505251104
  1. ;;9002226.02101,"882,60505251202 ",.01)
  1. ;;60505251202
  1. ;;9002226.02101,"882,60505251202 ",.02)
  1. ;;60505251202
  1. ;;9002226.02101,"882,60505251203 ",.01)
  1. ;;60505251203
  1. ;;9002226.02101,"882,60505251203 ",.02)
  1. ;;60505251203
  1. ;;9002226.02101,"882,60505251204 ",.01)
  1. ;;60505251204
  1. ;;9002226.02101,"882,60505251204 ",.02)
  1. ;;60505251204
  1. ;;9002226.02101,"882,60505251208 ",.01)
  1. ;;60505251208
  1. ;;9002226.02101,"882,60505251208 ",.02)
  1. ;;60505251208
  1. ;;9002226.02101,"882,60505268301 ",.01)
  1. ;;60505268301
  1. ;;9002226.02101,"882,60505268301 ",.02)
  1. ;;60505268301
  1. ;;9002226.02101,"882,60505268401 ",.01)
  1. ;;60505268401
  1. ;;9002226.02101,"882,60505268401 ",.02)
  1. ;;60505268401
  1. ;;9002226.02101,"882,60505268408 ",.01)
  1. ;;60505268408
  1. ;;9002226.02101,"882,60505268408 ",.02)
  1. ;;60505268408
  1. ;;9002226.02101,"882,60505268409 ",.01)
  1. ;;60505268409
  1. ;;9002226.02101,"882,60505268409 ",.02)
  1. ;;60505268409
  1. ;;9002226.02101,"882,60505268501 ",.01)
  1. ;;60505268501
  1. ;;9002226.02101,"882,60505268501 ",.02)
  1. ;;60505268501
  1. ;;9002226.02101,"882,60505268508 ",.01)
  1. ;;60505268508
  1. ;;9002226.02101,"882,60505268508 ",.02)
  1. ;;60505268508
  1. ;;9002226.02101,"882,60505268509 ",.01)
  1. ;;60505268509
  1. ;;9002226.02101,"882,60505268509 ",.02)
  1. ;;60505268509
  1. ;;9002226.02101,"882,60505268601 ",.01)
  1. ;;60505268601
  1. ;;9002226.02101,"882,60505268601 ",.02)
  1. ;;60505268601
  1. ;;9002226.02101,"882,60505268608 ",.01)
  1. ;;60505268608
  1. ;;9002226.02101,"882,60505268608 ",.02)
  1. ;;60505268608
  1. ;;9002226.02101,"882,60505268609 ",.01)
  1. ;;60505268609
  1. ;;9002226.02101,"882,60505268609 ",.02)
  1. ;;60505268609
  1. ;;9002226.02101,"882,60505268801 ",.01)
  1. ;;60505268801
  1. ;;9002226.02101,"882,60505268801 ",.02)
  1. ;;60505268801
  1. ;;9002226.02101,"882,60505268808 ",.01)
  1. ;;60505268808
  1. ;;9002226.02101,"882,60505268808 ",.02)
  1. ;;60505268808
  1. ;;9002226.02101,"882,60505268809 ",.01)
  1. ;;60505268809
  1. ;;9002226.02101,"882,60505268809 ",.02)
  1. ;;60505268809
  1. ;;9002226.02101,"882,60505268901 ",.01)
  1. ;;60505268901
  1. ;;9002226.02101,"882,60505268901 ",.02)
  1. ;;60505268901
  1. ;;9002226.02101,"882,60505269001 ",.01)
  1. ;;60505269001
  1. ;;9002226.02101,"882,60505269001 ",.02)
  1. ;;60505269001
  1. ;;9002226.02101,"882,60505269101 ",.01)
  1. ;;60505269101
  1. ;;9002226.02101,"882,60505269101 ",.02)
  1. ;;60505269101
  1. ;;9002226.02101,"882,60505287501 ",.01)
  1. ;;60505287501
  1. ;;9002226.02101,"882,60505287501 ",.02)
  1. ;;60505287501
  1. ;;9002226.02101,"882,60505287503 ",.01)
  1. ;;60505287503
  1. ;;9002226.02101,"882,60505287503 ",.02)
  1. ;;60505287503
  1. ;;9002226.02101,"882,60505287505 ",.01)
  1. ;;60505287505
  1. ;;9002226.02101,"882,60505287505 ",.02)
  1. ;;60505287505
  1. ;;9002226.02101,"882,60505287508 ",.01)
  1. ;;60505287508
  1. ;;9002226.02101,"882,60505287508 ",.02)
  1. ;;60505287508
  1. ;;9002226.02101,"882,60505287600 ",.01)
  1. ;;60505287600
  1. ;;9002226.02101,"882,60505287600 ",.02)
  1. ;;60505287600
  1. ;;9002226.02101,"882,60505287601 ",.01)
  1. ;;60505287601
  1. ;;9002226.02101,"882,60505287601 ",.02)
  1. ;;60505287601
  1. ;;9002226.02101,"882,60505287603 ",.01)
  1. ;;60505287603
  1. ;;9002226.02101,"882,60505287603 ",.02)
  1. ;;60505287603
  1. ;;9002226.02101,"882,60505287605 ",.01)
  1. ;;60505287605
  1. ;;9002226.02101,"882,60505287605 ",.02)
  1. ;;60505287605
  1. ;;9002226.02101,"882,60505287608 ",.01)
  1. ;;60505287608
  1. ;;9002226.02101,"882,60505287608 ",.02)
  1. ;;60505287608
  1. ;;9002226.02101,"882,60505287700 ",.01)
  1. ;;60505287700
  1. ;;9002226.02101,"882,60505287700 ",.02)
  1. ;;60505287700
  1. ;;9002226.02101,"882,60505287701 ",.01)
  1. ;;60505287701
  1. ;;9002226.02101,"882,60505287701 ",.02)
  1. ;;60505287701
  1. ;;9002226.02101,"882,60505287703 ",.01)
  1. ;;60505287703
  1. ;;9002226.02101,"882,60505287703 ",.02)
  1. ;;60505287703
  1. ;;9002226.02101,"882,60505287705 ",.01)
  1. ;;60505287705
  1. ;;9002226.02101,"882,60505287705 ",.02)
  1. ;;60505287705
  1. ;;9002226.02101,"882,60505287708 ",.01)
  1. ;;60505287708
  1. ;;9002226.02101,"882,60505287708 ",.02)
  1. ;;60505287708
  1. ;;9002226.02101,"882,60505287800 ",.01)
  1. ;;60505287800
  1. ;;9002226.02101,"882,60505287800 ",.02)
  1. ;;60505287800
  1. ;;9002226.02101,"882,60505287801 ",.01)
  1. ;;60505287801
  1. ;;9002226.02101,"882,60505287801 ",.02)
  1. ;;60505287801
  1. ;;9002226.02101,"882,60505287803 ",.01)
  1. ;;60505287803
  1. ;;9002226.02101,"882,60505287803 ",.02)
  1. ;;60505287803
  1. ;;9002226.02101,"882,60505287805 ",.01)
  1. ;;60505287805
  1. ;;9002226.02101,"882,60505287805 ",.02)
  1. ;;60505287805
  1. ;;9002226.02101,"882,60505287808 ",.01)
  1. ;;60505287808
  1. ;;9002226.02101,"882,60505287808 ",.02)
  1. ;;60505287808
  1. ;;9002226.02101,"882,60763101100 ",.01)
  1. ;;60763101100
  1. ;;9002226.02101,"882,60763101100 ",.02)
  1. ;;60763101100
  1. ;;9002226.02101,"882,60763101102 ",.01)
  1. ;;60763101102
  1. ;;9002226.02101,"882,60763101102 ",.02)
  1. ;;60763101102
  1. ;;9002226.02101,"882,60763101200 ",.01)
  1. ;;60763101200
  1. ;;9002226.02101,"882,60763101200 ",.02)
  1. ;;60763101200
  1. ;;9002226.02101,"882,60763101202 ",.01)
  1. ;;60763101202
  1. ;;9002226.02101,"882,60763101202 ",.02)
  1. ;;60763101202
  1. ;;9002226.02101,"882,60763101300 ",.01)
  1. ;;60763101300
  1. ;;9002226.02101,"882,60763101300 ",.02)
  1. ;;60763101300
  1. ;;9002226.02101,"882,60763101302 ",.01)
  1. ;;60763101302
  1. ;;9002226.02101,"882,60763101302 ",.02)
  1. ;;60763101302
  1. ;;9002226.02101,"882,60763101400 ",.01)
  1. ;;60763101400
  1. ;;9002226.02101,"882,60763101400 ",.02)
  1. ;;60763101400
  1. ;;9002226.02101,"882,60951072170 ",.01)
  1. ;;60951072170
  1. ;;9002226.02101,"882,60951072170 ",.02)
  1. ;;60951072170
  1. ;;9002226.02101,"882,60951072270 ",.01)
  1. ;;60951072270
  1. ;;9002226.02101,"882,60951072270 ",.02)
  1. ;;60951072270
  1. ;;9002226.02101,"882,60951072470 ",.01)
  1. ;;60951072470
  1. ;;9002226.02101,"882,60951072470 ",.02)
  1. ;;60951072470
  1. ;;9002226.02101,"882,60951072770 ",.01)
  1. ;;60951072770
  1. ;;9002226.02101,"882,60951072770 ",.02)
  1. ;;60951072770
  1. ;;9002226.02101,"882,60951073170 ",.01)
  1. ;;60951073170
  1. ;;9002226.02101,"882,60951073170 ",.02)
  1. ;;60951073170
  1. ;;9002226.02101,"882,60951073370 ",.01)
  1. ;;60951073370
  1. ;;9002226.02101,"882,60951073370 ",.02)
  1. ;;60951073370
  1. ;;9002226.02101,"882,60951073970 ",.01)
  1. ;;60951073970
  1. ;;9002226.02101,"882,60951073970 ",.02)
  1. ;;60951073970
  1. ;;9002226.02101,"882,60951074170 ",.01)
  1. ;;60951074170
  1. ;;9002226.02101,"882,60951074170 ",.02)
  1. ;;60951074170
  1. ;;9002226.02101,"882,61392045425 ",.01)
  1. ;;61392045425
  1. ;;9002226.02101,"882,61392045425 ",.02)
  1. ;;61392045425
  1. ;;9002226.02101,"882,61392045430 ",.01)
  1. ;;61392045430
  1. ;;9002226.02101,"882,61392045430 ",.02)
  1. ;;61392045430
  1. ;;9002226.02101,"882,61392045431 ",.01)
  1. ;;61392045431
  1. ;;9002226.02101,"882,61392045431 ",.02)
  1. ;;61392045431
  1. ;;9002226.02101,"882,61392045439 ",.01)
  1. ;;61392045439
  1. ;;9002226.02101,"882,61392045439 ",.02)
  1. ;;61392045439
  1. ;;9002226.02101,"882,61392047425 ",.01)
  1. ;;61392047425
  1. ;;9002226.02101,"882,61392047425 ",.02)
  1. ;;61392047425
  1. ;;9002226.02101,"882,61392047430 ",.01)
  1. ;;61392047430