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

BGP33J80.m

Go to the documentation of this file.
BGP33J80 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"734,65862-0019-05 ",.01)
 ;;65862-0019-05
 ;;9002226.02101,"734,65862-0019-05 ",.02)
 ;;65862-0019-05
 ;;9002226.02101,"734,65862-0019-40 ",.01)
 ;;65862-0019-40
 ;;9002226.02101,"734,65862-0019-40 ",.02)
 ;;65862-0019-40
 ;;9002226.02101,"734,65862-0034-20 ",.01)
 ;;65862-0034-20
 ;;9002226.02101,"734,65862-0034-20 ",.02)
 ;;65862-0034-20
 ;;9002226.02101,"734,65862-0034-60 ",.01)
 ;;65862-0034-60
 ;;9002226.02101,"734,65862-0034-60 ",.02)
 ;;65862-0034-60
 ;;9002226.02101,"734,65862-0035-20 ",.01)
 ;;65862-0035-20
 ;;9002226.02101,"734,65862-0035-20 ",.02)
 ;;65862-0035-20
 ;;9002226.02101,"734,65862-0035-60 ",.01)
 ;;65862-0035-60
 ;;9002226.02101,"734,65862-0035-60 ",.02)
 ;;65862-0035-60
 ;;9002226.02101,"734,65862-0068-01 ",.01)
 ;;65862-0068-01
 ;;9002226.02101,"734,65862-0068-01 ",.02)
 ;;65862-0068-01
 ;;9002226.02101,"734,65862-0068-50 ",.01)
 ;;65862-0068-50
 ;;9002226.02101,"734,65862-0068-50 ",.02)
 ;;65862-0068-50
 ;;9002226.02101,"734,65862-0069-01 ",.01)
 ;;65862-0069-01
 ;;9002226.02101,"734,65862-0069-01 ",.02)
 ;;65862-0069-01
 ;;9002226.02101,"734,65862-0069-50 ",.01)
 ;;65862-0069-50
 ;;9002226.02101,"734,65862-0069-50 ",.02)
 ;;65862-0069-50
 ;;9002226.02101,"734,65862-0070-01 ",.01)
 ;;65862-0070-01
 ;;9002226.02101,"734,65862-0070-01 ",.02)
 ;;65862-0070-01
 ;;9002226.02101,"734,65862-0070-50 ",.01)
 ;;65862-0070-50
 ;;9002226.02101,"734,65862-0070-50 ",.02)
 ;;65862-0070-50
 ;;9002226.02101,"734,65862-0070-75 ",.01)
 ;;65862-0070-75
 ;;9002226.02101,"734,65862-0070-75 ",.02)
 ;;65862-0070-75
 ;;9002226.02101,"734,65862-0071-01 ",.01)
 ;;65862-0071-01
 ;;9002226.02101,"734,65862-0071-01 ",.02)
 ;;65862-0071-01
 ;;9002226.02101,"734,65862-0071-50 ",.01)
 ;;65862-0071-50
 ;;9002226.02101,"734,65862-0071-50 ",.02)
 ;;65862-0071-50
 ;;9002226.02101,"734,65862-0071-75 ",.01)
 ;;65862-0071-75
 ;;9002226.02101,"734,65862-0071-75 ",.02)
 ;;65862-0071-75
 ;;9002226.02101,"734,65862-0076-01 ",.01)
 ;;65862-0076-01
 ;;9002226.02101,"734,65862-0076-01 ",.02)
 ;;65862-0076-01
 ;;9002226.02101,"734,65862-0077-01 ",.01)
 ;;65862-0077-01
 ;;9002226.02101,"734,65862-0077-01 ",.02)
 ;;65862-0077-01
 ;;9002226.02101,"734,65862-0078-50 ",.01)
 ;;65862-0078-50
 ;;9002226.02101,"734,65862-0078-50 ",.02)
 ;;65862-0078-50
 ;;9002226.02101,"734,65862-0085-01 ",.01)
 ;;65862-0085-01
 ;;9002226.02101,"734,65862-0085-01 ",.02)
 ;;65862-0085-01
 ;;9002226.02101,"734,65862-0085-50 ",.01)
 ;;65862-0085-50
 ;;9002226.02101,"734,65862-0085-50 ",.02)
 ;;65862-0085-50
 ;;9002226.02101,"734,65862-0095-20 ",.01)
 ;;65862-0095-20
 ;;9002226.02101,"734,65862-0095-20 ",.02)
 ;;65862-0095-20
 ;;9002226.02101,"734,65862-0096-20 ",.01)
 ;;65862-0096-20
 ;;9002226.02101,"734,65862-0096-20 ",.02)
 ;;65862-0096-20
 ;;9002226.02101,"734,65862-0099-01 ",.01)
 ;;65862-0099-01
 ;;9002226.02101,"734,65862-0099-01 ",.02)
 ;;65862-0099-01
 ;;9002226.02101,"734,65862-0099-75 ",.01)
 ;;65862-0099-75
 ;;9002226.02101,"734,65862-0099-75 ",.02)
 ;;65862-0099-75
 ;;9002226.02101,"734,65862-0100-01 ",.01)
 ;;65862-0100-01
 ;;9002226.02101,"734,65862-0100-01 ",.02)
 ;;65862-0100-01
 ;;9002226.02101,"734,65862-0100-75 ",.01)
 ;;65862-0100-75
 ;;9002226.02101,"734,65862-0100-75 ",.02)
 ;;65862-0100-75
 ;;9002226.02101,"734,65862-0140-01 ",.01)
 ;;65862-0140-01
 ;;9002226.02101,"734,65862-0140-01 ",.02)
 ;;65862-0140-01
 ;;9002226.02101,"734,65862-0140-50 ",.01)
 ;;65862-0140-50
 ;;9002226.02101,"734,65862-0140-50 ",.02)
 ;;65862-0140-50
 ;;9002226.02101,"734,65862-0141-01 ",.01)
 ;;65862-0141-01
 ;;9002226.02101,"734,65862-0141-01 ",.02)
 ;;65862-0141-01
 ;;9002226.02101,"734,65862-0141-50 ",.01)
 ;;65862-0141-50
 ;;9002226.02101,"734,65862-0141-50 ",.02)
 ;;65862-0141-50
 ;;9002226.02101,"734,65862-0175-01 ",.01)
 ;;65862-0175-01
 ;;9002226.02101,"734,65862-0175-01 ",.02)
 ;;65862-0175-01
 ;;9002226.02101,"734,65862-0175-99 ",.01)
 ;;65862-0175-99
 ;;9002226.02101,"734,65862-0175-99 ",.02)
 ;;65862-0175-99
 ;;9002226.02101,"734,65862-0176-01 ",.01)
 ;;65862-0176-01
 ;;9002226.02101,"734,65862-0176-01 ",.02)
 ;;65862-0176-01
 ;;9002226.02101,"734,65862-0176-05 ",.01)
 ;;65862-0176-05
 ;;9002226.02101,"734,65862-0176-05 ",.02)
 ;;65862-0176-05
 ;;9002226.02101,"734,65862-0176-99 ",.01)
 ;;65862-0176-99
 ;;9002226.02101,"734,65862-0176-99 ",.02)
 ;;65862-0176-99
 ;;9002226.02101,"734,65862-0177-60 ",.01)
 ;;65862-0177-60
 ;;9002226.02101,"734,65862-0177-60 ",.02)
 ;;65862-0177-60
 ;;9002226.02101,"734,65862-0185-01 ",.01)
 ;;65862-0185-01
 ;;9002226.02101,"734,65862-0185-01 ",.02)
 ;;65862-0185-01
 ;;9002226.02101,"734,65862-0185-05 ",.01)
 ;;65862-0185-05
 ;;9002226.02101,"734,65862-0185-05 ",.02)
 ;;65862-0185-05
 ;;9002226.02101,"734,65862-0186-01 ",.01)
 ;;65862-0186-01
 ;;9002226.02101,"734,65862-0186-01 ",.02)
 ;;65862-0186-01
 ;;9002226.02101,"734,65862-0209-01 ",.01)
 ;;65862-0209-01
 ;;9002226.02101,"734,65862-0209-01 ",.02)
 ;;65862-0209-01
 ;;9002226.02101,"734,65862-0211-50 ",.01)
 ;;65862-0211-50
 ;;9002226.02101,"734,65862-0211-50 ",.02)
 ;;65862-0211-50
 ;;9002226.02101,"734,65862-0218-01 ",.01)
 ;;65862-0218-01
 ;;9002226.02101,"734,65862-0218-01 ",.02)
 ;;65862-0218-01
 ;;9002226.02101,"734,65862-0218-60 ",.01)
 ;;65862-0218-60
 ;;9002226.02101,"734,65862-0218-60 ",.02)
 ;;65862-0218-60
 ;;9002226.02101,"734,65862-0219-01 ",.01)
 ;;65862-0219-01
 ;;9002226.02101,"734,65862-0219-01 ",.02)
 ;;65862-0219-01
 ;;9002226.02101,"734,65862-0219-60 ",.01)
 ;;65862-0219-60
 ;;9002226.02101,"734,65862-0219-60 ",.02)
 ;;65862-0219-60
 ;;9002226.02101,"734,65862-0419-01 ",.01)
 ;;65862-0419-01
 ;;9002226.02101,"734,65862-0419-01 ",.02)
 ;;65862-0419-01
 ;;9002226.02101,"734,65862-0419-05 ",.01)
 ;;65862-0419-05
 ;;9002226.02101,"734,65862-0419-05 ",.02)
 ;;65862-0419-05
 ;;9002226.02101,"734,65862-0420-01 ",.01)
 ;;65862-0420-01
 ;;9002226.02101,"734,65862-0420-01 ",.02)
 ;;65862-0420-01
 ;;9002226.02101,"734,65862-0420-05 ",.01)
 ;;65862-0420-05
 ;;9002226.02101,"734,65862-0420-05 ",.02)
 ;;65862-0420-05
 ;;9002226.02101,"734,65862-0496-47 ",.01)
 ;;65862-0496-47
 ;;9002226.02101,"734,65862-0496-47 ",.02)
 ;;65862-0496-47
 ;;9002226.02101,"734,65862-0501-30 ",.01)
 ;;65862-0501-30
 ;;9002226.02101,"734,65862-0501-30 ",.02)
 ;;65862-0501-30
 ;;9002226.02101,"734,65862-0502-20 ",.01)
 ;;65862-0502-20
 ;;9002226.02101,"734,65862-0502-20 ",.02)
 ;;65862-0502-20
 ;;9002226.02101,"734,65862-0503-01 ",.01)
 ;;65862-0503-01
 ;;9002226.02101,"734,65862-0503-01 ",.02)
 ;;65862-0503-01
 ;;9002226.02101,"734,65862-0503-20 ",.01)
 ;;65862-0503-20
 ;;9002226.02101,"734,65862-0503-20 ",.02)
 ;;65862-0503-20
 ;;9002226.02101,"734,65862-0533-01 ",.01)
 ;;65862-0533-01
 ;;9002226.02101,"734,65862-0533-01 ",.02)
 ;;65862-0533-01
 ;;9002226.02101,"734,65862-0533-50 ",.01)
 ;;65862-0533-50
 ;;9002226.02101,"734,65862-0533-50 ",.02)
 ;;65862-0533-50
 ;;9002226.02101,"734,65862-0533-75 ",.01)
 ;;65862-0533-75
 ;;9002226.02101,"734,65862-0533-75 ",.02)
 ;;65862-0533-75
 ;;9002226.02101,"734,65862-0534-01 ",.01)
 ;;65862-0534-01
 ;;9002226.02101,"734,65862-0534-01 ",.02)
 ;;65862-0534-01
 ;;9002226.02101,"734,65862-0534-50 ",.01)
 ;;65862-0534-50
 ;;9002226.02101,"734,65862-0534-50 ",.02)
 ;;65862-0534-50
 ;;9002226.02101,"734,65862-0534-75 ",.01)
 ;;65862-0534-75
 ;;9002226.02101,"734,65862-0534-75 ",.02)
 ;;65862-0534-75
 ;;9002226.02101,"734,65862-0535-02 ",.01)
 ;;65862-0535-02
 ;;9002226.02101,"734,65862-0535-02 ",.02)
 ;;65862-0535-02
 ;;9002226.02101,"734,65862-0535-13 ",.01)
 ;;65862-0535-13
 ;;9002226.02101,"734,65862-0535-13 ",.02)
 ;;65862-0535-13
 ;;9002226.02101,"734,65862-0535-75 ",.01)
 ;;65862-0535-75
 ;;9002226.02101,"734,65862-0535-75 ",.02)
 ;;65862-0535-75
 ;;9002226.02101,"734,65862-0536-50 ",.01)
 ;;65862-0536-50
 ;;9002226.02101,"734,65862-0536-50 ",.02)
 ;;65862-0536-50
 ;;9002226.02101,"734,65862-0537-50 ",.01)
 ;;65862-0537-50
 ;;9002226.02101,"734,65862-0537-50 ",.02)
 ;;65862-0537-50
 ;;9002226.02101,"734,65862-0538-20 ",.01)
 ;;65862-0538-20
 ;;9002226.02101,"734,65862-0538-20 ",.02)
 ;;65862-0538-20
 ;;9002226.02101,"734,66105-0108-10 ",.01)
 ;;66105-0108-10
 ;;9002226.02101,"734,66105-0108-10 ",.02)
 ;;66105-0108-10
 ;;9002226.02101,"734,66105-0109-01 ",.01)
 ;;66105-0109-01
 ;;9002226.02101,"734,66105-0109-01 ",.02)
 ;;66105-0109-01
 ;;9002226.02101,"734,66105-0109-02 ",.01)
 ;;66105-0109-02
 ;;9002226.02101,"734,66105-0109-02 ",.02)
 ;;66105-0109-02
 ;;9002226.02101,"734,66105-0109-03 ",.01)
 ;;66105-0109-03
 ;;9002226.02101,"734,66105-0109-03 ",.02)
 ;;66105-0109-03
 ;;9002226.02101,"734,66105-0109-06 ",.01)
 ;;66105-0109-06
 ;;9002226.02101,"734,66105-0109-06 ",.02)
 ;;66105-0109-06
 ;;9002226.02101,"734,66105-0109-10 ",.01)
 ;;66105-0109-10
 ;;9002226.02101,"734,66105-0109-10 ",.02)
 ;;66105-0109-10
 ;;9002226.02101,"734,66105-0477-05 ",.01)
 ;;66105-0477-05
 ;;9002226.02101,"734,66105-0477-05 ",.02)
 ;;66105-0477-05
 ;;9002226.02101,"734,66105-0478-05 ",.01)
 ;;66105-0478-05
 ;;9002226.02101,"734,66105-0478-05 ",.02)
 ;;66105-0478-05
 ;;9002226.02101,"734,66105-0507-01 ",.01)
 ;;66105-0507-01
 ;;9002226.02101,"734,66105-0507-01 ",.02)
 ;;66105-0507-01
 ;;9002226.02101,"734,66105-0507-03 ",.01)
 ;;66105-0507-03
 ;;9002226.02101,"734,66105-0507-03 ",.02)
 ;;66105-0507-03
 ;;9002226.02101,"734,66105-0507-06 ",.01)
 ;;66105-0507-06
 ;;9002226.02101,"734,66105-0507-06 ",.02)
 ;;66105-0507-06
 ;;9002226.02101,"734,66105-0507-09 ",.01)
 ;;66105-0507-09
 ;;9002226.02101,"734,66105-0507-09 ",.02)
 ;;66105-0507-09
 ;;9002226.02101,"734,66105-0507-10 ",.01)
 ;;66105-0507-10
 ;;9002226.02101,"734,66105-0507-10 ",.02)
 ;;66105-0507-10
 ;;9002226.02101,"734,66105-0537-01 ",.01)
 ;;66105-0537-01
 ;;9002226.02101,"734,66105-0537-01 ",.02)
 ;;66105-0537-01
 ;;9002226.02101,"734,66105-0537-03 ",.01)
 ;;66105-0537-03
 ;;9002226.02101,"734,66105-0537-03 ",.02)
 ;;66105-0537-03
 ;;9002226.02101,"734,66105-0537-06 ",.01)
 ;;66105-0537-06
 ;;9002226.02101,"734,66105-0537-06 ",.02)
 ;;66105-0537-06
 ;;9002226.02101,"734,66105-0537-09 ",.01)
 ;;66105-0537-09
 ;;9002226.02101,"734,66105-0537-09 ",.02)
 ;;66105-0537-09
 ;;9002226.02101,"734,66105-0537-15 ",.01)
 ;;66105-0537-15
 ;;9002226.02101,"734,66105-0537-15 ",.02)
 ;;66105-0537-15
 ;;9002226.02101,"734,66105-0653-01 ",.01)
 ;;66105-0653-01
 ;;9002226.02101,"734,66105-0653-01 ",.02)
 ;;66105-0653-01
 ;;9002226.02101,"734,66105-0653-03 ",.01)
 ;;66105-0653-03
 ;;9002226.02101,"734,66105-0653-03 ",.02)
 ;;66105-0653-03
 ;;9002226.02101,"734,66105-0653-05 ",.01)
 ;;66105-0653-05
 ;;9002226.02101,"734,66105-0653-05 ",.02)
 ;;66105-0653-05
 ;;9002226.02101,"734,66105-0653-06 ",.01)
 ;;66105-0653-06
 ;;9002226.02101,"734,66105-0653-06 ",.02)
 ;;66105-0653-06
 ;;9002226.02101,"734,66105-0653-19 ",.01)
 ;;66105-0653-19
 ;;9002226.02101,"734,66105-0653-19 ",.02)
 ;;66105-0653-19
 ;;9002226.02101,"734,66105-0670-01 ",.01)
 ;;66105-0670-01
 ;;9002226.02101,"734,66105-0670-01 ",.02)
 ;;66105-0670-01
 ;;9002226.02101,"734,66105-0670-03 ",.01)
 ;;66105-0670-03
 ;;9002226.02101,"734,66105-0670-03 ",.02)
 ;;66105-0670-03
 ;;9002226.02101,"734,66105-0670-05 ",.01)
 ;;66105-0670-05
 ;;9002226.02101,"734,66105-0670-05 ",.02)
 ;;66105-0670-05
 ;;9002226.02101,"734,66105-0670-06 ",.01)
 ;;66105-0670-06
 ;;9002226.02101,"734,66105-0670-06 ",.02)
 ;;66105-0670-06
 ;;9002226.02101,"734,66105-0670-18 ",.01)
 ;;66105-0670-18
 ;;9002226.02101,"734,66105-0670-18 ",.02)
 ;;66105-0670-18
 ;;9002226.02101,"734,66105-0743-01 ",.01)
 ;;66105-0743-01
 ;;9002226.02101,"734,66105-0743-01 ",.02)
 ;;66105-0743-01
 ;;9002226.02101,"734,66105-0743-03 ",.01)
 ;;66105-0743-03
 ;;9002226.02101,"734,66105-0743-03 ",.02)
 ;;66105-0743-03
 ;;9002226.02101,"734,66105-0743-06 ",.01)
 ;;66105-0743-06
 ;;9002226.02101,"734,66105-0743-06 ",.02)
 ;;66105-0743-06
 ;;9002226.02101,"734,66105-0743-09 ",.01)
 ;;66105-0743-09
 ;;9002226.02101,"734,66105-0743-09 ",.02)
 ;;66105-0743-09
 ;;9002226.02101,"734,66105-0743-15 ",.01)
 ;;66105-0743-15
 ;;9002226.02101,"734,66105-0743-15 ",.02)
 ;;66105-0743-15
 ;;9002226.02101,"734,66105-0744-01 ",.01)
 ;;66105-0744-01
 ;;9002226.02101,"734,66105-0744-01 ",.02)
 ;;66105-0744-01
 ;;9002226.02101,"734,66105-0744-03 ",.01)
 ;;66105-0744-03
 ;;9002226.02101,"734,66105-0744-03 ",.02)
 ;;66105-0744-03
 ;;9002226.02101,"734,66105-0744-06 ",.01)
 ;;66105-0744-06
 ;;9002226.02101,"734,66105-0744-06 ",.02)
 ;;66105-0744-06
 ;;9002226.02101,"734,66105-0744-09 ",.01)
 ;;66105-0744-09
 ;;9002226.02101,"734,66105-0744-09 ",.02)
 ;;66105-0744-09
 ;;9002226.02101,"734,66105-0744-15 ",.01)
 ;;66105-0744-15
 ;;9002226.02101,"734,66105-0744-15 ",.02)
 ;;66105-0744-15
 ;;9002226.02101,"734,66105-0745-01 ",.01)
 ;;66105-0745-01
 ;;9002226.02101,"734,66105-0745-01 ",.02)
 ;;66105-0745-01
 ;;9002226.02101,"734,66105-0745-03 ",.01)
 ;;66105-0745-03
 ;;9002226.02101,"734,66105-0745-03 ",.02)
 ;;66105-0745-03
 ;;9002226.02101,"734,66105-0745-06 ",.01)
 ;;66105-0745-06
 ;;9002226.02101,"734,66105-0745-06 ",.02)
 ;;66105-0745-06
 ;;9002226.02101,"734,66105-0745-09 ",.01)
 ;;66105-0745-09
 ;;9002226.02101,"734,66105-0745-09 ",.02)
 ;;66105-0745-09
 ;;9002226.02101,"734,66105-0745-15 ",.01)
 ;;66105-0745-15
 ;;9002226.02101,"734,66105-0745-15 ",.02)
 ;;66105-0745-15
 ;;9002226.02101,"734,66267-0021-15 ",.01)
 ;;66267-0021-15
 ;;9002226.02101,"734,66267-0021-15 ",.02)
 ;;66267-0021-15