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