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

BGPM5BDJ.m

Go to the documentation of this file.
BGPM5BDJ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,58016098656 ",.01)
 ;;58016098656
 ;;9002226.02101,"1044,58016098656 ",.02)
 ;;58016098656
 ;;9002226.02101,"1044,58016098660 ",.01)
 ;;58016098660
 ;;9002226.02101,"1044,58016098660 ",.02)
 ;;58016098660
 ;;9002226.02101,"1044,58016098667 ",.01)
 ;;58016098667
 ;;9002226.02101,"1044,58016098667 ",.02)
 ;;58016098667
 ;;9002226.02101,"1044,58016098669 ",.01)
 ;;58016098669
 ;;9002226.02101,"1044,58016098669 ",.02)
 ;;58016098669
 ;;9002226.02101,"1044,58016098670 ",.01)
 ;;58016098670
 ;;9002226.02101,"1044,58016098670 ",.02)
 ;;58016098670
 ;;9002226.02101,"1044,58016098671 ",.01)
 ;;58016098671
 ;;9002226.02101,"1044,58016098671 ",.02)
 ;;58016098671
 ;;9002226.02101,"1044,58016098672 ",.01)
 ;;58016098672
 ;;9002226.02101,"1044,58016098672 ",.02)
 ;;58016098672
 ;;9002226.02101,"1044,58016098673 ",.01)
 ;;58016098673
 ;;9002226.02101,"1044,58016098673 ",.02)
 ;;58016098673
 ;;9002226.02101,"1044,58016098675 ",.01)
 ;;58016098675
 ;;9002226.02101,"1044,58016098675 ",.02)
 ;;58016098675
 ;;9002226.02101,"1044,58016098676 ",.01)
 ;;58016098676
 ;;9002226.02101,"1044,58016098676 ",.02)
 ;;58016098676
 ;;9002226.02101,"1044,58016098677 ",.01)
 ;;58016098677
 ;;9002226.02101,"1044,58016098677 ",.02)
 ;;58016098677
 ;;9002226.02101,"1044,58016098679 ",.01)
 ;;58016098679
 ;;9002226.02101,"1044,58016098679 ",.02)
 ;;58016098679
 ;;9002226.02101,"1044,58016098680 ",.01)
 ;;58016098680
 ;;9002226.02101,"1044,58016098680 ",.02)
 ;;58016098680
 ;;9002226.02101,"1044,58016098681 ",.01)
 ;;58016098681
 ;;9002226.02101,"1044,58016098681 ",.02)
 ;;58016098681
 ;;9002226.02101,"1044,58016098682 ",.01)
 ;;58016098682
 ;;9002226.02101,"1044,58016098682 ",.02)
 ;;58016098682
 ;;9002226.02101,"1044,58016098683 ",.01)
 ;;58016098683
 ;;9002226.02101,"1044,58016098683 ",.02)
 ;;58016098683
 ;;9002226.02101,"1044,58016098684 ",.01)
 ;;58016098684
 ;;9002226.02101,"1044,58016098684 ",.02)
 ;;58016098684
 ;;9002226.02101,"1044,58016098687 ",.01)
 ;;58016098687
 ;;9002226.02101,"1044,58016098687 ",.02)
 ;;58016098687
 ;;9002226.02101,"1044,58016098689 ",.01)
 ;;58016098689
 ;;9002226.02101,"1044,58016098689 ",.02)
 ;;58016098689
 ;;9002226.02101,"1044,58016098690 ",.01)
 ;;58016098690
 ;;9002226.02101,"1044,58016098690 ",.02)
 ;;58016098690
 ;;9002226.02101,"1044,58016098691 ",.01)
 ;;58016098691
 ;;9002226.02101,"1044,58016098691 ",.02)
 ;;58016098691
 ;;9002226.02101,"1044,58016098692 ",.01)
 ;;58016098692
 ;;9002226.02101,"1044,58016098692 ",.02)
 ;;58016098692
 ;;9002226.02101,"1044,58016098693 ",.01)
 ;;58016098693
 ;;9002226.02101,"1044,58016098693 ",.02)
 ;;58016098693
 ;;9002226.02101,"1044,58016098696 ",.01)
 ;;58016098696
 ;;9002226.02101,"1044,58016098696 ",.02)
 ;;58016098696
 ;;9002226.02101,"1044,58016098697 ",.01)
 ;;58016098697
 ;;9002226.02101,"1044,58016098697 ",.02)
 ;;58016098697
 ;;9002226.02101,"1044,58016098698 ",.01)
 ;;58016098698
 ;;9002226.02101,"1044,58016098698 ",.02)
 ;;58016098698
 ;;9002226.02101,"1044,58016482501 ",.01)
 ;;58016482501
 ;;9002226.02101,"1044,58016482501 ",.02)
 ;;58016482501
 ;;9002226.02101,"1044,58016482601 ",.01)
 ;;58016482601
 ;;9002226.02101,"1044,58016482601 ",.02)
 ;;58016482601
 ;;9002226.02101,"1044,58087000311 ",.01)
 ;;58087000311
 ;;9002226.02101,"1044,58087000311 ",.02)
 ;;58087000311
 ;;9002226.02101,"1044,58087000330 ",.01)
 ;;58087000330
 ;;9002226.02101,"1044,58087000330 ",.02)
 ;;58087000330
 ;;9002226.02101,"1044,58864002215 ",.01)
 ;;58864002215
 ;;9002226.02101,"1044,58864002215 ",.02)
 ;;58864002215
 ;;9002226.02101,"1044,58864002230 ",.01)
 ;;58864002230
 ;;9002226.02101,"1044,58864002230 ",.02)
 ;;58864002230
 ;;9002226.02101,"1044,58864002260 ",.01)
 ;;58864002260
 ;;9002226.02101,"1044,58864002260 ",.02)
 ;;58864002260
 ;;9002226.02101,"1044,58864002290 ",.01)
 ;;58864002290
 ;;9002226.02101,"1044,58864002290 ",.02)
 ;;58864002290
 ;;9002226.02101,"1044,58864002330 ",.01)
 ;;58864002330
 ;;9002226.02101,"1044,58864002330 ",.02)
 ;;58864002330
 ;;9002226.02101,"1044,58864002360 ",.01)
 ;;58864002360
 ;;9002226.02101,"1044,58864002360 ",.02)
 ;;58864002360
 ;;9002226.02101,"1044,58864002390 ",.01)
 ;;58864002390
 ;;9002226.02101,"1044,58864002390 ",.02)
 ;;58864002390
 ;;9002226.02101,"1044,58864002430 ",.01)
 ;;58864002430
 ;;9002226.02101,"1044,58864002430 ",.02)
 ;;58864002430
 ;;9002226.02101,"1044,58864002501 ",.01)
 ;;58864002501
 ;;9002226.02101,"1044,58864002501 ",.02)
 ;;58864002501
 ;;9002226.02101,"1044,58864002514 ",.01)
 ;;58864002514
 ;;9002226.02101,"1044,58864002514 ",.02)
 ;;58864002514
 ;;9002226.02101,"1044,58864002530 ",.01)
 ;;58864002530
 ;;9002226.02101,"1044,58864002530 ",.02)
 ;;58864002530
 ;;9002226.02101,"1044,58864002560 ",.01)
 ;;58864002560
 ;;9002226.02101,"1044,58864002560 ",.02)
 ;;58864002560
 ;;9002226.02101,"1044,58864010315 ",.01)
 ;;58864010315
 ;;9002226.02101,"1044,58864010315 ",.02)
 ;;58864010315
 ;;9002226.02101,"1044,58864010330 ",.01)
 ;;58864010330
 ;;9002226.02101,"1044,58864010330 ",.02)
 ;;58864010330
 ;;9002226.02101,"1044,58864010360 ",.01)
 ;;58864010360
 ;;9002226.02101,"1044,58864010360 ",.02)
 ;;58864010360
 ;;9002226.02101,"1044,58864029230 ",.01)
 ;;58864029230
 ;;9002226.02101,"1044,58864029230 ",.02)
 ;;58864029230
 ;;9002226.02101,"1044,58864070830 ",.01)
 ;;58864070830
 ;;9002226.02101,"1044,58864070830 ",.02)
 ;;58864070830
 ;;9002226.02101,"1044,58864071615 ",.01)
 ;;58864071615
 ;;9002226.02101,"1044,58864071615 ",.02)
 ;;58864071615
 ;;9002226.02101,"1044,58864071630 ",.01)
 ;;58864071630
 ;;9002226.02101,"1044,58864071630 ",.02)
 ;;58864071630
 ;;9002226.02101,"1044,58864074115 ",.01)
 ;;58864074115
 ;;9002226.02101,"1044,58864074115 ",.02)
 ;;58864074115
 ;;9002226.02101,"1044,58864074130 ",.01)
 ;;58864074130
 ;;9002226.02101,"1044,58864074130 ",.02)
 ;;58864074130
 ;;9002226.02101,"1044,58864075730 ",.01)
 ;;58864075730
 ;;9002226.02101,"1044,58864075730 ",.02)
 ;;58864075730
 ;;9002226.02101,"1044,58864078330 ",.01)
 ;;58864078330
 ;;9002226.02101,"1044,58864078330 ",.02)
 ;;58864078330
 ;;9002226.02101,"1044,58864081215 ",.01)
 ;;58864081215
 ;;9002226.02101,"1044,58864081215 ",.02)
 ;;58864081215
 ;;9002226.02101,"1044,58864081230 ",.01)
 ;;58864081230
 ;;9002226.02101,"1044,58864081230 ",.02)
 ;;58864081230
 ;;9002226.02101,"1044,58864082315 ",.01)
 ;;58864082315
 ;;9002226.02101,"1044,58864082315 ",.02)
 ;;58864082315
 ;;9002226.02101,"1044,58864082330 ",.01)
 ;;58864082330
 ;;9002226.02101,"1044,58864082330 ",.02)
 ;;58864082330
 ;;9002226.02101,"1044,58864087714 ",.01)
 ;;58864087714
 ;;9002226.02101,"1044,58864087714 ",.02)
 ;;58864087714
 ;;9002226.02101,"1044,58864087730 ",.01)
 ;;58864087730
 ;;9002226.02101,"1044,58864087730 ",.02)
 ;;58864087730
 ;;9002226.02101,"1044,59115005301 ",.01)
 ;;59115005301
 ;;9002226.02101,"1044,59115005301 ",.02)
 ;;59115005301
 ;;9002226.02101,"1044,59115005333 ",.01)
 ;;59115005333
 ;;9002226.02101,"1044,59115005333 ",.02)
 ;;59115005333
 ;;9002226.02101,"1044,59115005350 ",.01)
 ;;59115005350
 ;;9002226.02101,"1044,59115005350 ",.02)
 ;;59115005350
 ;;9002226.02101,"1044,59115005355 ",.01)
 ;;59115005355
 ;;9002226.02101,"1044,59115005355 ",.02)
 ;;59115005355
 ;;9002226.02101,"1044,59115005401 ",.01)
 ;;59115005401
 ;;9002226.02101,"1044,59115005401 ",.02)
 ;;59115005401
 ;;9002226.02101,"1044,59115005433 ",.01)
 ;;59115005433
 ;;9002226.02101,"1044,59115005433 ",.02)
 ;;59115005433
 ;;9002226.02101,"1044,59115005455 ",.01)
 ;;59115005455
 ;;9002226.02101,"1044,59115005455 ",.02)
 ;;59115005455
 ;;9002226.02101,"1044,59115005501 ",.01)
 ;;59115005501
 ;;9002226.02101,"1044,59115005501 ",.02)
 ;;59115005501
 ;;9002226.02101,"1044,59115005533 ",.01)
 ;;59115005533
 ;;9002226.02101,"1044,59115005533 ",.02)
 ;;59115005533
 ;;9002226.02101,"1044,59115005555 ",.01)
 ;;59115005555
 ;;9002226.02101,"1044,59115005555 ",.02)
 ;;59115005555
 ;;9002226.02101,"1044,59762011901 ",.01)
 ;;59762011901
 ;;9002226.02101,"1044,59762011901 ",.02)
 ;;59762011901
 ;;9002226.02101,"1044,59762018001 ",.01)
 ;;59762018001
 ;;9002226.02101,"1044,59762018001 ",.02)
 ;;59762018001
 ;;9002226.02101,"1044,59762018002 ",.01)
 ;;59762018002
 ;;9002226.02101,"1044,59762018002 ",.02)
 ;;59762018002
 ;;9002226.02101,"1044,59762018003 ",.01)
 ;;59762018003
 ;;9002226.02101,"1044,59762018003 ",.02)
 ;;59762018003
 ;;9002226.02101,"1044,59762018004 ",.01)
 ;;59762018004
 ;;9002226.02101,"1044,59762018004 ",.02)
 ;;59762018004
 ;;9002226.02101,"1044,59762018101 ",.01)
 ;;59762018101
 ;;9002226.02101,"1044,59762018101 ",.02)
 ;;59762018101
 ;;9002226.02101,"1044,59762018102 ",.01)
 ;;59762018102
 ;;9002226.02101,"1044,59762018102 ",.02)
 ;;59762018102
 ;;9002226.02101,"1044,59762018103 ",.01)
 ;;59762018103
 ;;9002226.02101,"1044,59762018103 ",.02)
 ;;59762018103
 ;;9002226.02101,"1044,59762018104 ",.01)
 ;;59762018104
 ;;9002226.02101,"1044,59762018104 ",.02)
 ;;59762018104
 ;;9002226.02101,"1044,59762018201 ",.01)
 ;;59762018201
 ;;9002226.02101,"1044,59762018201 ",.02)
 ;;59762018201
 ;;9002226.02101,"1044,59762018202 ",.01)
 ;;59762018202
 ;;9002226.02101,"1044,59762018202 ",.02)
 ;;59762018202
 ;;9002226.02101,"1044,59762018203 ",.01)
 ;;59762018203
 ;;9002226.02101,"1044,59762018203 ",.02)
 ;;59762018203
 ;;9002226.02101,"1044,59762018204 ",.01)
 ;;59762018204
 ;;9002226.02101,"1044,59762018204 ",.02)
 ;;59762018204
 ;;9002226.02101,"1044,59762141007 ",.01)
 ;;59762141007
 ;;9002226.02101,"1044,59762141007 ",.02)
 ;;59762141007
 ;;9002226.02101,"1044,59762141207 ",.01)
 ;;59762141207
 ;;9002226.02101,"1044,59762141207 ",.02)
 ;;59762141207
 ;;9002226.02101,"1044,59762141407 ",.01)
 ;;59762141407
 ;;9002226.02101,"1044,59762141407 ",.02)
 ;;59762141407
 ;;9002226.02101,"1044,59762141503 ",.01)
 ;;59762141503
 ;;9002226.02101,"1044,59762141503 ",.02)
 ;;59762141503
 ;;9002226.02101,"1044,59762141505 ",.01)
 ;;59762141505
 ;;9002226.02101,"1044,59762141505 ",.02)
 ;;59762141505
 ;;9002226.02101,"1044,59762141506 ",.01)
 ;;59762141506
 ;;9002226.02101,"1044,59762141506 ",.02)
 ;;59762141506
 ;;9002226.02101,"1044,59762141509 ",.01)
 ;;59762141509
 ;;9002226.02101,"1044,59762141509 ",.02)
 ;;59762141509
 ;;9002226.02101,"1044,59762141603 ",.01)
 ;;59762141603
 ;;9002226.02101,"1044,59762141603 ",.02)
 ;;59762141603
 ;;9002226.02101,"1044,59762141605 ",.01)
 ;;59762141605
 ;;9002226.02101,"1044,59762141605 ",.02)
 ;;59762141605
 ;;9002226.02101,"1044,59762141606 ",.01)
 ;;59762141606
 ;;9002226.02101,"1044,59762141606 ",.02)
 ;;59762141606
 ;;9002226.02101,"1044,59762141609 ",.01)
 ;;59762141609
 ;;9002226.02101,"1044,59762141609 ",.02)
 ;;59762141609
 ;;9002226.02101,"1044,59762141703 ",.01)
 ;;59762141703
 ;;9002226.02101,"1044,59762141703 ",.02)
 ;;59762141703
 ;;9002226.02101,"1044,59762141705 ",.01)
 ;;59762141705
 ;;9002226.02101,"1044,59762141705 ",.02)
 ;;59762141705
 ;;9002226.02101,"1044,59762141706 ",.01)
 ;;59762141706
 ;;9002226.02101,"1044,59762141706 ",.02)
 ;;59762141706
 ;;9002226.02101,"1044,59762141709 ",.01)
 ;;59762141709
 ;;9002226.02101,"1044,59762141709 ",.02)
 ;;59762141709
 ;;9002226.02101,"1044,59762141803 ",.01)
 ;;59762141803
 ;;9002226.02101,"1044,59762141803 ",.02)
 ;;59762141803
 ;;9002226.02101,"1044,59762141805 ",.01)
 ;;59762141805
 ;;9002226.02101,"1044,59762141805 ",.02)
 ;;59762141805
 ;;9002226.02101,"1044,59762141806 ",.01)
 ;;59762141806
 ;;9002226.02101,"1044,59762141806 ",.02)
 ;;59762141806
 ;;9002226.02101,"1044,59762141809 ",.01)
 ;;59762141809