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

BGPM5ASI.m

Go to the documentation of this file.
BGPM5ASI ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,66267100900 ",.01)
 ;;66267100900
 ;;9002226.02101,"1005,66267100900 ",.02)
 ;;66267100900
 ;;9002226.02101,"1005,66336016930 ",.01)
 ;;66336016930
 ;;9002226.02101,"1005,66336016930 ",.02)
 ;;66336016930
 ;;9002226.02101,"1005,66336038730 ",.01)
 ;;66336038730
 ;;9002226.02101,"1005,66336038730 ",.02)
 ;;66336038730
 ;;9002226.02101,"1005,66336038930 ",.01)
 ;;66336038930
 ;;9002226.02101,"1005,66336038930 ",.02)
 ;;66336038930
 ;;9002226.02101,"1005,66336038960 ",.01)
 ;;66336038960
 ;;9002226.02101,"1005,66336038960 ",.02)
 ;;66336038960
 ;;9002226.02101,"1005,66336039130 ",.01)
 ;;66336039130
 ;;9002226.02101,"1005,66336039130 ",.02)
 ;;66336039130
 ;;9002226.02101,"1005,66336039160 ",.01)
 ;;66336039160
 ;;9002226.02101,"1005,66336039160 ",.02)
 ;;66336039160
 ;;9002226.02101,"1005,66336039330 ",.01)
 ;;66336039330
 ;;9002226.02101,"1005,66336039330 ",.02)
 ;;66336039330
 ;;9002226.02101,"1005,66336039360 ",.01)
 ;;66336039360
 ;;9002226.02101,"1005,66336039360 ",.02)
 ;;66336039360
 ;;9002226.02101,"1005,66336057230 ",.01)
 ;;66336057230
 ;;9002226.02101,"1005,66336057230 ",.02)
 ;;66336057230
 ;;9002226.02101,"1005,66336061860 ",.01)
 ;;66336061860
 ;;9002226.02101,"1005,66336061860 ",.02)
 ;;66336061860
 ;;9002226.02101,"1005,66336074130 ",.01)
 ;;66336074130
 ;;9002226.02101,"1005,66336074130 ",.02)
 ;;66336074130
 ;;9002226.02101,"1005,66336075060 ",.01)
 ;;66336075060
 ;;9002226.02101,"1005,66336075060 ",.02)
 ;;66336075060
 ;;9002226.02101,"1005,66336075090 ",.01)
 ;;66336075090
 ;;9002226.02101,"1005,66336075090 ",.02)
 ;;66336075090
 ;;9002226.02101,"1005,66336079460 ",.01)
 ;;66336079460
 ;;9002226.02101,"1005,66336079460 ",.02)
 ;;66336079460
 ;;9002226.02101,"1005,66336080530 ",.01)
 ;;66336080530
 ;;9002226.02101,"1005,66336080530 ",.02)
 ;;66336080530
 ;;9002226.02101,"1005,66336080590 ",.01)
 ;;66336080590
 ;;9002226.02101,"1005,66336080590 ",.02)
 ;;66336080590
 ;;9002226.02101,"1005,66336086730 ",.01)
 ;;66336086730
 ;;9002226.02101,"1005,66336086730 ",.02)
 ;;66336086730
 ;;9002226.02101,"1005,66336094630 ",.01)
 ;;66336094630
 ;;9002226.02101,"1005,66336094630 ",.02)
 ;;66336094630
 ;;9002226.02101,"1005,66336094660 ",.01)
 ;;66336094660
 ;;9002226.02101,"1005,66336094660 ",.02)
 ;;66336094660
 ;;9002226.02101,"1005,66336094690 ",.01)
 ;;66336094690
 ;;9002226.02101,"1005,66336094690 ",.02)
 ;;66336094690
 ;;9002226.02101,"1005,66336097207 ",.01)
 ;;66336097207
 ;;9002226.02101,"1005,66336097207 ",.02)
 ;;66336097207
 ;;9002226.02101,"1005,66336097230 ",.01)
 ;;66336097230
 ;;9002226.02101,"1005,66336097230 ",.02)
 ;;66336097230
 ;;9002226.02101,"1005,66685030100 ",.01)
 ;;66685030100
 ;;9002226.02101,"1005,66685030100 ",.02)
 ;;66685030100
 ;;9002226.02101,"1005,66685030102 ",.01)
 ;;66685030102
 ;;9002226.02101,"1005,66685030102 ",.02)
 ;;66685030102
 ;;9002226.02101,"1005,66685030200 ",.01)
 ;;66685030200
 ;;9002226.02101,"1005,66685030200 ",.02)
 ;;66685030200
 ;;9002226.02101,"1005,66685030201 ",.01)
 ;;66685030201
 ;;9002226.02101,"1005,66685030201 ",.02)
 ;;66685030201
 ;;9002226.02101,"1005,66685030202 ",.01)
 ;;66685030202
 ;;9002226.02101,"1005,66685030202 ",.02)
 ;;66685030202
 ;;9002226.02101,"1005,66685030300 ",.01)
 ;;66685030300
 ;;9002226.02101,"1005,66685030300 ",.02)
 ;;66685030300
 ;;9002226.02101,"1005,66685030301 ",.01)
 ;;66685030301
 ;;9002226.02101,"1005,66685030301 ",.02)
 ;;66685030301
 ;;9002226.02101,"1005,66685030302 ",.01)
 ;;66685030302
 ;;9002226.02101,"1005,66685030302 ",.02)
 ;;66685030302
 ;;9002226.02101,"1005,66685030400 ",.01)
 ;;66685030400
 ;;9002226.02101,"1005,66685030400 ",.02)
 ;;66685030400
 ;;9002226.02101,"1005,66685030401 ",.01)
 ;;66685030401
 ;;9002226.02101,"1005,66685030401 ",.02)
 ;;66685030401
 ;;9002226.02101,"1005,66685030402 ",.01)
 ;;66685030402
 ;;9002226.02101,"1005,66685030402 ",.02)
 ;;66685030402
 ;;9002226.02101,"1005,66685070100 ",.01)
 ;;66685070100
 ;;9002226.02101,"1005,66685070100 ",.02)
 ;;66685070100
 ;;9002226.02101,"1005,66685070101 ",.01)
 ;;66685070101
 ;;9002226.02101,"1005,66685070101 ",.02)
 ;;66685070101
 ;;9002226.02101,"1005,66685070102 ",.01)
 ;;66685070102
 ;;9002226.02101,"1005,66685070102 ",.02)
 ;;66685070102
 ;;9002226.02101,"1005,66685070103 ",.01)
 ;;66685070103
 ;;9002226.02101,"1005,66685070103 ",.02)
 ;;66685070103
 ;;9002226.02101,"1005,66685070200 ",.01)
 ;;66685070200
 ;;9002226.02101,"1005,66685070200 ",.02)
 ;;66685070200
 ;;9002226.02101,"1005,66685070201 ",.01)
 ;;66685070201
 ;;9002226.02101,"1005,66685070201 ",.02)
 ;;66685070201
 ;;9002226.02101,"1005,66685070202 ",.01)
 ;;66685070202
 ;;9002226.02101,"1005,66685070202 ",.02)
 ;;66685070202
 ;;9002226.02101,"1005,66685070203 ",.01)
 ;;66685070203
 ;;9002226.02101,"1005,66685070203 ",.02)
 ;;66685070203
 ;;9002226.02101,"1005,66685070204 ",.01)
 ;;66685070204
 ;;9002226.02101,"1005,66685070204 ",.02)
 ;;66685070204
 ;;9002226.02101,"1005,66685070300 ",.01)
 ;;66685070300
 ;;9002226.02101,"1005,66685070300 ",.02)
 ;;66685070300
 ;;9002226.02101,"1005,66685070301 ",.01)
 ;;66685070301
 ;;9002226.02101,"1005,66685070301 ",.02)
 ;;66685070301
 ;;9002226.02101,"1005,66685070302 ",.01)
 ;;66685070302
 ;;9002226.02101,"1005,66685070302 ",.02)
 ;;66685070302
 ;;9002226.02101,"1005,66685070303 ",.01)
 ;;66685070303
 ;;9002226.02101,"1005,66685070303 ",.02)
 ;;66685070303
 ;;9002226.02101,"1005,66685070304 ",.01)
 ;;66685070304
 ;;9002226.02101,"1005,66685070304 ",.02)
 ;;66685070304
 ;;9002226.02101,"1005,66685070400 ",.01)
 ;;66685070400
 ;;9002226.02101,"1005,66685070400 ",.02)
 ;;66685070400
 ;;9002226.02101,"1005,66685070401 ",.01)
 ;;66685070401
 ;;9002226.02101,"1005,66685070401 ",.02)
 ;;66685070401
 ;;9002226.02101,"1005,66685070402 ",.01)
 ;;66685070402
 ;;9002226.02101,"1005,66685070402 ",.02)
 ;;66685070402
 ;;9002226.02101,"1005,66685070403 ",.01)
 ;;66685070403
 ;;9002226.02101,"1005,66685070403 ",.02)
 ;;66685070403
 ;;9002226.02101,"1005,66685070404 ",.01)
 ;;66685070404
 ;;9002226.02101,"1005,66685070404 ",.02)
 ;;66685070404
 ;;9002226.02101,"1005,66685070500 ",.01)
 ;;66685070500
 ;;9002226.02101,"1005,66685070500 ",.02)
 ;;66685070500
 ;;9002226.02101,"1005,66685070501 ",.01)
 ;;66685070501
 ;;9002226.02101,"1005,66685070501 ",.02)
 ;;66685070501
 ;;9002226.02101,"1005,66685070502 ",.01)
 ;;66685070502
 ;;9002226.02101,"1005,66685070502 ",.02)
 ;;66685070502
 ;;9002226.02101,"1005,66685070503 ",.01)
 ;;66685070503
 ;;9002226.02101,"1005,66685070503 ",.02)
 ;;66685070503
 ;;9002226.02101,"1005,66685070600 ",.01)
 ;;66685070600
 ;;9002226.02101,"1005,66685070600 ",.02)
 ;;66685070600
 ;;9002226.02101,"1005,66685070601 ",.01)
 ;;66685070601
 ;;9002226.02101,"1005,66685070601 ",.02)
 ;;66685070601
 ;;9002226.02101,"1005,66685070602 ",.01)
 ;;66685070602
 ;;9002226.02101,"1005,66685070602 ",.02)
 ;;66685070602
 ;;9002226.02101,"1005,66685070603 ",.01)
 ;;66685070603
 ;;9002226.02101,"1005,66685070603 ",.02)
 ;;66685070603
 ;;9002226.02101,"1005,66685070604 ",.01)
 ;;66685070604
 ;;9002226.02101,"1005,66685070604 ",.02)
 ;;66685070604
 ;;9002226.02101,"1005,67046015630 ",.01)
 ;;67046015630
 ;;9002226.02101,"1005,67046015630 ",.02)
 ;;67046015630
 ;;9002226.02101,"1005,67046015730 ",.01)
 ;;67046015730
 ;;9002226.02101,"1005,67046015730 ",.02)
 ;;67046015730
 ;;9002226.02101,"1005,67046015830 ",.01)
 ;;67046015830
 ;;9002226.02101,"1005,67046015830 ",.02)
 ;;67046015830
 ;;9002226.02101,"1005,67046015930 ",.01)
 ;;67046015930
 ;;9002226.02101,"1005,67046015930 ",.02)
 ;;67046015930
 ;;9002226.02101,"1005,67046015960 ",.01)
 ;;67046015960
 ;;9002226.02101,"1005,67046015960 ",.02)
 ;;67046015960
 ;;9002226.02101,"1005,67046016030 ",.01)
 ;;67046016030
 ;;9002226.02101,"1005,67046016030 ",.02)
 ;;67046016030
 ;;9002226.02101,"1005,67046016130 ",.01)
 ;;67046016130
 ;;9002226.02101,"1005,67046016130 ",.02)
 ;;67046016130
 ;;9002226.02101,"1005,67046016160 ",.01)
 ;;67046016160
 ;;9002226.02101,"1005,67046016160 ",.02)
 ;;67046016160
 ;;9002226.02101,"1005,67046042530 ",.01)
 ;;67046042530
 ;;9002226.02101,"1005,67046042530 ",.02)
 ;;67046042530
 ;;9002226.02101,"1005,67046042630 ",.01)
 ;;67046042630
 ;;9002226.02101,"1005,67046042630 ",.02)
 ;;67046042630
 ;;9002226.02101,"1005,67046042730 ",.01)
 ;;67046042730
 ;;9002226.02101,"1005,67046042730 ",.02)
 ;;67046042730
 ;;9002226.02101,"1005,67046042830 ",.01)
 ;;67046042830
 ;;9002226.02101,"1005,67046042830 ",.02)
 ;;67046042830
 ;;9002226.02101,"1005,67228002503 ",.01)
 ;;67228002503
 ;;9002226.02101,"1005,67228002503 ",.02)
 ;;67228002503
 ;;9002226.02101,"1005,67228002506 ",.01)
 ;;67228002506
 ;;9002226.02101,"1005,67228002506 ",.02)
 ;;67228002506
 ;;9002226.02101,"1005,67228002603 ",.01)
 ;;67228002603
 ;;9002226.02101,"1005,67228002603 ",.02)
 ;;67228002603
 ;;9002226.02101,"1005,67228002606 ",.01)
 ;;67228002606
 ;;9002226.02101,"1005,67228002606 ",.02)
 ;;67228002606
 ;;9002226.02101,"1005,67228008503 ",.01)
 ;;67228008503
 ;;9002226.02101,"1005,67228008503 ",.02)
 ;;67228008503
 ;;9002226.02101,"1005,67228008506 ",.01)
 ;;67228008506
 ;;9002226.02101,"1005,67228008506 ",.02)
 ;;67228008506
 ;;9002226.02101,"1005,67228016403 ",.01)
 ;;67228016403
 ;;9002226.02101,"1005,67228016403 ",.02)
 ;;67228016403
 ;;9002226.02101,"1005,67228016406 ",.01)
 ;;67228016406
 ;;9002226.02101,"1005,67228016406 ",.02)
 ;;67228016406
 ;;9002226.02101,"1005,67228016903 ",.01)
 ;;67228016903
 ;;9002226.02101,"1005,67228016903 ",.02)
 ;;67228016903
 ;;9002226.02101,"1005,67228016906 ",.01)
 ;;67228016906
 ;;9002226.02101,"1005,67228016906 ",.02)
 ;;67228016906
 ;;9002226.02101,"1005,67228026403 ",.01)
 ;;67228026403
 ;;9002226.02101,"1005,67228026403 ",.02)
 ;;67228026403
 ;;9002226.02101,"1005,67228026406 ",.01)
 ;;67228026406
 ;;9002226.02101,"1005,67228026406 ",.02)
 ;;67228026406
 ;;9002226.02101,"1005,67228026703 ",.01)
 ;;67228026703
 ;;9002226.02101,"1005,67228026703 ",.02)
 ;;67228026703
 ;;9002226.02101,"1005,67228026706 ",.01)
 ;;67228026706
 ;;9002226.02101,"1005,67228026706 ",.02)
 ;;67228026706
 ;;9002226.02101,"1005,67228029303 ",.01)
 ;;67228029303
 ;;9002226.02101,"1005,67228029303 ",.02)
 ;;67228029303
 ;;9002226.02101,"1005,67228029306 ",.01)
 ;;67228029306
 ;;9002226.02101,"1005,67228029306 ",.02)
 ;;67228029306
 ;;9002226.02101,"1005,67228031703 ",.01)
 ;;67228031703
 ;;9002226.02101,"1005,67228031703 ",.02)
 ;;67228031703
 ;;9002226.02101,"1005,67228031706 ",.01)
 ;;67228031706
 ;;9002226.02101,"1005,67228031706 ",.02)
 ;;67228031706
 ;;9002226.02101,"1005,67228031803 ",.01)
 ;;67228031803
 ;;9002226.02101,"1005,67228031803 ",.02)
 ;;67228031803
 ;;9002226.02101,"1005,67228031806 ",.01)
 ;;67228031806
 ;;9002226.02101,"1005,67228031806 ",.02)
 ;;67228031806
 ;;9002226.02101,"1005,67228034503 ",.01)
 ;;67228034503
 ;;9002226.02101,"1005,67228034503 ",.02)
 ;;67228034503
 ;;9002226.02101,"1005,67228034506 ",.01)
 ;;67228034506
 ;;9002226.02101,"1005,67228034506 ",.02)
 ;;67228034506
 ;;9002226.02101,"1005,67228044103 ",.01)
 ;;67228044103
 ;;9002226.02101,"1005,67228044103 ",.02)
 ;;67228044103
 ;;9002226.02101,"1005,67228044106 ",.01)
 ;;67228044106
 ;;9002226.02101,"1005,67228044106 ",.02)
 ;;67228044106
 ;;9002226.02101,"1005,67228046003 ",.01)
 ;;67228046003
 ;;9002226.02101,"1005,67228046003 ",.02)
 ;;67228046003
 ;;9002226.02101,"1005,67228046006 ",.01)
 ;;67228046006
 ;;9002226.02101,"1005,67228046006 ",.02)
 ;;67228046006
 ;;9002226.02101,"1005,67263040630 ",.01)
 ;;67263040630