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

BGPM5AUI.m

Go to the documentation of this file.
BGPM5AUI ;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,00143995120 ",.02)
 ;;00143995120
 ;;9002226.02101,"1033,00143997603 ",.01)
 ;;00143997603
 ;;9002226.02101,"1033,00143997603 ",.02)
 ;;00143997603
 ;;9002226.02101,"1033,00143997691 ",.01)
 ;;00143997691
 ;;9002226.02101,"1033,00143997691 ",.02)
 ;;00143997691
 ;;9002226.02101,"1033,00143997722 ",.01)
 ;;00143997722
 ;;9002226.02101,"1033,00143997722 ",.02)
 ;;00143997722
 ;;9002226.02101,"1033,00143997790 ",.01)
 ;;00143997790
 ;;9002226.02101,"1033,00143997790 ",.02)
 ;;00143997790
 ;;9002226.02101,"1033,00143998101 ",.01)
 ;;00143998101
 ;;9002226.02101,"1033,00143998101 ",.02)
 ;;00143998101
 ;;9002226.02101,"1033,00143998150 ",.01)
 ;;00143998150
 ;;9002226.02101,"1033,00143998150 ",.02)
 ;;00143998150
 ;;9002226.02101,"1033,00143998175 ",.01)
 ;;00143998175
 ;;9002226.02101,"1033,00143998175 ",.02)
 ;;00143998175
 ;;9002226.02101,"1033,00143998201 ",.01)
 ;;00143998201
 ;;9002226.02101,"1033,00143998201 ",.02)
 ;;00143998201
 ;;9002226.02101,"1033,00143998250 ",.01)
 ;;00143998250
 ;;9002226.02101,"1033,00143998250 ",.02)
 ;;00143998250
 ;;9002226.02101,"1033,00143998275 ",.01)
 ;;00143998275
 ;;9002226.02101,"1033,00143998275 ",.02)
 ;;00143998275
 ;;9002226.02101,"1033,00143998303 ",.01)
 ;;00143998303
 ;;9002226.02101,"1033,00143998303 ",.02)
 ;;00143998303
 ;;9002226.02101,"1033,00143998391 ",.01)
 ;;00143998391
 ;;9002226.02101,"1033,00143998391 ",.02)
 ;;00143998391
 ;;9002226.02101,"1033,00143998501 ",.01)
 ;;00143998501
 ;;9002226.02101,"1033,00143998501 ",.02)
 ;;00143998501
 ;;9002226.02101,"1033,00143998515 ",.01)
 ;;00143998515
 ;;9002226.02101,"1033,00143998515 ",.02)
 ;;00143998515
 ;;9002226.02101,"1033,00143998601 ",.01)
 ;;00143998601
 ;;9002226.02101,"1033,00143998601 ",.02)
 ;;00143998601
 ;;9002226.02101,"1033,00143998615 ",.01)
 ;;00143998615
 ;;9002226.02101,"1033,00143998615 ",.02)
 ;;00143998615
 ;;9002226.02101,"1033,00168020101 ",.01)
 ;;00168020101
 ;;9002226.02101,"1033,00168020101 ",.02)
 ;;00168020101
 ;;9002226.02101,"1033,00168020130 ",.01)
 ;;00168020130
 ;;9002226.02101,"1033,00168020130 ",.02)
 ;;00168020130
 ;;9002226.02101,"1033,00168020160 ",.01)
 ;;00168020160
 ;;9002226.02101,"1033,00168020160 ",.02)
 ;;00168020160
 ;;9002226.02101,"1033,00168020230 ",.01)
 ;;00168020230
 ;;9002226.02101,"1033,00168020230 ",.02)
 ;;00168020230
 ;;9002226.02101,"1033,00168020260 ",.01)
 ;;00168020260
 ;;9002226.02101,"1033,00168020260 ",.02)
 ;;00168020260
 ;;9002226.02101,"1033,00168020360 ",.01)
 ;;00168020360
 ;;9002226.02101,"1033,00168020360 ",.02)
 ;;00168020360
 ;;9002226.02101,"1033,00168027740 ",.01)
 ;;00168027740
 ;;9002226.02101,"1033,00168027740 ",.02)
 ;;00168027740
 ;;9002226.02101,"1033,00172240700 ",.01)
 ;;00172240700
 ;;9002226.02101,"1033,00172240700 ",.02)
 ;;00172240700
 ;;9002226.02101,"1033,00172240710 ",.01)
 ;;00172240710
 ;;9002226.02101,"1033,00172240710 ",.02)
 ;;00172240710
 ;;9002226.02101,"1033,00172240760 ",.01)
 ;;00172240760
 ;;9002226.02101,"1033,00172240760 ",.02)
 ;;00172240760
 ;;9002226.02101,"1033,00172240780 ",.01)
 ;;00172240780
 ;;9002226.02101,"1033,00172240780 ",.02)
 ;;00172240780
 ;;9002226.02101,"1033,00172241600 ",.01)
 ;;00172241600
 ;;9002226.02101,"1033,00172241600 ",.02)
 ;;00172241600
 ;;9002226.02101,"1033,00172241610 ",.01)
 ;;00172241610
 ;;9002226.02101,"1033,00172241610 ",.02)
 ;;00172241610
 ;;9002226.02101,"1033,00172241660 ",.01)
 ;;00172241660
 ;;9002226.02101,"1033,00172241660 ",.02)
 ;;00172241660
 ;;9002226.02101,"1033,00172241680 ",.01)
 ;;00172241680
 ;;9002226.02101,"1033,00172241680 ",.02)
 ;;00172241680
 ;;9002226.02101,"1033,00172245860 ",.01)
 ;;00172245860
 ;;9002226.02101,"1033,00172245860 ",.02)
 ;;00172245860
 ;;9002226.02101,"1033,00172245870 ",.01)
 ;;00172245870
 ;;9002226.02101,"1033,00172245870 ",.02)
 ;;00172245870
 ;;9002226.02101,"1033,00172245880 ",.01)
 ;;00172245880
 ;;9002226.02101,"1033,00172245880 ",.02)
 ;;00172245880
 ;;9002226.02101,"1033,00172282360 ",.01)
 ;;00172282360
 ;;9002226.02101,"1033,00172282360 ",.02)
 ;;00172282360
 ;;9002226.02101,"1033,00172298448 ",.01)
 ;;00172298448
 ;;9002226.02101,"1033,00172298448 ",.02)
 ;;00172298448
 ;;9002226.02101,"1033,00172298470 ",.01)
 ;;00172298470
 ;;9002226.02101,"1033,00172298470 ",.02)
 ;;00172298470
 ;;9002226.02101,"1033,00172298500 ",.01)
 ;;00172298500
 ;;9002226.02101,"1033,00172298500 ",.02)
 ;;00172298500
 ;;9002226.02101,"1033,00172298510 ",.01)
 ;;00172298510
 ;;9002226.02101,"1033,00172298510 ",.02)
 ;;00172298510
 ;;9002226.02101,"1033,00172298548 ",.01)
 ;;00172298548
 ;;9002226.02101,"1033,00172298548 ",.02)
 ;;00172298548
 ;;9002226.02101,"1033,00172298570 ",.01)
 ;;00172298570
 ;;9002226.02101,"1033,00172298570 ",.02)
 ;;00172298570
 ;;9002226.02101,"1033,00172362600 ",.01)
 ;;00172362600
 ;;9002226.02101,"1033,00172362600 ",.02)
 ;;00172362600
 ;;9002226.02101,"1033,00172362610 ",.01)
 ;;00172362610
 ;;9002226.02101,"1033,00172362610 ",.02)
 ;;00172362610
 ;;9002226.02101,"1033,00172362648 ",.01)
 ;;00172362648
 ;;9002226.02101,"1033,00172362648 ",.02)
 ;;00172362648
 ;;9002226.02101,"1033,00172362670 ",.01)
 ;;00172362670
 ;;9002226.02101,"1033,00172362670 ",.02)
 ;;00172362670
 ;;9002226.02101,"1033,00172405848 ",.01)
 ;;00172405848
 ;;9002226.02101,"1033,00172405848 ",.02)
 ;;00172405848
 ;;9002226.02101,"1033,00172405860 ",.01)
 ;;00172405860
 ;;9002226.02101,"1033,00172405860 ",.02)
 ;;00172405860
 ;;9002226.02101,"1033,00172407310 ",.01)
 ;;00172407310
 ;;9002226.02101,"1033,00172407310 ",.02)
 ;;00172407310
 ;;9002226.02101,"1033,00172407343 ",.01)
 ;;00172407343
 ;;9002226.02101,"1033,00172407343 ",.02)
 ;;00172407343
 ;;9002226.02101,"1033,00172407347 ",.01)
 ;;00172407347
 ;;9002226.02101,"1033,00172407347 ",.02)
 ;;00172407347
 ;;9002226.02101,"1033,00172407360 ",.01)
 ;;00172407360
 ;;9002226.02101,"1033,00172407360 ",.02)
 ;;00172407360
 ;;9002226.02101,"1033,00172407370 ",.01)
 ;;00172407370
 ;;9002226.02101,"1033,00172407370 ",.02)
 ;;00172407370
 ;;9002226.02101,"1033,00172417025 ",.01)
 ;;00172417025
 ;;9002226.02101,"1033,00172417025 ",.02)
 ;;00172417025
 ;;9002226.02101,"1033,00172419460 ",.01)
 ;;00172419460
 ;;9002226.02101,"1033,00172419460 ",.02)
 ;;00172419460
 ;;9002226.02101,"1033,00172462660 ",.01)
 ;;00172462660
 ;;9002226.02101,"1033,00172462660 ",.02)
 ;;00172462660
 ;;9002226.02101,"1033,00172462670 ",.01)
 ;;00172462670
 ;;9002226.02101,"1033,00172462670 ",.02)
 ;;00172462670
 ;;9002226.02101,"1033,00172477060 ",.01)
 ;;00172477060
 ;;9002226.02101,"1033,00172477060 ",.02)
 ;;00172477060
 ;;9002226.02101,"1033,00172477222 ",.01)
 ;;00172477222
 ;;9002226.02101,"1033,00172477222 ",.02)
 ;;00172477222
 ;;9002226.02101,"1033,00172477223 ",.01)
 ;;00172477223
 ;;9002226.02101,"1033,00172477223 ",.02)
 ;;00172477223
 ;;9002226.02101,"1033,00172477320 ",.01)
 ;;00172477320
 ;;9002226.02101,"1033,00172477320 ",.02)
 ;;00172477320
 ;;9002226.02101,"1033,00172477321 ",.01)
 ;;00172477321
 ;;9002226.02101,"1033,00172477321 ",.02)
 ;;00172477321
 ;;9002226.02101,"1033,00172477422 ",.01)
 ;;00172477422
 ;;9002226.02101,"1033,00172477422 ",.02)
 ;;00172477422
 ;;9002226.02101,"1033,00172477423 ",.01)
 ;;00172477423
 ;;9002226.02101,"1033,00172477423 ",.02)
 ;;00172477423
 ;;9002226.02101,"1033,00172477520 ",.01)
 ;;00172477520
 ;;9002226.02101,"1033,00172477520 ",.02)
 ;;00172477520
 ;;9002226.02101,"1033,00172477521 ",.01)
 ;;00172477521
 ;;9002226.02101,"1033,00172477521 ",.02)
 ;;00172477521
 ;;9002226.02101,"1033,00172531100 ",.01)
 ;;00172531100
 ;;9002226.02101,"1033,00172531100 ",.02)
 ;;00172531100
 ;;9002226.02101,"1033,00172531110 ",.01)
 ;;00172531110
 ;;9002226.02101,"1033,00172531110 ",.02)
 ;;00172531110
 ;;9002226.02101,"1033,00172531160 ",.01)
 ;;00172531160
 ;;9002226.02101,"1033,00172531160 ",.02)
 ;;00172531160
 ;;9002226.02101,"1033,00172531200 ",.01)
 ;;00172531200
 ;;9002226.02101,"1033,00172531200 ",.02)
 ;;00172531200
 ;;9002226.02101,"1033,00172531210 ",.01)
 ;;00172531210
 ;;9002226.02101,"1033,00172531210 ",.02)
 ;;00172531210
 ;;9002226.02101,"1033,00172531242 ",.01)
 ;;00172531242
 ;;9002226.02101,"1033,00172531242 ",.02)
 ;;00172531242
 ;;9002226.02101,"1033,00172531260 ",.01)
 ;;00172531260
 ;;9002226.02101,"1033,00172531260 ",.02)
 ;;00172531260
 ;;9002226.02101,"1033,00172531270 ",.01)
 ;;00172531270
 ;;9002226.02101,"1033,00172531270 ",.02)
 ;;00172531270
 ;;9002226.02101,"1033,00172531300 ",.01)
 ;;00172531300
 ;;9002226.02101,"1033,00172531300 ",.02)
 ;;00172531300
 ;;9002226.02101,"1033,00172531310 ",.01)
 ;;00172531310
 ;;9002226.02101,"1033,00172531310 ",.02)
 ;;00172531310
 ;;9002226.02101,"1033,00172531360 ",.01)
 ;;00172531360
 ;;9002226.02101,"1033,00172531360 ",.02)
 ;;00172531360
 ;;9002226.02101,"1033,00172544549 ",.01)
 ;;00172544549
 ;;9002226.02101,"1033,00172544549 ",.02)
 ;;00172544549
 ;;9002226.02101,"1033,00172544570 ",.01)
 ;;00172544570
 ;;9002226.02101,"1033,00172544570 ",.02)
 ;;00172544570
 ;;9002226.02101,"1033,00172544649 ",.01)
 ;;00172544649
 ;;9002226.02101,"1033,00172544649 ",.02)
 ;;00172544649
 ;;9002226.02101,"1033,00172544670 ",.01)
 ;;00172544670
 ;;9002226.02101,"1033,00172544670 ",.02)
 ;;00172544670
 ;;9002226.02101,"1033,00179002188 ",.01)
 ;;00179002188
 ;;9002226.02101,"1033,00179002188 ",.02)
 ;;00179002188
 ;;9002226.02101,"1033,00179002388 ",.01)
 ;;00179002388
 ;;9002226.02101,"1033,00179002388 ",.02)
 ;;00179002388
 ;;9002226.02101,"1033,00179002488 ",.01)
 ;;00179002488
 ;;9002226.02101,"1033,00179002488 ",.02)
 ;;00179002488
 ;;9002226.02101,"1033,00179005414 ",.01)
 ;;00179005414
 ;;9002226.02101,"1033,00179005414 ",.02)
 ;;00179005414
 ;;9002226.02101,"1033,00179005420 ",.01)
 ;;00179005420
 ;;9002226.02101,"1033,00179005420 ",.02)
 ;;00179005420
 ;;9002226.02101,"1033,00179007688 ",.01)
 ;;00179007688
 ;;9002226.02101,"1033,00179007688 ",.02)
 ;;00179007688
 ;;9002226.02101,"1033,00179008188 ",.01)
 ;;00179008188
 ;;9002226.02101,"1033,00179008188 ",.02)
 ;;00179008188
 ;;9002226.02101,"1033,00179037170 ",.01)
 ;;00179037170
 ;;9002226.02101,"1033,00179037170 ",.02)
 ;;00179037170
 ;;9002226.02101,"1033,00179037171 ",.01)
 ;;00179037171
 ;;9002226.02101,"1033,00179037171 ",.02)
 ;;00179037171
 ;;9002226.02101,"1033,00179037172 ",.01)
 ;;00179037172
 ;;9002226.02101,"1033,00179037172 ",.02)
 ;;00179037172
 ;;9002226.02101,"1033,00179037188 ",.01)
 ;;00179037188
 ;;9002226.02101,"1033,00179037188 ",.02)
 ;;00179037188
 ;;9002226.02101,"1033,00179037201 ",.01)
 ;;00179037201
 ;;9002226.02101,"1033,00179037201 ",.02)
 ;;00179037201
 ;;9002226.02101,"1033,00179037210 ",.01)
 ;;00179037210
 ;;9002226.02101,"1033,00179037210 ",.02)
 ;;00179037210
 ;;9002226.02101,"1033,00179037214 ",.01)
 ;;00179037214
 ;;9002226.02101,"1033,00179037214 ",.02)
 ;;00179037214
 ;;9002226.02101,"1033,00179037220 ",.01)
 ;;00179037220
 ;;9002226.02101,"1033,00179037220 ",.02)
 ;;00179037220
 ;;9002226.02101,"1033,00179037228 ",.01)
 ;;00179037228
 ;;9002226.02101,"1033,00179037228 ",.02)
 ;;00179037228
 ;;9002226.02101,"1033,00179037230 ",.01)
 ;;00179037230
 ;;9002226.02101,"1033,00179037230 ",.02)
 ;;00179037230
 ;;9002226.02101,"1033,00179037288 ",.01)
 ;;00179037288
 ;;9002226.02101,"1033,00179037288 ",.02)
 ;;00179037288
 ;;9002226.02101,"1033,00179101430 ",.01)
 ;;00179101430
 ;;9002226.02101,"1033,00179101430 ",.02)
 ;;00179101430
 ;;9002226.02101,"1033,00179101440 ",.01)
 ;;00179101440
 ;;9002226.02101,"1033,00179101440 ",.02)
 ;;00179101440