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

BGPM5ACA.m

Go to the documentation of this file.
BGPM5ACA ;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,"830,60505019204 ",.02)
 ;;60505019204
 ;;9002226.02101,"830,60505019208 ",.01)
 ;;60505019208
 ;;9002226.02101,"830,60505019208 ",.02)
 ;;60505019208
 ;;9002226.02101,"830,60505026001 ",.01)
 ;;60505026001
 ;;9002226.02101,"830,60505026001 ",.02)
 ;;60505026001
 ;;9002226.02101,"830,60505026002 ",.01)
 ;;60505026002
 ;;9002226.02101,"830,60505026002 ",.02)
 ;;60505026002
 ;;9002226.02101,"830,60505026007 ",.01)
 ;;60505026007
 ;;9002226.02101,"830,60505026007 ",.02)
 ;;60505026007
 ;;9002226.02101,"830,60505132901 ",.01)
 ;;60505132901
 ;;9002226.02101,"830,60505132901 ",.02)
 ;;60505132901
 ;;9002226.02101,"830,60505132903 ",.01)
 ;;60505132903
 ;;9002226.02101,"830,60505132903 ",.02)
 ;;60505132903
 ;;9002226.02101,"830,60505132905 ",.01)
 ;;60505132905
 ;;9002226.02101,"830,60505132905 ",.02)
 ;;60505132905
 ;;9002226.02101,"830,61073003001 ",.01)
 ;;61073003001
 ;;9002226.02101,"830,61073003001 ",.02)
 ;;61073003001
 ;;9002226.02101,"830,61073003005 ",.01)
 ;;61073003005
 ;;9002226.02101,"830,61073003005 ",.02)
 ;;61073003005
 ;;9002226.02101,"830,61073003010 ",.01)
 ;;61073003010
 ;;9002226.02101,"830,61073003010 ",.02)
 ;;61073003010
 ;;9002226.02101,"830,61073003101 ",.01)
 ;;61073003101
 ;;9002226.02101,"830,61073003101 ",.02)
 ;;61073003101
 ;;9002226.02101,"830,61073003105 ",.01)
 ;;61073003105
 ;;9002226.02101,"830,61073003105 ",.02)
 ;;61073003105
 ;;9002226.02101,"830,61073003110 ",.01)
 ;;61073003110
 ;;9002226.02101,"830,61073003110 ",.02)
 ;;61073003110
 ;;9002226.02101,"830,61073003201 ",.01)
 ;;61073003201
 ;;9002226.02101,"830,61073003201 ",.02)
 ;;61073003201
 ;;9002226.02101,"830,61073003205 ",.01)
 ;;61073003205
 ;;9002226.02101,"830,61073003205 ",.02)
 ;;61073003205
 ;;9002226.02101,"830,61073003210 ",.01)
 ;;61073003210
 ;;9002226.02101,"830,61073003210 ",.02)
 ;;61073003210
 ;;9002226.02101,"830,61258673700 ",.01)
 ;;61258673700
 ;;9002226.02101,"830,61258673700 ",.02)
 ;;61258673700
 ;;9002226.02101,"830,61258673800 ",.01)
 ;;61258673800
 ;;9002226.02101,"830,61258673800 ",.02)
 ;;61258673800
 ;;9002226.02101,"830,61258673900 ",.01)
 ;;61258673900
 ;;9002226.02101,"830,61258673900 ",.02)
 ;;61258673900
 ;;9002226.02101,"830,61392041925 ",.01)
 ;;61392041925
 ;;9002226.02101,"830,61392041925 ",.02)
 ;;61392041925
 ;;9002226.02101,"830,61392041930 ",.01)
 ;;61392041930
 ;;9002226.02101,"830,61392041930 ",.02)
 ;;61392041930
 ;;9002226.02101,"830,61392041931 ",.01)
 ;;61392041931
 ;;9002226.02101,"830,61392041931 ",.02)
 ;;61392041931
 ;;9002226.02101,"830,61392041939 ",.01)
 ;;61392041939
 ;;9002226.02101,"830,61392041939 ",.02)
 ;;61392041939
 ;;9002226.02101,"830,61392059225 ",.01)
 ;;61392059225
 ;;9002226.02101,"830,61392059225 ",.02)
 ;;61392059225
 ;;9002226.02101,"830,61392059230 ",.01)
 ;;61392059230
 ;;9002226.02101,"830,61392059230 ",.02)
 ;;61392059230
 ;;9002226.02101,"830,61392059231 ",.01)
 ;;61392059231
 ;;9002226.02101,"830,61392059231 ",.02)
 ;;61392059231
 ;;9002226.02101,"830,61392059239 ",.01)
 ;;61392059239
 ;;9002226.02101,"830,61392059239 ",.02)
 ;;61392059239
 ;;9002226.02101,"830,61392059325 ",.01)
 ;;61392059325
 ;;9002226.02101,"830,61392059325 ",.02)
 ;;61392059325
 ;;9002226.02101,"830,61392059330 ",.01)
 ;;61392059330
 ;;9002226.02101,"830,61392059330 ",.02)
 ;;61392059330
 ;;9002226.02101,"830,61392059331 ",.01)
 ;;61392059331
 ;;9002226.02101,"830,61392059331 ",.02)
 ;;61392059331
 ;;9002226.02101,"830,61392059339 ",.01)
 ;;61392059339
 ;;9002226.02101,"830,61392059339 ",.02)
 ;;61392059339
 ;;9002226.02101,"830,61392068512 ",.01)
 ;;61392068512
 ;;9002226.02101,"830,61392068512 ",.02)
 ;;61392068512
 ;;9002226.02101,"830,61392068523 ",.01)
 ;;61392068523
 ;;9002226.02101,"830,61392068523 ",.02)
 ;;61392068523
 ;;9002226.02101,"830,61392068525 ",.01)
 ;;61392068525
 ;;9002226.02101,"830,61392068525 ",.02)
 ;;61392068525
 ;;9002226.02101,"830,61392068530 ",.01)
 ;;61392068530
 ;;9002226.02101,"830,61392068530 ",.02)
 ;;61392068530
 ;;9002226.02101,"830,61392068531 ",.01)
 ;;61392068531
 ;;9002226.02101,"830,61392068531 ",.02)
 ;;61392068531
 ;;9002226.02101,"830,61392068539 ",.01)
 ;;61392068539
 ;;9002226.02101,"830,61392068539 ",.02)
 ;;61392068539
 ;;9002226.02101,"830,61392068560 ",.01)
 ;;61392068560
 ;;9002226.02101,"830,61392068560 ",.02)
 ;;61392068560
 ;;9002226.02101,"830,61392068590 ",.01)
 ;;61392068590
 ;;9002226.02101,"830,61392068590 ",.02)
 ;;61392068590
 ;;9002226.02101,"830,61392068625 ",.01)
 ;;61392068625
 ;;9002226.02101,"830,61392068625 ",.02)
 ;;61392068625
 ;;9002226.02101,"830,61392068630 ",.01)
 ;;61392068630
 ;;9002226.02101,"830,61392068630 ",.02)
 ;;61392068630
 ;;9002226.02101,"830,61392068660 ",.01)
 ;;61392068660
 ;;9002226.02101,"830,61392068660 ",.02)
 ;;61392068660
 ;;9002226.02101,"830,61392068690 ",.01)
 ;;61392068690
 ;;9002226.02101,"830,61392068690 ",.02)
 ;;61392068690
 ;;9002226.02101,"830,61392068725 ",.01)
 ;;61392068725
 ;;9002226.02101,"830,61392068725 ",.02)
 ;;61392068725
 ;;9002226.02101,"830,61392068730 ",.01)
 ;;61392068730
 ;;9002226.02101,"830,61392068730 ",.02)
 ;;61392068730
 ;;9002226.02101,"830,61392068731 ",.01)
 ;;61392068731
 ;;9002226.02101,"830,61392068731 ",.02)
 ;;61392068731
 ;;9002226.02101,"830,61392068739 ",.01)
 ;;61392068739
 ;;9002226.02101,"830,61392068739 ",.02)
 ;;61392068739
 ;;9002226.02101,"830,61392068760 ",.01)
 ;;61392068760
 ;;9002226.02101,"830,61392068760 ",.02)
 ;;61392068760
 ;;9002226.02101,"830,61392068790 ",.01)
 ;;61392068790
 ;;9002226.02101,"830,61392068790 ",.02)
 ;;61392068790
 ;;9002226.02101,"830,62037057101 ",.01)
 ;;62037057101
 ;;9002226.02101,"830,62037057101 ",.02)
 ;;62037057101
 ;;9002226.02101,"830,62037057105 ",.01)
 ;;62037057105
 ;;9002226.02101,"830,62037057105 ",.02)
 ;;62037057105
 ;;9002226.02101,"830,62037057110 ",.01)
 ;;62037057110
 ;;9002226.02101,"830,62037057110 ",.02)
 ;;62037057110
 ;;9002226.02101,"830,62037057701 ",.01)
 ;;62037057701
 ;;9002226.02101,"830,62037057701 ",.02)
 ;;62037057701
 ;;9002226.02101,"830,62037057705 ",.01)
 ;;62037057705
 ;;9002226.02101,"830,62037057705 ",.02)
 ;;62037057705
 ;;9002226.02101,"830,62037057710 ",.01)
 ;;62037057710
 ;;9002226.02101,"830,62037057710 ",.02)
 ;;62037057710
 ;;9002226.02101,"830,62037067401 ",.01)
 ;;62037067401
 ;;9002226.02101,"830,62037067401 ",.02)
 ;;62037067401
 ;;9002226.02101,"830,62037067405 ",.01)
 ;;62037067405
 ;;9002226.02101,"830,62037067405 ",.02)
 ;;62037067405
 ;;9002226.02101,"830,62037067410 ",.01)
 ;;62037067410
 ;;9002226.02101,"830,62037067410 ",.02)
 ;;62037067410
 ;;9002226.02101,"830,62037067501 ",.01)
 ;;62037067501
 ;;9002226.02101,"830,62037067501 ",.02)
 ;;62037067501
 ;;9002226.02101,"830,62037067505 ",.01)
 ;;62037067505
 ;;9002226.02101,"830,62037067505 ",.02)
 ;;62037067505
 ;;9002226.02101,"830,62037067510 ",.01)
 ;;62037067510
 ;;9002226.02101,"830,62037067510 ",.02)
 ;;62037067510
 ;;9002226.02101,"830,62037067601 ",.01)
 ;;62037067601
 ;;9002226.02101,"830,62037067601 ",.02)
 ;;62037067601
 ;;9002226.02101,"830,62037067605 ",.01)
 ;;62037067605
 ;;9002226.02101,"830,62037067605 ",.02)
 ;;62037067605
 ;;9002226.02101,"830,62037067610 ",.01)
 ;;62037067610
 ;;9002226.02101,"830,62037067610 ",.02)
 ;;62037067610
 ;;9002226.02101,"830,62147500000 ",.01)
 ;;62147500000
 ;;9002226.02101,"830,62147500000 ",.02)
 ;;62147500000
 ;;9002226.02101,"830,62147500100 ",.01)
 ;;62147500100
 ;;9002226.02101,"830,62147500100 ",.02)
 ;;62147500100
 ;;9002226.02101,"830,62147500200 ",.01)
 ;;62147500200
 ;;9002226.02101,"830,62147500200 ",.02)
 ;;62147500200
 ;;9002226.02101,"830,62147500301 ",.01)
 ;;62147500301
 ;;9002226.02101,"830,62147500301 ",.02)
 ;;62147500301
 ;;9002226.02101,"830,62147500302 ",.01)
 ;;62147500302
 ;;9002226.02101,"830,62147500302 ",.02)
 ;;62147500302
 ;;9002226.02101,"830,62147500401 ",.01)
 ;;62147500401
 ;;9002226.02101,"830,62147500401 ",.02)
 ;;62147500401
 ;;9002226.02101,"830,62147500402 ",.01)
 ;;62147500402
 ;;9002226.02101,"830,62147500402 ",.02)
 ;;62147500402
 ;;9002226.02101,"830,62147500501 ",.01)
 ;;62147500501
 ;;9002226.02101,"830,62147500501 ",.02)
 ;;62147500501
 ;;9002226.02101,"830,62147500502 ",.01)
 ;;62147500502
 ;;9002226.02101,"830,62147500502 ",.02)
 ;;62147500502
 ;;9002226.02101,"830,62318019000 ",.01)
 ;;62318019000
 ;;9002226.02101,"830,62318019000 ",.02)
 ;;62318019000
 ;;9002226.02101,"830,62318019001 ",.01)
 ;;62318019001
 ;;9002226.02101,"830,62318019001 ",.02)
 ;;62318019001
 ;;9002226.02101,"830,62318019100 ",.01)
 ;;62318019100
 ;;9002226.02101,"830,62318019100 ",.02)
 ;;62318019100
 ;;9002226.02101,"830,62318019101 ",.01)
 ;;62318019101
 ;;9002226.02101,"830,62318019101 ",.02)
 ;;62318019101
 ;;9002226.02101,"830,62318019200 ",.01)
 ;;62318019200
 ;;9002226.02101,"830,62318019200 ",.02)
 ;;62318019200
 ;;9002226.02101,"830,62318019201 ",.01)
 ;;62318019201
 ;;9002226.02101,"830,62318019201 ",.02)
 ;;62318019201
 ;;9002226.02101,"830,62584025901 ",.01)
 ;;62584025901
 ;;9002226.02101,"830,62584025901 ",.02)
 ;;62584025901
 ;;9002226.02101,"830,62584025911 ",.01)
 ;;62584025911
 ;;9002226.02101,"830,62584025911 ",.02)
 ;;62584025911
 ;;9002226.02101,"830,62584025985 ",.01)
 ;;62584025985
 ;;9002226.02101,"830,62584025985 ",.02)
 ;;62584025985
 ;;9002226.02101,"830,62584033201 ",.01)
 ;;62584033201
 ;;9002226.02101,"830,62584033201 ",.02)
 ;;62584033201
 ;;9002226.02101,"830,62584033211 ",.01)
 ;;62584033211
 ;;9002226.02101,"830,62584033211 ",.02)
 ;;62584033211
 ;;9002226.02101,"830,62584045201 ",.01)
 ;;62584045201
 ;;9002226.02101,"830,62584045201 ",.02)
 ;;62584045201
 ;;9002226.02101,"830,62584045211 ",.01)
 ;;62584045211
 ;;9002226.02101,"830,62584045211 ",.02)
 ;;62584045211
 ;;9002226.02101,"830,62584045285 ",.01)
 ;;62584045285
 ;;9002226.02101,"830,62584045285 ",.02)
 ;;62584045285
 ;;9002226.02101,"830,62756014201 ",.01)
 ;;62756014201
 ;;9002226.02101,"830,62756014201 ",.02)
 ;;62756014201
 ;;9002226.02101,"830,62756014202 ",.01)
 ;;62756014202
 ;;9002226.02101,"830,62756014202 ",.02)
 ;;62756014202
 ;;9002226.02101,"830,62756014301 ",.01)
 ;;62756014301
 ;;9002226.02101,"830,62756014301 ",.02)
 ;;62756014301
 ;;9002226.02101,"830,62756039751 ",.01)
 ;;62756039751
 ;;9002226.02101,"830,62756039751 ",.02)
 ;;62756039751
 ;;9002226.02101,"830,62756039753 ",.01)
 ;;62756039753
 ;;9002226.02101,"830,62756039753 ",.02)
 ;;62756039753
 ;;9002226.02101,"830,62756039758 ",.01)
 ;;62756039758
 ;;9002226.02101,"830,62756039758 ",.02)
 ;;62756039758
 ;;9002226.02101,"830,62756043551 ",.01)
 ;;62756043551
 ;;9002226.02101,"830,62756043551 ",.02)
 ;;62756043551
 ;;9002226.02101,"830,62756043553 ",.01)
 ;;62756043553
 ;;9002226.02101,"830,62756043553 ",.02)
 ;;62756043553
 ;;9002226.02101,"830,62756043558 ",.01)
 ;;62756043558
 ;;9002226.02101,"830,62756043558 ",.02)
 ;;62756043558
 ;;9002226.02101,"830,62756047451 ",.01)
 ;;62756047451
 ;;9002226.02101,"830,62756047451 ",.02)
 ;;62756047451
 ;;9002226.02101,"830,62756047453 ",.01)
 ;;62756047453
 ;;9002226.02101,"830,62756047453 ",.02)
 ;;62756047453
 ;;9002226.02101,"830,62756047458 ",.01)
 ;;62756047458
 ;;9002226.02101,"830,62756047458 ",.02)
 ;;62756047458
 ;;9002226.02101,"830,63304076701 ",.01)
 ;;63304076701
 ;;9002226.02101,"830,63304076701 ",.02)
 ;;63304076701
 ;;9002226.02101,"830,63304076705 ",.01)
 ;;63304076705
 ;;9002226.02101,"830,63304076705 ",.02)
 ;;63304076705
 ;;9002226.02101,"830,63304076720 ",.01)
 ;;63304076720