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

BGP2TJ7.m

Go to the documentation of this file.
BGP2TJ7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1202,66336-0032-03 ",.01)
 ;;66336-0032-03
 ;;9002226.02101,"1202,66336-0032-03 ",.02)
 ;;66336-0032-03
 ;;9002226.02101,"1202,66336-0563-06 ",.01)
 ;;66336-0563-06
 ;;9002226.02101,"1202,66336-0563-06 ",.02)
 ;;66336-0563-06
 ;;9002226.02101,"1202,67253-0109-10 ",.01)
 ;;67253-0109-10
 ;;9002226.02101,"1202,67253-0109-10 ",.02)
 ;;67253-0109-10
 ;;9002226.02101,"1202,67253-0761-20 ",.01)
 ;;67253-0761-20
 ;;9002226.02101,"1202,67253-0761-20 ",.02)
 ;;67253-0761-20
 ;;9002226.02101,"1202,67253-0961-24 ",.01)
 ;;67253-0961-24
 ;;9002226.02101,"1202,67253-0961-24 ",.02)
 ;;67253-0961-24
 ;;9002226.02101,"1202,68030-6059-01 ",.01)
 ;;68030-6059-01
 ;;9002226.02101,"1202,68030-6059-01 ",.02)
 ;;68030-6059-01
 ;;9002226.02101,"1202,68030-6060-01 ",.01)
 ;;68030-6060-01
 ;;9002226.02101,"1202,68030-6060-01 ",.02)
 ;;68030-6060-01
 ;;9002226.02101,"1202,68030-6064-01 ",.01)
 ;;68030-6064-01
 ;;9002226.02101,"1202,68030-6064-01 ",.02)
 ;;68030-6064-01
 ;;9002226.02101,"1202,68030-6065-01 ",.01)
 ;;68030-6065-01
 ;;9002226.02101,"1202,68030-6065-01 ",.02)
 ;;68030-6065-01
 ;;9002226.02101,"1202,68030-7284-01 ",.01)
 ;;68030-7284-01
 ;;9002226.02101,"1202,68030-7284-01 ",.02)
 ;;68030-7284-01
 ;;9002226.02101,"1202,68084-0431-11 ",.01)
 ;;68084-0431-11
 ;;9002226.02101,"1202,68084-0431-11 ",.02)
 ;;68084-0431-11
 ;;9002226.02101,"1202,68084-0431-21 ",.01)
 ;;68084-0431-21
 ;;9002226.02101,"1202,68084-0431-21 ",.02)
 ;;68084-0431-21
 ;;9002226.02101,"1202,68084-0432-11 ",.01)
 ;;68084-0432-11
 ;;9002226.02101,"1202,68084-0432-11 ",.02)
 ;;68084-0432-11
 ;;9002226.02101,"1202,68084-0432-21 ",.01)
 ;;68084-0432-21
 ;;9002226.02101,"1202,68084-0432-21 ",.02)
 ;;68084-0432-21
 ;;9002226.02101,"1202,68084-0460-11 ",.01)
 ;;68084-0460-11
 ;;9002226.02101,"1202,68084-0460-11 ",.02)
 ;;68084-0460-11
 ;;9002226.02101,"1202,68084-0460-21 ",.01)
 ;;68084-0460-21
 ;;9002226.02101,"1202,68084-0460-21 ",.02)
 ;;68084-0460-21
 ;;9002226.02101,"1202,68084-0461-11 ",.01)
 ;;68084-0461-11
 ;;9002226.02101,"1202,68084-0461-11 ",.02)
 ;;68084-0461-11
 ;;9002226.02101,"1202,68084-0461-21 ",.01)
 ;;68084-0461-21
 ;;9002226.02101,"1202,68084-0461-21 ",.02)
 ;;68084-0461-21
 ;;9002226.02101,"1202,68084-0462-11 ",.01)
 ;;68084-0462-11
 ;;9002226.02101,"1202,68084-0462-11 ",.02)
 ;;68084-0462-11
 ;;9002226.02101,"1202,68084-0462-21 ",.01)
 ;;68084-0462-21
 ;;9002226.02101,"1202,68084-0462-21 ",.02)
 ;;68084-0462-21
 ;;9002226.02101,"1202,68115-0090-06 ",.01)
 ;;68115-0090-06
 ;;9002226.02101,"1202,68115-0090-06 ",.02)
 ;;68115-0090-06
 ;;9002226.02101,"1202,68115-0360-06 ",.01)
 ;;68115-0360-06
 ;;9002226.02101,"1202,68115-0360-06 ",.02)
 ;;68115-0360-06
 ;;9002226.02101,"1202,68258-9003-01 ",.01)
 ;;68258-9003-01
 ;;9002226.02101,"1202,68258-9003-01 ",.02)
 ;;68258-9003-01
 ;;9002226.02101,"1202,68258-9020-01 ",.01)
 ;;68258-9020-01
 ;;9002226.02101,"1202,68258-9020-01 ",.02)
 ;;68258-9020-01
 ;;9002226.02101,"1202,68258-9021-01 ",.01)
 ;;68258-9021-01
 ;;9002226.02101,"1202,68258-9021-01 ",.02)
 ;;68258-9021-01
 ;;9002226.02101,"1202,68258-9108-01 ",.01)
 ;;68258-9108-01
 ;;9002226.02101,"1202,68258-9108-01 ",.02)
 ;;68258-9108-01
 ;;9002226.02101,"1202,68258-9126-01 ",.01)
 ;;68258-9126-01
 ;;9002226.02101,"1202,68258-9126-01 ",.02)
 ;;68258-9126-01
 ;;9002226.02101,"1202,68258-9142-01 ",.01)
 ;;68258-9142-01
 ;;9002226.02101,"1202,68258-9142-01 ",.02)
 ;;68258-9142-01
 ;;9002226.02101,"1202,68258-9158-01 ",.01)
 ;;68258-9158-01
 ;;9002226.02101,"1202,68258-9158-01 ",.02)
 ;;68258-9158-01