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

BGPM5AWH.m

Go to the documentation of this file.
BGPM5AWH ;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,62147500801 ",.01)
 ;;62147500801
 ;;9002226.02101,"1033,62147500801 ",.02)
 ;;62147500801
 ;;9002226.02101,"1033,62147500802 ",.01)
 ;;62147500802
 ;;9002226.02101,"1033,62147500802 ",.02)
 ;;62147500802
 ;;9002226.02101,"1033,62147500901 ",.01)
 ;;62147500901
 ;;9002226.02101,"1033,62147500901 ",.02)
 ;;62147500901
 ;;9002226.02101,"1033,62147500902 ",.01)
 ;;62147500902
 ;;9002226.02101,"1033,62147500902 ",.02)
 ;;62147500902
 ;;9002226.02101,"1033,62147501001 ",.01)
 ;;62147501001
 ;;9002226.02101,"1033,62147501001 ",.02)
 ;;62147501001
 ;;9002226.02101,"1033,62147501002 ",.01)
 ;;62147501002
 ;;9002226.02101,"1033,62147501002 ",.02)
 ;;62147501002
 ;;9002226.02101,"1033,62147501101 ",.01)
 ;;62147501101
 ;;9002226.02101,"1033,62147501101 ",.02)
 ;;62147501101
 ;;9002226.02101,"1033,62147501102 ",.01)
 ;;62147501102
 ;;9002226.02101,"1033,62147501102 ",.02)
 ;;62147501102
 ;;9002226.02101,"1033,62147501103 ",.01)
 ;;62147501103
 ;;9002226.02101,"1033,62147501103 ",.02)
 ;;62147501103
 ;;9002226.02101,"1033,62250080102 ",.01)
 ;;62250080102
 ;;9002226.02101,"1033,62250080102 ",.02)
 ;;62250080102
 ;;9002226.02101,"1033,62250080108 ",.01)
 ;;62250080108
 ;;9002226.02101,"1033,62250080108 ",.02)
 ;;62250080108
 ;;9002226.02101,"1033,62250080202 ",.01)
 ;;62250080202
 ;;9002226.02101,"1033,62250080202 ",.02)
 ;;62250080202
 ;;9002226.02101,"1033,62250080208 ",.01)
 ;;62250080208
 ;;9002226.02101,"1033,62250080208 ",.02)
 ;;62250080208
 ;;9002226.02101,"1033,62540544500 ",.01)
 ;;62540544500
 ;;9002226.02101,"1033,62540544500 ",.02)
 ;;62540544500
 ;;9002226.02101,"1033,62540544501 ",.01)
 ;;62540544501
 ;;9002226.02101,"1033,62540544501 ",.02)
 ;;62540544501
 ;;9002226.02101,"1033,62540544502 ",.01)
 ;;62540544502
 ;;9002226.02101,"1033,62540544502 ",.02)
 ;;62540544502
 ;;9002226.02101,"1033,62540544503 ",.01)
 ;;62540544503
 ;;9002226.02101,"1033,62540544503 ",.02)
 ;;62540544503
 ;;9002226.02101,"1033,62540544508 ",.01)
 ;;62540544508
 ;;9002226.02101,"1033,62540544508 ",.02)
 ;;62540544508
 ;;9002226.02101,"1033,62540544600 ",.01)
 ;;62540544600
 ;;9002226.02101,"1033,62540544600 ",.02)
 ;;62540544600
 ;;9002226.02101,"1033,62540544601 ",.01)
 ;;62540544601
 ;;9002226.02101,"1033,62540544601 ",.02)
 ;;62540544601
 ;;9002226.02101,"1033,62540544602 ",.01)
 ;;62540544602
 ;;9002226.02101,"1033,62540544602 ",.02)
 ;;62540544602
 ;;9002226.02101,"1033,62540544603 ",.01)
 ;;62540544603
 ;;9002226.02101,"1033,62540544603 ",.02)
 ;;62540544603
 ;;9002226.02101,"1033,62540544608 ",.01)
 ;;62540544608
 ;;9002226.02101,"1033,62540544608 ",.02)
 ;;62540544608
 ;;9002226.02101,"1033,62584023501 ",.01)
 ;;62584023501
 ;;9002226.02101,"1033,62584023501 ",.02)
 ;;62584023501
 ;;9002226.02101,"1033,62584023601 ",.01)
 ;;62584023601
 ;;9002226.02101,"1033,62584023601 ",.02)
 ;;62584023601
 ;;9002226.02101,"1033,62584023701 ",.01)
 ;;62584023701
 ;;9002226.02101,"1033,62584023701 ",.02)
 ;;62584023701
 ;;9002226.02101,"1033,62584023801 ",.01)
 ;;62584023801
 ;;9002226.02101,"1033,62584023801 ",.02)
 ;;62584023801
 ;;9002226.02101,"1033,62584033801 ",.01)
 ;;62584033801
 ;;9002226.02101,"1033,62584033801 ",.02)
 ;;62584033801
 ;;9002226.02101,"1033,62584039950 ",.01)
 ;;62584039950
 ;;9002226.02101,"1033,62584039950 ",.02)
 ;;62584039950
 ;;9002226.02101,"1033,62584057828 ",.01)
 ;;62584057828
 ;;9002226.02101,"1033,62584057828 ",.02)
 ;;62584057828
 ;;9002226.02101,"1033,62584069214 ",.01)
 ;;62584069214
 ;;9002226.02101,"1033,62584069214 ",.02)
 ;;62584069214
 ;;9002226.02101,"1033,62584069301 ",.01)
 ;;62584069301
 ;;9002226.02101,"1033,62584069301 ",.02)
 ;;62584069301
 ;;9002226.02101,"1033,62584069311 ",.01)
 ;;62584069311
 ;;9002226.02101,"1033,62584069311 ",.02)
 ;;62584069311
 ;;9002226.02101,"1033,62584085601 ",.01)
 ;;62584085601
 ;;9002226.02101,"1033,62584085601 ",.02)
 ;;62584085601
 ;;9002226.02101,"1033,62584085701 ",.01)
 ;;62584085701
 ;;9002226.02101,"1033,62584085701 ",.02)
 ;;62584085701
 ;;9002226.02101,"1033,62645010110 ",.01)
 ;;62645010110
 ;;9002226.02101,"1033,62645010110 ",.02)
 ;;62645010110
 ;;9002226.02101,"1033,62645010150 ",.01)
 ;;62645010150
 ;;9002226.02101,"1033,62645010150 ",.02)
 ;;62645010150
 ;;9002226.02101,"1033,62645010210 ",.01)
 ;;62645010210
 ;;9002226.02101,"1033,62645010210 ",.02)
 ;;62645010210
 ;;9002226.02101,"1033,62645010250 ",.01)
 ;;62645010250
 ;;9002226.02101,"1033,62645010250 ",.02)
 ;;62645010250
 ;;9002226.02101,"1033,62645020110 ",.01)
 ;;62645020110
 ;;9002226.02101,"1033,62645020110 ",.02)
 ;;62645020110
 ;;9002226.02101,"1033,62645020150 ",.01)
 ;;62645020150
 ;;9002226.02101,"1033,62645020150 ",.02)
 ;;62645020150
 ;;9002226.02101,"1033,62645020210 ",.01)
 ;;62645020210
 ;;9002226.02101,"1033,62645020210 ",.02)
 ;;62645020210
 ;;9002226.02101,"1033,62645020250 ",.01)
 ;;62645020250
 ;;9002226.02101,"1033,62645020250 ",.02)
 ;;62645020250
 ;;9002226.02101,"1033,62645050110 ",.01)
 ;;62645050110
 ;;9002226.02101,"1033,62645050110 ",.02)
 ;;62645050110
 ;;9002226.02101,"1033,62645050150 ",.01)
 ;;62645050150
 ;;9002226.02101,"1033,62645050150 ",.02)
 ;;62645050150
 ;;9002226.02101,"1033,62645050210 ",.01)
 ;;62645050210
 ;;9002226.02101,"1033,62645050210 ",.02)
 ;;62645050210
 ;;9002226.02101,"1033,62645050250 ",.01)
 ;;62645050250
 ;;9002226.02101,"1033,62645050250 ",.02)
 ;;62645050250
 ;;9002226.02101,"1033,62756029313 ",.01)
 ;;62756029313
 ;;9002226.02101,"1033,62756029313 ",.02)
 ;;62756029313
 ;;9002226.02101,"1033,62756029388 ",.01)
 ;;62756029388
 ;;9002226.02101,"1033,62756029388 ",.02)
 ;;62756029388
 ;;9002226.02101,"1033,62756029413 ",.01)
 ;;62756029413
 ;;9002226.02101,"1033,62756029413 ",.02)
 ;;62756029413
 ;;9002226.02101,"1033,62756029488 ",.01)
 ;;62756029488
 ;;9002226.02101,"1033,62756029488 ",.02)
 ;;62756029488
 ;;9002226.02101,"1033,62778000303 ",.01)
 ;;62778000303
 ;;9002226.02101,"1033,62778000303 ",.02)
 ;;62778000303
 ;;9002226.02101,"1033,62778000402 ",.01)
 ;;62778000402
 ;;9002226.02101,"1033,62778000402 ",.02)
 ;;62778000402
 ;;9002226.02101,"1033,62778000502 ",.01)
 ;;62778000502
 ;;9002226.02101,"1033,62778000502 ",.02)
 ;;62778000502
 ;;9002226.02101,"1033,62778000603 ",.01)
 ;;62778000603
 ;;9002226.02101,"1033,62778000603 ",.02)
 ;;62778000603
 ;;9002226.02101,"1033,62778000702 ",.01)
 ;;62778000702
 ;;9002226.02101,"1033,62778000702 ",.02)
 ;;62778000702
 ;;9002226.02101,"1033,62778000802 ",.01)
 ;;62778000802
 ;;9002226.02101,"1033,62778000802 ",.02)
 ;;62778000802
 ;;9002226.02101,"1033,62778000814 ",.01)
 ;;62778000814
 ;;9002226.02101,"1033,62778000814 ",.02)
 ;;62778000814
 ;;9002226.02101,"1033,62778000903 ",.01)
 ;;62778000903
 ;;9002226.02101,"1033,62778000903 ",.02)
 ;;62778000903
 ;;9002226.02101,"1033,62778001703 ",.01)
 ;;62778001703
 ;;9002226.02101,"1033,62778001703 ",.02)
 ;;62778001703
 ;;9002226.02101,"1033,62778001803 ",.01)
 ;;62778001803
 ;;9002226.02101,"1033,62778001803 ",.02)
 ;;62778001803
 ;;9002226.02101,"1033,62778001903 ",.01)
 ;;62778001903
 ;;9002226.02101,"1033,62778001903 ",.02)
 ;;62778001903
 ;;9002226.02101,"1033,62778002002 ",.01)
 ;;62778002002
 ;;9002226.02101,"1033,62778002002 ",.02)
 ;;62778002002
 ;;9002226.02101,"1033,62778002103 ",.01)
 ;;62778002103
 ;;9002226.02101,"1033,62778002103 ",.02)
 ;;62778002103
 ;;9002226.02101,"1033,62778002202 ",.01)
 ;;62778002202
 ;;9002226.02101,"1033,62778002202 ",.02)
 ;;62778002202
 ;;9002226.02101,"1033,62778003201 ",.01)
 ;;62778003201
 ;;9002226.02101,"1033,62778003201 ",.02)
 ;;62778003201
 ;;9002226.02101,"1033,62780065705 ",.01)
 ;;62780065705
 ;;9002226.02101,"1033,62780065705 ",.02)
 ;;62780065705
 ;;9002226.02101,"1033,62780065805 ",.01)
 ;;62780065805
 ;;9002226.02101,"1033,62780065805 ",.02)
 ;;62780065805
 ;;9002226.02101,"1033,62780065910 ",.01)
 ;;62780065910
 ;;9002226.02101,"1033,62780065910 ",.02)
 ;;62780065910
 ;;9002226.02101,"1033,63126016101 ",.01)
 ;;63126016101
 ;;9002226.02101,"1033,63126016101 ",.02)
 ;;63126016101
 ;;9002226.02101,"1033,63126016105 ",.01)
 ;;63126016105
 ;;9002226.02101,"1033,63126016105 ",.02)
 ;;63126016105
 ;;9002226.02101,"1033,63126016201 ",.01)
 ;;63126016201
 ;;9002226.02101,"1033,63126016201 ",.02)
 ;;63126016201
 ;;9002226.02101,"1033,63126016205 ",.01)
 ;;63126016205
 ;;9002226.02101,"1033,63126016205 ",.02)
 ;;63126016205
 ;;9002226.02101,"1033,63126017101 ",.01)
 ;;63126017101
 ;;9002226.02101,"1033,63126017101 ",.02)
 ;;63126017101
 ;;9002226.02101,"1033,63126017105 ",.01)
 ;;63126017105
 ;;9002226.02101,"1033,63126017105 ",.02)
 ;;63126017105
 ;;9002226.02101,"1033,63126017130 ",.01)
 ;;63126017130
 ;;9002226.02101,"1033,63126017130 ",.02)
 ;;63126017130
 ;;9002226.02101,"1033,63126017201 ",.01)
 ;;63126017201
 ;;9002226.02101,"1033,63126017201 ",.02)
 ;;63126017201
 ;;9002226.02101,"1033,63126017205 ",.01)
 ;;63126017205
 ;;9002226.02101,"1033,63126017205 ",.02)
 ;;63126017205
 ;;9002226.02101,"1033,63126017230 ",.01)
 ;;63126017230
 ;;9002226.02101,"1033,63126017230 ",.02)
 ;;63126017230
 ;;9002226.02101,"1033,63126025110 ",.01)
 ;;63126025110
 ;;9002226.02101,"1033,63126025110 ",.02)
 ;;63126025110
 ;;9002226.02101,"1033,63126025150 ",.01)
 ;;63126025150
 ;;9002226.02101,"1033,63126025150 ",.02)
 ;;63126025150
 ;;9002226.02101,"1033,63126025205 ",.01)
 ;;63126025205
 ;;9002226.02101,"1033,63126025205 ",.02)
 ;;63126025205
 ;;9002226.02101,"1033,63126025250 ",.01)
 ;;63126025250
 ;;9002226.02101,"1033,63126025250 ",.02)
 ;;63126025250
 ;;9002226.02101,"1033,63126025304 ",.01)
 ;;63126025304
 ;;9002226.02101,"1033,63126025304 ",.02)
 ;;63126025304
 ;;9002226.02101,"1033,63126025350 ",.01)
 ;;63126025350
 ;;9002226.02101,"1033,63126025350 ",.02)
 ;;63126025350
 ;;9002226.02101,"1033,63304013010 ",.01)
 ;;63304013010
 ;;9002226.02101,"1033,63304013010 ",.02)
 ;;63304013010
 ;;9002226.02101,"1033,63304013101 ",.01)
 ;;63304013101
 ;;9002226.02101,"1033,63304013101 ",.02)
 ;;63304013101
 ;;9002226.02101,"1033,63304013110 ",.01)
 ;;63304013110
 ;;9002226.02101,"1033,63304013110 ",.02)
 ;;63304013110
 ;;9002226.02101,"1033,63304013204 ",.01)
 ;;63304013204
 ;;9002226.02101,"1033,63304013204 ",.02)
 ;;63304013204
 ;;9002226.02101,"1033,63304013210 ",.01)
 ;;63304013210
 ;;9002226.02101,"1033,63304013210 ",.02)
 ;;63304013210
 ;;9002226.02101,"1033,63304013250 ",.01)
 ;;63304013250
 ;;9002226.02101,"1033,63304013250 ",.02)
 ;;63304013250
 ;;9002226.02101,"1033,63304014801 ",.01)
 ;;63304014801
 ;;9002226.02101,"1033,63304014801 ",.02)
 ;;63304014801
 ;;9002226.02101,"1033,63304014805 ",.01)
 ;;63304014805
 ;;9002226.02101,"1033,63304014805 ",.02)
 ;;63304014805
 ;;9002226.02101,"1033,63304014901 ",.01)
 ;;63304014901
 ;;9002226.02101,"1033,63304014901 ",.02)
 ;;63304014901
 ;;9002226.02101,"1033,63304014905 ",.01)
 ;;63304014905
 ;;9002226.02101,"1033,63304014905 ",.02)
 ;;63304014905
 ;;9002226.02101,"1033,63304014950 ",.01)
 ;;63304014950
 ;;9002226.02101,"1033,63304014950 ",.02)
 ;;63304014950
 ;;9002226.02101,"1033,63304017330 ",.01)
 ;;63304017330
 ;;9002226.02101,"1033,63304017330 ",.02)
 ;;63304017330
 ;;9002226.02101,"1033,63304050901 ",.01)
 ;;63304050901
 ;;9002226.02101,"1033,63304050901 ",.02)
 ;;63304050901
 ;;9002226.02101,"1033,63304050920 ",.01)
 ;;63304050920
 ;;9002226.02101,"1033,63304050920 ",.02)
 ;;63304050920
 ;;9002226.02101,"1033,63304051201 ",.01)
 ;;63304051201
 ;;9002226.02101,"1033,63304051201 ",.02)
 ;;63304051201
 ;;9002226.02101,"1033,63304051250 ",.01)
 ;;63304051250