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

BGPM5AWL.m

Go to the documentation of this file.
BGPM5AWL ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,63629132101 ",.01)
 ;;63629132101
 ;;9002226.02101,"1033,63629132101 ",.02)
 ;;63629132101
 ;;9002226.02101,"1033,63629132102 ",.01)
 ;;63629132102
 ;;9002226.02101,"1033,63629132102 ",.02)
 ;;63629132102
 ;;9002226.02101,"1033,63629132103 ",.01)
 ;;63629132103
 ;;9002226.02101,"1033,63629132103 ",.02)
 ;;63629132103
 ;;9002226.02101,"1033,63629132601 ",.01)
 ;;63629132601
 ;;9002226.02101,"1033,63629132601 ",.02)
 ;;63629132601
 ;;9002226.02101,"1033,63629132602 ",.01)
 ;;63629132602
 ;;9002226.02101,"1033,63629132602 ",.02)
 ;;63629132602
 ;;9002226.02101,"1033,63629132603 ",.01)
 ;;63629132603
 ;;9002226.02101,"1033,63629132603 ",.02)
 ;;63629132603
 ;;9002226.02101,"1033,63629132604 ",.01)
 ;;63629132604
 ;;9002226.02101,"1033,63629132604 ",.02)
 ;;63629132604
 ;;9002226.02101,"1033,63629132605 ",.01)
 ;;63629132605
 ;;9002226.02101,"1033,63629132605 ",.02)
 ;;63629132605
 ;;9002226.02101,"1033,63629132606 ",.01)
 ;;63629132606
 ;;9002226.02101,"1033,63629132606 ",.02)
 ;;63629132606
 ;;9002226.02101,"1033,63629132607 ",.01)
 ;;63629132607
 ;;9002226.02101,"1033,63629132607 ",.02)
 ;;63629132607
 ;;9002226.02101,"1033,63629132608 ",.01)
 ;;63629132608
 ;;9002226.02101,"1033,63629132608 ",.02)
 ;;63629132608
 ;;9002226.02101,"1033,63629132609 ",.01)
 ;;63629132609
 ;;9002226.02101,"1033,63629132609 ",.02)
 ;;63629132609
 ;;9002226.02101,"1033,63629134801 ",.01)
 ;;63629134801
 ;;9002226.02101,"1033,63629134801 ",.02)
 ;;63629134801
 ;;9002226.02101,"1033,63629134802 ",.01)
 ;;63629134802
 ;;9002226.02101,"1033,63629134802 ",.02)
 ;;63629134802
 ;;9002226.02101,"1033,63629134803 ",.01)
 ;;63629134803
 ;;9002226.02101,"1033,63629134803 ",.02)
 ;;63629134803
 ;;9002226.02101,"1033,63629135001 ",.01)
 ;;63629135001
 ;;9002226.02101,"1033,63629135001 ",.02)
 ;;63629135001
 ;;9002226.02101,"1033,63629135002 ",.01)
 ;;63629135002
 ;;9002226.02101,"1033,63629135002 ",.02)
 ;;63629135002
 ;;9002226.02101,"1033,63629135003 ",.01)
 ;;63629135003
 ;;9002226.02101,"1033,63629135003 ",.02)
 ;;63629135003
 ;;9002226.02101,"1033,63629135101 ",.01)
 ;;63629135101
 ;;9002226.02101,"1033,63629135101 ",.02)
 ;;63629135101
 ;;9002226.02101,"1033,63629135102 ",.01)
 ;;63629135102
 ;;9002226.02101,"1033,63629135102 ",.02)
 ;;63629135102
 ;;9002226.02101,"1033,63629135103 ",.01)
 ;;63629135103
 ;;9002226.02101,"1033,63629135103 ",.02)
 ;;63629135103
 ;;9002226.02101,"1033,63629135104 ",.01)
 ;;63629135104
 ;;9002226.02101,"1033,63629135104 ",.02)
 ;;63629135104
 ;;9002226.02101,"1033,63629135701 ",.01)
 ;;63629135701
 ;;9002226.02101,"1033,63629135701 ",.02)
 ;;63629135701
 ;;9002226.02101,"1033,63629135702 ",.01)
 ;;63629135702
 ;;9002226.02101,"1033,63629135702 ",.02)
 ;;63629135702
 ;;9002226.02101,"1033,63629135703 ",.01)
 ;;63629135703
 ;;9002226.02101,"1033,63629135703 ",.02)
 ;;63629135703
 ;;9002226.02101,"1033,63629135801 ",.01)
 ;;63629135801
 ;;9002226.02101,"1033,63629135801 ",.02)
 ;;63629135801
 ;;9002226.02101,"1033,63629135802 ",.01)
 ;;63629135802
 ;;9002226.02101,"1033,63629135802 ",.02)
 ;;63629135802
 ;;9002226.02101,"1033,63629135803 ",.01)
 ;;63629135803
 ;;9002226.02101,"1033,63629135803 ",.02)
 ;;63629135803
 ;;9002226.02101,"1033,63629135804 ",.01)
 ;;63629135804
 ;;9002226.02101,"1033,63629135804 ",.02)
 ;;63629135804
 ;;9002226.02101,"1033,63629135805 ",.01)
 ;;63629135805
 ;;9002226.02101,"1033,63629135805 ",.02)
 ;;63629135805
 ;;9002226.02101,"1033,63629135806 ",.01)
 ;;63629135806
 ;;9002226.02101,"1033,63629135806 ",.02)
 ;;63629135806
 ;;9002226.02101,"1033,63629135807 ",.01)
 ;;63629135807
 ;;9002226.02101,"1033,63629135807 ",.02)
 ;;63629135807
 ;;9002226.02101,"1033,63629135808 ",.01)
 ;;63629135808
 ;;9002226.02101,"1033,63629135808 ",.02)
 ;;63629135808
 ;;9002226.02101,"1033,63629150101 ",.01)
 ;;63629150101
 ;;9002226.02101,"1033,63629150101 ",.02)
 ;;63629150101
 ;;9002226.02101,"1033,63629150102 ",.01)
 ;;63629150102
 ;;9002226.02101,"1033,63629150102 ",.02)
 ;;63629150102
 ;;9002226.02101,"1033,63629150103 ",.01)
 ;;63629150103
 ;;9002226.02101,"1033,63629150103 ",.02)
 ;;63629150103
 ;;9002226.02101,"1033,63629150104 ",.01)
 ;;63629150104
 ;;9002226.02101,"1033,63629150104 ",.02)
 ;;63629150104
 ;;9002226.02101,"1033,63629150105 ",.01)
 ;;63629150105
 ;;9002226.02101,"1033,63629150105 ",.02)
 ;;63629150105
 ;;9002226.02101,"1033,63629150201 ",.01)
 ;;63629150201
 ;;9002226.02101,"1033,63629150201 ",.02)
 ;;63629150201
 ;;9002226.02101,"1033,63629150202 ",.01)
 ;;63629150202
 ;;9002226.02101,"1033,63629150202 ",.02)
 ;;63629150202
 ;;9002226.02101,"1033,63629150203 ",.01)
 ;;63629150203
 ;;9002226.02101,"1033,63629150203 ",.02)
 ;;63629150203
 ;;9002226.02101,"1033,63629150204 ",.01)
 ;;63629150204
 ;;9002226.02101,"1033,63629150204 ",.02)
 ;;63629150204
 ;;9002226.02101,"1033,63629150205 ",.01)
 ;;63629150205
 ;;9002226.02101,"1033,63629150205 ",.02)
 ;;63629150205
 ;;9002226.02101,"1033,63629150206 ",.01)
 ;;63629150206
 ;;9002226.02101,"1033,63629150206 ",.02)
 ;;63629150206
 ;;9002226.02101,"1033,63629150207 ",.01)
 ;;63629150207
 ;;9002226.02101,"1033,63629150207 ",.02)
 ;;63629150207
 ;;9002226.02101,"1033,63629153101 ",.01)
 ;;63629153101
 ;;9002226.02101,"1033,63629153101 ",.02)
 ;;63629153101
 ;;9002226.02101,"1033,63629153102 ",.01)
 ;;63629153102
 ;;9002226.02101,"1033,63629153102 ",.02)
 ;;63629153102
 ;;9002226.02101,"1033,63629153103 ",.01)
 ;;63629153103
 ;;9002226.02101,"1033,63629153103 ",.02)
 ;;63629153103
 ;;9002226.02101,"1033,63629153104 ",.01)
 ;;63629153104
 ;;9002226.02101,"1033,63629153104 ",.02)
 ;;63629153104
 ;;9002226.02101,"1033,63629153105 ",.01)
 ;;63629153105
 ;;9002226.02101,"1033,63629153105 ",.02)
 ;;63629153105
 ;;9002226.02101,"1033,63629153106 ",.01)
 ;;63629153106
 ;;9002226.02101,"1033,63629153106 ",.02)
 ;;63629153106
 ;;9002226.02101,"1033,63629153107 ",.01)
 ;;63629153107
 ;;9002226.02101,"1033,63629153107 ",.02)
 ;;63629153107
 ;;9002226.02101,"1033,63629153108 ",.01)
 ;;63629153108
 ;;9002226.02101,"1033,63629153108 ",.02)
 ;;63629153108
 ;;9002226.02101,"1033,63629153109 ",.01)
 ;;63629153109
 ;;9002226.02101,"1033,63629153109 ",.02)
 ;;63629153109
 ;;9002226.02101,"1033,63629161401 ",.01)
 ;;63629161401
 ;;9002226.02101,"1033,63629161401 ",.02)
 ;;63629161401
 ;;9002226.02101,"1033,63629161402 ",.01)
 ;;63629161402
 ;;9002226.02101,"1033,63629161402 ",.02)
 ;;63629161402
 ;;9002226.02101,"1033,63629161403 ",.01)
 ;;63629161403
 ;;9002226.02101,"1033,63629161403 ",.02)
 ;;63629161403
 ;;9002226.02101,"1033,63629172400 ",.01)
 ;;63629172400
 ;;9002226.02101,"1033,63629172400 ",.02)
 ;;63629172400
 ;;9002226.02101,"1033,63629172401 ",.01)
 ;;63629172401
 ;;9002226.02101,"1033,63629172401 ",.02)
 ;;63629172401
 ;;9002226.02101,"1033,63629172402 ",.01)
 ;;63629172402
 ;;9002226.02101,"1033,63629172402 ",.02)
 ;;63629172402
 ;;9002226.02101,"1033,63629172403 ",.01)
 ;;63629172403
 ;;9002226.02101,"1033,63629172403 ",.02)
 ;;63629172403
 ;;9002226.02101,"1033,63629172404 ",.01)
 ;;63629172404
 ;;9002226.02101,"1033,63629172404 ",.02)
 ;;63629172404
 ;;9002226.02101,"1033,63629172405 ",.01)
 ;;63629172405
 ;;9002226.02101,"1033,63629172405 ",.02)
 ;;63629172405
 ;;9002226.02101,"1033,63629172406 ",.01)
 ;;63629172406
 ;;9002226.02101,"1033,63629172406 ",.02)
 ;;63629172406
 ;;9002226.02101,"1033,63629172407 ",.01)
 ;;63629172407
 ;;9002226.02101,"1033,63629172407 ",.02)
 ;;63629172407
 ;;9002226.02101,"1033,63629172408 ",.01)
 ;;63629172408
 ;;9002226.02101,"1033,63629172408 ",.02)
 ;;63629172408
 ;;9002226.02101,"1033,63629172409 ",.01)
 ;;63629172409
 ;;9002226.02101,"1033,63629172409 ",.02)
 ;;63629172409
 ;;9002226.02101,"1033,63629175901 ",.01)
 ;;63629175901
 ;;9002226.02101,"1033,63629175901 ",.02)
 ;;63629175901
 ;;9002226.02101,"1033,63629175902 ",.01)
 ;;63629175902
 ;;9002226.02101,"1033,63629175902 ",.02)
 ;;63629175902
 ;;9002226.02101,"1033,63629175903 ",.01)
 ;;63629175903
 ;;9002226.02101,"1033,63629175903 ",.02)
 ;;63629175903
 ;;9002226.02101,"1033,63629175904 ",.01)
 ;;63629175904
 ;;9002226.02101,"1033,63629175904 ",.02)
 ;;63629175904
 ;;9002226.02101,"1033,63629175905 ",.01)
 ;;63629175905
 ;;9002226.02101,"1033,63629175905 ",.02)
 ;;63629175905
 ;;9002226.02101,"1033,63629176500 ",.01)
 ;;63629176500
 ;;9002226.02101,"1033,63629176500 ",.02)
 ;;63629176500
 ;;9002226.02101,"1033,63629176501 ",.01)
 ;;63629176501
 ;;9002226.02101,"1033,63629176501 ",.02)
 ;;63629176501
 ;;9002226.02101,"1033,63629176502 ",.01)
 ;;63629176502
 ;;9002226.02101,"1033,63629176502 ",.02)
 ;;63629176502
 ;;9002226.02101,"1033,63629176503 ",.01)
 ;;63629176503
 ;;9002226.02101,"1033,63629176503 ",.02)
 ;;63629176503
 ;;9002226.02101,"1033,63629176504 ",.01)
 ;;63629176504
 ;;9002226.02101,"1033,63629176504 ",.02)
 ;;63629176504
 ;;9002226.02101,"1033,63629176505 ",.01)
 ;;63629176505
 ;;9002226.02101,"1033,63629176505 ",.02)
 ;;63629176505
 ;;9002226.02101,"1033,63629176506 ",.01)
 ;;63629176506
 ;;9002226.02101,"1033,63629176506 ",.02)
 ;;63629176506
 ;;9002226.02101,"1033,63629176507 ",.01)
 ;;63629176507
 ;;9002226.02101,"1033,63629176507 ",.02)
 ;;63629176507
 ;;9002226.02101,"1033,63629176508 ",.01)
 ;;63629176508
 ;;9002226.02101,"1033,63629176508 ",.02)
 ;;63629176508
 ;;9002226.02101,"1033,63629176509 ",.01)
 ;;63629176509
 ;;9002226.02101,"1033,63629176509 ",.02)
 ;;63629176509
 ;;9002226.02101,"1033,63629183401 ",.01)
 ;;63629183401
 ;;9002226.02101,"1033,63629183401 ",.02)
 ;;63629183401
 ;;9002226.02101,"1033,63629183402 ",.01)
 ;;63629183402
 ;;9002226.02101,"1033,63629183402 ",.02)
 ;;63629183402
 ;;9002226.02101,"1033,63629183403 ",.01)
 ;;63629183403
 ;;9002226.02101,"1033,63629183403 ",.02)
 ;;63629183403
 ;;9002226.02101,"1033,63629183404 ",.01)
 ;;63629183404
 ;;9002226.02101,"1033,63629183404 ",.02)
 ;;63629183404
 ;;9002226.02101,"1033,63629183501 ",.01)
 ;;63629183501
 ;;9002226.02101,"1033,63629183501 ",.02)
 ;;63629183501
 ;;9002226.02101,"1033,63629183502 ",.01)
 ;;63629183502
 ;;9002226.02101,"1033,63629183502 ",.02)
 ;;63629183502
 ;;9002226.02101,"1033,63629183503 ",.01)
 ;;63629183503
 ;;9002226.02101,"1033,63629183503 ",.02)
 ;;63629183503
 ;;9002226.02101,"1033,63629260901 ",.01)
 ;;63629260901
 ;;9002226.02101,"1033,63629260901 ",.02)
 ;;63629260901
 ;;9002226.02101,"1033,63629260902 ",.01)
 ;;63629260902
 ;;9002226.02101,"1033,63629260902 ",.02)
 ;;63629260902
 ;;9002226.02101,"1033,63629260903 ",.01)
 ;;63629260903
 ;;9002226.02101,"1033,63629260903 ",.02)
 ;;63629260903
 ;;9002226.02101,"1033,63629261001 ",.01)
 ;;63629261001
 ;;9002226.02101,"1033,63629261001 ",.02)
 ;;63629261001
 ;;9002226.02101,"1033,63629261002 ",.01)
 ;;63629261002
 ;;9002226.02101,"1033,63629261002 ",.02)
 ;;63629261002
 ;;9002226.02101,"1033,63629261003 ",.01)
 ;;63629261003
 ;;9002226.02101,"1033,63629261003 ",.02)
 ;;63629261003
 ;;9002226.02101,"1033,63629268501 ",.01)
 ;;63629268501
 ;;9002226.02101,"1033,63629268501 ",.02)
 ;;63629268501
 ;;9002226.02101,"1033,63629268502 ",.01)
 ;;63629268502
 ;;9002226.02101,"1033,63629268502 ",.02)
 ;;63629268502
 ;;9002226.02101,"1033,63629273801 ",.01)
 ;;63629273801
 ;;9002226.02101,"1033,63629273801 ",.02)
 ;;63629273801
 ;;9002226.02101,"1033,63629273802 ",.01)
 ;;63629273802
 ;;9002226.02101,"1033,63629273802 ",.02)
 ;;63629273802
 ;;9002226.02101,"1033,63629275501 ",.01)
 ;;63629275501
 ;;9002226.02101,"1033,63629275501 ",.02)
 ;;63629275501
 ;;9002226.02101,"1033,63629275502 ",.01)
 ;;63629275502