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

BGPM5APF.m

Go to the documentation of this file.
BGPM5APF ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 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,"998,23490660702 ",.02)
 ;;23490660702
 ;;9002226.02101,"998,23490661201 ",.01)
 ;;23490661201
 ;;9002226.02101,"998,23490661201 ",.02)
 ;;23490661201
 ;;9002226.02101,"998,23490661202 ",.01)
 ;;23490661202
 ;;9002226.02101,"998,23490661202 ",.02)
 ;;23490661202
 ;;9002226.02101,"998,24385002868 ",.01)
 ;;24385002868
 ;;9002226.02101,"998,24385002868 ",.02)
 ;;24385002868
 ;;9002226.02101,"998,24385027868 ",.01)
 ;;24385027868
 ;;9002226.02101,"998,24385027868 ",.02)
 ;;24385027868
 ;;9002226.02101,"998,24385036468 ",.01)
 ;;24385036468
 ;;9002226.02101,"998,24385036468 ",.02)
 ;;24385036468
 ;;9002226.02101,"998,24385041185 ",.01)
 ;;24385041185
 ;;9002226.02101,"998,24385041185 ",.02)
 ;;24385041185
 ;;9002226.02101,"998,24385041190 ",.01)
 ;;24385041190
 ;;9002226.02101,"998,24385041190 ",.02)
 ;;24385041190
 ;;9002226.02101,"998,24385041685 ",.01)
 ;;24385041685
 ;;9002226.02101,"998,24385041685 ",.02)
 ;;24385041685
 ;;9002226.02101,"998,24385041687 ",.01)
 ;;24385041687
 ;;9002226.02101,"998,24385041687 ",.02)
 ;;24385041687
 ;;9002226.02101,"998,24385041690 ",.01)
 ;;24385041690
 ;;9002226.02101,"998,24385041690 ",.02)
 ;;24385041690
 ;;9002226.02101,"998,24385042902 ",.01)
 ;;24385042902
 ;;9002226.02101,"998,24385042902 ",.02)
 ;;24385042902
 ;;9002226.02101,"998,24385042978 ",.01)
 ;;24385042978
 ;;9002226.02101,"998,24385042978 ",.02)
 ;;24385042978
 ;;9002226.02101,"998,24385042990 ",.01)
 ;;24385042990
 ;;9002226.02101,"998,24385042990 ",.02)
 ;;24385042990
 ;;9002226.02101,"998,24385053548 ",.01)
 ;;24385053548
 ;;9002226.02101,"998,24385053548 ",.02)
 ;;24385053548
 ;;9002226.02101,"998,24385053576 ",.01)
 ;;24385053576
 ;;9002226.02101,"998,24385053576 ",.02)
 ;;24385053576
 ;;9002226.02101,"998,24385053587 ",.01)
 ;;24385053587
 ;;9002226.02101,"998,24385053587 ",.02)
 ;;24385053587
 ;;9002226.02101,"998,24385053590 ",.01)
 ;;24385053590
 ;;9002226.02101,"998,24385053590 ",.02)
 ;;24385053590
 ;;9002226.02101,"998,24385054148 ",.01)
 ;;24385054148
 ;;9002226.02101,"998,24385054148 ",.02)
 ;;24385054148
 ;;9002226.02101,"998,24385054187 ",.01)
 ;;24385054187
 ;;9002226.02101,"998,24385054187 ",.02)
 ;;24385054187
 ;;9002226.02101,"998,24385054572 ",.01)
 ;;24385054572
 ;;9002226.02101,"998,24385054572 ",.02)
 ;;24385054572
 ;;9002226.02101,"998,26053000701 ",.01)
 ;;26053000701
 ;;9002226.02101,"998,26053000701 ",.02)
 ;;26053000701
 ;;9002226.02101,"998,26053032301 ",.01)
 ;;26053032301
 ;;9002226.02101,"998,26053032301 ",.02)
 ;;26053032301
 ;;9002226.02101,"998,30142041678 ",.01)
 ;;30142041678
 ;;9002226.02101,"998,30142041678 ",.02)
 ;;30142041678
 ;;9002226.02101,"998,30142041687 ",.01)
 ;;30142041687
 ;;9002226.02101,"998,30142041687 ",.02)
 ;;30142041687
 ;;9002226.02101,"998,30142046708 ",.01)
 ;;30142046708
 ;;9002226.02101,"998,30142046708 ",.02)
 ;;30142046708
 ;;9002226.02101,"998,30142046768 ",.01)
 ;;30142046768
 ;;9002226.02101,"998,30142046768 ",.02)
 ;;30142046768
 ;;9002226.02101,"998,33358003501 ",.01)
 ;;33358003501
 ;;9002226.02101,"998,33358003501 ",.02)
 ;;33358003501
 ;;9002226.02101,"998,33358003530 ",.01)
 ;;33358003530
 ;;9002226.02101,"998,33358003530 ",.02)
 ;;33358003530
 ;;9002226.02101,"998,33358003600 ",.01)
 ;;33358003600
 ;;9002226.02101,"998,33358003600 ",.02)
 ;;33358003600
 ;;9002226.02101,"998,33358003630 ",.01)
 ;;33358003630
 ;;9002226.02101,"998,33358003630 ",.02)
 ;;33358003630
 ;;9002226.02101,"998,36800025968 ",.01)
 ;;36800025968
 ;;9002226.02101,"998,36800025968 ",.02)
 ;;36800025968
 ;;9002226.02101,"998,36800027468 ",.01)
 ;;36800027468
 ;;9002226.02101,"998,36800027468 ",.02)
 ;;36800027468
 ;;9002226.02101,"998,36800027748 ",.01)
 ;;36800027748
 ;;9002226.02101,"998,36800027748 ",.02)
 ;;36800027748
 ;;9002226.02101,"998,36800042902 ",.01)
 ;;36800042902
 ;;9002226.02101,"998,36800042902 ",.02)
 ;;36800042902
 ;;9002226.02101,"998,36800046768 ",.01)
 ;;36800046768
 ;;9002226.02101,"998,36800046768 ",.02)
 ;;36800046768
 ;;9002226.02101,"998,37205014519 ",.01)
 ;;37205014519
 ;;9002226.02101,"998,37205014519 ",.02)
 ;;37205014519
 ;;9002226.02101,"998,37205014578 ",.01)
 ;;37205014578
 ;;9002226.02101,"998,37205014578 ",.02)
 ;;37205014578
 ;;9002226.02101,"998,37205014587 ",.01)
 ;;37205014587
 ;;9002226.02101,"998,37205014587 ",.02)
 ;;37205014587
 ;;9002226.02101,"998,37205015078 ",.01)
 ;;37205015078
 ;;9002226.02101,"998,37205015078 ",.02)
 ;;37205015078
 ;;9002226.02101,"998,37205021807 ",.01)
 ;;37205021807
 ;;9002226.02101,"998,37205021807 ",.02)
 ;;37205021807
 ;;9002226.02101,"998,37205021823 ",.01)
 ;;37205021823
 ;;9002226.02101,"998,37205021823 ",.02)
 ;;37205021823
 ;;9002226.02101,"998,37205036968 ",.01)
 ;;37205036968
 ;;9002226.02101,"998,37205036968 ",.02)
 ;;37205036968
 ;;9002226.02101,"998,37205042978 ",.01)
 ;;37205042978
 ;;9002226.02101,"998,37205042978 ",.02)
 ;;37205042978
 ;;9002226.02101,"998,37205042990 ",.01)
 ;;37205042990
 ;;9002226.02101,"998,37205042990 ",.02)
 ;;37205042990
 ;;9002226.02101,"998,37205042996 ",.01)
 ;;37205042996
 ;;9002226.02101,"998,37205042996 ",.02)
 ;;37205042996
 ;;9002226.02101,"998,37205046768 ",.01)
 ;;37205046768
 ;;9002226.02101,"998,37205046768 ",.02)
 ;;37205046768
 ;;9002226.02101,"998,37205051076 ",.01)
 ;;37205051076
 ;;9002226.02101,"998,37205051076 ",.02)
 ;;37205051076
 ;;9002226.02101,"998,37205051087 ",.01)
 ;;37205051087
 ;;9002226.02101,"998,37205051087 ",.02)
 ;;37205051087
 ;;9002226.02101,"998,37205051172 ",.01)
 ;;37205051172
 ;;9002226.02101,"998,37205051172 ",.02)
 ;;37205051172
 ;;9002226.02101,"998,37205070868 ",.01)
 ;;37205070868
 ;;9002226.02101,"998,37205070868 ",.02)
 ;;37205070868
 ;;9002226.02101,"998,37808027748 ",.01)
 ;;37808027748
 ;;9002226.02101,"998,37808027748 ",.02)
 ;;37808027748
 ;;9002226.02101,"998,37808046768 ",.01)
 ;;37808046768
 ;;9002226.02101,"998,37808046768 ",.02)
 ;;37808046768
 ;;9002226.02101,"998,37808053576 ",.01)
 ;;37808053576
 ;;9002226.02101,"998,37808053576 ",.02)
 ;;37808053576
 ;;9002226.02101,"998,41163027468 ",.01)
 ;;41163027468
 ;;9002226.02101,"998,41163027468 ",.02)
 ;;41163027468
 ;;9002226.02101,"998,41163041412 ",.01)
 ;;41163041412
 ;;9002226.02101,"998,41163041412 ",.02)
 ;;41163041412
 ;;9002226.02101,"998,41163041460 ",.01)
 ;;41163041460
 ;;9002226.02101,"998,41163041460 ",.02)
 ;;41163041460
 ;;9002226.02101,"998,41163041678 ",.01)
 ;;41163041678
 ;;9002226.02101,"998,41163041678 ",.02)
 ;;41163041678
 ;;9002226.02101,"998,41163041687 ",.01)
 ;;41163041687
 ;;9002226.02101,"998,41163041687 ",.02)
 ;;41163041687
 ;;9002226.02101,"998,41163041690 ",.01)
 ;;41163041690
 ;;9002226.02101,"998,41163041690 ",.02)
 ;;41163041690
 ;;9002226.02101,"998,41163041693 ",.01)
 ;;41163041693
 ;;9002226.02101,"998,41163041693 ",.02)
 ;;41163041693
 ;;9002226.02101,"998,41163042978 ",.01)
 ;;41163042978
 ;;9002226.02101,"998,41163042978 ",.02)
 ;;41163042978
 ;;9002226.02101,"998,41163042990 ",.01)
 ;;41163042990
 ;;9002226.02101,"998,41163042990 ",.02)
 ;;41163042990
 ;;9002226.02101,"998,41163046768 ",.01)
 ;;41163046768
 ;;9002226.02101,"998,41163046768 ",.02)
 ;;41163046768
 ;;9002226.02101,"998,41163053576 ",.01)
 ;;41163053576
 ;;9002226.02101,"998,41163053576 ",.02)
 ;;41163053576
 ;;9002226.02101,"998,41163053587 ",.01)
 ;;41163053587
 ;;9002226.02101,"998,41163053587 ",.02)
 ;;41163053587
 ;;9002226.02101,"998,41163056306 ",.01)
 ;;41163056306
 ;;9002226.02101,"998,41163056306 ",.02)
 ;;41163056306
 ;;9002226.02101,"998,41163056317 ",.01)
 ;;41163056317
 ;;9002226.02101,"998,41163056317 ",.02)
 ;;41163056317
 ;;9002226.02101,"998,41163056332 ",.01)
 ;;41163056332
 ;;9002226.02101,"998,41163056332 ",.02)
 ;;41163056332
 ;;9002226.02101,"998,41163064281 ",.01)
 ;;41163064281
 ;;9002226.02101,"998,41163064281 ",.02)
 ;;41163064281
 ;;9002226.02101,"998,41226041182 ",.01)
 ;;41226041182
 ;;9002226.02101,"998,41226041182 ",.02)
 ;;41226041182
 ;;9002226.02101,"998,41250027408 ",.01)
 ;;41250027408
 ;;9002226.02101,"998,41250027408 ",.02)
 ;;41250027408
 ;;9002226.02101,"998,41250027468 ",.01)
 ;;41250027468
 ;;9002226.02101,"998,41250027468 ",.02)
 ;;41250027468
 ;;9002226.02101,"998,41250027715 ",.01)
 ;;41250027715
 ;;9002226.02101,"998,41250027715 ",.02)
 ;;41250027715
 ;;9002226.02101,"998,41250027748 ",.01)
 ;;41250027748
 ;;9002226.02101,"998,41250027748 ",.02)
 ;;41250027748
 ;;9002226.02101,"998,41250053576 ",.01)
 ;;41250053576
 ;;9002226.02101,"998,41250053576 ",.02)
 ;;41250053576
 ;;9002226.02101,"998,41250096634 ",.01)
 ;;41250096634
 ;;9002226.02101,"998,41250096634 ",.02)
 ;;41250096634
 ;;9002226.02101,"998,41268053576 ",.01)
 ;;41268053576
 ;;9002226.02101,"998,41268053576 ",.02)
 ;;41268053576
 ;;9002226.02101,"998,41520046768 ",.01)
 ;;41520046768
 ;;9002226.02101,"998,41520046768 ",.02)
 ;;41520046768
 ;;9002226.02101,"998,42507027468 ",.01)
 ;;42507027468
 ;;9002226.02101,"998,42507027468 ",.02)
 ;;42507027468
 ;;9002226.02101,"998,42507046768 ",.01)
 ;;42507046768
 ;;9002226.02101,"998,42507046768 ",.02)
 ;;42507046768
 ;;9002226.02101,"998,42507053576 ",.01)
 ;;42507053576
 ;;9002226.02101,"998,42507053576 ",.02)
 ;;42507053576
 ;;9002226.02101,"998,43063027890 ",.01)
 ;;43063027890
 ;;9002226.02101,"998,43063027890 ",.02)
 ;;43063027890
 ;;9002226.02101,"998,43353071630 ",.01)
 ;;43353071630
 ;;9002226.02101,"998,43353071630 ",.02)
 ;;43353071630
 ;;9002226.02101,"998,43353071660 ",.01)
 ;;43353071660
 ;;9002226.02101,"998,43353071660 ",.02)
 ;;43353071660
 ;;9002226.02101,"998,45802064287 ",.01)
 ;;45802064287
 ;;9002226.02101,"998,45802064287 ",.02)
 ;;45802064287
 ;;9002226.02101,"998,46066020402 ",.01)
 ;;46066020402
 ;;9002226.02101,"998,46066020402 ",.02)
 ;;46066020402
 ;;9002226.02101,"998,47682001133 ",.01)
 ;;47682001133
 ;;9002226.02101,"998,47682001133 ",.02)
 ;;47682001133
 ;;9002226.02101,"998,47682001148 ",.01)
 ;;47682001148
 ;;9002226.02101,"998,47682001148 ",.02)
 ;;47682001148
 ;;9002226.02101,"998,47682001199 ",.01)
 ;;47682001199
 ;;9002226.02101,"998,47682001199 ",.02)
 ;;47682001199
 ;;9002226.02101,"998,47682008513 ",.01)
 ;;47682008513
 ;;9002226.02101,"998,47682008513 ",.02)
 ;;47682008513
 ;;9002226.02101,"998,47682008533 ",.01)
 ;;47682008533
 ;;9002226.02101,"998,47682008533 ",.02)
 ;;47682008533
 ;;9002226.02101,"998,47682009533 ",.01)
 ;;47682009533
 ;;9002226.02101,"998,47682009533 ",.02)
 ;;47682009533
 ;;9002226.02101,"998,47682009613 ",.01)
 ;;47682009613
 ;;9002226.02101,"998,47682009613 ",.02)
 ;;47682009613
 ;;9002226.02101,"998,47682009633 ",.01)
 ;;47682009633
 ;;9002226.02101,"998,47682009633 ",.02)
 ;;47682009633
 ;;9002226.02101,"998,47682009713 ",.01)
 ;;47682009713
 ;;9002226.02101,"998,47682009713 ",.02)
 ;;47682009713
 ;;9002226.02101,"998,47682009747 ",.01)
 ;;47682009747
 ;;9002226.02101,"998,47682009747 ",.02)
 ;;47682009747
 ;;9002226.02101,"998,47682009764 ",.01)
 ;;47682009764
 ;;9002226.02101,"998,47682009764 ",.02)
 ;;47682009764
 ;;9002226.02101,"998,47682009799 ",.01)
 ;;47682009799
 ;;9002226.02101,"998,47682009799 ",.02)
 ;;47682009799
 ;;9002226.02101,"998,47682009813 ",.01)
 ;;47682009813
 ;;9002226.02101,"998,47682009813 ",.02)
 ;;47682009813
 ;;9002226.02101,"998,47682009833 ",.01)
 ;;47682009833
 ;;9002226.02101,"998,47682009833 ",.02)
 ;;47682009833
 ;;9002226.02101,"998,47682009848 ",.01)
 ;;47682009848
 ;;9002226.02101,"998,47682009848 ",.02)
 ;;47682009848
 ;;9002226.02101,"998,47682009899 ",.01)
 ;;47682009899