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

BGP61C15.m

Go to the documentation of this file.
BGP61C15 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"1801,66336-0598-90 ",.01)
 ;;66336-0598-90
 ;;9002226.02101,"1801,66336-0598-90 ",.02)
 ;;66336-0598-90
 ;;9002226.02101,"1801,66336-0599-30 ",.01)
 ;;66336-0599-30
 ;;9002226.02101,"1801,66336-0599-30 ",.02)
 ;;66336-0599-30
 ;;9002226.02101,"1801,66336-0712-90 ",.01)
 ;;66336-0712-90
 ;;9002226.02101,"1801,66336-0712-90 ",.02)
 ;;66336-0712-90
 ;;9002226.02101,"1801,66336-0784-30 ",.01)
 ;;66336-0784-30
 ;;9002226.02101,"1801,66336-0784-30 ",.02)
 ;;66336-0784-30
 ;;9002226.02101,"1801,66336-0784-60 ",.01)
 ;;66336-0784-60
 ;;9002226.02101,"1801,66336-0784-60 ",.02)
 ;;66336-0784-60
 ;;9002226.02101,"1801,66336-0784-90 ",.01)
 ;;66336-0784-90
 ;;9002226.02101,"1801,66336-0784-90 ",.02)
 ;;66336-0784-90
 ;;9002226.02101,"1801,66336-0840-90 ",.01)
 ;;66336-0840-90
 ;;9002226.02101,"1801,66336-0840-90 ",.02)
 ;;66336-0840-90
 ;;9002226.02101,"1801,66336-0850-30 ",.01)
 ;;66336-0850-30
 ;;9002226.02101,"1801,66336-0850-30 ",.02)
 ;;66336-0850-30
 ;;9002226.02101,"1801,66336-0850-60 ",.01)
 ;;66336-0850-60
 ;;9002226.02101,"1801,66336-0850-60 ",.02)
 ;;66336-0850-60
 ;;9002226.02101,"1801,66336-0850-90 ",.01)
 ;;66336-0850-90
 ;;9002226.02101,"1801,66336-0850-90 ",.02)
 ;;66336-0850-90
 ;;9002226.02101,"1801,66336-0938-30 ",.01)
 ;;66336-0938-30
 ;;9002226.02101,"1801,66336-0938-30 ",.02)
 ;;66336-0938-30
 ;;9002226.02101,"1801,66336-0938-60 ",.01)
 ;;66336-0938-60
 ;;9002226.02101,"1801,66336-0938-60 ",.02)
 ;;66336-0938-60
 ;;9002226.02101,"1801,66336-0938-90 ",.01)
 ;;66336-0938-90
 ;;9002226.02101,"1801,66336-0938-90 ",.02)
 ;;66336-0938-90
 ;;9002226.02101,"1801,66336-0977-30 ",.01)
 ;;66336-0977-30
 ;;9002226.02101,"1801,66336-0977-30 ",.02)
 ;;66336-0977-30
 ;;9002226.02101,"1801,66689-0020-01 ",.01)
 ;;66689-0020-01
 ;;9002226.02101,"1801,66689-0020-01 ",.02)
 ;;66689-0020-01
 ;;9002226.02101,"1801,66689-0020-50 ",.01)
 ;;66689-0020-50
 ;;9002226.02101,"1801,66689-0020-50 ",.02)
 ;;66689-0020-50
 ;;9002226.02101,"1801,67253-0460-10 ",.01)
 ;;67253-0460-10
 ;;9002226.02101,"1801,67253-0460-10 ",.02)
 ;;67253-0460-10
 ;;9002226.02101,"1801,67253-0461-10 ",.01)
 ;;67253-0461-10
 ;;9002226.02101,"1801,67253-0461-10 ",.02)
 ;;67253-0461-10
 ;;9002226.02101,"1801,67253-0461-11 ",.01)
 ;;67253-0461-11
 ;;9002226.02101,"1801,67253-0461-11 ",.02)
 ;;67253-0461-11
 ;;9002226.02101,"1801,67253-0461-50 ",.01)
 ;;67253-0461-50
 ;;9002226.02101,"1801,67253-0461-50 ",.02)
 ;;67253-0461-50
 ;;9002226.02101,"1801,67253-0462-10 ",.01)
 ;;67253-0462-10
 ;;9002226.02101,"1801,67253-0462-10 ",.02)
 ;;67253-0462-10
 ;;9002226.02101,"1801,67253-0462-11 ",.01)
 ;;67253-0462-11
 ;;9002226.02101,"1801,67253-0462-11 ",.02)
 ;;67253-0462-11
 ;;9002226.02101,"1801,67253-0462-50 ",.01)
 ;;67253-0462-50
 ;;9002226.02101,"1801,67253-0462-50 ",.02)
 ;;67253-0462-50
 ;;9002226.02101,"1801,67544-0296-70 ",.01)
 ;;67544-0296-70
 ;;9002226.02101,"1801,67544-0296-70 ",.02)
 ;;67544-0296-70
 ;;9002226.02101,"1801,67544-0511-70 ",.01)
 ;;67544-0511-70
 ;;9002226.02101,"1801,67544-0511-70 ",.02)
 ;;67544-0511-70
 ;;9002226.02101,"1801,67544-0511-94 ",.01)
 ;;67544-0511-94
 ;;9002226.02101,"1801,67544-0511-94 ",.02)
 ;;67544-0511-94
 ;;9002226.02101,"1801,67544-0566-53 ",.01)
 ;;67544-0566-53
 ;;9002226.02101,"1801,67544-0566-53 ",.02)
 ;;67544-0566-53
 ;;9002226.02101,"1801,67544-0566-60 ",.01)
 ;;67544-0566-60
 ;;9002226.02101,"1801,67544-0566-60 ",.02)
 ;;67544-0566-60
 ;;9002226.02101,"1801,67544-0566-70 ",.01)
 ;;67544-0566-70
 ;;9002226.02101,"1801,67544-0566-70 ",.02)
 ;;67544-0566-70
 ;;9002226.02101,"1801,67544-0566-80 ",.01)
 ;;67544-0566-80
 ;;9002226.02101,"1801,67544-0566-80 ",.02)
 ;;67544-0566-80
 ;;9002226.02101,"1801,67544-0566-92 ",.01)
 ;;67544-0566-92
 ;;9002226.02101,"1801,67544-0566-92 ",.02)
 ;;67544-0566-92
 ;;9002226.02101,"1801,67544-0566-94 ",.01)
 ;;67544-0566-94
 ;;9002226.02101,"1801,67544-0566-94 ",.02)
 ;;67544-0566-94
 ;;9002226.02101,"1801,67544-0613-53 ",.01)
 ;;67544-0613-53
 ;;9002226.02101,"1801,67544-0613-53 ",.02)
 ;;67544-0613-53
 ;;9002226.02101,"1801,67544-0653-53 ",.01)
 ;;67544-0653-53
 ;;9002226.02101,"1801,67544-0653-53 ",.02)
 ;;67544-0653-53
 ;;9002226.02101,"1801,67544-0653-60 ",.01)
 ;;67544-0653-60
 ;;9002226.02101,"1801,67544-0653-60 ",.02)
 ;;67544-0653-60
 ;;9002226.02101,"1801,67544-0653-70 ",.01)
 ;;67544-0653-70
 ;;9002226.02101,"1801,67544-0653-70 ",.02)
 ;;67544-0653-70
 ;;9002226.02101,"1801,67544-0653-80 ",.01)
 ;;67544-0653-80
 ;;9002226.02101,"1801,67544-0653-80 ",.02)
 ;;67544-0653-80
 ;;9002226.02101,"1801,67544-0653-90 ",.01)
 ;;67544-0653-90
 ;;9002226.02101,"1801,67544-0653-90 ",.02)
 ;;67544-0653-90
 ;;9002226.02101,"1801,67544-0653-92 ",.01)
 ;;67544-0653-92
 ;;9002226.02101,"1801,67544-0653-92 ",.02)
 ;;67544-0653-92
 ;;9002226.02101,"1801,67544-0653-94 ",.01)
 ;;67544-0653-94
 ;;9002226.02101,"1801,67544-0653-94 ",.02)
 ;;67544-0653-94
 ;;9002226.02101,"1801,67544-0653-98 ",.01)
 ;;67544-0653-98
 ;;9002226.02101,"1801,67544-0653-98 ",.02)
 ;;67544-0653-98
 ;;9002226.02101,"1801,67544-0661-41 ",.01)
 ;;67544-0661-41
 ;;9002226.02101,"1801,67544-0661-41 ",.02)
 ;;67544-0661-41
 ;;9002226.02101,"1801,67544-0661-81 ",.01)
 ;;67544-0661-81
 ;;9002226.02101,"1801,67544-0661-81 ",.02)
 ;;67544-0661-81
 ;;9002226.02101,"1801,67544-0875-60 ",.01)
 ;;67544-0875-60
 ;;9002226.02101,"1801,67544-0875-60 ",.02)
 ;;67544-0875-60
 ;;9002226.02101,"1801,67544-0875-80 ",.01)
 ;;67544-0875-80
 ;;9002226.02101,"1801,67544-0875-80 ",.02)
 ;;67544-0875-80
 ;;9002226.02101,"1801,68025-0065-30 ",.01)
 ;;68025-0065-30
 ;;9002226.02101,"1801,68025-0065-30 ",.02)
 ;;68025-0065-30
 ;;9002226.02101,"1801,68025-0066-30 ",.01)
 ;;68025-0066-30
 ;;9002226.02101,"1801,68025-0066-30 ",.02)
 ;;68025-0066-30
 ;;9002226.02101,"1801,68025-0067-30 ",.01)
 ;;68025-0067-30
 ;;9002226.02101,"1801,68025-0067-30 ",.02)
 ;;68025-0067-30
 ;;9002226.02101,"1801,68071-0028-30 ",.01)
 ;;68071-0028-30
 ;;9002226.02101,"1801,68071-0028-30 ",.02)
 ;;68071-0028-30
 ;;9002226.02101,"1801,68071-0028-60 ",.01)
 ;;68071-0028-60
 ;;9002226.02101,"1801,68071-0028-60 ",.02)
 ;;68071-0028-60
 ;;9002226.02101,"1801,68084-0136-01 ",.01)
 ;;68084-0136-01
 ;;9002226.02101,"1801,68084-0136-01 ",.02)
 ;;68084-0136-01
 ;;9002226.02101,"1801,68084-0136-11 ",.01)
 ;;68084-0136-11
 ;;9002226.02101,"1801,68084-0136-11 ",.02)
 ;;68084-0136-11
 ;;9002226.02101,"1801,68084-0137-01 ",.01)
 ;;68084-0137-01
 ;;9002226.02101,"1801,68084-0137-01 ",.02)
 ;;68084-0137-01
 ;;9002226.02101,"1801,68084-0137-11 ",.01)
 ;;68084-0137-11
 ;;9002226.02101,"1801,68084-0137-11 ",.02)
 ;;68084-0137-11
 ;;9002226.02101,"1801,68084-0138-01 ",.01)
 ;;68084-0138-01
 ;;9002226.02101,"1801,68084-0138-01 ",.02)
 ;;68084-0138-01
 ;;9002226.02101,"1801,68084-0138-11 ",.01)
 ;;68084-0138-11
 ;;9002226.02101,"1801,68084-0138-11 ",.02)
 ;;68084-0138-11
 ;;9002226.02101,"1801,68084-0745-25 ",.01)
 ;;68084-0745-25
 ;;9002226.02101,"1801,68084-0745-25 ",.02)
 ;;68084-0745-25
 ;;9002226.02101,"1801,68084-0745-95 ",.01)
 ;;68084-0745-95
 ;;9002226.02101,"1801,68084-0745-95 ",.02)
 ;;68084-0745-95
 ;;9002226.02101,"1801,68084-0807-01 ",.01)
 ;;68084-0807-01
 ;;9002226.02101,"1801,68084-0807-01 ",.02)
 ;;68084-0807-01
 ;;9002226.02101,"1801,68084-0807-11 ",.01)
 ;;68084-0807-11
 ;;9002226.02101,"1801,68084-0807-11 ",.02)
 ;;68084-0807-11
 ;;9002226.02101,"1801,68094-0250-59 ",.01)
 ;;68094-0250-59
 ;;9002226.02101,"1801,68094-0250-59 ",.02)
 ;;68094-0250-59
 ;;9002226.02101,"1801,68094-0250-61 ",.01)
 ;;68094-0250-61
 ;;9002226.02101,"1801,68094-0250-61 ",.02)
 ;;68094-0250-61
 ;;9002226.02101,"1801,68094-0250-62 ",.01)
 ;;68094-0250-62
 ;;9002226.02101,"1801,68094-0250-62 ",.02)
 ;;68094-0250-62
 ;;9002226.02101,"1801,68094-0361-59 ",.01)
 ;;68094-0361-59
 ;;9002226.02101,"1801,68094-0361-59 ",.02)
 ;;68094-0361-59
 ;;9002226.02101,"1801,68094-0361-62 ",.01)
 ;;68094-0361-62
 ;;9002226.02101,"1801,68094-0361-62 ",.02)
 ;;68094-0361-62
 ;;9002226.02101,"1801,68094-0518-59 ",.01)
 ;;68094-0518-59
 ;;9002226.02101,"1801,68094-0518-59 ",.02)
 ;;68094-0518-59
 ;;9002226.02101,"1801,68094-0518-62 ",.01)
 ;;68094-0518-62
 ;;9002226.02101,"1801,68094-0518-62 ",.02)
 ;;68094-0518-62
 ;;9002226.02101,"1801,68094-0528-59 ",.01)
 ;;68094-0528-59
 ;;9002226.02101,"1801,68094-0528-59 ",.02)
 ;;68094-0528-59
 ;;9002226.02101,"1801,68094-0528-61 ",.01)
 ;;68094-0528-61
 ;;9002226.02101,"1801,68094-0528-61 ",.02)
 ;;68094-0528-61
 ;;9002226.02101,"1801,68094-0528-62 ",.01)
 ;;68094-0528-62
 ;;9002226.02101,"1801,68094-0528-62 ",.02)
 ;;68094-0528-62
 ;;9002226.02101,"1801,68258-5975-08 ",.01)
 ;;68258-5975-08
 ;;9002226.02101,"1801,68258-5975-08 ",.02)
 ;;68258-5975-08
 ;;9002226.02101,"1801,68258-5978-02 ",.01)
 ;;68258-5978-02
 ;;9002226.02101,"1801,68258-5978-02 ",.02)
 ;;68258-5978-02
 ;;9002226.02101,"1801,68258-5979-02 ",.01)
 ;;68258-5979-02
 ;;9002226.02101,"1801,68258-5979-02 ",.02)
 ;;68258-5979-02
 ;;9002226.02101,"1801,68258-5980-02 ",.01)
 ;;68258-5980-02
 ;;9002226.02101,"1801,68258-5980-02 ",.02)
 ;;68258-5980-02
 ;;9002226.02101,"1801,68258-5981-02 ",.01)
 ;;68258-5981-02
 ;;9002226.02101,"1801,68258-5981-02 ",.02)
 ;;68258-5981-02
 ;;9002226.02101,"1801,68462-0656-29 ",.01)
 ;;68462-0656-29
 ;;9002226.02101,"1801,68462-0656-29 ",.02)
 ;;68462-0656-29
 ;;9002226.02101,"1801,68462-0656-84 ",.01)
 ;;68462-0656-84
 ;;9002226.02101,"1801,68462-0656-84 ",.02)
 ;;68462-0656-84
 ;;9002226.02101,"1801,68462-0657-29 ",.01)
 ;;68462-0657-29
 ;;9002226.02101,"1801,68462-0657-29 ",.02)
 ;;68462-0657-29
 ;;9002226.02101,"1801,68462-0657-84 ",.01)
 ;;68462-0657-84
 ;;9002226.02101,"1801,68462-0657-84 ",.02)
 ;;68462-0657-84
 ;;9002226.02101,"1801,68462-0657-90 ",.01)
 ;;68462-0657-90
 ;;9002226.02101,"1801,68462-0657-90 ",.02)
 ;;68462-0657-90
 ;;9002226.02101,"1801,68645-0210-54 ",.01)
 ;;68645-0210-54
 ;;9002226.02101,"1801,68645-0210-54 ",.02)
 ;;68645-0210-54
 ;;9002226.02101,"1801,68645-0211-54 ",.01)
 ;;68645-0211-54
 ;;9002226.02101,"1801,68645-0211-54 ",.02)
 ;;68645-0211-54
 ;;9002226.02101,"1801,68788-9128-03 ",.01)
 ;;68788-9128-03
 ;;9002226.02101,"1801,68788-9128-03 ",.02)
 ;;68788-9128-03
 ;;9002226.02101,"1801,68788-9128-06 ",.01)
 ;;68788-9128-06
 ;;9002226.02101,"1801,68788-9128-06 ",.02)
 ;;68788-9128-06
 ;;9002226.02101,"1801,68788-9128-09 ",.01)
 ;;68788-9128-09
 ;;9002226.02101,"1801,68788-9128-09 ",.02)
 ;;68788-9128-09
 ;;9002226.02101,"1801,68788-9716-03 ",.01)
 ;;68788-9716-03
 ;;9002226.02101,"1801,68788-9716-03 ",.02)
 ;;68788-9716-03
 ;;9002226.02101,"1801,68788-9716-06 ",.01)
 ;;68788-9716-06
 ;;9002226.02101,"1801,68788-9716-06 ",.02)
 ;;68788-9716-06
 ;;9002226.02101,"1801,68788-9716-09 ",.01)
 ;;68788-9716-09
 ;;9002226.02101,"1801,68788-9716-09 ",.02)
 ;;68788-9716-09
 ;;9002226.02101,"1801,68788-9728-03 ",.01)
 ;;68788-9728-03
 ;;9002226.02101,"1801,68788-9728-03 ",.02)
 ;;68788-9728-03
 ;;9002226.02101,"1801,68968-0514-08 ",.01)
 ;;68968-0514-08
 ;;9002226.02101,"1801,68968-0514-08 ",.02)
 ;;68968-0514-08
 ;;9002226.02101,"1801,68968-0525-08 ",.01)
 ;;68968-0525-08
 ;;9002226.02101,"1801,68968-0525-08 ",.02)
 ;;68968-0525-08
 ;;9002226.02101,"1801,68968-6610-08 ",.01)
 ;;68968-6610-08
 ;;9002226.02101,"1801,68968-6610-08 ",.02)
 ;;68968-6610-08
 ;;9002226.02101,"1801,68968-6625-08 ",.01)
 ;;68968-6625-08
 ;;9002226.02101,"1801,68968-6625-08 ",.02)
 ;;68968-6625-08
 ;;9002226.02101,"1801,68968-6637-08 ",.01)
 ;;68968-6637-08
 ;;9002226.02101,"1801,68968-6637-08 ",.02)
 ;;68968-6637-08
 ;;9002226.02101,"1801,68968-6650-08 ",.01)
 ;;68968-6650-08