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

BGPM5AJC.m

Go to the documentation of this file.
BGPM5AJC ;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,"889,00490709502 ",.01)
 ;;00490709502
 ;;9002226.02101,"889,00490709502 ",.02)
 ;;00490709502
 ;;9002226.02101,"889,00490709503 ",.01)
 ;;00490709503
 ;;9002226.02101,"889,00490709503 ",.02)
 ;;00490709503
 ;;9002226.02101,"889,00490709504 ",.01)
 ;;00490709504
 ;;9002226.02101,"889,00490709504 ",.02)
 ;;00490709504
 ;;9002226.02101,"889,00490709505 ",.01)
 ;;00490709505
 ;;9002226.02101,"889,00490709505 ",.02)
 ;;00490709505
 ;;9002226.02101,"889,00490709506 ",.01)
 ;;00490709506
 ;;9002226.02101,"889,00490709506 ",.02)
 ;;00490709506
 ;;9002226.02101,"889,00490709507 ",.01)
 ;;00490709507
 ;;9002226.02101,"889,00490709507 ",.02)
 ;;00490709507
 ;;9002226.02101,"889,00490709508 ",.01)
 ;;00490709508
 ;;9002226.02101,"889,00490709508 ",.02)
 ;;00490709508
 ;;9002226.02101,"889,00490709509 ",.01)
 ;;00490709509
 ;;9002226.02101,"889,00490709509 ",.02)
 ;;00490709509
 ;;9002226.02101,"889,00490709510 ",.01)
 ;;00490709510
 ;;9002226.02101,"889,00490709510 ",.02)
 ;;00490709510
 ;;9002226.02101,"889,00490709512 ",.01)
 ;;00490709512
 ;;9002226.02101,"889,00490709512 ",.02)
 ;;00490709512
 ;;9002226.02101,"889,00490709514 ",.01)
 ;;00490709514
 ;;9002226.02101,"889,00490709514 ",.02)
 ;;00490709514
 ;;9002226.02101,"889,00490709515 ",.01)
 ;;00490709515
 ;;9002226.02101,"889,00490709515 ",.02)
 ;;00490709515
 ;;9002226.02101,"889,00490709516 ",.01)
 ;;00490709516
 ;;9002226.02101,"889,00490709516 ",.02)
 ;;00490709516
 ;;9002226.02101,"889,00490709518 ",.01)
 ;;00490709518
 ;;9002226.02101,"889,00490709518 ",.02)
 ;;00490709518
 ;;9002226.02101,"889,00490709520 ",.01)
 ;;00490709520
 ;;9002226.02101,"889,00490709520 ",.02)
 ;;00490709520
 ;;9002226.02101,"889,00490709521 ",.01)
 ;;00490709521
 ;;9002226.02101,"889,00490709521 ",.02)
 ;;00490709521
 ;;9002226.02101,"889,00490709524 ",.01)
 ;;00490709524
 ;;9002226.02101,"889,00490709524 ",.02)
 ;;00490709524
 ;;9002226.02101,"889,00490709525 ",.01)
 ;;00490709525
 ;;9002226.02101,"889,00490709525 ",.02)
 ;;00490709525
 ;;9002226.02101,"889,00490709526 ",.01)
 ;;00490709526
 ;;9002226.02101,"889,00490709526 ",.02)
 ;;00490709526
 ;;9002226.02101,"889,00490709527 ",.01)
 ;;00490709527
 ;;9002226.02101,"889,00490709527 ",.02)
 ;;00490709527
 ;;9002226.02101,"889,00490709528 ",.01)
 ;;00490709528
 ;;9002226.02101,"889,00490709528 ",.02)
 ;;00490709528
 ;;9002226.02101,"889,00490709530 ",.01)
 ;;00490709530
 ;;9002226.02101,"889,00490709530 ",.02)
 ;;00490709530
 ;;9002226.02101,"889,00490709532 ",.01)
 ;;00490709532
 ;;9002226.02101,"889,00490709532 ",.02)
 ;;00490709532
 ;;9002226.02101,"889,00490709535 ",.01)
 ;;00490709535
 ;;9002226.02101,"889,00490709535 ",.02)
 ;;00490709535
 ;;9002226.02101,"889,00490709536 ",.01)
 ;;00490709536
 ;;9002226.02101,"889,00490709536 ",.02)
 ;;00490709536
 ;;9002226.02101,"889,00490709540 ",.01)
 ;;00490709540
 ;;9002226.02101,"889,00490709540 ",.02)
 ;;00490709540
 ;;9002226.02101,"889,00490709542 ",.01)
 ;;00490709542
 ;;9002226.02101,"889,00490709542 ",.02)
 ;;00490709542
 ;;9002226.02101,"889,00490709544 ",.01)
 ;;00490709544
 ;;9002226.02101,"889,00490709544 ",.02)
 ;;00490709544
 ;;9002226.02101,"889,00490709545 ",.01)
 ;;00490709545
 ;;9002226.02101,"889,00490709545 ",.02)
 ;;00490709545
 ;;9002226.02101,"889,00490709548 ",.01)
 ;;00490709548
 ;;9002226.02101,"889,00490709548 ",.02)
 ;;00490709548
 ;;9002226.02101,"889,00490709550 ",.01)
 ;;00490709550
 ;;9002226.02101,"889,00490709550 ",.02)
 ;;00490709550
 ;;9002226.02101,"889,00490709556 ",.01)
 ;;00490709556
 ;;9002226.02101,"889,00490709556 ",.02)
 ;;00490709556
 ;;9002226.02101,"889,00490709560 ",.01)
 ;;00490709560
 ;;9002226.02101,"889,00490709560 ",.02)
 ;;00490709560
 ;;9002226.02101,"889,00490709567 ",.01)
 ;;00490709567
 ;;9002226.02101,"889,00490709567 ",.02)
 ;;00490709567
 ;;9002226.02101,"889,00490709569 ",.01)
 ;;00490709569
 ;;9002226.02101,"889,00490709569 ",.02)
 ;;00490709569
 ;;9002226.02101,"889,00490709570 ",.01)
 ;;00490709570
 ;;9002226.02101,"889,00490709570 ",.02)
 ;;00490709570
 ;;9002226.02101,"889,00490709571 ",.01)
 ;;00490709571
 ;;9002226.02101,"889,00490709571 ",.02)
 ;;00490709571
 ;;9002226.02101,"889,00490709572 ",.01)
 ;;00490709572
 ;;9002226.02101,"889,00490709572 ",.02)
 ;;00490709572
 ;;9002226.02101,"889,00490709573 ",.01)
 ;;00490709573
 ;;9002226.02101,"889,00490709573 ",.02)
 ;;00490709573
 ;;9002226.02101,"889,00490709575 ",.01)
 ;;00490709575
 ;;9002226.02101,"889,00490709575 ",.02)
 ;;00490709575
 ;;9002226.02101,"889,00490709576 ",.01)
 ;;00490709576
 ;;9002226.02101,"889,00490709576 ",.02)
 ;;00490709576
 ;;9002226.02101,"889,00490709577 ",.01)
 ;;00490709577
 ;;9002226.02101,"889,00490709577 ",.02)
 ;;00490709577
 ;;9002226.02101,"889,00490709579 ",.01)
 ;;00490709579
 ;;9002226.02101,"889,00490709579 ",.02)
 ;;00490709579
 ;;9002226.02101,"889,00490709580 ",.01)
 ;;00490709580
 ;;9002226.02101,"889,00490709580 ",.02)
 ;;00490709580
 ;;9002226.02101,"889,00490709581 ",.01)
 ;;00490709581
 ;;9002226.02101,"889,00490709581 ",.02)
 ;;00490709581
 ;;9002226.02101,"889,00490709582 ",.01)
 ;;00490709582
 ;;9002226.02101,"889,00490709582 ",.02)
 ;;00490709582
 ;;9002226.02101,"889,00490709583 ",.01)
 ;;00490709583
 ;;9002226.02101,"889,00490709583 ",.02)
 ;;00490709583
 ;;9002226.02101,"889,00490709584 ",.01)
 ;;00490709584
 ;;9002226.02101,"889,00490709584 ",.02)
 ;;00490709584
 ;;9002226.02101,"889,00490709587 ",.01)
 ;;00490709587
 ;;9002226.02101,"889,00490709587 ",.02)
 ;;00490709587
 ;;9002226.02101,"889,00490709589 ",.01)
 ;;00490709589
 ;;9002226.02101,"889,00490709589 ",.02)
 ;;00490709589
 ;;9002226.02101,"889,00490709590 ",.01)
 ;;00490709590
 ;;9002226.02101,"889,00490709590 ",.02)
 ;;00490709590
 ;;9002226.02101,"889,00490709591 ",.01)
 ;;00490709591
 ;;9002226.02101,"889,00490709591 ",.02)
 ;;00490709591
 ;;9002226.02101,"889,00490709592 ",.01)
 ;;00490709592
 ;;9002226.02101,"889,00490709592 ",.02)
 ;;00490709592
 ;;9002226.02101,"889,00490709593 ",.01)
 ;;00490709593
 ;;9002226.02101,"889,00490709593 ",.02)
 ;;00490709593
 ;;9002226.02101,"889,00490709596 ",.01)
 ;;00490709596
 ;;9002226.02101,"889,00490709596 ",.02)
 ;;00490709596
 ;;9002226.02101,"889,00490709597 ",.01)
 ;;00490709597
 ;;9002226.02101,"889,00490709597 ",.02)
 ;;00490709597
 ;;9002226.02101,"889,00490709598 ",.01)
 ;;00490709598
 ;;9002226.02101,"889,00490709598 ",.02)
 ;;00490709598
 ;;9002226.02101,"889,00490709599 ",.01)
 ;;00490709599
 ;;9002226.02101,"889,00490709599 ",.02)
 ;;00490709599
 ;;9002226.02101,"889,00517135501 ",.01)
 ;;00517135501
 ;;9002226.02101,"889,00517135501 ",.02)
 ;;00517135501
 ;;9002226.02101,"889,00517135510 ",.01)
 ;;00517135510
 ;;9002226.02101,"889,00517135510 ",.02)
 ;;00517135510
 ;;9002226.02101,"889,00517135525 ",.01)
 ;;00517135525
 ;;9002226.02101,"889,00517135525 ",.02)
 ;;00517135525
 ;;9002226.02101,"889,00555042702 ",.01)
 ;;00555042702
 ;;9002226.02101,"889,00555042702 ",.02)
 ;;00555042702
 ;;9002226.02101,"889,00555042705 ",.01)
 ;;00555042705
 ;;9002226.02101,"889,00555042705 ",.02)
 ;;00555042705
 ;;9002226.02101,"889,00555042802 ",.01)
 ;;00555042802
 ;;9002226.02101,"889,00555042802 ",.02)
 ;;00555042802
 ;;9002226.02101,"889,00555042805 ",.01)
 ;;00555042805
 ;;9002226.02101,"889,00555042805 ",.02)
 ;;00555042805
 ;;9002226.02101,"889,00591046201 ",.01)
 ;;00591046201
 ;;9002226.02101,"889,00591046201 ",.02)
 ;;00591046201
 ;;9002226.02101,"889,00591046210 ",.01)
 ;;00591046210
 ;;9002226.02101,"889,00591046210 ",.02)
 ;;00591046210
 ;;9002226.02101,"889,00591046301 ",.01)
 ;;00591046301
 ;;9002226.02101,"889,00591046301 ",.02)
 ;;00591046301
 ;;9002226.02101,"889,00591046310 ",.01)
 ;;00591046310
 ;;9002226.02101,"889,00591046310 ",.02)
 ;;00591046310
 ;;9002226.02101,"889,00591060501 ",.01)
 ;;00591060501
 ;;9002226.02101,"889,00591060501 ",.02)
 ;;00591060501
 ;;9002226.02101,"889,00591060505 ",.01)
 ;;00591060505
 ;;9002226.02101,"889,00591060505 ",.02)
 ;;00591060505
 ;;9002226.02101,"889,00591060510 ",.01)
 ;;00591060510
 ;;9002226.02101,"889,00591060510 ",.02)
 ;;00591060510
 ;;9002226.02101,"889,00591060601 ",.01)
 ;;00591060601
 ;;9002226.02101,"889,00591060601 ",.02)
 ;;00591060601
 ;;9002226.02101,"889,00591060605 ",.01)
 ;;00591060605
 ;;9002226.02101,"889,00591060605 ",.02)
 ;;00591060605
 ;;9002226.02101,"889,00591060610 ",.01)
 ;;00591060610
 ;;9002226.02101,"889,00591060610 ",.02)
 ;;00591060610
 ;;9002226.02101,"889,00591060701 ",.01)
 ;;00591060701
 ;;9002226.02101,"889,00591060701 ",.02)
 ;;00591060701
 ;;9002226.02101,"889,00591060705 ",.01)
 ;;00591060705
 ;;9002226.02101,"889,00591060705 ",.02)
 ;;00591060705
 ;;9002226.02101,"889,00591060710 ",.01)
 ;;00591060710
 ;;9002226.02101,"889,00591060710 ",.02)
 ;;00591060710
 ;;9002226.02101,"889,00591084101 ",.01)
 ;;00591084101
 ;;9002226.02101,"889,00591084101 ",.02)
 ;;00591084101
 ;;9002226.02101,"889,00591084105 ",.01)
 ;;00591084105
 ;;9002226.02101,"889,00591084105 ",.02)
 ;;00591084105
 ;;9002226.02101,"889,00591084201 ",.01)
 ;;00591084201
 ;;9002226.02101,"889,00591084201 ",.02)
 ;;00591084201
 ;;9002226.02101,"889,00591084205 ",.01)
 ;;00591084205
 ;;9002226.02101,"889,00591084205 ",.02)
 ;;00591084205
 ;;9002226.02101,"889,00591084301 ",.01)
 ;;00591084301
 ;;9002226.02101,"889,00591084301 ",.02)
 ;;00591084301
 ;;9002226.02101,"889,00591084330 ",.01)
 ;;00591084330
 ;;9002226.02101,"889,00591084330 ",.02)
 ;;00591084330
 ;;9002226.02101,"889,00591319526 ",.01)
 ;;00591319526
 ;;9002226.02101,"889,00591319526 ",.02)
 ;;00591319526
 ;;9002226.02101,"889,00591319578 ",.01)
 ;;00591319578
 ;;9002226.02101,"889,00591319578 ",.02)
 ;;00591319578
 ;;9002226.02101,"889,00591555400 ",.01)
 ;;00591555400
 ;;9002226.02101,"889,00591555400 ",.02)
 ;;00591555400
 ;;9002226.02101,"889,00591555401 ",.01)
 ;;00591555401
 ;;9002226.02101,"889,00591555401 ",.02)
 ;;00591555401
 ;;9002226.02101,"889,00591555410 ",.01)
 ;;00591555410
 ;;9002226.02101,"889,00591555410 ",.02)
 ;;00591555410
 ;;9002226.02101,"889,00591555500 ",.01)
 ;;00591555500
 ;;9002226.02101,"889,00591555500 ",.02)
 ;;00591555500
 ;;9002226.02101,"889,00591555501 ",.01)
 ;;00591555501
 ;;9002226.02101,"889,00591555501 ",.02)
 ;;00591555501
 ;;9002226.02101,"889,00591555510 ",.01)
 ;;00591555510
 ;;9002226.02101,"889,00591555510 ",.02)
 ;;00591555510
 ;;9002226.02101,"889,00591555600 ",.01)
 ;;00591555600
 ;;9002226.02101,"889,00591555600 ",.02)
 ;;00591555600
 ;;9002226.02101,"889,00591555601 ",.01)
 ;;00591555601
 ;;9002226.02101,"889,00591555601 ",.02)
 ;;00591555601
 ;;9002226.02101,"889,00591555610 ",.01)
 ;;00591555610
 ;;9002226.02101,"889,00591555610 ",.02)
 ;;00591555610
 ;;9002226.02101,"889,00591555700 ",.01)
 ;;00591555700
 ;;9002226.02101,"889,00591555700 ",.02)
 ;;00591555700
 ;;9002226.02101,"889,00591555701 ",.01)
 ;;00591555701
 ;;9002226.02101,"889,00591555701 ",.02)
 ;;00591555701
 ;;9002226.02101,"889,00591555705 ",.01)
 ;;00591555705
 ;;9002226.02101,"889,00591555705 ",.02)
 ;;00591555705
 ;;9002226.02101,"889,00591577701 ",.01)
 ;;00591577701
 ;;9002226.02101,"889,00591577701 ",.02)
 ;;00591577701
 ;;9002226.02101,"889,00591577710 ",.01)
 ;;00591577710
 ;;9002226.02101,"889,00591577710 ",.02)
 ;;00591577710
 ;;9002226.02101,"889,00591577801 ",.01)
 ;;00591577801
 ;;9002226.02101,"889,00591577801 ",.02)
 ;;00591577801
 ;;9002226.02101,"889,00591578200 ",.01)
 ;;00591578200
 ;;9002226.02101,"889,00591578200 ",.02)
 ;;00591578200