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

BGPM3ACQ.m

Go to the documentation of this file.
BGPM3ACQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"786,00228263506 ",.02)
 ;;00228263506
 ;;9002226.02101,"786,00228263550 ",.01)
 ;;00228263550
 ;;9002226.02101,"786,00228263550 ",.02)
 ;;00228263550
 ;;9002226.02101,"786,00228284010 ",.01)
 ;;00228284010
 ;;9002226.02101,"786,00228284010 ",.02)
 ;;00228284010
 ;;9002226.02101,"786,00245067060 ",.01)
 ;;00245067060
 ;;9002226.02101,"786,00245067060 ",.02)
 ;;00245067060
 ;;9002226.02101,"786,00245360023 ",.01)
 ;;00245360023
 ;;9002226.02101,"786,00245360023 ",.02)
 ;;00245360023
 ;;9002226.02101,"786,00245360060 ",.01)
 ;;00245360060
 ;;9002226.02101,"786,00245360060 ",.02)
 ;;00245360060
 ;;9002226.02101,"786,00247122020 ",.01)
 ;;00247122020
 ;;9002226.02101,"786,00247122020 ",.02)
 ;;00247122020
 ;;9002226.02101,"786,00247122030 ",.01)
 ;;00247122030
 ;;9002226.02101,"786,00247122030 ",.02)
 ;;00247122030
 ;;9002226.02101,"786,00247122060 ",.01)
 ;;00247122060
 ;;9002226.02101,"786,00247122060 ",.02)
 ;;00247122060
 ;;9002226.02101,"786,00247169210 ",.01)
 ;;00247169210
 ;;9002226.02101,"786,00247169210 ",.02)
 ;;00247169210
 ;;9002226.02101,"786,00247169230 ",.01)
 ;;00247169230
 ;;9002226.02101,"786,00247169230 ",.02)
 ;;00247169230
 ;;9002226.02101,"786,00247169260 ",.01)
 ;;00247169260
 ;;9002226.02101,"786,00247169260 ",.02)
 ;;00247169260
 ;;9002226.02101,"786,00247169310 ",.01)
 ;;00247169310
 ;;9002226.02101,"786,00247169310 ",.02)
 ;;00247169310
 ;;9002226.02101,"786,00247169330 ",.01)
 ;;00247169330
 ;;9002226.02101,"786,00247169330 ",.02)
 ;;00247169330
 ;;9002226.02101,"786,00247169360 ",.01)
 ;;00247169360
 ;;9002226.02101,"786,00247169360 ",.02)
 ;;00247169360
 ;;9002226.02101,"786,00247205330 ",.01)
 ;;00247205330
 ;;9002226.02101,"786,00247205330 ",.02)
 ;;00247205330
 ;;9002226.02101,"786,00247205360 ",.01)
 ;;00247205360
 ;;9002226.02101,"786,00247205360 ",.02)
 ;;00247205360
 ;;9002226.02101,"786,00247205430 ",.01)
 ;;00247205430
 ;;9002226.02101,"786,00247205430 ",.02)
 ;;00247205430
 ;;9002226.02101,"786,00247205433 ",.01)
 ;;00247205433
 ;;9002226.02101,"786,00247205433 ",.02)
 ;;00247205433
 ;;9002226.02101,"786,00247205459 ",.01)
 ;;00247205459
 ;;9002226.02101,"786,00247205459 ",.02)
 ;;00247205459
 ;;9002226.02101,"786,00247205460 ",.01)
 ;;00247205460
 ;;9002226.02101,"786,00247205460 ",.02)
 ;;00247205460
 ;;9002226.02101,"786,00247205530 ",.01)
 ;;00247205530
 ;;9002226.02101,"786,00247205530 ",.02)
 ;;00247205530
 ;;9002226.02101,"786,00247205560 ",.01)
 ;;00247205560
 ;;9002226.02101,"786,00247205560 ",.02)
 ;;00247205560
 ;;9002226.02101,"786,00249113002 ",.01)
 ;;00249113002
 ;;9002226.02101,"786,00249113002 ",.02)
 ;;00249113002
 ;;9002226.02101,"786,00302435010 ",.01)
 ;;00302435010
 ;;9002226.02101,"786,00302435010 ",.02)
 ;;00302435010
 ;;9002226.02101,"786,00304049401 ",.01)
 ;;00304049401
 ;;9002226.02101,"786,00304049401 ",.02)
 ;;00304049401
 ;;9002226.02101,"786,00304069901 ",.01)
 ;;00304069901
 ;;9002226.02101,"786,00304069901 ",.02)
 ;;00304069901
 ;;9002226.02101,"786,00304207301 ",.01)
 ;;00304207301
 ;;9002226.02101,"786,00304207301 ",.02)
 ;;00304207301
 ;;9002226.02101,"786,00339565112 ",.01)
 ;;00339565112
 ;;9002226.02101,"786,00339565112 ",.02)
 ;;00339565112
 ;;9002226.02101,"786,00349482010 ",.01)
 ;;00349482010
 ;;9002226.02101,"786,00349482010 ",.02)
 ;;00349482010
 ;;9002226.02101,"786,00349847310 ",.01)
 ;;00349847310
 ;;9002226.02101,"786,00349847310 ",.02)
 ;;00349847310
 ;;9002226.02101,"786,00349860401 ",.01)
 ;;00349860401
 ;;9002226.02101,"786,00349860401 ",.02)
 ;;00349860401
 ;;9002226.02101,"786,00349860405 ",.01)
 ;;00349860405
 ;;9002226.02101,"786,00349860405 ",.02)
 ;;00349860405
 ;;9002226.02101,"786,00349860410 ",.01)
 ;;00349860410
 ;;9002226.02101,"786,00349860410 ",.02)
 ;;00349860410
 ;;9002226.02101,"786,00364106501 ",.01)
 ;;00364106501
 ;;9002226.02101,"786,00364106501 ",.02)
 ;;00364106501
 ;;9002226.02101,"786,00364106502 ",.01)
 ;;00364106502
 ;;9002226.02101,"786,00364106502 ",.02)
 ;;00364106502
 ;;9002226.02101,"786,00364106601 ",.01)
 ;;00364106601
 ;;9002226.02101,"786,00364106601 ",.02)
 ;;00364106601
 ;;9002226.02101,"786,00364106602 ",.01)
 ;;00364106602
 ;;9002226.02101,"786,00364106602 ",.02)
 ;;00364106602
 ;;9002226.02101,"786,00364106702 ",.01)
 ;;00364106702
 ;;9002226.02101,"786,00364106702 ",.02)
 ;;00364106702
 ;;9002226.02101,"786,00364111101 ",.01)
 ;;00364111101
 ;;9002226.02101,"786,00364111101 ",.02)
 ;;00364111101
 ;;9002226.02101,"786,00364111102 ",.01)
 ;;00364111102
 ;;9002226.02101,"786,00364111102 ",.02)
 ;;00364111102
 ;;9002226.02101,"786,00364213601 ",.01)
 ;;00364213601
 ;;9002226.02101,"786,00364213601 ",.02)
 ;;00364213601
 ;;9002226.02101,"786,00364238101 ",.01)
 ;;00364238101
 ;;9002226.02101,"786,00364238101 ",.02)
 ;;00364238101
 ;;9002226.02101,"786,00364238201 ",.01)
 ;;00364238201
 ;;9002226.02101,"786,00364238201 ",.02)
 ;;00364238201
 ;;9002226.02101,"786,00364238301 ",.01)
 ;;00364238301
 ;;9002226.02101,"786,00364238301 ",.02)
 ;;00364238301
 ;;9002226.02101,"786,00364240501 ",.01)
 ;;00364240501
 ;;9002226.02101,"786,00364240501 ",.02)
 ;;00364240501
 ;;9002226.02101,"786,00364256605 ",.01)
 ;;00364256605
 ;;9002226.02101,"786,00364256605 ",.02)
 ;;00364256605
 ;;9002226.02101,"786,00364256606 ",.01)
 ;;00364256606
 ;;9002226.02101,"786,00364256606 ",.02)
 ;;00364256606
 ;;9002226.02101,"786,00378051705 ",.01)
 ;;00378051705
 ;;9002226.02101,"786,00378051705 ",.02)
 ;;00378051705
 ;;9002226.02101,"786,00378051791 ",.01)
 ;;00378051791
 ;;9002226.02101,"786,00378051791 ",.02)
 ;;00378051791
 ;;9002226.02101,"786,00378470001 ",.01)
 ;;00378470001
 ;;9002226.02101,"786,00378470001 ",.02)
 ;;00378470001
 ;;9002226.02101,"786,00378470005 ",.01)
 ;;00378470005
 ;;9002226.02101,"786,00378470005 ",.02)
 ;;00378470005
 ;;9002226.02101,"786,00378470010 ",.01)
 ;;00378470010
 ;;9002226.02101,"786,00378470010 ",.02)
 ;;00378470010
 ;;9002226.02101,"786,00378540105 ",.01)
 ;;00378540105
 ;;9002226.02101,"786,00378540105 ",.02)
 ;;00378540105
 ;;9002226.02101,"786,00378540177 ",.01)
 ;;00378540177
 ;;9002226.02101,"786,00378540177 ",.02)
 ;;00378540177
 ;;9002226.02101,"786,00378540193 ",.01)
 ;;00378540193
 ;;9002226.02101,"786,00378540193 ",.02)
 ;;00378540193
 ;;9002226.02101,"786,00378540205 ",.01)
 ;;00378540205
 ;;9002226.02101,"786,00378540205 ",.02)
 ;;00378540205
 ;;9002226.02101,"786,00378540277 ",.01)
 ;;00378540277
 ;;9002226.02101,"786,00378540277 ",.02)
 ;;00378540277
 ;;9002226.02101,"786,00378540293 ",.01)
 ;;00378540293
 ;;9002226.02101,"786,00378540293 ",.02)
 ;;00378540293
 ;;9002226.02101,"786,00378540305 ",.01)
 ;;00378540305
 ;;9002226.02101,"786,00378540305 ",.02)
 ;;00378540305
 ;;9002226.02101,"786,00378540377 ",.01)
 ;;00378540377
 ;;9002226.02101,"786,00378540377 ",.02)
 ;;00378540377
 ;;9002226.02101,"786,00378540393 ",.01)
 ;;00378540393
 ;;9002226.02101,"786,00378540393 ",.02)
 ;;00378540393
 ;;9002226.02101,"786,00378540405 ",.01)
 ;;00378540405
 ;;9002226.02101,"786,00378540405 ",.02)
 ;;00378540405
 ;;9002226.02101,"786,00378540477 ",.01)
 ;;00378540477
 ;;9002226.02101,"786,00378540477 ",.02)
 ;;00378540477
 ;;9002226.02101,"786,00378540493 ",.01)
 ;;00378540493
 ;;9002226.02101,"786,00378540493 ",.02)
 ;;00378540493
 ;;9002226.02101,"786,00378540505 ",.01)
 ;;00378540505
 ;;9002226.02101,"786,00378540505 ",.02)
 ;;00378540505
 ;;9002226.02101,"786,00378540577 ",.01)
 ;;00378540577
 ;;9002226.02101,"786,00378540577 ",.02)
 ;;00378540577
 ;;9002226.02101,"786,00378540593 ",.01)
 ;;00378540593
 ;;9002226.02101,"786,00378540593 ",.02)
 ;;00378540593
 ;;9002226.02101,"786,00378651091 ",.01)
 ;;00378651091
 ;;9002226.02101,"786,00378651091 ",.02)
 ;;00378651091
 ;;9002226.02101,"786,00378652005 ",.01)
 ;;00378652005
 ;;9002226.02101,"786,00378652005 ",.02)
 ;;00378652005
 ;;9002226.02101,"786,00378652091 ",.01)
 ;;00378652091
 ;;9002226.02101,"786,00378652091 ",.02)
 ;;00378652091
 ;;9002226.02101,"786,00378654005 ",.01)
 ;;00378654005
 ;;9002226.02101,"786,00378654005 ",.02)
 ;;00378654005
 ;;9002226.02101,"786,00378654091 ",.01)
 ;;00378654091
 ;;9002226.02101,"786,00378654091 ",.02)
 ;;00378654091
 ;;9002226.02101,"786,00378710077 ",.01)
 ;;00378710077
 ;;9002226.02101,"786,00378710077 ",.02)
 ;;00378710077
 ;;9002226.02101,"786,00378710177 ",.01)
 ;;00378710177
 ;;9002226.02101,"786,00378710177 ",.02)
 ;;00378710177
 ;;9002226.02101,"786,00405423601 ",.01)
 ;;00405423601
 ;;9002226.02101,"786,00405423601 ",.02)
 ;;00405423601
 ;;9002226.02101,"786,00405445631 ",.01)
 ;;00405445631
 ;;9002226.02101,"786,00405445631 ",.02)
 ;;00405445631
 ;;9002226.02101,"786,00406206503 ",.01)
 ;;00406206503
 ;;9002226.02101,"786,00406206503 ",.02)
 ;;00406206503
 ;;9002226.02101,"786,00406206505 ",.01)
 ;;00406206505
 ;;9002226.02101,"786,00406206505 ",.02)
 ;;00406206505
 ;;9002226.02101,"786,00406206510 ",.01)
 ;;00406206510
 ;;9002226.02101,"786,00406206510 ",.02)
 ;;00406206510
 ;;9002226.02101,"786,00406206560 ",.01)
 ;;00406206560
 ;;9002226.02101,"786,00406206560 ",.02)
 ;;00406206560
 ;;9002226.02101,"786,00406206590 ",.01)
 ;;00406206590
 ;;9002226.02101,"786,00406206590 ",.02)
 ;;00406206590
 ;;9002226.02101,"786,00406206603 ",.01)
 ;;00406206603
 ;;9002226.02101,"786,00406206603 ",.02)
 ;;00406206603
 ;;9002226.02101,"786,00406206605 ",.01)
 ;;00406206605
 ;;9002226.02101,"786,00406206605 ",.02)
 ;;00406206605
 ;;9002226.02101,"786,00406206610 ",.01)
 ;;00406206610
 ;;9002226.02101,"786,00406206610 ",.02)
 ;;00406206610
 ;;9002226.02101,"786,00406206660 ",.01)
 ;;00406206660
 ;;9002226.02101,"786,00406206660 ",.02)
 ;;00406206660
 ;;9002226.02101,"786,00406206690 ",.01)
 ;;00406206690
 ;;9002226.02101,"786,00406206690 ",.02)
 ;;00406206690
 ;;9002226.02101,"786,00406206692 ",.01)
 ;;00406206692
 ;;9002226.02101,"786,00406206692 ",.02)
 ;;00406206692
 ;;9002226.02101,"786,00406206703 ",.01)
 ;;00406206703
 ;;9002226.02101,"786,00406206703 ",.02)
 ;;00406206703
 ;;9002226.02101,"786,00406206705 ",.01)
 ;;00406206705
 ;;9002226.02101,"786,00406206705 ",.02)
 ;;00406206705
 ;;9002226.02101,"786,00406206710 ",.01)
 ;;00406206710
 ;;9002226.02101,"786,00406206710 ",.02)
 ;;00406206710
 ;;9002226.02101,"786,00406206760 ",.01)
 ;;00406206760
 ;;9002226.02101,"786,00406206760 ",.02)
 ;;00406206760
 ;;9002226.02101,"786,00406206790 ",.01)
 ;;00406206790
 ;;9002226.02101,"786,00406206790 ",.02)
 ;;00406206790
 ;;9002226.02101,"786,00406206792 ",.01)
 ;;00406206792
 ;;9002226.02101,"786,00406206792 ",.02)
 ;;00406206792
 ;;9002226.02101,"786,00406206803 ",.01)
 ;;00406206803
 ;;9002226.02101,"786,00406206803 ",.02)
 ;;00406206803
 ;;9002226.02101,"786,00406206805 ",.01)
 ;;00406206805
 ;;9002226.02101,"786,00406206805 ",.02)
 ;;00406206805
 ;;9002226.02101,"786,00406206810 ",.01)
 ;;00406206810
 ;;9002226.02101,"786,00406206810 ",.02)
 ;;00406206810
 ;;9002226.02101,"786,00406206860 ",.01)
 ;;00406206860
 ;;9002226.02101,"786,00406206860 ",.02)
 ;;00406206860
 ;;9002226.02101,"786,00406206890 ",.01)
 ;;00406206890
 ;;9002226.02101,"786,00406206890 ",.02)
 ;;00406206890
 ;;9002226.02101,"786,00406206891 ",.01)
 ;;00406206891
 ;;9002226.02101,"786,00406206891 ",.02)
 ;;00406206891
 ;;9002226.02101,"786,00406206903 ",.01)
 ;;00406206903
 ;;9002226.02101,"786,00406206903 ",.02)
 ;;00406206903
 ;;9002226.02101,"786,00406206905 ",.01)
 ;;00406206905
 ;;9002226.02101,"786,00406206905 ",.02)
 ;;00406206905
 ;;9002226.02101,"786,00406206910 ",.01)
 ;;00406206910