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

BGPM5AUS.m

Go to the documentation of this file.
BGPM5AUS ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00603259521 ",.02)
 ;;00603259521
 ;;9002226.02101,"1033,00603259528 ",.01)
 ;;00603259528
 ;;9002226.02101,"1033,00603259528 ",.02)
 ;;00603259528
 ;;9002226.02101,"1033,00603259621 ",.01)
 ;;00603259621
 ;;9002226.02101,"1033,00603259621 ",.02)
 ;;00603259621
 ;;9002226.02101,"1033,00603259628 ",.01)
 ;;00603259628
 ;;9002226.02101,"1033,00603259628 ",.02)
 ;;00603259628
 ;;9002226.02101,"1033,00603348019 ",.01)
 ;;00603348019
 ;;9002226.02101,"1033,00603348019 ",.02)
 ;;00603348019
 ;;9002226.02101,"1033,00603348119 ",.01)
 ;;00603348119
 ;;9002226.02101,"1033,00603348119 ",.02)
 ;;00603348119
 ;;9002226.02101,"1033,00603348128 ",.01)
 ;;00603348128
 ;;9002226.02101,"1033,00603348128 ",.02)
 ;;00603348128
 ;;9002226.02101,"1033,00603348219 ",.01)
 ;;00603348219
 ;;9002226.02101,"1033,00603348219 ",.02)
 ;;00603348219
 ;;9002226.02101,"1033,00603348228 ",.01)
 ;;00603348228
 ;;9002226.02101,"1033,00603348228 ",.02)
 ;;00603348228
 ;;9002226.02101,"1033,00603577821 ",.01)
 ;;00603577821
 ;;9002226.02101,"1033,00603577821 ",.02)
 ;;00603577821
 ;;9002226.02101,"1033,00603577921 ",.01)
 ;;00603577921
 ;;9002226.02101,"1033,00603577921 ",.02)
 ;;00603577921
 ;;9002226.02101,"1033,00603577928 ",.01)
 ;;00603577928
 ;;9002226.02101,"1033,00603577928 ",.02)
 ;;00603577928
 ;;9002226.02101,"1033,00603578010 ",.01)
 ;;00603578010
 ;;9002226.02101,"1033,00603578010 ",.02)
 ;;00603578010
 ;;9002226.02101,"1033,00603578021 ",.01)
 ;;00603578021
 ;;9002226.02101,"1033,00603578021 ",.02)
 ;;00603578021
 ;;9002226.02101,"1033,00603578028 ",.01)
 ;;00603578028
 ;;9002226.02101,"1033,00603578028 ",.02)
 ;;00603578028
 ;;9002226.02101,"1033,00603578032 ",.01)
 ;;00603578032
 ;;9002226.02101,"1033,00603578032 ",.02)
 ;;00603578032
 ;;9002226.02101,"1033,00603578110 ",.01)
 ;;00603578110
 ;;9002226.02101,"1033,00603578110 ",.02)
 ;;00603578110
 ;;9002226.02101,"1033,00603578121 ",.01)
 ;;00603578121
 ;;9002226.02101,"1033,00603578121 ",.02)
 ;;00603578121
 ;;9002226.02101,"1033,00603578128 ",.01)
 ;;00603578128
 ;;9002226.02101,"1033,00603578128 ",.02)
 ;;00603578128
 ;;9002226.02101,"1033,00603591921 ",.01)
 ;;00603591921
 ;;9002226.02101,"1033,00603591921 ",.02)
 ;;00603591921
 ;;9002226.02101,"1033,00603591932 ",.01)
 ;;00603591932
 ;;9002226.02101,"1033,00603591932 ",.02)
 ;;00603591932
 ;;9002226.02101,"1033,00603592021 ",.01)
 ;;00603592021
 ;;9002226.02101,"1033,00603592021 ",.02)
 ;;00603592021
 ;;9002226.02101,"1033,00603592032 ",.01)
 ;;00603592032
 ;;9002226.02101,"1033,00603592032 ",.02)
 ;;00603592032
 ;;9002226.02101,"1033,00603650064 ",.01)
 ;;00603650064
 ;;9002226.02101,"1033,00603650064 ",.02)
 ;;00603650064
 ;;9002226.02101,"1033,00603650066 ",.01)
 ;;00603650066
 ;;9002226.02101,"1033,00603650066 ",.02)
 ;;00603650066
 ;;9002226.02101,"1033,00603650084 ",.01)
 ;;00603650084
 ;;9002226.02101,"1033,00603650084 ",.02)
 ;;00603650084
 ;;9002226.02101,"1033,00603650164 ",.01)
 ;;00603650164
 ;;9002226.02101,"1033,00603650164 ",.02)
 ;;00603650164
 ;;9002226.02101,"1033,00603650166 ",.01)
 ;;00603650166
 ;;9002226.02101,"1033,00603650166 ",.02)
 ;;00603650166
 ;;9002226.02101,"1033,00603654164 ",.01)
 ;;00603654164
 ;;9002226.02101,"1033,00603654164 ",.02)
 ;;00603654164
 ;;9002226.02101,"1033,00603654168 ",.01)
 ;;00603654168
 ;;9002226.02101,"1033,00603654168 ",.02)
 ;;00603654168
 ;;9002226.02101,"1033,00603654264 ",.01)
 ;;00603654264
 ;;9002226.02101,"1033,00603654264 ",.02)
 ;;00603654264
 ;;9002226.02101,"1033,00603654268 ",.01)
 ;;00603654268
 ;;9002226.02101,"1033,00603654268 ",.02)
 ;;00603654268
 ;;9002226.02101,"1033,00603853747 ",.01)
 ;;00603853747
 ;;9002226.02101,"1033,00603853747 ",.02)
 ;;00603853747
 ;;9002226.02101,"1033,00615017031 ",.01)
 ;;00615017031
 ;;9002226.02101,"1033,00615017031 ",.02)
 ;;00615017031
 ;;9002226.02101,"1033,00615017039 ",.01)
 ;;00615017039
 ;;9002226.02101,"1033,00615017039 ",.02)
 ;;00615017039
 ;;9002226.02101,"1033,00641276441 ",.01)
 ;;00641276441
 ;;9002226.02101,"1033,00641276441 ",.02)
 ;;00641276441
 ;;9002226.02101,"1033,00641276443 ",.01)
 ;;00641276443
 ;;9002226.02101,"1033,00641276443 ",.02)
 ;;00641276443
 ;;9002226.02101,"1033,00641276541 ",.01)
 ;;00641276541
 ;;9002226.02101,"1033,00641276541 ",.02)
 ;;00641276541
 ;;9002226.02101,"1033,00641276543 ",.01)
 ;;00641276543
 ;;9002226.02101,"1033,00641276543 ",.02)
 ;;00641276543
 ;;9002226.02101,"1033,00641276641 ",.01)
 ;;00641276641
 ;;9002226.02101,"1033,00641276641 ",.02)
 ;;00641276641
 ;;9002226.02101,"1033,00641590001 ",.01)
 ;;00641590001
 ;;9002226.02101,"1033,00641590001 ",.02)
 ;;00641590001
 ;;9002226.02101,"1033,00641590101 ",.01)
 ;;00641590101
 ;;9002226.02101,"1033,00641590101 ",.02)
 ;;00641590101
 ;;9002226.02101,"1033,00641590102 ",.01)
 ;;00641590102
 ;;9002226.02101,"1033,00641590102 ",.02)
 ;;00641590102
 ;;9002226.02101,"1033,00641590201 ",.01)
 ;;00641590201
 ;;9002226.02101,"1033,00641590201 ",.02)
 ;;00641590201
 ;;9002226.02101,"1033,00641590202 ",.01)
 ;;00641590202
 ;;9002226.02101,"1033,00641590202 ",.02)
 ;;00641590202
 ;;9002226.02101,"1033,00677143501 ",.01)
 ;;00677143501
 ;;9002226.02101,"1033,00677143501 ",.02)
 ;;00677143501
 ;;9002226.02101,"1033,00682911301 ",.01)
 ;;00682911301
 ;;9002226.02101,"1033,00682911301 ",.02)
 ;;00682911301
 ;;9002226.02101,"1033,00686314509 ",.01)
 ;;00686314509
 ;;9002226.02101,"1033,00686314509 ",.02)
 ;;00686314509
 ;;9002226.02101,"1033,00703031501 ",.01)
 ;;00703031501
 ;;9002226.02101,"1033,00703031501 ",.02)
 ;;00703031501
 ;;9002226.02101,"1033,00703031503 ",.01)
 ;;00703031503
 ;;9002226.02101,"1033,00703031503 ",.02)
 ;;00703031503
 ;;9002226.02101,"1033,00703032501 ",.01)
 ;;00703032501
 ;;9002226.02101,"1033,00703032501 ",.02)
 ;;00703032501
 ;;9002226.02101,"1033,00703032503 ",.01)
 ;;00703032503
 ;;9002226.02101,"1033,00703032503 ",.02)
 ;;00703032503
 ;;9002226.02101,"1033,00703033501 ",.01)
 ;;00703033501
 ;;9002226.02101,"1033,00703033501 ",.02)
 ;;00703033501
 ;;9002226.02101,"1033,00703033503 ",.01)
 ;;00703033503
 ;;9002226.02101,"1033,00703033503 ",.02)
 ;;00703033503
 ;;9002226.02101,"1033,00703033504 ",.01)
 ;;00703033504
 ;;9002226.02101,"1033,00703033504 ",.02)
 ;;00703033504
 ;;9002226.02101,"1033,00703034601 ",.01)
 ;;00703034601
 ;;9002226.02101,"1033,00703034601 ",.02)
 ;;00703034601
 ;;9002226.02101,"1033,00703034603 ",.01)
 ;;00703034603
 ;;9002226.02101,"1033,00703034603 ",.02)
 ;;00703034603
 ;;9002226.02101,"1033,00703035901 ",.01)
 ;;00703035901
 ;;9002226.02101,"1033,00703035901 ",.02)
 ;;00703035901
 ;;9002226.02101,"1033,00703096031 ",.01)
 ;;00703096031
 ;;9002226.02101,"1033,00703096031 ",.02)
 ;;00703096031
 ;;9002226.02101,"1033,00703096036 ",.01)
 ;;00703096036
 ;;9002226.02101,"1033,00703096036 ",.02)
 ;;00703096036
 ;;9002226.02101,"1033,00703096931 ",.01)
 ;;00703096931
 ;;9002226.02101,"1033,00703096931 ",.02)
 ;;00703096931
 ;;9002226.02101,"1033,00703096936 ",.01)
 ;;00703096936
 ;;9002226.02101,"1033,00703096936 ",.02)
 ;;00703096936
 ;;9002226.02101,"1033,00703908501 ",.01)
 ;;00703908501
 ;;9002226.02101,"1033,00703908501 ",.02)
 ;;00703908501
 ;;9002226.02101,"1033,00703908503 ",.01)
 ;;00703908503
 ;;9002226.02101,"1033,00703908503 ",.02)
 ;;00703908503
 ;;9002226.02101,"1033,00703908901 ",.01)
 ;;00703908901
 ;;9002226.02101,"1033,00703908901 ",.02)
 ;;00703908901
 ;;9002226.02101,"1033,00703910204 ",.01)
 ;;00703910204
 ;;9002226.02101,"1033,00703910204 ",.02)
 ;;00703910204
 ;;9002226.02101,"1033,00703911004 ",.01)
 ;;00703911004
 ;;9002226.02101,"1033,00703911004 ",.02)
 ;;00703911004
 ;;9002226.02101,"1033,00703912004 ",.01)
 ;;00703912004
 ;;9002226.02101,"1033,00703912004 ",.02)
 ;;00703912004
 ;;9002226.02101,"1033,00703913801 ",.01)
 ;;00703913801
 ;;9002226.02101,"1033,00703913801 ",.02)
 ;;00703913801
 ;;9002226.02101,"1033,00703950301 ",.01)
 ;;00703950301
 ;;9002226.02101,"1033,00703950301 ",.02)
 ;;00703950301
 ;;9002226.02101,"1033,00703950303 ",.01)
 ;;00703950303
 ;;9002226.02101,"1033,00703950303 ",.02)
 ;;00703950303
 ;;9002226.02101,"1033,00703951401 ",.01)
 ;;00703951401
 ;;9002226.02101,"1033,00703951401 ",.02)
 ;;00703951401
 ;;9002226.02101,"1033,00703951403 ",.01)
 ;;00703951403
 ;;9002226.02101,"1033,00703951403 ",.02)
 ;;00703951403
 ;;9002226.02101,"1033,00703952601 ",.01)
 ;;00703952601
 ;;9002226.02101,"1033,00703952601 ",.02)
 ;;00703952601
 ;;9002226.02101,"1033,00781120501 ",.01)
 ;;00781120501
 ;;9002226.02101,"1033,00781120501 ",.02)
 ;;00781120501
 ;;9002226.02101,"1033,00781120510 ",.01)
 ;;00781120510
 ;;9002226.02101,"1033,00781120510 ",.02)
 ;;00781120510
 ;;9002226.02101,"1033,00781149601 ",.01)
 ;;00781149601
 ;;9002226.02101,"1033,00781149601 ",.02)
 ;;00781149601
 ;;9002226.02101,"1033,00781149631 ",.01)
 ;;00781149631
 ;;9002226.02101,"1033,00781149631 ",.02)
 ;;00781149631
 ;;9002226.02101,"1033,00781149669 ",.01)
 ;;00781149669
 ;;9002226.02101,"1033,00781149669 ",.02)
 ;;00781149669
 ;;9002226.02101,"1033,00781161966 ",.01)
 ;;00781161966
 ;;9002226.02101,"1033,00781161966 ",.02)
 ;;00781161966
 ;;9002226.02101,"1033,00781164366 ",.01)
 ;;00781164366
 ;;9002226.02101,"1033,00781164366 ",.02)
 ;;00781164366
 ;;9002226.02101,"1033,00781165501 ",.01)
 ;;00781165501
 ;;9002226.02101,"1033,00781165501 ",.02)
 ;;00781165501
 ;;9002226.02101,"1033,00781165510 ",.01)
 ;;00781165510
 ;;9002226.02101,"1033,00781165510 ",.02)
 ;;00781165510
 ;;9002226.02101,"1033,00781183113 ",.01)
 ;;00781183113
 ;;9002226.02101,"1033,00781183113 ",.02)
 ;;00781183113
 ;;9002226.02101,"1033,00781183120 ",.01)
 ;;00781183120
 ;;9002226.02101,"1033,00781183120 ",.02)
 ;;00781183120
 ;;9002226.02101,"1033,00781185213 ",.01)
 ;;00781185213
 ;;9002226.02101,"1033,00781185213 ",.02)
 ;;00781185213
 ;;9002226.02101,"1033,00781185220 ",.01)
 ;;00781185220
 ;;9002226.02101,"1033,00781185220 ",.02)
 ;;00781185220
 ;;9002226.02101,"1033,00781187431 ",.01)
 ;;00781187431
 ;;9002226.02101,"1033,00781187431 ",.02)
 ;;00781187431
 ;;9002226.02101,"1033,00781194339 ",.01)
 ;;00781194339
 ;;9002226.02101,"1033,00781194339 ",.02)
 ;;00781194339
 ;;9002226.02101,"1033,00781194382 ",.01)
 ;;00781194382
 ;;9002226.02101,"1033,00781194382 ",.02)
 ;;00781194382
 ;;9002226.02101,"1033,00781196101 ",.01)
 ;;00781196101
 ;;9002226.02101,"1033,00781196101 ",.02)
 ;;00781196101
 ;;9002226.02101,"1033,00781196110 ",.01)
 ;;00781196110
 ;;9002226.02101,"1033,00781196110 ",.02)
 ;;00781196110
 ;;9002226.02101,"1033,00781196131 ",.01)
 ;;00781196131
 ;;9002226.02101,"1033,00781196131 ",.02)
 ;;00781196131
 ;;9002226.02101,"1033,00781196160 ",.01)
 ;;00781196160
 ;;9002226.02101,"1033,00781196160 ",.02)
 ;;00781196160
 ;;9002226.02101,"1033,00781196201 ",.01)
 ;;00781196201
 ;;9002226.02101,"1033,00781196201 ",.02)
 ;;00781196201
 ;;9002226.02101,"1033,00781196205 ",.01)
 ;;00781196205
 ;;9002226.02101,"1033,00781196205 ",.02)
 ;;00781196205
 ;;9002226.02101,"1033,00781196231 ",.01)
 ;;00781196231
 ;;9002226.02101,"1033,00781196231 ",.02)
 ;;00781196231
 ;;9002226.02101,"1033,00781196260 ",.01)
 ;;00781196260
 ;;9002226.02101,"1033,00781196260 ",.02)
 ;;00781196260
 ;;9002226.02101,"1033,00781202001 ",.01)
 ;;00781202001
 ;;9002226.02101,"1033,00781202001 ",.02)
 ;;00781202001
 ;;9002226.02101,"1033,00781202005 ",.01)
 ;;00781202005
 ;;9002226.02101,"1033,00781202005 ",.02)
 ;;00781202005
 ;;9002226.02101,"1033,00781202031 ",.01)
 ;;00781202031
 ;;9002226.02101,"1033,00781202031 ",.02)
 ;;00781202031