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

BGPM5AGF.m

Go to the documentation of this file.
BGPM5AGF ;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,00185002309 ",.02)
 ;;00185002309
 ;;9002226.02101,"882,00185002501 ",.01)
 ;;00185002501
 ;;9002226.02101,"882,00185002501 ",.02)
 ;;00185002501
 ;;9002226.02101,"882,00185002510 ",.01)
 ;;00185002510
 ;;9002226.02101,"882,00185002510 ",.02)
 ;;00185002510
 ;;9002226.02101,"882,00185003301 ",.01)
 ;;00185003301
 ;;9002226.02101,"882,00185003301 ",.02)
 ;;00185003301
 ;;9002226.02101,"882,00185003305 ",.01)
 ;;00185003305
 ;;9002226.02101,"882,00185003305 ",.02)
 ;;00185003305
 ;;9002226.02101,"882,00185003309 ",.01)
 ;;00185003309
 ;;9002226.02101,"882,00185003309 ",.02)
 ;;00185003309
 ;;9002226.02101,"882,00185003310 ",.01)
 ;;00185003310
 ;;9002226.02101,"882,00185003310 ",.02)
 ;;00185003310
 ;;9002226.02101,"882,00185004101 ",.01)
 ;;00185004101
 ;;9002226.02101,"882,00185004101 ",.02)
 ;;00185004101
 ;;9002226.02101,"882,00185004109 ",.01)
 ;;00185004109
 ;;9002226.02101,"882,00185004109 ",.02)
 ;;00185004109
 ;;9002226.02101,"882,00185004110 ",.01)
 ;;00185004110
 ;;9002226.02101,"882,00185004110 ",.02)
 ;;00185004110
 ;;9002226.02101,"882,00185004190 ",.01)
 ;;00185004190
 ;;9002226.02101,"882,00185004190 ",.02)
 ;;00185004190
 ;;9002226.02101,"882,00185004201 ",.01)
 ;;00185004201
 ;;9002226.02101,"882,00185004201 ",.02)
 ;;00185004201
 ;;9002226.02101,"882,00185004209 ",.01)
 ;;00185004209
 ;;9002226.02101,"882,00185004209 ",.02)
 ;;00185004209
 ;;9002226.02101,"882,00185004210 ",.01)
 ;;00185004210
 ;;9002226.02101,"882,00185004210 ",.02)
 ;;00185004210
 ;;9002226.02101,"882,00185004290 ",.01)
 ;;00185004290
 ;;9002226.02101,"882,00185004290 ",.02)
 ;;00185004290
 ;;9002226.02101,"882,00185004701 ",.01)
 ;;00185004701
 ;;9002226.02101,"882,00185004701 ",.02)
 ;;00185004701
 ;;9002226.02101,"882,00185004709 ",.01)
 ;;00185004709
 ;;9002226.02101,"882,00185004709 ",.02)
 ;;00185004709
 ;;9002226.02101,"882,00185004710 ",.01)
 ;;00185004710
 ;;9002226.02101,"882,00185004710 ",.02)
 ;;00185004710
 ;;9002226.02101,"882,00185004790 ",.01)
 ;;00185004790
 ;;9002226.02101,"882,00185004790 ",.02)
 ;;00185004790
 ;;9002226.02101,"882,00185004901 ",.01)
 ;;00185004901
 ;;9002226.02101,"882,00185004901 ",.02)
 ;;00185004901
 ;;9002226.02101,"882,00185004905 ",.01)
 ;;00185004905
 ;;9002226.02101,"882,00185004905 ",.02)
 ;;00185004905
 ;;9002226.02101,"882,00185004909 ",.01)
 ;;00185004909
 ;;9002226.02101,"882,00185004909 ",.02)
 ;;00185004909
 ;;9002226.02101,"882,00185004910 ",.01)
 ;;00185004910
 ;;9002226.02101,"882,00185004910 ",.02)
 ;;00185004910
 ;;9002226.02101,"882,00185006701 ",.01)
 ;;00185006701
 ;;9002226.02101,"882,00185006701 ",.02)
 ;;00185006701
 ;;9002226.02101,"882,00185006705 ",.01)
 ;;00185006705
 ;;9002226.02101,"882,00185006705 ",.02)
 ;;00185006705
 ;;9002226.02101,"882,00185006709 ",.01)
 ;;00185006709
 ;;9002226.02101,"882,00185006709 ",.02)
 ;;00185006709
 ;;9002226.02101,"882,00185006710 ",.01)
 ;;00185006710
 ;;9002226.02101,"882,00185006710 ",.02)
 ;;00185006710
 ;;9002226.02101,"882,00185010101 ",.01)
 ;;00185010101
 ;;9002226.02101,"882,00185010101 ",.02)
 ;;00185010101
 ;;9002226.02101,"882,00185010110 ",.01)
 ;;00185010110
 ;;9002226.02101,"882,00185010110 ",.02)
 ;;00185010110
 ;;9002226.02101,"882,00185010133 ",.01)
 ;;00185010133
 ;;9002226.02101,"882,00185010133 ",.02)
 ;;00185010133
 ;;9002226.02101,"882,00185010201 ",.01)
 ;;00185010201
 ;;9002226.02101,"882,00185010201 ",.02)
 ;;00185010201
 ;;9002226.02101,"882,00185010210 ",.01)
 ;;00185010210
 ;;9002226.02101,"882,00185010210 ",.02)
 ;;00185010210
 ;;9002226.02101,"882,00185010233 ",.01)
 ;;00185010233
 ;;9002226.02101,"882,00185010233 ",.02)
 ;;00185010233
 ;;9002226.02101,"882,00185010301 ",.01)
 ;;00185010301
 ;;9002226.02101,"882,00185010301 ",.02)
 ;;00185010301
 ;;9002226.02101,"882,00185010310 ",.01)
 ;;00185010310
 ;;9002226.02101,"882,00185010310 ",.02)
 ;;00185010310
 ;;9002226.02101,"882,00185010333 ",.01)
 ;;00185010333
 ;;9002226.02101,"882,00185010333 ",.02)
 ;;00185010333
 ;;9002226.02101,"882,00185010401 ",.01)
 ;;00185010401
 ;;9002226.02101,"882,00185010401 ",.02)
 ;;00185010401
 ;;9002226.02101,"882,00185010410 ",.01)
 ;;00185010410
 ;;9002226.02101,"882,00185010410 ",.02)
 ;;00185010410
 ;;9002226.02101,"882,00185011401 ",.01)
 ;;00185011401
 ;;9002226.02101,"882,00185011401 ",.02)
 ;;00185011401
 ;;9002226.02101,"882,00185011410 ",.01)
 ;;00185011410
 ;;9002226.02101,"882,00185011410 ",.02)
 ;;00185011410
 ;;9002226.02101,"882,00185011450 ",.01)
 ;;00185011450
 ;;9002226.02101,"882,00185011450 ",.02)
 ;;00185011450
 ;;9002226.02101,"882,00185012701 ",.01)
 ;;00185012701
 ;;9002226.02101,"882,00185012701 ",.02)
 ;;00185012701
 ;;9002226.02101,"882,00185012710 ",.01)
 ;;00185012710
 ;;9002226.02101,"882,00185012710 ",.02)
 ;;00185012710
 ;;9002226.02101,"882,00185012750 ",.01)
 ;;00185012750
 ;;9002226.02101,"882,00185012750 ",.02)
 ;;00185012750
 ;;9002226.02101,"882,00185014701 ",.01)
 ;;00185014701
 ;;9002226.02101,"882,00185014701 ",.02)
 ;;00185014701
 ;;9002226.02101,"882,00185014710 ",.01)
 ;;00185014710
 ;;9002226.02101,"882,00185014710 ",.02)
 ;;00185014710
 ;;9002226.02101,"882,00185014750 ",.01)
 ;;00185014750
 ;;9002226.02101,"882,00185014750 ",.02)
 ;;00185014750
 ;;9002226.02101,"882,00185015101 ",.01)
 ;;00185015101
 ;;9002226.02101,"882,00185015101 ",.02)
 ;;00185015101
 ;;9002226.02101,"882,00185015110 ",.01)
 ;;00185015110
 ;;9002226.02101,"882,00185015110 ",.02)
 ;;00185015110
 ;;9002226.02101,"882,00185015201 ",.01)
 ;;00185015201
 ;;9002226.02101,"882,00185015201 ",.02)
 ;;00185015201
 ;;9002226.02101,"882,00185015210 ",.01)
 ;;00185015210
 ;;9002226.02101,"882,00185015210 ",.02)
 ;;00185015210
 ;;9002226.02101,"882,00185017201 ",.01)
 ;;00185017201
 ;;9002226.02101,"882,00185017201 ",.02)
 ;;00185017201
 ;;9002226.02101,"882,00185017210 ",.01)
 ;;00185017210
 ;;9002226.02101,"882,00185017210 ",.02)
 ;;00185017210
 ;;9002226.02101,"882,00185017301 ",.01)
 ;;00185017301
 ;;9002226.02101,"882,00185017301 ",.02)
 ;;00185017301
 ;;9002226.02101,"882,00185017310 ",.01)
 ;;00185017310
 ;;9002226.02101,"882,00185017310 ",.02)
 ;;00185017310
 ;;9002226.02101,"882,00185021401 ",.01)
 ;;00185021401
 ;;9002226.02101,"882,00185021401 ",.02)
 ;;00185021401
 ;;9002226.02101,"882,00185021410 ",.01)
 ;;00185021410
 ;;9002226.02101,"882,00185021410 ",.02)
 ;;00185021410
 ;;9002226.02101,"882,00185021450 ",.01)
 ;;00185021450
 ;;9002226.02101,"882,00185021450 ",.02)
 ;;00185021450
 ;;9002226.02101,"882,00185034101 ",.01)
 ;;00185034101
 ;;9002226.02101,"882,00185034101 ",.02)
 ;;00185034101
 ;;9002226.02101,"882,00185034110 ",.01)
 ;;00185034110
 ;;9002226.02101,"882,00185034110 ",.02)
 ;;00185034110
 ;;9002226.02101,"882,00185034201 ",.01)
 ;;00185034201
 ;;9002226.02101,"882,00185034201 ",.02)
 ;;00185034201
 ;;9002226.02101,"882,00185034210 ",.01)
 ;;00185034210
 ;;9002226.02101,"882,00185034210 ",.02)
 ;;00185034210
 ;;9002226.02101,"882,00185047101 ",.01)
 ;;00185047101
 ;;9002226.02101,"882,00185047101 ",.02)
 ;;00185047101
 ;;9002226.02101,"882,00185047110 ",.01)
 ;;00185047110
 ;;9002226.02101,"882,00185047110 ",.02)
 ;;00185047110
 ;;9002226.02101,"882,00185540001 ",.01)
 ;;00185540001
 ;;9002226.02101,"882,00185540001 ",.02)
 ;;00185540001
 ;;9002226.02101,"882,00185540010 ",.01)
 ;;00185540010
 ;;9002226.02101,"882,00185540010 ",.02)
 ;;00185540010
 ;;9002226.02101,"882,00185540033 ",.01)
 ;;00185540033
 ;;9002226.02101,"882,00185540033 ",.02)
 ;;00185540033
 ;;9002226.02101,"882,00185710001 ",.01)
 ;;00185710001
 ;;9002226.02101,"882,00185710001 ",.02)
 ;;00185710001
 ;;9002226.02101,"882,00185710010 ",.01)
 ;;00185710010
 ;;9002226.02101,"882,00185710010 ",.02)
 ;;00185710010
 ;;9002226.02101,"882,00228269511 ",.01)
 ;;00228269511
 ;;9002226.02101,"882,00228269511 ",.02)
 ;;00228269511
 ;;9002226.02101,"882,00228269550 ",.01)
 ;;00228269550
 ;;9002226.02101,"882,00228269550 ",.02)
 ;;00228269550
 ;;9002226.02101,"882,00228269611 ",.01)
 ;;00228269611
 ;;9002226.02101,"882,00228269611 ",.02)
 ;;00228269611
 ;;9002226.02101,"882,00228269650 ",.01)
 ;;00228269650
 ;;9002226.02101,"882,00228269650 ",.02)
 ;;00228269650
 ;;9002226.02101,"882,00228269711 ",.01)
 ;;00228269711
 ;;9002226.02101,"882,00228269711 ",.02)
 ;;00228269711
 ;;9002226.02101,"882,00228269750 ",.01)
 ;;00228269750
 ;;9002226.02101,"882,00228269750 ",.02)
 ;;00228269750
 ;;9002226.02101,"882,00228270603 ",.01)
 ;;00228270603
 ;;9002226.02101,"882,00228270603 ",.02)
 ;;00228270603
 ;;9002226.02101,"882,00228270611 ",.01)
 ;;00228270611
 ;;9002226.02101,"882,00228270611 ",.02)
 ;;00228270611
 ;;9002226.02101,"882,00228270650 ",.01)
 ;;00228270650
 ;;9002226.02101,"882,00228270650 ",.02)
 ;;00228270650
 ;;9002226.02101,"882,00228270696 ",.01)
 ;;00228270696
 ;;9002226.02101,"882,00228270696 ",.02)
 ;;00228270696
 ;;9002226.02101,"882,00228270703 ",.01)
 ;;00228270703
 ;;9002226.02101,"882,00228270703 ",.02)
 ;;00228270703
 ;;9002226.02101,"882,00228270711 ",.01)
 ;;00228270711
 ;;9002226.02101,"882,00228270711 ",.02)
 ;;00228270711
 ;;9002226.02101,"882,00228270750 ",.01)
 ;;00228270750
 ;;9002226.02101,"882,00228270750 ",.02)
 ;;00228270750
 ;;9002226.02101,"882,00228270796 ",.01)
 ;;00228270796
 ;;9002226.02101,"882,00228270796 ",.02)
 ;;00228270796
 ;;9002226.02101,"882,00228270803 ",.01)
 ;;00228270803
 ;;9002226.02101,"882,00228270803 ",.02)
 ;;00228270803
 ;;9002226.02101,"882,00228270811 ",.01)
 ;;00228270811
 ;;9002226.02101,"882,00228270811 ",.02)
 ;;00228270811
 ;;9002226.02101,"882,00228270850 ",.01)
 ;;00228270850
 ;;9002226.02101,"882,00228270850 ",.02)
 ;;00228270850
 ;;9002226.02101,"882,00228270896 ",.01)
 ;;00228270896
 ;;9002226.02101,"882,00228270896 ",.02)
 ;;00228270896
 ;;9002226.02101,"882,00247127700 ",.01)
 ;;00247127700
 ;;9002226.02101,"882,00247127700 ",.02)
 ;;00247127700
 ;;9002226.02101,"882,00247163530 ",.01)
 ;;00247163530
 ;;9002226.02101,"882,00247163530 ",.02)
 ;;00247163530
 ;;9002226.02101,"882,00247163600 ",.01)
 ;;00247163600
 ;;9002226.02101,"882,00247163600 ",.02)
 ;;00247163600
 ;;9002226.02101,"882,00247163601 ",.01)
 ;;00247163601
 ;;9002226.02101,"882,00247163601 ",.02)
 ;;00247163601
 ;;9002226.02101,"882,00247163614 ",.01)
 ;;00247163614
 ;;9002226.02101,"882,00247163614 ",.02)
 ;;00247163614
 ;;9002226.02101,"882,00247163630 ",.01)
 ;;00247163630
 ;;9002226.02101,"882,00247163630 ",.02)
 ;;00247163630
 ;;9002226.02101,"882,00247163660 ",.01)
 ;;00247163660
 ;;9002226.02101,"882,00247163660 ",.02)
 ;;00247163660
 ;;9002226.02101,"882,00247163690 ",.01)
 ;;00247163690
 ;;9002226.02101,"882,00247163690 ",.02)
 ;;00247163690
 ;;9002226.02101,"882,00247163699 ",.01)
 ;;00247163699
 ;;9002226.02101,"882,00247163699 ",.02)
 ;;00247163699
 ;;9002226.02101,"882,00247163700 ",.01)
 ;;00247163700
 ;;9002226.02101,"882,00247163700 ",.02)
 ;;00247163700
 ;;9002226.02101,"882,00247163730 ",.01)
 ;;00247163730
 ;;9002226.02101,"882,00247163730 ",.02)
 ;;00247163730
 ;;9002226.02101,"882,00247163760 ",.01)
 ;;00247163760
 ;;9002226.02101,"882,00247163760 ",.02)
 ;;00247163760
 ;;9002226.02101,"882,00247188102 ",.01)
 ;;00247188102
 ;;9002226.02101,"882,00247188102 ",.02)
 ;;00247188102
 ;;9002226.02101,"882,00247188105 ",.01)
 ;;00247188105
 ;;9002226.02101,"882,00247188105 ",.02)
 ;;00247188105
 ;;9002226.02101,"882,00247188130 ",.01)
 ;;00247188130
 ;;9002226.02101,"882,00247188130 ",.02)
 ;;00247188130
 ;;9002226.02101,"882,00247188160 ",.01)
 ;;00247188160