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

BGPM5AJF.m

Go to the documentation of this file.
BGPM5AJF ;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,10019014501 ",.01)
 ;;10019014501
 ;;9002226.02101,"889,10019014501 ",.02)
 ;;10019014501
 ;;9002226.02101,"889,10019014543 ",.01)
 ;;10019014543
 ;;9002226.02101,"889,10019014543 ",.02)
 ;;10019014543
 ;;9002226.02101,"889,10019021001 ",.01)
 ;;10019021001
 ;;9002226.02101,"889,10019021001 ",.02)
 ;;10019021001
 ;;9002226.02101,"889,10019021002 ",.01)
 ;;10019021002
 ;;9002226.02101,"889,10019021002 ",.02)
 ;;10019021002
 ;;9002226.02101,"889,10019021003 ",.01)
 ;;10019021003
 ;;9002226.02101,"889,10019021003 ",.02)
 ;;10019021003
 ;;9002226.02101,"889,10019021004 ",.01)
 ;;10019021004
 ;;9002226.02101,"889,10019021004 ",.02)
 ;;10019021004
 ;;9002226.02101,"889,10019021063 ",.01)
 ;;10019021063
 ;;9002226.02101,"889,10019021063 ",.02)
 ;;10019021063
 ;;9002226.02101,"889,10019021084 ",.01)
 ;;10019021084
 ;;9002226.02101,"889,10019021084 ",.02)
 ;;10019021084
 ;;9002226.02101,"889,10130000410 ",.01)
 ;;10130000410
 ;;9002226.02101,"889,10130000410 ",.02)
 ;;10130000410
 ;;9002226.02101,"889,10130007310 ",.01)
 ;;10130007310
 ;;9002226.02101,"889,10130007310 ",.02)
 ;;10130007310
 ;;9002226.02101,"889,10130013020 ",.01)
 ;;10130013020
 ;;9002226.02101,"889,10130013020 ",.02)
 ;;10130013020
 ;;9002226.02101,"889,10130013040 ",.01)
 ;;10130013040
 ;;9002226.02101,"889,10130013040 ",.02)
 ;;10130013040
 ;;9002226.02101,"889,10702001301 ",.01)
 ;;10702001301
 ;;9002226.02101,"889,10702001301 ",.02)
 ;;10702001301
 ;;9002226.02101,"889,10702001401 ",.01)
 ;;10702001401
 ;;9002226.02101,"889,10702001401 ",.02)
 ;;10702001401
 ;;9002226.02101,"889,11819008330 ",.01)
 ;;11819008330
 ;;9002226.02101,"889,11819008330 ",.02)
 ;;11819008330
 ;;9002226.02101,"889,11819008360 ",.01)
 ;;11819008360
 ;;9002226.02101,"889,11819008360 ",.02)
 ;;11819008360
 ;;9002226.02101,"889,11819008390 ",.01)
 ;;11819008390
 ;;9002226.02101,"889,11819008390 ",.02)
 ;;11819008390
 ;;9002226.02101,"889,11819008395 ",.01)
 ;;11819008395
 ;;9002226.02101,"889,11819008395 ",.02)
 ;;11819008395
 ;;9002226.02101,"889,11819008397 ",.01)
 ;;11819008397
 ;;9002226.02101,"889,11819008397 ",.02)
 ;;11819008397
 ;;9002226.02101,"889,11819008398 ",.01)
 ;;11819008398
 ;;9002226.02101,"889,11819008398 ",.02)
 ;;11819008398
 ;;9002226.02101,"889,11819010230 ",.01)
 ;;11819010230
 ;;9002226.02101,"889,11819010230 ",.02)
 ;;11819010230
 ;;9002226.02101,"889,11819010290 ",.01)
 ;;11819010290
 ;;9002226.02101,"889,11819010290 ",.02)
 ;;11819010290
 ;;9002226.02101,"889,11819010295 ",.01)
 ;;11819010295
 ;;9002226.02101,"889,11819010295 ",.02)
 ;;11819010295
 ;;9002226.02101,"889,11819022790 ",.01)
 ;;11819022790
 ;;9002226.02101,"889,11819022790 ",.02)
 ;;11819022790
 ;;9002226.02101,"889,12280014500 ",.01)
 ;;12280014500
 ;;9002226.02101,"889,12280014500 ",.02)
 ;;12280014500
 ;;9002226.02101,"889,12634043601 ",.01)
 ;;12634043601
 ;;9002226.02101,"889,12634043601 ",.02)
 ;;12634043601
 ;;9002226.02101,"889,12634047260 ",.01)
 ;;12634047260
 ;;9002226.02101,"889,12634047260 ",.02)
 ;;12634047260
 ;;9002226.02101,"889,12634088500 ",.01)
 ;;12634088500
 ;;9002226.02101,"889,12634088500 ",.02)
 ;;12634088500
 ;;9002226.02101,"889,12634088501 ",.01)
 ;;12634088501
 ;;9002226.02101,"889,12634088501 ",.02)
 ;;12634088501
 ;;9002226.02101,"889,13107006301 ",.01)
 ;;13107006301
 ;;9002226.02101,"889,13107006301 ",.02)
 ;;13107006301
 ;;9002226.02101,"889,13107006399 ",.01)
 ;;13107006399
 ;;9002226.02101,"889,13107006399 ",.02)
 ;;13107006399
 ;;9002226.02101,"889,13107006401 ",.01)
 ;;13107006401
 ;;9002226.02101,"889,13107006401 ",.02)
 ;;13107006401
 ;;9002226.02101,"889,13107006499 ",.01)
 ;;13107006499
 ;;9002226.02101,"889,13107006499 ",.02)
 ;;13107006499
 ;;9002226.02101,"889,13107016801 ",.01)
 ;;13107016801
 ;;9002226.02101,"889,13107016801 ",.02)
 ;;13107016801
 ;;9002226.02101,"889,13107016899 ",.01)
 ;;13107016899
 ;;9002226.02101,"889,13107016899 ",.02)
 ;;13107016899
 ;;9002226.02101,"889,13107016901 ",.01)
 ;;13107016901
 ;;9002226.02101,"889,13107016901 ",.02)
 ;;13107016901
 ;;9002226.02101,"889,13107016999 ",.01)
 ;;13107016999
 ;;9002226.02101,"889,13107016999 ",.02)
 ;;13107016999
 ;;9002226.02101,"889,13107017001 ",.01)
 ;;13107017001
 ;;9002226.02101,"889,13107017001 ",.02)
 ;;13107017001
 ;;9002226.02101,"889,13107017099 ",.01)
 ;;13107017099
 ;;9002226.02101,"889,13107017099 ",.02)
 ;;13107017099
 ;;9002226.02101,"889,13411016901 ",.01)
 ;;13411016901
 ;;9002226.02101,"889,13411016901 ",.02)
 ;;13411016901
 ;;9002226.02101,"889,13411016903 ",.01)
 ;;13411016903
 ;;9002226.02101,"889,13411016903 ",.02)
 ;;13411016903
 ;;9002226.02101,"889,13411016906 ",.01)
 ;;13411016906
 ;;9002226.02101,"889,13411016906 ",.02)
 ;;13411016906
 ;;9002226.02101,"889,13411016909 ",.01)
 ;;13411016909
 ;;9002226.02101,"889,13411016909 ",.02)
 ;;13411016909
 ;;9002226.02101,"889,13411016910 ",.01)
 ;;13411016910
 ;;9002226.02101,"889,13411016910 ",.02)
 ;;13411016910
 ;;9002226.02101,"889,13411017601 ",.01)
 ;;13411017601
 ;;9002226.02101,"889,13411017601 ",.02)
 ;;13411017601
 ;;9002226.02101,"889,13411017603 ",.01)
 ;;13411017603
 ;;9002226.02101,"889,13411017603 ",.02)
 ;;13411017603
 ;;9002226.02101,"889,13411017606 ",.01)
 ;;13411017606
 ;;9002226.02101,"889,13411017606 ",.02)
 ;;13411017606
 ;;9002226.02101,"889,13411017609 ",.01)
 ;;13411017609
 ;;9002226.02101,"889,13411017609 ",.02)
 ;;13411017609
 ;;9002226.02101,"889,13411017610 ",.01)
 ;;13411017610
 ;;9002226.02101,"889,13411017610 ",.02)
 ;;13411017610
 ;;9002226.02101,"889,13411021402 ",.01)
 ;;13411021402
 ;;9002226.02101,"889,13411021402 ",.02)
 ;;13411021402
 ;;9002226.02101,"889,13411021403 ",.01)
 ;;13411021403
 ;;9002226.02101,"889,13411021403 ",.02)
 ;;13411021403
 ;;9002226.02101,"889,13411021406 ",.01)
 ;;13411021406
 ;;9002226.02101,"889,13411021406 ",.02)
 ;;13411021406
 ;;9002226.02101,"889,13411021409 ",.01)
 ;;13411021409
 ;;9002226.02101,"889,13411021409 ",.02)
 ;;13411021409
 ;;9002226.02101,"889,13411021410 ",.01)
 ;;13411021410
 ;;9002226.02101,"889,13411021410 ",.02)
 ;;13411021410
 ;;9002226.02101,"889,13411027603 ",.01)
 ;;13411027603
 ;;9002226.02101,"889,13411027603 ",.02)
 ;;13411027603
 ;;9002226.02101,"889,13411029003 ",.01)
 ;;13411029003
 ;;9002226.02101,"889,13411029003 ",.02)
 ;;13411029003
 ;;9002226.02101,"889,13411030203 ",.01)
 ;;13411030203
 ;;9002226.02101,"889,13411030203 ",.02)
 ;;13411030203
 ;;9002226.02101,"889,13411030303 ",.01)
 ;;13411030303
 ;;9002226.02101,"889,13411030303 ",.02)
 ;;13411030303
 ;;9002226.02101,"889,13411039806 ",.01)
 ;;13411039806
 ;;9002226.02101,"889,13411039806 ",.02)
 ;;13411039806
 ;;9002226.02101,"889,13411044503 ",.01)
 ;;13411044503
 ;;9002226.02101,"889,13411044503 ",.02)
 ;;13411044503
 ;;9002226.02101,"889,13411049906 ",.01)
 ;;13411049906
 ;;9002226.02101,"889,13411049906 ",.02)
 ;;13411049906
 ;;9002226.02101,"889,13411051503 ",.01)
 ;;13411051503
 ;;9002226.02101,"889,13411051503 ",.02)
 ;;13411051503
 ;;9002226.02101,"889,13411051603 ",.01)
 ;;13411051603
 ;;9002226.02101,"889,13411051603 ",.02)
 ;;13411051603
 ;;9002226.02101,"889,13411052306 ",.01)
 ;;13411052306
 ;;9002226.02101,"889,13411052306 ",.02)
 ;;13411052306
 ;;9002226.02101,"889,13411052406 ",.01)
 ;;13411052406
 ;;9002226.02101,"889,13411052406 ",.02)
 ;;13411052406
 ;;9002226.02101,"889,13411052506 ",.01)
 ;;13411052506
 ;;9002226.02101,"889,13411052506 ",.02)
 ;;13411052506
 ;;9002226.02101,"889,13411052606 ",.01)
 ;;13411052606
 ;;9002226.02101,"889,13411052606 ",.02)
 ;;13411052606
 ;;9002226.02101,"889,13411059103 ",.01)
 ;;13411059103
 ;;9002226.02101,"889,13411059103 ",.02)
 ;;13411059103
 ;;9002226.02101,"889,14593040601 ",.01)
 ;;14593040601
 ;;9002226.02101,"889,14593040601 ",.02)
 ;;14593040601
 ;;9002226.02101,"889,14593040701 ",.01)
 ;;14593040701
 ;;9002226.02101,"889,14593040701 ",.02)
 ;;14593040701
 ;;9002226.02101,"889,14593040801 ",.01)
 ;;14593040801
 ;;9002226.02101,"889,14593040801 ",.02)
 ;;14593040801
 ;;9002226.02101,"889,14593060301 ",.01)
 ;;14593060301
 ;;9002226.02101,"889,14593060301 ",.02)
 ;;14593060301
 ;;9002226.02101,"889,14593060302 ",.01)
 ;;14593060302
 ;;9002226.02101,"889,14593060302 ",.02)
 ;;14593060302
 ;;9002226.02101,"889,15330002501 ",.01)
 ;;15330002501
 ;;9002226.02101,"889,15330002501 ",.02)
 ;;15330002501
 ;;9002226.02101,"889,15330002510 ",.01)
 ;;15330002510
 ;;9002226.02101,"889,15330002510 ",.02)
 ;;15330002510
 ;;9002226.02101,"889,15330002801 ",.01)
 ;;15330002801
 ;;9002226.02101,"889,15330002801 ",.02)
 ;;15330002801
 ;;9002226.02101,"889,15330002810 ",.01)
 ;;15330002810
 ;;9002226.02101,"889,15330002810 ",.02)
 ;;15330002810
 ;;9002226.02101,"889,15330002901 ",.01)
 ;;15330002901
 ;;9002226.02101,"889,15330002901 ",.02)
 ;;15330002901
 ;;9002226.02101,"889,15330002910 ",.01)
 ;;15330002910
 ;;9002226.02101,"889,15330002910 ",.02)
 ;;15330002910
 ;;9002226.02101,"889,16571043011 ",.01)
 ;;16571043011
 ;;9002226.02101,"889,16571043011 ",.02)
 ;;16571043011
 ;;9002226.02101,"889,16571043111 ",.01)
 ;;16571043111
 ;;9002226.02101,"889,16571043111 ",.02)
 ;;16571043111
 ;;9002226.02101,"889,16571044111 ",.01)
 ;;16571044111
 ;;9002226.02101,"889,16571044111 ",.02)
 ;;16571044111
 ;;9002226.02101,"889,16590013230 ",.01)
 ;;16590013230
 ;;9002226.02101,"889,16590013230 ",.02)
 ;;16590013230
 ;;9002226.02101,"889,16590013260 ",.01)
 ;;16590013260
 ;;9002226.02101,"889,16590013260 ",.02)
 ;;16590013260
 ;;9002226.02101,"889,16590013330 ",.01)
 ;;16590013330
 ;;9002226.02101,"889,16590013330 ",.02)
 ;;16590013330
 ;;9002226.02101,"889,16590013360 ",.01)
 ;;16590013360
 ;;9002226.02101,"889,16590013360 ",.02)
 ;;16590013360
 ;;9002226.02101,"889,16590025630 ",.01)
 ;;16590025630
 ;;9002226.02101,"889,16590025630 ",.02)
 ;;16590025630
 ;;9002226.02101,"889,16590025660 ",.01)
 ;;16590025660
 ;;9002226.02101,"889,16590025660 ",.02)
 ;;16590025660
 ;;9002226.02101,"889,16590025671 ",.01)
 ;;16590025671
 ;;9002226.02101,"889,16590025671 ",.02)
 ;;16590025671
 ;;9002226.02101,"889,16590025690 ",.01)
 ;;16590025690
 ;;9002226.02101,"889,16590025690 ",.02)
 ;;16590025690
 ;;9002226.02101,"889,16590025730 ",.01)
 ;;16590025730
 ;;9002226.02101,"889,16590025730 ",.02)
 ;;16590025730
 ;;9002226.02101,"889,16590025760 ",.01)
 ;;16590025760
 ;;9002226.02101,"889,16590025760 ",.02)
 ;;16590025760
 ;;9002226.02101,"889,16590025771 ",.01)
 ;;16590025771
 ;;9002226.02101,"889,16590025771 ",.02)
 ;;16590025771
 ;;9002226.02101,"889,16590025790 ",.01)
 ;;16590025790
 ;;9002226.02101,"889,16590025790 ",.02)
 ;;16590025790
 ;;9002226.02101,"889,16590031715 ",.01)
 ;;16590031715
 ;;9002226.02101,"889,16590031715 ",.02)
 ;;16590031715
 ;;9002226.02101,"889,16590031730 ",.01)
 ;;16590031730
 ;;9002226.02101,"889,16590031730 ",.02)
 ;;16590031730
 ;;9002226.02101,"889,16590031760 ",.01)
 ;;16590031760
 ;;9002226.02101,"889,16590031760 ",.02)
 ;;16590031760
 ;;9002226.02101,"889,16590031771 ",.01)
 ;;16590031771
 ;;9002226.02101,"889,16590031771 ",.02)
 ;;16590031771
 ;;9002226.02101,"889,16590031772 ",.01)
 ;;16590031772
 ;;9002226.02101,"889,16590031772 ",.02)
 ;;16590031772
 ;;9002226.02101,"889,16590031790 ",.01)
 ;;16590031790
 ;;9002226.02101,"889,16590031790 ",.02)
 ;;16590031790
 ;;9002226.02101,"889,16590042830 ",.01)
 ;;16590042830
 ;;9002226.02101,"889,16590042830 ",.02)
 ;;16590042830
 ;;9002226.02101,"889,16590042860 ",.01)
 ;;16590042860
 ;;9002226.02101,"889,16590042860 ",.02)
 ;;16590042860