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.
  1. BGPM5AQJ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1005,00083400101 ",.02)
  1. ;;00083400101
  1. ;;9002226.02101,"1005,00083400141 ",.01)
  1. ;;00083400141
  1. ;;9002226.02101,"1005,00083400141 ",.02)
  1. ;;00083400141
  1. ;;9002226.02101,"1005,00083400161 ",.01)
  1. ;;00083400161
  1. ;;9002226.02101,"1005,00083400161 ",.02)
  1. ;;00083400161
  1. ;;9002226.02101,"1005,00087015846 ",.01)
  1. ;;00087015846
  1. ;;9002226.02101,"1005,00087015846 ",.02)
  1. ;;00087015846
  1. ;;9002226.02101,"1005,00087015885 ",.01)
  1. ;;00087015885
  1. ;;9002226.02101,"1005,00087015885 ",.02)
  1. ;;00087015885
  1. ;;9002226.02101,"1005,00087060942 ",.01)
  1. ;;00087060942
  1. ;;9002226.02101,"1005,00087060942 ",.02)
  1. ;;00087060942
  1. ;;9002226.02101,"1005,00087060945 ",.01)
  1. ;;00087060945
  1. ;;9002226.02101,"1005,00087060945 ",.02)
  1. ;;00087060945
  1. ;;9002226.02101,"1005,00087060985 ",.01)
  1. ;;00087060985
  1. ;;9002226.02101,"1005,00087060985 ",.02)
  1. ;;00087060985
  1. ;;9002226.02101,"1005,00087120213 ",.01)
  1. ;;00087120213
  1. ;;9002226.02101,"1005,00087120213 ",.02)
  1. ;;00087120213
  1. ;;9002226.02101,"1005,00087149201 ",.01)
  1. ;;00087149201
  1. ;;9002226.02101,"1005,00087149201 ",.02)
  1. ;;00087149201
  1. ;;9002226.02101,"1005,00087277131 ",.01)
  1. ;;00087277131
  1. ;;9002226.02101,"1005,00087277131 ",.02)
  1. ;;00087277131
  1. ;;9002226.02101,"1005,00087277132 ",.01)
  1. ;;00087277132
  1. ;;9002226.02101,"1005,00087277132 ",.02)
  1. ;;00087277132
  1. ;;9002226.02101,"1005,00087277215 ",.01)
  1. ;;00087277215
  1. ;;9002226.02101,"1005,00087277215 ",.02)
  1. ;;00087277215
  1. ;;9002226.02101,"1005,00087277231 ",.01)
  1. ;;00087277231
  1. ;;9002226.02101,"1005,00087277231 ",.02)
  1. ;;00087277231
  1. ;;9002226.02101,"1005,00087277232 ",.01)
  1. ;;00087277232
  1. ;;9002226.02101,"1005,00087277232 ",.02)
  1. ;;00087277232
  1. ;;9002226.02101,"1005,00087277235 ",.01)
  1. ;;00087277235
  1. ;;9002226.02101,"1005,00087277235 ",.02)
  1. ;;00087277235
  1. ;;9002226.02101,"1005,00087277294 ",.01)
  1. ;;00087277294
  1. ;;9002226.02101,"1005,00087277294 ",.02)
  1. ;;00087277294
  1. ;;9002226.02101,"1005,00087277315 ",.01)
  1. ;;00087277315
  1. ;;9002226.02101,"1005,00087277315 ",.02)
  1. ;;00087277315
  1. ;;9002226.02101,"1005,00087277331 ",.01)
  1. ;;00087277331
  1. ;;9002226.02101,"1005,00087277331 ",.02)
  1. ;;00087277331
  1. ;;9002226.02101,"1005,00087277332 ",.01)
  1. ;;00087277332
  1. ;;9002226.02101,"1005,00087277332 ",.02)
  1. ;;00087277332
  1. ;;9002226.02101,"1005,00087277394 ",.01)
  1. ;;00087277394
  1. ;;9002226.02101,"1005,00087277394 ",.02)
  1. ;;00087277394
  1. ;;9002226.02101,"1005,00087277531 ",.01)
  1. ;;00087277531
  1. ;;9002226.02101,"1005,00087277531 ",.02)
  1. ;;00087277531
  1. ;;9002226.02101,"1005,00087277532 ",.01)
  1. ;;00087277532
  1. ;;9002226.02101,"1005,00087277532 ",.02)
  1. ;;00087277532
  1. ;;9002226.02101,"1005,00087277535 ",.01)
  1. ;;00087277535
  1. ;;9002226.02101,"1005,00087277535 ",.02)
  1. ;;00087277535
  1. ;;9002226.02101,"1005,00087277594 ",.01)
  1. ;;00087277594
  1. ;;9002226.02101,"1005,00087277594 ",.02)
  1. ;;00087277594
  1. ;;9002226.02101,"1005,00087277631 ",.01)
  1. ;;00087277631
  1. ;;9002226.02101,"1005,00087277631 ",.02)
  1. ;;00087277631
  1. ;;9002226.02101,"1005,00087277632 ",.01)
  1. ;;00087277632
  1. ;;9002226.02101,"1005,00087277632 ",.02)
  1. ;;00087277632
  1. ;;9002226.02101,"1005,00087277690 ",.01)
  1. ;;00087277690
  1. ;;9002226.02101,"1005,00087277690 ",.02)
  1. ;;00087277690
  1. ;;9002226.02101,"1005,00087278831 ",.01)
  1. ;;00087278831
  1. ;;9002226.02101,"1005,00087278831 ",.02)
  1. ;;00087278831
  1. ;;9002226.02101,"1005,00087278832 ",.01)
  1. ;;00087278832
  1. ;;9002226.02101,"1005,00087278832 ",.02)
  1. ;;00087278832
  1. ;;9002226.02101,"1005,00087278894 ",.01)
  1. ;;00087278894
  1. ;;9002226.02101,"1005,00087278894 ",.02)
  1. ;;00087278894
  1. ;;9002226.02101,"1005,00087287531 ",.01)
  1. ;;00087287531
  1. ;;9002226.02101,"1005,00087287531 ",.02)
  1. ;;00087287531
  1. ;;9002226.02101,"1005,00087287532 ",.01)
  1. ;;00087287532
  1. ;;9002226.02101,"1005,00087287532 ",.02)
  1. ;;00087287532
  1. ;;9002226.02101,"1005,00087287631 ",.01)
  1. ;;00087287631
  1. ;;9002226.02101,"1005,00087287631 ",.02)
  1. ;;00087287631
  1. ;;9002226.02101,"1005,00087287632 ",.01)
  1. ;;00087287632
  1. ;;9002226.02101,"1005,00087287632 ",.02)
  1. ;;00087287632
  1. ;;9002226.02101,"1005,00088010347 ",.01)
  1. ;;00088010347
  1. ;;9002226.02101,"1005,00088010347 ",.02)
  1. ;;00088010347
  1. ;;9002226.02101,"1005,00088010349 ",.01)
  1. ;;00088010349
  1. ;;9002226.02101,"1005,00088010349 ",.02)
  1. ;;00088010349
  1. ;;9002226.02101,"1005,00088010427 ",.01)
  1. ;;00088010427
  1. ;;9002226.02101,"1005,00088010427 ",.02)
  1. ;;00088010427
  1. ;;9002226.02101,"1005,00088010447 ",.01)
  1. ;;00088010447
  1. ;;9002226.02101,"1005,00088010447 ",.02)
  1. ;;00088010447
  1. ;;9002226.02101,"1005,00088010449 ",.01)
  1. ;;00088010449
  1. ;;9002226.02101,"1005,00088010449 ",.02)
  1. ;;00088010449
  1. ;;9002226.02101,"1005,00088010527 ",.01)
  1. ;;00088010527
  1. ;;9002226.02101,"1005,00088010527 ",.02)
  1. ;;00088010527
  1. ;;9002226.02101,"1005,00088010547 ",.01)
  1. ;;00088010547
  1. ;;9002226.02101,"1005,00088010547 ",.02)
  1. ;;00088010547
  1. ;;9002226.02101,"1005,00088010549 ",.01)
  1. ;;00088010549
  1. ;;9002226.02101,"1005,00088010549 ",.02)
  1. ;;00088010549
  1. ;;9002226.02101,"1005,00088010647 ",.01)
  1. ;;00088010647
  1. ;;9002226.02101,"1005,00088010647 ",.02)
  1. ;;00088010647
  1. ;;9002226.02101,"1005,00091370701 ",.01)
  1. ;;00091370701
  1. ;;9002226.02101,"1005,00091370701 ",.02)
  1. ;;00091370701
  1. ;;9002226.02101,"1005,00091370709 ",.01)
  1. ;;00091370709
  1. ;;9002226.02101,"1005,00091370709 ",.02)
  1. ;;00091370709
  1. ;;9002226.02101,"1005,00091371201 ",.01)
  1. ;;00091371201
  1. ;;9002226.02101,"1005,00091371201 ",.02)
  1. ;;00091371201
  1. ;;9002226.02101,"1005,00091371501 ",.01)
  1. ;;00091371501
  1. ;;9002226.02101,"1005,00091371501 ",.02)
  1. ;;00091371501
  1. ;;9002226.02101,"1005,00091371509 ",.01)
  1. ;;00091371509
  1. ;;9002226.02101,"1005,00091371509 ",.02)
  1. ;;00091371509
  1. ;;9002226.02101,"1005,00091372001 ",.01)
  1. ;;00091372001
  1. ;;9002226.02101,"1005,00091372001 ",.02)
  1. ;;00091372001
  1. ;;9002226.02101,"1005,00091372501 ",.01)
  1. ;;00091372501
  1. ;;9002226.02101,"1005,00091372501 ",.02)
  1. ;;00091372501
  1. ;;9002226.02101,"1005,00093001701 ",.01)
  1. ;;00093001701
  1. ;;9002226.02101,"1005,00093001701 ",.02)
  1. ;;00093001701
  1. ;;9002226.02101,"1005,00093002601 ",.01)
  1. ;;00093002601
  1. ;;9002226.02101,"1005,00093002601 ",.02)
  1. ;;00093002601
  1. ;;9002226.02101,"1005,00093002610 ",.01)
  1. ;;00093002610
  1. ;;9002226.02101,"1005,00093002610 ",.02)
  1. ;;00093002610
  1. ;;9002226.02101,"1005,00093002701 ",.01)
  1. ;;00093002701
  1. ;;9002226.02101,"1005,00093002701 ",.02)
  1. ;;00093002701
  1. ;;9002226.02101,"1005,00093002750 ",.01)
  1. ;;00093002750
  1. ;;9002226.02101,"1005,00093002750 ",.02)
  1. ;;00093002750
  1. ;;9002226.02101,"1005,00093002801 ",.01)
  1. ;;00093002801
  1. ;;9002226.02101,"1005,00093002801 ",.02)
  1. ;;00093002801
  1. ;;9002226.02101,"1005,00093002810 ",.01)
  1. ;;00093002810
  1. ;;9002226.02101,"1005,00093002810 ",.02)
  1. ;;00093002810
  1. ;;9002226.02101,"1005,00093002850 ",.01)
  1. ;;00093002850
  1. ;;9002226.02101,"1005,00093002850 ",.02)
  1. ;;00093002850
  1. ;;9002226.02101,"1005,00093002901 ",.01)
  1. ;;00093002901
  1. ;;9002226.02101,"1005,00093002901 ",.02)
  1. ;;00093002901
  1. ;;9002226.02101,"1005,00093002910 ",.01)
  1. ;;00093002910
  1. ;;9002226.02101,"1005,00093002910 ",.02)
  1. ;;00093002910
  1. ;;9002226.02101,"1005,00093002950 ",.01)
  1. ;;00093002950
  1. ;;9002226.02101,"1005,00093002950 ",.02)
  1. ;;00093002950
  1. ;;9002226.02101,"1005,00093017601 ",.01)
  1. ;;00093017601
  1. ;;9002226.02101,"1005,00093017601 ",.02)
  1. ;;00093017601
  1. ;;9002226.02101,"1005,00093017701 ",.01)
  1. ;;00093017701
  1. ;;9002226.02101,"1005,00093017701 ",.02)
  1. ;;00093017701
  1. ;;9002226.02101,"1005,00093018101 ",.01)
  1. ;;00093018101
  1. ;;9002226.02101,"1005,00093018101 ",.02)
  1. ;;00093018101
  1. ;;9002226.02101,"1005,00093018201 ",.01)
  1. ;;00093018201
  1. ;;9002226.02101,"1005,00093018201 ",.02)
  1. ;;00093018201
  1. ;;9002226.02101,"1005,00093103605 ",.01)
  1. ;;00093103605
  1. ;;9002226.02101,"1005,00093103605 ",.02)
  1. ;;00093103605
  1. ;;9002226.02101,"1005,00093103705 ",.01)
  1. ;;00093103705
  1. ;;9002226.02101,"1005,00093103705 ",.02)
  1. ;;00093103705
  1. ;;9002226.02101,"1005,00093104401 ",.01)
  1. ;;00093104401
  1. ;;9002226.02101,"1005,00093104401 ",.02)
  1. ;;00093104401
  1. ;;9002226.02101,"1005,00093104505 ",.01)
  1. ;;00093104505
  1. ;;9002226.02101,"1005,00093104505 ",.02)
  1. ;;00093104505
  1. ;;9002226.02101,"1005,00093104598 ",.01)
  1. ;;00093104598
  1. ;;9002226.02101,"1005,00093104598 ",.02)
  1. ;;00093104598
  1. ;;9002226.02101,"1005,00093105005 ",.01)
  1. ;;00093105005
  1. ;;9002226.02101,"1005,00093105005 ",.02)
  1. ;;00093105005
  1. ;;9002226.02101,"1005,00093105098 ",.01)
  1. ;;00093105098
  1. ;;9002226.02101,"1005,00093105098 ",.02)
  1. ;;00093105098
  1. ;;9002226.02101,"1005,00093105105 ",.01)
  1. ;;00093105105
  1. ;;9002226.02101,"1005,00093105105 ",.02)
  1. ;;00093105105
  1. ;;9002226.02101,"1005,00093105198 ",.01)
  1. ;;00093105198
  1. ;;9002226.02101,"1005,00093105198 ",.02)
  1. ;;00093105198
  1. ;;9002226.02101,"1005,00093105201 ",.01)
  1. ;;00093105201
  1. ;;9002226.02101,"1005,00093105201 ",.02)
  1. ;;00093105201
  1. ;;9002226.02101,"1005,00093105210 ",.01)
  1. ;;00093105210
  1. ;;9002226.02101,"1005,00093105210 ",.02)
  1. ;;00093105210
  1. ;;9002226.02101,"1005,00093105305 ",.01)
  1. ;;00093105305
  1. ;;9002226.02101,"1005,00093105305 ",.02)
  1. ;;00093105305
  1. ;;9002226.02101,"1005,00093105398 ",.01)
  1. ;;00093105398
  1. ;;9002226.02101,"1005,00093105398 ",.02)
  1. ;;00093105398
  1. ;;9002226.02101,"1005,00093111210 ",.01)
  1. ;;00093111210
  1. ;;9002226.02101,"1005,00093111210 ",.02)
  1. ;;00093111210
  1. ;;9002226.02101,"1005,00093111310 ",.01)
  1. ;;00093111310
  1. ;;9002226.02101,"1005,00093111310 ",.02)
  1. ;;00093111310
  1. ;;9002226.02101,"1005,00093111505 ",.01)
  1. ;;00093111505
  1. ;;9002226.02101,"1005,00093111505 ",.02)
  1. ;;00093111505
  1. ;;9002226.02101,"1005,00093515001 ",.01)
  1. ;;00093515001
  1. ;;9002226.02101,"1005,00093515001 ",.02)
  1. ;;00093515001
  1. ;;9002226.02101,"1005,00093545698 ",.01)
  1. ;;00093545698
  1. ;;9002226.02101,"1005,00093545698 ",.02)
  1. ;;00093545698
  1. ;;9002226.02101,"1005,00093545798 ",.01)
  1. ;;00093545798
  1. ;;9002226.02101,"1005,00093545798 ",.02)
  1. ;;00093545798
  1. ;;9002226.02101,"1005,00093545898 ",.01)
  1. ;;00093545898
  1. ;;9002226.02101,"1005,00093545898 ",.02)
  1. ;;00093545898
  1. ;;9002226.02101,"1005,00093545998 ",.01)
  1. ;;00093545998
  1. ;;9002226.02101,"1005,00093545998 ",.02)
  1. ;;00093545998
  1. ;;9002226.02101,"1005,00093722210 ",.01)
  1. ;;00093722210
  1. ;;9002226.02101,"1005,00093722210 ",.02)
  1. ;;00093722210
  1. ;;9002226.02101,"1005,00093722298 ",.01)
  1. ;;00093722298
  1. ;;9002226.02101,"1005,00093722298 ",.02)
  1. ;;00093722298
  1. ;;9002226.02101,"1005,00093722310 ",.01)
  1. ;;00093722310
  1. ;;9002226.02101,"1005,00093722310 ",.02)
  1. ;;00093722310
  1. ;;9002226.02101,"1005,00093722398 ",.01)
  1. ;;00093722398
  1. ;;9002226.02101,"1005,00093722398 ",.02)
  1. ;;00093722398
  1. ;;9002226.02101,"1005,00093722410 ",.01)
  1. ;;00093722410
  1. ;;9002226.02101,"1005,00093722410 ",.02)
  1. ;;00093722410
  1. ;;9002226.02101,"1005,00093722498 ",.01)
  1. ;;00093722498
  1. ;;9002226.02101,"1005,00093722498 ",.02)
  1. ;;00093722498
  1. ;;9002226.02101,"1005,00093813201 ",.01)
  1. ;;00093813201
  1. ;;9002226.02101,"1005,00093813201 ",.02)
  1. ;;00093813201
  1. ;;9002226.02101,"1005,00093813210 ",.01)
  1. ;;00093813210
  1. ;;9002226.02101,"1005,00093813210 ",.02)
  1. ;;00093813210
  1. ;;9002226.02101,"1005,00093813301 ",.01)
  1. ;;00093813301
  1. ;;9002226.02101,"1005,00093813301 ",.02)
  1. ;;00093813301
  1. ;;9002226.02101,"1005,00093813310 ",.01)
  1. ;;00093813310
  1. ;;9002226.02101,"1005,00093813310 ",.02)
  1. ;;00093813310
  1. ;;9002226.02101,"1005,00093813401 ",.01)
  1. ;;00093813401
  1. ;;9002226.02101,"1005,00093813401 ",.02)
  1. ;;00093813401
  1. ;;9002226.02101,"1005,00093813410 ",.01)
  1. ;;00093813410
  1. ;;9002226.02101,"1005,00093813410 ",.02)
  1. ;;00093813410
  1. ;;9002226.02101,"1005,00093813501 ",.01)
  1. ;;00093813501
  1. ;;9002226.02101,"1005,00093813501 ",.02)
  1. ;;00093813501
  1. ;;9002226.02101,"1005,00131370701 ",.01)
  1. ;;00131370701
  1. ;;9002226.02101,"1005,00131370701 ",.02)
  1. ;;00131370701