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

BGPM5AER.m

Go to the documentation of this file.
  1. BGPM5AER ;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,"881,54458099309 ",.01)
  1. ;;54458099309
  1. ;;9002226.02101,"881,54458099309 ",.02)
  1. ;;54458099309
  1. ;;9002226.02101,"881,54458099410 ",.01)
  1. ;;54458099410
  1. ;;9002226.02101,"881,54458099410 ",.02)
  1. ;;54458099410
  1. ;;9002226.02101,"881,54458099510 ",.01)
  1. ;;54458099510
  1. ;;9002226.02101,"881,54458099510 ",.02)
  1. ;;54458099510
  1. ;;9002226.02101,"881,54458099610 ",.01)
  1. ;;54458099610
  1. ;;9002226.02101,"881,54458099610 ",.02)
  1. ;;54458099610
  1. ;;9002226.02101,"881,54458099710 ",.01)
  1. ;;54458099710
  1. ;;9002226.02101,"881,54458099710 ",.02)
  1. ;;54458099710
  1. ;;9002226.02101,"881,54458099809 ",.01)
  1. ;;54458099809
  1. ;;9002226.02101,"881,54458099809 ",.02)
  1. ;;54458099809
  1. ;;9002226.02101,"881,54458099909 ",.01)
  1. ;;54458099909
  1. ;;9002226.02101,"881,54458099909 ",.02)
  1. ;;54458099909
  1. ;;9002226.02101,"881,54569424600 ",.01)
  1. ;;54569424600
  1. ;;9002226.02101,"881,54569424600 ",.02)
  1. ;;54569424600
  1. ;;9002226.02101,"881,54569424601 ",.01)
  1. ;;54569424601
  1. ;;9002226.02101,"881,54569424601 ",.02)
  1. ;;54569424601
  1. ;;9002226.02101,"881,54569424603 ",.01)
  1. ;;54569424603
  1. ;;9002226.02101,"881,54569424603 ",.02)
  1. ;;54569424603
  1. ;;9002226.02101,"881,54569424604 ",.01)
  1. ;;54569424604
  1. ;;9002226.02101,"881,54569424604 ",.02)
  1. ;;54569424604
  1. ;;9002226.02101,"881,54569424605 ",.01)
  1. ;;54569424605
  1. ;;9002226.02101,"881,54569424605 ",.02)
  1. ;;54569424605
  1. ;;9002226.02101,"881,54569424700 ",.01)
  1. ;;54569424700
  1. ;;9002226.02101,"881,54569424700 ",.02)
  1. ;;54569424700
  1. ;;9002226.02101,"881,54569424702 ",.01)
  1. ;;54569424702
  1. ;;9002226.02101,"881,54569424702 ",.02)
  1. ;;54569424702
  1. ;;9002226.02101,"881,54569424703 ",.01)
  1. ;;54569424703
  1. ;;9002226.02101,"881,54569424703 ",.02)
  1. ;;54569424703
  1. ;;9002226.02101,"881,54569459300 ",.01)
  1. ;;54569459300
  1. ;;9002226.02101,"881,54569459300 ",.02)
  1. ;;54569459300
  1. ;;9002226.02101,"881,54569459301 ",.01)
  1. ;;54569459301
  1. ;;9002226.02101,"881,54569459301 ",.02)
  1. ;;54569459301
  1. ;;9002226.02101,"881,54569513300 ",.01)
  1. ;;54569513300
  1. ;;9002226.02101,"881,54569513300 ",.02)
  1. ;;54569513300
  1. ;;9002226.02101,"881,54569513301 ",.01)
  1. ;;54569513301
  1. ;;9002226.02101,"881,54569513301 ",.02)
  1. ;;54569513301
  1. ;;9002226.02101,"881,54569513400 ",.01)
  1. ;;54569513400
  1. ;;9002226.02101,"881,54569513400 ",.02)
  1. ;;54569513400
  1. ;;9002226.02101,"881,54569513401 ",.01)
  1. ;;54569513401
  1. ;;9002226.02101,"881,54569513401 ",.02)
  1. ;;54569513401
  1. ;;9002226.02101,"881,54569513402 ",.01)
  1. ;;54569513402
  1. ;;9002226.02101,"881,54569513402 ",.02)
  1. ;;54569513402
  1. ;;9002226.02101,"881,54569513500 ",.01)
  1. ;;54569513500
  1. ;;9002226.02101,"881,54569513500 ",.02)
  1. ;;54569513500
  1. ;;9002226.02101,"881,54569513501 ",.01)
  1. ;;54569513501
  1. ;;9002226.02101,"881,54569513501 ",.02)
  1. ;;54569513501
  1. ;;9002226.02101,"881,54569543400 ",.01)
  1. ;;54569543400
  1. ;;9002226.02101,"881,54569543400 ",.02)
  1. ;;54569543400
  1. ;;9002226.02101,"881,54569543403 ",.01)
  1. ;;54569543403
  1. ;;9002226.02101,"881,54569543403 ",.02)
  1. ;;54569543403
  1. ;;9002226.02101,"881,54569543404 ",.01)
  1. ;;54569543404
  1. ;;9002226.02101,"881,54569543404 ",.02)
  1. ;;54569543404
  1. ;;9002226.02101,"881,54569543405 ",.01)
  1. ;;54569543405
  1. ;;9002226.02101,"881,54569543405 ",.02)
  1. ;;54569543405
  1. ;;9002226.02101,"881,54569543500 ",.01)
  1. ;;54569543500
  1. ;;9002226.02101,"881,54569543500 ",.02)
  1. ;;54569543500
  1. ;;9002226.02101,"881,54569543503 ",.01)
  1. ;;54569543503
  1. ;;9002226.02101,"881,54569543503 ",.02)
  1. ;;54569543503
  1. ;;9002226.02101,"881,54569543504 ",.01)
  1. ;;54569543504
  1. ;;9002226.02101,"881,54569543504 ",.02)
  1. ;;54569543504
  1. ;;9002226.02101,"881,54569543505 ",.01)
  1. ;;54569543505
  1. ;;9002226.02101,"881,54569543505 ",.02)
  1. ;;54569543505
  1. ;;9002226.02101,"881,54569543700 ",.01)
  1. ;;54569543700
  1. ;;9002226.02101,"881,54569543700 ",.02)
  1. ;;54569543700
  1. ;;9002226.02101,"881,54569543702 ",.01)
  1. ;;54569543702
  1. ;;9002226.02101,"881,54569543702 ",.02)
  1. ;;54569543702
  1. ;;9002226.02101,"881,54569543800 ",.01)
  1. ;;54569543800
  1. ;;9002226.02101,"881,54569543800 ",.02)
  1. ;;54569543800
  1. ;;9002226.02101,"881,54569543803 ",.01)
  1. ;;54569543803
  1. ;;9002226.02101,"881,54569543803 ",.02)
  1. ;;54569543803
  1. ;;9002226.02101,"881,54569547200 ",.01)
  1. ;;54569547200
  1. ;;9002226.02101,"881,54569547200 ",.02)
  1. ;;54569547200
  1. ;;9002226.02101,"881,54569547202 ",.01)
  1. ;;54569547202
  1. ;;9002226.02101,"881,54569547202 ",.02)
  1. ;;54569547202
  1. ;;9002226.02101,"881,54569562100 ",.01)
  1. ;;54569562100
  1. ;;9002226.02101,"881,54569562100 ",.02)
  1. ;;54569562100
  1. ;;9002226.02101,"881,54569570900 ",.01)
  1. ;;54569570900
  1. ;;9002226.02101,"881,54569570900 ",.02)
  1. ;;54569570900
  1. ;;9002226.02101,"881,54569571000 ",.01)
  1. ;;54569571000
  1. ;;9002226.02101,"881,54569571000 ",.02)
  1. ;;54569571000
  1. ;;9002226.02101,"881,54569571100 ",.01)
  1. ;;54569571100
  1. ;;9002226.02101,"881,54569571100 ",.02)
  1. ;;54569571100
  1. ;;9002226.02101,"881,54569572800 ",.01)
  1. ;;54569572800
  1. ;;9002226.02101,"881,54569572800 ",.02)
  1. ;;54569572800
  1. ;;9002226.02101,"881,54569591600 ",.01)
  1. ;;54569591600
  1. ;;9002226.02101,"881,54569591600 ",.02)
  1. ;;54569591600
  1. ;;9002226.02101,"881,54569609100 ",.01)
  1. ;;54569609100
  1. ;;9002226.02101,"881,54569609100 ",.02)
  1. ;;54569609100
  1. ;;9002226.02101,"881,54569609101 ",.01)
  1. ;;54569609101
  1. ;;9002226.02101,"881,54569609101 ",.02)
  1. ;;54569609101
  1. ;;9002226.02101,"881,54569609200 ",.01)
  1. ;;54569609200
  1. ;;9002226.02101,"881,54569609200 ",.02)
  1. ;;54569609200
  1. ;;9002226.02101,"881,54569609201 ",.01)
  1. ;;54569609201
  1. ;;9002226.02101,"881,54569609201 ",.02)
  1. ;;54569609201
  1. ;;9002226.02101,"881,54569609800 ",.01)
  1. ;;54569609800
  1. ;;9002226.02101,"881,54569609800 ",.02)
  1. ;;54569609800
  1. ;;9002226.02101,"881,54569611100 ",.01)
  1. ;;54569611100
  1. ;;9002226.02101,"881,54569611100 ",.02)
  1. ;;54569611100
  1. ;;9002226.02101,"881,54569611200 ",.01)
  1. ;;54569611200
  1. ;;9002226.02101,"881,54569611200 ",.02)
  1. ;;54569611200
  1. ;;9002226.02101,"881,54868180200 ",.01)
  1. ;;54868180200
  1. ;;9002226.02101,"881,54868180200 ",.02)
  1. ;;54868180200
  1. ;;9002226.02101,"881,54868284700 ",.01)
  1. ;;54868284700
  1. ;;9002226.02101,"881,54868284700 ",.02)
  1. ;;54868284700
  1. ;;9002226.02101,"881,54868284701 ",.01)
  1. ;;54868284701
  1. ;;9002226.02101,"881,54868284701 ",.02)
  1. ;;54868284701
  1. ;;9002226.02101,"881,54868344300 ",.01)
  1. ;;54868344300
  1. ;;9002226.02101,"881,54868344300 ",.02)
  1. ;;54868344300
  1. ;;9002226.02101,"881,54868344301 ",.01)
  1. ;;54868344301
  1. ;;9002226.02101,"881,54868344301 ",.02)
  1. ;;54868344301
  1. ;;9002226.02101,"881,54868372301 ",.01)
  1. ;;54868372301
  1. ;;9002226.02101,"881,54868372301 ",.02)
  1. ;;54868372301
  1. ;;9002226.02101,"881,54868372302 ",.01)
  1. ;;54868372302
  1. ;;9002226.02101,"881,54868372302 ",.02)
  1. ;;54868372302
  1. ;;9002226.02101,"881,54868372303 ",.01)
  1. ;;54868372303
  1. ;;9002226.02101,"881,54868372303 ",.02)
  1. ;;54868372303
  1. ;;9002226.02101,"881,54868372304 ",.01)
  1. ;;54868372304
  1. ;;9002226.02101,"881,54868372304 ",.02)
  1. ;;54868372304
  1. ;;9002226.02101,"881,54868372305 ",.01)
  1. ;;54868372305
  1. ;;9002226.02101,"881,54868372305 ",.02)
  1. ;;54868372305
  1. ;;9002226.02101,"881,54868372401 ",.01)
  1. ;;54868372401
  1. ;;9002226.02101,"881,54868372401 ",.02)
  1. ;;54868372401
  1. ;;9002226.02101,"881,54868372402 ",.01)
  1. ;;54868372402
  1. ;;9002226.02101,"881,54868372402 ",.02)
  1. ;;54868372402
  1. ;;9002226.02101,"881,54868372403 ",.01)
  1. ;;54868372403
  1. ;;9002226.02101,"881,54868372403 ",.02)
  1. ;;54868372403
  1. ;;9002226.02101,"881,54868372404 ",.01)
  1. ;;54868372404
  1. ;;9002226.02101,"881,54868372404 ",.02)
  1. ;;54868372404
  1. ;;9002226.02101,"881,54868372501 ",.01)
  1. ;;54868372501
  1. ;;9002226.02101,"881,54868372501 ",.02)
  1. ;;54868372501
  1. ;;9002226.02101,"881,54868372502 ",.01)
  1. ;;54868372502
  1. ;;9002226.02101,"881,54868372502 ",.02)
  1. ;;54868372502
  1. ;;9002226.02101,"881,54868372503 ",.01)
  1. ;;54868372503
  1. ;;9002226.02101,"881,54868372503 ",.02)
  1. ;;54868372503
  1. ;;9002226.02101,"881,54868372504 ",.01)
  1. ;;54868372504
  1. ;;9002226.02101,"881,54868372504 ",.02)
  1. ;;54868372504
  1. ;;9002226.02101,"881,54868406200 ",.01)
  1. ;;54868406200
  1. ;;9002226.02101,"881,54868406200 ",.02)
  1. ;;54868406200
  1. ;;9002226.02101,"881,54868406201 ",.01)
  1. ;;54868406201
  1. ;;9002226.02101,"881,54868406201 ",.02)
  1. ;;54868406201
  1. ;;9002226.02101,"881,54868433100 ",.01)
  1. ;;54868433100
  1. ;;9002226.02101,"881,54868433100 ",.02)
  1. ;;54868433100
  1. ;;9002226.02101,"881,54868433101 ",.01)
  1. ;;54868433101
  1. ;;9002226.02101,"881,54868433101 ",.02)
  1. ;;54868433101
  1. ;;9002226.02101,"881,54868433102 ",.01)
  1. ;;54868433102
  1. ;;9002226.02101,"881,54868433102 ",.02)
  1. ;;54868433102
  1. ;;9002226.02101,"881,54868433200 ",.01)
  1. ;;54868433200
  1. ;;9002226.02101,"881,54868433200 ",.02)
  1. ;;54868433200
  1. ;;9002226.02101,"881,54868433201 ",.01)
  1. ;;54868433201
  1. ;;9002226.02101,"881,54868433201 ",.02)
  1. ;;54868433201
  1. ;;9002226.02101,"881,54868433202 ",.01)
  1. ;;54868433202
  1. ;;9002226.02101,"881,54868433202 ",.02)
  1. ;;54868433202
  1. ;;9002226.02101,"881,54868435700 ",.01)
  1. ;;54868435700
  1. ;;9002226.02101,"881,54868435700 ",.02)
  1. ;;54868435700
  1. ;;9002226.02101,"881,54868435701 ",.01)
  1. ;;54868435701
  1. ;;9002226.02101,"881,54868435701 ",.02)
  1. ;;54868435701
  1. ;;9002226.02101,"881,54868435702 ",.01)
  1. ;;54868435702
  1. ;;9002226.02101,"881,54868435702 ",.02)
  1. ;;54868435702
  1. ;;9002226.02101,"881,54868435703 ",.01)
  1. ;;54868435703
  1. ;;9002226.02101,"881,54868435703 ",.02)
  1. ;;54868435703
  1. ;;9002226.02101,"881,54868435800 ",.01)
  1. ;;54868435800
  1. ;;9002226.02101,"881,54868435800 ",.02)
  1. ;;54868435800
  1. ;;9002226.02101,"881,54868435801 ",.01)
  1. ;;54868435801
  1. ;;9002226.02101,"881,54868435801 ",.02)
  1. ;;54868435801
  1. ;;9002226.02101,"881,54868435802 ",.01)
  1. ;;54868435802
  1. ;;9002226.02101,"881,54868435802 ",.02)
  1. ;;54868435802
  1. ;;9002226.02101,"881,54868435803 ",.01)
  1. ;;54868435803
  1. ;;9002226.02101,"881,54868435803 ",.02)
  1. ;;54868435803
  1. ;;9002226.02101,"881,54868463700 ",.01)
  1. ;;54868463700
  1. ;;9002226.02101,"881,54868463700 ",.02)
  1. ;;54868463700
  1. ;;9002226.02101,"881,54868463701 ",.01)
  1. ;;54868463701
  1. ;;9002226.02101,"881,54868463701 ",.02)
  1. ;;54868463701
  1. ;;9002226.02101,"881,54868463702 ",.01)
  1. ;;54868463702
  1. ;;9002226.02101,"881,54868463702 ",.02)
  1. ;;54868463702
  1. ;;9002226.02101,"881,54868463703 ",.01)
  1. ;;54868463703
  1. ;;9002226.02101,"881,54868463703 ",.02)
  1. ;;54868463703
  1. ;;9002226.02101,"881,54868463704 ",.01)
  1. ;;54868463704
  1. ;;9002226.02101,"881,54868463704 ",.02)
  1. ;;54868463704
  1. ;;9002226.02101,"881,54868464600 ",.01)
  1. ;;54868464600
  1. ;;9002226.02101,"881,54868464600 ",.02)
  1. ;;54868464600
  1. ;;9002226.02101,"881,54868464601 ",.01)
  1. ;;54868464601
  1. ;;9002226.02101,"881,54868464601 ",.02)
  1. ;;54868464601
  1. ;;9002226.02101,"881,54868464602 ",.01)
  1. ;;54868464602
  1. ;;9002226.02101,"881,54868464602 ",.02)
  1. ;;54868464602
  1. ;;9002226.02101,"881,54868464603 ",.01)
  1. ;;54868464603
  1. ;;9002226.02101,"881,54868464603 ",.02)
  1. ;;54868464603
  1. ;;9002226.02101,"881,54868464604 ",.01)
  1. ;;54868464604
  1. ;;9002226.02101,"881,54868464604 ",.02)
  1. ;;54868464604
  1. ;;9002226.02101,"881,54868464605 ",.01)
  1. ;;54868464605
  1. ;;9002226.02101,"881,54868464605 ",.02)
  1. ;;54868464605
  1. ;;9002226.02101,"881,54868465600 ",.01)
  1. ;;54868465600
  1. ;;9002226.02101,"881,54868465600 ",.02)
  1. ;;54868465600
  1. ;;9002226.02101,"881,54868465601 ",.01)
  1. ;;54868465601
  1. ;;9002226.02101,"881,54868465601 ",.02)
  1. ;;54868465601
  1. ;;9002226.02101,"881,54868465602 ",.01)
  1. ;;54868465602
  1. ;;9002226.02101,"881,54868465602 ",.02)
  1. ;;54868465602
  1. ;;9002226.02101,"881,54868465603 ",.01)
  1. ;;54868465603
  1. ;;9002226.02101,"881,54868465603 ",.02)
  1. ;;54868465603
  1. ;;9002226.02101,"881,54868465700 ",.01)
  1. ;;54868465700
  1. ;;9002226.02101,"881,54868465700 ",.02)
  1. ;;54868465700
  1. ;;9002226.02101,"881,54868465701 ",.01)
  1. ;;54868465701
  1. ;;9002226.02101,"881,54868465701 ",.02)
  1. ;;54868465701