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

BGPM5ARZ.m

Go to the documentation of this file.
BGPM5ARZ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,60505017205 ",.01)
 ;;60505017205
 ;;9002226.02101,"1005,60505017205 ",.02)
 ;;60505017205
 ;;9002226.02101,"1005,60505017300 ",.01)
 ;;60505017300
 ;;9002226.02101,"1005,60505017300 ",.02)
 ;;60505017300
 ;;9002226.02101,"1005,60505017301 ",.01)
 ;;60505017301
 ;;9002226.02101,"1005,60505017301 ",.02)
 ;;60505017301
 ;;9002226.02101,"1005,60505017302 ",.01)
 ;;60505017302
 ;;9002226.02101,"1005,60505017302 ",.02)
 ;;60505017302
 ;;9002226.02101,"1005,60505017305 ",.01)
 ;;60505017305
 ;;9002226.02101,"1005,60505017305 ",.02)
 ;;60505017305
 ;;9002226.02101,"1005,60505017400 ",.01)
 ;;60505017400
 ;;9002226.02101,"1005,60505017400 ",.02)
 ;;60505017400
 ;;9002226.02101,"1005,60505017401 ",.01)
 ;;60505017401
 ;;9002226.02101,"1005,60505017401 ",.02)
 ;;60505017401
 ;;9002226.02101,"1005,60505017402 ",.01)
 ;;60505017402
 ;;9002226.02101,"1005,60505017402 ",.02)
 ;;60505017402
 ;;9002226.02101,"1005,60505017405 ",.01)
 ;;60505017405
 ;;9002226.02101,"1005,60505017405 ",.02)
 ;;60505017405
 ;;9002226.02101,"1005,60505017500 ",.01)
 ;;60505017500
 ;;9002226.02101,"1005,60505017500 ",.02)
 ;;60505017500
 ;;9002226.02101,"1005,60505017501 ",.01)
 ;;60505017501
 ;;9002226.02101,"1005,60505017501 ",.02)
 ;;60505017501
 ;;9002226.02101,"1005,60505017502 ",.01)
 ;;60505017502
 ;;9002226.02101,"1005,60505017502 ",.02)
 ;;60505017502
 ;;9002226.02101,"1005,60505017505 ",.01)
 ;;60505017505
 ;;9002226.02101,"1005,60505017505 ",.02)
 ;;60505017505
 ;;9002226.02101,"1005,60505018400 ",.01)
 ;;60505018400
 ;;9002226.02101,"1005,60505018400 ",.02)
 ;;60505018400
 ;;9002226.02101,"1005,60505018401 ",.01)
 ;;60505018401
 ;;9002226.02101,"1005,60505018401 ",.02)
 ;;60505018401
 ;;9002226.02101,"1005,60505018500 ",.01)
 ;;60505018500
 ;;9002226.02101,"1005,60505018500 ",.02)
 ;;60505018500
 ;;9002226.02101,"1005,60505018501 ",.01)
 ;;60505018501
 ;;9002226.02101,"1005,60505018501 ",.02)
 ;;60505018501
 ;;9002226.02101,"1005,60505018507 ",.01)
 ;;60505018507
 ;;9002226.02101,"1005,60505018507 ",.02)
 ;;60505018507
 ;;9002226.02101,"1005,60505018509 ",.01)
 ;;60505018509
 ;;9002226.02101,"1005,60505018509 ",.02)
 ;;60505018509
 ;;9002226.02101,"1005,60505018600 ",.01)
 ;;60505018600
 ;;9002226.02101,"1005,60505018600 ",.02)
 ;;60505018600
 ;;9002226.02101,"1005,60505018601 ",.01)
 ;;60505018601
 ;;9002226.02101,"1005,60505018601 ",.02)
 ;;60505018601
 ;;9002226.02101,"1005,60505018607 ",.01)
 ;;60505018607
 ;;9002226.02101,"1005,60505018607 ",.02)
 ;;60505018607
 ;;9002226.02101,"1005,60505018609 ",.01)
 ;;60505018609
 ;;9002226.02101,"1005,60505018609 ",.02)
 ;;60505018609
 ;;9002226.02101,"1005,60505018700 ",.01)
 ;;60505018700
 ;;9002226.02101,"1005,60505018700 ",.02)
 ;;60505018700
 ;;9002226.02101,"1005,60505018701 ",.01)
 ;;60505018701
 ;;9002226.02101,"1005,60505018701 ",.02)
 ;;60505018701
 ;;9002226.02101,"1005,60505018707 ",.01)
 ;;60505018707
 ;;9002226.02101,"1005,60505018707 ",.02)
 ;;60505018707
 ;;9002226.02101,"1005,60505018709 ",.01)
 ;;60505018709
 ;;9002226.02101,"1005,60505018709 ",.02)
 ;;60505018709
 ;;9002226.02101,"1005,60505018800 ",.01)
 ;;60505018800
 ;;9002226.02101,"1005,60505018800 ",.02)
 ;;60505018800
 ;;9002226.02101,"1005,60505018801 ",.01)
 ;;60505018801
 ;;9002226.02101,"1005,60505018801 ",.02)
 ;;60505018801
 ;;9002226.02101,"1005,60505018809 ",.01)
 ;;60505018809
 ;;9002226.02101,"1005,60505018809 ",.02)
 ;;60505018809
 ;;9002226.02101,"1005,60505018900 ",.01)
 ;;60505018900
 ;;9002226.02101,"1005,60505018900 ",.02)
 ;;60505018900
 ;;9002226.02101,"1005,60505018901 ",.01)
 ;;60505018901
 ;;9002226.02101,"1005,60505018901 ",.02)
 ;;60505018901
 ;;9002226.02101,"1005,60505018908 ",.01)
 ;;60505018908
 ;;9002226.02101,"1005,60505018908 ",.02)
 ;;60505018908
 ;;9002226.02101,"1005,60505018909 ",.01)
 ;;60505018909
 ;;9002226.02101,"1005,60505018909 ",.02)
 ;;60505018909
 ;;9002226.02101,"1005,60505020501 ",.01)
 ;;60505020501
 ;;9002226.02101,"1005,60505020501 ",.02)
 ;;60505020501
 ;;9002226.02101,"1005,60505020502 ",.01)
 ;;60505020502
 ;;9002226.02101,"1005,60505020502 ",.02)
 ;;60505020502
 ;;9002226.02101,"1005,60505020503 ",.01)
 ;;60505020503
 ;;9002226.02101,"1005,60505020503 ",.02)
 ;;60505020503
 ;;9002226.02101,"1005,60505020505 ",.01)
 ;;60505020505
 ;;9002226.02101,"1005,60505020505 ",.02)
 ;;60505020505
 ;;9002226.02101,"1005,60505020507 ",.01)
 ;;60505020507
 ;;9002226.02101,"1005,60505020507 ",.02)
 ;;60505020507
 ;;9002226.02101,"1005,60505020601 ",.01)
 ;;60505020601
 ;;9002226.02101,"1005,60505020601 ",.02)
 ;;60505020601
 ;;9002226.02101,"1005,60505020602 ",.01)
 ;;60505020602
 ;;9002226.02101,"1005,60505020602 ",.02)
 ;;60505020602
 ;;9002226.02101,"1005,60505020603 ",.01)
 ;;60505020603
 ;;9002226.02101,"1005,60505020603 ",.02)
 ;;60505020603
 ;;9002226.02101,"1005,60505020605 ",.01)
 ;;60505020605
 ;;9002226.02101,"1005,60505020605 ",.02)
 ;;60505020605
 ;;9002226.02101,"1005,60505020607 ",.01)
 ;;60505020607
 ;;9002226.02101,"1005,60505020607 ",.02)
 ;;60505020607
 ;;9002226.02101,"1005,60505020701 ",.01)
 ;;60505020701
 ;;9002226.02101,"1005,60505020701 ",.02)
 ;;60505020701
 ;;9002226.02101,"1005,60505020702 ",.01)
 ;;60505020702
 ;;9002226.02101,"1005,60505020702 ",.02)
 ;;60505020702
 ;;9002226.02101,"1005,60505020703 ",.01)
 ;;60505020703
 ;;9002226.02101,"1005,60505020703 ",.02)
 ;;60505020703
 ;;9002226.02101,"1005,60505020705 ",.01)
 ;;60505020705
 ;;9002226.02101,"1005,60505020705 ",.02)
 ;;60505020705
 ;;9002226.02101,"1005,60505020707 ",.01)
 ;;60505020707
 ;;9002226.02101,"1005,60505020707 ",.02)
 ;;60505020707
 ;;9002226.02101,"1005,60505020801 ",.01)
 ;;60505020801
 ;;9002226.02101,"1005,60505020801 ",.02)
 ;;60505020801
 ;;9002226.02101,"1005,60505020802 ",.01)
 ;;60505020802
 ;;9002226.02101,"1005,60505020802 ",.02)
 ;;60505020802
 ;;9002226.02101,"1005,60505020901 ",.01)
 ;;60505020901
 ;;9002226.02101,"1005,60505020901 ",.02)
 ;;60505020901
 ;;9002226.02101,"1005,60505020902 ",.01)
 ;;60505020902
 ;;9002226.02101,"1005,60505020902 ",.02)
 ;;60505020902
 ;;9002226.02101,"1005,60505027101 ",.01)
 ;;60505027101
 ;;9002226.02101,"1005,60505027101 ",.02)
 ;;60505027101
 ;;9002226.02101,"1005,60505027103 ",.01)
 ;;60505027103
 ;;9002226.02101,"1005,60505027103 ",.02)
 ;;60505027103
 ;;9002226.02101,"1005,60505027105 ",.01)
 ;;60505027105
 ;;9002226.02101,"1005,60505027105 ",.02)
 ;;60505027105
 ;;9002226.02101,"1005,60505027108 ",.01)
 ;;60505027108
 ;;9002226.02101,"1005,60505027108 ",.02)
 ;;60505027108
 ;;9002226.02101,"1005,60505027201 ",.01)
 ;;60505027201
 ;;9002226.02101,"1005,60505027201 ",.02)
 ;;60505027201
 ;;9002226.02101,"1005,60505027203 ",.01)
 ;;60505027203
 ;;9002226.02101,"1005,60505027203 ",.02)
 ;;60505027203
 ;;9002226.02101,"1005,60505027205 ",.01)
 ;;60505027205
 ;;9002226.02101,"1005,60505027205 ",.02)
 ;;60505027205
 ;;9002226.02101,"1005,60505027208 ",.01)
 ;;60505027208
 ;;9002226.02101,"1005,60505027208 ",.02)
 ;;60505027208
 ;;9002226.02101,"1005,60505251002 ",.01)
 ;;60505251002
 ;;9002226.02101,"1005,60505251002 ",.02)
 ;;60505251002
 ;;9002226.02101,"1005,60505251003 ",.01)
 ;;60505251003
 ;;9002226.02101,"1005,60505251003 ",.02)
 ;;60505251003
 ;;9002226.02101,"1005,60505251004 ",.01)
 ;;60505251004
 ;;9002226.02101,"1005,60505251004 ",.02)
 ;;60505251004
 ;;9002226.02101,"1005,60505251102 ",.01)
 ;;60505251102
 ;;9002226.02101,"1005,60505251102 ",.02)
 ;;60505251102
 ;;9002226.02101,"1005,60505251103 ",.01)
 ;;60505251103
 ;;9002226.02101,"1005,60505251103 ",.02)
 ;;60505251103
 ;;9002226.02101,"1005,60505251104 ",.01)
 ;;60505251104
 ;;9002226.02101,"1005,60505251104 ",.02)
 ;;60505251104
 ;;9002226.02101,"1005,60505251202 ",.01)
 ;;60505251202
 ;;9002226.02101,"1005,60505251202 ",.02)
 ;;60505251202
 ;;9002226.02101,"1005,60505251203 ",.01)
 ;;60505251203
 ;;9002226.02101,"1005,60505251203 ",.02)
 ;;60505251203
 ;;9002226.02101,"1005,60505251204 ",.01)
 ;;60505251204
 ;;9002226.02101,"1005,60505251204 ",.02)
 ;;60505251204
 ;;9002226.02101,"1005,60505251208 ",.01)
 ;;60505251208
 ;;9002226.02101,"1005,60505251208 ",.02)
 ;;60505251208
 ;;9002226.02101,"1005,60505268301 ",.01)
 ;;60505268301
 ;;9002226.02101,"1005,60505268301 ",.02)
 ;;60505268301
 ;;9002226.02101,"1005,60505268401 ",.01)
 ;;60505268401
 ;;9002226.02101,"1005,60505268401 ",.02)
 ;;60505268401
 ;;9002226.02101,"1005,60505268408 ",.01)
 ;;60505268408
 ;;9002226.02101,"1005,60505268408 ",.02)
 ;;60505268408
 ;;9002226.02101,"1005,60505268409 ",.01)
 ;;60505268409
 ;;9002226.02101,"1005,60505268409 ",.02)
 ;;60505268409
 ;;9002226.02101,"1005,60505268501 ",.01)
 ;;60505268501
 ;;9002226.02101,"1005,60505268501 ",.02)
 ;;60505268501
 ;;9002226.02101,"1005,60505268508 ",.01)
 ;;60505268508
 ;;9002226.02101,"1005,60505268508 ",.02)
 ;;60505268508
 ;;9002226.02101,"1005,60505268509 ",.01)
 ;;60505268509
 ;;9002226.02101,"1005,60505268509 ",.02)
 ;;60505268509
 ;;9002226.02101,"1005,60505268601 ",.01)
 ;;60505268601
 ;;9002226.02101,"1005,60505268601 ",.02)
 ;;60505268601
 ;;9002226.02101,"1005,60505268608 ",.01)
 ;;60505268608
 ;;9002226.02101,"1005,60505268608 ",.02)
 ;;60505268608
 ;;9002226.02101,"1005,60505268609 ",.01)
 ;;60505268609
 ;;9002226.02101,"1005,60505268609 ",.02)
 ;;60505268609
 ;;9002226.02101,"1005,60505268801 ",.01)
 ;;60505268801
 ;;9002226.02101,"1005,60505268801 ",.02)
 ;;60505268801
 ;;9002226.02101,"1005,60505268808 ",.01)
 ;;60505268808
 ;;9002226.02101,"1005,60505268808 ",.02)
 ;;60505268808
 ;;9002226.02101,"1005,60505268809 ",.01)
 ;;60505268809
 ;;9002226.02101,"1005,60505268809 ",.02)
 ;;60505268809
 ;;9002226.02101,"1005,60505268901 ",.01)
 ;;60505268901
 ;;9002226.02101,"1005,60505268901 ",.02)
 ;;60505268901
 ;;9002226.02101,"1005,60505269001 ",.01)
 ;;60505269001
 ;;9002226.02101,"1005,60505269001 ",.02)
 ;;60505269001
 ;;9002226.02101,"1005,60505269101 ",.01)
 ;;60505269101
 ;;9002226.02101,"1005,60505269101 ",.02)
 ;;60505269101
 ;;9002226.02101,"1005,60598008001 ",.01)
 ;;60598008001
 ;;9002226.02101,"1005,60598008001 ",.02)
 ;;60598008001
 ;;9002226.02101,"1005,60598010001 ",.01)
 ;;60598010001
 ;;9002226.02101,"1005,60598010001 ",.02)
 ;;60598010001
 ;;9002226.02101,"1005,60598010101 ",.01)
 ;;60598010101
 ;;9002226.02101,"1005,60598010101 ",.02)
 ;;60598010101
 ;;9002226.02101,"1005,60763101100 ",.01)
 ;;60763101100
 ;;9002226.02101,"1005,60763101100 ",.02)
 ;;60763101100
 ;;9002226.02101,"1005,60763101102 ",.01)
 ;;60763101102
 ;;9002226.02101,"1005,60763101102 ",.02)
 ;;60763101102
 ;;9002226.02101,"1005,60763101200 ",.01)
 ;;60763101200
 ;;9002226.02101,"1005,60763101200 ",.02)
 ;;60763101200
 ;;9002226.02101,"1005,60763101202 ",.01)
 ;;60763101202
 ;;9002226.02101,"1005,60763101202 ",.02)
 ;;60763101202
 ;;9002226.02101,"1005,60763101300 ",.01)
 ;;60763101300
 ;;9002226.02101,"1005,60763101300 ",.02)
 ;;60763101300
 ;;9002226.02101,"1005,60763101302 ",.01)
 ;;60763101302
 ;;9002226.02101,"1005,60763101302 ",.02)
 ;;60763101302
 ;;9002226.02101,"1005,60763101400 ",.01)
 ;;60763101400
 ;;9002226.02101,"1005,60763101400 ",.02)
 ;;60763101400
 ;;9002226.02101,"1005,60793071001 ",.01)
 ;;60793071001
 ;;9002226.02101,"1005,60793071001 ",.02)
 ;;60793071001
 ;;9002226.02101,"1005,60793071005 ",.01)
 ;;60793071005
 ;;9002226.02101,"1005,60793071005 ",.02)
 ;;60793071005
 ;;9002226.02101,"1005,60793071101 ",.01)
 ;;60793071101
 ;;9002226.02101,"1005,60793071101 ",.02)
 ;;60793071101
 ;;9002226.02101,"1005,60793071105 ",.01)
 ;;60793071105