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