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

BGPM5AJA.m

Go to the documentation of this file.
BGPM5AJA ;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,00247180200 ",.01)
 ;;00247180200
 ;;9002226.02101,"889,00247180200 ",.02)
 ;;00247180200
 ;;9002226.02101,"889,00247180230 ",.01)
 ;;00247180230
 ;;9002226.02101,"889,00247180230 ",.02)
 ;;00247180230
 ;;9002226.02101,"889,00247180260 ",.01)
 ;;00247180260
 ;;9002226.02101,"889,00247180260 ",.02)
 ;;00247180260
 ;;9002226.02101,"889,00247180277 ",.01)
 ;;00247180277
 ;;9002226.02101,"889,00247180277 ",.02)
 ;;00247180277
 ;;9002226.02101,"889,00247180290 ",.01)
 ;;00247180290
 ;;9002226.02101,"889,00247180290 ",.02)
 ;;00247180290
 ;;9002226.02101,"889,00247180300 ",.01)
 ;;00247180300
 ;;9002226.02101,"889,00247180300 ",.02)
 ;;00247180300
 ;;9002226.02101,"889,00247180330 ",.01)
 ;;00247180330
 ;;9002226.02101,"889,00247180330 ",.02)
 ;;00247180330
 ;;9002226.02101,"889,00247180360 ",.01)
 ;;00247180360
 ;;9002226.02101,"889,00247180360 ",.02)
 ;;00247180360
 ;;9002226.02101,"889,00247180377 ",.01)
 ;;00247180377
 ;;9002226.02101,"889,00247180377 ",.02)
 ;;00247180377
 ;;9002226.02101,"889,00247180390 ",.01)
 ;;00247180390
 ;;9002226.02101,"889,00247180390 ",.02)
 ;;00247180390
 ;;9002226.02101,"889,00247188700 ",.01)
 ;;00247188700
 ;;9002226.02101,"889,00247188700 ",.02)
 ;;00247188700
 ;;9002226.02101,"889,00247188730 ",.01)
 ;;00247188730
 ;;9002226.02101,"889,00247188730 ",.02)
 ;;00247188730
 ;;9002226.02101,"889,00247188760 ",.01)
 ;;00247188760
 ;;9002226.02101,"889,00247188760 ",.02)
 ;;00247188760
 ;;9002226.02101,"889,00247188777 ",.01)
 ;;00247188777
 ;;9002226.02101,"889,00247188777 ",.02)
 ;;00247188777
 ;;9002226.02101,"889,00247188790 ",.01)
 ;;00247188790
 ;;9002226.02101,"889,00247188790 ",.02)
 ;;00247188790
 ;;9002226.02101,"889,00247188800 ",.01)
 ;;00247188800
 ;;9002226.02101,"889,00247188800 ",.02)
 ;;00247188800
 ;;9002226.02101,"889,00247188830 ",.01)
 ;;00247188830
 ;;9002226.02101,"889,00247188830 ",.02)
 ;;00247188830
 ;;9002226.02101,"889,00247188860 ",.01)
 ;;00247188860
 ;;9002226.02101,"889,00247188860 ",.02)
 ;;00247188860
 ;;9002226.02101,"889,00247188877 ",.01)
 ;;00247188877
 ;;9002226.02101,"889,00247188877 ",.02)
 ;;00247188877
 ;;9002226.02101,"889,00247188890 ",.01)
 ;;00247188890
 ;;9002226.02101,"889,00247188890 ",.02)
 ;;00247188890
 ;;9002226.02101,"889,00247188900 ",.01)
 ;;00247188900
 ;;9002226.02101,"889,00247188900 ",.02)
 ;;00247188900
 ;;9002226.02101,"889,00247188930 ",.01)
 ;;00247188930
 ;;9002226.02101,"889,00247188930 ",.02)
 ;;00247188930
 ;;9002226.02101,"889,00247188960 ",.01)
 ;;00247188960
 ;;9002226.02101,"889,00247188960 ",.02)
 ;;00247188960
 ;;9002226.02101,"889,00247188977 ",.01)
 ;;00247188977
 ;;9002226.02101,"889,00247188977 ",.02)
 ;;00247188977
 ;;9002226.02101,"889,00247188990 ",.01)
 ;;00247188990
 ;;9002226.02101,"889,00247188990 ",.02)
 ;;00247188990
 ;;9002226.02101,"889,00247192300 ",.01)
 ;;00247192300
 ;;9002226.02101,"889,00247192300 ",.02)
 ;;00247192300
 ;;9002226.02101,"889,00247192360 ",.01)
 ;;00247192360
 ;;9002226.02101,"889,00247192360 ",.02)
 ;;00247192360
 ;;9002226.02101,"889,00247207630 ",.01)
 ;;00247207630
 ;;9002226.02101,"889,00247207630 ",.02)
 ;;00247207630
 ;;9002226.02101,"889,00247207660 ",.01)
 ;;00247207660
 ;;9002226.02101,"889,00247207660 ",.02)
 ;;00247207660
 ;;9002226.02101,"889,00247233100 ",.01)
 ;;00247233100
 ;;9002226.02101,"889,00247233100 ",.02)
 ;;00247233100
 ;;9002226.02101,"889,00247233130 ",.01)
 ;;00247233130
 ;;9002226.02101,"889,00247233130 ",.02)
 ;;00247233130
 ;;9002226.02101,"889,00247233160 ",.01)
 ;;00247233160
 ;;9002226.02101,"889,00247233160 ",.02)
 ;;00247233160
 ;;9002226.02101,"889,00247233177 ",.01)
 ;;00247233177
 ;;9002226.02101,"889,00247233177 ",.02)
 ;;00247233177
 ;;9002226.02101,"889,00247233190 ",.01)
 ;;00247233190
 ;;9002226.02101,"889,00247233190 ",.02)
 ;;00247233190
 ;;9002226.02101,"889,00247233200 ",.01)
 ;;00247233200
 ;;9002226.02101,"889,00247233200 ",.02)
 ;;00247233200
 ;;9002226.02101,"889,00247233230 ",.01)
 ;;00247233230
 ;;9002226.02101,"889,00247233230 ",.02)
 ;;00247233230
 ;;9002226.02101,"889,00247233260 ",.01)
 ;;00247233260
 ;;9002226.02101,"889,00247233260 ",.02)
 ;;00247233260
 ;;9002226.02101,"889,00247233277 ",.01)
 ;;00247233277
 ;;9002226.02101,"889,00247233277 ",.02)
 ;;00247233277
 ;;9002226.02101,"889,00247233290 ",.01)
 ;;00247233290
 ;;9002226.02101,"889,00247233290 ",.02)
 ;;00247233290
 ;;9002226.02101,"889,00247233300 ",.01)
 ;;00247233300
 ;;9002226.02101,"889,00247233300 ",.02)
 ;;00247233300
 ;;9002226.02101,"889,00247233330 ",.01)
 ;;00247233330
 ;;9002226.02101,"889,00247233330 ",.02)
 ;;00247233330
 ;;9002226.02101,"889,00247233360 ",.01)
 ;;00247233360
 ;;9002226.02101,"889,00247233360 ",.02)
 ;;00247233360
 ;;9002226.02101,"889,00247233377 ",.01)
 ;;00247233377
 ;;9002226.02101,"889,00247233377 ",.02)
 ;;00247233377
 ;;9002226.02101,"889,00247233390 ",.01)
 ;;00247233390
 ;;9002226.02101,"889,00247233390 ",.02)
 ;;00247233390
 ;;9002226.02101,"889,00247233400 ",.01)
 ;;00247233400
 ;;9002226.02101,"889,00247233400 ",.02)
 ;;00247233400
 ;;9002226.02101,"889,00247233430 ",.01)
 ;;00247233430
 ;;9002226.02101,"889,00247233430 ",.02)
 ;;00247233430
 ;;9002226.02101,"889,00247233460 ",.01)
 ;;00247233460
 ;;9002226.02101,"889,00247233460 ",.02)
 ;;00247233460
 ;;9002226.02101,"889,00247233477 ",.01)
 ;;00247233477
 ;;9002226.02101,"889,00247233477 ",.02)
 ;;00247233477
 ;;9002226.02101,"889,00247233490 ",.01)
 ;;00247233490
 ;;9002226.02101,"889,00247233490 ",.02)
 ;;00247233490
 ;;9002226.02101,"889,00310010110 ",.01)
 ;;00310010110
 ;;9002226.02101,"889,00310010110 ",.02)
 ;;00310010110
 ;;9002226.02101,"889,00310010510 ",.01)
 ;;00310010510
 ;;9002226.02101,"889,00310010510 ",.02)
 ;;00310010510
 ;;9002226.02101,"889,00310010710 ",.01)
 ;;00310010710
 ;;9002226.02101,"889,00310010710 ",.02)
 ;;00310010710
 ;;9002226.02101,"889,00310010801 ",.01)
 ;;00310010801
 ;;9002226.02101,"889,00310010801 ",.02)
 ;;00310010801
 ;;9002226.02101,"889,00310010802 ",.01)
 ;;00310010802
 ;;9002226.02101,"889,00310010802 ",.02)
 ;;00310010802
 ;;9002226.02101,"889,00310010803 ",.01)
 ;;00310010803
 ;;9002226.02101,"889,00310010803 ",.02)
 ;;00310010803
 ;;9002226.02101,"889,00310010810 ",.01)
 ;;00310010810
 ;;9002226.02101,"889,00310010810 ",.02)
 ;;00310010810
 ;;9002226.02101,"889,00310011510 ",.01)
 ;;00310011510
 ;;9002226.02101,"889,00310011510 ",.02)
 ;;00310011510
 ;;9002226.02101,"889,00310011710 ",.01)
 ;;00310011710
 ;;9002226.02101,"889,00310011710 ",.02)
 ;;00310011710
 ;;9002226.02101,"889,00339516511 ",.01)
 ;;00339516511
 ;;9002226.02101,"889,00339516511 ",.02)
 ;;00339516511
 ;;9002226.02101,"889,00339516711 ",.01)
 ;;00339516711
 ;;9002226.02101,"889,00339516711 ",.02)
 ;;00339516711
 ;;9002226.02101,"889,00339516714 ",.01)
 ;;00339516714
 ;;9002226.02101,"889,00339516714 ",.02)
 ;;00339516714
 ;;9002226.02101,"889,00339517111 ",.01)
 ;;00339517111
 ;;9002226.02101,"889,00339517111 ",.02)
 ;;00339517111
 ;;9002226.02101,"889,00339531512 ",.01)
 ;;00339531512
 ;;9002226.02101,"889,00339531512 ",.02)
 ;;00339531512
 ;;9002226.02101,"889,00339531712 ",.01)
 ;;00339531712
 ;;9002226.02101,"889,00339531712 ",.02)
 ;;00339531712
 ;;9002226.02101,"889,00339531912 ",.01)
 ;;00339531912
 ;;9002226.02101,"889,00339531912 ",.02)
 ;;00339531912
 ;;9002226.02101,"889,00339532012 ",.01)
 ;;00339532012
 ;;9002226.02101,"889,00339532012 ",.02)
 ;;00339532012
 ;;9002226.02101,"889,00339532112 ",.01)
 ;;00339532112
 ;;9002226.02101,"889,00339532112 ",.02)
 ;;00339532112
 ;;9002226.02101,"889,00339575312 ",.01)
 ;;00339575312
 ;;9002226.02101,"889,00339575312 ",.02)
 ;;00339575312
 ;;9002226.02101,"889,00339575512 ",.01)
 ;;00339575512
 ;;9002226.02101,"889,00339575512 ",.02)
 ;;00339575512
 ;;9002226.02101,"889,00339575712 ",.01)
 ;;00339575712
 ;;9002226.02101,"889,00339575712 ",.02)
 ;;00339575712
 ;;9002226.02101,"889,00339575912 ",.01)
 ;;00339575912
 ;;9002226.02101,"889,00339575912 ",.02)
 ;;00339575912
 ;;9002226.02101,"889,00339586411 ",.01)
 ;;00339586411
 ;;9002226.02101,"889,00339586411 ",.02)
 ;;00339586411
 ;;9002226.02101,"889,00339586414 ",.01)
 ;;00339586414
 ;;9002226.02101,"889,00339586414 ",.02)
 ;;00339586414
 ;;9002226.02101,"889,00378001801 ",.01)
 ;;00378001801
 ;;9002226.02101,"889,00378001801 ",.02)
 ;;00378001801
 ;;9002226.02101,"889,00378001802 ",.01)
 ;;00378001802
 ;;9002226.02101,"889,00378001802 ",.02)
 ;;00378001802
 ;;9002226.02101,"889,00378001805 ",.01)
 ;;00378001805
 ;;9002226.02101,"889,00378001805 ",.02)
 ;;00378001805
 ;;9002226.02101,"889,00378001807 ",.01)
 ;;00378001807
 ;;9002226.02101,"889,00378001807 ",.02)
 ;;00378001807
 ;;9002226.02101,"889,00378001891 ",.01)
 ;;00378001891
 ;;9002226.02101,"889,00378001891 ",.02)
 ;;00378001891
 ;;9002226.02101,"889,00378002801 ",.01)
 ;;00378002801
 ;;9002226.02101,"889,00378002801 ",.02)
 ;;00378002801
 ;;9002226.02101,"889,00378003201 ",.01)
 ;;00378003201
 ;;9002226.02101,"889,00378003201 ",.02)
 ;;00378003201
 ;;9002226.02101,"889,00378003202 ",.01)
 ;;00378003202
 ;;9002226.02101,"889,00378003202 ",.02)
 ;;00378003202
 ;;9002226.02101,"889,00378003204 ",.01)
 ;;00378003204
 ;;9002226.02101,"889,00378003204 ",.02)
 ;;00378003204
 ;;9002226.02101,"889,00378003210 ",.01)
 ;;00378003210
 ;;9002226.02101,"889,00378003210 ",.02)
 ;;00378003210
 ;;9002226.02101,"889,00378004701 ",.01)
 ;;00378004701
 ;;9002226.02101,"889,00378004701 ",.02)
 ;;00378004701
 ;;9002226.02101,"889,00378004702 ",.01)
 ;;00378004702
 ;;9002226.02101,"889,00378004702 ",.02)
 ;;00378004702
 ;;9002226.02101,"889,00378004704 ",.01)
 ;;00378004704
 ;;9002226.02101,"889,00378004704 ",.02)
 ;;00378004704
 ;;9002226.02101,"889,00378004710 ",.01)
 ;;00378004710
 ;;9002226.02101,"889,00378004710 ",.02)
 ;;00378004710
 ;;9002226.02101,"889,00378005201 ",.01)
 ;;00378005201
 ;;9002226.02101,"889,00378005201 ",.02)
 ;;00378005201
 ;;9002226.02101,"889,00378005501 ",.01)
 ;;00378005501
 ;;9002226.02101,"889,00378005501 ",.02)
 ;;00378005501
 ;;9002226.02101,"889,00378012701 ",.01)
 ;;00378012701
 ;;9002226.02101,"889,00378012701 ",.02)
 ;;00378012701
 ;;9002226.02101,"889,00378018201 ",.01)
 ;;00378018201
 ;;9002226.02101,"889,00378018201 ",.02)
 ;;00378018201
 ;;9002226.02101,"889,00378018210 ",.01)
 ;;00378018210
 ;;9002226.02101,"889,00378018210 ",.02)
 ;;00378018210
 ;;9002226.02101,"889,00378018301 ",.01)
 ;;00378018301
 ;;9002226.02101,"889,00378018301 ",.02)
 ;;00378018301
 ;;9002226.02101,"889,00378018310 ",.01)
 ;;00378018310
 ;;9002226.02101,"889,00378018310 ",.02)
 ;;00378018310
 ;;9002226.02101,"889,00378018401 ",.01)
 ;;00378018401
 ;;9002226.02101,"889,00378018401 ",.02)
 ;;00378018401
 ;;9002226.02101,"889,00378018410 ",.01)
 ;;00378018410
 ;;9002226.02101,"889,00378018410 ",.02)
 ;;00378018410
 ;;9002226.02101,"889,00378018501 ",.01)
 ;;00378018501
 ;;9002226.02101,"889,00378018501 ",.02)
 ;;00378018501
 ;;9002226.02101,"889,00378018505 ",.01)
 ;;00378018505
 ;;9002226.02101,"889,00378018505 ",.02)
 ;;00378018505
 ;;9002226.02101,"889,00378018701 ",.01)
 ;;00378018701
 ;;9002226.02101,"889,00378018701 ",.02)
 ;;00378018701
 ;;9002226.02101,"889,00378018705 ",.01)
 ;;00378018705
 ;;9002226.02101,"889,00378018705 ",.02)
 ;;00378018705
 ;;9002226.02101,"889,00378021801 ",.01)
 ;;00378021801
 ;;9002226.02101,"889,00378021801 ",.02)
 ;;00378021801
 ;;9002226.02101,"889,00378021810 ",.01)
 ;;00378021810
 ;;9002226.02101,"889,00378021810 ",.02)
 ;;00378021810