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

BGP82Z75.m

Go to the documentation of this file.
BGP82Z75 ; 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,"619,67544-0474-60 ",.02)
 ;;67544-0474-60
 ;;9002226.02101,"619,67544-0474-70 ",.01)
 ;;67544-0474-70
 ;;9002226.02101,"619,67544-0474-70 ",.02)
 ;;67544-0474-70
 ;;9002226.02101,"619,67544-0474-80 ",.01)
 ;;67544-0474-80
 ;;9002226.02101,"619,67544-0474-80 ",.02)
 ;;67544-0474-80
 ;;9002226.02101,"619,67544-0474-90 ",.01)
 ;;67544-0474-90
 ;;9002226.02101,"619,67544-0474-90 ",.02)
 ;;67544-0474-90
 ;;9002226.02101,"619,67544-0669-60 ",.01)
 ;;67544-0669-60
 ;;9002226.02101,"619,67544-0669-60 ",.02)
 ;;67544-0669-60
 ;;9002226.02101,"619,67544-0669-70 ",.01)
 ;;67544-0669-70
 ;;9002226.02101,"619,67544-0669-70 ",.02)
 ;;67544-0669-70
 ;;9002226.02101,"619,67544-0670-30 ",.01)
 ;;67544-0670-30
 ;;9002226.02101,"619,67544-0670-30 ",.02)
 ;;67544-0670-30
 ;;9002226.02101,"619,67544-0670-40 ",.01)
 ;;67544-0670-40
 ;;9002226.02101,"619,67544-0670-40 ",.02)
 ;;67544-0670-40
 ;;9002226.02101,"619,67544-0670-45 ",.01)
 ;;67544-0670-45
 ;;9002226.02101,"619,67544-0670-45 ",.02)
 ;;67544-0670-45
 ;;9002226.02101,"619,67544-0670-46 ",.01)
 ;;67544-0670-46
 ;;9002226.02101,"619,67544-0670-46 ",.02)
 ;;67544-0670-46
 ;;9002226.02101,"619,67544-0670-50 ",.01)
 ;;67544-0670-50
 ;;9002226.02101,"619,67544-0670-50 ",.02)
 ;;67544-0670-50
 ;;9002226.02101,"619,67544-0670-53 ",.01)
 ;;67544-0670-53
 ;;9002226.02101,"619,67544-0670-53 ",.02)
 ;;67544-0670-53
 ;;9002226.02101,"619,67544-0670-54 ",.01)
 ;;67544-0670-54
 ;;9002226.02101,"619,67544-0670-54 ",.02)
 ;;67544-0670-54
 ;;9002226.02101,"619,67544-0670-55 ",.01)
 ;;67544-0670-55
 ;;9002226.02101,"619,67544-0670-55 ",.02)
 ;;67544-0670-55
 ;;9002226.02101,"619,67544-0670-60 ",.01)
 ;;67544-0670-60
 ;;9002226.02101,"619,67544-0670-60 ",.02)
 ;;67544-0670-60
 ;;9002226.02101,"619,67544-0670-67 ",.01)
 ;;67544-0670-67
 ;;9002226.02101,"619,67544-0670-67 ",.02)
 ;;67544-0670-67
 ;;9002226.02101,"619,67544-0670-70 ",.01)
 ;;67544-0670-70
 ;;9002226.02101,"619,67544-0670-70 ",.02)
 ;;67544-0670-70
 ;;9002226.02101,"619,67544-0670-72 ",.01)
 ;;67544-0670-72
 ;;9002226.02101,"619,67544-0670-72 ",.02)
 ;;67544-0670-72
 ;;9002226.02101,"619,67544-0670-75 ",.01)
 ;;67544-0670-75
 ;;9002226.02101,"619,67544-0670-75 ",.02)
 ;;67544-0670-75
 ;;9002226.02101,"619,67544-0670-80 ",.01)
 ;;67544-0670-80
 ;;9002226.02101,"619,67544-0670-80 ",.02)
 ;;67544-0670-80
 ;;9002226.02101,"619,67544-0670-85 ",.01)
 ;;67544-0670-85
 ;;9002226.02101,"619,67544-0670-85 ",.02)
 ;;67544-0670-85
 ;;9002226.02101,"619,67544-0670-90 ",.01)
 ;;67544-0670-90
 ;;9002226.02101,"619,67544-0670-90 ",.02)
 ;;67544-0670-90
 ;;9002226.02101,"619,67544-0882-20 ",.01)
 ;;67544-0882-20
 ;;9002226.02101,"619,67544-0882-20 ",.02)
 ;;67544-0882-20
 ;;9002226.02101,"619,67544-0882-30 ",.01)
 ;;67544-0882-30
 ;;9002226.02101,"619,67544-0882-30 ",.02)
 ;;67544-0882-30
 ;;9002226.02101,"619,67544-0882-40 ",.01)
 ;;67544-0882-40
 ;;9002226.02101,"619,67544-0882-40 ",.02)
 ;;67544-0882-40
 ;;9002226.02101,"619,67544-0882-45 ",.01)
 ;;67544-0882-45
 ;;9002226.02101,"619,67544-0882-45 ",.02)
 ;;67544-0882-45
 ;;9002226.02101,"619,67544-0882-50 ",.01)
 ;;67544-0882-50
 ;;9002226.02101,"619,67544-0882-50 ",.02)
 ;;67544-0882-50
 ;;9002226.02101,"619,67544-0882-53 ",.01)
 ;;67544-0882-53
 ;;9002226.02101,"619,67544-0882-53 ",.02)
 ;;67544-0882-53
 ;;9002226.02101,"619,67544-0882-55 ",.01)
 ;;67544-0882-55
 ;;9002226.02101,"619,67544-0882-55 ",.02)
 ;;67544-0882-55
 ;;9002226.02101,"619,67544-0882-60 ",.01)
 ;;67544-0882-60
 ;;9002226.02101,"619,67544-0882-60 ",.02)
 ;;67544-0882-60
 ;;9002226.02101,"619,67544-0882-70 ",.01)
 ;;67544-0882-70
 ;;9002226.02101,"619,67544-0882-70 ",.02)
 ;;67544-0882-70
 ;;9002226.02101,"619,67544-0882-75 ",.01)
 ;;67544-0882-75
 ;;9002226.02101,"619,67544-0882-75 ",.02)
 ;;67544-0882-75
 ;;9002226.02101,"619,67544-0882-80 ",.01)
 ;;67544-0882-80
 ;;9002226.02101,"619,67544-0882-80 ",.02)
 ;;67544-0882-80
 ;;9002226.02101,"619,67544-0882-90 ",.01)
 ;;67544-0882-90
 ;;9002226.02101,"619,67544-0882-90 ",.02)
 ;;67544-0882-90
 ;;9002226.02101,"619,67877-0116-01 ",.01)
 ;;67877-0116-01
 ;;9002226.02101,"619,67877-0116-01 ",.02)
 ;;67877-0116-01
 ;;9002226.02101,"619,67877-0322-01 ",.01)
 ;;67877-0322-01
 ;;9002226.02101,"619,67877-0322-01 ",.02)
 ;;67877-0322-01
 ;;9002226.02101,"619,67877-0322-05 ",.01)
 ;;67877-0322-05
 ;;9002226.02101,"619,67877-0322-05 ",.02)
 ;;67877-0322-05
 ;;9002226.02101,"619,68025-0053-30 ",.01)
 ;;68025-0053-30
 ;;9002226.02101,"619,68025-0053-30 ",.02)
 ;;68025-0053-30
 ;;9002226.02101,"619,68025-0055-30 ",.01)
 ;;68025-0055-30
 ;;9002226.02101,"619,68025-0055-30 ",.02)
 ;;68025-0055-30
 ;;9002226.02101,"619,68025-0056-30 ",.01)
 ;;68025-0056-30
 ;;9002226.02101,"619,68025-0056-30 ",.02)
 ;;68025-0056-30
 ;;9002226.02101,"619,68025-0069-10 ",.01)
 ;;68025-0069-10
 ;;9002226.02101,"619,68025-0069-10 ",.02)
 ;;68025-0069-10
 ;;9002226.02101,"619,68025-0071-30 ",.01)
 ;;68025-0071-30
 ;;9002226.02101,"619,68025-0071-30 ",.02)
 ;;68025-0071-30
 ;;9002226.02101,"619,68025-0072-30 ",.01)
 ;;68025-0072-30
 ;;9002226.02101,"619,68025-0072-30 ",.02)
 ;;68025-0072-30
 ;;9002226.02101,"619,68025-0073-30 ",.01)
 ;;68025-0073-30
 ;;9002226.02101,"619,68025-0073-30 ",.02)
 ;;68025-0073-30
 ;;9002226.02101,"619,68047-0720-01 ",.01)
 ;;68047-0720-01
 ;;9002226.02101,"619,68047-0720-01 ",.02)
 ;;68047-0720-01
 ;;9002226.02101,"619,68071-0158-10 ",.01)
 ;;68071-0158-10
 ;;9002226.02101,"619,68071-0158-10 ",.02)
 ;;68071-0158-10
 ;;9002226.02101,"619,68071-0158-12 ",.01)
 ;;68071-0158-12
 ;;9002226.02101,"619,68071-0158-12 ",.02)
 ;;68071-0158-12
 ;;9002226.02101,"619,68071-0158-20 ",.01)
 ;;68071-0158-20
 ;;9002226.02101,"619,68071-0158-20 ",.02)
 ;;68071-0158-20
 ;;9002226.02101,"619,68071-0158-30 ",.01)
 ;;68071-0158-30
 ;;9002226.02101,"619,68071-0158-30 ",.02)
 ;;68071-0158-30
 ;;9002226.02101,"619,68071-0158-40 ",.01)
 ;;68071-0158-40
 ;;9002226.02101,"619,68071-0158-40 ",.02)
 ;;68071-0158-40
 ;;9002226.02101,"619,68071-0158-60 ",.01)
 ;;68071-0158-60
 ;;9002226.02101,"619,68071-0158-60 ",.02)
 ;;68071-0158-60
 ;;9002226.02101,"619,68071-0158-90 ",.01)
 ;;68071-0158-90
 ;;9002226.02101,"619,68071-0158-90 ",.02)
 ;;68071-0158-90
 ;;9002226.02101,"619,68071-0158-91 ",.01)
 ;;68071-0158-91
 ;;9002226.02101,"619,68071-0158-91 ",.02)
 ;;68071-0158-91
 ;;9002226.02101,"619,68071-0159-06 ",.01)
 ;;68071-0159-06
 ;;9002226.02101,"619,68071-0159-06 ",.02)
 ;;68071-0159-06
 ;;9002226.02101,"619,68071-0177-04 ",.01)
 ;;68071-0177-04
 ;;9002226.02101,"619,68071-0177-04 ",.02)
 ;;68071-0177-04
 ;;9002226.02101,"619,68071-0177-06 ",.01)
 ;;68071-0177-06
 ;;9002226.02101,"619,68071-0177-06 ",.02)
 ;;68071-0177-06
 ;;9002226.02101,"619,68071-0178-04 ",.01)
 ;;68071-0178-04
 ;;9002226.02101,"619,68071-0178-04 ",.02)
 ;;68071-0178-04
 ;;9002226.02101,"619,68071-0178-06 ",.01)
 ;;68071-0178-06
 ;;9002226.02101,"619,68071-0178-06 ",.02)
 ;;68071-0178-06
 ;;9002226.02101,"619,68071-0179-04 ",.01)
 ;;68071-0179-04
 ;;9002226.02101,"619,68071-0179-04 ",.02)
 ;;68071-0179-04
 ;;9002226.02101,"619,68071-0203-06 ",.01)
 ;;68071-0203-06
 ;;9002226.02101,"619,68071-0203-06 ",.02)
 ;;68071-0203-06
 ;;9002226.02101,"619,68071-0224-20 ",.01)
 ;;68071-0224-20
 ;;9002226.02101,"619,68071-0224-20 ",.02)
 ;;68071-0224-20
 ;;9002226.02101,"619,68071-0224-30 ",.01)
 ;;68071-0224-30
 ;;9002226.02101,"619,68071-0224-30 ",.02)
 ;;68071-0224-30
 ;;9002226.02101,"619,68071-0270-30 ",.01)
 ;;68071-0270-30
 ;;9002226.02101,"619,68071-0270-30 ",.02)
 ;;68071-0270-30
 ;;9002226.02101,"619,68071-0274-30 ",.01)
 ;;68071-0274-30
 ;;9002226.02101,"619,68071-0274-30 ",.02)
 ;;68071-0274-30
 ;;9002226.02101,"619,68071-0274-60 ",.01)
 ;;68071-0274-60
 ;;9002226.02101,"619,68071-0274-60 ",.02)
 ;;68071-0274-60
 ;;9002226.02101,"619,68071-0274-90 ",.01)
 ;;68071-0274-90
 ;;9002226.02101,"619,68071-0274-90 ",.02)
 ;;68071-0274-90
 ;;9002226.02101,"619,68071-0284-30 ",.01)
 ;;68071-0284-30
 ;;9002226.02101,"619,68071-0284-30 ",.02)
 ;;68071-0284-30
 ;;9002226.02101,"619,68071-0284-60 ",.01)
 ;;68071-0284-60
 ;;9002226.02101,"619,68071-0284-60 ",.02)
 ;;68071-0284-60
 ;;9002226.02101,"619,68071-0284-90 ",.01)
 ;;68071-0284-90
 ;;9002226.02101,"619,68071-0284-90 ",.02)
 ;;68071-0284-90
 ;;9002226.02101,"619,68071-0284-91 ",.01)
 ;;68071-0284-91
 ;;9002226.02101,"619,68071-0284-91 ",.02)
 ;;68071-0284-91
 ;;9002226.02101,"619,68071-0285-30 ",.01)
 ;;68071-0285-30
 ;;9002226.02101,"619,68071-0285-30 ",.02)
 ;;68071-0285-30
 ;;9002226.02101,"619,68071-0285-56 ",.01)
 ;;68071-0285-56
 ;;9002226.02101,"619,68071-0285-56 ",.02)
 ;;68071-0285-56
 ;;9002226.02101,"619,68071-0285-60 ",.01)
 ;;68071-0285-60
 ;;9002226.02101,"619,68071-0285-60 ",.02)
 ;;68071-0285-60
 ;;9002226.02101,"619,68071-0285-84 ",.01)
 ;;68071-0285-84
 ;;9002226.02101,"619,68071-0285-84 ",.02)
 ;;68071-0285-84
 ;;9002226.02101,"619,68071-0285-90 ",.01)
 ;;68071-0285-90
 ;;9002226.02101,"619,68071-0285-90 ",.02)
 ;;68071-0285-90
 ;;9002226.02101,"619,68071-0285-91 ",.01)
 ;;68071-0285-91
 ;;9002226.02101,"619,68071-0285-91 ",.02)
 ;;68071-0285-91
 ;;9002226.02101,"619,68071-0286-60 ",.01)
 ;;68071-0286-60
 ;;9002226.02101,"619,68071-0286-60 ",.02)
 ;;68071-0286-60
 ;;9002226.02101,"619,68071-0286-90 ",.01)
 ;;68071-0286-90
 ;;9002226.02101,"619,68071-0286-90 ",.02)
 ;;68071-0286-90
 ;;9002226.02101,"619,68071-0287-00 ",.01)
 ;;68071-0287-00
 ;;9002226.02101,"619,68071-0287-00 ",.02)
 ;;68071-0287-00
 ;;9002226.02101,"619,68071-0287-20 ",.01)
 ;;68071-0287-20
 ;;9002226.02101,"619,68071-0287-20 ",.02)
 ;;68071-0287-20
 ;;9002226.02101,"619,68071-0287-30 ",.01)
 ;;68071-0287-30
 ;;9002226.02101,"619,68071-0287-30 ",.02)
 ;;68071-0287-30
 ;;9002226.02101,"619,68071-0287-40 ",.01)
 ;;68071-0287-40
 ;;9002226.02101,"619,68071-0287-40 ",.02)
 ;;68071-0287-40
 ;;9002226.02101,"619,68071-0287-60 ",.01)
 ;;68071-0287-60
 ;;9002226.02101,"619,68071-0287-60 ",.02)
 ;;68071-0287-60
 ;;9002226.02101,"619,68071-0287-90 ",.01)
 ;;68071-0287-90
 ;;9002226.02101,"619,68071-0287-90 ",.02)
 ;;68071-0287-90
 ;;9002226.02101,"619,68071-0287-91 ",.01)
 ;;68071-0287-91
 ;;9002226.02101,"619,68071-0287-91 ",.02)
 ;;68071-0287-91
 ;;9002226.02101,"619,68071-0296-15 ",.01)
 ;;68071-0296-15
 ;;9002226.02101,"619,68071-0296-15 ",.02)
 ;;68071-0296-15
 ;;9002226.02101,"619,68071-0296-20 ",.01)
 ;;68071-0296-20
 ;;9002226.02101,"619,68071-0296-20 ",.02)
 ;;68071-0296-20
 ;;9002226.02101,"619,68071-0296-25 ",.01)
 ;;68071-0296-25
 ;;9002226.02101,"619,68071-0296-25 ",.02)
 ;;68071-0296-25
 ;;9002226.02101,"619,68071-0296-30 ",.01)
 ;;68071-0296-30
 ;;9002226.02101,"619,68071-0296-30 ",.02)
 ;;68071-0296-30
 ;;9002226.02101,"619,68071-0296-40 ",.01)
 ;;68071-0296-40
 ;;9002226.02101,"619,68071-0296-40 ",.02)
 ;;68071-0296-40
 ;;9002226.02101,"619,68071-0296-50 ",.01)
 ;;68071-0296-50
 ;;9002226.02101,"619,68071-0296-50 ",.02)
 ;;68071-0296-50
 ;;9002226.02101,"619,68071-0296-60 ",.01)
 ;;68071-0296-60
 ;;9002226.02101,"619,68071-0296-60 ",.02)
 ;;68071-0296-60
 ;;9002226.02101,"619,68071-0296-81 ",.01)
 ;;68071-0296-81
 ;;9002226.02101,"619,68071-0296-81 ",.02)
 ;;68071-0296-81
 ;;9002226.02101,"619,68071-0296-84 ",.01)
 ;;68071-0296-84
 ;;9002226.02101,"619,68071-0296-84 ",.02)
 ;;68071-0296-84
 ;;9002226.02101,"619,68071-0296-90 ",.01)
 ;;68071-0296-90
 ;;9002226.02101,"619,68071-0296-90 ",.02)
 ;;68071-0296-90
 ;;9002226.02101,"619,68071-0296-91 ",.01)
 ;;68071-0296-91
 ;;9002226.02101,"619,68071-0296-91 ",.02)
 ;;68071-0296-91
 ;;9002226.02101,"619,68071-0296-92 ",.01)
 ;;68071-0296-92