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