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

BGPM5AWK.m

Go to the documentation of this file.
BGPM5AWK ;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,63304096903 ",.02)
 ;;63304096903
 ;;9002226.02101,"1033,63304096904 ",.01)
 ;;63304096904
 ;;9002226.02101,"1033,63304096904 ",.02)
 ;;63304096904
 ;;9002226.02101,"1033,63304097001 ",.01)
 ;;63304097001
 ;;9002226.02101,"1033,63304097001 ",.02)
 ;;63304097001
 ;;9002226.02101,"1033,63304097003 ",.01)
 ;;63304097003
 ;;9002226.02101,"1033,63304097003 ",.02)
 ;;63304097003
 ;;9002226.02101,"1033,63304097004 ",.01)
 ;;63304097004
 ;;9002226.02101,"1033,63304097004 ",.02)
 ;;63304097004
 ;;9002226.02101,"1033,63304097105 ",.01)
 ;;63304097105
 ;;9002226.02101,"1033,63304097105 ",.02)
 ;;63304097105
 ;;9002226.02101,"1033,63304097114 ",.01)
 ;;63304097114
 ;;9002226.02101,"1033,63304097114 ",.02)
 ;;63304097114
 ;;9002226.02101,"1033,63304097170 ",.01)
 ;;63304097170
 ;;9002226.02101,"1033,63304097170 ",.02)
 ;;63304097170
 ;;9002226.02101,"1033,63304097204 ",.01)
 ;;63304097204
 ;;9002226.02101,"1033,63304097204 ",.02)
 ;;63304097204
 ;;9002226.02101,"1033,63304097303 ",.01)
 ;;63304097303
 ;;9002226.02101,"1033,63304097303 ",.02)
 ;;63304097303
 ;;9002226.02101,"1033,63304097304 ",.01)
 ;;63304097304
 ;;9002226.02101,"1033,63304097304 ",.02)
 ;;63304097304
 ;;9002226.02101,"1033,63304097401 ",.01)
 ;;63304097401
 ;;9002226.02101,"1033,63304097401 ",.02)
 ;;63304097401
 ;;9002226.02101,"1033,63304097404 ",.01)
 ;;63304097404
 ;;9002226.02101,"1033,63304097404 ",.02)
 ;;63304097404
 ;;9002226.02101,"1033,63304097701 ",.01)
 ;;63304097701
 ;;9002226.02101,"1033,63304097701 ",.02)
 ;;63304097701
 ;;9002226.02101,"1033,63304097703 ",.01)
 ;;63304097703
 ;;9002226.02101,"1033,63304097703 ",.02)
 ;;63304097703
 ;;9002226.02101,"1033,63304097704 ",.01)
 ;;63304097704
 ;;9002226.02101,"1033,63304097704 ",.02)
 ;;63304097704
 ;;9002226.02101,"1033,63304097901 ",.01)
 ;;63304097901
 ;;9002226.02101,"1033,63304097901 ",.02)
 ;;63304097901
 ;;9002226.02101,"1033,63304097903 ",.01)
 ;;63304097903
 ;;9002226.02101,"1033,63304097903 ",.02)
 ;;63304097903
 ;;9002226.02101,"1033,63304097904 ",.01)
 ;;63304097904
 ;;9002226.02101,"1033,63304097904 ",.02)
 ;;63304097904
 ;;9002226.02101,"1033,63323013010 ",.01)
 ;;63323013010
 ;;9002226.02101,"1033,63323013010 ",.02)
 ;;63323013010
 ;;9002226.02101,"1033,63323013011 ",.01)
 ;;63323013011
 ;;9002226.02101,"1033,63323013011 ",.02)
 ;;63323013011
 ;;9002226.02101,"1033,63323023610 ",.01)
 ;;63323023610
 ;;9002226.02101,"1033,63323023610 ",.02)
 ;;63323023610
 ;;9002226.02101,"1033,63323023710 ",.01)
 ;;63323023710
 ;;9002226.02101,"1033,63323023710 ",.02)
 ;;63323023710
 ;;9002226.02101,"1033,63323023861 ",.01)
 ;;63323023861
 ;;9002226.02101,"1033,63323023861 ",.02)
 ;;63323023861
 ;;9002226.02101,"1033,63323028202 ",.01)
 ;;63323028202
 ;;9002226.02101,"1033,63323028202 ",.02)
 ;;63323028202
 ;;9002226.02101,"1033,63323028204 ",.01)
 ;;63323028204
 ;;9002226.02101,"1033,63323028204 ",.02)
 ;;63323028204
 ;;9002226.02101,"1033,63323028206 ",.01)
 ;;63323028206
 ;;9002226.02101,"1033,63323028206 ",.02)
 ;;63323028206
 ;;9002226.02101,"1033,63323028260 ",.01)
 ;;63323028260
 ;;9002226.02101,"1033,63323028260 ",.02)
 ;;63323028260
 ;;9002226.02101,"1033,63323031220 ",.01)
 ;;63323031220
 ;;9002226.02101,"1033,63323031220 ",.02)
 ;;63323031220
 ;;9002226.02101,"1033,63323031361 ",.01)
 ;;63323031361
 ;;9002226.02101,"1033,63323031361 ",.02)
 ;;63323031361
 ;;9002226.02101,"1033,63323032320 ",.01)
 ;;63323032320
 ;;9002226.02101,"1033,63323032320 ",.02)
 ;;63323032320
 ;;9002226.02101,"1033,63323032462 ",.01)
 ;;63323032462
 ;;9002226.02101,"1033,63323032462 ",.02)
 ;;63323032462
 ;;9002226.02101,"1033,63323034410 ",.01)
 ;;63323034410
 ;;9002226.02101,"1033,63323034410 ",.02)
 ;;63323034410
 ;;9002226.02101,"1033,63323034510 ",.01)
 ;;63323034510
 ;;9002226.02101,"1033,63323034510 ",.02)
 ;;63323034510
 ;;9002226.02101,"1033,63323034610 ",.01)
 ;;63323034610
 ;;9002226.02101,"1033,63323034610 ",.02)
 ;;63323034610
 ;;9002226.02101,"1033,63323034720 ",.01)
 ;;63323034720
 ;;9002226.02101,"1033,63323034720 ",.02)
 ;;63323034720
 ;;9002226.02101,"1033,63323034861 ",.01)
 ;;63323034861
 ;;9002226.02101,"1033,63323034861 ",.02)
 ;;63323034861
 ;;9002226.02101,"1033,63323035320 ",.01)
 ;;63323035320
 ;;9002226.02101,"1033,63323035320 ",.02)
 ;;63323035320
 ;;9002226.02101,"1033,63323035345 ",.01)
 ;;63323035345
 ;;9002226.02101,"1033,63323035345 ",.02)
 ;;63323035345
 ;;9002226.02101,"1033,63323035445 ",.01)
 ;;63323035445
 ;;9002226.02101,"1033,63323035445 ",.02)
 ;;63323035445
 ;;9002226.02101,"1033,63323035461 ",.01)
 ;;63323035461
 ;;9002226.02101,"1033,63323035461 ",.02)
 ;;63323035461
 ;;9002226.02101,"1033,63323036820 ",.01)
 ;;63323036820
 ;;9002226.02101,"1033,63323036820 ",.02)
 ;;63323036820
 ;;9002226.02101,"1033,63323036920 ",.01)
 ;;63323036920
 ;;9002226.02101,"1033,63323036920 ",.02)
 ;;63323036920
 ;;9002226.02101,"1033,63323037062 ",.01)
 ;;63323037062
 ;;9002226.02101,"1033,63323037062 ",.02)
 ;;63323037062
 ;;9002226.02101,"1033,63323038710 ",.01)
 ;;63323038710
 ;;9002226.02101,"1033,63323038710 ",.02)
 ;;63323038710
 ;;9002226.02101,"1033,63323038810 ",.01)
 ;;63323038810
 ;;9002226.02101,"1033,63323038810 ",.02)
 ;;63323038810
 ;;9002226.02101,"1033,63323038910 ",.01)
 ;;63323038910
 ;;9002226.02101,"1033,63323038910 ",.02)
 ;;63323038910
 ;;9002226.02101,"1033,63323039810 ",.01)
 ;;63323039810
 ;;9002226.02101,"1033,63323039810 ",.02)
 ;;63323039810
 ;;9002226.02101,"1033,63323039812 ",.01)
 ;;63323039812
 ;;9002226.02101,"1033,63323039812 ",.02)
 ;;63323039812
 ;;9002226.02101,"1033,63323039923 ",.01)
 ;;63323039923
 ;;9002226.02101,"1033,63323039923 ",.02)
 ;;63323039923
 ;;9002226.02101,"1033,63323044661 ",.01)
 ;;63323044661
 ;;9002226.02101,"1033,63323044661 ",.02)
 ;;63323044661
 ;;9002226.02101,"1033,63323044666 ",.01)
 ;;63323044666
 ;;9002226.02101,"1033,63323044666 ",.02)
 ;;63323044666
 ;;9002226.02101,"1033,63552014070 ",.01)
 ;;63552014070
 ;;9002226.02101,"1033,63552014070 ",.02)
 ;;63552014070
 ;;9002226.02101,"1033,63629123600 ",.01)
 ;;63629123600
 ;;9002226.02101,"1033,63629123600 ",.02)
 ;;63629123600
 ;;9002226.02101,"1033,63629123601 ",.01)
 ;;63629123601
 ;;9002226.02101,"1033,63629123601 ",.02)
 ;;63629123601
 ;;9002226.02101,"1033,63629123602 ",.01)
 ;;63629123602
 ;;9002226.02101,"1033,63629123602 ",.02)
 ;;63629123602
 ;;9002226.02101,"1033,63629123603 ",.01)
 ;;63629123603
 ;;9002226.02101,"1033,63629123603 ",.02)
 ;;63629123603
 ;;9002226.02101,"1033,63629123604 ",.01)
 ;;63629123604
 ;;9002226.02101,"1033,63629123604 ",.02)
 ;;63629123604
 ;;9002226.02101,"1033,63629123605 ",.01)
 ;;63629123605
 ;;9002226.02101,"1033,63629123605 ",.02)
 ;;63629123605
 ;;9002226.02101,"1033,63629123606 ",.01)
 ;;63629123606
 ;;9002226.02101,"1033,63629123606 ",.02)
 ;;63629123606
 ;;9002226.02101,"1033,63629123607 ",.01)
 ;;63629123607
 ;;9002226.02101,"1033,63629123607 ",.02)
 ;;63629123607
 ;;9002226.02101,"1033,63629123608 ",.01)
 ;;63629123608
 ;;9002226.02101,"1033,63629123608 ",.02)
 ;;63629123608
 ;;9002226.02101,"1033,63629123609 ",.01)
 ;;63629123609
 ;;9002226.02101,"1033,63629123609 ",.02)
 ;;63629123609
 ;;9002226.02101,"1033,63629124801 ",.01)
 ;;63629124801
 ;;9002226.02101,"1033,63629124801 ",.02)
 ;;63629124801
 ;;9002226.02101,"1033,63629124802 ",.01)
 ;;63629124802
 ;;9002226.02101,"1033,63629124802 ",.02)
 ;;63629124802
 ;;9002226.02101,"1033,63629124803 ",.01)
 ;;63629124803
 ;;9002226.02101,"1033,63629124803 ",.02)
 ;;63629124803
 ;;9002226.02101,"1033,63629124804 ",.01)
 ;;63629124804
 ;;9002226.02101,"1033,63629124804 ",.02)
 ;;63629124804
 ;;9002226.02101,"1033,63629125701 ",.01)
 ;;63629125701
 ;;9002226.02101,"1033,63629125701 ",.02)
 ;;63629125701
 ;;9002226.02101,"1033,63629125702 ",.01)
 ;;63629125702
 ;;9002226.02101,"1033,63629125702 ",.02)
 ;;63629125702
 ;;9002226.02101,"1033,63629125703 ",.01)
 ;;63629125703
 ;;9002226.02101,"1033,63629125703 ",.02)
 ;;63629125703
 ;;9002226.02101,"1033,63629128401 ",.01)
 ;;63629128401
 ;;9002226.02101,"1033,63629128401 ",.02)
 ;;63629128401
 ;;9002226.02101,"1033,63629128402 ",.01)
 ;;63629128402
 ;;9002226.02101,"1033,63629128402 ",.02)
 ;;63629128402
 ;;9002226.02101,"1033,63629128403 ",.01)
 ;;63629128403
 ;;9002226.02101,"1033,63629128403 ",.02)
 ;;63629128403
 ;;9002226.02101,"1033,63629130501 ",.01)
 ;;63629130501
 ;;9002226.02101,"1033,63629130501 ",.02)
 ;;63629130501
 ;;9002226.02101,"1033,63629130502 ",.01)
 ;;63629130502
 ;;9002226.02101,"1033,63629130502 ",.02)
 ;;63629130502
 ;;9002226.02101,"1033,63629130503 ",.01)
 ;;63629130503
 ;;9002226.02101,"1033,63629130503 ",.02)
 ;;63629130503
 ;;9002226.02101,"1033,63629130504 ",.01)
 ;;63629130504
 ;;9002226.02101,"1033,63629130504 ",.02)
 ;;63629130504
 ;;9002226.02101,"1033,63629130505 ",.01)
 ;;63629130505
 ;;9002226.02101,"1033,63629130505 ",.02)
 ;;63629130505
 ;;9002226.02101,"1033,63629131701 ",.01)
 ;;63629131701
 ;;9002226.02101,"1033,63629131701 ",.02)
 ;;63629131701
 ;;9002226.02101,"1033,63629131702 ",.01)
 ;;63629131702
 ;;9002226.02101,"1033,63629131702 ",.02)
 ;;63629131702
 ;;9002226.02101,"1033,63629131703 ",.01)
 ;;63629131703
 ;;9002226.02101,"1033,63629131703 ",.02)
 ;;63629131703
 ;;9002226.02101,"1033,63629131704 ",.01)
 ;;63629131704
 ;;9002226.02101,"1033,63629131704 ",.02)
 ;;63629131704
 ;;9002226.02101,"1033,63629131705 ",.01)
 ;;63629131705
 ;;9002226.02101,"1033,63629131705 ",.02)
 ;;63629131705
 ;;9002226.02101,"1033,63629131900 ",.01)
 ;;63629131900
 ;;9002226.02101,"1033,63629131900 ",.02)
 ;;63629131900
 ;;9002226.02101,"1033,63629131901 ",.01)
 ;;63629131901
 ;;9002226.02101,"1033,63629131901 ",.02)
 ;;63629131901
 ;;9002226.02101,"1033,63629131902 ",.01)
 ;;63629131902
 ;;9002226.02101,"1033,63629131902 ",.02)
 ;;63629131902
 ;;9002226.02101,"1033,63629131903 ",.01)
 ;;63629131903
 ;;9002226.02101,"1033,63629131903 ",.02)
 ;;63629131903
 ;;9002226.02101,"1033,63629131904 ",.01)
 ;;63629131904
 ;;9002226.02101,"1033,63629131904 ",.02)
 ;;63629131904
 ;;9002226.02101,"1033,63629131905 ",.01)
 ;;63629131905
 ;;9002226.02101,"1033,63629131905 ",.02)
 ;;63629131905
 ;;9002226.02101,"1033,63629131906 ",.01)
 ;;63629131906
 ;;9002226.02101,"1033,63629131906 ",.02)
 ;;63629131906
 ;;9002226.02101,"1033,63629131907 ",.01)
 ;;63629131907
 ;;9002226.02101,"1033,63629131907 ",.02)
 ;;63629131907
 ;;9002226.02101,"1033,63629131908 ",.01)
 ;;63629131908
 ;;9002226.02101,"1033,63629131908 ",.02)
 ;;63629131908
 ;;9002226.02101,"1033,63629131909 ",.01)
 ;;63629131909
 ;;9002226.02101,"1033,63629131909 ",.02)
 ;;63629131909
 ;;9002226.02101,"1033,63629132001 ",.01)
 ;;63629132001
 ;;9002226.02101,"1033,63629132001 ",.02)
 ;;63629132001
 ;;9002226.02101,"1033,63629132002 ",.01)
 ;;63629132002
 ;;9002226.02101,"1033,63629132002 ",.02)
 ;;63629132002
 ;;9002226.02101,"1033,63629132003 ",.01)
 ;;63629132003
 ;;9002226.02101,"1033,63629132003 ",.02)
 ;;63629132003
 ;;9002226.02101,"1033,63629132004 ",.01)
 ;;63629132004
 ;;9002226.02101,"1033,63629132004 ",.02)
 ;;63629132004
 ;;9002226.02101,"1033,63629132005 ",.01)
 ;;63629132005
 ;;9002226.02101,"1033,63629132005 ",.02)
 ;;63629132005
 ;;9002226.02101,"1033,63629132006 ",.01)
 ;;63629132006
 ;;9002226.02101,"1033,63629132006 ",.02)
 ;;63629132006
 ;;9002226.02101,"1033,63629132007 ",.01)
 ;;63629132007
 ;;9002226.02101,"1033,63629132007 ",.02)
 ;;63629132007
 ;;9002226.02101,"1033,63629132008 ",.01)
 ;;63629132008
 ;;9002226.02101,"1033,63629132008 ",.02)
 ;;63629132008