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

BGPM5AME.m

Go to the documentation of this file.
BGPM5AME ;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,"900,62022063030 ",.01)
 ;;62022063030
 ;;9002226.02101,"900,62022063030 ",.02)
 ;;62022063030
 ;;9002226.02101,"900,62037063007 ",.01)
 ;;62037063007
 ;;9002226.02101,"900,62037063007 ",.02)
 ;;62037063007
 ;;9002226.02101,"900,62037063030 ",.01)
 ;;62037063030
 ;;9002226.02101,"900,62037063030 ",.02)
 ;;62037063030
 ;;9002226.02101,"900,62037079101 ",.01)
 ;;62037079101
 ;;9002226.02101,"900,62037079101 ",.02)
 ;;62037079101
 ;;9002226.02101,"900,62037079160 ",.01)
 ;;62037079160
 ;;9002226.02101,"900,62037079160 ",.02)
 ;;62037079160
 ;;9002226.02101,"900,62037079201 ",.01)
 ;;62037079201
 ;;9002226.02101,"900,62037079201 ",.02)
 ;;62037079201
 ;;9002226.02101,"900,62037079205 ",.01)
 ;;62037079205
 ;;9002226.02101,"900,62037079205 ",.02)
 ;;62037079205
 ;;9002226.02101,"900,62037079210 ",.01)
 ;;62037079210
 ;;9002226.02101,"900,62037079210 ",.02)
 ;;62037079210
 ;;9002226.02101,"900,62037079260 ",.01)
 ;;62037079260
 ;;9002226.02101,"900,62037079260 ",.02)
 ;;62037079260
 ;;9002226.02101,"900,62037079301 ",.01)
 ;;62037079301
 ;;9002226.02101,"900,62037079301 ",.02)
 ;;62037079301
 ;;9002226.02101,"900,62037079305 ",.01)
 ;;62037079305
 ;;9002226.02101,"900,62037079305 ",.02)
 ;;62037079305
 ;;9002226.02101,"900,62037079310 ",.01)
 ;;62037079310
 ;;9002226.02101,"900,62037079310 ",.02)
 ;;62037079310
 ;;9002226.02101,"900,62037079360 ",.01)
 ;;62037079360
 ;;9002226.02101,"900,62037079360 ",.02)
 ;;62037079360
 ;;9002226.02101,"900,62301005252 ",.01)
 ;;62301005252
 ;;9002226.02101,"900,62301005252 ",.02)
 ;;62301005252
 ;;9002226.02101,"900,62318003404 ",.01)
 ;;62318003404
 ;;9002226.02101,"900,62318003404 ",.02)
 ;;62318003404
 ;;9002226.02101,"900,62318003408 ",.01)
 ;;62318003408
 ;;9002226.02101,"900,62318003408 ",.02)
 ;;62318003408
 ;;9002226.02101,"900,62584009250 ",.01)
 ;;62584009250
 ;;9002226.02101,"900,62584009250 ",.02)
 ;;62584009250
 ;;9002226.02101,"900,63126028110 ",.01)
 ;;63126028110
 ;;9002226.02101,"900,63126028110 ",.02)
 ;;63126028110
 ;;9002226.02101,"900,63126028160 ",.01)
 ;;63126028160
 ;;9002226.02101,"900,63126028160 ",.02)
 ;;63126028160
 ;;9002226.02101,"900,63126028210 ",.01)
 ;;63126028210
 ;;9002226.02101,"900,63126028210 ",.02)
 ;;63126028210
 ;;9002226.02101,"900,63126028260 ",.01)
 ;;63126028260
 ;;9002226.02101,"900,63126028260 ",.02)
 ;;63126028260
 ;;9002226.02101,"900,63126028310 ",.01)
 ;;63126028310
 ;;9002226.02101,"900,63126028310 ",.02)
 ;;63126028310
 ;;9002226.02101,"900,63126028360 ",.01)
 ;;63126028360
 ;;9002226.02101,"900,63126028360 ",.02)
 ;;63126028360
 ;;9002226.02101,"900,63539021507 ",.01)
 ;;63539021507
 ;;9002226.02101,"900,63539021507 ",.02)
 ;;63539021507
 ;;9002226.02101,"900,63539021530 ",.01)
 ;;63539021530
 ;;9002226.02101,"900,63539021530 ",.02)
 ;;63539021530
 ;;9002226.02101,"900,63539021557 ",.01)
 ;;63539021557
 ;;9002226.02101,"900,63539021557 ",.02)
 ;;63539021557
 ;;9002226.02101,"900,63539021587 ",.01)
 ;;63539021587
 ;;9002226.02101,"900,63539021587 ",.02)
 ;;63539021587
 ;;9002226.02101,"900,63539021607 ",.01)
 ;;63539021607
 ;;9002226.02101,"900,63539021607 ",.02)
 ;;63539021607
 ;;9002226.02101,"900,63539021687 ",.01)
 ;;63539021687
 ;;9002226.02101,"900,63539021687 ",.02)
 ;;63539021687
 ;;9002226.02101,"900,63539021707 ",.01)
 ;;63539021707
 ;;9002226.02101,"900,63539021707 ",.02)
 ;;63539021707
 ;;9002226.02101,"900,63539021730 ",.01)
 ;;63539021730
 ;;9002226.02101,"900,63539021730 ",.02)
 ;;63539021730
 ;;9002226.02101,"900,63539021787 ",.01)
 ;;63539021787
 ;;9002226.02101,"900,63539021787 ",.02)
 ;;63539021787
 ;;9002226.02101,"900,63539021807 ",.01)
 ;;63539021807
 ;;9002226.02101,"900,63539021807 ",.02)
 ;;63539021807
 ;;9002226.02101,"900,63539021830 ",.01)
 ;;63539021830
 ;;9002226.02101,"900,63539021830 ",.02)
 ;;63539021830
 ;;9002226.02101,"900,63539021857 ",.01)
 ;;63539021857
 ;;9002226.02101,"900,63539021857 ",.02)
 ;;63539021857
 ;;9002226.02101,"900,63539021887 ",.01)
 ;;63539021887
 ;;9002226.02101,"900,63539021887 ",.02)
 ;;63539021887
 ;;9002226.02101,"900,63539021907 ",.01)
 ;;63539021907
 ;;9002226.02101,"900,63539021907 ",.02)
 ;;63539021907
 ;;9002226.02101,"900,63539021930 ",.01)
 ;;63539021930
 ;;9002226.02101,"900,63539021930 ",.02)
 ;;63539021930
 ;;9002226.02101,"900,63539021957 ",.01)
 ;;63539021957
 ;;9002226.02101,"900,63539021957 ",.02)
 ;;63539021957
 ;;9002226.02101,"900,63539021987 ",.01)
 ;;63539021987
 ;;9002226.02101,"900,63539021987 ",.02)
 ;;63539021987
 ;;9002226.02101,"900,63539022501 ",.01)
 ;;63539022501
 ;;9002226.02101,"900,63539022501 ",.02)
 ;;63539022501
 ;;9002226.02101,"900,63629139001 ",.01)
 ;;63629139001
 ;;9002226.02101,"900,63629139001 ",.02)
 ;;63629139001
 ;;9002226.02101,"900,63629139002 ",.01)
 ;;63629139002
 ;;9002226.02101,"900,63629139002 ",.02)
 ;;63629139002
 ;;9002226.02101,"900,63629139003 ",.01)
 ;;63629139003
 ;;9002226.02101,"900,63629139003 ",.02)
 ;;63629139003
 ;;9002226.02101,"900,63629144601 ",.01)
 ;;63629144601
 ;;9002226.02101,"900,63629144601 ",.02)
 ;;63629144601
 ;;9002226.02101,"900,63629144602 ",.01)
 ;;63629144602
 ;;9002226.02101,"900,63629144602 ",.02)
 ;;63629144602
 ;;9002226.02101,"900,63629144701 ",.01)
 ;;63629144701
 ;;9002226.02101,"900,63629144701 ",.02)
 ;;63629144701
 ;;9002226.02101,"900,63629146401 ",.01)
 ;;63629146401
 ;;9002226.02101,"900,63629146401 ",.02)
 ;;63629146401
 ;;9002226.02101,"900,63629146402 ",.01)
 ;;63629146402
 ;;9002226.02101,"900,63629146402 ",.02)
 ;;63629146402
 ;;9002226.02101,"900,63629146403 ",.01)
 ;;63629146403
 ;;9002226.02101,"900,63629146403 ",.02)
 ;;63629146403
 ;;9002226.02101,"900,63629178401 ",.01)
 ;;63629178401
 ;;9002226.02101,"900,63629178401 ",.02)
 ;;63629178401
 ;;9002226.02101,"900,63629178402 ",.01)
 ;;63629178402
 ;;9002226.02101,"900,63629178402 ",.02)
 ;;63629178402
 ;;9002226.02101,"900,63629336601 ",.01)
 ;;63629336601
 ;;9002226.02101,"900,63629336601 ",.02)
 ;;63629336601
 ;;9002226.02101,"900,63629336602 ",.01)
 ;;63629336602
 ;;9002226.02101,"900,63629336602 ",.02)
 ;;63629336602
 ;;9002226.02101,"900,63629336603 ",.01)
 ;;63629336603
 ;;9002226.02101,"900,63629336603 ",.02)
 ;;63629336603
 ;;9002226.02101,"900,63629336604 ",.01)
 ;;63629336604
 ;;9002226.02101,"900,63629336604 ",.02)
 ;;63629336604
 ;;9002226.02101,"900,63629338101 ",.01)
 ;;63629338101
 ;;9002226.02101,"900,63629338101 ",.02)
 ;;63629338101
 ;;9002226.02101,"900,63629338102 ",.01)
 ;;63629338102
 ;;9002226.02101,"900,63629338102 ",.02)
 ;;63629338102
 ;;9002226.02101,"900,63629338103 ",.01)
 ;;63629338103
 ;;9002226.02101,"900,63629338103 ",.02)
 ;;63629338103
 ;;9002226.02101,"900,63629338104 ",.01)
 ;;63629338104
 ;;9002226.02101,"900,63629338104 ",.02)
 ;;63629338104
 ;;9002226.02101,"900,63629358301 ",.01)
 ;;63629358301
 ;;9002226.02101,"900,63629358301 ",.02)
 ;;63629358301
 ;;9002226.02101,"900,63629358302 ",.01)
 ;;63629358302
 ;;9002226.02101,"900,63629358302 ",.02)
 ;;63629358302
 ;;9002226.02101,"900,63629437201 ",.01)
 ;;63629437201
 ;;9002226.02101,"900,63629437201 ",.02)
 ;;63629437201
 ;;9002226.02101,"900,63739028101 ",.01)
 ;;63739028101
 ;;9002226.02101,"900,63739028101 ",.02)
 ;;63739028101
 ;;9002226.02101,"900,63739028110 ",.01)
 ;;63739028110
 ;;9002226.02101,"900,63739028110 ",.02)
 ;;63739028110
 ;;9002226.02101,"900,63739028201 ",.01)
 ;;63739028201
 ;;9002226.02101,"900,63739028201 ",.02)
 ;;63739028201
 ;;9002226.02101,"900,63739028210 ",.01)
 ;;63739028210
 ;;9002226.02101,"900,63739028210 ",.02)
 ;;63739028210
 ;;9002226.02101,"900,63874031990 ",.01)
 ;;63874031990
 ;;9002226.02101,"900,63874031990 ",.02)
 ;;63874031990
 ;;9002226.02101,"900,63874036301 ",.01)
 ;;63874036301
 ;;9002226.02101,"900,63874036301 ",.02)
 ;;63874036301
 ;;9002226.02101,"900,63874036310 ",.01)
 ;;63874036310
 ;;9002226.02101,"900,63874036310 ",.02)
 ;;63874036310
 ;;9002226.02101,"900,63874036320 ",.01)
 ;;63874036320
 ;;9002226.02101,"900,63874036320 ",.02)
 ;;63874036320
 ;;9002226.02101,"900,63874036330 ",.01)
 ;;63874036330
 ;;9002226.02101,"900,63874036330 ",.02)
 ;;63874036330
 ;;9002226.02101,"900,63874036360 ",.01)
 ;;63874036360
 ;;9002226.02101,"900,63874036360 ",.02)
 ;;63874036360
 ;;9002226.02101,"900,63874036390 ",.01)
 ;;63874036390
 ;;9002226.02101,"900,63874036390 ",.02)
 ;;63874036390
 ;;9002226.02101,"900,63874058901 ",.01)
 ;;63874058901
 ;;9002226.02101,"900,63874058901 ",.02)
 ;;63874058901
 ;;9002226.02101,"900,63874058990 ",.01)
 ;;63874058990
 ;;9002226.02101,"900,63874058990 ",.02)
 ;;63874058990
 ;;9002226.02101,"900,63924000101 ",.01)
 ;;63924000101
 ;;9002226.02101,"900,63924000101 ",.02)
 ;;63924000101
 ;;9002226.02101,"900,63924000201 ",.01)
 ;;63924000201
 ;;9002226.02101,"900,63924000201 ",.02)
 ;;63924000201
 ;;9002226.02101,"900,63924000301 ",.01)
 ;;63924000301
 ;;9002226.02101,"900,63924000301 ",.02)
 ;;63924000301
 ;;9002226.02101,"900,63924000601 ",.01)
 ;;63924000601
 ;;9002226.02101,"900,63924000601 ",.02)
 ;;63924000601
 ;;9002226.02101,"900,63924004801 ",.01)
 ;;63924004801
 ;;9002226.02101,"900,63924004801 ",.02)
 ;;63924004801
 ;;9002226.02101,"900,63924014501 ",.01)
 ;;63924014501
 ;;9002226.02101,"900,63924014501 ",.02)
 ;;63924014501
 ;;9002226.02101,"900,64176041401 ",.01)
 ;;64176041401
 ;;9002226.02101,"900,64176041401 ",.02)
 ;;64176041401
 ;;9002226.02101,"900,64176041402 ",.01)
 ;;64176041402
 ;;9002226.02101,"900,64176041402 ",.02)
 ;;64176041402
 ;;9002226.02101,"900,64176041403 ",.01)
 ;;64176041403
 ;;9002226.02101,"900,64176041403 ",.02)
 ;;64176041403
 ;;9002226.02101,"900,64579005100 ",.01)
 ;;64579005100
 ;;9002226.02101,"900,64579005100 ",.02)
 ;;64579005100
 ;;9002226.02101,"900,64579005101 ",.01)
 ;;64579005101
 ;;9002226.02101,"900,64579005101 ",.02)
 ;;64579005101
 ;;9002226.02101,"900,64679090101 ",.01)
 ;;64679090101
 ;;9002226.02101,"900,64679090101 ",.02)
 ;;64679090101
 ;;9002226.02101,"900,64725014403 ",.01)
 ;;64725014403
 ;;9002226.02101,"900,64725014403 ",.02)
 ;;64725014403
 ;;9002226.02101,"900,64725019503 ",.01)
 ;;64725019503
 ;;9002226.02101,"900,64725019503 ",.02)
 ;;64725019503
 ;;9002226.02101,"900,64725019603 ",.01)
 ;;64725019603
 ;;9002226.02101,"900,64725019603 ",.02)
 ;;64725019603
 ;;9002226.02101,"900,64896051101 ",.01)
 ;;64896051101
 ;;9002226.02101,"900,64896051101 ",.02)
 ;;64896051101
 ;;9002226.02101,"900,64896052201 ",.01)
 ;;64896052201
 ;;9002226.02101,"900,64896052201 ",.02)
 ;;64896052201
 ;;9002226.02101,"900,64896053301 ",.01)
 ;;64896053301
 ;;9002226.02101,"900,64896053301 ",.02)
 ;;64896053301
 ;;9002226.02101,"900,65162041810 ",.01)
 ;;65162041810
 ;;9002226.02101,"900,65162041810 ",.02)
 ;;65162041810
 ;;9002226.02101,"900,65162041811 ",.01)
 ;;65162041811
 ;;9002226.02101,"900,65162041811 ",.02)
 ;;65162041811
 ;;9002226.02101,"900,65162042010 ",.01)
 ;;65162042010
 ;;9002226.02101,"900,65162042010 ",.02)
 ;;65162042010
 ;;9002226.02101,"900,65162042011 ",.01)
 ;;65162042011
 ;;9002226.02101,"900,65162042011 ",.02)
 ;;65162042011
 ;;9002226.02101,"900,65162042110 ",.01)
 ;;65162042110
 ;;9002226.02101,"900,65162042110 ",.02)
 ;;65162042110
 ;;9002226.02101,"900,65243003506 ",.01)
 ;;65243003506
 ;;9002226.02101,"900,65243003506 ",.02)
 ;;65243003506
 ;;9002226.02101,"900,65243003518 ",.01)
 ;;65243003518
 ;;9002226.02101,"900,65243003518 ",.02)
 ;;65243003518
 ;;9002226.02101,"900,65243004503 ",.01)
 ;;65243004503
 ;;9002226.02101,"900,65243004503 ",.02)
 ;;65243004503