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

BGPM5AQJ.m

Go to the documentation of this file.
BGPM5AQJ ;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,00083400101 ",.02)
 ;;00083400101
 ;;9002226.02101,"1005,00083400141 ",.01)
 ;;00083400141
 ;;9002226.02101,"1005,00083400141 ",.02)
 ;;00083400141
 ;;9002226.02101,"1005,00083400161 ",.01)
 ;;00083400161
 ;;9002226.02101,"1005,00083400161 ",.02)
 ;;00083400161
 ;;9002226.02101,"1005,00087015846 ",.01)
 ;;00087015846
 ;;9002226.02101,"1005,00087015846 ",.02)
 ;;00087015846
 ;;9002226.02101,"1005,00087015885 ",.01)
 ;;00087015885
 ;;9002226.02101,"1005,00087015885 ",.02)
 ;;00087015885
 ;;9002226.02101,"1005,00087060942 ",.01)
 ;;00087060942
 ;;9002226.02101,"1005,00087060942 ",.02)
 ;;00087060942
 ;;9002226.02101,"1005,00087060945 ",.01)
 ;;00087060945
 ;;9002226.02101,"1005,00087060945 ",.02)
 ;;00087060945
 ;;9002226.02101,"1005,00087060985 ",.01)
 ;;00087060985
 ;;9002226.02101,"1005,00087060985 ",.02)
 ;;00087060985
 ;;9002226.02101,"1005,00087120213 ",.01)
 ;;00087120213
 ;;9002226.02101,"1005,00087120213 ",.02)
 ;;00087120213
 ;;9002226.02101,"1005,00087149201 ",.01)
 ;;00087149201
 ;;9002226.02101,"1005,00087149201 ",.02)
 ;;00087149201
 ;;9002226.02101,"1005,00087277131 ",.01)
 ;;00087277131
 ;;9002226.02101,"1005,00087277131 ",.02)
 ;;00087277131
 ;;9002226.02101,"1005,00087277132 ",.01)
 ;;00087277132
 ;;9002226.02101,"1005,00087277132 ",.02)
 ;;00087277132
 ;;9002226.02101,"1005,00087277215 ",.01)
 ;;00087277215
 ;;9002226.02101,"1005,00087277215 ",.02)
 ;;00087277215
 ;;9002226.02101,"1005,00087277231 ",.01)
 ;;00087277231
 ;;9002226.02101,"1005,00087277231 ",.02)
 ;;00087277231
 ;;9002226.02101,"1005,00087277232 ",.01)
 ;;00087277232
 ;;9002226.02101,"1005,00087277232 ",.02)
 ;;00087277232
 ;;9002226.02101,"1005,00087277235 ",.01)
 ;;00087277235
 ;;9002226.02101,"1005,00087277235 ",.02)
 ;;00087277235
 ;;9002226.02101,"1005,00087277294 ",.01)
 ;;00087277294
 ;;9002226.02101,"1005,00087277294 ",.02)
 ;;00087277294
 ;;9002226.02101,"1005,00087277315 ",.01)
 ;;00087277315
 ;;9002226.02101,"1005,00087277315 ",.02)
 ;;00087277315
 ;;9002226.02101,"1005,00087277331 ",.01)
 ;;00087277331
 ;;9002226.02101,"1005,00087277331 ",.02)
 ;;00087277331
 ;;9002226.02101,"1005,00087277332 ",.01)
 ;;00087277332
 ;;9002226.02101,"1005,00087277332 ",.02)
 ;;00087277332
 ;;9002226.02101,"1005,00087277394 ",.01)
 ;;00087277394
 ;;9002226.02101,"1005,00087277394 ",.02)
 ;;00087277394
 ;;9002226.02101,"1005,00087277531 ",.01)
 ;;00087277531
 ;;9002226.02101,"1005,00087277531 ",.02)
 ;;00087277531
 ;;9002226.02101,"1005,00087277532 ",.01)
 ;;00087277532
 ;;9002226.02101,"1005,00087277532 ",.02)
 ;;00087277532
 ;;9002226.02101,"1005,00087277535 ",.01)
 ;;00087277535
 ;;9002226.02101,"1005,00087277535 ",.02)
 ;;00087277535
 ;;9002226.02101,"1005,00087277594 ",.01)
 ;;00087277594
 ;;9002226.02101,"1005,00087277594 ",.02)
 ;;00087277594
 ;;9002226.02101,"1005,00087277631 ",.01)
 ;;00087277631
 ;;9002226.02101,"1005,00087277631 ",.02)
 ;;00087277631
 ;;9002226.02101,"1005,00087277632 ",.01)
 ;;00087277632
 ;;9002226.02101,"1005,00087277632 ",.02)
 ;;00087277632
 ;;9002226.02101,"1005,00087277690 ",.01)
 ;;00087277690
 ;;9002226.02101,"1005,00087277690 ",.02)
 ;;00087277690
 ;;9002226.02101,"1005,00087278831 ",.01)
 ;;00087278831
 ;;9002226.02101,"1005,00087278831 ",.02)
 ;;00087278831
 ;;9002226.02101,"1005,00087278832 ",.01)
 ;;00087278832
 ;;9002226.02101,"1005,00087278832 ",.02)
 ;;00087278832
 ;;9002226.02101,"1005,00087278894 ",.01)
 ;;00087278894
 ;;9002226.02101,"1005,00087278894 ",.02)
 ;;00087278894
 ;;9002226.02101,"1005,00087287531 ",.01)
 ;;00087287531
 ;;9002226.02101,"1005,00087287531 ",.02)
 ;;00087287531
 ;;9002226.02101,"1005,00087287532 ",.01)
 ;;00087287532
 ;;9002226.02101,"1005,00087287532 ",.02)
 ;;00087287532
 ;;9002226.02101,"1005,00087287631 ",.01)
 ;;00087287631
 ;;9002226.02101,"1005,00087287631 ",.02)
 ;;00087287631
 ;;9002226.02101,"1005,00087287632 ",.01)
 ;;00087287632
 ;;9002226.02101,"1005,00087287632 ",.02)
 ;;00087287632
 ;;9002226.02101,"1005,00088010347 ",.01)
 ;;00088010347
 ;;9002226.02101,"1005,00088010347 ",.02)
 ;;00088010347
 ;;9002226.02101,"1005,00088010349 ",.01)
 ;;00088010349
 ;;9002226.02101,"1005,00088010349 ",.02)
 ;;00088010349
 ;;9002226.02101,"1005,00088010427 ",.01)
 ;;00088010427
 ;;9002226.02101,"1005,00088010427 ",.02)
 ;;00088010427
 ;;9002226.02101,"1005,00088010447 ",.01)
 ;;00088010447
 ;;9002226.02101,"1005,00088010447 ",.02)
 ;;00088010447
 ;;9002226.02101,"1005,00088010449 ",.01)
 ;;00088010449
 ;;9002226.02101,"1005,00088010449 ",.02)
 ;;00088010449
 ;;9002226.02101,"1005,00088010527 ",.01)
 ;;00088010527
 ;;9002226.02101,"1005,00088010527 ",.02)
 ;;00088010527
 ;;9002226.02101,"1005,00088010547 ",.01)
 ;;00088010547
 ;;9002226.02101,"1005,00088010547 ",.02)
 ;;00088010547
 ;;9002226.02101,"1005,00088010549 ",.01)
 ;;00088010549
 ;;9002226.02101,"1005,00088010549 ",.02)
 ;;00088010549
 ;;9002226.02101,"1005,00088010647 ",.01)
 ;;00088010647
 ;;9002226.02101,"1005,00088010647 ",.02)
 ;;00088010647
 ;;9002226.02101,"1005,00091370701 ",.01)
 ;;00091370701
 ;;9002226.02101,"1005,00091370701 ",.02)
 ;;00091370701
 ;;9002226.02101,"1005,00091370709 ",.01)
 ;;00091370709
 ;;9002226.02101,"1005,00091370709 ",.02)
 ;;00091370709
 ;;9002226.02101,"1005,00091371201 ",.01)
 ;;00091371201
 ;;9002226.02101,"1005,00091371201 ",.02)
 ;;00091371201
 ;;9002226.02101,"1005,00091371501 ",.01)
 ;;00091371501
 ;;9002226.02101,"1005,00091371501 ",.02)
 ;;00091371501
 ;;9002226.02101,"1005,00091371509 ",.01)
 ;;00091371509
 ;;9002226.02101,"1005,00091371509 ",.02)
 ;;00091371509
 ;;9002226.02101,"1005,00091372001 ",.01)
 ;;00091372001
 ;;9002226.02101,"1005,00091372001 ",.02)
 ;;00091372001
 ;;9002226.02101,"1005,00091372501 ",.01)
 ;;00091372501
 ;;9002226.02101,"1005,00091372501 ",.02)
 ;;00091372501
 ;;9002226.02101,"1005,00093001701 ",.01)
 ;;00093001701
 ;;9002226.02101,"1005,00093001701 ",.02)
 ;;00093001701
 ;;9002226.02101,"1005,00093002601 ",.01)
 ;;00093002601
 ;;9002226.02101,"1005,00093002601 ",.02)
 ;;00093002601
 ;;9002226.02101,"1005,00093002610 ",.01)
 ;;00093002610
 ;;9002226.02101,"1005,00093002610 ",.02)
 ;;00093002610
 ;;9002226.02101,"1005,00093002701 ",.01)
 ;;00093002701
 ;;9002226.02101,"1005,00093002701 ",.02)
 ;;00093002701
 ;;9002226.02101,"1005,00093002750 ",.01)
 ;;00093002750
 ;;9002226.02101,"1005,00093002750 ",.02)
 ;;00093002750
 ;;9002226.02101,"1005,00093002801 ",.01)
 ;;00093002801
 ;;9002226.02101,"1005,00093002801 ",.02)
 ;;00093002801
 ;;9002226.02101,"1005,00093002810 ",.01)
 ;;00093002810
 ;;9002226.02101,"1005,00093002810 ",.02)
 ;;00093002810
 ;;9002226.02101,"1005,00093002850 ",.01)
 ;;00093002850
 ;;9002226.02101,"1005,00093002850 ",.02)
 ;;00093002850
 ;;9002226.02101,"1005,00093002901 ",.01)
 ;;00093002901
 ;;9002226.02101,"1005,00093002901 ",.02)
 ;;00093002901
 ;;9002226.02101,"1005,00093002910 ",.01)
 ;;00093002910
 ;;9002226.02101,"1005,00093002910 ",.02)
 ;;00093002910
 ;;9002226.02101,"1005,00093002950 ",.01)
 ;;00093002950
 ;;9002226.02101,"1005,00093002950 ",.02)
 ;;00093002950
 ;;9002226.02101,"1005,00093017601 ",.01)
 ;;00093017601
 ;;9002226.02101,"1005,00093017601 ",.02)
 ;;00093017601
 ;;9002226.02101,"1005,00093017701 ",.01)
 ;;00093017701
 ;;9002226.02101,"1005,00093017701 ",.02)
 ;;00093017701
 ;;9002226.02101,"1005,00093018101 ",.01)
 ;;00093018101
 ;;9002226.02101,"1005,00093018101 ",.02)
 ;;00093018101
 ;;9002226.02101,"1005,00093018201 ",.01)
 ;;00093018201
 ;;9002226.02101,"1005,00093018201 ",.02)
 ;;00093018201
 ;;9002226.02101,"1005,00093103605 ",.01)
 ;;00093103605
 ;;9002226.02101,"1005,00093103605 ",.02)
 ;;00093103605
 ;;9002226.02101,"1005,00093103705 ",.01)
 ;;00093103705
 ;;9002226.02101,"1005,00093103705 ",.02)
 ;;00093103705
 ;;9002226.02101,"1005,00093104401 ",.01)
 ;;00093104401
 ;;9002226.02101,"1005,00093104401 ",.02)
 ;;00093104401
 ;;9002226.02101,"1005,00093104505 ",.01)
 ;;00093104505
 ;;9002226.02101,"1005,00093104505 ",.02)
 ;;00093104505
 ;;9002226.02101,"1005,00093104598 ",.01)
 ;;00093104598
 ;;9002226.02101,"1005,00093104598 ",.02)
 ;;00093104598
 ;;9002226.02101,"1005,00093105005 ",.01)
 ;;00093105005
 ;;9002226.02101,"1005,00093105005 ",.02)
 ;;00093105005
 ;;9002226.02101,"1005,00093105098 ",.01)
 ;;00093105098
 ;;9002226.02101,"1005,00093105098 ",.02)
 ;;00093105098
 ;;9002226.02101,"1005,00093105105 ",.01)
 ;;00093105105
 ;;9002226.02101,"1005,00093105105 ",.02)
 ;;00093105105
 ;;9002226.02101,"1005,00093105198 ",.01)
 ;;00093105198
 ;;9002226.02101,"1005,00093105198 ",.02)
 ;;00093105198
 ;;9002226.02101,"1005,00093105201 ",.01)
 ;;00093105201
 ;;9002226.02101,"1005,00093105201 ",.02)
 ;;00093105201
 ;;9002226.02101,"1005,00093105210 ",.01)
 ;;00093105210
 ;;9002226.02101,"1005,00093105210 ",.02)
 ;;00093105210
 ;;9002226.02101,"1005,00093105305 ",.01)
 ;;00093105305
 ;;9002226.02101,"1005,00093105305 ",.02)
 ;;00093105305
 ;;9002226.02101,"1005,00093105398 ",.01)
 ;;00093105398
 ;;9002226.02101,"1005,00093105398 ",.02)
 ;;00093105398
 ;;9002226.02101,"1005,00093111210 ",.01)
 ;;00093111210
 ;;9002226.02101,"1005,00093111210 ",.02)
 ;;00093111210
 ;;9002226.02101,"1005,00093111310 ",.01)
 ;;00093111310
 ;;9002226.02101,"1005,00093111310 ",.02)
 ;;00093111310
 ;;9002226.02101,"1005,00093111505 ",.01)
 ;;00093111505
 ;;9002226.02101,"1005,00093111505 ",.02)
 ;;00093111505
 ;;9002226.02101,"1005,00093515001 ",.01)
 ;;00093515001
 ;;9002226.02101,"1005,00093515001 ",.02)
 ;;00093515001
 ;;9002226.02101,"1005,00093545698 ",.01)
 ;;00093545698
 ;;9002226.02101,"1005,00093545698 ",.02)
 ;;00093545698
 ;;9002226.02101,"1005,00093545798 ",.01)
 ;;00093545798
 ;;9002226.02101,"1005,00093545798 ",.02)
 ;;00093545798
 ;;9002226.02101,"1005,00093545898 ",.01)
 ;;00093545898
 ;;9002226.02101,"1005,00093545898 ",.02)
 ;;00093545898
 ;;9002226.02101,"1005,00093545998 ",.01)
 ;;00093545998
 ;;9002226.02101,"1005,00093545998 ",.02)
 ;;00093545998
 ;;9002226.02101,"1005,00093722210 ",.01)
 ;;00093722210
 ;;9002226.02101,"1005,00093722210 ",.02)
 ;;00093722210
 ;;9002226.02101,"1005,00093722298 ",.01)
 ;;00093722298
 ;;9002226.02101,"1005,00093722298 ",.02)
 ;;00093722298
 ;;9002226.02101,"1005,00093722310 ",.01)
 ;;00093722310
 ;;9002226.02101,"1005,00093722310 ",.02)
 ;;00093722310
 ;;9002226.02101,"1005,00093722398 ",.01)
 ;;00093722398
 ;;9002226.02101,"1005,00093722398 ",.02)
 ;;00093722398
 ;;9002226.02101,"1005,00093722410 ",.01)
 ;;00093722410
 ;;9002226.02101,"1005,00093722410 ",.02)
 ;;00093722410
 ;;9002226.02101,"1005,00093722498 ",.01)
 ;;00093722498
 ;;9002226.02101,"1005,00093722498 ",.02)
 ;;00093722498
 ;;9002226.02101,"1005,00093813201 ",.01)
 ;;00093813201
 ;;9002226.02101,"1005,00093813201 ",.02)
 ;;00093813201
 ;;9002226.02101,"1005,00093813210 ",.01)
 ;;00093813210
 ;;9002226.02101,"1005,00093813210 ",.02)
 ;;00093813210
 ;;9002226.02101,"1005,00093813301 ",.01)
 ;;00093813301
 ;;9002226.02101,"1005,00093813301 ",.02)
 ;;00093813301
 ;;9002226.02101,"1005,00093813310 ",.01)
 ;;00093813310
 ;;9002226.02101,"1005,00093813310 ",.02)
 ;;00093813310
 ;;9002226.02101,"1005,00093813401 ",.01)
 ;;00093813401
 ;;9002226.02101,"1005,00093813401 ",.02)
 ;;00093813401
 ;;9002226.02101,"1005,00093813410 ",.01)
 ;;00093813410
 ;;9002226.02101,"1005,00093813410 ",.02)
 ;;00093813410
 ;;9002226.02101,"1005,00093813501 ",.01)
 ;;00093813501
 ;;9002226.02101,"1005,00093813501 ",.02)
 ;;00093813501
 ;;9002226.02101,"1005,00131370701 ",.01)
 ;;00131370701
 ;;9002226.02101,"1005,00131370701 ",.02)
 ;;00131370701