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

BGPM5ASE.m

Go to the documentation of this file.
BGPM5ASE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,64455014330 ",.01)
 ;;64455014330
 ;;9002226.02101,"1005,64455014330 ",.02)
 ;;64455014330
 ;;9002226.02101,"1005,64455014390 ",.01)
 ;;64455014390
 ;;9002226.02101,"1005,64455014390 ",.02)
 ;;64455014390
 ;;9002226.02101,"1005,64455014501 ",.01)
 ;;64455014501
 ;;9002226.02101,"1005,64455014501 ",.02)
 ;;64455014501
 ;;9002226.02101,"1005,64455014601 ",.01)
 ;;64455014601
 ;;9002226.02101,"1005,64455014601 ",.02)
 ;;64455014601
 ;;9002226.02101,"1005,64579001300 ",.01)
 ;;64579001300
 ;;9002226.02101,"1005,64579001300 ",.02)
 ;;64579001300
 ;;9002226.02101,"1005,64579001301 ",.01)
 ;;64579001301
 ;;9002226.02101,"1005,64579001301 ",.02)
 ;;64579001301
 ;;9002226.02101,"1005,64579001400 ",.01)
 ;;64579001400
 ;;9002226.02101,"1005,64579001400 ",.02)
 ;;64579001400
 ;;9002226.02101,"1005,64579001420 ",.01)
 ;;64579001420
 ;;9002226.02101,"1005,64579001420 ",.02)
 ;;64579001420
 ;;9002226.02101,"1005,64579001500 ",.01)
 ;;64579001500
 ;;9002226.02101,"1005,64579001500 ",.02)
 ;;64579001500
 ;;9002226.02101,"1005,64579001501 ",.01)
 ;;64579001501
 ;;9002226.02101,"1005,64579001501 ",.02)
 ;;64579001501
 ;;9002226.02101,"1005,64579009400 ",.01)
 ;;64579009400
 ;;9002226.02101,"1005,64579009400 ",.02)
 ;;64579009400
 ;;9002226.02101,"1005,64579009401 ",.01)
 ;;64579009401
 ;;9002226.02101,"1005,64579009401 ",.02)
 ;;64579009401
 ;;9002226.02101,"1005,64579009500 ",.01)
 ;;64579009500
 ;;9002226.02101,"1005,64579009500 ",.02)
 ;;64579009500
 ;;9002226.02101,"1005,64579009501 ",.01)
 ;;64579009501
 ;;9002226.02101,"1005,64579009501 ",.02)
 ;;64579009501
 ;;9002226.02101,"1005,64579009600 ",.01)
 ;;64579009600
 ;;9002226.02101,"1005,64579009600 ",.02)
 ;;64579009600
 ;;9002226.02101,"1005,64579009601 ",.01)
 ;;64579009601
 ;;9002226.02101,"1005,64579009601 ",.02)
 ;;64579009601
 ;;9002226.02101,"1005,64579009801 ",.01)
 ;;64579009801
 ;;9002226.02101,"1005,64579009801 ",.02)
 ;;64579009801
 ;;9002226.02101,"1005,64579018100 ",.01)
 ;;64579018100
 ;;9002226.02101,"1005,64579018100 ",.02)
 ;;64579018100
 ;;9002226.02101,"1005,64579018101 ",.01)
 ;;64579018101
 ;;9002226.02101,"1005,64579018101 ",.02)
 ;;64579018101
 ;;9002226.02101,"1005,64674003937 ",.01)
 ;;64674003937
 ;;9002226.02101,"1005,64674003937 ",.02)
 ;;64674003937
 ;;9002226.02101,"1005,64674004037 ",.01)
 ;;64674004037
 ;;9002226.02101,"1005,64674004037 ",.02)
 ;;64674004037
 ;;9002226.02101,"1005,64674004070 ",.01)
 ;;64674004070
 ;;9002226.02101,"1005,64674004070 ",.02)
 ;;64674004070
 ;;9002226.02101,"1005,64674004137 ",.01)
 ;;64674004137
 ;;9002226.02101,"1005,64674004137 ",.02)
 ;;64674004137
 ;;9002226.02101,"1005,64674004170 ",.01)
 ;;64674004170
 ;;9002226.02101,"1005,64674004170 ",.02)
 ;;64674004170
 ;;9002226.02101,"1005,64674004237 ",.01)
 ;;64674004237
 ;;9002226.02101,"1005,64674004237 ",.02)
 ;;64674004237
 ;;9002226.02101,"1005,64674004337 ",.01)
 ;;64674004337
 ;;9002226.02101,"1005,64674004337 ",.02)
 ;;64674004337
 ;;9002226.02101,"1005,64674004437 ",.01)
 ;;64674004437
 ;;9002226.02101,"1005,64674004437 ",.02)
 ;;64674004437
 ;;9002226.02101,"1005,64679090201 ",.01)
 ;;64679090201
 ;;9002226.02101,"1005,64679090201 ",.02)
 ;;64679090201
 ;;9002226.02101,"1005,64679090202 ",.01)
 ;;64679090202
 ;;9002226.02101,"1005,64679090202 ",.02)
 ;;64679090202
 ;;9002226.02101,"1005,64679090301 ",.01)
 ;;64679090301
 ;;9002226.02101,"1005,64679090301 ",.02)
 ;;64679090301
 ;;9002226.02101,"1005,64679090302 ",.01)
 ;;64679090302
 ;;9002226.02101,"1005,64679090302 ",.02)
 ;;64679090302
 ;;9002226.02101,"1005,64679090401 ",.01)
 ;;64679090401
 ;;9002226.02101,"1005,64679090401 ",.02)
 ;;64679090401
 ;;9002226.02101,"1005,64679090402 ",.01)
 ;;64679090402
 ;;9002226.02101,"1005,64679090402 ",.02)
 ;;64679090402
 ;;9002226.02101,"1005,64679090501 ",.01)
 ;;64679090501
 ;;9002226.02101,"1005,64679090501 ",.02)
 ;;64679090501
 ;;9002226.02101,"1005,64679090502 ",.01)
 ;;64679090502
 ;;9002226.02101,"1005,64679090502 ",.02)
 ;;64679090502
 ;;9002226.02101,"1005,64679092301 ",.01)
 ;;64679092301
 ;;9002226.02101,"1005,64679092301 ",.02)
 ;;64679092301
 ;;9002226.02101,"1005,64679092302 ",.01)
 ;;64679092302
 ;;9002226.02101,"1005,64679092302 ",.02)
 ;;64679092302
 ;;9002226.02101,"1005,64679092303 ",.01)
 ;;64679092303
 ;;9002226.02101,"1005,64679092303 ",.02)
 ;;64679092303
 ;;9002226.02101,"1005,64679092307 ",.01)
 ;;64679092307
 ;;9002226.02101,"1005,64679092307 ",.02)
 ;;64679092307
 ;;9002226.02101,"1005,64679092309 ",.01)
 ;;64679092309
 ;;9002226.02101,"1005,64679092309 ",.02)
 ;;64679092309
 ;;9002226.02101,"1005,64679092310 ",.01)
 ;;64679092310
 ;;9002226.02101,"1005,64679092310 ",.02)
 ;;64679092310
 ;;9002226.02101,"1005,64679092401 ",.01)
 ;;64679092401
 ;;9002226.02101,"1005,64679092401 ",.02)
 ;;64679092401
 ;;9002226.02101,"1005,64679092402 ",.01)
 ;;64679092402
 ;;9002226.02101,"1005,64679092402 ",.02)
 ;;64679092402
 ;;9002226.02101,"1005,64679092403 ",.01)
 ;;64679092403
 ;;9002226.02101,"1005,64679092403 ",.02)
 ;;64679092403
 ;;9002226.02101,"1005,64679092407 ",.01)
 ;;64679092407
 ;;9002226.02101,"1005,64679092407 ",.02)
 ;;64679092407
 ;;9002226.02101,"1005,64679092409 ",.01)
 ;;64679092409
 ;;9002226.02101,"1005,64679092409 ",.02)
 ;;64679092409
 ;;9002226.02101,"1005,64679092410 ",.01)
 ;;64679092410
 ;;9002226.02101,"1005,64679092410 ",.02)
 ;;64679092410
 ;;9002226.02101,"1005,64679092501 ",.01)
 ;;64679092501
 ;;9002226.02101,"1005,64679092501 ",.02)
 ;;64679092501
 ;;9002226.02101,"1005,64679092502 ",.01)
 ;;64679092502
 ;;9002226.02101,"1005,64679092502 ",.02)
 ;;64679092502
 ;;9002226.02101,"1005,64679092503 ",.01)
 ;;64679092503
 ;;9002226.02101,"1005,64679092503 ",.02)
 ;;64679092503
 ;;9002226.02101,"1005,64679092507 ",.01)
 ;;64679092507
 ;;9002226.02101,"1005,64679092507 ",.02)
 ;;64679092507
 ;;9002226.02101,"1005,64679092509 ",.01)
 ;;64679092509
 ;;9002226.02101,"1005,64679092509 ",.02)
 ;;64679092509
 ;;9002226.02101,"1005,64679092510 ",.01)
 ;;64679092510
 ;;9002226.02101,"1005,64679092510 ",.02)
 ;;64679092510
 ;;9002226.02101,"1005,64679092601 ",.01)
 ;;64679092601
 ;;9002226.02101,"1005,64679092601 ",.02)
 ;;64679092601
 ;;9002226.02101,"1005,64679092602 ",.01)
 ;;64679092602
 ;;9002226.02101,"1005,64679092602 ",.02)
 ;;64679092602
 ;;9002226.02101,"1005,64679092603 ",.01)
 ;;64679092603
 ;;9002226.02101,"1005,64679092603 ",.02)
 ;;64679092603
 ;;9002226.02101,"1005,64679092607 ",.01)
 ;;64679092607
 ;;9002226.02101,"1005,64679092607 ",.02)
 ;;64679092607
 ;;9002226.02101,"1005,64679092609 ",.01)
 ;;64679092609
 ;;9002226.02101,"1005,64679092609 ",.02)
 ;;64679092609
 ;;9002226.02101,"1005,64679092610 ",.01)
 ;;64679092610
 ;;9002226.02101,"1005,64679092610 ",.02)
 ;;64679092610
 ;;9002226.02101,"1005,64679092701 ",.01)
 ;;64679092701
 ;;9002226.02101,"1005,64679092701 ",.02)
 ;;64679092701
 ;;9002226.02101,"1005,64679092702 ",.01)
 ;;64679092702
 ;;9002226.02101,"1005,64679092702 ",.02)
 ;;64679092702
 ;;9002226.02101,"1005,64679092705 ",.01)
 ;;64679092705
 ;;9002226.02101,"1005,64679092705 ",.02)
 ;;64679092705
 ;;9002226.02101,"1005,64679092709 ",.01)
 ;;64679092709
 ;;9002226.02101,"1005,64679092709 ",.02)
 ;;64679092709
 ;;9002226.02101,"1005,64679092801 ",.01)
 ;;64679092801
 ;;9002226.02101,"1005,64679092801 ",.02)
 ;;64679092801
 ;;9002226.02101,"1005,64679092802 ",.01)
 ;;64679092802
 ;;9002226.02101,"1005,64679092802 ",.02)
 ;;64679092802
 ;;9002226.02101,"1005,64679092805 ",.01)
 ;;64679092805
 ;;9002226.02101,"1005,64679092805 ",.02)
 ;;64679092805
 ;;9002226.02101,"1005,64679092806 ",.01)
 ;;64679092806
 ;;9002226.02101,"1005,64679092806 ",.02)
 ;;64679092806
 ;;9002226.02101,"1005,64679092810 ",.01)
 ;;64679092810
 ;;9002226.02101,"1005,64679092810 ",.02)
 ;;64679092810
 ;;9002226.02101,"1005,64679092901 ",.01)
 ;;64679092901
 ;;9002226.02101,"1005,64679092901 ",.02)
 ;;64679092901
 ;;9002226.02101,"1005,64679092902 ",.01)
 ;;64679092902
 ;;9002226.02101,"1005,64679092902 ",.02)
 ;;64679092902
 ;;9002226.02101,"1005,64679092905 ",.01)
 ;;64679092905
 ;;9002226.02101,"1005,64679092905 ",.02)
 ;;64679092905
 ;;9002226.02101,"1005,64679092906 ",.01)
 ;;64679092906
 ;;9002226.02101,"1005,64679092906 ",.02)
 ;;64679092906
 ;;9002226.02101,"1005,64679092910 ",.01)
 ;;64679092910
 ;;9002226.02101,"1005,64679092910 ",.02)
 ;;64679092910
 ;;9002226.02101,"1005,64679094101 ",.01)
 ;;64679094101
 ;;9002226.02101,"1005,64679094101 ",.02)
 ;;64679094101
 ;;9002226.02101,"1005,64679094102 ",.01)
 ;;64679094102
 ;;9002226.02101,"1005,64679094102 ",.02)
 ;;64679094102
 ;;9002226.02101,"1005,64679094105 ",.01)
 ;;64679094105
 ;;9002226.02101,"1005,64679094105 ",.02)
 ;;64679094105
 ;;9002226.02101,"1005,64679094106 ",.01)
 ;;64679094106
 ;;9002226.02101,"1005,64679094106 ",.02)
 ;;64679094106
 ;;9002226.02101,"1005,64679094110 ",.01)
 ;;64679094110
 ;;9002226.02101,"1005,64679094110 ",.02)
 ;;64679094110
 ;;9002226.02101,"1005,64679094201 ",.01)
 ;;64679094201
 ;;9002226.02101,"1005,64679094201 ",.02)
 ;;64679094201
 ;;9002226.02101,"1005,64679094202 ",.01)
 ;;64679094202
 ;;9002226.02101,"1005,64679094202 ",.02)
 ;;64679094202
 ;;9002226.02101,"1005,64679094205 ",.01)
 ;;64679094205
 ;;9002226.02101,"1005,64679094205 ",.02)
 ;;64679094205
 ;;9002226.02101,"1005,64679094209 ",.01)
 ;;64679094209
 ;;9002226.02101,"1005,64679094209 ",.02)
 ;;64679094209
 ;;9002226.02101,"1005,64679095301 ",.01)
 ;;64679095301
 ;;9002226.02101,"1005,64679095301 ",.02)
 ;;64679095301
 ;;9002226.02101,"1005,64679095302 ",.01)
 ;;64679095302
 ;;9002226.02101,"1005,64679095302 ",.02)
 ;;64679095302
 ;;9002226.02101,"1005,64679095305 ",.01)
 ;;64679095305
 ;;9002226.02101,"1005,64679095305 ",.02)
 ;;64679095305
 ;;9002226.02101,"1005,64679095309 ",.01)
 ;;64679095309
 ;;9002226.02101,"1005,64679095309 ",.02)
 ;;64679095309
 ;;9002226.02101,"1005,64725005003 ",.01)
 ;;64725005003
 ;;9002226.02101,"1005,64725005003 ",.02)
 ;;64725005003
 ;;9002226.02101,"1005,64725005203 ",.01)
 ;;64725005203
 ;;9002226.02101,"1005,64725005203 ",.02)
 ;;64725005203
 ;;9002226.02101,"1005,64725005303 ",.01)
 ;;64725005303
 ;;9002226.02101,"1005,64725005303 ",.02)
 ;;64725005303
 ;;9002226.02101,"1005,64725012303 ",.01)
 ;;64725012303
 ;;9002226.02101,"1005,64725012303 ",.02)
 ;;64725012303
 ;;9002226.02101,"1005,64725012503 ",.01)
 ;;64725012503
 ;;9002226.02101,"1005,64725012503 ",.02)
 ;;64725012503
 ;;9002226.02101,"1005,64725012603 ",.01)
 ;;64725012603
 ;;9002226.02101,"1005,64725012603 ",.02)
 ;;64725012603
 ;;9002226.02101,"1005,64725019803 ",.01)
 ;;64725019803
 ;;9002226.02101,"1005,64725019803 ",.02)
 ;;64725019803
 ;;9002226.02101,"1005,64725019903 ",.01)
 ;;64725019903
 ;;9002226.02101,"1005,64725019903 ",.02)
 ;;64725019903
 ;;9002226.02101,"1005,64725039403 ",.01)
 ;;64725039403
 ;;9002226.02101,"1005,64725039403 ",.02)
 ;;64725039403
 ;;9002226.02101,"1005,65084023410 ",.01)
 ;;65084023410
 ;;9002226.02101,"1005,65084023410 ",.02)
 ;;65084023410
 ;;9002226.02101,"1005,65084023510 ",.01)
 ;;65084023510
 ;;9002226.02101,"1005,65084023510 ",.02)
 ;;65084023510
 ;;9002226.02101,"1005,65084023710 ",.01)
 ;;65084023710
 ;;9002226.02101,"1005,65084023710 ",.02)
 ;;65084023710
 ;;9002226.02101,"1005,65243009203 ",.01)
 ;;65243009203
 ;;9002226.02101,"1005,65243009203 ",.02)
 ;;65243009203
 ;;9002226.02101,"1005,65243009206 ",.01)
 ;;65243009206
 ;;9002226.02101,"1005,65243009206 ",.02)
 ;;65243009206
 ;;9002226.02101,"1005,65243009303 ",.01)
 ;;65243009303