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

BGP06A61.m

Go to the documentation of this file.
BGP06A61 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"974,58016-1037-06 ",.01)
 ;;58016-1037-06
 ;;9002226.02101,"974,58016-1037-06 ",.02)
 ;;58016-1037-06
 ;;9002226.02101,"974,58016-1038-01 ",.01)
 ;;58016-1038-01
 ;;9002226.02101,"974,58016-1038-01 ",.02)
 ;;58016-1038-01
 ;;9002226.02101,"974,58016-1039-01 ",.01)
 ;;58016-1039-01
 ;;9002226.02101,"974,58016-1039-01 ",.02)
 ;;58016-1039-01
 ;;9002226.02101,"974,58016-1039-06 ",.01)
 ;;58016-1039-06
 ;;9002226.02101,"974,58016-1039-06 ",.02)
 ;;58016-1039-06
 ;;9002226.02101,"974,58016-1045-01 ",.01)
 ;;58016-1045-01
 ;;9002226.02101,"974,58016-1045-01 ",.02)
 ;;58016-1045-01
 ;;9002226.02101,"974,58016-1046-01 ",.01)
 ;;58016-1046-01
 ;;9002226.02101,"974,58016-1046-01 ",.02)
 ;;58016-1046-01
 ;;9002226.02101,"974,58016-1056-01 ",.01)
 ;;58016-1056-01
 ;;9002226.02101,"974,58016-1056-01 ",.02)
 ;;58016-1056-01
 ;;9002226.02101,"974,58016-1058-01 ",.01)
 ;;58016-1058-01
 ;;9002226.02101,"974,58016-1058-01 ",.02)
 ;;58016-1058-01
 ;;9002226.02101,"974,58016-1062-01 ",.01)
 ;;58016-1062-01
 ;;9002226.02101,"974,58016-1062-01 ",.02)
 ;;58016-1062-01
 ;;9002226.02101,"974,58016-4113-01 ",.01)
 ;;58016-4113-01
 ;;9002226.02101,"974,58016-4113-01 ",.02)
 ;;58016-4113-01
 ;;9002226.02101,"974,58016-4114-01 ",.01)
 ;;58016-4114-01
 ;;9002226.02101,"974,58016-4114-01 ",.02)
 ;;58016-4114-01
 ;;9002226.02101,"974,58016-4147-01 ",.01)
 ;;58016-4147-01
 ;;9002226.02101,"974,58016-4147-01 ",.02)
 ;;58016-4147-01
 ;;9002226.02101,"974,58016-4148-01 ",.01)
 ;;58016-4148-01
 ;;9002226.02101,"974,58016-4148-01 ",.02)
 ;;58016-4148-01
 ;;9002226.02101,"974,58016-4192-01 ",.01)
 ;;58016-4192-01
 ;;9002226.02101,"974,58016-4192-01 ",.02)
 ;;58016-4192-01
 ;;9002226.02101,"974,58016-4192-05 ",.01)
 ;;58016-4192-05
 ;;9002226.02101,"974,58016-4192-05 ",.02)
 ;;58016-4192-05
 ;;9002226.02101,"974,58016-4193-01 ",.01)
 ;;58016-4193-01
 ;;9002226.02101,"974,58016-4193-01 ",.02)
 ;;58016-4193-01
 ;;9002226.02101,"974,58016-4193-05 ",.01)
 ;;58016-4193-05
 ;;9002226.02101,"974,58016-4193-05 ",.02)
 ;;58016-4193-05
 ;;9002226.02101,"974,58016-4786-01 ",.01)
 ;;58016-4786-01
 ;;9002226.02101,"974,58016-4786-01 ",.02)
 ;;58016-4786-01
 ;;9002226.02101,"974,58016-4790-01 ",.01)
 ;;58016-4790-01
 ;;9002226.02101,"974,58016-4790-01 ",.02)
 ;;58016-4790-01
 ;;9002226.02101,"974,58016-4804-01 ",.01)
 ;;58016-4804-01
 ;;9002226.02101,"974,58016-4804-01 ",.02)
 ;;58016-4804-01
 ;;9002226.02101,"974,58016-4807-01 ",.01)
 ;;58016-4807-01
 ;;9002226.02101,"974,58016-4807-01 ",.02)
 ;;58016-4807-01
 ;;9002226.02101,"974,58016-4808-01 ",.01)
 ;;58016-4808-01
 ;;9002226.02101,"974,58016-4808-01 ",.02)
 ;;58016-4808-01
 ;;9002226.02101,"974,58016-4814-01 ",.01)
 ;;58016-4814-01
 ;;9002226.02101,"974,58016-4814-01 ",.02)
 ;;58016-4814-01
 ;;9002226.02101,"974,58016-4834-01 ",.01)
 ;;58016-4834-01
 ;;9002226.02101,"974,58016-4834-01 ",.02)
 ;;58016-4834-01
 ;;9002226.02101,"974,58016-4842-01 ",.01)
 ;;58016-4842-01
 ;;9002226.02101,"974,58016-4842-01 ",.02)
 ;;58016-4842-01
 ;;9002226.02101,"974,58016-4847-01 ",.01)
 ;;58016-4847-01
 ;;9002226.02101,"974,58016-4847-01 ",.02)
 ;;58016-4847-01
 ;;9002226.02101,"974,58016-4869-01 ",.01)
 ;;58016-4869-01
 ;;9002226.02101,"974,58016-4869-01 ",.02)
 ;;58016-4869-01
 ;;9002226.02101,"974,58016-4873-01 ",.01)
 ;;58016-4873-01
 ;;9002226.02101,"974,58016-4873-01 ",.02)
 ;;58016-4873-01
 ;;9002226.02101,"974,58016-4990-01 ",.01)
 ;;58016-4990-01
 ;;9002226.02101,"974,58016-4990-01 ",.02)
 ;;58016-4990-01
 ;;9002226.02101,"974,58016-9438-01 ",.01)
 ;;58016-9438-01
 ;;9002226.02101,"974,58016-9438-01 ",.02)
 ;;58016-9438-01
 ;;9002226.02101,"974,58016-9453-01 ",.01)
 ;;58016-9453-01
 ;;9002226.02101,"974,58016-9453-01 ",.02)
 ;;58016-9453-01
 ;;9002226.02101,"974,58016-9551-01 ",.01)
 ;;58016-9551-01
 ;;9002226.02101,"974,58016-9551-01 ",.02)
 ;;58016-9551-01
 ;;9002226.02101,"974,58664-0742-10 ",.01)
 ;;58664-0742-10
 ;;9002226.02101,"974,58664-0742-10 ",.02)
 ;;58664-0742-10
 ;;9002226.02101,"974,58664-0742-15 ",.01)
 ;;58664-0742-15
 ;;9002226.02101,"974,58664-0742-15 ",.02)
 ;;58664-0742-15
 ;;9002226.02101,"974,58864-0029-30 ",.01)
 ;;58864-0029-30
 ;;9002226.02101,"974,58864-0029-30 ",.02)
 ;;58864-0029-30
 ;;9002226.02101,"974,58864-0029-40 ",.01)
 ;;58864-0029-40
 ;;9002226.02101,"974,58864-0029-40 ",.02)
 ;;58864-0029-40
 ;;9002226.02101,"974,58864-0149-40 ",.01)
 ;;58864-0149-40
 ;;9002226.02101,"974,58864-0149-40 ",.02)
 ;;58864-0149-40
 ;;9002226.02101,"974,58864-0150-30 ",.01)
 ;;58864-0150-30
 ;;9002226.02101,"974,58864-0150-30 ",.02)
 ;;58864-0150-30
 ;;9002226.02101,"974,58864-0189-14 ",.01)
 ;;58864-0189-14
 ;;9002226.02101,"974,58864-0189-14 ",.02)
 ;;58864-0189-14
 ;;9002226.02101,"974,58864-0189-20 ",.01)
 ;;58864-0189-20
 ;;9002226.02101,"974,58864-0189-20 ",.02)
 ;;58864-0189-20
 ;;9002226.02101,"974,58864-0189-30 ",.01)
 ;;58864-0189-30
 ;;9002226.02101,"974,58864-0189-30 ",.02)
 ;;58864-0189-30
 ;;9002226.02101,"974,58864-0190-14 ",.01)
 ;;58864-0190-14
 ;;9002226.02101,"974,58864-0190-14 ",.02)
 ;;58864-0190-14
 ;;9002226.02101,"974,58864-0190-20 ",.01)
 ;;58864-0190-20
 ;;9002226.02101,"974,58864-0190-20 ",.02)
 ;;58864-0190-20
 ;;9002226.02101,"974,58864-0190-30 ",.01)
 ;;58864-0190-30
 ;;9002226.02101,"974,58864-0190-30 ",.02)
 ;;58864-0190-30
 ;;9002226.02101,"974,58864-0199-28 ",.01)
 ;;58864-0199-28
 ;;9002226.02101,"974,58864-0199-28 ",.02)
 ;;58864-0199-28
 ;;9002226.02101,"974,58864-0199-40 ",.01)
 ;;58864-0199-40
 ;;9002226.02101,"974,58864-0199-40 ",.02)
 ;;58864-0199-40
 ;;9002226.02101,"974,58864-0199-56 ",.01)
 ;;58864-0199-56
 ;;9002226.02101,"974,58864-0199-56 ",.02)
 ;;58864-0199-56
 ;;9002226.02101,"974,58864-0379-40 ",.01)
 ;;58864-0379-40
 ;;9002226.02101,"974,58864-0379-40 ",.02)
 ;;58864-0379-40
 ;;9002226.02101,"974,58864-0478-20 ",.01)
 ;;58864-0478-20
 ;;9002226.02101,"974,58864-0478-20 ",.02)
 ;;58864-0478-20
 ;;9002226.02101,"974,58864-0493-40 ",.01)
 ;;58864-0493-40
 ;;9002226.02101,"974,58864-0493-40 ",.02)
 ;;58864-0493-40
 ;;9002226.02101,"974,58864-0493-98 ",.01)
 ;;58864-0493-98
 ;;9002226.02101,"974,58864-0493-98 ",.02)
 ;;58864-0493-98
 ;;9002226.02101,"974,58864-0611-30 ",.01)
 ;;58864-0611-30
 ;;9002226.02101,"974,58864-0611-30 ",.02)
 ;;58864-0611-30
 ;;9002226.02101,"974,58864-0675-30 ",.01)
 ;;58864-0675-30
 ;;9002226.02101,"974,58864-0675-30 ",.02)
 ;;58864-0675-30
 ;;9002226.02101,"974,58864-0675-40 ",.01)
 ;;58864-0675-40
 ;;9002226.02101,"974,58864-0675-40 ",.02)
 ;;58864-0675-40
 ;;9002226.02101,"974,58864-0791-06 ",.01)
 ;;58864-0791-06
 ;;9002226.02101,"974,58864-0791-06 ",.02)
 ;;58864-0791-06
 ;;9002226.02101,"974,59015-0459-01 ",.01)
 ;;59015-0459-01
 ;;9002226.02101,"974,59015-0459-01 ",.02)
 ;;59015-0459-01
 ;;9002226.02101,"974,59015-0460-02 ",.01)
 ;;59015-0460-02
 ;;9002226.02101,"974,59015-0460-02 ",.02)
 ;;59015-0460-02
 ;;9002226.02101,"974,59016-0134-10 ",.01)
 ;;59016-0134-10
 ;;9002226.02101,"974,59016-0134-10 ",.02)
 ;;59016-0134-10
 ;;9002226.02101,"974,59016-0134-12 ",.01)
 ;;59016-0134-12
 ;;9002226.02101,"974,59016-0134-12 ",.02)
 ;;59016-0134-12
 ;;9002226.02101,"974,59016-0134-14 ",.01)
 ;;59016-0134-14
 ;;9002226.02101,"974,59016-0134-14 ",.02)
 ;;59016-0134-14
 ;;9002226.02101,"974,59016-0134-15 ",.01)
 ;;59016-0134-15
 ;;9002226.02101,"974,59016-0134-15 ",.02)
 ;;59016-0134-15
 ;;9002226.02101,"974,59366-7338-01 ",.01)
 ;;59366-7338-01
 ;;9002226.02101,"974,59366-7338-01 ",.02)
 ;;59366-7338-01
 ;;9002226.02101,"974,59366-7339-01 ",.01)
 ;;59366-7339-01
 ;;9002226.02101,"974,59366-7339-01 ",.02)
 ;;59366-7339-01
 ;;9002226.02101,"974,59366-7340-05 ",.01)
 ;;59366-7340-05
 ;;9002226.02101,"974,59366-7340-05 ",.02)
 ;;59366-7340-05
 ;;9002226.02101,"974,59439-0478-02 ",.01)
 ;;59439-0478-02
 ;;9002226.02101,"974,59439-0478-02 ",.02)
 ;;59439-0478-02
 ;;9002226.02101,"974,59762-3051-01 ",.01)
 ;;59762-3051-01
 ;;9002226.02101,"974,59762-3051-01 ",.02)
 ;;59762-3051-01
 ;;9002226.02101,"974,59762-3051-02 ",.01)
 ;;59762-3051-02
 ;;9002226.02101,"974,59762-3051-02 ",.02)
 ;;59762-3051-02
 ;;9002226.02101,"974,59762-3060-01 ",.01)
 ;;59762-3060-01
 ;;9002226.02101,"974,59762-3060-01 ",.02)
 ;;59762-3060-01
 ;;9002226.02101,"974,59762-3060-02 ",.01)
 ;;59762-3060-02
 ;;9002226.02101,"974,59762-3060-02 ",.02)
 ;;59762-3060-02
 ;;9002226.02101,"974,59762-3060-03 ",.01)
 ;;59762-3060-03
 ;;9002226.02101,"974,59762-3060-03 ",.02)
 ;;59762-3060-03
 ;;9002226.02101,"974,59762-3070-01 ",.01)
 ;;59762-3070-01
 ;;9002226.02101,"974,59762-3070-01 ",.02)
 ;;59762-3070-01
 ;;9002226.02101,"974,59762-3070-02 ",.01)
 ;;59762-3070-02
 ;;9002226.02101,"974,59762-3070-02 ",.02)
 ;;59762-3070-02
 ;;9002226.02101,"974,59762-3080-01 ",.01)
 ;;59762-3080-01
 ;;9002226.02101,"974,59762-3080-01 ",.02)
 ;;59762-3080-01
 ;;9002226.02101,"974,59762-3110-01 ",.01)
 ;;59762-3110-01
 ;;9002226.02101,"974,59762-3110-01 ",.02)
 ;;59762-3110-01
 ;;9002226.02101,"974,59762-3120-01 ",.01)
 ;;59762-3120-01
 ;;9002226.02101,"974,59762-3120-01 ",.02)
 ;;59762-3120-01
 ;;9002226.02101,"974,59762-3130-01 ",.01)
 ;;59762-3130-01
 ;;9002226.02101,"974,59762-3130-01 ",.02)
 ;;59762-3130-01
 ;;9002226.02101,"974,59762-3140-01 ",.01)
 ;;59762-3140-01
 ;;9002226.02101,"974,59762-3140-01 ",.02)
 ;;59762-3140-01
 ;;9002226.02101,"974,59762-3328-01 ",.01)
 ;;59762-3328-01
 ;;9002226.02101,"974,59762-3328-01 ",.02)
 ;;59762-3328-01
 ;;9002226.02101,"974,59762-5010-01 ",.01)
 ;;59762-5010-01
 ;;9002226.02101,"974,59762-5010-01 ",.02)
 ;;59762-5010-01
 ;;9002226.02101,"974,59762-5010-02 ",.01)
 ;;59762-5010-02
 ;;9002226.02101,"974,59762-5010-02 ",.02)
 ;;59762-5010-02
 ;;9002226.02101,"974,59772-0036-04 ",.01)
 ;;59772-0036-04
 ;;9002226.02101,"974,59772-0036-04 ",.02)
 ;;59772-0036-04
 ;;9002226.02101,"974,59772-0147-02 ",.01)
 ;;59772-0147-02
 ;;9002226.02101,"974,59772-0147-02 ",.02)
 ;;59772-0147-02
 ;;9002226.02101,"974,59772-0170-01 ",.01)
 ;;59772-0170-01
 ;;9002226.02101,"974,59772-0170-01 ",.02)
 ;;59772-0170-01
 ;;9002226.02101,"974,59772-0170-10 ",.01)
 ;;59772-0170-10
 ;;9002226.02101,"974,59772-0170-10 ",.02)
 ;;59772-0170-10
 ;;9002226.02101,"974,59772-0174-02 ",.01)
 ;;59772-0174-02
 ;;9002226.02101,"974,59772-0174-02 ",.02)
 ;;59772-0174-02
 ;;9002226.02101,"974,59772-0174-20 ",.01)
 ;;59772-0174-20
 ;;9002226.02101,"974,59772-0174-20 ",.02)
 ;;59772-0174-20
 ;;9002226.02101,"974,59772-0802-01 ",.01)
 ;;59772-0802-01
 ;;9002226.02101,"974,59772-0802-01 ",.02)
 ;;59772-0802-01
 ;;9002226.02101,"974,59772-0802-02 ",.01)
 ;;59772-0802-02
 ;;9002226.02101,"974,59772-0802-02 ",.02)
 ;;59772-0802-02
 ;;9002226.02101,"974,59772-0803-02 ",.01)
 ;;59772-0803-02
 ;;9002226.02101,"974,59772-0803-02 ",.02)
 ;;59772-0803-02
 ;;9002226.02101,"974,59772-0815-05 ",.01)
 ;;59772-0815-05
 ;;9002226.02101,"974,59772-0815-05 ",.02)
 ;;59772-0815-05
 ;;9002226.02101,"974,59772-0815-50 ",.01)
 ;;59772-0815-50
 ;;9002226.02101,"974,59772-0815-50 ",.02)
 ;;59772-0815-50
 ;;9002226.02101,"974,59772-6048-01 ",.01)
 ;;59772-6048-01
 ;;9002226.02101,"974,59772-6048-01 ",.02)
 ;;59772-6048-01
 ;;9002226.02101,"974,59772-6058-01 ",.01)
 ;;59772-6058-01
 ;;9002226.02101,"974,59772-6058-01 ",.02)
 ;;59772-6058-01
 ;;9002226.02101,"974,59772-6550-01 ",.01)
 ;;59772-6550-01
 ;;9002226.02101,"974,59772-6550-01 ",.02)
 ;;59772-6550-01
 ;;9002226.02101,"974,59772-6550-02 ",.01)
 ;;59772-6550-02
 ;;9002226.02101,"974,59772-6550-02 ",.02)
 ;;59772-6550-02
 ;;9002226.02101,"974,59772-6551-01 ",.01)
 ;;59772-6551-01
 ;;9002226.02101,"974,59772-6551-01 ",.02)
 ;;59772-6551-01
 ;;9002226.02101,"974,59772-6569-01 ",.01)
 ;;59772-6569-01
 ;;9002226.02101,"974,59772-6569-01 ",.02)
 ;;59772-6569-01
 ;;9002226.02101,"974,59772-7271-02 ",.01)
 ;;59772-7271-02
 ;;9002226.02101,"974,59772-7271-02 ",.02)
 ;;59772-7271-02
 ;;9002226.02101,"974,59772-7271-03 ",.01)
 ;;59772-7271-03
 ;;9002226.02101,"974,59772-7271-03 ",.02)
 ;;59772-7271-03
 ;;9002226.02101,"974,59772-7271-04 ",.01)
 ;;59772-7271-04
 ;;9002226.02101,"974,59772-7271-04 ",.02)
 ;;59772-7271-04
 ;;9002226.02101,"974,59772-7271-07 ",.01)
 ;;59772-7271-07
 ;;9002226.02101,"974,59772-7271-07 ",.02)
 ;;59772-7271-07
 ;;9002226.02101,"974,59772-7490-02 ",.01)
 ;;59772-7490-02
 ;;9002226.02101,"974,59772-7490-02 ",.02)
 ;;59772-7490-02
 ;;9002226.02101,"974,59772-7490-04 ",.01)
 ;;59772-7490-04
 ;;9002226.02101,"974,59772-7490-04 ",.02)
 ;;59772-7490-04
 ;;9002226.02101,"974,59772-7491-04 ",.01)
 ;;59772-7491-04
 ;;9002226.02101,"974,59772-7491-04 ",.02)
 ;;59772-7491-04
 ;;9002226.02101,"974,59772-7492-02 ",.01)
 ;;59772-7492-02
 ;;9002226.02101,"974,59772-7492-02 ",.02)
 ;;59772-7492-02
 ;;9002226.02101,"974,59772-7492-04 ",.01)
 ;;59772-7492-04
 ;;9002226.02101,"974,59772-7492-04 ",.02)
 ;;59772-7492-04
 ;;9002226.02101,"974,59772-7493-01 ",.01)
 ;;59772-7493-01
 ;;9002226.02101,"974,59772-7493-01 ",.02)
 ;;59772-7493-01
 ;;9002226.02101,"974,59772-7493-03 ",.01)
 ;;59772-7493-03
 ;;9002226.02101,"974,59772-7493-03 ",.02)
 ;;59772-7493-03
 ;;9002226.02101,"974,59772-7494-04 ",.01)
 ;;59772-7494-04
 ;;9002226.02101,"974,59772-7494-04 ",.02)
 ;;59772-7494-04
 ;;9002226.02101,"974,59772-7497-01 ",.01)
 ;;59772-7497-01
 ;;9002226.02101,"974,59772-7497-01 ",.02)
 ;;59772-7497-01
 ;;9002226.02101,"974,59772-7497-03 ",.01)
 ;;59772-7497-03
 ;;9002226.02101,"974,59772-7497-03 ",.02)
 ;;59772-7497-03