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

BGPM5ACP.m

Go to the documentation of this file.
BGPM5ACP ;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,"846,00247176077 ",.02)
 ;;00247176077
 ;;9002226.02101,"846,00247206930 ",.01)
 ;;00247206930
 ;;9002226.02101,"846,00247206930 ",.02)
 ;;00247206930
 ;;9002226.02101,"846,00247206960 ",.01)
 ;;00247206960
 ;;9002226.02101,"846,00247206960 ",.02)
 ;;00247206960
 ;;9002226.02101,"846,00247206990 ",.01)
 ;;00247206990
 ;;9002226.02101,"846,00247206990 ",.02)
 ;;00247206990
 ;;9002226.02101,"846,00247215900 ",.01)
 ;;00247215900
 ;;9002226.02101,"846,00247215900 ",.02)
 ;;00247215900
 ;;9002226.02101,"846,00247215930 ",.01)
 ;;00247215930
 ;;9002226.02101,"846,00247215930 ",.02)
 ;;00247215930
 ;;9002226.02101,"846,00247216030 ",.01)
 ;;00247216030
 ;;9002226.02101,"846,00247216030 ",.02)
 ;;00247216030
 ;;9002226.02101,"846,00247228830 ",.01)
 ;;00247228830
 ;;9002226.02101,"846,00247228830 ",.02)
 ;;00247228830
 ;;9002226.02101,"846,00247228860 ",.01)
 ;;00247228860
 ;;9002226.02101,"846,00247228860 ",.02)
 ;;00247228860
 ;;9002226.02101,"846,00247228877 ",.01)
 ;;00247228877
 ;;9002226.02101,"846,00247228877 ",.02)
 ;;00247228877
 ;;9002226.02101,"846,00247228890 ",.01)
 ;;00247228890
 ;;9002226.02101,"846,00247228890 ",.02)
 ;;00247228890
 ;;9002226.02101,"846,00247228930 ",.01)
 ;;00247228930
 ;;9002226.02101,"846,00247228930 ",.02)
 ;;00247228930
 ;;9002226.02101,"846,00247228960 ",.01)
 ;;00247228960
 ;;9002226.02101,"846,00247228960 ",.02)
 ;;00247228960
 ;;9002226.02101,"846,00247228977 ",.01)
 ;;00247228977
 ;;9002226.02101,"846,00247228977 ",.02)
 ;;00247228977
 ;;9002226.02101,"846,00247228990 ",.01)
 ;;00247228990
 ;;9002226.02101,"846,00247228990 ",.02)
 ;;00247228990
 ;;9002226.02101,"846,00247229030 ",.01)
 ;;00247229030
 ;;9002226.02101,"846,00247229030 ",.02)
 ;;00247229030
 ;;9002226.02101,"846,00247229060 ",.01)
 ;;00247229060
 ;;9002226.02101,"846,00247229060 ",.02)
 ;;00247229060
 ;;9002226.02101,"846,00247229077 ",.01)
 ;;00247229077
 ;;9002226.02101,"846,00247229077 ",.02)
 ;;00247229077
 ;;9002226.02101,"846,00247229090 ",.01)
 ;;00247229090
 ;;9002226.02101,"846,00247229090 ",.02)
 ;;00247229090
 ;;9002226.02101,"846,00247229130 ",.01)
 ;;00247229130
 ;;9002226.02101,"846,00247229130 ",.02)
 ;;00247229130
 ;;9002226.02101,"846,00247229160 ",.01)
 ;;00247229160
 ;;9002226.02101,"846,00247229160 ",.02)
 ;;00247229160
 ;;9002226.02101,"846,00247229230 ",.01)
 ;;00247229230
 ;;9002226.02101,"846,00247229230 ",.02)
 ;;00247229230
 ;;9002226.02101,"846,00247229260 ",.01)
 ;;00247229260
 ;;9002226.02101,"846,00247229260 ",.02)
 ;;00247229260
 ;;9002226.02101,"846,00247229330 ",.01)
 ;;00247229330
 ;;9002226.02101,"846,00247229330 ",.02)
 ;;00247229330
 ;;9002226.02101,"846,00247229360 ",.01)
 ;;00247229360
 ;;9002226.02101,"846,00247229360 ",.02)
 ;;00247229360
 ;;9002226.02101,"846,00339635811 ",.01)
 ;;00339635811
 ;;9002226.02101,"846,00339635811 ",.02)
 ;;00339635811
 ;;9002226.02101,"846,00339635814 ",.01)
 ;;00339635814
 ;;9002226.02101,"846,00339635814 ",.02)
 ;;00339635814
 ;;9002226.02101,"846,00339641511 ",.01)
 ;;00339641511
 ;;9002226.02101,"846,00339641511 ",.02)
 ;;00339641511
 ;;9002226.02101,"846,00339641611 ",.01)
 ;;00339641611
 ;;9002226.02101,"846,00339641611 ",.02)
 ;;00339641611
 ;;9002226.02101,"846,00339641614 ",.01)
 ;;00339641614
 ;;9002226.02101,"846,00339641614 ",.02)
 ;;00339641614
 ;;9002226.02101,"846,00339643311 ",.01)
 ;;00339643311
 ;;9002226.02101,"846,00339643311 ",.02)
 ;;00339643311
 ;;9002226.02101,"846,00339643314 ",.01)
 ;;00339643314
 ;;9002226.02101,"846,00339643314 ",.02)
 ;;00339643314
 ;;9002226.02101,"846,00339643411 ",.01)
 ;;00339643411
 ;;9002226.02101,"846,00339643411 ",.02)
 ;;00339643411
 ;;9002226.02101,"846,00339643414 ",.01)
 ;;00339643414
 ;;9002226.02101,"846,00339643414 ",.02)
 ;;00339643414
 ;;9002226.02101,"846,00378019701 ",.01)
 ;;00378019701
 ;;9002226.02101,"846,00378019701 ",.02)
 ;;00378019701
 ;;9002226.02101,"846,00378019705 ",.01)
 ;;00378019705
 ;;9002226.02101,"846,00378019705 ",.02)
 ;;00378019705
 ;;9002226.02101,"846,00378021001 ",.01)
 ;;00378021001
 ;;9002226.02101,"846,00378021001 ",.02)
 ;;00378021001
 ;;9002226.02101,"846,00378021010 ",.01)
 ;;00378021010
 ;;9002226.02101,"846,00378021010 ",.02)
 ;;00378021010
 ;;9002226.02101,"846,00378021501 ",.01)
 ;;00378021501
 ;;9002226.02101,"846,00378021501 ",.02)
 ;;00378021501
 ;;9002226.02101,"846,00378021505 ",.01)
 ;;00378021505
 ;;9002226.02101,"846,00378021505 ",.02)
 ;;00378021505
 ;;9002226.02101,"846,00378021701 ",.01)
 ;;00378021701
 ;;9002226.02101,"846,00378021701 ",.02)
 ;;00378021701
 ;;9002226.02101,"846,00378055101 ",.01)
 ;;00378055101
 ;;9002226.02101,"846,00378055101 ",.02)
 ;;00378055101
 ;;9002226.02101,"846,00378110501 ",.01)
 ;;00378110501
 ;;9002226.02101,"846,00378110501 ",.02)
 ;;00378110501
 ;;9002226.02101,"846,00378110505 ",.01)
 ;;00378110505
 ;;9002226.02101,"846,00378110505 ",.02)
 ;;00378110505
 ;;9002226.02101,"846,00378111001 ",.01)
 ;;00378111001
 ;;9002226.02101,"846,00378111001 ",.02)
 ;;00378111001
 ;;9002226.02101,"846,00378111005 ",.01)
 ;;00378111005
 ;;9002226.02101,"846,00378111005 ",.02)
 ;;00378111005
 ;;9002226.02101,"846,00378111301 ",.01)
 ;;00378111301
 ;;9002226.02101,"846,00378111301 ",.02)
 ;;00378111301
 ;;9002226.02101,"846,00378112501 ",.01)
 ;;00378112501
 ;;9002226.02101,"846,00378112501 ",.02)
 ;;00378112501
 ;;9002226.02101,"846,00378112510 ",.01)
 ;;00378112510
 ;;9002226.02101,"846,00378112510 ",.02)
 ;;00378112510
 ;;9002226.02101,"846,00378114201 ",.01)
 ;;00378114201
 ;;9002226.02101,"846,00378114201 ",.02)
 ;;00378114201
 ;;9002226.02101,"846,00378114210 ",.01)
 ;;00378114210
 ;;9002226.02101,"846,00378114210 ",.02)
 ;;00378114210
 ;;9002226.02101,"846,00378313101 ",.01)
 ;;00378313101
 ;;9002226.02101,"846,00378313101 ",.02)
 ;;00378313101
 ;;9002226.02101,"846,00378313105 ",.01)
 ;;00378313105
 ;;9002226.02101,"846,00378313105 ",.02)
 ;;00378313105
 ;;9002226.02101,"846,00378313201 ",.01)
 ;;00378313201
 ;;9002226.02101,"846,00378313201 ",.02)
 ;;00378313201
 ;;9002226.02101,"846,00378313205 ",.01)
 ;;00378313205
 ;;9002226.02101,"846,00378313205 ",.02)
 ;;00378313205
 ;;9002226.02101,"846,00378313301 ",.01)
 ;;00378313301
 ;;9002226.02101,"846,00378313301 ",.02)
 ;;00378313301
 ;;9002226.02101,"846,00378313305 ",.01)
 ;;00378313305
 ;;9002226.02101,"846,00378313305 ",.02)
 ;;00378313305
 ;;9002226.02101,"846,00378401101 ",.01)
 ;;00378401101
 ;;9002226.02101,"846,00378401101 ",.02)
 ;;00378401101
 ;;9002226.02101,"846,00378401105 ",.01)
 ;;00378401105
 ;;9002226.02101,"846,00378401105 ",.02)
 ;;00378401105
 ;;9002226.02101,"846,00378401201 ",.01)
 ;;00378401201
 ;;9002226.02101,"846,00378401201 ",.02)
 ;;00378401201
 ;;9002226.02101,"846,00378401205 ",.01)
 ;;00378401205
 ;;9002226.02101,"846,00378401205 ",.02)
 ;;00378401205
 ;;9002226.02101,"846,00378401301 ",.01)
 ;;00378401301
 ;;9002226.02101,"846,00378401301 ",.02)
 ;;00378401301
 ;;9002226.02101,"846,00378401305 ",.01)
 ;;00378401305
 ;;9002226.02101,"846,00378401305 ",.02)
 ;;00378401305
 ;;9002226.02101,"846,00440756630 ",.01)
 ;;00440756630
 ;;9002226.02101,"846,00440756630 ",.02)
 ;;00440756630
 ;;9002226.02101,"846,00440756660 ",.01)
 ;;00440756660
 ;;9002226.02101,"846,00440756660 ",.02)
 ;;00440756660
 ;;9002226.02101,"846,00440756690 ",.01)
 ;;00440756690
 ;;9002226.02101,"846,00440756690 ",.02)
 ;;00440756690
 ;;9002226.02101,"846,00440756691 ",.01)
 ;;00440756691
 ;;9002226.02101,"846,00440756691 ",.02)
 ;;00440756691
 ;;9002226.02101,"846,00440756692 ",.01)
 ;;00440756692
 ;;9002226.02101,"846,00440756692 ",.02)
 ;;00440756692
 ;;9002226.02101,"846,00440756990 ",.01)
 ;;00440756990
 ;;9002226.02101,"846,00440756990 ",.02)
 ;;00440756990
 ;;9002226.02101,"846,00440757020 ",.01)
 ;;00440757020
 ;;9002226.02101,"846,00440757020 ",.02)
 ;;00440757020
 ;;9002226.02101,"846,00440757130 ",.01)
 ;;00440757130
 ;;9002226.02101,"846,00440757130 ",.02)
 ;;00440757130
 ;;9002226.02101,"846,00440757160 ",.01)
 ;;00440757160
 ;;9002226.02101,"846,00440757160 ",.02)
 ;;00440757160
 ;;9002226.02101,"846,00440757190 ",.01)
 ;;00440757190
 ;;9002226.02101,"846,00440757190 ",.02)
 ;;00440757190
 ;;9002226.02101,"846,00440757191 ",.01)
 ;;00440757191
 ;;9002226.02101,"846,00440757191 ",.02)
 ;;00440757191
 ;;9002226.02101,"846,00440757192 ",.01)
 ;;00440757192
 ;;9002226.02101,"846,00440757192 ",.02)
 ;;00440757192
 ;;9002226.02101,"846,00440757194 ",.01)
 ;;00440757194
 ;;9002226.02101,"846,00440757194 ",.02)
 ;;00440757194
 ;;9002226.02101,"846,00440757195 ",.01)
 ;;00440757195
 ;;9002226.02101,"846,00440757195 ",.02)
 ;;00440757195
 ;;9002226.02101,"846,00480571001 ",.01)
 ;;00480571001
 ;;9002226.02101,"846,00480571001 ",.02)
 ;;00480571001
 ;;9002226.02101,"846,00480571005 ",.01)
 ;;00480571005
 ;;9002226.02101,"846,00480571005 ",.02)
 ;;00480571005
 ;;9002226.02101,"846,00480571083 ",.01)
 ;;00480571083
 ;;9002226.02101,"846,00480571083 ",.02)
 ;;00480571083
 ;;9002226.02101,"846,00480571101 ",.01)
 ;;00480571101
 ;;9002226.02101,"846,00480571101 ",.02)
 ;;00480571101
 ;;9002226.02101,"846,00480571105 ",.01)
 ;;00480571105
 ;;9002226.02101,"846,00480571105 ",.02)
 ;;00480571105
 ;;9002226.02101,"846,00480571115 ",.01)
 ;;00480571115
 ;;9002226.02101,"846,00480571115 ",.02)
 ;;00480571115
 ;;9002226.02101,"846,00480571201 ",.01)
 ;;00480571201
 ;;9002226.02101,"846,00480571201 ",.02)
 ;;00480571201
 ;;9002226.02101,"846,00480571205 ",.01)
 ;;00480571205
 ;;9002226.02101,"846,00480571205 ",.02)
 ;;00480571205
 ;;9002226.02101,"846,00480571215 ",.01)
 ;;00480571215
 ;;9002226.02101,"846,00480571215 ",.02)
 ;;00480571215
 ;;9002226.02101,"846,00480725401 ",.01)
 ;;00480725401
 ;;9002226.02101,"846,00480725401 ",.02)
 ;;00480725401
 ;;9002226.02101,"846,00480725501 ",.01)
 ;;00480725501
 ;;9002226.02101,"846,00480725501 ",.02)
 ;;00480725501
 ;;9002226.02101,"846,00480725601 ",.01)
 ;;00480725601
 ;;9002226.02101,"846,00480725601 ",.02)
 ;;00480725601
 ;;9002226.02101,"846,00480725652 ",.01)
 ;;00480725652
 ;;9002226.02101,"846,00480725652 ",.02)
 ;;00480725652
 ;;9002226.02101,"846,00480726001 ",.01)
 ;;00480726001
 ;;9002226.02101,"846,00480726001 ",.02)
 ;;00480726001
 ;;9002226.02101,"846,00480726101 ",.01)
 ;;00480726101
 ;;9002226.02101,"846,00480726101 ",.02)
 ;;00480726101
 ;;9002226.02101,"846,00480726105 ",.01)
 ;;00480726105
 ;;9002226.02101,"846,00480726105 ",.02)
 ;;00480726105
 ;;9002226.02101,"846,00480726201 ",.01)
 ;;00480726201
 ;;9002226.02101,"846,00480726201 ",.02)
 ;;00480726201
 ;;9002226.02101,"846,00480726205 ",.01)
 ;;00480726205
 ;;9002226.02101,"846,00480726205 ",.02)
 ;;00480726205
 ;;9002226.02101,"846,00480745501 ",.01)
 ;;00480745501
 ;;9002226.02101,"846,00480745501 ",.02)
 ;;00480745501
 ;;9002226.02101,"846,00480745601 ",.01)
 ;;00480745601
 ;;9002226.02101,"846,00480745601 ",.02)
 ;;00480745601
 ;;9002226.02101,"846,00480745701 ",.01)
 ;;00480745701
 ;;9002226.02101,"846,00480745701 ",.02)
 ;;00480745701
 ;;9002226.02101,"846,00555044202 ",.01)
 ;;00555044202
 ;;9002226.02101,"846,00555044202 ",.02)
 ;;00555044202
 ;;9002226.02101,"846,00555044204 ",.01)
 ;;00555044204
 ;;9002226.02101,"846,00555044204 ",.02)
 ;;00555044204
 ;;9002226.02101,"846,00555044205 ",.01)
 ;;00555044205
 ;;9002226.02101,"846,00555044205 ",.02)
 ;;00555044205
 ;;9002226.02101,"846,00555044220 ",.01)
 ;;00555044220
 ;;9002226.02101,"846,00555044220 ",.02)
 ;;00555044220
 ;;9002226.02101,"846,00555044302 ",.01)
 ;;00555044302