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

BGPM5AWZ.m

Go to the documentation of this file.
  1. BGPM5AWZ ;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,67253022010 ",.02)
  1. ;;67253022010
  1. ;;9002226.02101,"1033,67253022110 ",.01)
  1. ;;67253022110
  1. ;;9002226.02101,"1033,67253022110 ",.02)
  1. ;;67253022110
  1. ;;9002226.02101,"1033,67253022215 ",.01)
  1. ;;67253022215
  1. ;;9002226.02101,"1033,67253022215 ",.02)
  1. ;;67253022215
  1. ;;9002226.02101,"1033,67253022275 ",.01)
  1. ;;67253022275
  1. ;;9002226.02101,"1033,67253022275 ",.02)
  1. ;;67253022275
  1. ;;9002226.02101,"1033,67253022305 ",.01)
  1. ;;67253022305
  1. ;;9002226.02101,"1033,67253022305 ",.02)
  1. ;;67253022305
  1. ;;9002226.02101,"1033,67253022310 ",.01)
  1. ;;67253022310
  1. ;;9002226.02101,"1033,67253022310 ",.02)
  1. ;;67253022310
  1. ;;9002226.02101,"1033,67253022415 ",.01)
  1. ;;67253022415
  1. ;;9002226.02101,"1033,67253022415 ",.02)
  1. ;;67253022415
  1. ;;9002226.02101,"1033,67253022475 ",.01)
  1. ;;67253022475
  1. ;;9002226.02101,"1033,67253022475 ",.02)
  1. ;;67253022475
  1. ;;9002226.02101,"1033,67253022505 ",.01)
  1. ;;67253022505
  1. ;;9002226.02101,"1033,67253022505 ",.02)
  1. ;;67253022505
  1. ;;9002226.02101,"1033,67253022510 ",.01)
  1. ;;67253022510
  1. ;;9002226.02101,"1033,67253022510 ",.02)
  1. ;;67253022510
  1. ;;9002226.02101,"1033,67253030010 ",.01)
  1. ;;67253030010
  1. ;;9002226.02101,"1033,67253030010 ",.02)
  1. ;;67253030010
  1. ;;9002226.02101,"1033,67253030050 ",.01)
  1. ;;67253030050
  1. ;;9002226.02101,"1033,67253030050 ",.02)
  1. ;;67253030050
  1. ;;9002226.02101,"1033,67253030110 ",.01)
  1. ;;67253030110
  1. ;;9002226.02101,"1033,67253030110 ",.02)
  1. ;;67253030110
  1. ;;9002226.02101,"1033,67253030150 ",.01)
  1. ;;67253030150
  1. ;;9002226.02101,"1033,67253030150 ",.02)
  1. ;;67253030150
  1. ;;9002226.02101,"1033,67253030613 ",.01)
  1. ;;67253030613
  1. ;;9002226.02101,"1033,67253030613 ",.02)
  1. ;;67253030613
  1. ;;9002226.02101,"1033,67253030640 ",.01)
  1. ;;67253030640
  1. ;;9002226.02101,"1033,67253030640 ",.02)
  1. ;;67253030640
  1. ;;9002226.02101,"1033,67253030713 ",.01)
  1. ;;67253030713
  1. ;;9002226.02101,"1033,67253030713 ",.02)
  1. ;;67253030713
  1. ;;9002226.02101,"1033,67253030740 ",.01)
  1. ;;67253030740
  1. ;;9002226.02101,"1033,67253030740 ",.02)
  1. ;;67253030740
  1. ;;9002226.02101,"1033,67253078002 ",.01)
  1. ;;67253078002
  1. ;;9002226.02101,"1033,67253078002 ",.02)
  1. ;;67253078002
  1. ;;9002226.02101,"1033,67253078102 ",.01)
  1. ;;67253078102
  1. ;;9002226.02101,"1033,67253078102 ",.02)
  1. ;;67253078102
  1. ;;9002226.02101,"1033,67296000201 ",.01)
  1. ;;67296000201
  1. ;;9002226.02101,"1033,67296000201 ",.02)
  1. ;;67296000201
  1. ;;9002226.02101,"1033,67296000202 ",.01)
  1. ;;67296000202
  1. ;;9002226.02101,"1033,67296000202 ",.02)
  1. ;;67296000202
  1. ;;9002226.02101,"1033,67296000301 ",.01)
  1. ;;67296000301
  1. ;;9002226.02101,"1033,67296000301 ",.02)
  1. ;;67296000301
  1. ;;9002226.02101,"1033,67296000302 ",.01)
  1. ;;67296000302
  1. ;;9002226.02101,"1033,67296000302 ",.02)
  1. ;;67296000302
  1. ;;9002226.02101,"1033,67296000303 ",.01)
  1. ;;67296000303
  1. ;;9002226.02101,"1033,67296000303 ",.02)
  1. ;;67296000303
  1. ;;9002226.02101,"1033,67296000304 ",.01)
  1. ;;67296000304
  1. ;;9002226.02101,"1033,67296000304 ",.02)
  1. ;;67296000304
  1. ;;9002226.02101,"1033,67296000401 ",.01)
  1. ;;67296000401
  1. ;;9002226.02101,"1033,67296000401 ",.02)
  1. ;;67296000401
  1. ;;9002226.02101,"1033,67296000501 ",.01)
  1. ;;67296000501
  1. ;;9002226.02101,"1033,67296000501 ",.02)
  1. ;;67296000501
  1. ;;9002226.02101,"1033,67296001501 ",.01)
  1. ;;67296001501
  1. ;;9002226.02101,"1033,67296001501 ",.02)
  1. ;;67296001501
  1. ;;9002226.02101,"1033,67296002301 ",.01)
  1. ;;67296002301
  1. ;;9002226.02101,"1033,67296002301 ",.02)
  1. ;;67296002301
  1. ;;9002226.02101,"1033,67296002302 ",.01)
  1. ;;67296002302
  1. ;;9002226.02101,"1033,67296002302 ",.02)
  1. ;;67296002302
  1. ;;9002226.02101,"1033,67296003601 ",.01)
  1. ;;67296003601
  1. ;;9002226.02101,"1033,67296003601 ",.02)
  1. ;;67296003601
  1. ;;9002226.02101,"1033,67296003602 ",.01)
  1. ;;67296003602
  1. ;;9002226.02101,"1033,67296003602 ",.02)
  1. ;;67296003602
  1. ;;9002226.02101,"1033,67296003603 ",.01)
  1. ;;67296003603
  1. ;;9002226.02101,"1033,67296003603 ",.02)
  1. ;;67296003603
  1. ;;9002226.02101,"1033,67296003604 ",.01)
  1. ;;67296003604
  1. ;;9002226.02101,"1033,67296003604 ",.02)
  1. ;;67296003604
  1. ;;9002226.02101,"1033,67296004401 ",.01)
  1. ;;67296004401
  1. ;;9002226.02101,"1033,67296004401 ",.02)
  1. ;;67296004401
  1. ;;9002226.02101,"1033,67296004402 ",.01)
  1. ;;67296004402
  1. ;;9002226.02101,"1033,67296004402 ",.02)
  1. ;;67296004402
  1. ;;9002226.02101,"1033,67296004403 ",.01)
  1. ;;67296004403
  1. ;;9002226.02101,"1033,67296004403 ",.02)
  1. ;;67296004403
  1. ;;9002226.02101,"1033,67296004601 ",.01)
  1. ;;67296004601
  1. ;;9002226.02101,"1033,67296004601 ",.02)
  1. ;;67296004601
  1. ;;9002226.02101,"1033,67296004901 ",.01)
  1. ;;67296004901
  1. ;;9002226.02101,"1033,67296004901 ",.02)
  1. ;;67296004901
  1. ;;9002226.02101,"1033,67296006201 ",.01)
  1. ;;67296006201
  1. ;;9002226.02101,"1033,67296006201 ",.02)
  1. ;;67296006201
  1. ;;9002226.02101,"1033,67296006202 ",.01)
  1. ;;67296006202
  1. ;;9002226.02101,"1033,67296006202 ",.02)
  1. ;;67296006202
  1. ;;9002226.02101,"1033,67296006203 ",.01)
  1. ;;67296006203
  1. ;;9002226.02101,"1033,67296006203 ",.02)
  1. ;;67296006203
  1. ;;9002226.02101,"1033,67296006204 ",.01)
  1. ;;67296006204
  1. ;;9002226.02101,"1033,67296006204 ",.02)
  1. ;;67296006204
  1. ;;9002226.02101,"1033,67296006205 ",.01)
  1. ;;67296006205
  1. ;;9002226.02101,"1033,67296006205 ",.02)
  1. ;;67296006205
  1. ;;9002226.02101,"1033,67296007301 ",.01)
  1. ;;67296007301
  1. ;;9002226.02101,"1033,67296007301 ",.02)
  1. ;;67296007301
  1. ;;9002226.02101,"1033,67296007302 ",.01)
  1. ;;67296007302
  1. ;;9002226.02101,"1033,67296007302 ",.02)
  1. ;;67296007302
  1. ;;9002226.02101,"1033,67296007502 ",.01)
  1. ;;67296007502
  1. ;;9002226.02101,"1033,67296007502 ",.02)
  1. ;;67296007502
  1. ;;9002226.02101,"1033,67296007503 ",.01)
  1. ;;67296007503
  1. ;;9002226.02101,"1033,67296007503 ",.02)
  1. ;;67296007503
  1. ;;9002226.02101,"1033,67296007504 ",.01)
  1. ;;67296007504
  1. ;;9002226.02101,"1033,67296007504 ",.02)
  1. ;;67296007504
  1. ;;9002226.02101,"1033,67296007505 ",.01)
  1. ;;67296007505
  1. ;;9002226.02101,"1033,67296007505 ",.02)
  1. ;;67296007505
  1. ;;9002226.02101,"1033,67296007601 ",.01)
  1. ;;67296007601
  1. ;;9002226.02101,"1033,67296007601 ",.02)
  1. ;;67296007601
  1. ;;9002226.02101,"1033,67296007602 ",.01)
  1. ;;67296007602
  1. ;;9002226.02101,"1033,67296007602 ",.02)
  1. ;;67296007602
  1. ;;9002226.02101,"1033,67296007603 ",.01)
  1. ;;67296007603
  1. ;;9002226.02101,"1033,67296007603 ",.02)
  1. ;;67296007603
  1. ;;9002226.02101,"1033,67296008102 ",.01)
  1. ;;67296008102
  1. ;;9002226.02101,"1033,67296008102 ",.02)
  1. ;;67296008102
  1. ;;9002226.02101,"1033,67296008201 ",.01)
  1. ;;67296008201
  1. ;;9002226.02101,"1033,67296008201 ",.02)
  1. ;;67296008201
  1. ;;9002226.02101,"1033,67296008202 ",.01)
  1. ;;67296008202
  1. ;;9002226.02101,"1033,67296008202 ",.02)
  1. ;;67296008202
  1. ;;9002226.02101,"1033,67296008501 ",.01)
  1. ;;67296008501
  1. ;;9002226.02101,"1033,67296008501 ",.02)
  1. ;;67296008501
  1. ;;9002226.02101,"1033,67296008701 ",.01)
  1. ;;67296008701
  1. ;;9002226.02101,"1033,67296008701 ",.02)
  1. ;;67296008701
  1. ;;9002226.02101,"1033,67296008702 ",.01)
  1. ;;67296008702
  1. ;;9002226.02101,"1033,67296008702 ",.02)
  1. ;;67296008702
  1. ;;9002226.02101,"1033,67296008703 ",.01)
  1. ;;67296008703
  1. ;;9002226.02101,"1033,67296008703 ",.02)
  1. ;;67296008703
  1. ;;9002226.02101,"1033,67296008704 ",.01)
  1. ;;67296008704
  1. ;;9002226.02101,"1033,67296008704 ",.02)
  1. ;;67296008704
  1. ;;9002226.02101,"1033,67296009001 ",.01)
  1. ;;67296009001
  1. ;;9002226.02101,"1033,67296009001 ",.02)
  1. ;;67296009001
  1. ;;9002226.02101,"1033,67296009002 ",.01)
  1. ;;67296009002
  1. ;;9002226.02101,"1033,67296009002 ",.02)
  1. ;;67296009002
  1. ;;9002226.02101,"1033,67296011802 ",.01)
  1. ;;67296011802
  1. ;;9002226.02101,"1033,67296011802 ",.02)
  1. ;;67296011802
  1. ;;9002226.02101,"1033,67296011803 ",.01)
  1. ;;67296011803
  1. ;;9002226.02101,"1033,67296011803 ",.02)
  1. ;;67296011803
  1. ;;9002226.02101,"1033,67296011804 ",.01)
  1. ;;67296011804
  1. ;;9002226.02101,"1033,67296011804 ",.02)
  1. ;;67296011804
  1. ;;9002226.02101,"1033,67296011805 ",.01)
  1. ;;67296011805
  1. ;;9002226.02101,"1033,67296011805 ",.02)
  1. ;;67296011805
  1. ;;9002226.02101,"1033,67296012201 ",.01)
  1. ;;67296012201
  1. ;;9002226.02101,"1033,67296012201 ",.02)
  1. ;;67296012201
  1. ;;9002226.02101,"1033,67296012301 ",.01)
  1. ;;67296012301
  1. ;;9002226.02101,"1033,67296012301 ",.02)
  1. ;;67296012301
  1. ;;9002226.02101,"1033,67296014101 ",.01)
  1. ;;67296014101
  1. ;;9002226.02101,"1033,67296014101 ",.02)
  1. ;;67296014101
  1. ;;9002226.02101,"1033,67296014401 ",.01)
  1. ;;67296014401
  1. ;;9002226.02101,"1033,67296014401 ",.02)
  1. ;;67296014401
  1. ;;9002226.02101,"1033,67296017301 ",.01)
  1. ;;67296017301
  1. ;;9002226.02101,"1033,67296017301 ",.02)
  1. ;;67296017301
  1. ;;9002226.02101,"1033,67296017601 ",.01)
  1. ;;67296017601
  1. ;;9002226.02101,"1033,67296017601 ",.02)
  1. ;;67296017601
  1. ;;9002226.02101,"1033,67296017602 ",.01)
  1. ;;67296017602
  1. ;;9002226.02101,"1033,67296017602 ",.02)
  1. ;;67296017602
  1. ;;9002226.02101,"1033,67296017603 ",.01)
  1. ;;67296017603
  1. ;;9002226.02101,"1033,67296017603 ",.02)
  1. ;;67296017603
  1. ;;9002226.02101,"1033,67296018602 ",.01)
  1. ;;67296018602
  1. ;;9002226.02101,"1033,67296018602 ",.02)
  1. ;;67296018602
  1. ;;9002226.02101,"1033,67296019201 ",.01)
  1. ;;67296019201
  1. ;;9002226.02101,"1033,67296019201 ",.02)
  1. ;;67296019201
  1. ;;9002226.02101,"1033,67296020301 ",.01)
  1. ;;67296020301
  1. ;;9002226.02101,"1033,67296020301 ",.02)
  1. ;;67296020301
  1. ;;9002226.02101,"1033,67296020302 ",.01)
  1. ;;67296020302
  1. ;;9002226.02101,"1033,67296020302 ",.02)
  1. ;;67296020302
  1. ;;9002226.02101,"1033,67296021002 ",.01)
  1. ;;67296021002
  1. ;;9002226.02101,"1033,67296021002 ",.02)
  1. ;;67296021002
  1. ;;9002226.02101,"1033,67296021003 ",.01)
  1. ;;67296021003
  1. ;;9002226.02101,"1033,67296021003 ",.02)
  1. ;;67296021003
  1. ;;9002226.02101,"1033,67296021004 ",.01)
  1. ;;67296021004
  1. ;;9002226.02101,"1033,67296021004 ",.02)
  1. ;;67296021004
  1. ;;9002226.02101,"1033,67296021005 ",.01)
  1. ;;67296021005
  1. ;;9002226.02101,"1033,67296021005 ",.02)
  1. ;;67296021005
  1. ;;9002226.02101,"1033,67296021301 ",.01)
  1. ;;67296021301
  1. ;;9002226.02101,"1033,67296021301 ",.02)
  1. ;;67296021301
  1. ;;9002226.02101,"1033,67296022001 ",.01)
  1. ;;67296022001
  1. ;;9002226.02101,"1033,67296022001 ",.02)
  1. ;;67296022001
  1. ;;9002226.02101,"1033,67296022002 ",.01)
  1. ;;67296022002
  1. ;;9002226.02101,"1033,67296022002 ",.02)
  1. ;;67296022002
  1. ;;9002226.02101,"1033,67296022003 ",.01)
  1. ;;67296022003
  1. ;;9002226.02101,"1033,67296022003 ",.02)
  1. ;;67296022003
  1. ;;9002226.02101,"1033,67296022004 ",.01)
  1. ;;67296022004
  1. ;;9002226.02101,"1033,67296022004 ",.02)
  1. ;;67296022004
  1. ;;9002226.02101,"1033,67296022005 ",.01)
  1. ;;67296022005
  1. ;;9002226.02101,"1033,67296022005 ",.02)
  1. ;;67296022005
  1. ;;9002226.02101,"1033,67296022401 ",.01)
  1. ;;67296022401
  1. ;;9002226.02101,"1033,67296022401 ",.02)
  1. ;;67296022401
  1. ;;9002226.02101,"1033,67296022701 ",.01)
  1. ;;67296022701
  1. ;;9002226.02101,"1033,67296022701 ",.02)
  1. ;;67296022701
  1. ;;9002226.02101,"1033,67296022702 ",.01)
  1. ;;67296022702
  1. ;;9002226.02101,"1033,67296022702 ",.02)
  1. ;;67296022702
  1. ;;9002226.02101,"1033,67296022703 ",.01)
  1. ;;67296022703
  1. ;;9002226.02101,"1033,67296022703 ",.02)
  1. ;;67296022703
  1. ;;9002226.02101,"1033,67296022704 ",.01)
  1. ;;67296022704
  1. ;;9002226.02101,"1033,67296022704 ",.02)
  1. ;;67296022704
  1. ;;9002226.02101,"1033,67296022705 ",.01)
  1. ;;67296022705
  1. ;;9002226.02101,"1033,67296022705 ",.02)
  1. ;;67296022705
  1. ;;9002226.02101,"1033,67296023701 ",.01)
  1. ;;67296023701
  1. ;;9002226.02101,"1033,67296023701 ",.02)
  1. ;;67296023701
  1. ;;9002226.02101,"1033,67296023702 ",.01)
  1. ;;67296023702
  1. ;;9002226.02101,"1033,67296023702 ",.02)
  1. ;;67296023702
  1. ;;9002226.02101,"1033,67296023703 ",.01)
  1. ;;67296023703
  1. ;;9002226.02101,"1033,67296023703 ",.02)
  1. ;;67296023703
  1. ;;9002226.02101,"1033,67296024601 ",.01)
  1. ;;67296024601
  1. ;;9002226.02101,"1033,67296024601 ",.02)
  1. ;;67296024601
  1. ;;9002226.02101,"1033,67296024602 ",.01)
  1. ;;67296024602
  1. ;;9002226.02101,"1033,67296024602 ",.02)
  1. ;;67296024602