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.
  1. BGPM3ABK ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"775,25021040010 ",.01)
  1. ;;25021040010
  1. ;;9002226.02101,"775,25021040010 ",.02)
  1. ;;25021040010
  1. ;;9002226.02101,"775,25021040030 ",.01)
  1. ;;25021040030
  1. ;;9002226.02101,"775,25021040030 ",.02)
  1. ;;25021040030
  1. ;;9002226.02101,"775,25021040102 ",.01)
  1. ;;25021040102
  1. ;;9002226.02101,"775,25021040102 ",.02)
  1. ;;25021040102
  1. ;;9002226.02101,"775,25021040201 ",.01)
  1. ;;25021040201
  1. ;;9002226.02101,"775,25021040201 ",.02)
  1. ;;25021040201
  1. ;;9002226.02101,"775,25021040210 ",.01)
  1. ;;25021040210
  1. ;;9002226.02101,"775,25021040210 ",.02)
  1. ;;25021040210
  1. ;;9002226.02101,"775,25021040301 ",.01)
  1. ;;25021040301
  1. ;;9002226.02101,"775,25021040301 ",.02)
  1. ;;25021040301
  1. ;;9002226.02101,"775,25021040304 ",.01)
  1. ;;25021040304
  1. ;;9002226.02101,"775,25021040304 ",.02)
  1. ;;25021040304
  1. ;;9002226.02101,"775,25021040401 ",.01)
  1. ;;25021040401
  1. ;;9002226.02101,"775,25021040401 ",.02)
  1. ;;25021040401
  1. ;;9002226.02101,"775,26053000701 ",.01)
  1. ;;26053000701
  1. ;;9002226.02101,"775,26053000701 ",.02)
  1. ;;26053000701
  1. ;;9002226.02101,"775,26053032301 ",.01)
  1. ;;26053032301
  1. ;;9002226.02101,"775,26053032301 ",.02)
  1. ;;26053032301
  1. ;;9002226.02101,"775,33261001501 ",.01)
  1. ;;33261001501
  1. ;;9002226.02101,"775,33261001501 ",.02)
  1. ;;33261001501
  1. ;;9002226.02101,"775,33261001505 ",.01)
  1. ;;33261001505
  1. ;;9002226.02101,"775,33261001505 ",.02)
  1. ;;33261001505
  1. ;;9002226.02101,"775,33261001525 ",.01)
  1. ;;33261001525
  1. ;;9002226.02101,"775,33261001525 ",.02)
  1. ;;33261001525
  1. ;;9002226.02101,"775,33261002401 ",.01)
  1. ;;33261002401
  1. ;;9002226.02101,"775,33261002401 ",.02)
  1. ;;33261002401
  1. ;;9002226.02101,"775,33261004063 ",.01)
  1. ;;33261004063
  1. ;;9002226.02101,"775,33261004063 ",.02)
  1. ;;33261004063
  1. ;;9002226.02101,"775,33261029601 ",.01)
  1. ;;33261029601
  1. ;;9002226.02101,"775,33261029601 ",.02)
  1. ;;33261029601
  1. ;;9002226.02101,"775,35470053501 ",.01)
  1. ;;35470053501
  1. ;;9002226.02101,"775,35470053501 ",.02)
  1. ;;35470053501
  1. ;;9002226.02101,"775,37205010378 ",.01)
  1. ;;37205010378
  1. ;;9002226.02101,"775,37205010378 ",.02)
  1. ;;37205010378
  1. ;;9002226.02101,"775,37205014519 ",.01)
  1. ;;37205014519
  1. ;;9002226.02101,"775,37205014519 ",.02)
  1. ;;37205014519
  1. ;;9002226.02101,"775,37205014578 ",.01)
  1. ;;37205014578
  1. ;;9002226.02101,"775,37205014578 ",.02)
  1. ;;37205014578
  1. ;;9002226.02101,"775,37205014587 ",.01)
  1. ;;37205014587
  1. ;;9002226.02101,"775,37205014587 ",.02)
  1. ;;37205014587
  1. ;;9002226.02101,"775,37205014590 ",.01)
  1. ;;37205014590
  1. ;;9002226.02101,"775,37205014590 ",.02)
  1. ;;37205014590
  1. ;;9002226.02101,"775,37205015078 ",.01)
  1. ;;37205015078
  1. ;;9002226.02101,"775,37205015078 ",.02)
  1. ;;37205015078
  1. ;;9002226.02101,"775,37205041187 ",.01)
  1. ;;37205041187
  1. ;;9002226.02101,"775,37205041187 ",.02)
  1. ;;37205041187
  1. ;;9002226.02101,"775,37205041190 ",.01)
  1. ;;37205041190
  1. ;;9002226.02101,"775,37205041190 ",.02)
  1. ;;37205041190
  1. ;;9002226.02101,"775,37205041678 ",.01)
  1. ;;37205041678
  1. ;;9002226.02101,"775,37205041678 ",.02)
  1. ;;37205041678
  1. ;;9002226.02101,"775,37205042978 ",.01)
  1. ;;37205042978
  1. ;;9002226.02101,"775,37205042978 ",.02)
  1. ;;37205042978
  1. ;;9002226.02101,"775,37205042990 ",.01)
  1. ;;37205042990
  1. ;;9002226.02101,"775,37205042990 ",.02)
  1. ;;37205042990
  1. ;;9002226.02101,"775,37205042999 ",.01)
  1. ;;37205042999
  1. ;;9002226.02101,"775,37205042999 ",.02)
  1. ;;37205042999
  1. ;;9002226.02101,"775,37205046768 ",.01)
  1. ;;37205046768
  1. ;;9002226.02101,"775,37205046768 ",.02)
  1. ;;37205046768
  1. ;;9002226.02101,"775,37205051076 ",.01)
  1. ;;37205051076
  1. ;;9002226.02101,"775,37205051076 ",.02)
  1. ;;37205051076
  1. ;;9002226.02101,"775,37205051087 ",.01)
  1. ;;37205051087
  1. ;;9002226.02101,"775,37205051087 ",.02)
  1. ;;37205051087
  1. ;;9002226.02101,"775,37205051090 ",.01)
  1. ;;37205051090
  1. ;;9002226.02101,"775,37205051090 ",.02)
  1. ;;37205051090
  1. ;;9002226.02101,"775,37205058278 ",.01)
  1. ;;37205058278
  1. ;;9002226.02101,"775,37205058278 ",.02)
  1. ;;37205058278
  1. ;;9002226.02101,"775,37205058287 ",.01)
  1. ;;37205058287
  1. ;;9002226.02101,"775,37205058287 ",.02)
  1. ;;37205058287
  1. ;;9002226.02101,"775,37205064278 ",.01)
  1. ;;37205064278
  1. ;;9002226.02101,"775,37205064278 ",.02)
  1. ;;37205064278
  1. ;;9002226.02101,"775,37205070868 ",.01)
  1. ;;37205070868
  1. ;;9002226.02101,"775,37205070868 ",.02)
  1. ;;37205070868
  1. ;;9002226.02101,"775,37937004110 ",.01)
  1. ;;37937004110
  1. ;;9002226.02101,"775,37937004110 ",.02)
  1. ;;37937004110
  1. ;;9002226.02101,"775,37937004119 ",.01)
  1. ;;37937004119
  1. ;;9002226.02101,"775,37937004119 ",.02)
  1. ;;37937004119
  1. ;;9002226.02101,"775,37937004123 ",.01)
  1. ;;37937004123
  1. ;;9002226.02101,"775,37937004123 ",.02)
  1. ;;37937004123
  1. ;;9002226.02101,"775,37937004310 ",.01)
  1. ;;37937004310
  1. ;;9002226.02101,"775,37937004310 ",.02)
  1. ;;37937004310
  1. ;;9002226.02101,"775,37937004510 ",.01)
  1. ;;37937004510
  1. ;;9002226.02101,"775,37937004510 ",.02)
  1. ;;37937004510
  1. ;;9002226.02101,"775,37937004553 ",.01)
  1. ;;37937004553
  1. ;;9002226.02101,"775,37937004553 ",.02)
  1. ;;37937004553
  1. ;;9002226.02101,"775,37937009710 ",.01)
  1. ;;37937009710
  1. ;;9002226.02101,"775,37937009710 ",.02)
  1. ;;37937009710
  1. ;;9002226.02101,"775,37937028910 ",.01)
  1. ;;37937028910
  1. ;;9002226.02101,"775,37937028910 ",.02)
  1. ;;37937028910
  1. ;;9002226.02101,"775,39769001101 ",.01)
  1. ;;39769001101
  1. ;;9002226.02101,"775,39769001101 ",.02)
  1. ;;39769001101
  1. ;;9002226.02101,"775,39769001102 ",.01)
  1. ;;39769001102
  1. ;;9002226.02101,"775,39769001102 ",.02)
  1. ;;39769001102
  1. ;;9002226.02101,"775,39769001105 ",.01)
  1. ;;39769001105
  1. ;;9002226.02101,"775,39769001105 ",.02)
  1. ;;39769001105
  1. ;;9002226.02101,"775,39769001171 ",.01)
  1. ;;39769001171
  1. ;;9002226.02101,"775,39769001171 ",.02)
  1. ;;39769001171
  1. ;;9002226.02101,"775,39769001173 ",.01)
  1. ;;39769001173
  1. ;;9002226.02101,"775,39769001173 ",.02)
  1. ;;39769001173
  1. ;;9002226.02101,"775,39769001175 ",.01)
  1. ;;39769001175
  1. ;;9002226.02101,"775,39769001175 ",.02)
  1. ;;39769001175
  1. ;;9002226.02101,"775,39769001910 ",.01)
  1. ;;39769001910
  1. ;;9002226.02101,"775,39769001910 ",.02)
  1. ;;39769001910
  1. ;;9002226.02101,"775,39769001930 ",.01)
  1. ;;39769001930
  1. ;;9002226.02101,"775,39769001930 ",.02)
  1. ;;39769001930
  1. ;;9002226.02101,"775,39769002601 ",.01)
  1. ;;39769002601
  1. ;;9002226.02101,"775,39769002601 ",.02)
  1. ;;39769002601
  1. ;;9002226.02101,"775,39769002701 ",.01)
  1. ;;39769002701
  1. ;;9002226.02101,"775,39769002701 ",.02)
  1. ;;39769002701
  1. ;;9002226.02101,"775,39769002801 ",.01)
  1. ;;39769002801
  1. ;;9002226.02101,"775,39769002801 ",.02)
  1. ;;39769002801
  1. ;;9002226.02101,"775,39769002905 ",.01)
  1. ;;39769002905
  1. ;;9002226.02101,"775,39769002905 ",.02)
  1. ;;39769002905
  1. ;;9002226.02101,"775,39769003005 ",.01)
  1. ;;39769003005
  1. ;;9002226.02101,"775,39769003005 ",.02)
  1. ;;39769003005
  1. ;;9002226.02101,"775,39769003610 ",.01)
  1. ;;39769003610
  1. ;;9002226.02101,"775,39769003610 ",.02)
  1. ;;39769003610
  1. ;;9002226.02101,"775,39769003630 ",.01)
  1. ;;39769003630
  1. ;;9002226.02101,"775,39769003630 ",.02)
  1. ;;39769003630
  1. ;;9002226.02101,"775,39769003671 ",.01)
  1. ;;39769003671
  1. ;;9002226.02101,"775,39769003671 ",.02)
  1. ;;39769003671
  1. ;;9002226.02101,"775,39769010771 ",.01)
  1. ;;39769010771
  1. ;;9002226.02101,"775,39769010771 ",.02)
  1. ;;39769010771
  1. ;;9002226.02101,"775,39769010773 ",.01)
  1. ;;39769010773
  1. ;;9002226.02101,"775,39769010773 ",.02)
  1. ;;39769010773
  1. ;;9002226.02101,"775,39769010775 ",.01)
  1. ;;39769010775
  1. ;;9002226.02101,"775,39769010775 ",.02)
  1. ;;39769010775
  1. ;;9002226.02101,"775,39769011871 ",.01)
  1. ;;39769011871
  1. ;;9002226.02101,"775,39769011871 ",.02)
  1. ;;39769011871
  1. ;;9002226.02101,"775,39769011873 ",.01)
  1. ;;39769011873
  1. ;;9002226.02101,"775,39769011873 ",.02)
  1. ;;39769011873
  1. ;;9002226.02101,"775,39769011875 ",.01)
  1. ;;39769011875
  1. ;;9002226.02101,"775,39769011875 ",.02)
  1. ;;39769011875
  1. ;;9002226.02101,"775,41100000208 ",.01)
  1. ;;41100000208
  1. ;;9002226.02101,"775,41100000208 ",.02)
  1. ;;41100000208
  1. ;;9002226.02101,"775,41100000232 ",.01)
  1. ;;41100000232
  1. ;;9002226.02101,"775,41100000232 ",.02)
  1. ;;41100000232
  1. ;;9002226.02101,"775,41100602400 ",.01)
  1. ;;41100602400
  1. ;;9002226.02101,"775,41100602400 ",.02)
  1. ;;41100602400
  1. ;;9002226.02101,"775,41163027468 ",.01)
  1. ;;41163027468
  1. ;;9002226.02101,"775,41163027468 ",.02)
  1. ;;41163027468
  1. ;;9002226.02101,"775,41163041678 ",.01)
  1. ;;41163041678
  1. ;;9002226.02101,"775,41163041678 ",.02)
  1. ;;41163041678
  1. ;;9002226.02101,"775,41163041687 ",.01)
  1. ;;41163041687
  1. ;;9002226.02101,"775,41163041687 ",.02)
  1. ;;41163041687
  1. ;;9002226.02101,"775,41163041693 ",.01)
  1. ;;41163041693
  1. ;;9002226.02101,"775,41163041693 ",.02)
  1. ;;41163041693
  1. ;;9002226.02101,"775,41163042978 ",.01)
  1. ;;41163042978
  1. ;;9002226.02101,"775,41163042978 ",.02)
  1. ;;41163042978
  1. ;;9002226.02101,"775,41163042990 ",.01)
  1. ;;41163042990
  1. ;;9002226.02101,"775,41163042990 ",.02)
  1. ;;41163042990
  1. ;;9002226.02101,"775,41163046768 ",.01)
  1. ;;41163046768
  1. ;;9002226.02101,"775,41163046768 ",.02)
  1. ;;41163046768
  1. ;;9002226.02101,"775,41163053576 ",.01)
  1. ;;41163053576
  1. ;;9002226.02101,"775,41163053576 ",.02)
  1. ;;41163053576
  1. ;;9002226.02101,"775,41163053587 ",.01)
  1. ;;41163053587
  1. ;;9002226.02101,"775,41163053587 ",.02)
  1. ;;41163053587
  1. ;;9002226.02101,"775,41163064281 ",.01)
  1. ;;41163064281
  1. ;;9002226.02101,"775,41163064281 ",.02)
  1. ;;41163064281
  1. ;;9002226.02101,"775,41167093001 ",.01)
  1. ;;41167093001
  1. ;;9002226.02101,"775,41167093001 ",.02)
  1. ;;41167093001
  1. ;;9002226.02101,"775,41167108105 ",.01)
  1. ;;41167108105
  1. ;;9002226.02101,"775,41167108105 ",.02)
  1. ;;41167108105
  1. ;;9002226.02101,"775,43683011730 ",.01)
  1. ;;43683011730
  1. ;;9002226.02101,"775,43683011730 ",.02)
  1. ;;43683011730
  1. ;;9002226.02101,"775,43683011830 ",.01)
  1. ;;43683011830
  1. ;;9002226.02101,"775,43683011830 ",.02)
  1. ;;43683011830
  1. ;;9002226.02101,"775,43797015503 ",.01)
  1. ;;43797015503
  1. ;;9002226.02101,"775,43797015503 ",.02)
  1. ;;43797015503
  1. ;;9002226.02101,"775,43797034406 ",.01)
  1. ;;43797034406
  1. ;;9002226.02101,"775,43797034406 ",.02)
  1. ;;43797034406
  1. ;;9002226.02101,"775,45802070114 ",.01)
  1. ;;45802070114
  1. ;;9002226.02101,"775,45802070114 ",.02)
  1. ;;45802070114
  1. ;;9002226.02101,"775,45802070130 ",.01)
  1. ;;45802070130
  1. ;;9002226.02101,"775,45802070130 ",.02)
  1. ;;45802070130
  1. ;;9002226.02101,"775,45802070133 ",.01)
  1. ;;45802070133
  1. ;;9002226.02101,"775,45802070133 ",.02)
  1. ;;45802070133
  1. ;;9002226.02101,"775,45802070230 ",.01)
  1. ;;45802070230
  1. ;;9002226.02101,"775,45802070230 ",.02)
  1. ;;45802070230
  1. ;;9002226.02101,"775,45802070233 ",.01)
  1. ;;45802070233
  1. ;;9002226.02101,"775,45802070233 ",.02)
  1. ;;45802070233
  1. ;;9002226.02101,"775,45802070314 ",.01)
  1. ;;45802070314
  1. ;;9002226.02101,"775,45802070314 ",.02)
  1. ;;45802070314
  1. ;;9002226.02101,"775,45802070330 ",.01)
  1. ;;45802070330
  1. ;;9002226.02101,"775,45802070330 ",.02)
  1. ;;45802070330
  1. ;;9002226.02101,"775,45802070333 ",.01)
  1. ;;45802070333
  1. ;;9002226.02101,"775,45802070333 ",.02)
  1. ;;45802070333
  1. ;;9002226.02101,"775,45802070414 ",.01)
  1. ;;45802070414
  1. ;;9002226.02101,"775,45802070414 ",.02)
  1. ;;45802070414
  1. ;;9002226.02101,"775,45802070430 ",.01)
  1. ;;45802070430
  1. ;;9002226.02101,"775,45802070430 ",.02)
  1. ;;45802070430
  1. ;;9002226.02101,"775,45802070433 ",.01)
  1. ;;45802070433
  1. ;;9002226.02101,"775,45802070433 ",.02)
  1. ;;45802070433
  1. ;;9002226.02101,"775,45802070514 ",.01)
  1. ;;45802070514
  1. ;;9002226.02101,"775,45802070514 ",.02)
  1. ;;45802070514
  1. ;;9002226.02101,"775,45802070530 ",.01)
  1. ;;45802070530
  1. ;;9002226.02101,"775,45802070530 ",.02)
  1. ;;45802070530
  1. ;;9002226.02101,"775,45802070533 ",.01)
  1. ;;45802070533
  1. ;;9002226.02101,"775,45802070533 ",.02)
  1. ;;45802070533
  1. ;;9002226.02101,"775,45802070814 ",.01)
  1. ;;45802070814
  1. ;;9002226.02101,"775,45802070814 ",.02)
  1. ;;45802070814
  1. ;;9002226.02101,"775,47682001133 ",.01)
  1. ;;47682001133
  1. ;;9002226.02101,"775,47682001133 ",.02)
  1. ;;47682001133