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

BGP83A33.m

Go to the documentation of this file.
BGP83A33 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1828,60429-0525-12 ",.02)
 ;;60429-0525-12
 ;;9002226.02101,"1828,60429-0525-15 ",.01)
 ;;60429-0525-15
 ;;9002226.02101,"1828,60429-0525-15 ",.02)
 ;;60429-0525-15
 ;;9002226.02101,"1828,60429-0525-30 ",.01)
 ;;60429-0525-30
 ;;9002226.02101,"1828,60429-0525-30 ",.02)
 ;;60429-0525-30
 ;;9002226.02101,"1828,60429-0525-45 ",.01)
 ;;60429-0525-45
 ;;9002226.02101,"1828,60429-0525-45 ",.02)
 ;;60429-0525-45
 ;;9002226.02101,"1828,60429-0525-60 ",.01)
 ;;60429-0525-60
 ;;9002226.02101,"1828,60429-0525-60 ",.02)
 ;;60429-0525-60
 ;;9002226.02101,"1828,60429-0525-90 ",.01)
 ;;60429-0525-90
 ;;9002226.02101,"1828,60429-0525-90 ",.02)
 ;;60429-0525-90
 ;;9002226.02101,"1828,60429-0526-30 ",.01)
 ;;60429-0526-30
 ;;9002226.02101,"1828,60429-0526-30 ",.02)
 ;;60429-0526-30
 ;;9002226.02101,"1828,60429-0526-60 ",.01)
 ;;60429-0526-60
 ;;9002226.02101,"1828,60429-0526-60 ",.02)
 ;;60429-0526-60
 ;;9002226.02101,"1828,60429-0526-90 ",.01)
 ;;60429-0526-90
 ;;9002226.02101,"1828,60429-0526-90 ",.02)
 ;;60429-0526-90
 ;;9002226.02101,"1828,60429-0542-01 ",.01)
 ;;60429-0542-01
 ;;9002226.02101,"1828,60429-0542-01 ",.02)
 ;;60429-0542-01
 ;;9002226.02101,"1828,60429-0542-05 ",.01)
 ;;60429-0542-05
 ;;9002226.02101,"1828,60429-0542-05 ",.02)
 ;;60429-0542-05
 ;;9002226.02101,"1828,60429-0543-01 ",.01)
 ;;60429-0543-01
 ;;9002226.02101,"1828,60429-0543-01 ",.02)
 ;;60429-0543-01
 ;;9002226.02101,"1828,60429-0543-05 ",.01)
 ;;60429-0543-05
 ;;9002226.02101,"1828,60429-0543-05 ",.02)
 ;;60429-0543-05
 ;;9002226.02101,"1828,60429-0554-01 ",.01)
 ;;60429-0554-01
 ;;9002226.02101,"1828,60429-0554-01 ",.02)
 ;;60429-0554-01
 ;;9002226.02101,"1828,60429-0555-01 ",.01)
 ;;60429-0555-01
 ;;9002226.02101,"1828,60429-0555-01 ",.02)
 ;;60429-0555-01
 ;;9002226.02101,"1828,60429-0556-01 ",.01)
 ;;60429-0556-01
 ;;9002226.02101,"1828,60429-0556-01 ",.02)
 ;;60429-0556-01
 ;;9002226.02101,"1828,60429-0566-01 ",.01)
 ;;60429-0566-01
 ;;9002226.02101,"1828,60429-0566-01 ",.02)
 ;;60429-0566-01
 ;;9002226.02101,"1828,60429-0567-01 ",.01)
 ;;60429-0567-01
 ;;9002226.02101,"1828,60429-0567-01 ",.02)
 ;;60429-0567-01
 ;;9002226.02101,"1828,60687-0153-11 ",.01)
 ;;60687-0153-11
 ;;9002226.02101,"1828,60687-0153-11 ",.02)
 ;;60687-0153-11
 ;;9002226.02101,"1828,60687-0153-21 ",.01)
 ;;60687-0153-21
 ;;9002226.02101,"1828,60687-0153-21 ",.02)
 ;;60687-0153-21
 ;;9002226.02101,"1828,60760-0206-30 ",.01)
 ;;60760-0206-30
 ;;9002226.02101,"1828,60760-0206-30 ",.02)
 ;;60760-0206-30
 ;;9002226.02101,"1828,60760-0207-30 ",.01)
 ;;60760-0207-30
 ;;9002226.02101,"1828,60760-0207-30 ",.02)
 ;;60760-0207-30
 ;;9002226.02101,"1828,60760-0273-30 ",.01)
 ;;60760-0273-30
 ;;9002226.02101,"1828,60760-0273-30 ",.02)
 ;;60760-0273-30
 ;;9002226.02101,"1828,60760-0273-60 ",.01)
 ;;60760-0273-60
 ;;9002226.02101,"1828,60760-0273-60 ",.02)
 ;;60760-0273-60
 ;;9002226.02101,"1828,60760-0300-30 ",.01)
 ;;60760-0300-30
 ;;9002226.02101,"1828,60760-0300-30 ",.02)
 ;;60760-0300-30
 ;;9002226.02101,"1828,60760-0300-60 ",.01)
 ;;60760-0300-60
 ;;9002226.02101,"1828,60760-0300-60 ",.02)
 ;;60760-0300-60
 ;;9002226.02101,"1828,60760-0300-90 ",.01)
 ;;60760-0300-90
 ;;9002226.02101,"1828,60760-0300-90 ",.02)
 ;;60760-0300-90
 ;;9002226.02101,"1828,60760-0454-30 ",.01)
 ;;60760-0454-30
 ;;9002226.02101,"1828,60760-0454-30 ",.02)
 ;;60760-0454-30
 ;;9002226.02101,"1828,60760-0457-10 ",.01)
 ;;60760-0457-10
 ;;9002226.02101,"1828,60760-0457-10 ",.02)
 ;;60760-0457-10
 ;;9002226.02101,"1828,60760-0457-15 ",.01)
 ;;60760-0457-15
 ;;9002226.02101,"1828,60760-0457-15 ",.02)
 ;;60760-0457-15
 ;;9002226.02101,"1828,60760-0457-30 ",.01)
 ;;60760-0457-30
 ;;9002226.02101,"1828,60760-0457-30 ",.02)
 ;;60760-0457-30
 ;;9002226.02101,"1828,60760-0775-10 ",.01)
 ;;60760-0775-10
 ;;9002226.02101,"1828,60760-0775-10 ",.02)
 ;;60760-0775-10
 ;;9002226.02101,"1828,60760-0775-30 ",.01)
 ;;60760-0775-30
 ;;9002226.02101,"1828,60760-0775-30 ",.02)
 ;;60760-0775-30
 ;;9002226.02101,"1828,60760-0776-30 ",.01)
 ;;60760-0776-30
 ;;9002226.02101,"1828,60760-0776-30 ",.02)
 ;;60760-0776-30
 ;;9002226.02101,"1828,60760-0813-30 ",.01)
 ;;60760-0813-30
 ;;9002226.02101,"1828,60760-0813-30 ",.02)
 ;;60760-0813-30
 ;;9002226.02101,"1828,61825-0165-10 ",.01)
 ;;61825-0165-10
 ;;9002226.02101,"1828,61825-0165-10 ",.02)
 ;;61825-0165-10
 ;;9002226.02101,"1828,61919-0005-30 ",.01)
 ;;61919-0005-30
 ;;9002226.02101,"1828,61919-0005-30 ",.02)
 ;;61919-0005-30
 ;;9002226.02101,"1828,61919-0005-60 ",.01)
 ;;61919-0005-60
 ;;9002226.02101,"1828,61919-0005-60 ",.02)
 ;;61919-0005-60
 ;;9002226.02101,"1828,61919-0005-90 ",.01)
 ;;61919-0005-90
 ;;9002226.02101,"1828,61919-0005-90 ",.02)
 ;;61919-0005-90
 ;;9002226.02101,"1828,61919-0006-30 ",.01)
 ;;61919-0006-30
 ;;9002226.02101,"1828,61919-0006-30 ",.02)
 ;;61919-0006-30
 ;;9002226.02101,"1828,61919-0006-60 ",.01)
 ;;61919-0006-60
 ;;9002226.02101,"1828,61919-0006-60 ",.02)
 ;;61919-0006-60
 ;;9002226.02101,"1828,61919-0058-30 ",.01)
 ;;61919-0058-30
 ;;9002226.02101,"1828,61919-0058-30 ",.02)
 ;;61919-0058-30
 ;;9002226.02101,"1828,61919-0058-60 ",.01)
 ;;61919-0058-60
 ;;9002226.02101,"1828,61919-0058-60 ",.02)
 ;;61919-0058-60
 ;;9002226.02101,"1828,61919-0058-90 ",.01)
 ;;61919-0058-90
 ;;9002226.02101,"1828,61919-0058-90 ",.02)
 ;;61919-0058-90
 ;;9002226.02101,"1828,61919-0059-30 ",.01)
 ;;61919-0059-30
 ;;9002226.02101,"1828,61919-0059-30 ",.02)
 ;;61919-0059-30
 ;;9002226.02101,"1828,61919-0059-60 ",.01)
 ;;61919-0059-60
 ;;9002226.02101,"1828,61919-0059-60 ",.02)
 ;;61919-0059-60
 ;;9002226.02101,"1828,61919-0059-90 ",.01)
 ;;61919-0059-90
 ;;9002226.02101,"1828,61919-0059-90 ",.02)
 ;;61919-0059-90
 ;;9002226.02101,"1828,61919-0062-60 ",.01)
 ;;61919-0062-60
 ;;9002226.02101,"1828,61919-0062-60 ",.02)
 ;;61919-0062-60
 ;;9002226.02101,"1828,61919-0070-10 ",.01)
 ;;61919-0070-10
 ;;9002226.02101,"1828,61919-0070-10 ",.02)
 ;;61919-0070-10
 ;;9002226.02101,"1828,61919-0070-30 ",.01)
 ;;61919-0070-30
 ;;9002226.02101,"1828,61919-0070-30 ",.02)
 ;;61919-0070-30
 ;;9002226.02101,"1828,61919-0070-60 ",.01)
 ;;61919-0070-60
 ;;9002226.02101,"1828,61919-0070-60 ",.02)
 ;;61919-0070-60
 ;;9002226.02101,"1828,61919-0070-71 ",.01)
 ;;61919-0070-71
 ;;9002226.02101,"1828,61919-0070-71 ",.02)
 ;;61919-0070-71
 ;;9002226.02101,"1828,61919-0070-72 ",.01)
 ;;61919-0070-72
 ;;9002226.02101,"1828,61919-0070-72 ",.02)
 ;;61919-0070-72
 ;;9002226.02101,"1828,61919-0070-90 ",.01)
 ;;61919-0070-90
 ;;9002226.02101,"1828,61919-0070-90 ",.02)
 ;;61919-0070-90
 ;;9002226.02101,"1828,61919-0071-20 ",.01)
 ;;61919-0071-20
 ;;9002226.02101,"1828,61919-0071-20 ",.02)
 ;;61919-0071-20
 ;;9002226.02101,"1828,61919-0071-30 ",.01)
 ;;61919-0071-30
 ;;9002226.02101,"1828,61919-0071-30 ",.02)
 ;;61919-0071-30
 ;;9002226.02101,"1828,61919-0071-60 ",.01)
 ;;61919-0071-60
 ;;9002226.02101,"1828,61919-0071-60 ",.02)
 ;;61919-0071-60
 ;;9002226.02101,"1828,61919-0088-72 ",.01)
 ;;61919-0088-72
 ;;9002226.02101,"1828,61919-0088-72 ",.02)
 ;;61919-0088-72
 ;;9002226.02101,"1828,61919-0089-30 ",.01)
 ;;61919-0089-30
 ;;9002226.02101,"1828,61919-0089-30 ",.02)
 ;;61919-0089-30
 ;;9002226.02101,"1828,61919-0089-60 ",.01)
 ;;61919-0089-60
 ;;9002226.02101,"1828,61919-0089-60 ",.02)
 ;;61919-0089-60
 ;;9002226.02101,"1828,61919-0143-30 ",.01)
 ;;61919-0143-30
 ;;9002226.02101,"1828,61919-0143-30 ",.02)
 ;;61919-0143-30
 ;;9002226.02101,"1828,61919-0143-60 ",.01)
 ;;61919-0143-60
 ;;9002226.02101,"1828,61919-0143-60 ",.02)
 ;;61919-0143-60
 ;;9002226.02101,"1828,61919-0214-30 ",.01)
 ;;61919-0214-30
 ;;9002226.02101,"1828,61919-0214-30 ",.02)
 ;;61919-0214-30
 ;;9002226.02101,"1828,61919-0263-30 ",.01)
 ;;61919-0263-30
 ;;9002226.02101,"1828,61919-0263-30 ",.02)
 ;;61919-0263-30
 ;;9002226.02101,"1828,61919-0264-30 ",.01)
 ;;61919-0264-30
 ;;9002226.02101,"1828,61919-0264-30 ",.02)
 ;;61919-0264-30
 ;;9002226.02101,"1828,61919-0367-30 ",.01)
 ;;61919-0367-30
 ;;9002226.02101,"1828,61919-0367-30 ",.02)
 ;;61919-0367-30
 ;;9002226.02101,"1828,61919-0367-60 ",.01)
 ;;61919-0367-60
 ;;9002226.02101,"1828,61919-0367-60 ",.02)
 ;;61919-0367-60
 ;;9002226.02101,"1828,61919-0367-90 ",.01)
 ;;61919-0367-90
 ;;9002226.02101,"1828,61919-0367-90 ",.02)
 ;;61919-0367-90
 ;;9002226.02101,"1828,61919-0438-30 ",.01)
 ;;61919-0438-30
 ;;9002226.02101,"1828,61919-0438-30 ",.02)
 ;;61919-0438-30
 ;;9002226.02101,"1828,61919-0447-30 ",.01)
 ;;61919-0447-30
 ;;9002226.02101,"1828,61919-0447-30 ",.02)
 ;;61919-0447-30
 ;;9002226.02101,"1828,61919-0447-60 ",.01)
 ;;61919-0447-60
 ;;9002226.02101,"1828,61919-0447-60 ",.02)
 ;;61919-0447-60
 ;;9002226.02101,"1828,61919-0481-30 ",.01)
 ;;61919-0481-30
 ;;9002226.02101,"1828,61919-0481-30 ",.02)
 ;;61919-0481-30
 ;;9002226.02101,"1828,61919-0481-60 ",.01)
 ;;61919-0481-60
 ;;9002226.02101,"1828,61919-0481-60 ",.02)
 ;;61919-0481-60
 ;;9002226.02101,"1828,61919-0481-72 ",.01)
 ;;61919-0481-72
 ;;9002226.02101,"1828,61919-0481-72 ",.02)
 ;;61919-0481-72
 ;;9002226.02101,"1828,61919-0481-90 ",.01)
 ;;61919-0481-90
 ;;9002226.02101,"1828,61919-0481-90 ",.02)
 ;;61919-0481-90
 ;;9002226.02101,"1828,61919-0576-60 ",.01)
 ;;61919-0576-60
 ;;9002226.02101,"1828,61919-0576-60 ",.02)
 ;;61919-0576-60
 ;;9002226.02101,"1828,61919-0576-90 ",.01)
 ;;61919-0576-90
 ;;9002226.02101,"1828,61919-0576-90 ",.02)
 ;;61919-0576-90
 ;;9002226.02101,"1828,61919-0584-30 ",.01)
 ;;61919-0584-30
 ;;9002226.02101,"1828,61919-0584-30 ",.02)
 ;;61919-0584-30
 ;;9002226.02101,"1828,61919-0639-60 ",.01)
 ;;61919-0639-60
 ;;9002226.02101,"1828,61919-0639-60 ",.02)
 ;;61919-0639-60
 ;;9002226.02101,"1828,62451-5390-13 ",.01)
 ;;62451-5390-13
 ;;9002226.02101,"1828,62451-5390-13 ",.02)
 ;;62451-5390-13
 ;;9002226.02101,"1828,62451-5391-13 ",.01)
 ;;62451-5391-13
 ;;9002226.02101,"1828,62451-5391-13 ",.02)
 ;;62451-5391-13
 ;;9002226.02101,"1828,62584-0812-01 ",.01)
 ;;62584-0812-01
 ;;9002226.02101,"1828,62584-0812-01 ",.02)
 ;;62584-0812-01
 ;;9002226.02101,"1828,62584-0812-11 ",.01)
 ;;62584-0812-11
 ;;9002226.02101,"1828,62584-0812-11 ",.02)
 ;;62584-0812-11
 ;;9002226.02101,"1828,62584-0813-01 ",.01)
 ;;62584-0813-01
 ;;9002226.02101,"1828,62584-0813-01 ",.02)
 ;;62584-0813-01
 ;;9002226.02101,"1828,62584-0813-11 ",.01)
 ;;62584-0813-11
 ;;9002226.02101,"1828,62584-0813-11 ",.02)
 ;;62584-0813-11
 ;;9002226.02101,"1828,62584-0814-01 ",.01)
 ;;62584-0814-01
 ;;9002226.02101,"1828,62584-0814-01 ",.02)
 ;;62584-0814-01
 ;;9002226.02101,"1828,62584-0814-11 ",.01)
 ;;62584-0814-11
 ;;9002226.02101,"1828,62584-0814-11 ",.02)
 ;;62584-0814-11
 ;;9002226.02101,"1828,63187-0273-30 ",.01)
 ;;63187-0273-30
 ;;9002226.02101,"1828,63187-0273-30 ",.02)
 ;;63187-0273-30
 ;;9002226.02101,"1828,63187-0273-60 ",.01)
 ;;63187-0273-60
 ;;9002226.02101,"1828,63187-0273-60 ",.02)
 ;;63187-0273-60
 ;;9002226.02101,"1828,63187-0443-30 ",.01)
 ;;63187-0443-30
 ;;9002226.02101,"1828,63187-0443-30 ",.02)
 ;;63187-0443-30
 ;;9002226.02101,"1828,63187-0536-06 ",.01)
 ;;63187-0536-06
 ;;9002226.02101,"1828,63187-0536-06 ",.02)
 ;;63187-0536-06
 ;;9002226.02101,"1828,63187-0846-30 ",.01)
 ;;63187-0846-30
 ;;9002226.02101,"1828,63187-0846-30 ",.02)
 ;;63187-0846-30
 ;;9002226.02101,"1828,63304-0205-18 ",.01)
 ;;63304-0205-18
 ;;9002226.02101,"1828,63304-0205-18 ",.02)
 ;;63304-0205-18
 ;;9002226.02101,"1828,63304-0552-01 ",.01)
 ;;63304-0552-01
 ;;9002226.02101,"1828,63304-0552-01 ",.02)
 ;;63304-0552-01
 ;;9002226.02101,"1828,63304-0552-05 ",.01)
 ;;63304-0552-05
 ;;9002226.02101,"1828,63304-0552-05 ",.02)
 ;;63304-0552-05