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

BGPM5AFM.m

Go to the documentation of this file.
BGPM5AFM ;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,"881,67544015915 ",.01)
 ;;67544015915
 ;;9002226.02101,"881,67544015915 ",.02)
 ;;67544015915
 ;;9002226.02101,"881,67544015930 ",.01)
 ;;67544015930
 ;;9002226.02101,"881,67544015930 ",.02)
 ;;67544015930
 ;;9002226.02101,"881,67544015945 ",.01)
 ;;67544015945
 ;;9002226.02101,"881,67544015945 ",.02)
 ;;67544015945
 ;;9002226.02101,"881,67544015960 ",.01)
 ;;67544015960
 ;;9002226.02101,"881,67544015960 ",.02)
 ;;67544015960
 ;;9002226.02101,"881,67544015980 ",.01)
 ;;67544015980
 ;;9002226.02101,"881,67544015980 ",.02)
 ;;67544015980
 ;;9002226.02101,"881,67544016060 ",.01)
 ;;67544016060
 ;;9002226.02101,"881,67544016060 ",.02)
 ;;67544016060
 ;;9002226.02101,"881,67544016080 ",.01)
 ;;67544016080
 ;;9002226.02101,"881,67544016080 ",.02)
 ;;67544016080
 ;;9002226.02101,"881,67544016580 ",.01)
 ;;67544016580
 ;;9002226.02101,"881,67544016580 ",.02)
 ;;67544016580
 ;;9002226.02101,"881,67544016680 ",.01)
 ;;67544016680
 ;;9002226.02101,"881,67544016680 ",.02)
 ;;67544016680
 ;;9002226.02101,"881,67544017330 ",.01)
 ;;67544017330
 ;;9002226.02101,"881,67544017330 ",.02)
 ;;67544017330
 ;;9002226.02101,"881,67544017331 ",.01)
 ;;67544017331
 ;;9002226.02101,"881,67544017331 ",.02)
 ;;67544017331
 ;;9002226.02101,"881,67544017332 ",.01)
 ;;67544017332
 ;;9002226.02101,"881,67544017332 ",.02)
 ;;67544017332
 ;;9002226.02101,"881,67544017345 ",.01)
 ;;67544017345
 ;;9002226.02101,"881,67544017345 ",.02)
 ;;67544017345
 ;;9002226.02101,"881,67544017353 ",.01)
 ;;67544017353
 ;;9002226.02101,"881,67544017353 ",.02)
 ;;67544017353
 ;;9002226.02101,"881,67544017360 ",.01)
 ;;67544017360
 ;;9002226.02101,"881,67544017360 ",.02)
 ;;67544017360
 ;;9002226.02101,"881,67544017430 ",.01)
 ;;67544017430
 ;;9002226.02101,"881,67544017430 ",.02)
 ;;67544017430
 ;;9002226.02101,"881,67544017431 ",.01)
 ;;67544017431
 ;;9002226.02101,"881,67544017431 ",.02)
 ;;67544017431
 ;;9002226.02101,"881,67544017432 ",.01)
 ;;67544017432
 ;;9002226.02101,"881,67544017432 ",.02)
 ;;67544017432
 ;;9002226.02101,"881,67544017445 ",.01)
 ;;67544017445
 ;;9002226.02101,"881,67544017445 ",.02)
 ;;67544017445
 ;;9002226.02101,"881,67544017460 ",.01)
 ;;67544017460
 ;;9002226.02101,"881,67544017460 ",.02)
 ;;67544017460
 ;;9002226.02101,"881,67544017480 ",.01)
 ;;67544017480
 ;;9002226.02101,"881,67544017480 ",.02)
 ;;67544017480
 ;;9002226.02101,"881,67544017580 ",.01)
 ;;67544017580
 ;;9002226.02101,"881,67544017580 ",.02)
 ;;67544017580
 ;;9002226.02101,"881,67544021831 ",.01)
 ;;67544021831
 ;;9002226.02101,"881,67544021831 ",.02)
 ;;67544021831
 ;;9002226.02101,"881,67544021860 ",.01)
 ;;67544021860
 ;;9002226.02101,"881,67544021860 ",.02)
 ;;67544021860
 ;;9002226.02101,"881,67544021882 ",.01)
 ;;67544021882
 ;;9002226.02101,"881,67544021882 ",.02)
 ;;67544021882
 ;;9002226.02101,"881,67544021915 ",.01)
 ;;67544021915
 ;;9002226.02101,"881,67544021915 ",.02)
 ;;67544021915
 ;;9002226.02101,"881,67544021930 ",.01)
 ;;67544021930
 ;;9002226.02101,"881,67544021930 ",.02)
 ;;67544021930
 ;;9002226.02101,"881,67544021931 ",.01)
 ;;67544021931
 ;;9002226.02101,"881,67544021931 ",.02)
 ;;67544021931
 ;;9002226.02101,"881,67544021932 ",.01)
 ;;67544021932
 ;;9002226.02101,"881,67544021932 ",.02)
 ;;67544021932
 ;;9002226.02101,"881,67544021945 ",.01)
 ;;67544021945
 ;;9002226.02101,"881,67544021945 ",.02)
 ;;67544021945
 ;;9002226.02101,"881,67544021960 ",.01)
 ;;67544021960
 ;;9002226.02101,"881,67544021960 ",.02)
 ;;67544021960
 ;;9002226.02101,"881,67544025060 ",.01)
 ;;67544025060
 ;;9002226.02101,"881,67544025060 ",.02)
 ;;67544025060
 ;;9002226.02101,"881,67544027660 ",.01)
 ;;67544027660
 ;;9002226.02101,"881,67544027660 ",.02)
 ;;67544027660
 ;;9002226.02101,"881,67544030630 ",.01)
 ;;67544030630
 ;;9002226.02101,"881,67544030630 ",.02)
 ;;67544030630
 ;;9002226.02101,"881,67544030640 ",.01)
 ;;67544030640
 ;;9002226.02101,"881,67544030640 ",.02)
 ;;67544030640
 ;;9002226.02101,"881,67544030645 ",.01)
 ;;67544030645
 ;;9002226.02101,"881,67544030645 ",.02)
 ;;67544030645
 ;;9002226.02101,"881,67544030660 ",.01)
 ;;67544030660
 ;;9002226.02101,"881,67544030660 ",.02)
 ;;67544030660
 ;;9002226.02101,"881,67544031130 ",.01)
 ;;67544031130
 ;;9002226.02101,"881,67544031130 ",.02)
 ;;67544031130
 ;;9002226.02101,"881,67544031140 ",.01)
 ;;67544031140
 ;;9002226.02101,"881,67544031140 ",.02)
 ;;67544031140
 ;;9002226.02101,"881,67544031145 ",.01)
 ;;67544031145
 ;;9002226.02101,"881,67544031145 ",.02)
 ;;67544031145
 ;;9002226.02101,"881,67544031580 ",.01)
 ;;67544031580
 ;;9002226.02101,"881,67544031580 ",.02)
 ;;67544031580
 ;;9002226.02101,"881,67544032110 ",.01)
 ;;67544032110
 ;;9002226.02101,"881,67544032110 ",.02)
 ;;67544032110
 ;;9002226.02101,"881,67544032115 ",.01)
 ;;67544032115
 ;;9002226.02101,"881,67544032115 ",.02)
 ;;67544032115
 ;;9002226.02101,"881,67544032130 ",.01)
 ;;67544032130
 ;;9002226.02101,"881,67544032130 ",.02)
 ;;67544032130
 ;;9002226.02101,"881,67544032145 ",.01)
 ;;67544032145
 ;;9002226.02101,"881,67544032145 ",.02)
 ;;67544032145
 ;;9002226.02101,"881,67544032160 ",.01)
 ;;67544032160
 ;;9002226.02101,"881,67544032160 ",.02)
 ;;67544032160
 ;;9002226.02101,"881,67544032215 ",.01)
 ;;67544032215
 ;;9002226.02101,"881,67544032215 ",.02)
 ;;67544032215
 ;;9002226.02101,"881,67544032230 ",.01)
 ;;67544032230
 ;;9002226.02101,"881,67544032230 ",.02)
 ;;67544032230
 ;;9002226.02101,"881,67544032245 ",.01)
 ;;67544032245
 ;;9002226.02101,"881,67544032245 ",.02)
 ;;67544032245
 ;;9002226.02101,"881,67544032253 ",.01)
 ;;67544032253
 ;;9002226.02101,"881,67544032253 ",.02)
 ;;67544032253
 ;;9002226.02101,"881,67544032260 ",.01)
 ;;67544032260
 ;;9002226.02101,"881,67544032260 ",.02)
 ;;67544032260
 ;;9002226.02101,"881,67544032270 ",.01)
 ;;67544032270
 ;;9002226.02101,"881,67544032270 ",.02)
 ;;67544032270
 ;;9002226.02101,"881,67544032273 ",.01)
 ;;67544032273
 ;;9002226.02101,"881,67544032273 ",.02)
 ;;67544032273
 ;;9002226.02101,"881,67544032280 ",.01)
 ;;67544032280
 ;;9002226.02101,"881,67544032280 ",.02)
 ;;67544032280
 ;;9002226.02101,"881,67544032292 ",.01)
 ;;67544032292
 ;;9002226.02101,"881,67544032292 ",.02)
 ;;67544032292
 ;;9002226.02101,"881,67544032294 ",.01)
 ;;67544032294
 ;;9002226.02101,"881,67544032294 ",.02)
 ;;67544032294
 ;;9002226.02101,"881,67544035080 ",.01)
 ;;67544035080
 ;;9002226.02101,"881,67544035080 ",.02)
 ;;67544035080
 ;;9002226.02101,"881,67544037760 ",.01)
 ;;67544037760
 ;;9002226.02101,"881,67544037760 ",.02)
 ;;67544037760
 ;;9002226.02101,"881,67544038030 ",.01)
 ;;67544038030
 ;;9002226.02101,"881,67544038030 ",.02)
 ;;67544038030
 ;;9002226.02101,"881,67544038060 ",.01)
 ;;67544038060
 ;;9002226.02101,"881,67544038060 ",.02)
 ;;67544038060
 ;;9002226.02101,"881,67544038115 ",.01)
 ;;67544038115
 ;;9002226.02101,"881,67544038115 ",.02)
 ;;67544038115
 ;;9002226.02101,"881,67544038130 ",.01)
 ;;67544038130
 ;;9002226.02101,"881,67544038130 ",.02)
 ;;67544038130
 ;;9002226.02101,"881,67544038145 ",.01)
 ;;67544038145
 ;;9002226.02101,"881,67544038145 ",.02)
 ;;67544038145
 ;;9002226.02101,"881,67544038153 ",.01)
 ;;67544038153
 ;;9002226.02101,"881,67544038153 ",.02)
 ;;67544038153
 ;;9002226.02101,"881,67544038160 ",.01)
 ;;67544038160
 ;;9002226.02101,"881,67544038160 ",.02)
 ;;67544038160
 ;;9002226.02101,"881,67544038170 ",.01)
 ;;67544038170
 ;;9002226.02101,"881,67544038170 ",.02)
 ;;67544038170
 ;;9002226.02101,"881,67544038173 ",.01)
 ;;67544038173
 ;;9002226.02101,"881,67544038173 ",.02)
 ;;67544038173
 ;;9002226.02101,"881,67544038180 ",.01)
 ;;67544038180
 ;;9002226.02101,"881,67544038180 ",.02)
 ;;67544038180
 ;;9002226.02101,"881,67544038192 ",.01)
 ;;67544038192
 ;;9002226.02101,"881,67544038192 ",.02)
 ;;67544038192
 ;;9002226.02101,"881,67544038194 ",.01)
 ;;67544038194
 ;;9002226.02101,"881,67544038194 ",.02)
 ;;67544038194
 ;;9002226.02101,"881,67544041860 ",.01)
 ;;67544041860
 ;;9002226.02101,"881,67544041860 ",.02)
 ;;67544041860
 ;;9002226.02101,"881,67544043115 ",.01)
 ;;67544043115
 ;;9002226.02101,"881,67544043115 ",.02)
 ;;67544043115
 ;;9002226.02101,"881,67544043130 ",.01)
 ;;67544043130
 ;;9002226.02101,"881,67544043130 ",.02)
 ;;67544043130
 ;;9002226.02101,"881,67544043145 ",.01)
 ;;67544043145
 ;;9002226.02101,"881,67544043145 ",.02)
 ;;67544043145
 ;;9002226.02101,"881,67544043153 ",.01)
 ;;67544043153
 ;;9002226.02101,"881,67544043153 ",.02)
 ;;67544043153
 ;;9002226.02101,"881,67544043160 ",.01)
 ;;67544043160
 ;;9002226.02101,"881,67544043160 ",.02)
 ;;67544043160
 ;;9002226.02101,"881,67544043170 ",.01)
 ;;67544043170
 ;;9002226.02101,"881,67544043170 ",.02)
 ;;67544043170
 ;;9002226.02101,"881,67544043173 ",.01)
 ;;67544043173
 ;;9002226.02101,"881,67544043173 ",.02)
 ;;67544043173
 ;;9002226.02101,"881,67544043180 ",.01)
 ;;67544043180
 ;;9002226.02101,"881,67544043180 ",.02)
 ;;67544043180
 ;;9002226.02101,"881,67544043192 ",.01)
 ;;67544043192
 ;;9002226.02101,"881,67544043192 ",.02)
 ;;67544043192
 ;;9002226.02101,"881,67544043194 ",.01)
 ;;67544043194
 ;;9002226.02101,"881,67544043194 ",.02)
 ;;67544043194
 ;;9002226.02101,"881,67544045415 ",.01)
 ;;67544045415
 ;;9002226.02101,"881,67544045415 ",.02)
 ;;67544045415
 ;;9002226.02101,"881,67544045430 ",.01)
 ;;67544045430
 ;;9002226.02101,"881,67544045430 ",.02)
 ;;67544045430
 ;;9002226.02101,"881,67544045440 ",.01)
 ;;67544045440
 ;;9002226.02101,"881,67544045440 ",.02)
 ;;67544045440
 ;;9002226.02101,"881,67544045445 ",.01)
 ;;67544045445
 ;;9002226.02101,"881,67544045445 ",.02)
 ;;67544045445
 ;;9002226.02101,"881,67544045460 ",.01)
 ;;67544045460
 ;;9002226.02101,"881,67544045460 ",.02)
 ;;67544045460
 ;;9002226.02101,"881,67544048915 ",.01)
 ;;67544048915
 ;;9002226.02101,"881,67544048915 ",.02)
 ;;67544048915
 ;;9002226.02101,"881,67544048930 ",.01)
 ;;67544048930
 ;;9002226.02101,"881,67544048930 ",.02)
 ;;67544048930
 ;;9002226.02101,"881,67544048960 ",.01)
 ;;67544048960
 ;;9002226.02101,"881,67544048960 ",.02)
 ;;67544048960
 ;;9002226.02101,"881,67544055930 ",.01)
 ;;67544055930
 ;;9002226.02101,"881,67544055930 ",.02)
 ;;67544055930
 ;;9002226.02101,"881,67544055932 ",.01)
 ;;67544055932
 ;;9002226.02101,"881,67544055932 ",.02)
 ;;67544055932
 ;;9002226.02101,"881,67544062131 ",.01)
 ;;67544062131
 ;;9002226.02101,"881,67544062131 ",.02)
 ;;67544062131
 ;;9002226.02101,"881,67544062145 ",.01)
 ;;67544062145
 ;;9002226.02101,"881,67544062145 ",.02)
 ;;67544062145
 ;;9002226.02101,"881,67544062160 ",.01)
 ;;67544062160
 ;;9002226.02101,"881,67544062160 ",.02)
 ;;67544062160
 ;;9002226.02101,"881,67544066731 ",.01)
 ;;67544066731
 ;;9002226.02101,"881,67544066731 ",.02)
 ;;67544066731
 ;;9002226.02101,"881,67544066760 ",.01)
 ;;67544066760
 ;;9002226.02101,"881,67544066760 ",.02)
 ;;67544066760
 ;;9002226.02101,"881,67544067832 ",.01)
 ;;67544067832
 ;;9002226.02101,"881,67544067832 ",.02)
 ;;67544067832
 ;;9002226.02101,"881,67544067845 ",.01)
 ;;67544067845
 ;;9002226.02101,"881,67544067845 ",.02)
 ;;67544067845
 ;;9002226.02101,"881,67544067860 ",.01)
 ;;67544067860
 ;;9002226.02101,"881,67544067860 ",.02)
 ;;67544067860
 ;;9002226.02101,"881,67544068731 ",.01)
 ;;67544068731
 ;;9002226.02101,"881,67544068731 ",.02)
 ;;67544068731
 ;;9002226.02101,"881,67544068732 ",.01)
 ;;67544068732
 ;;9002226.02101,"881,67544068732 ",.02)
 ;;67544068732
 ;;9002226.02101,"881,67544070531 ",.01)
 ;;67544070531
 ;;9002226.02101,"881,67544070531 ",.02)
 ;;67544070531