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

BGPM3AAD.m

Go to the documentation of this file.
BGPM3AAD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"774,00056003002 ",.02)
 ;;00056003002
 ;;9002226.02101,"774,00056017170 ",.01)
 ;;00056017170
 ;;9002226.02101,"774,00056017170 ",.02)
 ;;00056017170
 ;;9002226.02101,"774,00056017175 ",.01)
 ;;00056017175
 ;;9002226.02101,"774,00056017175 ",.02)
 ;;00056017175
 ;;9002226.02101,"774,00056017190 ",.01)
 ;;00056017190
 ;;9002226.02101,"774,00056017190 ",.02)
 ;;00056017190
 ;;9002226.02101,"774,00074115212 ",.01)
 ;;00074115212
 ;;9002226.02101,"774,00074115212 ",.02)
 ;;00074115212
 ;;9002226.02101,"774,00074115214 ",.01)
 ;;00074115214
 ;;9002226.02101,"774,00074115214 ",.02)
 ;;00074115214
 ;;9002226.02101,"774,00074115270 ",.01)
 ;;00074115270
 ;;9002226.02101,"774,00074115270 ",.02)
 ;;00074115270
 ;;9002226.02101,"774,00074115271 ",.01)
 ;;00074115271
 ;;9002226.02101,"774,00074115271 ",.02)
 ;;00074115271
 ;;9002226.02101,"774,00074115273 ",.01)
 ;;00074115273
 ;;9002226.02101,"774,00074115273 ",.02)
 ;;00074115273
 ;;9002226.02101,"774,00074115278 ",.01)
 ;;00074115278
 ;;9002226.02101,"774,00074115278 ",.02)
 ;;00074115278
 ;;9002226.02101,"774,00074128125 ",.01)
 ;;00074128125
 ;;9002226.02101,"774,00074128125 ",.02)
 ;;00074128125
 ;;9002226.02101,"774,00074131602 ",.01)
 ;;00074131602
 ;;9002226.02101,"774,00074131602 ",.02)
 ;;00074131602
 ;;9002226.02101,"774,00074131613 ",.01)
 ;;00074131613
 ;;9002226.02101,"774,00074131613 ",.02)
 ;;00074131613
 ;;9002226.02101,"774,00074131614 ",.01)
 ;;00074131614
 ;;9002226.02101,"774,00074131614 ",.02)
 ;;00074131614
 ;;9002226.02101,"774,00074131632 ",.01)
 ;;00074131632
 ;;9002226.02101,"774,00074131632 ",.02)
 ;;00074131632
 ;;9002226.02101,"774,00074131666 ",.01)
 ;;00074131666
 ;;9002226.02101,"774,00074131666 ",.02)
 ;;00074131666
 ;;9002226.02101,"774,00074140201 ",.01)
 ;;00074140201
 ;;9002226.02101,"774,00074140201 ",.02)
 ;;00074140201
 ;;9002226.02101,"774,00074140211 ",.01)
 ;;00074140211
 ;;9002226.02101,"774,00074140211 ",.02)
 ;;00074140211
 ;;9002226.02101,"774,00074140231 ",.01)
 ;;00074140231
 ;;9002226.02101,"774,00074140231 ",.02)
 ;;00074140231
 ;;9002226.02101,"774,00074258202 ",.01)
 ;;00074258202
 ;;9002226.02101,"774,00074258202 ",.02)
 ;;00074258202
 ;;9002226.02101,"774,00074258302 ",.01)
 ;;00074258302
 ;;9002226.02101,"774,00074258302 ",.02)
 ;;00074258302
 ;;9002226.02101,"774,00074258402 ",.01)
 ;;00074258402
 ;;9002226.02101,"774,00074258402 ",.02)
 ;;00074258402
 ;;9002226.02101,"774,00074628602 ",.01)
 ;;00074628602
 ;;9002226.02101,"774,00074628602 ",.02)
 ;;00074628602
 ;;9002226.02101,"774,00074628611 ",.01)
 ;;00074628611
 ;;9002226.02101,"774,00074628611 ",.02)
 ;;00074628611
 ;;9002226.02101,"774,00074628702 ",.01)
 ;;00074628702
 ;;9002226.02101,"774,00074628702 ",.02)
 ;;00074628702
 ;;9002226.02101,"774,00074628703 ",.01)
 ;;00074628703
 ;;9002226.02101,"774,00074628703 ",.02)
 ;;00074628703
 ;;9002226.02101,"774,00074629202 ",.01)
 ;;00074629202
 ;;9002226.02101,"774,00074629202 ",.02)
 ;;00074629202
 ;;9002226.02101,"774,00074629302 ",.01)
 ;;00074629302
 ;;9002226.02101,"774,00074629302 ",.02)
 ;;00074629302
 ;;9002226.02101,"774,00074629303 ",.01)
 ;;00074629303
 ;;9002226.02101,"774,00074629303 ",.02)
 ;;00074629303
 ;;9002226.02101,"774,00074662603 ",.01)
 ;;00074662603
 ;;9002226.02101,"774,00074662603 ",.02)
 ;;00074662603
 ;;9002226.02101,"774,00074662607 ",.01)
 ;;00074662607
 ;;9002226.02101,"774,00074662607 ",.02)
 ;;00074662607
 ;;9002226.02101,"774,00074663803 ",.01)
 ;;00074663803
 ;;9002226.02101,"774,00074663803 ",.02)
 ;;00074663803
 ;;9002226.02101,"774,00074663807 ",.01)
 ;;00074663807
 ;;9002226.02101,"774,00074663807 ",.02)
 ;;00074663807
 ;;9002226.02101,"774,00074720201 ",.01)
 ;;00074720201
 ;;9002226.02101,"774,00074720201 ",.02)
 ;;00074720201
 ;;9002226.02101,"774,00074720205 ",.01)
 ;;00074720205
 ;;9002226.02101,"774,00074720205 ",.02)
 ;;00074720205
 ;;9002226.02101,"774,00074721001 ",.01)
 ;;00074721001
 ;;9002226.02101,"774,00074721001 ",.02)
 ;;00074721001
 ;;9002226.02101,"774,00074721005 ",.01)
 ;;00074721005
 ;;9002226.02101,"774,00074721005 ",.02)
 ;;00074721005
 ;;9002226.02101,"774,00074721009 ",.01)
 ;;00074721009
 ;;9002226.02101,"774,00074721009 ",.02)
 ;;00074721009
 ;;9002226.02101,"774,00074721801 ",.01)
 ;;00074721801
 ;;9002226.02101,"774,00074721801 ",.02)
 ;;00074721801
 ;;9002226.02101,"774,00074721805 ",.01)
 ;;00074721805
 ;;9002226.02101,"774,00074721805 ",.02)
 ;;00074721805
 ;;9002226.02101,"774,00074765002 ",.01)
 ;;00074765002
 ;;9002226.02101,"774,00074765002 ",.02)
 ;;00074765002
 ;;9002226.02101,"774,00074765062 ",.01)
 ;;00074765062
 ;;9002226.02101,"774,00074765062 ",.02)
 ;;00074765062
 ;;9002226.02101,"774,00074765102 ",.01)
 ;;00074765102
 ;;9002226.02101,"774,00074765102 ",.02)
 ;;00074765102
 ;;9002226.02101,"774,00074765103 ",.01)
 ;;00074765103
 ;;9002226.02101,"774,00074765103 ",.02)
 ;;00074765103
 ;;9002226.02101,"774,00074765162 ",.01)
 ;;00074765162
 ;;9002226.02101,"774,00074765162 ",.02)
 ;;00074765162
 ;;9002226.02101,"774,00074776003 ",.01)
 ;;00074776003
 ;;9002226.02101,"774,00074776003 ",.02)
 ;;00074776003
 ;;9002226.02101,"774,00074776103 ",.01)
 ;;00074776103
 ;;9002226.02101,"774,00074776103 ",.02)
 ;;00074776103
 ;;9002226.02101,"774,00074776130 ",.01)
 ;;00074776130
 ;;9002226.02101,"774,00074776130 ",.02)
 ;;00074776130
 ;;9002226.02101,"774,00074779224 ",.01)
 ;;00074779224
 ;;9002226.02101,"774,00074779224 ",.02)
 ;;00074779224
 ;;9002226.02101,"774,00074779312 ",.01)
 ;;00074779312
 ;;9002226.02101,"774,00074779312 ",.02)
 ;;00074779312
 ;;9002226.02101,"774,00074779323 ",.01)
 ;;00074779323
 ;;9002226.02101,"774,00074779323 ",.02)
 ;;00074779323
 ;;9002226.02101,"774,00074779361 ",.01)
 ;;00074779361
 ;;9002226.02101,"774,00074779361 ",.02)
 ;;00074779361
 ;;9002226.02101,"774,00074779362 ",.01)
 ;;00074779362
 ;;9002226.02101,"774,00074779362 ",.02)
 ;;00074779362
 ;;9002226.02101,"774,00074779412 ",.01)
 ;;00074779412
 ;;9002226.02101,"774,00074779412 ",.02)
 ;;00074779412
 ;;9002226.02101,"774,00074779423 ",.01)
 ;;00074779423
 ;;9002226.02101,"774,00074779423 ",.02)
 ;;00074779423
 ;;9002226.02101,"774,00074779462 ",.01)
 ;;00074779462
 ;;9002226.02101,"774,00074779462 ",.02)
 ;;00074779462
 ;;9002226.02101,"774,00085016875 ",.01)
 ;;00085016875
 ;;9002226.02101,"774,00085016875 ",.02)
 ;;00085016875
 ;;9002226.02101,"774,00089041001 ",.01)
 ;;00089041001
 ;;9002226.02101,"774,00089041001 ",.02)
 ;;00089041001
 ;;9002226.02101,"774,00089042501 ",.01)
 ;;00089042501
 ;;9002226.02101,"774,00089042501 ",.02)
 ;;00089042501
 ;;9002226.02101,"774,00093014301 ",.01)
 ;;00093014301
 ;;9002226.02101,"774,00093014301 ",.02)
 ;;00093014301
 ;;9002226.02101,"774,00093014401 ",.01)
 ;;00093014401
 ;;9002226.02101,"774,00093014401 ",.02)
 ;;00093014401
 ;;9002226.02101,"774,00093014501 ",.01)
 ;;00093014501
 ;;9002226.02101,"774,00093014501 ",.02)
 ;;00093014501
 ;;9002226.02101,"774,00093014510 ",.01)
 ;;00093014510
 ;;9002226.02101,"774,00093014510 ",.02)
 ;;00093014510
 ;;9002226.02101,"774,00094014501 ",.01)
 ;;00094014501
 ;;9002226.02101,"774,00094014501 ",.02)
 ;;00094014501
 ;;9002226.02101,"774,00094014510 ",.01)
 ;;00094014510
 ;;9002226.02101,"774,00094014510 ",.02)
 ;;00094014510
 ;;9002226.02101,"774,00094014561 ",.01)
 ;;00094014561
 ;;9002226.02101,"774,00094014561 ",.02)
 ;;00094014561
 ;;9002226.02101,"774,00106143030 ",.01)
 ;;00106143030
 ;;9002226.02101,"774,00106143030 ",.02)
 ;;00106143030
 ;;9002226.02101,"774,00157028301 ",.01)
 ;;00157028301
 ;;9002226.02101,"774,00157028301 ",.02)
 ;;00157028301
 ;;9002226.02101,"774,00157028401 ",.01)
 ;;00157028401
 ;;9002226.02101,"774,00157028401 ",.02)
 ;;00157028401
 ;;9002226.02101,"774,00157028510 ",.01)
 ;;00157028510
 ;;9002226.02101,"774,00157028510 ",.02)
 ;;00157028510
 ;;9002226.02101,"774,00157028601 ",.01)
 ;;00157028601
 ;;9002226.02101,"774,00157028601 ",.02)
 ;;00157028601
 ;;9002226.02101,"774,00157028701 ",.01)
 ;;00157028701
 ;;9002226.02101,"774,00157028701 ",.02)
 ;;00157028701
 ;;9002226.02101,"774,00179136401 ",.01)
 ;;00179136401
 ;;9002226.02101,"774,00179136401 ",.02)
 ;;00179136401
 ;;9002226.02101,"774,00179136470 ",.01)
 ;;00179136470
 ;;9002226.02101,"774,00179136470 ",.02)
 ;;00179136470
 ;;9002226.02101,"774,00179136570 ",.01)
 ;;00179136570
 ;;9002226.02101,"774,00179136570 ",.02)
 ;;00179136570
 ;;9002226.02101,"774,00179136650 ",.01)
 ;;00179136650
 ;;9002226.02101,"774,00179136650 ",.02)
 ;;00179136650
 ;;9002226.02101,"774,00179136660 ",.01)
 ;;00179136660
 ;;9002226.02101,"774,00179136660 ",.02)
 ;;00179136660
 ;;9002226.02101,"774,00179136670 ",.01)
 ;;00179136670
 ;;9002226.02101,"774,00179136670 ",.02)
 ;;00179136670
 ;;9002226.02101,"774,00179136690 ",.01)
 ;;00179136690
 ;;9002226.02101,"774,00179136690 ",.02)
 ;;00179136690
 ;;9002226.02101,"774,00179139070 ",.01)
 ;;00179139070
 ;;9002226.02101,"774,00179139070 ",.02)
 ;;00179139070
 ;;9002226.02101,"774,00179139170 ",.01)
 ;;00179139170
 ;;9002226.02101,"774,00179139170 ",.02)
 ;;00179139170
 ;;9002226.02101,"774,00179139270 ",.01)
 ;;00179139270
 ;;9002226.02101,"774,00179139270 ",.02)
 ;;00179139270
 ;;9002226.02101,"774,00179139370 ",.01)
 ;;00179139370
 ;;9002226.02101,"774,00179139370 ",.02)
 ;;00179139370
 ;;9002226.02101,"774,00179139470 ",.01)
 ;;00179139470
 ;;9002226.02101,"774,00179139470 ",.02)
 ;;00179139470
 ;;9002226.02101,"774,00179139570 ",.01)
 ;;00179139570
 ;;9002226.02101,"774,00179139570 ",.02)
 ;;00179139570
 ;;9002226.02101,"774,00179196170 ",.01)
 ;;00179196170
 ;;9002226.02101,"774,00179196170 ",.02)
 ;;00179196170
 ;;9002226.02101,"774,00179196171 ",.01)
 ;;00179196171
 ;;9002226.02101,"774,00179196171 ",.02)
 ;;00179196171
 ;;9002226.02101,"774,00179196172 ",.01)
 ;;00179196172
 ;;9002226.02101,"774,00179196172 ",.02)
 ;;00179196172
 ;;9002226.02101,"774,00179196270 ",.01)
 ;;00179196270
 ;;9002226.02101,"774,00179196270 ",.02)
 ;;00179196270
 ;;9002226.02101,"774,00179196271 ",.01)
 ;;00179196271
 ;;9002226.02101,"774,00179196271 ",.02)
 ;;00179196271
 ;;9002226.02101,"774,00179196272 ",.01)
 ;;00179196272
 ;;9002226.02101,"774,00179196272 ",.02)
 ;;00179196272
 ;;9002226.02101,"774,00179196370 ",.01)
 ;;00179196370
 ;;9002226.02101,"774,00179196370 ",.02)
 ;;00179196370
 ;;9002226.02101,"774,00179196371 ",.01)
 ;;00179196371
 ;;9002226.02101,"774,00179196371 ",.02)
 ;;00179196371
 ;;9002226.02101,"774,00179196372 ",.01)
 ;;00179196372
 ;;9002226.02101,"774,00179196372 ",.02)
 ;;00179196372
 ;;9002226.02101,"774,00179196870 ",.01)
 ;;00179196870
 ;;9002226.02101,"774,00179196870 ",.02)
 ;;00179196870
 ;;9002226.02101,"774,00179196871 ",.01)
 ;;00179196871
 ;;9002226.02101,"774,00179196871 ",.02)
 ;;00179196871
 ;;9002226.02101,"774,00179196872 ",.01)
 ;;00179196872
 ;;9002226.02101,"774,00179196872 ",.02)
 ;;00179196872
 ;;9002226.02101,"774,00179200270 ",.01)
 ;;00179200270
 ;;9002226.02101,"774,00179200270 ",.02)
 ;;00179200270
 ;;9002226.02101,"774,00179200271 ",.01)
 ;;00179200271
 ;;9002226.02101,"774,00179200271 ",.02)
 ;;00179200271
 ;;9002226.02101,"774,00179200272 ",.01)
 ;;00179200272
 ;;9002226.02101,"774,00179200272 ",.02)
 ;;00179200272
 ;;9002226.02101,"774,00182152201 ",.01)
 ;;00182152201
 ;;9002226.02101,"774,00182152201 ",.02)
 ;;00182152201
 ;;9002226.02101,"774,00182152210 ",.01)
 ;;00182152210
 ;;9002226.02101,"774,00182152210 ",.02)
 ;;00182152210
 ;;9002226.02101,"774,00182267101 ",.01)
 ;;00182267101