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

BGPM5ADE.m

Go to the documentation of this file.
BGPM5ADE ;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,"846,62037087301 ",.02)
 ;;62037087301
 ;;9002226.02101,"846,62037087305 ",.01)
 ;;62037087305
 ;;9002226.02101,"846,62037087305 ",.02)
 ;;62037087305
 ;;9002226.02101,"846,62318014100 ",.01)
 ;;62318014100
 ;;9002226.02101,"846,62318014100 ",.02)
 ;;62318014100
 ;;9002226.02101,"846,62318014101 ",.01)
 ;;62318014101
 ;;9002226.02101,"846,62318014101 ",.02)
 ;;62318014101
 ;;9002226.02101,"846,62318014102 ",.01)
 ;;62318014102
 ;;9002226.02101,"846,62318014102 ",.02)
 ;;62318014102
 ;;9002226.02101,"846,62318014200 ",.01)
 ;;62318014200
 ;;9002226.02101,"846,62318014200 ",.02)
 ;;62318014200
 ;;9002226.02101,"846,62318014201 ",.01)
 ;;62318014201
 ;;9002226.02101,"846,62318014201 ",.02)
 ;;62318014201
 ;;9002226.02101,"846,62318014202 ",.01)
 ;;62318014202
 ;;9002226.02101,"846,62318014202 ",.02)
 ;;62318014202
 ;;9002226.02101,"846,62528034427 ",.01)
 ;;62528034427
 ;;9002226.02101,"846,62528034427 ",.02)
 ;;62528034427
 ;;9002226.02101,"846,62528034435 ",.01)
 ;;62528034435
 ;;9002226.02101,"846,62528034435 ",.02)
 ;;62528034435
 ;;9002226.02101,"846,62528034440 ",.01)
 ;;62528034440
 ;;9002226.02101,"846,62528034440 ",.02)
 ;;62528034440
 ;;9002226.02101,"846,62528034470 ",.01)
 ;;62528034470
 ;;9002226.02101,"846,62528034470 ",.02)
 ;;62528034470
 ;;9002226.02101,"846,62528034480 ",.01)
 ;;62528034480
 ;;9002226.02101,"846,62528034480 ",.02)
 ;;62528034480
 ;;9002226.02101,"846,62540725401 ",.01)
 ;;62540725401
 ;;9002226.02101,"846,62540725401 ",.02)
 ;;62540725401
 ;;9002226.02101,"846,62540725404 ",.01)
 ;;62540725404
 ;;9002226.02101,"846,62540725404 ",.02)
 ;;62540725404
 ;;9002226.02101,"846,62540725501 ",.01)
 ;;62540725501
 ;;9002226.02101,"846,62540725501 ",.02)
 ;;62540725501
 ;;9002226.02101,"846,62540725504 ",.01)
 ;;62540725504
 ;;9002226.02101,"846,62540725504 ",.02)
 ;;62540725504
 ;;9002226.02101,"846,62540725601 ",.01)
 ;;62540725601
 ;;9002226.02101,"846,62540725601 ",.02)
 ;;62540725601
 ;;9002226.02101,"846,62540725603 ",.01)
 ;;62540725603
 ;;9002226.02101,"846,62540725603 ",.02)
 ;;62540725603
 ;;9002226.02101,"846,62540725604 ",.01)
 ;;62540725604
 ;;9002226.02101,"846,62540725604 ",.02)
 ;;62540725604
 ;;9002226.02101,"846,62682500403 ",.01)
 ;;62682500403
 ;;9002226.02101,"846,62682500403 ",.02)
 ;;62682500403
 ;;9002226.02101,"846,62682500408 ",.01)
 ;;62682500408
 ;;9002226.02101,"846,62682500408 ",.02)
 ;;62682500408
 ;;9002226.02101,"846,62682500603 ",.01)
 ;;62682500603
 ;;9002226.02101,"846,62682500603 ",.02)
 ;;62682500603
 ;;9002226.02101,"846,63304042501 ",.01)
 ;;63304042501
 ;;9002226.02101,"846,63304042501 ",.02)
 ;;63304042501
 ;;9002226.02101,"846,63304042510 ",.01)
 ;;63304042510
 ;;9002226.02101,"846,63304042510 ",.02)
 ;;63304042510
 ;;9002226.02101,"846,63304042530 ",.01)
 ;;63304042530
 ;;9002226.02101,"846,63304042530 ",.02)
 ;;63304042530
 ;;9002226.02101,"846,63304042601 ",.01)
 ;;63304042601
 ;;9002226.02101,"846,63304042601 ",.02)
 ;;63304042601
 ;;9002226.02101,"846,63304042610 ",.01)
 ;;63304042610
 ;;9002226.02101,"846,63304042610 ",.02)
 ;;63304042610
 ;;9002226.02101,"846,63304042630 ",.01)
 ;;63304042630
 ;;9002226.02101,"846,63304042630 ",.02)
 ;;63304042630
 ;;9002226.02101,"846,63304042701 ",.01)
 ;;63304042701
 ;;9002226.02101,"846,63304042701 ",.02)
 ;;63304042701
 ;;9002226.02101,"846,63304042710 ",.01)
 ;;63304042710
 ;;9002226.02101,"846,63304042710 ",.02)
 ;;63304042710
 ;;9002226.02101,"846,63304042730 ",.01)
 ;;63304042730
 ;;9002226.02101,"846,63304042730 ",.02)
 ;;63304042730
 ;;9002226.02101,"846,63629125501 ",.01)
 ;;63629125501
 ;;9002226.02101,"846,63629125501 ",.02)
 ;;63629125501
 ;;9002226.02101,"846,63629125502 ",.01)
 ;;63629125502
 ;;9002226.02101,"846,63629125502 ",.02)
 ;;63629125502
 ;;9002226.02101,"846,63629139201 ",.01)
 ;;63629139201
 ;;9002226.02101,"846,63629139201 ",.02)
 ;;63629139201
 ;;9002226.02101,"846,63629139202 ",.01)
 ;;63629139202
 ;;9002226.02101,"846,63629139202 ",.02)
 ;;63629139202
 ;;9002226.02101,"846,63629139203 ",.01)
 ;;63629139203
 ;;9002226.02101,"846,63629139203 ",.02)
 ;;63629139203
 ;;9002226.02101,"846,63629139301 ",.01)
 ;;63629139301
 ;;9002226.02101,"846,63629139301 ",.02)
 ;;63629139301
 ;;9002226.02101,"846,63629139302 ",.01)
 ;;63629139302
 ;;9002226.02101,"846,63629139302 ",.02)
 ;;63629139302
 ;;9002226.02101,"846,63629139303 ",.01)
 ;;63629139303
 ;;9002226.02101,"846,63629139303 ",.02)
 ;;63629139303
 ;;9002226.02101,"846,63629139304 ",.01)
 ;;63629139304
 ;;9002226.02101,"846,63629139304 ",.02)
 ;;63629139304
 ;;9002226.02101,"846,63629139401 ",.01)
 ;;63629139401
 ;;9002226.02101,"846,63629139401 ",.02)
 ;;63629139401
 ;;9002226.02101,"846,63629139402 ",.01)
 ;;63629139402
 ;;9002226.02101,"846,63629139402 ",.02)
 ;;63629139402
 ;;9002226.02101,"846,63629139403 ",.01)
 ;;63629139403
 ;;9002226.02101,"846,63629139403 ",.02)
 ;;63629139403
 ;;9002226.02101,"846,63629139801 ",.01)
 ;;63629139801
 ;;9002226.02101,"846,63629139801 ",.02)
 ;;63629139801
 ;;9002226.02101,"846,63629139802 ",.01)
 ;;63629139802
 ;;9002226.02101,"846,63629139802 ",.02)
 ;;63629139802
 ;;9002226.02101,"846,63629139803 ",.01)
 ;;63629139803
 ;;9002226.02101,"846,63629139803 ",.02)
 ;;63629139803
 ;;9002226.02101,"846,63629279301 ",.01)
 ;;63629279301
 ;;9002226.02101,"846,63629279301 ",.02)
 ;;63629279301
 ;;9002226.02101,"846,63629279302 ",.01)
 ;;63629279302
 ;;9002226.02101,"846,63629279302 ",.02)
 ;;63629279302
 ;;9002226.02101,"846,63629279303 ",.01)
 ;;63629279303
 ;;9002226.02101,"846,63629279303 ",.02)
 ;;63629279303
 ;;9002226.02101,"846,63629279304 ",.01)
 ;;63629279304
 ;;9002226.02101,"846,63629279304 ",.02)
 ;;63629279304
 ;;9002226.02101,"846,63629279305 ",.01)
 ;;63629279305
 ;;9002226.02101,"846,63629279305 ",.02)
 ;;63629279305
 ;;9002226.02101,"846,63629290701 ",.01)
 ;;63629290701
 ;;9002226.02101,"846,63629290701 ",.02)
 ;;63629290701
 ;;9002226.02101,"846,63629290702 ",.01)
 ;;63629290702
 ;;9002226.02101,"846,63629290702 ",.02)
 ;;63629290702
 ;;9002226.02101,"846,63629304301 ",.01)
 ;;63629304301
 ;;9002226.02101,"846,63629304301 ",.02)
 ;;63629304301
 ;;9002226.02101,"846,63629304302 ",.01)
 ;;63629304302
 ;;9002226.02101,"846,63629304302 ",.02)
 ;;63629304302
 ;;9002226.02101,"846,63629315801 ",.01)
 ;;63629315801
 ;;9002226.02101,"846,63629315801 ",.02)
 ;;63629315801
 ;;9002226.02101,"846,63629315802 ",.01)
 ;;63629315802
 ;;9002226.02101,"846,63629315802 ",.02)
 ;;63629315802
 ;;9002226.02101,"846,63629315803 ",.01)
 ;;63629315803
 ;;9002226.02101,"846,63629315803 ",.02)
 ;;63629315803
 ;;9002226.02101,"846,63629399801 ",.01)
 ;;63629399801
 ;;9002226.02101,"846,63629399801 ",.02)
 ;;63629399801
 ;;9002226.02101,"846,63739011601 ",.01)
 ;;63739011601
 ;;9002226.02101,"846,63739011601 ",.02)
 ;;63739011601
 ;;9002226.02101,"846,63739011603 ",.01)
 ;;63739011603
 ;;9002226.02101,"846,63739011603 ",.02)
 ;;63739011603
 ;;9002226.02101,"846,63739011610 ",.01)
 ;;63739011610
 ;;9002226.02101,"846,63739011610 ",.02)
 ;;63739011610
 ;;9002226.02101,"846,63739011710 ",.01)
 ;;63739011710
 ;;9002226.02101,"846,63739011710 ",.02)
 ;;63739011710
 ;;9002226.02101,"846,63739011810 ",.01)
 ;;63739011810
 ;;9002226.02101,"846,63739011810 ",.02)
 ;;63739011810
 ;;9002226.02101,"846,63739011910 ",.01)
 ;;63739011910
 ;;9002226.02101,"846,63739011910 ",.02)
 ;;63739011910
 ;;9002226.02101,"846,63874031601 ",.01)
 ;;63874031601
 ;;9002226.02101,"846,63874031601 ",.02)
 ;;63874031601
 ;;9002226.02101,"846,63874031602 ",.01)
 ;;63874031602
 ;;9002226.02101,"846,63874031602 ",.02)
 ;;63874031602
 ;;9002226.02101,"846,63874031604 ",.01)
 ;;63874031604
 ;;9002226.02101,"846,63874031604 ",.02)
 ;;63874031604
 ;;9002226.02101,"846,63874031605 ",.01)
 ;;63874031605
 ;;9002226.02101,"846,63874031605 ",.02)
 ;;63874031605
 ;;9002226.02101,"846,63874031610 ",.01)
 ;;63874031610
 ;;9002226.02101,"846,63874031610 ",.02)
 ;;63874031610
 ;;9002226.02101,"846,63874031612 ",.01)
 ;;63874031612
 ;;9002226.02101,"846,63874031612 ",.02)
 ;;63874031612
 ;;9002226.02101,"846,63874031614 ",.01)
 ;;63874031614
 ;;9002226.02101,"846,63874031614 ",.02)
 ;;63874031614
 ;;9002226.02101,"846,63874031615 ",.01)
 ;;63874031615
 ;;9002226.02101,"846,63874031615 ",.02)
 ;;63874031615
 ;;9002226.02101,"846,63874031620 ",.01)
 ;;63874031620
 ;;9002226.02101,"846,63874031620 ",.02)
 ;;63874031620
 ;;9002226.02101,"846,63874031621 ",.01)
 ;;63874031621
 ;;9002226.02101,"846,63874031621 ",.02)
 ;;63874031621
 ;;9002226.02101,"846,63874031624 ",.01)
 ;;63874031624
 ;;9002226.02101,"846,63874031624 ",.02)
 ;;63874031624
 ;;9002226.02101,"846,63874031628 ",.01)
 ;;63874031628
 ;;9002226.02101,"846,63874031628 ",.02)
 ;;63874031628
 ;;9002226.02101,"846,63874031630 ",.01)
 ;;63874031630
 ;;9002226.02101,"846,63874031630 ",.02)
 ;;63874031630
 ;;9002226.02101,"846,63874031650 ",.01)
 ;;63874031650
 ;;9002226.02101,"846,63874031650 ",.02)
 ;;63874031650
 ;;9002226.02101,"846,63874031660 ",.01)
 ;;63874031660
 ;;9002226.02101,"846,63874031660 ",.02)
 ;;63874031660
 ;;9002226.02101,"846,63874031681 ",.01)
 ;;63874031681
 ;;9002226.02101,"846,63874031681 ",.02)
 ;;63874031681
 ;;9002226.02101,"846,63874031690 ",.01)
 ;;63874031690
 ;;9002226.02101,"846,63874031690 ",.02)
 ;;63874031690
 ;;9002226.02101,"846,63874031701 ",.01)
 ;;63874031701
 ;;9002226.02101,"846,63874031701 ",.02)
 ;;63874031701
 ;;9002226.02101,"846,63874031702 ",.01)
 ;;63874031702
 ;;9002226.02101,"846,63874031702 ",.02)
 ;;63874031702
 ;;9002226.02101,"846,63874031704 ",.01)
 ;;63874031704
 ;;9002226.02101,"846,63874031704 ",.02)
 ;;63874031704
 ;;9002226.02101,"846,63874031710 ",.01)
 ;;63874031710
 ;;9002226.02101,"846,63874031710 ",.02)
 ;;63874031710
 ;;9002226.02101,"846,63874031712 ",.01)
 ;;63874031712
 ;;9002226.02101,"846,63874031712 ",.02)
 ;;63874031712
 ;;9002226.02101,"846,63874031714 ",.01)
 ;;63874031714
 ;;9002226.02101,"846,63874031714 ",.02)
 ;;63874031714
 ;;9002226.02101,"846,63874031715 ",.01)
 ;;63874031715
 ;;9002226.02101,"846,63874031715 ",.02)
 ;;63874031715
 ;;9002226.02101,"846,63874031720 ",.01)
 ;;63874031720
 ;;9002226.02101,"846,63874031720 ",.02)
 ;;63874031720
 ;;9002226.02101,"846,63874031724 ",.01)
 ;;63874031724
 ;;9002226.02101,"846,63874031724 ",.02)
 ;;63874031724
 ;;9002226.02101,"846,63874031728 ",.01)
 ;;63874031728
 ;;9002226.02101,"846,63874031728 ",.02)
 ;;63874031728
 ;;9002226.02101,"846,63874031730 ",.01)
 ;;63874031730
 ;;9002226.02101,"846,63874031730 ",.02)
 ;;63874031730
 ;;9002226.02101,"846,63874031740 ",.01)
 ;;63874031740
 ;;9002226.02101,"846,63874031740 ",.02)
 ;;63874031740
 ;;9002226.02101,"846,63874031750 ",.01)
 ;;63874031750
 ;;9002226.02101,"846,63874031750 ",.02)
 ;;63874031750
 ;;9002226.02101,"846,63874031760 ",.01)
 ;;63874031760
 ;;9002226.02101,"846,63874031760 ",.02)
 ;;63874031760
 ;;9002226.02101,"846,63874031790 ",.01)
 ;;63874031790
 ;;9002226.02101,"846,63874031790 ",.02)
 ;;63874031790
 ;;9002226.02101,"846,63874043201 ",.01)
 ;;63874043201
 ;;9002226.02101,"846,63874043201 ",.02)
 ;;63874043201
 ;;9002226.02101,"846,63874043202 ",.01)
 ;;63874043202
 ;;9002226.02101,"846,63874043202 ",.02)
 ;;63874043202
 ;;9002226.02101,"846,63874043204 ",.01)
 ;;63874043204
 ;;9002226.02101,"846,63874043204 ",.02)
 ;;63874043204
 ;;9002226.02101,"846,63874043210 ",.01)
 ;;63874043210
 ;;9002226.02101,"846,63874043210 ",.02)
 ;;63874043210
 ;;9002226.02101,"846,63874043214 ",.01)
 ;;63874043214