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

BGPM5AGC.m

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