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

BGPM5ADZ.m

Go to the documentation of this file.
  1. BGPM5ADZ ;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,881,3101)
  1. ;;@
  1. ;;9002226.02101,"881,00006017399 ",.01)
  1. ;;00006017399
  1. ;;9002226.02101,"881,00006017399 ",.02)
  1. ;;00006017399
  1. ;;9002226.02101,"881,00006072099 ",.01)
  1. ;;00006072099
  1. ;;9002226.02101,"881,00006072099 ",.02)
  1. ;;00006072099
  1. ;;9002226.02101,"881,00054010625 ",.01)
  1. ;;00054010625
  1. ;;9002226.02101,"881,00054010625 ",.02)
  1. ;;00054010625
  1. ;;9002226.02101,"881,00054010720 ",.01)
  1. ;;00054010720
  1. ;;9002226.02101,"881,00054010720 ",.02)
  1. ;;00054010720
  1. ;;9002226.02101,"881,00054010725 ",.01)
  1. ;;00054010725
  1. ;;9002226.02101,"881,00054010725 ",.02)
  1. ;;00054010725
  1. ;;9002226.02101,"881,00054010729 ",.01)
  1. ;;00054010729
  1. ;;9002226.02101,"881,00054010729 ",.02)
  1. ;;00054010729
  1. ;;9002226.02101,"881,00054010820 ",.01)
  1. ;;00054010820
  1. ;;9002226.02101,"881,00054010820 ",.02)
  1. ;;00054010820
  1. ;;9002226.02101,"881,00054010825 ",.01)
  1. ;;00054010825
  1. ;;9002226.02101,"881,00054010825 ",.02)
  1. ;;00054010825
  1. ;;9002226.02101,"881,00054010829 ",.01)
  1. ;;00054010829
  1. ;;9002226.02101,"881,00054010829 ",.02)
  1. ;;00054010829
  1. ;;9002226.02101,"881,00054010925 ",.01)
  1. ;;00054010925
  1. ;;9002226.02101,"881,00054010925 ",.02)
  1. ;;00054010925
  1. ;;9002226.02101,"881,00054010929 ",.01)
  1. ;;00054010929
  1. ;;9002226.02101,"881,00054010929 ",.02)
  1. ;;00054010929
  1. ;;9002226.02101,"881,00054011025 ",.01)
  1. ;;00054011025
  1. ;;9002226.02101,"881,00054011025 ",.02)
  1. ;;00054011025
  1. ;;9002226.02101,"881,00054011125 ",.01)
  1. ;;00054011125
  1. ;;9002226.02101,"881,00054011125 ",.02)
  1. ;;00054011125
  1. ;;9002226.02101,"881,00054011225 ",.01)
  1. ;;00054011225
  1. ;;9002226.02101,"881,00054011225 ",.02)
  1. ;;00054011225
  1. ;;9002226.02101,"881,00056072170 ",.01)
  1. ;;00056072170
  1. ;;9002226.02101,"881,00056072170 ",.02)
  1. ;;00056072170
  1. ;;9002226.02101,"881,00056072190 ",.01)
  1. ;;00056072190
  1. ;;9002226.02101,"881,00056072190 ",.02)
  1. ;;00056072190
  1. ;;9002226.02101,"881,00056072270 ",.01)
  1. ;;00056072270
  1. ;;9002226.02101,"881,00056072270 ",.02)
  1. ;;00056072270
  1. ;;9002226.02101,"881,00056072290 ",.01)
  1. ;;00056072290
  1. ;;9002226.02101,"881,00056072290 ",.02)
  1. ;;00056072290
  1. ;;9002226.02101,"881,00056072470 ",.01)
  1. ;;00056072470
  1. ;;9002226.02101,"881,00056072470 ",.02)
  1. ;;00056072470
  1. ;;9002226.02101,"881,00056072490 ",.01)
  1. ;;00056072490
  1. ;;9002226.02101,"881,00056072490 ",.02)
  1. ;;00056072490
  1. ;;9002226.02101,"881,00056072770 ",.01)
  1. ;;00056072770
  1. ;;9002226.02101,"881,00056072770 ",.02)
  1. ;;00056072770
  1. ;;9002226.02101,"881,00056072790 ",.01)
  1. ;;00056072790
  1. ;;9002226.02101,"881,00056072790 ",.02)
  1. ;;00056072790
  1. ;;9002226.02101,"881,00056073170 ",.01)
  1. ;;00056073170
  1. ;;9002226.02101,"881,00056073170 ",.02)
  1. ;;00056073170
  1. ;;9002226.02101,"881,00056073370 ",.01)
  1. ;;00056073370
  1. ;;9002226.02101,"881,00056073370 ",.02)
  1. ;;00056073370
  1. ;;9002226.02101,"881,00056073970 ",.01)
  1. ;;00056073970
  1. ;;9002226.02101,"881,00056073970 ",.02)
  1. ;;00056073970
  1. ;;9002226.02101,"881,00056074170 ",.01)
  1. ;;00056074170
  1. ;;9002226.02101,"881,00056074170 ",.02)
  1. ;;00056074170
  1. ;;9002226.02101,"881,00068070061 ",.01)
  1. ;;00068070061
  1. ;;9002226.02101,"881,00068070061 ",.02)
  1. ;;00068070061
  1. ;;9002226.02101,"881,00068070065 ",.01)
  1. ;;00068070065
  1. ;;9002226.02101,"881,00068070065 ",.02)
  1. ;;00068070065
  1. ;;9002226.02101,"881,00068070361 ",.01)
  1. ;;00068070361
  1. ;;9002226.02101,"881,00068070361 ",.02)
  1. ;;00068070361
  1. ;;9002226.02101,"881,00068070365 ",.01)
  1. ;;00068070365
  1. ;;9002226.02101,"881,00068070365 ",.02)
  1. ;;00068070365
  1. ;;9002226.02101,"881,00068070561 ",.01)
  1. ;;00068070561
  1. ;;9002226.02101,"881,00068070561 ",.02)
  1. ;;00068070561
  1. ;;9002226.02101,"881,00068070565 ",.01)
  1. ;;00068070565
  1. ;;9002226.02101,"881,00068070565 ",.02)
  1. ;;00068070565
  1. ;;9002226.02101,"881,00078167301 ",.01)
  1. ;;00078167301
  1. ;;9002226.02101,"881,00078167301 ",.02)
  1. ;;00078167301
  1. ;;9002226.02101,"881,00078167331 ",.01)
  1. ;;00078167331
  1. ;;9002226.02101,"881,00078167331 ",.02)
  1. ;;00078167331
  1. ;;9002226.02101,"881,00078167334 ",.01)
  1. ;;00078167334
  1. ;;9002226.02101,"881,00078167334 ",.02)
  1. ;;00078167334
  1. ;;9002226.02101,"881,00093001701 ",.01)
  1. ;;00093001701
  1. ;;9002226.02101,"881,00093001701 ",.02)
  1. ;;00093001701
  1. ;;9002226.02101,"881,00093002601 ",.01)
  1. ;;00093002601
  1. ;;9002226.02101,"881,00093002601 ",.02)
  1. ;;00093002601
  1. ;;9002226.02101,"881,00093002610 ",.01)
  1. ;;00093002610
  1. ;;9002226.02101,"881,00093002610 ",.02)
  1. ;;00093002610
  1. ;;9002226.02101,"881,00093002701 ",.01)
  1. ;;00093002701
  1. ;;9002226.02101,"881,00093002701 ",.02)
  1. ;;00093002701
  1. ;;9002226.02101,"881,00093002750 ",.01)
  1. ;;00093002750
  1. ;;9002226.02101,"881,00093002750 ",.02)
  1. ;;00093002750
  1. ;;9002226.02101,"881,00093002801 ",.01)
  1. ;;00093002801
  1. ;;9002226.02101,"881,00093002801 ",.02)
  1. ;;00093002801
  1. ;;9002226.02101,"881,00093002810 ",.01)
  1. ;;00093002810
  1. ;;9002226.02101,"881,00093002810 ",.02)
  1. ;;00093002810
  1. ;;9002226.02101,"881,00093002850 ",.01)
  1. ;;00093002850
  1. ;;9002226.02101,"881,00093002850 ",.02)
  1. ;;00093002850
  1. ;;9002226.02101,"881,00093002901 ",.01)
  1. ;;00093002901
  1. ;;9002226.02101,"881,00093002901 ",.02)
  1. ;;00093002901
  1. ;;9002226.02101,"881,00093002910 ",.01)
  1. ;;00093002910
  1. ;;9002226.02101,"881,00093002910 ",.02)
  1. ;;00093002910
  1. ;;9002226.02101,"881,00093002950 ",.01)
  1. ;;00093002950
  1. ;;9002226.02101,"881,00093002950 ",.02)
  1. ;;00093002950
  1. ;;9002226.02101,"881,00093017601 ",.01)
  1. ;;00093017601
  1. ;;9002226.02101,"881,00093017601 ",.02)
  1. ;;00093017601
  1. ;;9002226.02101,"881,00093017701 ",.01)
  1. ;;00093017701
  1. ;;9002226.02101,"881,00093017701 ",.02)
  1. ;;00093017701
  1. ;;9002226.02101,"881,00093018101 ",.01)
  1. ;;00093018101
  1. ;;9002226.02101,"881,00093018101 ",.02)
  1. ;;00093018101
  1. ;;9002226.02101,"881,00093018201 ",.01)
  1. ;;00093018201
  1. ;;9002226.02101,"881,00093018201 ",.02)
  1. ;;00093018201
  1. ;;9002226.02101,"881,00093103605 ",.01)
  1. ;;00093103605
  1. ;;9002226.02101,"881,00093103605 ",.02)
  1. ;;00093103605
  1. ;;9002226.02101,"881,00093103705 ",.01)
  1. ;;00093103705
  1. ;;9002226.02101,"881,00093103705 ",.02)
  1. ;;00093103705
  1. ;;9002226.02101,"881,00093104401 ",.01)
  1. ;;00093104401
  1. ;;9002226.02101,"881,00093104401 ",.02)
  1. ;;00093104401
  1. ;;9002226.02101,"881,00093104505 ",.01)
  1. ;;00093104505
  1. ;;9002226.02101,"881,00093104505 ",.02)
  1. ;;00093104505
  1. ;;9002226.02101,"881,00093104598 ",.01)
  1. ;;00093104598
  1. ;;9002226.02101,"881,00093104598 ",.02)
  1. ;;00093104598
  1. ;;9002226.02101,"881,00093105005 ",.01)
  1. ;;00093105005
  1. ;;9002226.02101,"881,00093105005 ",.02)
  1. ;;00093105005
  1. ;;9002226.02101,"881,00093105098 ",.01)
  1. ;;00093105098
  1. ;;9002226.02101,"881,00093105098 ",.02)
  1. ;;00093105098
  1. ;;9002226.02101,"881,00093105105 ",.01)
  1. ;;00093105105
  1. ;;9002226.02101,"881,00093105105 ",.02)
  1. ;;00093105105
  1. ;;9002226.02101,"881,00093105198 ",.01)
  1. ;;00093105198
  1. ;;9002226.02101,"881,00093105198 ",.02)
  1. ;;00093105198
  1. ;;9002226.02101,"881,00093105201 ",.01)
  1. ;;00093105201
  1. ;;9002226.02101,"881,00093105201 ",.02)
  1. ;;00093105201
  1. ;;9002226.02101,"881,00093105210 ",.01)
  1. ;;00093105210
  1. ;;9002226.02101,"881,00093105210 ",.02)
  1. ;;00093105210
  1. ;;9002226.02101,"881,00093105305 ",.01)
  1. ;;00093105305
  1. ;;9002226.02101,"881,00093105305 ",.02)
  1. ;;00093105305
  1. ;;9002226.02101,"881,00093105398 ",.01)
  1. ;;00093105398
  1. ;;9002226.02101,"881,00093105398 ",.02)
  1. ;;00093105398
  1. ;;9002226.02101,"881,00093111210 ",.01)
  1. ;;00093111210
  1. ;;9002226.02101,"881,00093111210 ",.02)
  1. ;;00093111210
  1. ;;9002226.02101,"881,00093111310 ",.01)
  1. ;;00093111310
  1. ;;9002226.02101,"881,00093111310 ",.02)
  1. ;;00093111310
  1. ;;9002226.02101,"881,00093111505 ",.01)
  1. ;;00093111505
  1. ;;9002226.02101,"881,00093111505 ",.02)
  1. ;;00093111505
  1. ;;9002226.02101,"881,00093515001 ",.01)
  1. ;;00093515001
  1. ;;9002226.02101,"881,00093515001 ",.02)
  1. ;;00093515001
  1. ;;9002226.02101,"881,00093521301 ",.01)
  1. ;;00093521301
  1. ;;9002226.02101,"881,00093521301 ",.02)
  1. ;;00093521301
  1. ;;9002226.02101,"881,00093521401 ",.01)
  1. ;;00093521401
  1. ;;9002226.02101,"881,00093521401 ",.02)
  1. ;;00093521401
  1. ;;9002226.02101,"881,00093521501 ",.01)
  1. ;;00093521501
  1. ;;9002226.02101,"881,00093521501 ",.02)
  1. ;;00093521501
  1. ;;9002226.02101,"881,00093545698 ",.01)
  1. ;;00093545698
  1. ;;9002226.02101,"881,00093545698 ",.02)
  1. ;;00093545698
  1. ;;9002226.02101,"881,00093545798 ",.01)
  1. ;;00093545798
  1. ;;9002226.02101,"881,00093545798 ",.02)
  1. ;;00093545798
  1. ;;9002226.02101,"881,00093545898 ",.01)
  1. ;;00093545898
  1. ;;9002226.02101,"881,00093545898 ",.02)
  1. ;;00093545898
  1. ;;9002226.02101,"881,00093545998 ",.01)
  1. ;;00093545998
  1. ;;9002226.02101,"881,00093545998 ",.02)
  1. ;;00093545998
  1. ;;9002226.02101,"881,00093722210 ",.01)
  1. ;;00093722210
  1. ;;9002226.02101,"881,00093722210 ",.02)
  1. ;;00093722210
  1. ;;9002226.02101,"881,00093722298 ",.01)
  1. ;;00093722298
  1. ;;9002226.02101,"881,00093722298 ",.02)
  1. ;;00093722298
  1. ;;9002226.02101,"881,00093722310 ",.01)
  1. ;;00093722310
  1. ;;9002226.02101,"881,00093722310 ",.02)
  1. ;;00093722310
  1. ;;9002226.02101,"881,00093722398 ",.01)
  1. ;;00093722398
  1. ;;9002226.02101,"881,00093722398 ",.02)
  1. ;;00093722398
  1. ;;9002226.02101,"881,00093722410 ",.01)
  1. ;;00093722410
  1. ;;9002226.02101,"881,00093722410 ",.02)
  1. ;;00093722410
  1. ;;9002226.02101,"881,00093722498 ",.01)
  1. ;;00093722498
  1. ;;9002226.02101,"881,00093722498 ",.02)
  1. ;;00093722498
  1. ;;9002226.02101,"881,00093732501 ",.01)
  1. ;;00093732501
  1. ;;9002226.02101,"881,00093732501 ",.02)
  1. ;;00093732501
  1. ;;9002226.02101,"881,00093732601 ",.01)
  1. ;;00093732601
  1. ;;9002226.02101,"881,00093732601 ",.02)
  1. ;;00093732601
  1. ;;9002226.02101,"881,00093743601 ",.01)
  1. ;;00093743601
  1. ;;9002226.02101,"881,00093743601 ",.02)
  1. ;;00093743601
  1. ;;9002226.02101,"881,00093743605 ",.01)
  1. ;;00093743605
  1. ;;9002226.02101,"881,00093743605 ",.02)
  1. ;;00093743605
  1. ;;9002226.02101,"881,00093743701 ",.01)
  1. ;;00093743701
  1. ;;9002226.02101,"881,00093743701 ",.02)
  1. ;;00093743701
  1. ;;9002226.02101,"881,00093743705 ",.01)
  1. ;;00093743705
  1. ;;9002226.02101,"881,00093743705 ",.02)
  1. ;;00093743705
  1. ;;9002226.02101,"881,00093743801 ",.01)
  1. ;;00093743801
  1. ;;9002226.02101,"881,00093743801 ",.02)
  1. ;;00093743801
  1. ;;9002226.02101,"881,00093743805 ",.01)
  1. ;;00093743805
  1. ;;9002226.02101,"881,00093743805 ",.02)
  1. ;;00093743805
  1. ;;9002226.02101,"881,00093813201 ",.01)
  1. ;;00093813201
  1. ;;9002226.02101,"881,00093813201 ",.02)
  1. ;;00093813201
  1. ;;9002226.02101,"881,00093813210 ",.01)
  1. ;;00093813210
  1. ;;9002226.02101,"881,00093813210 ",.02)
  1. ;;00093813210
  1. ;;9002226.02101,"881,00093813301 ",.01)
  1. ;;00093813301
  1. ;;9002226.02101,"881,00093813301 ",.02)
  1. ;;00093813301
  1. ;;9002226.02101,"881,00093813310 ",.01)
  1. ;;00093813310
  1. ;;9002226.02101,"881,00093813310 ",.02)
  1. ;;00093813310
  1. ;;9002226.02101,"881,00093813401 ",.01)
  1. ;;00093813401
  1. ;;9002226.02101,"881,00093813401 ",.02)
  1. ;;00093813401
  1. ;;9002226.02101,"881,00093813410 ",.01)
  1. ;;00093813410
  1. ;;9002226.02101,"881,00093813410 ",.02)
  1. ;;00093813410
  1. ;;9002226.02101,"881,00093813501 ",.01)
  1. ;;00093813501
  1. ;;9002226.02101,"881,00093813501 ",.02)
  1. ;;00093813501
  1. ;;9002226.02101,"881,00143117101 ",.01)
  1. ;;00143117101
  1. ;;9002226.02101,"881,00143117101 ",.02)
  1. ;;00143117101
  1. ;;9002226.02101,"881,00143117109 ",.01)
  1. ;;00143117109
  1. ;;9002226.02101,"881,00143117109 ",.02)
  1. ;;00143117109
  1. ;;9002226.02101,"881,00143117110 ",.01)
  1. ;;00143117110
  1. ;;9002226.02101,"881,00143117110 ",.02)
  1. ;;00143117110
  1. ;;9002226.02101,"881,00143117125 ",.01)
  1. ;;00143117125
  1. ;;9002226.02101,"881,00143117125 ",.02)
  1. ;;00143117125
  1. ;;9002226.02101,"881,00143117130 ",.01)
  1. ;;00143117130
  1. ;;9002226.02101,"881,00143117130 ",.02)
  1. ;;00143117130
  1. ;;9002226.02101,"881,00143117190 ",.01)
  1. ;;00143117190
  1. ;;9002226.02101,"881,00143117190 ",.02)
  1. ;;00143117190
  1. ;;9002226.02101,"881,00143117201 ",.01)
  1. ;;00143117201
  1. ;;9002226.02101,"881,00143117201 ",.02)
  1. ;;00143117201