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

BGPM5AWT.m

Go to the documentation of this file.
BGPM5AWT ;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,66267002106 ",.01)
 ;;66267002106
 ;;9002226.02101,"1033,66267002106 ",.02)
 ;;66267002106
 ;;9002226.02101,"1033,66267002109 ",.01)
 ;;66267002109
 ;;9002226.02101,"1033,66267002109 ",.02)
 ;;66267002109
 ;;9002226.02101,"1033,66267002115 ",.01)
 ;;66267002115
 ;;9002226.02101,"1033,66267002115 ",.02)
 ;;66267002115
 ;;9002226.02101,"1033,66267002120 ",.01)
 ;;66267002120
 ;;9002226.02101,"1033,66267002120 ",.02)
 ;;66267002120
 ;;9002226.02101,"1033,66267002121 ",.01)
 ;;66267002121
 ;;9002226.02101,"1033,66267002121 ",.02)
 ;;66267002121
 ;;9002226.02101,"1033,66267002130 ",.01)
 ;;66267002130
 ;;9002226.02101,"1033,66267002130 ",.02)
 ;;66267002130
 ;;9002226.02101,"1033,66267002140 ",.01)
 ;;66267002140
 ;;9002226.02101,"1033,66267002140 ",.02)
 ;;66267002140
 ;;9002226.02101,"1033,66267002230 ",.01)
 ;;66267002230
 ;;9002226.02101,"1033,66267002230 ",.02)
 ;;66267002230
 ;;9002226.02101,"1033,66267002304 ",.01)
 ;;66267002304
 ;;9002226.02101,"1033,66267002304 ",.02)
 ;;66267002304
 ;;9002226.02101,"1033,66267002306 ",.01)
 ;;66267002306
 ;;9002226.02101,"1033,66267002306 ",.02)
 ;;66267002306
 ;;9002226.02101,"1033,66267002308 ",.01)
 ;;66267002308
 ;;9002226.02101,"1033,66267002308 ",.02)
 ;;66267002308
 ;;9002226.02101,"1033,66267002309 ",.01)
 ;;66267002309
 ;;9002226.02101,"1033,66267002309 ",.02)
 ;;66267002309
 ;;9002226.02101,"1033,66267002310 ",.01)
 ;;66267002310
 ;;9002226.02101,"1033,66267002310 ",.02)
 ;;66267002310
 ;;9002226.02101,"1033,66267002315 ",.01)
 ;;66267002315
 ;;9002226.02101,"1033,66267002315 ",.02)
 ;;66267002315
 ;;9002226.02101,"1033,66267002318 ",.01)
 ;;66267002318
 ;;9002226.02101,"1033,66267002318 ",.02)
 ;;66267002318
 ;;9002226.02101,"1033,66267002320 ",.01)
 ;;66267002320
 ;;9002226.02101,"1033,66267002320 ",.02)
 ;;66267002320
 ;;9002226.02101,"1033,66267002321 ",.01)
 ;;66267002321
 ;;9002226.02101,"1033,66267002321 ",.02)
 ;;66267002321
 ;;9002226.02101,"1033,66267002323 ",.01)
 ;;66267002323
 ;;9002226.02101,"1033,66267002323 ",.02)
 ;;66267002323
 ;;9002226.02101,"1033,66267002330 ",.01)
 ;;66267002330
 ;;9002226.02101,"1033,66267002330 ",.02)
 ;;66267002330
 ;;9002226.02101,"1033,66267002340 ",.01)
 ;;66267002340
 ;;9002226.02101,"1033,66267002340 ",.02)
 ;;66267002340
 ;;9002226.02101,"1033,66267002356 ",.01)
 ;;66267002356
 ;;9002226.02101,"1033,66267002356 ",.02)
 ;;66267002356
 ;;9002226.02101,"1033,66267002360 ",.01)
 ;;66267002360
 ;;9002226.02101,"1033,66267002360 ",.02)
 ;;66267002360
 ;;9002226.02101,"1033,66267002406 ",.01)
 ;;66267002406
 ;;9002226.02101,"1033,66267002406 ",.02)
 ;;66267002406
 ;;9002226.02101,"1033,66267002420 ",.01)
 ;;66267002420
 ;;9002226.02101,"1033,66267002420 ",.02)
 ;;66267002420
 ;;9002226.02101,"1033,66267002428 ",.01)
 ;;66267002428
 ;;9002226.02101,"1033,66267002428 ",.02)
 ;;66267002428
 ;;9002226.02101,"1033,66267002430 ",.01)
 ;;66267002430
 ;;9002226.02101,"1033,66267002430 ",.02)
 ;;66267002430
 ;;9002226.02101,"1033,66267002440 ",.01)
 ;;66267002440
 ;;9002226.02101,"1033,66267002440 ",.02)
 ;;66267002440
 ;;9002226.02101,"1033,66267002460 ",.01)
 ;;66267002460
 ;;9002226.02101,"1033,66267002460 ",.02)
 ;;66267002460
 ;;9002226.02101,"1033,66267002515 ",.01)
 ;;66267002515
 ;;9002226.02101,"1033,66267002515 ",.02)
 ;;66267002515
 ;;9002226.02101,"1033,66267002520 ",.01)
 ;;66267002520
 ;;9002226.02101,"1033,66267002520 ",.02)
 ;;66267002520
 ;;9002226.02101,"1033,66267002521 ",.01)
 ;;66267002521
 ;;9002226.02101,"1033,66267002521 ",.02)
 ;;66267002521
 ;;9002226.02101,"1033,66267002528 ",.01)
 ;;66267002528
 ;;9002226.02101,"1033,66267002528 ",.02)
 ;;66267002528
 ;;9002226.02101,"1033,66267002530 ",.01)
 ;;66267002530
 ;;9002226.02101,"1033,66267002530 ",.02)
 ;;66267002530
 ;;9002226.02101,"1033,66267002540 ",.01)
 ;;66267002540
 ;;9002226.02101,"1033,66267002540 ",.02)
 ;;66267002540
 ;;9002226.02101,"1033,66267004510 ",.01)
 ;;66267004510
 ;;9002226.02101,"1033,66267004510 ",.02)
 ;;66267004510
 ;;9002226.02101,"1033,66267004514 ",.01)
 ;;66267004514
 ;;9002226.02101,"1033,66267004514 ",.02)
 ;;66267004514
 ;;9002226.02101,"1033,66267004520 ",.01)
 ;;66267004520
 ;;9002226.02101,"1033,66267004520 ",.02)
 ;;66267004520
 ;;9002226.02101,"1033,66267004524 ",.01)
 ;;66267004524
 ;;9002226.02101,"1033,66267004524 ",.02)
 ;;66267004524
 ;;9002226.02101,"1033,66267004525 ",.01)
 ;;66267004525
 ;;9002226.02101,"1033,66267004525 ",.02)
 ;;66267004525
 ;;9002226.02101,"1033,66267004528 ",.01)
 ;;66267004528
 ;;9002226.02101,"1033,66267004528 ",.02)
 ;;66267004528
 ;;9002226.02101,"1033,66267004530 ",.01)
 ;;66267004530
 ;;9002226.02101,"1033,66267004530 ",.02)
 ;;66267004530
 ;;9002226.02101,"1033,66267004906 ",.01)
 ;;66267004906
 ;;9002226.02101,"1033,66267004906 ",.02)
 ;;66267004906
 ;;9002226.02101,"1033,66267004908 ",.01)
 ;;66267004908
 ;;9002226.02101,"1033,66267004908 ",.02)
 ;;66267004908
 ;;9002226.02101,"1033,66267004909 ",.01)
 ;;66267004909
 ;;9002226.02101,"1033,66267004909 ",.02)
 ;;66267004909
 ;;9002226.02101,"1033,66267004910 ",.01)
 ;;66267004910
 ;;9002226.02101,"1033,66267004910 ",.02)
 ;;66267004910
 ;;9002226.02101,"1033,66267004912 ",.01)
 ;;66267004912
 ;;9002226.02101,"1033,66267004912 ",.02)
 ;;66267004912
 ;;9002226.02101,"1033,66267004915 ",.01)
 ;;66267004915
 ;;9002226.02101,"1033,66267004915 ",.02)
 ;;66267004915
 ;;9002226.02101,"1033,66267004920 ",.01)
 ;;66267004920
 ;;9002226.02101,"1033,66267004920 ",.02)
 ;;66267004920
 ;;9002226.02101,"1033,66267004928 ",.01)
 ;;66267004928
 ;;9002226.02101,"1033,66267004928 ",.02)
 ;;66267004928
 ;;9002226.02101,"1033,66267004930 ",.01)
 ;;66267004930
 ;;9002226.02101,"1033,66267004930 ",.02)
 ;;66267004930
 ;;9002226.02101,"1033,66267004940 ",.01)
 ;;66267004940
 ;;9002226.02101,"1033,66267004940 ",.02)
 ;;66267004940
 ;;9002226.02101,"1033,66267005003 ",.01)
 ;;66267005003
 ;;9002226.02101,"1033,66267005003 ",.02)
 ;;66267005003
 ;;9002226.02101,"1033,66267005004 ",.01)
 ;;66267005004
 ;;9002226.02101,"1033,66267005004 ",.02)
 ;;66267005004
 ;;9002226.02101,"1033,66267005005 ",.01)
 ;;66267005005
 ;;9002226.02101,"1033,66267005005 ",.02)
 ;;66267005005
 ;;9002226.02101,"1033,66267005006 ",.01)
 ;;66267005006
 ;;9002226.02101,"1033,66267005006 ",.02)
 ;;66267005006
 ;;9002226.02101,"1033,66267005009 ",.01)
 ;;66267005009
 ;;9002226.02101,"1033,66267005009 ",.02)
 ;;66267005009
 ;;9002226.02101,"1033,66267005010 ",.01)
 ;;66267005010
 ;;9002226.02101,"1033,66267005010 ",.02)
 ;;66267005010
 ;;9002226.02101,"1033,66267005012 ",.01)
 ;;66267005012
 ;;9002226.02101,"1033,66267005012 ",.02)
 ;;66267005012
 ;;9002226.02101,"1033,66267005014 ",.01)
 ;;66267005014
 ;;9002226.02101,"1033,66267005014 ",.02)
 ;;66267005014
 ;;9002226.02101,"1033,66267005015 ",.01)
 ;;66267005015
 ;;9002226.02101,"1033,66267005015 ",.02)
 ;;66267005015
 ;;9002226.02101,"1033,66267005020 ",.01)
 ;;66267005020
 ;;9002226.02101,"1033,66267005020 ",.02)
 ;;66267005020
 ;;9002226.02101,"1033,66267005021 ",.01)
 ;;66267005021
 ;;9002226.02101,"1033,66267005021 ",.02)
 ;;66267005021
 ;;9002226.02101,"1033,66267005028 ",.01)
 ;;66267005028
 ;;9002226.02101,"1033,66267005028 ",.02)
 ;;66267005028
 ;;9002226.02101,"1033,66267005030 ",.01)
 ;;66267005030
 ;;9002226.02101,"1033,66267005030 ",.02)
 ;;66267005030
 ;;9002226.02101,"1033,66267005040 ",.01)
 ;;66267005040
 ;;9002226.02101,"1033,66267005040 ",.02)
 ;;66267005040
 ;;9002226.02101,"1033,66267005045 ",.01)
 ;;66267005045
 ;;9002226.02101,"1033,66267005045 ",.02)
 ;;66267005045
 ;;9002226.02101,"1033,66267005060 ",.01)
 ;;66267005060
 ;;9002226.02101,"1033,66267005060 ",.02)
 ;;66267005060
 ;;9002226.02101,"1033,66267006004 ",.01)
 ;;66267006004
 ;;9002226.02101,"1033,66267006004 ",.02)
 ;;66267006004
 ;;9002226.02101,"1033,66267006006 ",.01)
 ;;66267006006
 ;;9002226.02101,"1033,66267006006 ",.02)
 ;;66267006006
 ;;9002226.02101,"1033,66267006008 ",.01)
 ;;66267006008
 ;;9002226.02101,"1033,66267006008 ",.02)
 ;;66267006008
 ;;9002226.02101,"1033,66267006010 ",.01)
 ;;66267006010
 ;;9002226.02101,"1033,66267006010 ",.02)
 ;;66267006010
 ;;9002226.02101,"1033,66267006014 ",.01)
 ;;66267006014
 ;;9002226.02101,"1033,66267006014 ",.02)
 ;;66267006014
 ;;9002226.02101,"1033,66267006020 ",.01)
 ;;66267006020
 ;;9002226.02101,"1033,66267006020 ",.02)
 ;;66267006020
 ;;9002226.02101,"1033,66267006021 ",.01)
 ;;66267006021
 ;;9002226.02101,"1033,66267006021 ",.02)
 ;;66267006021
 ;;9002226.02101,"1033,66267006028 ",.01)
 ;;66267006028
 ;;9002226.02101,"1033,66267006028 ",.02)
 ;;66267006028
 ;;9002226.02101,"1033,66267006030 ",.01)
 ;;66267006030
 ;;9002226.02101,"1033,66267006030 ",.02)
 ;;66267006030
 ;;9002226.02101,"1033,66267006040 ",.01)
 ;;66267006040
 ;;9002226.02101,"1033,66267006040 ",.02)
 ;;66267006040
 ;;9002226.02101,"1033,66267006056 ",.01)
 ;;66267006056
 ;;9002226.02101,"1033,66267006056 ",.02)
 ;;66267006056
 ;;9002226.02101,"1033,66267006060 ",.01)
 ;;66267006060
 ;;9002226.02101,"1033,66267006060 ",.02)
 ;;66267006060
 ;;9002226.02101,"1033,66267007215 ",.01)
 ;;66267007215
 ;;9002226.02101,"1033,66267007215 ",.02)
 ;;66267007215
 ;;9002226.02101,"1033,66267007220 ",.01)
 ;;66267007220
 ;;9002226.02101,"1033,66267007220 ",.02)
 ;;66267007220
 ;;9002226.02101,"1033,66267007228 ",.01)
 ;;66267007228
 ;;9002226.02101,"1033,66267007228 ",.02)
 ;;66267007228
 ;;9002226.02101,"1033,66267007230 ",.01)
 ;;66267007230
 ;;9002226.02101,"1033,66267007230 ",.02)
 ;;66267007230
 ;;9002226.02101,"1033,66267007240 ",.01)
 ;;66267007240
 ;;9002226.02101,"1033,66267007240 ",.02)
 ;;66267007240
 ;;9002226.02101,"1033,66267007310 ",.01)
 ;;66267007310
 ;;9002226.02101,"1033,66267007310 ",.02)
 ;;66267007310
 ;;9002226.02101,"1033,66267007315 ",.01)
 ;;66267007315
 ;;9002226.02101,"1033,66267007315 ",.02)
 ;;66267007315
 ;;9002226.02101,"1033,66267007320 ",.01)
 ;;66267007320
 ;;9002226.02101,"1033,66267007320 ",.02)
 ;;66267007320
 ;;9002226.02101,"1033,66267007328 ",.01)
 ;;66267007328
 ;;9002226.02101,"1033,66267007328 ",.02)
 ;;66267007328
 ;;9002226.02101,"1033,66267007330 ",.01)
 ;;66267007330
 ;;9002226.02101,"1033,66267007330 ",.02)
 ;;66267007330
 ;;9002226.02101,"1033,66267007340 ",.01)
 ;;66267007340
 ;;9002226.02101,"1033,66267007340 ",.02)
 ;;66267007340
 ;;9002226.02101,"1033,66267008506 ",.01)
 ;;66267008506
 ;;9002226.02101,"1033,66267008506 ",.02)
 ;;66267008506
 ;;9002226.02101,"1033,66267008510 ",.01)
 ;;66267008510
 ;;9002226.02101,"1033,66267008510 ",.02)
 ;;66267008510
 ;;9002226.02101,"1033,66267008514 ",.01)
 ;;66267008514
 ;;9002226.02101,"1033,66267008514 ",.02)
 ;;66267008514
 ;;9002226.02101,"1033,66267008520 ",.01)
 ;;66267008520
 ;;9002226.02101,"1033,66267008520 ",.02)
 ;;66267008520
 ;;9002226.02101,"1033,66267008530 ",.01)
 ;;66267008530
 ;;9002226.02101,"1033,66267008530 ",.02)
 ;;66267008530
 ;;9002226.02101,"1033,66267008606 ",.01)
 ;;66267008606
 ;;9002226.02101,"1033,66267008606 ",.02)
 ;;66267008606
 ;;9002226.02101,"1033,66267008630 ",.01)
 ;;66267008630
 ;;9002226.02101,"1033,66267008630 ",.02)
 ;;66267008630
 ;;9002226.02101,"1033,66267008656 ",.01)
 ;;66267008656
 ;;9002226.02101,"1033,66267008656 ",.02)
 ;;66267008656
 ;;9002226.02101,"1033,66267008930 ",.01)
 ;;66267008930
 ;;9002226.02101,"1033,66267008930 ",.02)
 ;;66267008930
 ;;9002226.02101,"1033,66267009120 ",.01)
 ;;66267009120
 ;;9002226.02101,"1033,66267009120 ",.02)
 ;;66267009120
 ;;9002226.02101,"1033,66267009128 ",.01)
 ;;66267009128