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

BGP71P15.m

Go to the documentation of this file.
BGP71P15 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,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-01 ",.01)
 ;;68025-0065-01
 ;;9002226.02101,"1801,68025-0065-01 ",.02)
 ;;68025-0065-01
 ;;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-01 ",.01)
 ;;68025-0066-01
 ;;9002226.02101,"1801,68025-0066-01 ",.02)
 ;;68025-0066-01
 ;;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-01 ",.01)
 ;;68025-0067-01
 ;;9002226.02101,"1801,68025-0067-01 ",.02)
 ;;68025-0067-01
 ;;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,68180-0827-09 ",.01)
 ;;68180-0827-09
 ;;9002226.02101,"1801,68180-0827-09 ",.02)
 ;;68180-0827-09
 ;;9002226.02101,"1801,68180-0827-11 ",.01)
 ;;68180-0827-11
 ;;9002226.02101,"1801,68180-0827-11 ",.02)
 ;;68180-0827-11
 ;;9002226.02101,"1801,68180-0827-13 ",.01)
 ;;68180-0827-13
 ;;9002226.02101,"1801,68180-0827-13 ",.02)
 ;;68180-0827-13
 ;;9002226.02101,"1801,68180-0828-09 ",.01)
 ;;68180-0828-09
 ;;9002226.02101,"1801,68180-0828-09 ",.02)
 ;;68180-0828-09
 ;;9002226.02101,"1801,68180-0828-11 ",.01)
 ;;68180-0828-11
 ;;9002226.02101,"1801,68180-0828-11 ",.02)
 ;;68180-0828-11
 ;;9002226.02101,"1801,68180-0828-13 ",.01)
 ;;68180-0828-13
 ;;9002226.02101,"1801,68180-0828-13 ",.02)
 ;;68180-0828-13
 ;;9002226.02101,"1801,68258-5978-02 ",.01)
 ;;68258-5978-02
 ;;9002226.02101,"1801,68258-5978-02 ",.02)
 ;;68258-5978-02
 ;;9002226.02101,"1801,68258-5980-02 ",.01)
 ;;68258-5980-02
 ;;9002226.02101,"1801,68258-5980-02 ",.02)
 ;;68258-5980-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-9216-01 ",.01)
 ;;68788-9216-01
 ;;9002226.02101,"1801,68788-9216-01 ",.02)
 ;;68788-9216-01
 ;;9002226.02101,"1801,68788-9216-03 ",.01)
 ;;68788-9216-03
 ;;9002226.02101,"1801,68788-9216-03 ",.02)
 ;;68788-9216-03
 ;;9002226.02101,"1801,68788-9216-06 ",.01)
 ;;68788-9216-06
 ;;9002226.02101,"1801,68788-9216-06 ",.02)
 ;;68788-9216-06
 ;;9002226.02101,"1801,68788-9216-09 ",.01)
 ;;68788-9216-09
 ;;9002226.02101,"1801,68788-9216-09 ",.02)
 ;;68788-9216-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-01 ",.01)
 ;;68968-0514-01
 ;;9002226.02101,"1801,68968-0514-01 ",.02)
 ;;68968-0514-01
 ;;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-01 ",.01)
 ;;68968-0525-01
 ;;9002226.02101,"1801,68968-0525-01 ",.02)
 ;;68968-0525-01
 ;;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-01 ",.01)
 ;;68968-6610-01
 ;;9002226.02101,"1801,68968-6610-01 ",.02)
 ;;68968-6610-01
 ;;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-01 ",.01)
 ;;68968-6625-01
 ;;9002226.02101,"1801,68968-6625-01 ",.02)
 ;;68968-6625-01
 ;;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-01 ",.01)
 ;;68968-6637-01
 ;;9002226.02101,"1801,68968-6637-01 ",.02)
 ;;68968-6637-01
 ;;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-01 ",.01)
 ;;68968-6650-01
 ;;9002226.02101,"1801,68968-6650-01 ",.02)
 ;;68968-6650-01
 ;;9002226.02101,"1801,68968-6650-08 ",.01)
 ;;68968-6650-08
 ;;9002226.02101,"1801,68968-6650-08 ",.02)
 ;;68968-6650-08
 ;;9002226.02101,"1801,68968-6675-01 ",.01)
 ;;68968-6675-01
 ;;9002226.02101,"1801,68968-6675-01 ",.02)
 ;;68968-6675-01
 ;;9002226.02101,"1801,68968-6675-08 ",.01)
 ;;68968-6675-08
 ;;9002226.02101,"1801,68968-6675-08 ",.02)
 ;;68968-6675-08
 ;;9002226.02101,"1801,69238-1251-06 ",.01)
 ;;69238-1251-06
 ;;9002226.02101,"1801,69238-1251-06 ",.02)
 ;;69238-1251-06
 ;;9002226.02101,"1801,69238-1251-08 ",.01)
 ;;69238-1251-08
 ;;9002226.02101,"1801,69238-1251-08 ",.02)
 ;;69238-1251-08
 ;;9002226.02101,"1801,69238-1252-06 ",.01)
 ;;69238-1252-06
 ;;9002226.02101,"1801,69238-1252-06 ",.02)
 ;;69238-1252-06
 ;;9002226.02101,"1801,69238-1252-08 ",.01)
 ;;69238-1252-08
 ;;9002226.02101,"1801,69238-1252-08 ",.02)
 ;;69238-1252-08
 ;;9002226.02101,"1801,99207-0190-56 ",.01)
 ;;99207-0190-56
 ;;9002226.02101,"1801,99207-0190-56 ",.02)
 ;;99207-0190-56