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

BGPM5AJK.m

Go to the documentation of this file.
BGPM5AJK ;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,50111046803 ",.01)
 ;;50111046803
 ;;9002226.02101,"889,50111046803 ",.02)
 ;;50111046803
 ;;9002226.02101,"889,50111046901 ",.01)
 ;;50111046901
 ;;9002226.02101,"889,50111046901 ",.02)
 ;;50111046901
 ;;9002226.02101,"889,50111046903 ",.01)
 ;;50111046903
 ;;9002226.02101,"889,50111046903 ",.02)
 ;;50111046903
 ;;9002226.02101,"889,50111047001 ",.01)
 ;;50111047001
 ;;9002226.02101,"889,50111047001 ",.02)
 ;;50111047001
 ;;9002226.02101,"889,50111047003 ",.01)
 ;;50111047003
 ;;9002226.02101,"889,50111047003 ",.02)
 ;;50111047003
 ;;9002226.02101,"889,50111047101 ",.01)
 ;;50111047101
 ;;9002226.02101,"889,50111047101 ",.02)
 ;;50111047101
 ;;9002226.02101,"889,50111047102 ",.01)
 ;;50111047102
 ;;9002226.02101,"889,50111047102 ",.02)
 ;;50111047102
 ;;9002226.02101,"889,50111047103 ",.01)
 ;;50111047103
 ;;9002226.02101,"889,50111047103 ",.02)
 ;;50111047103
 ;;9002226.02101,"889,50111047201 ",.01)
 ;;50111047201
 ;;9002226.02101,"889,50111047201 ",.02)
 ;;50111047201
 ;;9002226.02101,"889,50111047202 ",.01)
 ;;50111047202
 ;;9002226.02101,"889,50111047202 ",.02)
 ;;50111047202
 ;;9002226.02101,"889,50111047203 ",.01)
 ;;50111047203
 ;;9002226.02101,"889,50111047203 ",.02)
 ;;50111047203
 ;;9002226.02101,"889,50111047204 ",.01)
 ;;50111047204
 ;;9002226.02101,"889,50111047204 ",.02)
 ;;50111047204
 ;;9002226.02101,"889,50111047301 ",.01)
 ;;50111047301
 ;;9002226.02101,"889,50111047301 ",.02)
 ;;50111047301
 ;;9002226.02101,"889,50111047401 ",.01)
 ;;50111047401
 ;;9002226.02101,"889,50111047401 ",.02)
 ;;50111047401
 ;;9002226.02101,"889,50742010101 ",.01)
 ;;50742010101
 ;;9002226.02101,"889,50742010101 ",.02)
 ;;50742010101
 ;;9002226.02101,"889,50742010110 ",.01)
 ;;50742010110
 ;;9002226.02101,"889,50742010110 ",.02)
 ;;50742010110
 ;;9002226.02101,"889,50742010201 ",.01)
 ;;50742010201
 ;;9002226.02101,"889,50742010201 ",.02)
 ;;50742010201
 ;;9002226.02101,"889,50742010210 ",.01)
 ;;50742010210
 ;;9002226.02101,"889,50742010210 ",.02)
 ;;50742010210
 ;;9002226.02101,"889,50742010301 ",.01)
 ;;50742010301
 ;;9002226.02101,"889,50742010301 ",.02)
 ;;50742010301
 ;;9002226.02101,"889,50742010310 ",.01)
 ;;50742010310
 ;;9002226.02101,"889,50742010310 ",.02)
 ;;50742010310
 ;;9002226.02101,"889,50742010701 ",.01)
 ;;50742010701
 ;;9002226.02101,"889,50742010701 ",.02)
 ;;50742010701
 ;;9002226.02101,"889,50742010705 ",.01)
 ;;50742010705
 ;;9002226.02101,"889,50742010705 ",.02)
 ;;50742010705
 ;;9002226.02101,"889,50742010801 ",.01)
 ;;50742010801
 ;;9002226.02101,"889,50742010801 ",.02)
 ;;50742010801
 ;;9002226.02101,"889,50742010810 ",.01)
 ;;50742010810
 ;;9002226.02101,"889,50742010810 ",.02)
 ;;50742010810
 ;;9002226.02101,"889,50742010901 ",.01)
 ;;50742010901
 ;;9002226.02101,"889,50742010901 ",.02)
 ;;50742010901
 ;;9002226.02101,"889,50742010910 ",.01)
 ;;50742010910
 ;;9002226.02101,"889,50742010910 ",.02)
 ;;50742010910
 ;;9002226.02101,"889,51079025501 ",.01)
 ;;51079025501
 ;;9002226.02101,"889,51079025501 ",.02)
 ;;51079025501
 ;;9002226.02101,"889,51079025517 ",.01)
 ;;51079025517
 ;;9002226.02101,"889,51079025517 ",.02)
 ;;51079025517
 ;;9002226.02101,"889,51079025519 ",.01)
 ;;51079025519
 ;;9002226.02101,"889,51079025519 ",.02)
 ;;51079025519
 ;;9002226.02101,"889,51079025520 ",.01)
 ;;51079025520
 ;;9002226.02101,"889,51079025520 ",.02)
 ;;51079025520
 ;;9002226.02101,"889,51079027701 ",.01)
 ;;51079027701
 ;;9002226.02101,"889,51079027701 ",.02)
 ;;51079027701
 ;;9002226.02101,"889,51079027717 ",.01)
 ;;51079027717
 ;;9002226.02101,"889,51079027717 ",.02)
 ;;51079027717
 ;;9002226.02101,"889,51079027719 ",.01)
 ;;51079027719
 ;;9002226.02101,"889,51079027719 ",.02)
 ;;51079027719
 ;;9002226.02101,"889,51079027720 ",.01)
 ;;51079027720
 ;;9002226.02101,"889,51079027720 ",.02)
 ;;51079027720
 ;;9002226.02101,"889,51079027801 ",.01)
 ;;51079027801
 ;;9002226.02101,"889,51079027801 ",.02)
 ;;51079027801
 ;;9002226.02101,"889,51079027820 ",.01)
 ;;51079027820
 ;;9002226.02101,"889,51079027820 ",.02)
 ;;51079027820
 ;;9002226.02101,"889,51079027901 ",.01)
 ;;51079027901
 ;;9002226.02101,"889,51079027901 ",.02)
 ;;51079027901
 ;;9002226.02101,"889,51079027920 ",.01)
 ;;51079027920
 ;;9002226.02101,"889,51079027920 ",.02)
 ;;51079027920
 ;;9002226.02101,"889,51079028001 ",.01)
 ;;51079028001
 ;;9002226.02101,"889,51079028001 ",.02)
 ;;51079028001
 ;;9002226.02101,"889,51079028020 ",.01)
 ;;51079028020
 ;;9002226.02101,"889,51079028020 ",.02)
 ;;51079028020
 ;;9002226.02101,"889,51079068401 ",.01)
 ;;51079068401
 ;;9002226.02101,"889,51079068401 ",.02)
 ;;51079068401
 ;;9002226.02101,"889,51079068417 ",.01)
 ;;51079068417
 ;;9002226.02101,"889,51079068417 ",.02)
 ;;51079068417
 ;;9002226.02101,"889,51079068419 ",.01)
 ;;51079068419
 ;;9002226.02101,"889,51079068419 ",.02)
 ;;51079068419
 ;;9002226.02101,"889,51079068420 ",.01)
 ;;51079068420
 ;;9002226.02101,"889,51079068420 ",.02)
 ;;51079068420
 ;;9002226.02101,"889,51079068463 ",.01)
 ;;51079068463
 ;;9002226.02101,"889,51079068463 ",.02)
 ;;51079068463
 ;;9002226.02101,"889,51079068501 ",.01)
 ;;51079068501
 ;;9002226.02101,"889,51079068501 ",.02)
 ;;51079068501
 ;;9002226.02101,"889,51079068520 ",.01)
 ;;51079068520
 ;;9002226.02101,"889,51079068520 ",.02)
 ;;51079068520
 ;;9002226.02101,"889,51079075901 ",.01)
 ;;51079075901
 ;;9002226.02101,"889,51079075901 ",.02)
 ;;51079075901
 ;;9002226.02101,"889,51079075917 ",.01)
 ;;51079075917
 ;;9002226.02101,"889,51079075917 ",.02)
 ;;51079075917
 ;;9002226.02101,"889,51079075919 ",.01)
 ;;51079075919
 ;;9002226.02101,"889,51079075919 ",.02)
 ;;51079075919
 ;;9002226.02101,"889,51079075920 ",.01)
 ;;51079075920
 ;;9002226.02101,"889,51079075920 ",.02)
 ;;51079075920
 ;;9002226.02101,"889,51079075963 ",.01)
 ;;51079075963
 ;;9002226.02101,"889,51079075963 ",.02)
 ;;51079075963
 ;;9002226.02101,"889,51079080101 ",.01)
 ;;51079080101
 ;;9002226.02101,"889,51079080101 ",.02)
 ;;51079080101
 ;;9002226.02101,"889,51079080117 ",.01)
 ;;51079080117
 ;;9002226.02101,"889,51079080117 ",.02)
 ;;51079080117
 ;;9002226.02101,"889,51079080119 ",.01)
 ;;51079080119
 ;;9002226.02101,"889,51079080119 ",.02)
 ;;51079080119
 ;;9002226.02101,"889,51079080120 ",.01)
 ;;51079080120
 ;;9002226.02101,"889,51079080120 ",.02)
 ;;51079080120
 ;;9002226.02101,"889,51079080130 ",.01)
 ;;51079080130
 ;;9002226.02101,"889,51079080130 ",.02)
 ;;51079080130
 ;;9002226.02101,"889,51079080156 ",.01)
 ;;51079080156
 ;;9002226.02101,"889,51079080156 ",.02)
 ;;51079080156
 ;;9002226.02101,"889,51079080157 ",.01)
 ;;51079080157
 ;;9002226.02101,"889,51079080157 ",.02)
 ;;51079080157
 ;;9002226.02101,"889,51079080201 ",.01)
 ;;51079080201
 ;;9002226.02101,"889,51079080201 ",.02)
 ;;51079080201
 ;;9002226.02101,"889,51079080217 ",.01)
 ;;51079080217
 ;;9002226.02101,"889,51079080217 ",.02)
 ;;51079080217
 ;;9002226.02101,"889,51079080219 ",.01)
 ;;51079080219
 ;;9002226.02101,"889,51079080219 ",.02)
 ;;51079080219
 ;;9002226.02101,"889,51079080220 ",.01)
 ;;51079080220
 ;;9002226.02101,"889,51079080220 ",.02)
 ;;51079080220
 ;;9002226.02101,"889,51079081201 ",.01)
 ;;51079081201
 ;;9002226.02101,"889,51079081201 ",.02)
 ;;51079081201
 ;;9002226.02101,"889,51079081220 ",.01)
 ;;51079081220
 ;;9002226.02101,"889,51079081220 ",.02)
 ;;51079081220
 ;;9002226.02101,"889,51079081301 ",.01)
 ;;51079081301
 ;;9002226.02101,"889,51079081301 ",.02)
 ;;51079081301
 ;;9002226.02101,"889,51079081320 ",.01)
 ;;51079081320
 ;;9002226.02101,"889,51079081320 ",.02)
 ;;51079081320
 ;;9002226.02101,"889,51079081401 ",.01)
 ;;51079081401
 ;;9002226.02101,"889,51079081401 ",.02)
 ;;51079081401
 ;;9002226.02101,"889,51079081420 ",.01)
 ;;51079081420
 ;;9002226.02101,"889,51079081420 ",.02)
 ;;51079081420
 ;;9002226.02101,"889,51079092801 ",.01)
 ;;51079092801
 ;;9002226.02101,"889,51079092801 ",.02)
 ;;51079092801
 ;;9002226.02101,"889,51079092820 ",.01)
 ;;51079092820
 ;;9002226.02101,"889,51079092820 ",.02)
 ;;51079092820
 ;;9002226.02101,"889,51079092901 ",.01)
 ;;51079092901
 ;;9002226.02101,"889,51079092901 ",.02)
 ;;51079092901
 ;;9002226.02101,"889,51079092920 ",.01)
 ;;51079092920
 ;;9002226.02101,"889,51079092920 ",.02)
 ;;51079092920
 ;;9002226.02101,"889,51079095401 ",.01)
 ;;51079095401
 ;;9002226.02101,"889,51079095401 ",.02)
 ;;51079095401
 ;;9002226.02101,"889,51079095420 ",.01)
 ;;51079095420
 ;;9002226.02101,"889,51079095420 ",.02)
 ;;51079095420
 ;;9002226.02101,"889,51079095501 ",.01)
 ;;51079095501
 ;;9002226.02101,"889,51079095501 ",.02)
 ;;51079095501
 ;;9002226.02101,"889,51079095520 ",.01)
 ;;51079095520
 ;;9002226.02101,"889,51079095520 ",.02)
 ;;51079095520
 ;;9002226.02101,"889,51079095601 ",.01)
 ;;51079095601
 ;;9002226.02101,"889,51079095601 ",.02)
 ;;51079095601
 ;;9002226.02101,"889,51079095620 ",.01)
 ;;51079095620
 ;;9002226.02101,"889,51079095620 ",.02)
 ;;51079095620
 ;;9002226.02101,"889,51129023201 ",.01)
 ;;51129023201
 ;;9002226.02101,"889,51129023201 ",.02)
 ;;51129023201
 ;;9002226.02101,"889,51129110901 ",.01)
 ;;51129110901
 ;;9002226.02101,"889,51129110901 ",.02)
 ;;51129110901
 ;;9002226.02101,"889,51129112601 ",.01)
 ;;51129112601
 ;;9002226.02101,"889,51129112601 ",.02)
 ;;51129112601
 ;;9002226.02101,"889,51129130401 ",.01)
 ;;51129130401
 ;;9002226.02101,"889,51129130401 ",.02)
 ;;51129130401
 ;;9002226.02101,"889,51129132801 ",.01)
 ;;51129132801
 ;;9002226.02101,"889,51129132801 ",.02)
 ;;51129132801
 ;;9002226.02101,"889,51129141901 ",.01)
 ;;51129141901
 ;;9002226.02101,"889,51129141901 ",.02)
 ;;51129141901
 ;;9002226.02101,"889,51129158501 ",.01)
 ;;51129158501
 ;;9002226.02101,"889,51129158501 ",.02)
 ;;51129158501
 ;;9002226.02101,"889,51129161901 ",.01)
 ;;51129161901
 ;;9002226.02101,"889,51129161901 ",.02)
 ;;51129161901
 ;;9002226.02101,"889,51129165201 ",.01)
 ;;51129165201
 ;;9002226.02101,"889,51129165201 ",.02)
 ;;51129165201
 ;;9002226.02101,"889,51129165301 ",.01)
 ;;51129165301
 ;;9002226.02101,"889,51129165301 ",.02)
 ;;51129165301
 ;;9002226.02101,"889,51129170001 ",.01)
 ;;51129170001
 ;;9002226.02101,"889,51129170001 ",.02)
 ;;51129170001
 ;;9002226.02101,"889,51129170201 ",.01)
 ;;51129170201
 ;;9002226.02101,"889,51129170201 ",.02)
 ;;51129170201
 ;;9002226.02101,"889,51129170301 ",.01)
 ;;51129170301
 ;;9002226.02101,"889,51129170301 ",.02)
 ;;51129170301
 ;;9002226.02101,"889,51129178501 ",.01)
 ;;51129178501
 ;;9002226.02101,"889,51129178501 ",.02)
 ;;51129178501
 ;;9002226.02101,"889,51129179701 ",.01)
 ;;51129179701
 ;;9002226.02101,"889,51129179701 ",.02)
 ;;51129179701
 ;;9002226.02101,"889,51129187401 ",.01)
 ;;51129187401
 ;;9002226.02101,"889,51129187401 ",.02)
 ;;51129187401
 ;;9002226.02101,"889,51129188401 ",.01)
 ;;51129188401
 ;;9002226.02101,"889,51129188401 ",.02)
 ;;51129188401
 ;;9002226.02101,"889,51129190901 ",.01)
 ;;51129190901
 ;;9002226.02101,"889,51129190901 ",.02)
 ;;51129190901
 ;;9002226.02101,"889,51129197501 ",.01)
 ;;51129197501
 ;;9002226.02101,"889,51129197501 ",.02)
 ;;51129197501
 ;;9002226.02101,"889,51129197601 ",.01)
 ;;51129197601
 ;;9002226.02101,"889,51129197601 ",.02)
 ;;51129197601
 ;;9002226.02101,"889,51129202801 ",.01)
 ;;51129202801
 ;;9002226.02101,"889,51129202801 ",.02)
 ;;51129202801
 ;;9002226.02101,"889,51129207001 ",.01)
 ;;51129207001
 ;;9002226.02101,"889,51129207001 ",.02)
 ;;51129207001
 ;;9002226.02101,"889,51129207101 ",.01)
 ;;51129207101
 ;;9002226.02101,"889,51129207101 ",.02)
 ;;51129207101