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

BGPM5AGR.m

Go to the documentation of this file.
  1. BGPM5AGR ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"882,49999046910 ",.02)
  1. ;;49999046910
  1. ;;9002226.02101,"882,49999046930 ",.01)
  1. ;;49999046930
  1. ;;9002226.02101,"882,49999046930 ",.02)
  1. ;;49999046930
  1. ;;9002226.02101,"882,49999046960 ",.01)
  1. ;;49999046960
  1. ;;9002226.02101,"882,49999046960 ",.02)
  1. ;;49999046960
  1. ;;9002226.02101,"882,49999046990 ",.01)
  1. ;;49999046990
  1. ;;9002226.02101,"882,49999046990 ",.02)
  1. ;;49999046990
  1. ;;9002226.02101,"882,49999051130 ",.01)
  1. ;;49999051130
  1. ;;9002226.02101,"882,49999051130 ",.02)
  1. ;;49999051130
  1. ;;9002226.02101,"882,49999051160 ",.01)
  1. ;;49999051160
  1. ;;9002226.02101,"882,49999051160 ",.02)
  1. ;;49999051160
  1. ;;9002226.02101,"882,49999076100 ",.01)
  1. ;;49999076100
  1. ;;9002226.02101,"882,49999076100 ",.02)
  1. ;;49999076100
  1. ;;9002226.02101,"882,49999076130 ",.01)
  1. ;;49999076130
  1. ;;9002226.02101,"882,49999076130 ",.02)
  1. ;;49999076130
  1. ;;9002226.02101,"882,49999082300 ",.01)
  1. ;;49999082300
  1. ;;9002226.02101,"882,49999082300 ",.02)
  1. ;;49999082300
  1. ;;9002226.02101,"882,49999087000 ",.01)
  1. ;;49999087000
  1. ;;9002226.02101,"882,49999087000 ",.02)
  1. ;;49999087000
  1. ;;9002226.02101,"882,49999092400 ",.01)
  1. ;;49999092400
  1. ;;9002226.02101,"882,49999092400 ",.02)
  1. ;;49999092400
  1. ;;9002226.02101,"882,49999092410 ",.01)
  1. ;;49999092410
  1. ;;9002226.02101,"882,49999092410 ",.02)
  1. ;;49999092410
  1. ;;9002226.02101,"882,49999092430 ",.01)
  1. ;;49999092430
  1. ;;9002226.02101,"882,49999092430 ",.02)
  1. ;;49999092430
  1. ;;9002226.02101,"882,49999092460 ",.01)
  1. ;;49999092460
  1. ;;9002226.02101,"882,49999092460 ",.02)
  1. ;;49999092460
  1. ;;9002226.02101,"882,51079025640 ",.01)
  1. ;;51079025640
  1. ;;9002226.02101,"882,51079025640 ",.02)
  1. ;;51079025640
  1. ;;9002226.02101,"882,51079026140 ",.01)
  1. ;;51079026140
  1. ;;9002226.02101,"882,51079026140 ",.02)
  1. ;;51079026140
  1. ;;9002226.02101,"882,51079069740 ",.01)
  1. ;;51079069740
  1. ;;9002226.02101,"882,51079069740 ",.02)
  1. ;;51079069740
  1. ;;9002226.02101,"882,51079069840 ",.01)
  1. ;;51079069840
  1. ;;9002226.02101,"882,51079069840 ",.02)
  1. ;;51079069840
  1. ;;9002226.02101,"882,51079069940 ",.01)
  1. ;;51079069940
  1. ;;9002226.02101,"882,51079069940 ",.02)
  1. ;;51079069940
  1. ;;9002226.02101,"882,51079086301 ",.01)
  1. ;;51079086301
  1. ;;9002226.02101,"882,51079086301 ",.02)
  1. ;;51079086301
  1. ;;9002226.02101,"882,51079086320 ",.01)
  1. ;;51079086320
  1. ;;9002226.02101,"882,51079086320 ",.02)
  1. ;;51079086320
  1. ;;9002226.02101,"882,51079086401 ",.01)
  1. ;;51079086401
  1. ;;9002226.02101,"882,51079086401 ",.02)
  1. ;;51079086401
  1. ;;9002226.02101,"882,51079086420 ",.01)
  1. ;;51079086420
  1. ;;9002226.02101,"882,51079086420 ",.02)
  1. ;;51079086420
  1. ;;9002226.02101,"882,51079095001 ",.01)
  1. ;;51079095001
  1. ;;9002226.02101,"882,51079095001 ",.02)
  1. ;;51079095001
  1. ;;9002226.02101,"882,51079095020 ",.01)
  1. ;;51079095020
  1. ;;9002226.02101,"882,51079095020 ",.02)
  1. ;;51079095020
  1. ;;9002226.02101,"882,51079095101 ",.01)
  1. ;;51079095101
  1. ;;9002226.02101,"882,51079095101 ",.02)
  1. ;;51079095101
  1. ;;9002226.02101,"882,51079095120 ",.01)
  1. ;;51079095120
  1. ;;9002226.02101,"882,51079095120 ",.02)
  1. ;;51079095120
  1. ;;9002226.02101,"882,51079095201 ",.01)
  1. ;;51079095201
  1. ;;9002226.02101,"882,51079095201 ",.02)
  1. ;;51079095201
  1. ;;9002226.02101,"882,51079095220 ",.01)
  1. ;;51079095220
  1. ;;9002226.02101,"882,51079095220 ",.02)
  1. ;;51079095220
  1. ;;9002226.02101,"882,51079095301 ",.01)
  1. ;;51079095301
  1. ;;9002226.02101,"882,51079095301 ",.02)
  1. ;;51079095301
  1. ;;9002226.02101,"882,51079095320 ",.01)
  1. ;;51079095320
  1. ;;9002226.02101,"882,51079095320 ",.02)
  1. ;;51079095320
  1. ;;9002226.02101,"882,51079098101 ",.01)
  1. ;;51079098101
  1. ;;9002226.02101,"882,51079098101 ",.02)
  1. ;;51079098101
  1. ;;9002226.02101,"882,51079098120 ",.01)
  1. ;;51079098120
  1. ;;9002226.02101,"882,51079098120 ",.02)
  1. ;;51079098120
  1. ;;9002226.02101,"882,51079098130 ",.01)
  1. ;;51079098130
  1. ;;9002226.02101,"882,51079098130 ",.02)
  1. ;;51079098130
  1. ;;9002226.02101,"882,51079098140 ",.01)
  1. ;;51079098140
  1. ;;9002226.02101,"882,51079098140 ",.02)
  1. ;;51079098140
  1. ;;9002226.02101,"882,51079098156 ",.01)
  1. ;;51079098156
  1. ;;9002226.02101,"882,51079098156 ",.02)
  1. ;;51079098156
  1. ;;9002226.02101,"882,51079098157 ",.01)
  1. ;;51079098157
  1. ;;9002226.02101,"882,51079098157 ",.02)
  1. ;;51079098157
  1. ;;9002226.02101,"882,51079098160 ",.01)
  1. ;;51079098160
  1. ;;9002226.02101,"882,51079098160 ",.02)
  1. ;;51079098160
  1. ;;9002226.02101,"882,51079098201 ",.01)
  1. ;;51079098201
  1. ;;9002226.02101,"882,51079098201 ",.02)
  1. ;;51079098201
  1. ;;9002226.02101,"882,51079098217 ",.01)
  1. ;;51079098217
  1. ;;9002226.02101,"882,51079098217 ",.02)
  1. ;;51079098217
  1. ;;9002226.02101,"882,51079098219 ",.01)
  1. ;;51079098219
  1. ;;9002226.02101,"882,51079098219 ",.02)
  1. ;;51079098219
  1. ;;9002226.02101,"882,51079098220 ",.01)
  1. ;;51079098220
  1. ;;9002226.02101,"882,51079098220 ",.02)
  1. ;;51079098220
  1. ;;9002226.02101,"882,51079098230 ",.01)
  1. ;;51079098230
  1. ;;9002226.02101,"882,51079098230 ",.02)
  1. ;;51079098230
  1. ;;9002226.02101,"882,51079098240 ",.01)
  1. ;;51079098240
  1. ;;9002226.02101,"882,51079098240 ",.02)
  1. ;;51079098240
  1. ;;9002226.02101,"882,51079098256 ",.01)
  1. ;;51079098256
  1. ;;9002226.02101,"882,51079098256 ",.02)
  1. ;;51079098256
  1. ;;9002226.02101,"882,51079098257 ",.01)
  1. ;;51079098257
  1. ;;9002226.02101,"882,51079098257 ",.02)
  1. ;;51079098257
  1. ;;9002226.02101,"882,51079098260 ",.01)
  1. ;;51079098260
  1. ;;9002226.02101,"882,51079098260 ",.02)
  1. ;;51079098260
  1. ;;9002226.02101,"882,51079098301 ",.01)
  1. ;;51079098301
  1. ;;9002226.02101,"882,51079098301 ",.02)
  1. ;;51079098301
  1. ;;9002226.02101,"882,51079098317 ",.01)
  1. ;;51079098317
  1. ;;9002226.02101,"882,51079098317 ",.02)
  1. ;;51079098317
  1. ;;9002226.02101,"882,51079098319 ",.01)
  1. ;;51079098319
  1. ;;9002226.02101,"882,51079098319 ",.02)
  1. ;;51079098319
  1. ;;9002226.02101,"882,51079098320 ",.01)
  1. ;;51079098320
  1. ;;9002226.02101,"882,51079098320 ",.02)
  1. ;;51079098320
  1. ;;9002226.02101,"882,51079098330 ",.01)
  1. ;;51079098330
  1. ;;9002226.02101,"882,51079098330 ",.02)
  1. ;;51079098330
  1. ;;9002226.02101,"882,51079098340 ",.01)
  1. ;;51079098340
  1. ;;9002226.02101,"882,51079098340 ",.02)
  1. ;;51079098340
  1. ;;9002226.02101,"882,51079098356 ",.01)
  1. ;;51079098356
  1. ;;9002226.02101,"882,51079098356 ",.02)
  1. ;;51079098356
  1. ;;9002226.02101,"882,51079098357 ",.01)
  1. ;;51079098357
  1. ;;9002226.02101,"882,51079098357 ",.02)
  1. ;;51079098357
  1. ;;9002226.02101,"882,51079098360 ",.01)
  1. ;;51079098360
  1. ;;9002226.02101,"882,51079098360 ",.02)
  1. ;;51079098360
  1. ;;9002226.02101,"882,51079098401 ",.01)
  1. ;;51079098401
  1. ;;9002226.02101,"882,51079098401 ",.02)
  1. ;;51079098401
  1. ;;9002226.02101,"882,51079098420 ",.01)
  1. ;;51079098420
  1. ;;9002226.02101,"882,51079098420 ",.02)
  1. ;;51079098420
  1. ;;9002226.02101,"882,51079098440 ",.01)
  1. ;;51079098440
  1. ;;9002226.02101,"882,51079098440 ",.02)
  1. ;;51079098440
  1. ;;9002226.02101,"882,51079098450 ",.01)
  1. ;;51079098450
  1. ;;9002226.02101,"882,51079098450 ",.02)
  1. ;;51079098450
  1. ;;9002226.02101,"882,51129130901 ",.01)
  1. ;;51129130901
  1. ;;9002226.02101,"882,51129130901 ",.02)
  1. ;;51129130901
  1. ;;9002226.02101,"882,51129171101 ",.01)
  1. ;;51129171101
  1. ;;9002226.02101,"882,51129171101 ",.02)
  1. ;;51129171101
  1. ;;9002226.02101,"882,51129171201 ",.01)
  1. ;;51129171201
  1. ;;9002226.02101,"882,51129171201 ",.02)
  1. ;;51129171201
  1. ;;9002226.02101,"882,51129175001 ",.01)
  1. ;;51129175001
  1. ;;9002226.02101,"882,51129175001 ",.02)
  1. ;;51129175001
  1. ;;9002226.02101,"882,51129178301 ",.01)
  1. ;;51129178301
  1. ;;9002226.02101,"882,51129178301 ",.02)
  1. ;;51129178301
  1. ;;9002226.02101,"882,51129178601 ",.01)
  1. ;;51129178601
  1. ;;9002226.02101,"882,51129178601 ",.02)
  1. ;;51129178601
  1. ;;9002226.02101,"882,51129181601 ",.01)
  1. ;;51129181601
  1. ;;9002226.02101,"882,51129181601 ",.02)
  1. ;;51129181601
  1. ;;9002226.02101,"882,51129188801 ",.01)
  1. ;;51129188801
  1. ;;9002226.02101,"882,51129188801 ",.02)
  1. ;;51129188801
  1. ;;9002226.02101,"882,51129188901 ",.01)
  1. ;;51129188901
  1. ;;9002226.02101,"882,51129188901 ",.02)
  1. ;;51129188901
  1. ;;9002226.02101,"882,51129191501 ",.01)
  1. ;;51129191501
  1. ;;9002226.02101,"882,51129191501 ",.02)
  1. ;;51129191501
  1. ;;9002226.02101,"882,51129191601 ",.01)
  1. ;;51129191601
  1. ;;9002226.02101,"882,51129191601 ",.02)
  1. ;;51129191601
  1. ;;9002226.02101,"882,51129194701 ",.01)
  1. ;;51129194701
  1. ;;9002226.02101,"882,51129194701 ",.02)
  1. ;;51129194701
  1. ;;9002226.02101,"882,51129213001 ",.01)
  1. ;;51129213001
  1. ;;9002226.02101,"882,51129213001 ",.02)
  1. ;;51129213001
  1. ;;9002226.02101,"882,51129224201 ",.01)
  1. ;;51129224201
  1. ;;9002226.02101,"882,51129224201 ",.02)
  1. ;;51129224201
  1. ;;9002226.02101,"882,51129227401 ",.01)
  1. ;;51129227401
  1. ;;9002226.02101,"882,51129227401 ",.02)
  1. ;;51129227401
  1. ;;9002226.02101,"882,51129239101 ",.01)
  1. ;;51129239101
  1. ;;9002226.02101,"882,51129239101 ",.02)
  1. ;;51129239101
  1. ;;9002226.02101,"882,51129239201 ",.01)
  1. ;;51129239201
  1. ;;9002226.02101,"882,51129239201 ",.02)
  1. ;;51129239201
  1. ;;9002226.02101,"882,51129254001 ",.01)
  1. ;;51129254001
  1. ;;9002226.02101,"882,51129254001 ",.02)
  1. ;;51129254001
  1. ;;9002226.02101,"882,51129255501 ",.01)
  1. ;;51129255501
  1. ;;9002226.02101,"882,51129255501 ",.02)
  1. ;;51129255501
  1. ;;9002226.02101,"882,51129267901 ",.01)
  1. ;;51129267901
  1. ;;9002226.02101,"882,51129267901 ",.02)
  1. ;;51129267901
  1. ;;9002226.02101,"882,51129268001 ",.01)
  1. ;;51129268001
  1. ;;9002226.02101,"882,51129268001 ",.02)
  1. ;;51129268001
  1. ;;9002226.02101,"882,51129273901 ",.01)
  1. ;;51129273901
  1. ;;9002226.02101,"882,51129273901 ",.02)
  1. ;;51129273901
  1. ;;9002226.02101,"882,51129276001 ",.01)
  1. ;;51129276001
  1. ;;9002226.02101,"882,51129276001 ",.02)
  1. ;;51129276001
  1. ;;9002226.02101,"882,51129277001 ",.01)
  1. ;;51129277001
  1. ;;9002226.02101,"882,51129277001 ",.02)
  1. ;;51129277001
  1. ;;9002226.02101,"882,51129277601 ",.01)
  1. ;;51129277601
  1. ;;9002226.02101,"882,51129277601 ",.02)
  1. ;;51129277601
  1. ;;9002226.02101,"882,51129280701 ",.01)
  1. ;;51129280701
  1. ;;9002226.02101,"882,51129280701 ",.02)
  1. ;;51129280701
  1. ;;9002226.02101,"882,51129286501 ",.01)
  1. ;;51129286501
  1. ;;9002226.02101,"882,51129286501 ",.02)
  1. ;;51129286501
  1. ;;9002226.02101,"882,51129286502 ",.01)
  1. ;;51129286502
  1. ;;9002226.02101,"882,51129286502 ",.02)
  1. ;;51129286502
  1. ;;9002226.02101,"882,51129287001 ",.01)
  1. ;;51129287001
  1. ;;9002226.02101,"882,51129287001 ",.02)
  1. ;;51129287001
  1. ;;9002226.02101,"882,51129287002 ",.01)
  1. ;;51129287002
  1. ;;9002226.02101,"882,51129287002 ",.02)
  1. ;;51129287002
  1. ;;9002226.02101,"882,51129291301 ",.01)
  1. ;;51129291301
  1. ;;9002226.02101,"882,51129291301 ",.02)
  1. ;;51129291301
  1. ;;9002226.02101,"882,51129291302 ",.01)
  1. ;;51129291302
  1. ;;9002226.02101,"882,51129291302 ",.02)
  1. ;;51129291302
  1. ;;9002226.02101,"882,51129295601 ",.01)
  1. ;;51129295601
  1. ;;9002226.02101,"882,51129295601 ",.02)
  1. ;;51129295601
  1. ;;9002226.02101,"882,51129300001 ",.01)
  1. ;;51129300001
  1. ;;9002226.02101,"882,51129300001 ",.02)
  1. ;;51129300001
  1. ;;9002226.02101,"882,51129300002 ",.01)
  1. ;;51129300002
  1. ;;9002226.02101,"882,51129300002 ",.02)
  1. ;;51129300002
  1. ;;9002226.02101,"882,51129304301 ",.01)
  1. ;;51129304301
  1. ;;9002226.02101,"882,51129304301 ",.02)
  1. ;;51129304301
  1. ;;9002226.02101,"882,51129304302 ",.01)
  1. ;;51129304302
  1. ;;9002226.02101,"882,51129304302 ",.02)
  1. ;;51129304302
  1. ;;9002226.02101,"882,51129309701 ",.01)
  1. ;;51129309701
  1. ;;9002226.02101,"882,51129309701 ",.02)
  1. ;;51129309701
  1. ;;9002226.02101,"882,51129310801 ",.01)
  1. ;;51129310801
  1. ;;9002226.02101,"882,51129310801 ",.02)
  1. ;;51129310801
  1. ;;9002226.02101,"882,51129310802 ",.01)
  1. ;;51129310802
  1. ;;9002226.02101,"882,51129310802 ",.02)
  1. ;;51129310802
  1. ;;9002226.02101,"882,51129316101 ",.01)
  1. ;;51129316101
  1. ;;9002226.02101,"882,51129316101 ",.02)
  1. ;;51129316101
  1. ;;9002226.02101,"882,51129316102 ",.01)
  1. ;;51129316102
  1. ;;9002226.02101,"882,51129316102 ",.02)
  1. ;;51129316102
  1. ;;9002226.02101,"882,51129329801 ",.01)
  1. ;;51129329801