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

BGP83A38.m

Go to the documentation of this file.
BGP83A38 ; 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,63874-0292-10 ",.01)
 ;;63874-0292-10
 ;;9002226.02101,"1828,63874-0292-10 ",.02)
 ;;63874-0292-10
 ;;9002226.02101,"1828,63874-0292-12 ",.01)
 ;;63874-0292-12
 ;;9002226.02101,"1828,63874-0292-12 ",.02)
 ;;63874-0292-12
 ;;9002226.02101,"1828,63874-0292-15 ",.01)
 ;;63874-0292-15
 ;;9002226.02101,"1828,63874-0292-15 ",.02)
 ;;63874-0292-15
 ;;9002226.02101,"1828,63874-0292-20 ",.01)
 ;;63874-0292-20
 ;;9002226.02101,"1828,63874-0292-20 ",.02)
 ;;63874-0292-20
 ;;9002226.02101,"1828,63874-0292-30 ",.01)
 ;;63874-0292-30
 ;;9002226.02101,"1828,63874-0292-30 ",.02)
 ;;63874-0292-30
 ;;9002226.02101,"1828,63874-0292-60 ",.01)
 ;;63874-0292-60
 ;;9002226.02101,"1828,63874-0292-60 ",.02)
 ;;63874-0292-60
 ;;9002226.02101,"1828,63874-0292-74 ",.01)
 ;;63874-0292-74
 ;;9002226.02101,"1828,63874-0292-74 ",.02)
 ;;63874-0292-74
 ;;9002226.02101,"1828,63874-0292-90 ",.01)
 ;;63874-0292-90
 ;;9002226.02101,"1828,63874-0292-90 ",.02)
 ;;63874-0292-90
 ;;9002226.02101,"1828,63874-0356-02 ",.01)
 ;;63874-0356-02
 ;;9002226.02101,"1828,63874-0356-02 ",.02)
 ;;63874-0356-02
 ;;9002226.02101,"1828,63874-0713-01 ",.01)
 ;;63874-0713-01
 ;;9002226.02101,"1828,63874-0713-01 ",.02)
 ;;63874-0713-01
 ;;9002226.02101,"1828,63874-0713-04 ",.01)
 ;;63874-0713-04
 ;;9002226.02101,"1828,63874-0713-04 ",.02)
 ;;63874-0713-04
 ;;9002226.02101,"1828,63874-0713-12 ",.01)
 ;;63874-0713-12
 ;;9002226.02101,"1828,63874-0713-12 ",.02)
 ;;63874-0713-12
 ;;9002226.02101,"1828,63874-0713-15 ",.01)
 ;;63874-0713-15
 ;;9002226.02101,"1828,63874-0713-15 ",.02)
 ;;63874-0713-15
 ;;9002226.02101,"1828,63874-0713-20 ",.01)
 ;;63874-0713-20
 ;;9002226.02101,"1828,63874-0713-20 ",.02)
 ;;63874-0713-20
 ;;9002226.02101,"1828,63874-0713-30 ",.01)
 ;;63874-0713-30
 ;;9002226.02101,"1828,63874-0713-30 ",.02)
 ;;63874-0713-30
 ;;9002226.02101,"1828,63874-0713-40 ",.01)
 ;;63874-0713-40
 ;;9002226.02101,"1828,63874-0713-40 ",.02)
 ;;63874-0713-40
 ;;9002226.02101,"1828,63874-0713-60 ",.01)
 ;;63874-0713-60
 ;;9002226.02101,"1828,63874-0713-60 ",.02)
 ;;63874-0713-60
 ;;9002226.02101,"1828,63874-0713-74 ",.01)
 ;;63874-0713-74
 ;;9002226.02101,"1828,63874-0713-74 ",.02)
 ;;63874-0713-74
 ;;9002226.02101,"1828,63874-0713-90 ",.01)
 ;;63874-0713-90
 ;;9002226.02101,"1828,63874-0713-90 ",.02)
 ;;63874-0713-90
 ;;9002226.02101,"1828,63874-0808-12 ",.01)
 ;;63874-0808-12
 ;;9002226.02101,"1828,63874-0808-12 ",.02)
 ;;63874-0808-12
 ;;9002226.02101,"1828,63874-0808-15 ",.01)
 ;;63874-0808-15
 ;;9002226.02101,"1828,63874-0808-15 ",.02)
 ;;63874-0808-15
 ;;9002226.02101,"1828,63874-0808-20 ",.01)
 ;;63874-0808-20
 ;;9002226.02101,"1828,63874-0808-20 ",.02)
 ;;63874-0808-20
 ;;9002226.02101,"1828,63874-0808-30 ",.01)
 ;;63874-0808-30
 ;;9002226.02101,"1828,63874-0808-30 ",.02)
 ;;63874-0808-30
 ;;9002226.02101,"1828,63874-1002-01 ",.01)
 ;;63874-1002-01
 ;;9002226.02101,"1828,63874-1002-01 ",.02)
 ;;63874-1002-01
 ;;9002226.02101,"1828,63874-1002-03 ",.01)
 ;;63874-1002-03
 ;;9002226.02101,"1828,63874-1002-03 ",.02)
 ;;63874-1002-03
 ;;9002226.02101,"1828,63874-1002-04 ",.01)
 ;;63874-1002-04
 ;;9002226.02101,"1828,63874-1002-04 ",.02)
 ;;63874-1002-04
 ;;9002226.02101,"1828,63874-1002-06 ",.01)
 ;;63874-1002-06
 ;;9002226.02101,"1828,63874-1002-06 ",.02)
 ;;63874-1002-06
 ;;9002226.02101,"1828,63874-1002-08 ",.01)
 ;;63874-1002-08
 ;;9002226.02101,"1828,63874-1002-08 ",.02)
 ;;63874-1002-08
 ;;9002226.02101,"1828,63874-1002-09 ",.01)
 ;;63874-1002-09
 ;;9002226.02101,"1828,63874-1002-09 ",.02)
 ;;63874-1002-09
 ;;9002226.02101,"1828,63874-1016-01 ",.01)
 ;;63874-1016-01
 ;;9002226.02101,"1828,63874-1016-01 ",.02)
 ;;63874-1016-01
 ;;9002226.02101,"1828,63874-1016-02 ",.01)
 ;;63874-1016-02
 ;;9002226.02101,"1828,63874-1016-02 ",.02)
 ;;63874-1016-02
 ;;9002226.02101,"1828,63874-1016-03 ",.01)
 ;;63874-1016-03
 ;;9002226.02101,"1828,63874-1016-03 ",.02)
 ;;63874-1016-03
 ;;9002226.02101,"1828,63874-1016-04 ",.01)
 ;;63874-1016-04
 ;;9002226.02101,"1828,63874-1016-04 ",.02)
 ;;63874-1016-04
 ;;9002226.02101,"1828,63874-1016-05 ",.01)
 ;;63874-1016-05
 ;;9002226.02101,"1828,63874-1016-05 ",.02)
 ;;63874-1016-05
 ;;9002226.02101,"1828,63874-1016-06 ",.01)
 ;;63874-1016-06
 ;;9002226.02101,"1828,63874-1016-06 ",.02)
 ;;63874-1016-06
 ;;9002226.02101,"1828,63874-1016-08 ",.01)
 ;;63874-1016-08
 ;;9002226.02101,"1828,63874-1016-08 ",.02)
 ;;63874-1016-08
 ;;9002226.02101,"1828,63874-1016-09 ",.01)
 ;;63874-1016-09
 ;;9002226.02101,"1828,63874-1016-09 ",.02)
 ;;63874-1016-09
 ;;9002226.02101,"1828,63874-1239-03 ",.01)
 ;;63874-1239-03
 ;;9002226.02101,"1828,63874-1239-03 ",.02)
 ;;63874-1239-03
 ;;9002226.02101,"1828,63874-1239-06 ",.01)
 ;;63874-1239-06
 ;;9002226.02101,"1828,63874-1239-06 ",.02)
 ;;63874-1239-06
 ;;9002226.02101,"1828,63874-1242-03 ",.01)
 ;;63874-1242-03
 ;;9002226.02101,"1828,63874-1242-03 ",.02)
 ;;63874-1242-03
 ;;9002226.02101,"1828,63874-1242-06 ",.01)
 ;;63874-1242-06
 ;;9002226.02101,"1828,63874-1242-06 ",.02)
 ;;63874-1242-06
 ;;9002226.02101,"1828,64125-0904-01 ",.01)
 ;;64125-0904-01
 ;;9002226.02101,"1828,64125-0904-01 ",.02)
 ;;64125-0904-01
 ;;9002226.02101,"1828,64125-0904-05 ",.01)
 ;;64125-0904-05
 ;;9002226.02101,"1828,64125-0904-05 ",.02)
 ;;64125-0904-05
 ;;9002226.02101,"1828,64125-0904-10 ",.01)
 ;;64125-0904-10
 ;;9002226.02101,"1828,64125-0904-10 ",.02)
 ;;64125-0904-10
 ;;9002226.02101,"1828,64125-0905-01 ",.01)
 ;;64125-0905-01
 ;;9002226.02101,"1828,64125-0905-01 ",.02)
 ;;64125-0905-01
 ;;9002226.02101,"1828,64125-0905-05 ",.01)
 ;;64125-0905-05
 ;;9002226.02101,"1828,64125-0905-05 ",.02)
 ;;64125-0905-05
 ;;9002226.02101,"1828,64125-0905-10 ",.01)
 ;;64125-0905-10
 ;;9002226.02101,"1828,64125-0905-10 ",.02)
 ;;64125-0905-10
 ;;9002226.02101,"1828,64125-0906-01 ",.01)
 ;;64125-0906-01
 ;;9002226.02101,"1828,64125-0906-01 ",.02)
 ;;64125-0906-01
 ;;9002226.02101,"1828,64125-0906-05 ",.01)
 ;;64125-0906-05
 ;;9002226.02101,"1828,64125-0906-05 ",.02)
 ;;64125-0906-05
 ;;9002226.02101,"1828,64125-0906-10 ",.01)
 ;;64125-0906-10
 ;;9002226.02101,"1828,64125-0906-10 ",.02)
 ;;64125-0906-10
 ;;9002226.02101,"1828,64376-0630-01 ",.01)
 ;;64376-0630-01
 ;;9002226.02101,"1828,64376-0630-01 ",.02)
 ;;64376-0630-01
 ;;9002226.02101,"1828,64376-0630-05 ",.01)
 ;;64376-0630-05
 ;;9002226.02101,"1828,64376-0630-05 ",.02)
 ;;64376-0630-05
 ;;9002226.02101,"1828,64376-0630-10 ",.01)
 ;;64376-0630-10
 ;;9002226.02101,"1828,64376-0630-10 ",.02)
 ;;64376-0630-10
 ;;9002226.02101,"1828,64376-0631-01 ",.01)
 ;;64376-0631-01
 ;;9002226.02101,"1828,64376-0631-01 ",.02)
 ;;64376-0631-01
 ;;9002226.02101,"1828,64376-0631-05 ",.01)
 ;;64376-0631-05
 ;;9002226.02101,"1828,64376-0631-05 ",.02)
 ;;64376-0631-05
 ;;9002226.02101,"1828,64376-0631-10 ",.01)
 ;;64376-0631-10
 ;;9002226.02101,"1828,64376-0631-10 ",.02)
 ;;64376-0631-10
 ;;9002226.02101,"1828,64376-0632-01 ",.01)
 ;;64376-0632-01
 ;;9002226.02101,"1828,64376-0632-01 ",.02)
 ;;64376-0632-01
 ;;9002226.02101,"1828,64376-0632-05 ",.01)
 ;;64376-0632-05
 ;;9002226.02101,"1828,64376-0632-05 ",.02)
 ;;64376-0632-05
 ;;9002226.02101,"1828,64376-0632-10 ",.01)
 ;;64376-0632-10
 ;;9002226.02101,"1828,64376-0632-10 ",.02)
 ;;64376-0632-10
 ;;9002226.02101,"1828,64376-0633-01 ",.01)
 ;;64376-0633-01
 ;;9002226.02101,"1828,64376-0633-01 ",.02)
 ;;64376-0633-01
 ;;9002226.02101,"1828,64376-0633-05 ",.01)
 ;;64376-0633-05
 ;;9002226.02101,"1828,64376-0633-05 ",.02)
 ;;64376-0633-05
 ;;9002226.02101,"1828,65084-0441-14 ",.01)
 ;;65084-0441-14
 ;;9002226.02101,"1828,65084-0441-14 ",.02)
 ;;65084-0441-14
 ;;9002226.02101,"1828,65084-0441-18 ",.01)
 ;;65084-0441-18
 ;;9002226.02101,"1828,65084-0441-18 ",.02)
 ;;65084-0441-18
 ;;9002226.02101,"1828,65084-0441-20 ",.01)
 ;;65084-0441-20
 ;;9002226.02101,"1828,65084-0441-20 ",.02)
 ;;65084-0441-20
 ;;9002226.02101,"1828,65084-0441-36 ",.01)
 ;;65084-0441-36
 ;;9002226.02101,"1828,65084-0441-36 ",.02)
 ;;65084-0441-36
 ;;9002226.02101,"1828,65084-0442-14 ",.01)
 ;;65084-0442-14
 ;;9002226.02101,"1828,65084-0442-14 ",.02)
 ;;65084-0442-14
 ;;9002226.02101,"1828,65084-0442-18 ",.01)
 ;;65084-0442-18
 ;;9002226.02101,"1828,65084-0442-18 ",.02)
 ;;65084-0442-18
 ;;9002226.02101,"1828,65084-0442-20 ",.01)
 ;;65084-0442-20
 ;;9002226.02101,"1828,65084-0442-20 ",.02)
 ;;65084-0442-20
 ;;9002226.02101,"1828,65084-0442-36 ",.01)
 ;;65084-0442-36
 ;;9002226.02101,"1828,65084-0442-36 ",.02)
 ;;65084-0442-36
 ;;9002226.02101,"1828,65084-0443-14 ",.01)
 ;;65084-0443-14
 ;;9002226.02101,"1828,65084-0443-14 ",.02)
 ;;65084-0443-14
 ;;9002226.02101,"1828,65084-0443-18 ",.01)
 ;;65084-0443-18
 ;;9002226.02101,"1828,65084-0443-18 ",.02)
 ;;65084-0443-18
 ;;9002226.02101,"1828,65084-0443-20 ",.01)
 ;;65084-0443-20
 ;;9002226.02101,"1828,65084-0443-20 ",.02)
 ;;65084-0443-20
 ;;9002226.02101,"1828,65162-0556-10 ",.01)
 ;;65162-0556-10
 ;;9002226.02101,"1828,65162-0556-10 ",.02)
 ;;65162-0556-10
 ;;9002226.02101,"1828,65162-0556-50 ",.01)
 ;;65162-0556-50
 ;;9002226.02101,"1828,65162-0556-50 ",.02)
 ;;65162-0556-50
 ;;9002226.02101,"1828,65162-0557-10 ",.01)
 ;;65162-0557-10
 ;;9002226.02101,"1828,65162-0557-10 ",.02)
 ;;65162-0557-10
 ;;9002226.02101,"1828,65162-0557-50 ",.01)
 ;;65162-0557-50
 ;;9002226.02101,"1828,65162-0557-50 ",.02)
 ;;65162-0557-50
 ;;9002226.02101,"1828,65162-0583-10 ",.01)
 ;;65162-0583-10
 ;;9002226.02101,"1828,65162-0583-10 ",.02)
 ;;65162-0583-10
 ;;9002226.02101,"1828,65162-0584-03 ",.01)
 ;;65162-0584-03
 ;;9002226.02101,"1828,65162-0584-03 ",.02)
 ;;65162-0584-03
 ;;9002226.02101,"1828,65162-0687-84 ",.01)
 ;;65162-0687-84
 ;;9002226.02101,"1828,65162-0687-84 ",.02)
 ;;65162-0687-84
 ;;9002226.02101,"1828,65162-0809-06 ",.01)
 ;;65162-0809-06
 ;;9002226.02101,"1828,65162-0809-06 ",.02)
 ;;65162-0809-06
 ;;9002226.02101,"1828,65162-0810-06 ",.01)
 ;;65162-0810-06
 ;;9002226.02101,"1828,65162-0810-06 ",.02)
 ;;65162-0810-06
 ;;9002226.02101,"1828,65162-0812-06 ",.01)
 ;;65162-0812-06
 ;;9002226.02101,"1828,65162-0812-06 ",.02)
 ;;65162-0812-06
 ;;9002226.02101,"1828,65162-0813-06 ",.01)
 ;;65162-0813-06
 ;;9002226.02101,"1828,65162-0813-06 ",.02)
 ;;65162-0813-06
 ;;9002226.02101,"1828,65862-0454-60 ",.01)
 ;;65862-0454-60
 ;;9002226.02101,"1828,65862-0454-60 ",.02)
 ;;65862-0454-60
 ;;9002226.02101,"1828,65862-0455-60 ",.01)
 ;;65862-0455-60
 ;;9002226.02101,"1828,65862-0455-60 ",.02)
 ;;65862-0455-60
 ;;9002226.02101,"1828,65862-0456-60 ",.01)
 ;;65862-0456-60
 ;;9002226.02101,"1828,65862-0456-60 ",.02)
 ;;65862-0456-60
 ;;9002226.02101,"1828,65862-0457-60 ",.01)
 ;;65862-0457-60
 ;;9002226.02101,"1828,65862-0457-60 ",.02)
 ;;65862-0457-60
 ;;9002226.02101,"1828,66116-0232-30 ",.01)
 ;;66116-0232-30
 ;;9002226.02101,"1828,66116-0232-30 ",.02)
 ;;66116-0232-30
 ;;9002226.02101,"1828,66116-0467-30 ",.01)
 ;;66116-0467-30
 ;;9002226.02101,"1828,66116-0467-30 ",.02)
 ;;66116-0467-30
 ;;9002226.02101,"1828,66267-0013-30 ",.01)
 ;;66267-0013-30
 ;;9002226.02101,"1828,66267-0013-30 ",.02)
 ;;66267-0013-30
 ;;9002226.02101,"1828,66267-0013-60 ",.01)
 ;;66267-0013-60
 ;;9002226.02101,"1828,66267-0013-60 ",.02)
 ;;66267-0013-60
 ;;9002226.02101,"1828,66267-0013-90 ",.01)
 ;;66267-0013-90
 ;;9002226.02101,"1828,66267-0013-90 ",.02)
 ;;66267-0013-90
 ;;9002226.02101,"1828,66267-0014-30 ",.01)
 ;;66267-0014-30
 ;;9002226.02101,"1828,66267-0014-30 ",.02)
 ;;66267-0014-30
 ;;9002226.02101,"1828,66267-0014-60 ",.01)
 ;;66267-0014-60
 ;;9002226.02101,"1828,66267-0014-60 ",.02)
 ;;66267-0014-60
 ;;9002226.02101,"1828,66267-0014-90 ",.01)
 ;;66267-0014-90