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

BGPM3ABK.m

Go to the documentation of this file.
BGPM3ABK ;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,"775,25021040010 ",.01)
 ;;25021040010
 ;;9002226.02101,"775,25021040010 ",.02)
 ;;25021040010
 ;;9002226.02101,"775,25021040030 ",.01)
 ;;25021040030
 ;;9002226.02101,"775,25021040030 ",.02)
 ;;25021040030
 ;;9002226.02101,"775,25021040102 ",.01)
 ;;25021040102
 ;;9002226.02101,"775,25021040102 ",.02)
 ;;25021040102
 ;;9002226.02101,"775,25021040201 ",.01)
 ;;25021040201
 ;;9002226.02101,"775,25021040201 ",.02)
 ;;25021040201
 ;;9002226.02101,"775,25021040210 ",.01)
 ;;25021040210
 ;;9002226.02101,"775,25021040210 ",.02)
 ;;25021040210
 ;;9002226.02101,"775,25021040301 ",.01)
 ;;25021040301
 ;;9002226.02101,"775,25021040301 ",.02)
 ;;25021040301
 ;;9002226.02101,"775,25021040304 ",.01)
 ;;25021040304
 ;;9002226.02101,"775,25021040304 ",.02)
 ;;25021040304
 ;;9002226.02101,"775,25021040401 ",.01)
 ;;25021040401
 ;;9002226.02101,"775,25021040401 ",.02)
 ;;25021040401
 ;;9002226.02101,"775,26053000701 ",.01)
 ;;26053000701
 ;;9002226.02101,"775,26053000701 ",.02)
 ;;26053000701
 ;;9002226.02101,"775,26053032301 ",.01)
 ;;26053032301
 ;;9002226.02101,"775,26053032301 ",.02)
 ;;26053032301
 ;;9002226.02101,"775,33261001501 ",.01)
 ;;33261001501
 ;;9002226.02101,"775,33261001501 ",.02)
 ;;33261001501
 ;;9002226.02101,"775,33261001505 ",.01)
 ;;33261001505
 ;;9002226.02101,"775,33261001505 ",.02)
 ;;33261001505
 ;;9002226.02101,"775,33261001525 ",.01)
 ;;33261001525
 ;;9002226.02101,"775,33261001525 ",.02)
 ;;33261001525
 ;;9002226.02101,"775,33261002401 ",.01)
 ;;33261002401
 ;;9002226.02101,"775,33261002401 ",.02)
 ;;33261002401
 ;;9002226.02101,"775,33261004063 ",.01)
 ;;33261004063
 ;;9002226.02101,"775,33261004063 ",.02)
 ;;33261004063
 ;;9002226.02101,"775,33261029601 ",.01)
 ;;33261029601
 ;;9002226.02101,"775,33261029601 ",.02)
 ;;33261029601
 ;;9002226.02101,"775,35470053501 ",.01)
 ;;35470053501
 ;;9002226.02101,"775,35470053501 ",.02)
 ;;35470053501
 ;;9002226.02101,"775,37205010378 ",.01)
 ;;37205010378
 ;;9002226.02101,"775,37205010378 ",.02)
 ;;37205010378
 ;;9002226.02101,"775,37205014519 ",.01)
 ;;37205014519
 ;;9002226.02101,"775,37205014519 ",.02)
 ;;37205014519
 ;;9002226.02101,"775,37205014578 ",.01)
 ;;37205014578
 ;;9002226.02101,"775,37205014578 ",.02)
 ;;37205014578
 ;;9002226.02101,"775,37205014587 ",.01)
 ;;37205014587
 ;;9002226.02101,"775,37205014587 ",.02)
 ;;37205014587
 ;;9002226.02101,"775,37205014590 ",.01)
 ;;37205014590
 ;;9002226.02101,"775,37205014590 ",.02)
 ;;37205014590
 ;;9002226.02101,"775,37205015078 ",.01)
 ;;37205015078
 ;;9002226.02101,"775,37205015078 ",.02)
 ;;37205015078
 ;;9002226.02101,"775,37205041187 ",.01)
 ;;37205041187
 ;;9002226.02101,"775,37205041187 ",.02)
 ;;37205041187
 ;;9002226.02101,"775,37205041190 ",.01)
 ;;37205041190
 ;;9002226.02101,"775,37205041190 ",.02)
 ;;37205041190
 ;;9002226.02101,"775,37205041678 ",.01)
 ;;37205041678
 ;;9002226.02101,"775,37205041678 ",.02)
 ;;37205041678
 ;;9002226.02101,"775,37205042978 ",.01)
 ;;37205042978
 ;;9002226.02101,"775,37205042978 ",.02)
 ;;37205042978
 ;;9002226.02101,"775,37205042990 ",.01)
 ;;37205042990
 ;;9002226.02101,"775,37205042990 ",.02)
 ;;37205042990
 ;;9002226.02101,"775,37205042999 ",.01)
 ;;37205042999
 ;;9002226.02101,"775,37205042999 ",.02)
 ;;37205042999
 ;;9002226.02101,"775,37205046768 ",.01)
 ;;37205046768
 ;;9002226.02101,"775,37205046768 ",.02)
 ;;37205046768
 ;;9002226.02101,"775,37205051076 ",.01)
 ;;37205051076
 ;;9002226.02101,"775,37205051076 ",.02)
 ;;37205051076
 ;;9002226.02101,"775,37205051087 ",.01)
 ;;37205051087
 ;;9002226.02101,"775,37205051087 ",.02)
 ;;37205051087
 ;;9002226.02101,"775,37205051090 ",.01)
 ;;37205051090
 ;;9002226.02101,"775,37205051090 ",.02)
 ;;37205051090
 ;;9002226.02101,"775,37205058278 ",.01)
 ;;37205058278
 ;;9002226.02101,"775,37205058278 ",.02)
 ;;37205058278
 ;;9002226.02101,"775,37205058287 ",.01)
 ;;37205058287
 ;;9002226.02101,"775,37205058287 ",.02)
 ;;37205058287
 ;;9002226.02101,"775,37205064278 ",.01)
 ;;37205064278
 ;;9002226.02101,"775,37205064278 ",.02)
 ;;37205064278
 ;;9002226.02101,"775,37205070868 ",.01)
 ;;37205070868
 ;;9002226.02101,"775,37205070868 ",.02)
 ;;37205070868
 ;;9002226.02101,"775,37937004110 ",.01)
 ;;37937004110
 ;;9002226.02101,"775,37937004110 ",.02)
 ;;37937004110
 ;;9002226.02101,"775,37937004119 ",.01)
 ;;37937004119
 ;;9002226.02101,"775,37937004119 ",.02)
 ;;37937004119
 ;;9002226.02101,"775,37937004123 ",.01)
 ;;37937004123
 ;;9002226.02101,"775,37937004123 ",.02)
 ;;37937004123
 ;;9002226.02101,"775,37937004310 ",.01)
 ;;37937004310
 ;;9002226.02101,"775,37937004310 ",.02)
 ;;37937004310
 ;;9002226.02101,"775,37937004510 ",.01)
 ;;37937004510
 ;;9002226.02101,"775,37937004510 ",.02)
 ;;37937004510
 ;;9002226.02101,"775,37937004553 ",.01)
 ;;37937004553
 ;;9002226.02101,"775,37937004553 ",.02)
 ;;37937004553
 ;;9002226.02101,"775,37937009710 ",.01)
 ;;37937009710
 ;;9002226.02101,"775,37937009710 ",.02)
 ;;37937009710
 ;;9002226.02101,"775,37937028910 ",.01)
 ;;37937028910
 ;;9002226.02101,"775,37937028910 ",.02)
 ;;37937028910
 ;;9002226.02101,"775,39769001101 ",.01)
 ;;39769001101
 ;;9002226.02101,"775,39769001101 ",.02)
 ;;39769001101
 ;;9002226.02101,"775,39769001102 ",.01)
 ;;39769001102
 ;;9002226.02101,"775,39769001102 ",.02)
 ;;39769001102
 ;;9002226.02101,"775,39769001105 ",.01)
 ;;39769001105
 ;;9002226.02101,"775,39769001105 ",.02)
 ;;39769001105
 ;;9002226.02101,"775,39769001171 ",.01)
 ;;39769001171
 ;;9002226.02101,"775,39769001171 ",.02)
 ;;39769001171
 ;;9002226.02101,"775,39769001173 ",.01)
 ;;39769001173
 ;;9002226.02101,"775,39769001173 ",.02)
 ;;39769001173
 ;;9002226.02101,"775,39769001175 ",.01)
 ;;39769001175
 ;;9002226.02101,"775,39769001175 ",.02)
 ;;39769001175
 ;;9002226.02101,"775,39769001910 ",.01)
 ;;39769001910
 ;;9002226.02101,"775,39769001910 ",.02)
 ;;39769001910
 ;;9002226.02101,"775,39769001930 ",.01)
 ;;39769001930
 ;;9002226.02101,"775,39769001930 ",.02)
 ;;39769001930
 ;;9002226.02101,"775,39769002601 ",.01)
 ;;39769002601
 ;;9002226.02101,"775,39769002601 ",.02)
 ;;39769002601
 ;;9002226.02101,"775,39769002701 ",.01)
 ;;39769002701
 ;;9002226.02101,"775,39769002701 ",.02)
 ;;39769002701
 ;;9002226.02101,"775,39769002801 ",.01)
 ;;39769002801
 ;;9002226.02101,"775,39769002801 ",.02)
 ;;39769002801
 ;;9002226.02101,"775,39769002905 ",.01)
 ;;39769002905
 ;;9002226.02101,"775,39769002905 ",.02)
 ;;39769002905
 ;;9002226.02101,"775,39769003005 ",.01)
 ;;39769003005
 ;;9002226.02101,"775,39769003005 ",.02)
 ;;39769003005
 ;;9002226.02101,"775,39769003610 ",.01)
 ;;39769003610
 ;;9002226.02101,"775,39769003610 ",.02)
 ;;39769003610
 ;;9002226.02101,"775,39769003630 ",.01)
 ;;39769003630
 ;;9002226.02101,"775,39769003630 ",.02)
 ;;39769003630
 ;;9002226.02101,"775,39769003671 ",.01)
 ;;39769003671
 ;;9002226.02101,"775,39769003671 ",.02)
 ;;39769003671
 ;;9002226.02101,"775,39769010771 ",.01)
 ;;39769010771
 ;;9002226.02101,"775,39769010771 ",.02)
 ;;39769010771
 ;;9002226.02101,"775,39769010773 ",.01)
 ;;39769010773
 ;;9002226.02101,"775,39769010773 ",.02)
 ;;39769010773
 ;;9002226.02101,"775,39769010775 ",.01)
 ;;39769010775
 ;;9002226.02101,"775,39769010775 ",.02)
 ;;39769010775
 ;;9002226.02101,"775,39769011871 ",.01)
 ;;39769011871
 ;;9002226.02101,"775,39769011871 ",.02)
 ;;39769011871
 ;;9002226.02101,"775,39769011873 ",.01)
 ;;39769011873
 ;;9002226.02101,"775,39769011873 ",.02)
 ;;39769011873
 ;;9002226.02101,"775,39769011875 ",.01)
 ;;39769011875
 ;;9002226.02101,"775,39769011875 ",.02)
 ;;39769011875
 ;;9002226.02101,"775,41100000208 ",.01)
 ;;41100000208
 ;;9002226.02101,"775,41100000208 ",.02)
 ;;41100000208
 ;;9002226.02101,"775,41100000232 ",.01)
 ;;41100000232
 ;;9002226.02101,"775,41100000232 ",.02)
 ;;41100000232
 ;;9002226.02101,"775,41100602400 ",.01)
 ;;41100602400
 ;;9002226.02101,"775,41100602400 ",.02)
 ;;41100602400
 ;;9002226.02101,"775,41163027468 ",.01)
 ;;41163027468
 ;;9002226.02101,"775,41163027468 ",.02)
 ;;41163027468
 ;;9002226.02101,"775,41163041678 ",.01)
 ;;41163041678
 ;;9002226.02101,"775,41163041678 ",.02)
 ;;41163041678
 ;;9002226.02101,"775,41163041687 ",.01)
 ;;41163041687
 ;;9002226.02101,"775,41163041687 ",.02)
 ;;41163041687
 ;;9002226.02101,"775,41163041693 ",.01)
 ;;41163041693
 ;;9002226.02101,"775,41163041693 ",.02)
 ;;41163041693
 ;;9002226.02101,"775,41163042978 ",.01)
 ;;41163042978
 ;;9002226.02101,"775,41163042978 ",.02)
 ;;41163042978
 ;;9002226.02101,"775,41163042990 ",.01)
 ;;41163042990
 ;;9002226.02101,"775,41163042990 ",.02)
 ;;41163042990
 ;;9002226.02101,"775,41163046768 ",.01)
 ;;41163046768
 ;;9002226.02101,"775,41163046768 ",.02)
 ;;41163046768
 ;;9002226.02101,"775,41163053576 ",.01)
 ;;41163053576
 ;;9002226.02101,"775,41163053576 ",.02)
 ;;41163053576
 ;;9002226.02101,"775,41163053587 ",.01)
 ;;41163053587
 ;;9002226.02101,"775,41163053587 ",.02)
 ;;41163053587
 ;;9002226.02101,"775,41163064281 ",.01)
 ;;41163064281
 ;;9002226.02101,"775,41163064281 ",.02)
 ;;41163064281
 ;;9002226.02101,"775,41167093001 ",.01)
 ;;41167093001
 ;;9002226.02101,"775,41167093001 ",.02)
 ;;41167093001
 ;;9002226.02101,"775,41167108105 ",.01)
 ;;41167108105
 ;;9002226.02101,"775,41167108105 ",.02)
 ;;41167108105
 ;;9002226.02101,"775,43683011730 ",.01)
 ;;43683011730
 ;;9002226.02101,"775,43683011730 ",.02)
 ;;43683011730
 ;;9002226.02101,"775,43683011830 ",.01)
 ;;43683011830
 ;;9002226.02101,"775,43683011830 ",.02)
 ;;43683011830
 ;;9002226.02101,"775,43797015503 ",.01)
 ;;43797015503
 ;;9002226.02101,"775,43797015503 ",.02)
 ;;43797015503
 ;;9002226.02101,"775,43797034406 ",.01)
 ;;43797034406
 ;;9002226.02101,"775,43797034406 ",.02)
 ;;43797034406
 ;;9002226.02101,"775,45802070114 ",.01)
 ;;45802070114
 ;;9002226.02101,"775,45802070114 ",.02)
 ;;45802070114
 ;;9002226.02101,"775,45802070130 ",.01)
 ;;45802070130
 ;;9002226.02101,"775,45802070130 ",.02)
 ;;45802070130
 ;;9002226.02101,"775,45802070133 ",.01)
 ;;45802070133
 ;;9002226.02101,"775,45802070133 ",.02)
 ;;45802070133
 ;;9002226.02101,"775,45802070230 ",.01)
 ;;45802070230
 ;;9002226.02101,"775,45802070230 ",.02)
 ;;45802070230
 ;;9002226.02101,"775,45802070233 ",.01)
 ;;45802070233
 ;;9002226.02101,"775,45802070233 ",.02)
 ;;45802070233
 ;;9002226.02101,"775,45802070314 ",.01)
 ;;45802070314
 ;;9002226.02101,"775,45802070314 ",.02)
 ;;45802070314
 ;;9002226.02101,"775,45802070330 ",.01)
 ;;45802070330
 ;;9002226.02101,"775,45802070330 ",.02)
 ;;45802070330
 ;;9002226.02101,"775,45802070333 ",.01)
 ;;45802070333
 ;;9002226.02101,"775,45802070333 ",.02)
 ;;45802070333
 ;;9002226.02101,"775,45802070414 ",.01)
 ;;45802070414
 ;;9002226.02101,"775,45802070414 ",.02)
 ;;45802070414
 ;;9002226.02101,"775,45802070430 ",.01)
 ;;45802070430
 ;;9002226.02101,"775,45802070430 ",.02)
 ;;45802070430
 ;;9002226.02101,"775,45802070433 ",.01)
 ;;45802070433
 ;;9002226.02101,"775,45802070433 ",.02)
 ;;45802070433
 ;;9002226.02101,"775,45802070514 ",.01)
 ;;45802070514
 ;;9002226.02101,"775,45802070514 ",.02)
 ;;45802070514
 ;;9002226.02101,"775,45802070530 ",.01)
 ;;45802070530
 ;;9002226.02101,"775,45802070530 ",.02)
 ;;45802070530
 ;;9002226.02101,"775,45802070533 ",.01)
 ;;45802070533
 ;;9002226.02101,"775,45802070533 ",.02)
 ;;45802070533
 ;;9002226.02101,"775,45802070814 ",.01)
 ;;45802070814
 ;;9002226.02101,"775,45802070814 ",.02)
 ;;45802070814
 ;;9002226.02101,"775,47682001133 ",.01)
 ;;47682001133
 ;;9002226.02101,"775,47682001133 ",.02)
 ;;47682001133