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

BGPM5AJX.m

Go to the documentation of this file.
BGPM5AJX ;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,"889,58016047232 ",.01)
 ;;58016047232
 ;;9002226.02101,"889,58016047232 ",.02)
 ;;58016047232
 ;;9002226.02101,"889,58016047235 ",.01)
 ;;58016047235
 ;;9002226.02101,"889,58016047235 ",.02)
 ;;58016047235
 ;;9002226.02101,"889,58016047240 ",.01)
 ;;58016047240
 ;;9002226.02101,"889,58016047240 ",.02)
 ;;58016047240
 ;;9002226.02101,"889,58016047242 ",.01)
 ;;58016047242
 ;;9002226.02101,"889,58016047242 ",.02)
 ;;58016047242
 ;;9002226.02101,"889,58016047244 ",.01)
 ;;58016047244
 ;;9002226.02101,"889,58016047244 ",.02)
 ;;58016047244
 ;;9002226.02101,"889,58016047245 ",.01)
 ;;58016047245
 ;;9002226.02101,"889,58016047245 ",.02)
 ;;58016047245
 ;;9002226.02101,"889,58016047248 ",.01)
 ;;58016047248
 ;;9002226.02101,"889,58016047248 ",.02)
 ;;58016047248
 ;;9002226.02101,"889,58016047250 ",.01)
 ;;58016047250
 ;;9002226.02101,"889,58016047250 ",.02)
 ;;58016047250
 ;;9002226.02101,"889,58016047256 ",.01)
 ;;58016047256
 ;;9002226.02101,"889,58016047256 ",.02)
 ;;58016047256
 ;;9002226.02101,"889,58016047260 ",.01)
 ;;58016047260
 ;;9002226.02101,"889,58016047260 ",.02)
 ;;58016047260
 ;;9002226.02101,"889,58016047267 ",.01)
 ;;58016047267
 ;;9002226.02101,"889,58016047267 ",.02)
 ;;58016047267
 ;;9002226.02101,"889,58016047269 ",.01)
 ;;58016047269
 ;;9002226.02101,"889,58016047269 ",.02)
 ;;58016047269
 ;;9002226.02101,"889,58016047270 ",.01)
 ;;58016047270
 ;;9002226.02101,"889,58016047270 ",.02)
 ;;58016047270
 ;;9002226.02101,"889,58016047271 ",.01)
 ;;58016047271
 ;;9002226.02101,"889,58016047271 ",.02)
 ;;58016047271
 ;;9002226.02101,"889,58016047272 ",.01)
 ;;58016047272
 ;;9002226.02101,"889,58016047272 ",.02)
 ;;58016047272
 ;;9002226.02101,"889,58016047273 ",.01)
 ;;58016047273
 ;;9002226.02101,"889,58016047273 ",.02)
 ;;58016047273
 ;;9002226.02101,"889,58016047275 ",.01)
 ;;58016047275
 ;;9002226.02101,"889,58016047275 ",.02)
 ;;58016047275
 ;;9002226.02101,"889,58016047276 ",.01)
 ;;58016047276
 ;;9002226.02101,"889,58016047276 ",.02)
 ;;58016047276
 ;;9002226.02101,"889,58016047277 ",.01)
 ;;58016047277
 ;;9002226.02101,"889,58016047277 ",.02)
 ;;58016047277
 ;;9002226.02101,"889,58016047279 ",.01)
 ;;58016047279
 ;;9002226.02101,"889,58016047279 ",.02)
 ;;58016047279
 ;;9002226.02101,"889,58016047280 ",.01)
 ;;58016047280
 ;;9002226.02101,"889,58016047280 ",.02)
 ;;58016047280
 ;;9002226.02101,"889,58016047281 ",.01)
 ;;58016047281
 ;;9002226.02101,"889,58016047281 ",.02)
 ;;58016047281
 ;;9002226.02101,"889,58016047282 ",.01)
 ;;58016047282
 ;;9002226.02101,"889,58016047282 ",.02)
 ;;58016047282
 ;;9002226.02101,"889,58016047283 ",.01)
 ;;58016047283
 ;;9002226.02101,"889,58016047283 ",.02)
 ;;58016047283
 ;;9002226.02101,"889,58016047284 ",.01)
 ;;58016047284
 ;;9002226.02101,"889,58016047284 ",.02)
 ;;58016047284
 ;;9002226.02101,"889,58016047287 ",.01)
 ;;58016047287
 ;;9002226.02101,"889,58016047287 ",.02)
 ;;58016047287
 ;;9002226.02101,"889,58016047289 ",.01)
 ;;58016047289
 ;;9002226.02101,"889,58016047289 ",.02)
 ;;58016047289
 ;;9002226.02101,"889,58016047290 ",.01)
 ;;58016047290
 ;;9002226.02101,"889,58016047290 ",.02)
 ;;58016047290
 ;;9002226.02101,"889,58016047291 ",.01)
 ;;58016047291
 ;;9002226.02101,"889,58016047291 ",.02)
 ;;58016047291
 ;;9002226.02101,"889,58016047292 ",.01)
 ;;58016047292
 ;;9002226.02101,"889,58016047292 ",.02)
 ;;58016047292
 ;;9002226.02101,"889,58016047293 ",.01)
 ;;58016047293
 ;;9002226.02101,"889,58016047293 ",.02)
 ;;58016047293
 ;;9002226.02101,"889,58016047296 ",.01)
 ;;58016047296
 ;;9002226.02101,"889,58016047296 ",.02)
 ;;58016047296
 ;;9002226.02101,"889,58016047297 ",.01)
 ;;58016047297
 ;;9002226.02101,"889,58016047297 ",.02)
 ;;58016047297
 ;;9002226.02101,"889,58016047298 ",.01)
 ;;58016047298
 ;;9002226.02101,"889,58016047298 ",.02)
 ;;58016047298
 ;;9002226.02101,"889,58016047299 ",.01)
 ;;58016047299
 ;;9002226.02101,"889,58016047299 ",.02)
 ;;58016047299
 ;;9002226.02101,"889,58016052600 ",.01)
 ;;58016052600
 ;;9002226.02101,"889,58016052600 ",.02)
 ;;58016052600
 ;;9002226.02101,"889,58016052601 ",.01)
 ;;58016052601
 ;;9002226.02101,"889,58016052601 ",.02)
 ;;58016052601
 ;;9002226.02101,"889,58016052602 ",.01)
 ;;58016052602
 ;;9002226.02101,"889,58016052602 ",.02)
 ;;58016052602
 ;;9002226.02101,"889,58016052603 ",.01)
 ;;58016052603
 ;;9002226.02101,"889,58016052603 ",.02)
 ;;58016052603
 ;;9002226.02101,"889,58016052604 ",.01)
 ;;58016052604
 ;;9002226.02101,"889,58016052604 ",.02)
 ;;58016052604
 ;;9002226.02101,"889,58016052605 ",.01)
 ;;58016052605
 ;;9002226.02101,"889,58016052605 ",.02)
 ;;58016052605
 ;;9002226.02101,"889,58016052606 ",.01)
 ;;58016052606
 ;;9002226.02101,"889,58016052606 ",.02)
 ;;58016052606
 ;;9002226.02101,"889,58016052607 ",.01)
 ;;58016052607
 ;;9002226.02101,"889,58016052607 ",.02)
 ;;58016052607
 ;;9002226.02101,"889,58016052608 ",.01)
 ;;58016052608
 ;;9002226.02101,"889,58016052608 ",.02)
 ;;58016052608
 ;;9002226.02101,"889,58016052609 ",.01)
 ;;58016052609
 ;;9002226.02101,"889,58016052609 ",.02)
 ;;58016052609
 ;;9002226.02101,"889,58016052610 ",.01)
 ;;58016052610
 ;;9002226.02101,"889,58016052610 ",.02)
 ;;58016052610
 ;;9002226.02101,"889,58016052612 ",.01)
 ;;58016052612
 ;;9002226.02101,"889,58016052612 ",.02)
 ;;58016052612
 ;;9002226.02101,"889,58016052614 ",.01)
 ;;58016052614
 ;;9002226.02101,"889,58016052614 ",.02)
 ;;58016052614
 ;;9002226.02101,"889,58016052615 ",.01)
 ;;58016052615
 ;;9002226.02101,"889,58016052615 ",.02)
 ;;58016052615
 ;;9002226.02101,"889,58016052616 ",.01)
 ;;58016052616
 ;;9002226.02101,"889,58016052616 ",.02)
 ;;58016052616
 ;;9002226.02101,"889,58016052618 ",.01)
 ;;58016052618
 ;;9002226.02101,"889,58016052618 ",.02)
 ;;58016052618
 ;;9002226.02101,"889,58016052620 ",.01)
 ;;58016052620
 ;;9002226.02101,"889,58016052620 ",.02)
 ;;58016052620
 ;;9002226.02101,"889,58016052621 ",.01)
 ;;58016052621
 ;;9002226.02101,"889,58016052621 ",.02)
 ;;58016052621
 ;;9002226.02101,"889,58016052624 ",.01)
 ;;58016052624
 ;;9002226.02101,"889,58016052624 ",.02)
 ;;58016052624
 ;;9002226.02101,"889,58016052625 ",.01)
 ;;58016052625
 ;;9002226.02101,"889,58016052625 ",.02)
 ;;58016052625
 ;;9002226.02101,"889,58016052626 ",.01)
 ;;58016052626
 ;;9002226.02101,"889,58016052626 ",.02)
 ;;58016052626
 ;;9002226.02101,"889,58016052627 ",.01)
 ;;58016052627
 ;;9002226.02101,"889,58016052627 ",.02)
 ;;58016052627
 ;;9002226.02101,"889,58016052628 ",.01)
 ;;58016052628
 ;;9002226.02101,"889,58016052628 ",.02)
 ;;58016052628
 ;;9002226.02101,"889,58016052630 ",.01)
 ;;58016052630
 ;;9002226.02101,"889,58016052630 ",.02)
 ;;58016052630
 ;;9002226.02101,"889,58016052632 ",.01)
 ;;58016052632
 ;;9002226.02101,"889,58016052632 ",.02)
 ;;58016052632
 ;;9002226.02101,"889,58016052635 ",.01)
 ;;58016052635
 ;;9002226.02101,"889,58016052635 ",.02)
 ;;58016052635
 ;;9002226.02101,"889,58016052636 ",.01)
 ;;58016052636
 ;;9002226.02101,"889,58016052636 ",.02)
 ;;58016052636
 ;;9002226.02101,"889,58016052640 ",.01)
 ;;58016052640
 ;;9002226.02101,"889,58016052640 ",.02)
 ;;58016052640
 ;;9002226.02101,"889,58016052642 ",.01)
 ;;58016052642
 ;;9002226.02101,"889,58016052642 ",.02)
 ;;58016052642
 ;;9002226.02101,"889,58016052644 ",.01)
 ;;58016052644
 ;;9002226.02101,"889,58016052644 ",.02)
 ;;58016052644
 ;;9002226.02101,"889,58016052645 ",.01)
 ;;58016052645
 ;;9002226.02101,"889,58016052645 ",.02)
 ;;58016052645
 ;;9002226.02101,"889,58016052648 ",.01)
 ;;58016052648
 ;;9002226.02101,"889,58016052648 ",.02)
 ;;58016052648
 ;;9002226.02101,"889,58016052650 ",.01)
 ;;58016052650
 ;;9002226.02101,"889,58016052650 ",.02)
 ;;58016052650
 ;;9002226.02101,"889,58016052656 ",.01)
 ;;58016052656
 ;;9002226.02101,"889,58016052656 ",.02)
 ;;58016052656
 ;;9002226.02101,"889,58016052660 ",.01)
 ;;58016052660
 ;;9002226.02101,"889,58016052660 ",.02)
 ;;58016052660
 ;;9002226.02101,"889,58016052667 ",.01)
 ;;58016052667
 ;;9002226.02101,"889,58016052667 ",.02)
 ;;58016052667
 ;;9002226.02101,"889,58016052669 ",.01)
 ;;58016052669
 ;;9002226.02101,"889,58016052669 ",.02)
 ;;58016052669
 ;;9002226.02101,"889,58016052670 ",.01)
 ;;58016052670
 ;;9002226.02101,"889,58016052670 ",.02)
 ;;58016052670
 ;;9002226.02101,"889,58016052671 ",.01)
 ;;58016052671
 ;;9002226.02101,"889,58016052671 ",.02)
 ;;58016052671
 ;;9002226.02101,"889,58016052672 ",.01)
 ;;58016052672
 ;;9002226.02101,"889,58016052672 ",.02)
 ;;58016052672
 ;;9002226.02101,"889,58016052673 ",.01)
 ;;58016052673
 ;;9002226.02101,"889,58016052673 ",.02)
 ;;58016052673
 ;;9002226.02101,"889,58016052675 ",.01)
 ;;58016052675
 ;;9002226.02101,"889,58016052675 ",.02)
 ;;58016052675
 ;;9002226.02101,"889,58016052676 ",.01)
 ;;58016052676
 ;;9002226.02101,"889,58016052676 ",.02)
 ;;58016052676
 ;;9002226.02101,"889,58016052677 ",.01)
 ;;58016052677
 ;;9002226.02101,"889,58016052677 ",.02)
 ;;58016052677
 ;;9002226.02101,"889,58016052679 ",.01)
 ;;58016052679
 ;;9002226.02101,"889,58016052679 ",.02)
 ;;58016052679
 ;;9002226.02101,"889,58016052680 ",.01)
 ;;58016052680
 ;;9002226.02101,"889,58016052680 ",.02)
 ;;58016052680
 ;;9002226.02101,"889,58016052681 ",.01)
 ;;58016052681
 ;;9002226.02101,"889,58016052681 ",.02)
 ;;58016052681
 ;;9002226.02101,"889,58016052682 ",.01)
 ;;58016052682
 ;;9002226.02101,"889,58016052682 ",.02)
 ;;58016052682
 ;;9002226.02101,"889,58016052683 ",.01)
 ;;58016052683
 ;;9002226.02101,"889,58016052683 ",.02)
 ;;58016052683
 ;;9002226.02101,"889,58016052684 ",.01)
 ;;58016052684
 ;;9002226.02101,"889,58016052684 ",.02)
 ;;58016052684
 ;;9002226.02101,"889,58016052687 ",.01)
 ;;58016052687
 ;;9002226.02101,"889,58016052687 ",.02)
 ;;58016052687
 ;;9002226.02101,"889,58016052689 ",.01)
 ;;58016052689
 ;;9002226.02101,"889,58016052689 ",.02)
 ;;58016052689
 ;;9002226.02101,"889,58016052690 ",.01)
 ;;58016052690
 ;;9002226.02101,"889,58016052690 ",.02)
 ;;58016052690
 ;;9002226.02101,"889,58016052691 ",.01)
 ;;58016052691
 ;;9002226.02101,"889,58016052691 ",.02)
 ;;58016052691
 ;;9002226.02101,"889,58016052692 ",.01)
 ;;58016052692
 ;;9002226.02101,"889,58016052692 ",.02)
 ;;58016052692
 ;;9002226.02101,"889,58016052693 ",.01)
 ;;58016052693
 ;;9002226.02101,"889,58016052693 ",.02)
 ;;58016052693
 ;;9002226.02101,"889,58016052696 ",.01)
 ;;58016052696
 ;;9002226.02101,"889,58016052696 ",.02)
 ;;58016052696
 ;;9002226.02101,"889,58016052697 ",.01)
 ;;58016052697
 ;;9002226.02101,"889,58016052697 ",.02)
 ;;58016052697
 ;;9002226.02101,"889,58016052698 ",.01)
 ;;58016052698
 ;;9002226.02101,"889,58016052698 ",.02)
 ;;58016052698
 ;;9002226.02101,"889,58016052699 ",.01)
 ;;58016052699
 ;;9002226.02101,"889,58016052699 ",.02)
 ;;58016052699
 ;;9002226.02101,"889,58016052800 ",.01)
 ;;58016052800
 ;;9002226.02101,"889,58016052800 ",.02)
 ;;58016052800
 ;;9002226.02101,"889,58016052801 ",.01)
 ;;58016052801
 ;;9002226.02101,"889,58016052801 ",.02)
 ;;58016052801
 ;;9002226.02101,"889,58016052802 ",.01)
 ;;58016052802
 ;;9002226.02101,"889,58016052802 ",.02)
 ;;58016052802
 ;;9002226.02101,"889,58016052803 ",.01)
 ;;58016052803
 ;;9002226.02101,"889,58016052803 ",.02)
 ;;58016052803
 ;;9002226.02101,"889,58016052804 ",.01)
 ;;58016052804
 ;;9002226.02101,"889,58016052804 ",.02)
 ;;58016052804
 ;;9002226.02101,"889,58016052805 ",.01)
 ;;58016052805
 ;;9002226.02101,"889,58016052805 ",.02)
 ;;58016052805
 ;;9002226.02101,"889,58016052806 ",.01)
 ;;58016052806
 ;;9002226.02101,"889,58016052806 ",.02)
 ;;58016052806