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

BGP83A11.m

Go to the documentation of this file.
BGP83A11 ; 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,1828,.09)
 ;;3170809
 ;;9002226,1828,.11)
 ;;@
 ;;9002226,1828,.12)
 ;;@
 ;;9002226,1828,.13)
 ;;1
 ;;9002226,1828,.14)
 ;;@
 ;;9002226,1828,.15)
 ;;50.67
 ;;9002226,1828,.16)
 ;;@
 ;;9002226,1828,.17)
 ;;@
 ;;9002226,1828,.22)
 ;;@
 ;;9002226,1828,3101)
 ;;@
 ;;9002226.02101,"1828,00004-0058-01 ",.01)
 ;;00004-0058-01
 ;;9002226.02101,"1828,00004-0058-01 ",.02)
 ;;00004-0058-01
 ;;9002226.02101,"1828,00004-0058-32 ",.01)
 ;;00004-0058-32
 ;;9002226.02101,"1828,00004-0058-32 ",.02)
 ;;00004-0058-32
 ;;9002226.02101,"1828,00004-0068-01 ",.01)
 ;;00004-0068-01
 ;;9002226.02101,"1828,00004-0068-01 ",.02)
 ;;00004-0068-01
 ;;9002226.02101,"1828,00004-0068-32 ",.01)
 ;;00004-0068-32
 ;;9002226.02101,"1828,00004-0068-32 ",.02)
 ;;00004-0068-32
 ;;9002226.02101,"1828,00004-0098-01 ",.01)
 ;;00004-0098-01
 ;;9002226.02101,"1828,00004-0098-01 ",.02)
 ;;00004-0098-01
 ;;9002226.02101,"1828,00009-0017-55 ",.01)
 ;;00009-0017-55
 ;;9002226.02101,"1828,00009-0017-55 ",.02)
 ;;00009-0017-55
 ;;9002226.02101,"1828,00009-0017-58 ",.01)
 ;;00009-0017-58
 ;;9002226.02101,"1828,00009-0017-58 ",.02)
 ;;00009-0017-58
 ;;9002226.02101,"1828,00009-0017-59 ",.01)
 ;;00009-0017-59
 ;;9002226.02101,"1828,00009-0017-59 ",.02)
 ;;00009-0017-59
 ;;9002226.02101,"1828,00009-0029-01 ",.01)
 ;;00009-0029-01
 ;;9002226.02101,"1828,00009-0029-01 ",.02)
 ;;00009-0029-01
 ;;9002226.02101,"1828,00009-0029-02 ",.01)
 ;;00009-0029-02
 ;;9002226.02101,"1828,00009-0029-02 ",.02)
 ;;00009-0029-02
 ;;9002226.02101,"1828,00009-0055-01 ",.01)
 ;;00009-0055-01
 ;;9002226.02101,"1828,00009-0055-01 ",.02)
 ;;00009-0055-01
 ;;9002226.02101,"1828,00009-0055-03 ",.01)
 ;;00009-0055-03
 ;;9002226.02101,"1828,00009-0055-03 ",.02)
 ;;00009-0055-03
 ;;9002226.02101,"1828,00009-0057-07 ",.01)
 ;;00009-0057-07
 ;;9002226.02101,"1828,00009-0057-07 ",.02)
 ;;00009-0057-07
 ;;9002226.02101,"1828,00009-0059-07 ",.01)
 ;;00009-0059-07
 ;;9002226.02101,"1828,00009-0059-07 ",.02)
 ;;00009-0059-07
 ;;9002226.02101,"1828,00009-0066-07 ",.01)
 ;;00009-0066-07
 ;;9002226.02101,"1828,00009-0066-07 ",.02)
 ;;00009-0066-07
 ;;9002226.02101,"1828,00009-0068-07 ",.01)
 ;;00009-0068-07
 ;;9002226.02101,"1828,00009-0068-07 ",.02)
 ;;00009-0068-07
 ;;9002226.02101,"1828,00009-0090-01 ",.01)
 ;;00009-0090-01
 ;;9002226.02101,"1828,00009-0090-01 ",.02)
 ;;00009-0090-01
 ;;9002226.02101,"1828,00009-0090-04 ",.01)
 ;;00009-0090-04
 ;;9002226.02101,"1828,00009-0090-04 ",.02)
 ;;00009-0090-04
 ;;9002226.02101,"1828,00009-0094-01 ",.01)
 ;;00009-0094-01
 ;;9002226.02101,"1828,00009-0094-01 ",.02)
 ;;00009-0094-01
 ;;9002226.02101,"1828,00054-3068-44 ",.01)
 ;;00054-3068-44
 ;;9002226.02101,"1828,00054-3068-44 ",.02)
 ;;00054-3068-44
 ;;9002226.02101,"1828,00054-3185-44 ",.01)
 ;;00054-3185-44
 ;;9002226.02101,"1828,00054-3185-44 ",.02)
 ;;00054-3185-44
 ;;9002226.02101,"1828,00054-3188-63 ",.01)
 ;;00054-3188-63
 ;;9002226.02101,"1828,00054-3188-63 ",.02)
 ;;00054-3188-63
 ;;9002226.02101,"1828,00054-3532-44 ",.01)
 ;;00054-3532-44
 ;;9002226.02101,"1828,00054-3532-44 ",.02)
 ;;00054-3532-44
 ;;9002226.02101,"1828,00054-3566-99 ",.01)
 ;;00054-3566-99
 ;;9002226.02101,"1828,00054-3566-99 ",.02)
 ;;00054-3566-99
 ;;9002226.02101,"1828,00054-4858-51 ",.01)
 ;;00054-4858-51
 ;;9002226.02101,"1828,00054-4858-51 ",.02)
 ;;00054-4858-51
 ;;9002226.02101,"1828,00054-4859-29 ",.01)
 ;;00054-4859-29
 ;;9002226.02101,"1828,00054-4859-29 ",.02)
 ;;00054-4859-29
 ;;9002226.02101,"1828,00054-4859-51 ",.01)
 ;;00054-4859-51
 ;;9002226.02101,"1828,00054-4859-51 ",.02)
 ;;00054-4859-51
 ;;9002226.02101,"1828,00054-8207-16 ",.01)
 ;;00054-8207-16
 ;;9002226.02101,"1828,00054-8207-16 ",.02)
 ;;00054-8207-16
 ;;9002226.02101,"1828,00054-8858-25 ",.01)
 ;;00054-8858-25
 ;;9002226.02101,"1828,00054-8858-25 ",.02)
 ;;00054-8858-25
 ;;9002226.02101,"1828,00054-8859-25 ",.01)
 ;;00054-8859-25
 ;;9002226.02101,"1828,00054-8859-25 ",.02)
 ;;00054-8859-25
 ;;9002226.02101,"1828,00093-0129-01 ",.01)
 ;;00093-0129-01
 ;;9002226.02101,"1828,00093-0129-01 ",.02)
 ;;00093-0129-01
 ;;9002226.02101,"1828,00093-0130-01 ",.01)
 ;;00093-0130-01
 ;;9002226.02101,"1828,00093-0130-01 ",.02)
 ;;00093-0130-01
 ;;9002226.02101,"1828,00093-0832-01 ",.01)
 ;;00093-0832-01
 ;;9002226.02101,"1828,00093-0832-01 ",.02)
 ;;00093-0832-01
 ;;9002226.02101,"1828,00093-0832-05 ",.01)
 ;;00093-0832-05
 ;;9002226.02101,"1828,00093-0832-05 ",.02)
 ;;00093-0832-05
 ;;9002226.02101,"1828,00093-0832-10 ",.01)
 ;;00093-0832-10
 ;;9002226.02101,"1828,00093-0832-10 ",.02)
 ;;00093-0832-10
 ;;9002226.02101,"1828,00093-0832-19 ",.01)
 ;;00093-0832-19
 ;;9002226.02101,"1828,00093-0832-19 ",.02)
 ;;00093-0832-19
 ;;9002226.02101,"1828,00093-0833-01 ",.01)
 ;;00093-0833-01
 ;;9002226.02101,"1828,00093-0833-01 ",.02)
 ;;00093-0833-01
 ;;9002226.02101,"1828,00093-0833-05 ",.01)
 ;;00093-0833-05
 ;;9002226.02101,"1828,00093-0833-05 ",.02)
 ;;00093-0833-05
 ;;9002226.02101,"1828,00093-0833-10 ",.01)
 ;;00093-0833-10
 ;;9002226.02101,"1828,00093-0833-10 ",.02)
 ;;00093-0833-10
 ;;9002226.02101,"1828,00093-0833-19 ",.01)
 ;;00093-0833-19
 ;;9002226.02101,"1828,00093-0833-19 ",.02)
 ;;00093-0833-19
 ;;9002226.02101,"1828,00093-0834-01 ",.01)
 ;;00093-0834-01
 ;;9002226.02101,"1828,00093-0834-01 ",.02)
 ;;00093-0834-01
 ;;9002226.02101,"1828,00093-0834-05 ",.01)
 ;;00093-0834-05
 ;;9002226.02101,"1828,00093-0834-05 ",.02)
 ;;00093-0834-05
 ;;9002226.02101,"1828,00093-0834-19 ",.01)
 ;;00093-0834-19
 ;;9002226.02101,"1828,00093-0834-19 ",.02)
 ;;00093-0834-19
 ;;9002226.02101,"1828,00093-4820-01 ",.01)
 ;;00093-4820-01
 ;;9002226.02101,"1828,00093-4820-01 ",.02)
 ;;00093-4820-01
 ;;9002226.02101,"1828,00093-4820-05 ",.01)
 ;;00093-4820-05
 ;;9002226.02101,"1828,00093-4820-05 ",.02)
 ;;00093-4820-05
 ;;9002226.02101,"1828,00093-4821-01 ",.01)
 ;;00093-4821-01
 ;;9002226.02101,"1828,00093-4821-01 ",.02)
 ;;00093-4821-01
 ;;9002226.02101,"1828,00093-4821-05 ",.01)
 ;;00093-4821-05
 ;;9002226.02101,"1828,00093-4821-05 ",.02)
 ;;00093-4821-05
 ;;9002226.02101,"1828,00093-4821-10 ",.01)
 ;;00093-4821-10
 ;;9002226.02101,"1828,00093-4821-10 ",.02)
 ;;00093-4821-10
 ;;9002226.02101,"1828,00093-4822-01 ",.01)
 ;;00093-4822-01
 ;;9002226.02101,"1828,00093-4822-01 ",.02)
 ;;00093-4822-01
 ;;9002226.02101,"1828,00093-4822-10 ",.01)
 ;;00093-4822-10
 ;;9002226.02101,"1828,00093-4822-10 ",.02)
 ;;00093-4822-10
 ;;9002226.02101,"1828,00093-5450-06 ",.01)
 ;;00093-5450-06
 ;;9002226.02101,"1828,00093-5450-06 ",.02)
 ;;00093-5450-06
 ;;9002226.02101,"1828,00093-5451-06 ",.01)
 ;;00093-5451-06
 ;;9002226.02101,"1828,00093-5451-06 ",.02)
 ;;00093-5451-06
 ;;9002226.02101,"1828,00093-5452-06 ",.01)
 ;;00093-5452-06
 ;;9002226.02101,"1828,00093-5452-06 ",.02)
 ;;00093-5452-06
 ;;9002226.02101,"1828,00093-5453-06 ",.01)
 ;;00093-5453-06
 ;;9002226.02101,"1828,00093-5453-06 ",.02)
 ;;00093-5453-06
 ;;9002226.02101,"1828,00093-6137-32 ",.01)
 ;;00093-6137-32
 ;;9002226.02101,"1828,00093-6137-32 ",.02)
 ;;00093-6137-32
 ;;9002226.02101,"1828,00093-6138-32 ",.01)
 ;;00093-6138-32
 ;;9002226.02101,"1828,00093-6138-32 ",.02)
 ;;00093-6138-32
 ;;9002226.02101,"1828,00093-6139-32 ",.01)
 ;;00093-6139-32
 ;;9002226.02101,"1828,00093-6139-32 ",.02)
 ;;00093-6139-32
 ;;9002226.02101,"1828,00121-0770-01 ",.01)
 ;;00121-0770-01
 ;;9002226.02101,"1828,00121-0770-01 ",.02)
 ;;00121-0770-01
 ;;9002226.02101,"1828,00140-0004-01 ",.01)
 ;;00140-0004-01
 ;;9002226.02101,"1828,00140-0004-01 ",.02)
 ;;00140-0004-01
 ;;9002226.02101,"1828,00140-0005-01 ",.01)
 ;;00140-0005-01
 ;;9002226.02101,"1828,00140-0005-01 ",.02)
 ;;00140-0005-01
 ;;9002226.02101,"1828,00140-0005-14 ",.01)
 ;;00140-0005-14
 ;;9002226.02101,"1828,00140-0005-14 ",.02)
 ;;00140-0005-14
 ;;9002226.02101,"1828,00140-0005-35 ",.01)
 ;;00140-0005-35
 ;;9002226.02101,"1828,00140-0005-35 ",.02)
 ;;00140-0005-35
 ;;9002226.02101,"1828,00140-0006-01 ",.01)
 ;;00140-0006-01
 ;;9002226.02101,"1828,00140-0006-01 ",.02)
 ;;00140-0006-01
 ;;9002226.02101,"1828,00140-0006-14 ",.01)
 ;;00140-0006-14
 ;;9002226.02101,"1828,00140-0006-14 ",.02)
 ;;00140-0006-14
 ;;9002226.02101,"1828,00140-0006-35 ",.01)
 ;;00140-0006-35
 ;;9002226.02101,"1828,00140-0006-35 ",.02)
 ;;00140-0006-35
 ;;9002226.02101,"1828,00143-3367-01 ",.01)
 ;;00143-3367-01
 ;;9002226.02101,"1828,00143-3367-01 ",.02)
 ;;00143-3367-01
 ;;9002226.02101,"1828,00143-3367-05 ",.01)
 ;;00143-3367-05
 ;;9002226.02101,"1828,00143-3367-05 ",.02)
 ;;00143-3367-05
 ;;9002226.02101,"1828,00143-3370-01 ",.01)
 ;;00143-3370-01
 ;;9002226.02101,"1828,00143-3370-01 ",.02)
 ;;00143-3370-01
 ;;9002226.02101,"1828,00143-3370-05 ",.01)
 ;;00143-3370-05
 ;;9002226.02101,"1828,00143-3370-05 ",.02)
 ;;00143-3370-05
 ;;9002226.02101,"1828,00172-3925-60 ",.01)
 ;;00172-3925-60
 ;;9002226.02101,"1828,00172-3925-60 ",.02)
 ;;00172-3925-60
 ;;9002226.02101,"1828,00172-3925-70 ",.01)
 ;;00172-3925-70
 ;;9002226.02101,"1828,00172-3925-70 ",.02)
 ;;00172-3925-70
 ;;9002226.02101,"1828,00172-3926-60 ",.01)
 ;;00172-3926-60
 ;;9002226.02101,"1828,00172-3926-60 ",.02)
 ;;00172-3926-60
 ;;9002226.02101,"1828,00172-3926-70 ",.01)
 ;;00172-3926-70
 ;;9002226.02101,"1828,00172-3926-70 ",.02)
 ;;00172-3926-70
 ;;9002226.02101,"1828,00172-3926-80 ",.01)
 ;;00172-3926-80
 ;;9002226.02101,"1828,00172-3926-80 ",.02)
 ;;00172-3926-80
 ;;9002226.02101,"1828,00172-3927-60 ",.01)
 ;;00172-3927-60
 ;;9002226.02101,"1828,00172-3927-60 ",.02)
 ;;00172-3927-60
 ;;9002226.02101,"1828,00172-3927-70 ",.01)
 ;;00172-3927-70
 ;;9002226.02101,"1828,00172-3927-70 ",.02)
 ;;00172-3927-70
 ;;9002226.02101,"1828,00172-3927-80 ",.01)
 ;;00172-3927-80
 ;;9002226.02101,"1828,00172-3927-80 ",.02)
 ;;00172-3927-80
 ;;9002226.02101,"1828,00172-4804-60 ",.01)
 ;;00172-4804-60
 ;;9002226.02101,"1828,00172-4804-60 ",.02)
 ;;00172-4804-60
 ;;9002226.02101,"1828,00172-4804-70 ",.01)
 ;;00172-4804-70
 ;;9002226.02101,"1828,00172-4804-70 ",.02)
 ;;00172-4804-70
 ;;9002226.02101,"1828,00172-4805-60 ",.01)
 ;;00172-4805-60
 ;;9002226.02101,"1828,00172-4805-60 ",.02)
 ;;00172-4805-60
 ;;9002226.02101,"1828,00172-4805-70 ",.01)
 ;;00172-4805-70
 ;;9002226.02101,"1828,00172-4805-70 ",.02)
 ;;00172-4805-70
 ;;9002226.02101,"1828,00172-4806-60 ",.01)
 ;;00172-4806-60
 ;;9002226.02101,"1828,00172-4806-60 ",.02)
 ;;00172-4806-60
 ;;9002226.02101,"1828,00179-0131-30 ",.01)
 ;;00179-0131-30
 ;;9002226.02101,"1828,00179-0131-30 ",.02)
 ;;00179-0131-30
 ;;9002226.02101,"1828,00179-0131-60 ",.01)
 ;;00179-0131-60
 ;;9002226.02101,"1828,00179-0131-60 ",.02)
 ;;00179-0131-60
 ;;9002226.02101,"1828,00185-0063-01 ",.01)
 ;;00185-0063-01
 ;;9002226.02101,"1828,00185-0063-01 ",.02)
 ;;00185-0063-01
 ;;9002226.02101,"1828,00185-0063-05 ",.01)
 ;;00185-0063-05
 ;;9002226.02101,"1828,00185-0063-05 ",.02)
 ;;00185-0063-05
 ;;9002226.02101,"1828,00185-0063-10 ",.01)
 ;;00185-0063-10
 ;;9002226.02101,"1828,00185-0063-10 ",.02)
 ;;00185-0063-10
 ;;9002226.02101,"1828,00185-0064-01 ",.01)
 ;;00185-0064-01
 ;;9002226.02101,"1828,00185-0064-01 ",.02)
 ;;00185-0064-01
 ;;9002226.02101,"1828,00185-0064-05 ",.01)
 ;;00185-0064-05
 ;;9002226.02101,"1828,00185-0064-05 ",.02)
 ;;00185-0064-05
 ;;9002226.02101,"1828,00185-0064-10 ",.01)
 ;;00185-0064-10
 ;;9002226.02101,"1828,00185-0064-10 ",.02)
 ;;00185-0064-10
 ;;9002226.02101,"1828,00185-0065-01 ",.01)
 ;;00185-0065-01
 ;;9002226.02101,"1828,00185-0065-01 ",.02)
 ;;00185-0065-01
 ;;9002226.02101,"1828,00185-0065-05 ",.01)
 ;;00185-0065-05
 ;;9002226.02101,"1828,00185-0065-05 ",.02)
 ;;00185-0065-05