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

BGPM5AKW.m

Go to the documentation of this file.
BGPM5AKW ;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,"885,19810005702 ",.02)
 ;;19810005702
 ;;9002226.02101,"885,19810005703 ",.01)
 ;;19810005703
 ;;9002226.02101,"885,19810005703 ",.02)
 ;;19810005703
 ;;9002226.02101,"885,19810006109 ",.01)
 ;;19810006109
 ;;9002226.02101,"885,19810006109 ",.02)
 ;;19810006109
 ;;9002226.02101,"885,19810006190 ",.01)
 ;;19810006190
 ;;9002226.02101,"885,19810006190 ",.02)
 ;;19810006190
 ;;9002226.02101,"885,19810007004 ",.01)
 ;;19810007004
 ;;9002226.02101,"885,19810007004 ",.02)
 ;;19810007004
 ;;9002226.02101,"885,19810007005 ",.01)
 ;;19810007005
 ;;9002226.02101,"885,19810007005 ",.02)
 ;;19810007005
 ;;9002226.02101,"885,19810007171 ",.01)
 ;;19810007171
 ;;9002226.02101,"885,19810007171 ",.02)
 ;;19810007171
 ;;9002226.02101,"885,19810007172 ",.01)
 ;;19810007172
 ;;9002226.02101,"885,19810007172 ",.02)
 ;;19810007172
 ;;9002226.02101,"885,19810007173 ",.01)
 ;;19810007173
 ;;9002226.02101,"885,19810007173 ",.02)
 ;;19810007173
 ;;9002226.02101,"885,19810007721 ",.01)
 ;;19810007721
 ;;9002226.02101,"885,19810007721 ",.02)
 ;;19810007721
 ;;9002226.02101,"885,19810007729 ",.01)
 ;;19810007729
 ;;9002226.02101,"885,19810007729 ",.02)
 ;;19810007729
 ;;9002226.02101,"885,19810008660 ",.01)
 ;;19810008660
 ;;9002226.02101,"885,19810008660 ",.02)
 ;;19810008660
 ;;9002226.02101,"885,19810008690 ",.01)
 ;;19810008690
 ;;9002226.02101,"885,19810008690 ",.02)
 ;;19810008690
 ;;9002226.02101,"885,19810009101 ",.01)
 ;;19810009101
 ;;9002226.02101,"885,19810009101 ",.02)
 ;;19810009101
 ;;9002226.02101,"885,19810020101 ",.01)
 ;;19810020101
 ;;9002226.02101,"885,19810020101 ",.02)
 ;;19810020101
 ;;9002226.02101,"885,19810020111 ",.01)
 ;;19810020111
 ;;9002226.02101,"885,19810020111 ",.02)
 ;;19810020111
 ;;9002226.02101,"885,19810020112 ",.01)
 ;;19810020112
 ;;9002226.02101,"885,19810020112 ",.02)
 ;;19810020112
 ;;9002226.02101,"885,19810020113 ",.01)
 ;;19810020113
 ;;9002226.02101,"885,19810020113 ",.02)
 ;;19810020113
 ;;9002226.02101,"885,19810020119 ",.01)
 ;;19810020119
 ;;9002226.02101,"885,19810020119 ",.02)
 ;;19810020119
 ;;9002226.02101,"885,19810020203 ",.01)
 ;;19810020203
 ;;9002226.02101,"885,19810020203 ",.02)
 ;;19810020203
 ;;9002226.02101,"885,19810020211 ",.01)
 ;;19810020211
 ;;9002226.02101,"885,19810020211 ",.02)
 ;;19810020211
 ;;9002226.02101,"885,19810020212 ",.01)
 ;;19810020212
 ;;9002226.02101,"885,19810020212 ",.02)
 ;;19810020212
 ;;9002226.02101,"885,19810020213 ",.01)
 ;;19810020213
 ;;9002226.02101,"885,19810020213 ",.02)
 ;;19810020213
 ;;9002226.02101,"885,19810020221 ",.01)
 ;;19810020221
 ;;9002226.02101,"885,19810020221 ",.02)
 ;;19810020221
 ;;9002226.02101,"885,19810020224 ",.01)
 ;;19810020224
 ;;9002226.02101,"885,19810020224 ",.02)
 ;;19810020224
 ;;9002226.02101,"885,19810020225 ",.01)
 ;;19810020225
 ;;9002226.02101,"885,19810020225 ",.02)
 ;;19810020225
 ;;9002226.02101,"885,19810020241 ",.01)
 ;;19810020241
 ;;9002226.02101,"885,19810020241 ",.02)
 ;;19810020241
 ;;9002226.02101,"885,19810020242 ",.01)
 ;;19810020242
 ;;9002226.02101,"885,19810020242 ",.02)
 ;;19810020242
 ;;9002226.02101,"885,19810030086 ",.01)
 ;;19810030086
 ;;9002226.02101,"885,19810030086 ",.02)
 ;;19810030086
 ;;9002226.02101,"885,19810030087 ",.01)
 ;;19810030087
 ;;9002226.02101,"885,19810030087 ",.02)
 ;;19810030087
 ;;9002226.02101,"885,19810030088 ",.01)
 ;;19810030088
 ;;9002226.02101,"885,19810030088 ",.02)
 ;;19810030088
 ;;9002226.02101,"885,19810030089 ",.01)
 ;;19810030089
 ;;9002226.02101,"885,19810030089 ",.02)
 ;;19810030089
 ;;9002226.02101,"885,19810030169 ",.01)
 ;;19810030169
 ;;9002226.02101,"885,19810030169 ",.02)
 ;;19810030169
 ;;9002226.02101,"885,19810030232 ",.01)
 ;;19810030232
 ;;9002226.02101,"885,19810030232 ",.02)
 ;;19810030232
 ;;9002226.02101,"885,19810071701 ",.01)
 ;;19810071701
 ;;9002226.02101,"885,19810071701 ",.02)
 ;;19810071701
 ;;9002226.02101,"885,19810077209 ",.01)
 ;;19810077209
 ;;9002226.02101,"885,19810077209 ",.02)
 ;;19810077209
 ;;9002226.02101,"885,19810077290 ",.01)
 ;;19810077290
 ;;9002226.02101,"885,19810077290 ",.02)
 ;;19810077290
 ;;9002226.02101,"885,19810078220 ",.01)
 ;;19810078220
 ;;9002226.02101,"885,19810078220 ",.02)
 ;;19810078220
 ;;9002226.02101,"885,21695013960 ",.01)
 ;;21695013960
 ;;9002226.02101,"885,21695013960 ",.02)
 ;;21695013960
 ;;9002226.02101,"885,21695035460 ",.01)
 ;;21695035460
 ;;9002226.02101,"885,21695035460 ",.02)
 ;;21695035460
 ;;9002226.02101,"885,21695053336 ",.01)
 ;;21695053336
 ;;9002226.02101,"885,21695053336 ",.02)
 ;;21695053336
 ;;9002226.02101,"885,21695065660 ",.01)
 ;;21695065660
 ;;9002226.02101,"885,21695065660 ",.02)
 ;;21695065660
 ;;9002226.02101,"885,21695066530 ",.01)
 ;;21695066530
 ;;9002226.02101,"885,21695066530 ",.02)
 ;;21695066530
 ;;9002226.02101,"885,21695066590 ",.01)
 ;;21695066590
 ;;9002226.02101,"885,21695066590 ",.02)
 ;;21695066590
 ;;9002226.02101,"885,21695066600 ",.01)
 ;;21695066600
 ;;9002226.02101,"885,21695066600 ",.02)
 ;;21695066600
 ;;9002226.02101,"885,21695066630 ",.01)
 ;;21695066630
 ;;9002226.02101,"885,21695066630 ",.02)
 ;;21695066630
 ;;9002226.02101,"885,21695066690 ",.01)
 ;;21695066690
 ;;9002226.02101,"885,21695066690 ",.02)
 ;;21695066690
 ;;9002226.02101,"885,21695068400 ",.01)
 ;;21695068400
 ;;9002226.02101,"885,21695068400 ",.02)
 ;;21695068400
 ;;9002226.02101,"885,21695068430 ",.01)
 ;;21695068430
 ;;9002226.02101,"885,21695068430 ",.02)
 ;;21695068430
 ;;9002226.02101,"885,21695068472 ",.01)
 ;;21695068472
 ;;9002226.02101,"885,21695068472 ",.02)
 ;;21695068472
 ;;9002226.02101,"885,21695068490 ",.01)
 ;;21695068490
 ;;9002226.02101,"885,21695068490 ",.02)
 ;;21695068490
 ;;9002226.02101,"885,23490518201 ",.01)
 ;;23490518201
 ;;9002226.02101,"885,23490518201 ",.02)
 ;;23490518201
 ;;9002226.02101,"885,23490518301 ",.01)
 ;;23490518301
 ;;9002226.02101,"885,23490518301 ",.02)
 ;;23490518301
 ;;9002226.02101,"885,23490518302 ",.01)
 ;;23490518302
 ;;9002226.02101,"885,23490518302 ",.02)
 ;;23490518302
 ;;9002226.02101,"885,23490518303 ",.01)
 ;;23490518303
 ;;9002226.02101,"885,23490518303 ",.02)
 ;;23490518303
 ;;9002226.02101,"885,23490518306 ",.01)
 ;;23490518306
 ;;9002226.02101,"885,23490518306 ",.02)
 ;;23490518306
 ;;9002226.02101,"885,23490518309 ",.01)
 ;;23490518309
 ;;9002226.02101,"885,23490518309 ",.02)
 ;;23490518309
 ;;9002226.02101,"885,23490660701 ",.01)
 ;;23490660701
 ;;9002226.02101,"885,23490660701 ",.02)
 ;;23490660701
 ;;9002226.02101,"885,23490660702 ",.01)
 ;;23490660702
 ;;9002226.02101,"885,23490660702 ",.02)
 ;;23490660702
 ;;9002226.02101,"885,23490661201 ",.01)
 ;;23490661201
 ;;9002226.02101,"885,23490661201 ",.02)
 ;;23490661201
 ;;9002226.02101,"885,23490661202 ",.01)
 ;;23490661202
 ;;9002226.02101,"885,23490661202 ",.02)
 ;;23490661202
 ;;9002226.02101,"885,23558054020 ",.01)
 ;;23558054020
 ;;9002226.02101,"885,23558054020 ",.02)
 ;;23558054020
 ;;9002226.02101,"885,23558054021 ",.01)
 ;;23558054021
 ;;9002226.02101,"885,23558054021 ",.02)
 ;;23558054021
 ;;9002226.02101,"885,23558054022 ",.01)
 ;;23558054022
 ;;9002226.02101,"885,23558054022 ",.02)
 ;;23558054022
 ;;9002226.02101,"885,23558054023 ",.01)
 ;;23558054023
 ;;9002226.02101,"885,23558054023 ",.02)
 ;;23558054023
 ;;9002226.02101,"885,24236036501 ",.01)
 ;;24236036501
 ;;9002226.02101,"885,24236036501 ",.02)
 ;;24236036501
 ;;9002226.02101,"885,24236036502 ",.01)
 ;;24236036502
 ;;9002226.02101,"885,24236036502 ",.02)
 ;;24236036502
 ;;9002226.02101,"885,24236082402 ",.01)
 ;;24236082402
 ;;9002226.02101,"885,24236082402 ",.02)
 ;;24236082402
 ;;9002226.02101,"885,24385002868 ",.01)
 ;;24385002868
 ;;9002226.02101,"885,24385002868 ",.02)
 ;;24385002868
 ;;9002226.02101,"885,24385027868 ",.01)
 ;;24385027868
 ;;9002226.02101,"885,24385027868 ",.02)
 ;;24385027868
 ;;9002226.02101,"885,24385036468 ",.01)
 ;;24385036468
 ;;9002226.02101,"885,24385036468 ",.02)
 ;;24385036468
 ;;9002226.02101,"885,24385036578 ",.01)
 ;;24385036578
 ;;9002226.02101,"885,24385036578 ",.02)
 ;;24385036578
 ;;9002226.02101,"885,24385041185 ",.01)
 ;;24385041185
 ;;9002226.02101,"885,24385041185 ",.02)
 ;;24385041185
 ;;9002226.02101,"885,24385041190 ",.01)
 ;;24385041190
 ;;9002226.02101,"885,24385041190 ",.02)
 ;;24385041190
 ;;9002226.02101,"885,24385041685 ",.01)
 ;;24385041685
 ;;9002226.02101,"885,24385041685 ",.02)
 ;;24385041685
 ;;9002226.02101,"885,24385041687 ",.01)
 ;;24385041687
 ;;9002226.02101,"885,24385041687 ",.02)
 ;;24385041687
 ;;9002226.02101,"885,24385041690 ",.01)
 ;;24385041690
 ;;9002226.02101,"885,24385041690 ",.02)
 ;;24385041690
 ;;9002226.02101,"885,24385042902 ",.01)
 ;;24385042902
 ;;9002226.02101,"885,24385042902 ",.02)
 ;;24385042902
 ;;9002226.02101,"885,24385042978 ",.01)
 ;;24385042978
 ;;9002226.02101,"885,24385042978 ",.02)
 ;;24385042978
 ;;9002226.02101,"885,24385042990 ",.01)
 ;;24385042990
 ;;9002226.02101,"885,24385042990 ",.02)
 ;;24385042990
 ;;9002226.02101,"885,24385043078 ",.01)
 ;;24385043078
 ;;9002226.02101,"885,24385043078 ",.02)
 ;;24385043078
 ;;9002226.02101,"885,24385053548 ",.01)
 ;;24385053548
 ;;9002226.02101,"885,24385053548 ",.02)
 ;;24385053548
 ;;9002226.02101,"885,24385053576 ",.01)
 ;;24385053576
 ;;9002226.02101,"885,24385053576 ",.02)
 ;;24385053576
 ;;9002226.02101,"885,24385053587 ",.01)
 ;;24385053587
 ;;9002226.02101,"885,24385053587 ",.02)
 ;;24385053587
 ;;9002226.02101,"885,24385053590 ",.01)
 ;;24385053590
 ;;9002226.02101,"885,24385053590 ",.02)
 ;;24385053590
 ;;9002226.02101,"885,24385054148 ",.01)
 ;;24385054148
 ;;9002226.02101,"885,24385054148 ",.02)
 ;;24385054148
 ;;9002226.02101,"885,24385054187 ",.01)
 ;;24385054187
 ;;9002226.02101,"885,24385054187 ",.02)
 ;;24385054187
 ;;9002226.02101,"885,24385054572 ",.01)
 ;;24385054572
 ;;9002226.02101,"885,24385054572 ",.02)
 ;;24385054572
 ;;9002226.02101,"885,30142046708 ",.01)
 ;;30142046708
 ;;9002226.02101,"885,30142046708 ",.02)
 ;;30142046708
 ;;9002226.02101,"885,30142046768 ",.01)
 ;;30142046768
 ;;9002226.02101,"885,30142046768 ",.02)
 ;;30142046768
 ;;9002226.02101,"885,33358003501 ",.01)
 ;;33358003501
 ;;9002226.02101,"885,33358003501 ",.02)
 ;;33358003501
 ;;9002226.02101,"885,33358003530 ",.01)
 ;;33358003530
 ;;9002226.02101,"885,33358003530 ",.02)
 ;;33358003530
 ;;9002226.02101,"885,33358003600 ",.01)
 ;;33358003600
 ;;9002226.02101,"885,33358003600 ",.02)
 ;;33358003600
 ;;9002226.02101,"885,33358003630 ",.01)
 ;;33358003630
 ;;9002226.02101,"885,33358003630 ",.02)
 ;;33358003630
 ;;9002226.02101,"885,33358006130 ",.01)
 ;;33358006130
 ;;9002226.02101,"885,33358006130 ",.02)
 ;;33358006130
 ;;9002226.02101,"885,33358006190 ",.01)
 ;;33358006190
 ;;9002226.02101,"885,33358006190 ",.02)
 ;;33358006190
 ;;9002226.02101,"885,35356039630 ",.01)
 ;;35356039630
 ;;9002226.02101,"885,35356039630 ",.02)
 ;;35356039630
 ;;9002226.02101,"885,35919117100 ",.01)
 ;;35919117100
 ;;9002226.02101,"885,35919117100 ",.02)
 ;;35919117100
 ;;9002226.02101,"885,36800025968 ",.01)
 ;;36800025968
 ;;9002226.02101,"885,36800025968 ",.02)
 ;;36800025968
 ;;9002226.02101,"885,36800027468 ",.01)
 ;;36800027468
 ;;9002226.02101,"885,36800027468 ",.02)
 ;;36800027468
 ;;9002226.02101,"885,36800027748 ",.01)
 ;;36800027748
 ;;9002226.02101,"885,36800027748 ",.02)
 ;;36800027748
 ;;9002226.02101,"885,36800037462 ",.01)
 ;;36800037462
 ;;9002226.02101,"885,36800037462 ",.02)
 ;;36800037462
 ;;9002226.02101,"885,36800037478 ",.01)
 ;;36800037478