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

BGPM5ALN.m

Go to the documentation of this file.
BGPM5ALN ;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,00247122020 ",.01)
 ;;00247122020
 ;;9002226.02101,"900,00247122020 ",.02)
 ;;00247122020
 ;;9002226.02101,"900,00247122030 ",.01)
 ;;00247122030
 ;;9002226.02101,"900,00247122030 ",.02)
 ;;00247122030
 ;;9002226.02101,"900,00247122060 ",.01)
 ;;00247122060
 ;;9002226.02101,"900,00247122060 ",.02)
 ;;00247122060
 ;;9002226.02101,"900,00247153630 ",.01)
 ;;00247153630
 ;;9002226.02101,"900,00247153630 ",.02)
 ;;00247153630
 ;;9002226.02101,"900,00247168920 ",.01)
 ;;00247168920
 ;;9002226.02101,"900,00247168920 ",.02)
 ;;00247168920
 ;;9002226.02101,"900,00247168930 ",.01)
 ;;00247168930
 ;;9002226.02101,"900,00247168930 ",.02)
 ;;00247168930
 ;;9002226.02101,"900,00247169000 ",.01)
 ;;00247169000
 ;;9002226.02101,"900,00247169000 ",.02)
 ;;00247169000
 ;;9002226.02101,"900,00247169010 ",.01)
 ;;00247169010
 ;;9002226.02101,"900,00247169010 ",.02)
 ;;00247169010
 ;;9002226.02101,"900,00247169030 ",.01)
 ;;00247169030
 ;;9002226.02101,"900,00247169030 ",.02)
 ;;00247169030
 ;;9002226.02101,"900,00247169090 ",.01)
 ;;00247169090
 ;;9002226.02101,"900,00247169090 ",.02)
 ;;00247169090
 ;;9002226.02101,"900,00247169130 ",.01)
 ;;00247169130
 ;;9002226.02101,"900,00247169130 ",.02)
 ;;00247169130
 ;;9002226.02101,"900,00247169210 ",.01)
 ;;00247169210
 ;;9002226.02101,"900,00247169210 ",.02)
 ;;00247169210
 ;;9002226.02101,"900,00247169230 ",.01)
 ;;00247169230
 ;;9002226.02101,"900,00247169230 ",.02)
 ;;00247169230
 ;;9002226.02101,"900,00247169260 ",.01)
 ;;00247169260
 ;;9002226.02101,"900,00247169260 ",.02)
 ;;00247169260
 ;;9002226.02101,"900,00247169310 ",.01)
 ;;00247169310
 ;;9002226.02101,"900,00247169310 ",.02)
 ;;00247169310
 ;;9002226.02101,"900,00247169330 ",.01)
 ;;00247169330
 ;;9002226.02101,"900,00247169330 ",.02)
 ;;00247169330
 ;;9002226.02101,"900,00247169360 ",.01)
 ;;00247169360
 ;;9002226.02101,"900,00247169360 ",.02)
 ;;00247169360
 ;;9002226.02101,"900,00247205330 ",.01)
 ;;00247205330
 ;;9002226.02101,"900,00247205330 ",.02)
 ;;00247205330
 ;;9002226.02101,"900,00247205360 ",.01)
 ;;00247205360
 ;;9002226.02101,"900,00247205360 ",.02)
 ;;00247205360
 ;;9002226.02101,"900,00247205430 ",.01)
 ;;00247205430
 ;;9002226.02101,"900,00247205430 ",.02)
 ;;00247205430
 ;;9002226.02101,"900,00247205433 ",.01)
 ;;00247205433
 ;;9002226.02101,"900,00247205433 ",.02)
 ;;00247205433
 ;;9002226.02101,"900,00247205459 ",.01)
 ;;00247205459
 ;;9002226.02101,"900,00247205459 ",.02)
 ;;00247205459
 ;;9002226.02101,"900,00247205460 ",.01)
 ;;00247205460
 ;;9002226.02101,"900,00247205460 ",.02)
 ;;00247205460
 ;;9002226.02101,"900,00247205530 ",.01)
 ;;00247205530
 ;;9002226.02101,"900,00247205530 ",.02)
 ;;00247205530
 ;;9002226.02101,"900,00247205560 ",.01)
 ;;00247205560
 ;;9002226.02101,"900,00247205560 ",.02)
 ;;00247205560
 ;;9002226.02101,"900,00247210290 ",.01)
 ;;00247210290
 ;;9002226.02101,"900,00247210290 ",.02)
 ;;00247210290
 ;;9002226.02101,"900,00302435010 ",.01)
 ;;00302435010
 ;;9002226.02101,"900,00302435010 ",.02)
 ;;00302435010
 ;;9002226.02101,"900,00304049401 ",.01)
 ;;00304049401
 ;;9002226.02101,"900,00304049401 ",.02)
 ;;00304049401
 ;;9002226.02101,"900,00304069901 ",.01)
 ;;00304069901
 ;;9002226.02101,"900,00304069901 ",.02)
 ;;00304069901
 ;;9002226.02101,"900,00304207301 ",.01)
 ;;00304207301
 ;;9002226.02101,"900,00304207301 ",.02)
 ;;00304207301
 ;;9002226.02101,"900,00310075139 ",.01)
 ;;00310075139
 ;;9002226.02101,"900,00310075139 ",.02)
 ;;00310075139
 ;;9002226.02101,"900,00310075190 ",.01)
 ;;00310075190
 ;;9002226.02101,"900,00310075190 ",.02)
 ;;00310075190
 ;;9002226.02101,"900,00310075239 ",.01)
 ;;00310075239
 ;;9002226.02101,"900,00310075239 ",.02)
 ;;00310075239
 ;;9002226.02101,"900,00310075290 ",.01)
 ;;00310075290
 ;;9002226.02101,"900,00310075290 ",.02)
 ;;00310075290
 ;;9002226.02101,"900,00310075430 ",.01)
 ;;00310075430
 ;;9002226.02101,"900,00310075430 ",.02)
 ;;00310075430
 ;;9002226.02101,"900,00310075590 ",.01)
 ;;00310075590
 ;;9002226.02101,"900,00310075590 ",.02)
 ;;00310075590
 ;;9002226.02101,"900,00378651091 ",.01)
 ;;00378651091
 ;;9002226.02101,"900,00378651091 ",.02)
 ;;00378651091
 ;;9002226.02101,"900,00378652005 ",.01)
 ;;00378652005
 ;;9002226.02101,"900,00378652005 ",.02)
 ;;00378652005
 ;;9002226.02101,"900,00378652091 ",.01)
 ;;00378652091
 ;;9002226.02101,"900,00378652091 ",.02)
 ;;00378652091
 ;;9002226.02101,"900,00378654005 ",.01)
 ;;00378654005
 ;;9002226.02101,"900,00378654005 ",.02)
 ;;00378654005
 ;;9002226.02101,"900,00378654091 ",.01)
 ;;00378654091
 ;;9002226.02101,"900,00378654091 ",.02)
 ;;00378654091
 ;;9002226.02101,"900,00440756000 ",.01)
 ;;00440756000
 ;;9002226.02101,"900,00440756000 ",.02)
 ;;00440756000
 ;;9002226.02101,"900,00440756002 ",.01)
 ;;00440756002
 ;;9002226.02101,"900,00440756002 ",.02)
 ;;00440756002
 ;;9002226.02101,"900,00440756010 ",.01)
 ;;00440756010
 ;;9002226.02101,"900,00440756010 ",.02)
 ;;00440756010
 ;;9002226.02101,"900,00440756020 ",.01)
 ;;00440756020
 ;;9002226.02101,"900,00440756020 ",.02)
 ;;00440756020
 ;;9002226.02101,"900,00440756028 ",.01)
 ;;00440756028
 ;;9002226.02101,"900,00440756028 ",.02)
 ;;00440756028
 ;;9002226.02101,"900,00440756060 ",.01)
 ;;00440756060
 ;;9002226.02101,"900,00440756060 ",.02)
 ;;00440756060
 ;;9002226.02101,"900,00440756092 ",.01)
 ;;00440756092
 ;;9002226.02101,"900,00440756092 ",.02)
 ;;00440756092
 ;;9002226.02101,"900,00480067005 ",.01)
 ;;00480067005
 ;;9002226.02101,"900,00480067005 ",.02)
 ;;00480067005
 ;;9002226.02101,"900,00480067006 ",.01)
 ;;00480067006
 ;;9002226.02101,"900,00480067006 ",.02)
 ;;00480067006
 ;;9002226.02101,"900,00480069166 ",.01)
 ;;00480069166
 ;;9002226.02101,"900,00480069166 ",.02)
 ;;00480069166
 ;;9002226.02101,"900,00480069198 ",.01)
 ;;00480069198
 ;;9002226.02101,"900,00480069198 ",.02)
 ;;00480069198
 ;;9002226.02101,"900,00480069266 ",.01)
 ;;00480069266
 ;;9002226.02101,"900,00480069266 ",.02)
 ;;00480069266
 ;;9002226.02101,"900,00480069298 ",.01)
 ;;00480069298
 ;;9002226.02101,"900,00480069298 ",.02)
 ;;00480069298
 ;;9002226.02101,"900,00536407001 ",.01)
 ;;00536407001
 ;;9002226.02101,"900,00536407001 ",.02)
 ;;00536407001
 ;;9002226.02101,"900,00536407301 ",.01)
 ;;00536407301
 ;;9002226.02101,"900,00536407301 ",.02)
 ;;00536407301
 ;;9002226.02101,"900,00536407401 ",.01)
 ;;00536407401
 ;;9002226.02101,"900,00536407401 ",.02)
 ;;00536407401
 ;;9002226.02101,"900,00536407601 ",.01)
 ;;00536407601
 ;;9002226.02101,"900,00536407601 ",.02)
 ;;00536407601
 ;;9002226.02101,"900,00536407610 ",.01)
 ;;00536407610
 ;;9002226.02101,"900,00536407610 ",.02)
 ;;00536407610
 ;;9002226.02101,"900,00536407701 ",.01)
 ;;00536407701
 ;;9002226.02101,"900,00536407701 ",.02)
 ;;00536407701
 ;;9002226.02101,"900,00536407810 ",.01)
 ;;00536407810
 ;;9002226.02101,"900,00536407810 ",.02)
 ;;00536407810
 ;;9002226.02101,"900,00536573308 ",.01)
 ;;00536573308
 ;;9002226.02101,"900,00536573308 ",.02)
 ;;00536573308
 ;;9002226.02101,"900,00536573324 ",.01)
 ;;00536573324
 ;;9002226.02101,"900,00536573324 ",.02)
 ;;00536573324
 ;;9002226.02101,"900,00536703001 ",.01)
 ;;00536703001
 ;;9002226.02101,"900,00536703001 ",.02)
 ;;00536703001
 ;;9002226.02101,"900,00536703301 ",.01)
 ;;00536703301
 ;;9002226.02101,"900,00536703301 ",.02)
 ;;00536703301
 ;;9002226.02101,"900,00536703801 ",.01)
 ;;00536703801
 ;;9002226.02101,"900,00536703801 ",.02)
 ;;00536703801
 ;;9002226.02101,"900,00591045405 ",.01)
 ;;00591045405
 ;;9002226.02101,"900,00591045405 ",.02)
 ;;00591045405
 ;;9002226.02101,"900,00591045460 ",.01)
 ;;00591045460
 ;;9002226.02101,"900,00591045460 ",.02)
 ;;00591045460
 ;;9002226.02101,"900,00603473521 ",.01)
 ;;00603473521
 ;;9002226.02101,"900,00603473521 ",.02)
 ;;00603473521
 ;;9002226.02101,"900,00603473621 ",.01)
 ;;00603473621
 ;;9002226.02101,"900,00603473621 ",.02)
 ;;00603473621
 ;;9002226.02101,"900,00603473632 ",.01)
 ;;00603473632
 ;;9002226.02101,"900,00603473632 ",.02)
 ;;00603473632
 ;;9002226.02101,"900,00615355931 ",.01)
 ;;00615355931
 ;;9002226.02101,"900,00615355931 ",.02)
 ;;00615355931
 ;;9002226.02101,"900,00615355939 ",.01)
 ;;00615355939
 ;;9002226.02101,"900,00615355939 ",.02)
 ;;00615355939
 ;;9002226.02101,"900,00615551905 ",.01)
 ;;00615551905
 ;;9002226.02101,"900,00615551905 ",.02)
 ;;00615551905
 ;;9002226.02101,"900,00615551931 ",.01)
 ;;00615551931
 ;;9002226.02101,"900,00615551931 ",.02)
 ;;00615551931
 ;;9002226.02101,"900,00615551939 ",.01)
 ;;00615551939
 ;;9002226.02101,"900,00615551939 ",.02)
 ;;00615551939
 ;;9002226.02101,"900,00615558931 ",.01)
 ;;00615558931
 ;;9002226.02101,"900,00615558931 ",.02)
 ;;00615558931
 ;;9002226.02101,"900,00615558939 ",.01)
 ;;00615558939
 ;;9002226.02101,"900,00615558939 ",.02)
 ;;00615558939
 ;;9002226.02101,"900,00615559605 ",.01)
 ;;00615559605
 ;;9002226.02101,"900,00615559605 ",.02)
 ;;00615559605
 ;;9002226.02101,"900,00615559631 ",.01)
 ;;00615559631
 ;;9002226.02101,"900,00615559631 ",.02)
 ;;00615559631
 ;;9002226.02101,"900,00615559639 ",.01)
 ;;00615559639
 ;;9002226.02101,"900,00615559639 ",.02)
 ;;00615559639
 ;;9002226.02101,"900,00615559663 ",.01)
 ;;00615559663
 ;;9002226.02101,"900,00615559663 ",.02)
 ;;00615559663
 ;;9002226.02101,"900,00615651805 ",.01)
 ;;00615651805
 ;;9002226.02101,"900,00615651805 ",.02)
 ;;00615651805
 ;;9002226.02101,"900,00615651831 ",.01)
 ;;00615651831
 ;;9002226.02101,"900,00615651831 ",.02)
 ;;00615651831
 ;;9002226.02101,"900,00615651839 ",.01)
 ;;00615651839
 ;;9002226.02101,"900,00615651839 ",.02)
 ;;00615651839
 ;;9002226.02101,"900,00615654239 ",.01)
 ;;00615654239
 ;;9002226.02101,"900,00615654239 ",.02)
 ;;00615654239
 ;;9002226.02101,"900,00615655139 ",.01)
 ;;00615655139
 ;;9002226.02101,"900,00615655139 ",.02)
 ;;00615655139
 ;;9002226.02101,"900,00615659039 ",.01)
 ;;00615659039
 ;;9002226.02101,"900,00615659039 ",.02)
 ;;00615659039
 ;;9002226.02101,"900,00761023920 ",.01)
 ;;00761023920
 ;;9002226.02101,"900,00761023920 ",.02)
 ;;00761023920
 ;;9002226.02101,"900,00814528014 ",.01)
 ;;00814528014
 ;;9002226.02101,"900,00814528014 ",.02)
 ;;00814528014
 ;;9002226.02101,"900,00904062960 ",.01)
 ;;00904062960
 ;;9002226.02101,"900,00904062960 ",.02)
 ;;00904062960
 ;;9002226.02101,"900,00904063160 ",.01)
 ;;00904063160
 ;;9002226.02101,"900,00904063160 ",.02)
 ;;00904063160
 ;;9002226.02101,"900,00904227060 ",.01)
 ;;00904227060
 ;;9002226.02101,"900,00904227060 ",.02)
 ;;00904227060
 ;;9002226.02101,"900,00904227160 ",.01)
 ;;00904227160
 ;;9002226.02101,"900,00904227160 ",.02)
 ;;00904227160
 ;;9002226.02101,"900,00904227260 ",.01)
 ;;00904227260
 ;;9002226.02101,"900,00904227260 ",.02)
 ;;00904227260
 ;;9002226.02101,"900,00904227280 ",.01)
 ;;00904227280
 ;;9002226.02101,"900,00904227280 ",.02)
 ;;00904227280
 ;;9002226.02101,"900,00904291660 ",.01)
 ;;00904291660
 ;;9002226.02101,"900,00904291660 ",.02)
 ;;00904291660
 ;;9002226.02101,"900,00904434260 ",.01)
 ;;00904434260
 ;;9002226.02101,"900,00904434260 ",.02)
 ;;00904434260
 ;;9002226.02101,"900,00904434270 ",.01)
 ;;00904434270
 ;;9002226.02101,"900,00904434270 ",.02)
 ;;00904434270
 ;;9002226.02101,"900,00904523442 ",.01)
 ;;00904523442
 ;;9002226.02101,"900,00904523442 ",.02)
 ;;00904523442
 ;;9002226.02101,"900,00904523452 ",.01)
 ;;00904523452
 ;;9002226.02101,"900,00904523452 ",.02)
 ;;00904523452
 ;;9002226.02101,"900,00904523542 ",.01)
 ;;00904523542
 ;;9002226.02101,"900,00904523542 ",.02)
 ;;00904523542