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

BGP82J21.m

Go to the documentation of this file.
BGP82J21 ; 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,"1220,54868-0826-02 ",.01)
 ;;54868-0826-02
 ;;9002226.02101,"1220,54868-0826-02 ",.02)
 ;;54868-0826-02
 ;;9002226.02101,"1220,54868-0933-00 ",.01)
 ;;54868-0933-00
 ;;9002226.02101,"1220,54868-0933-00 ",.02)
 ;;54868-0933-00
 ;;9002226.02101,"1220,54868-1006-02 ",.01)
 ;;54868-1006-02
 ;;9002226.02101,"1220,54868-1006-02 ",.02)
 ;;54868-1006-02
 ;;9002226.02101,"1220,54868-1006-03 ",.01)
 ;;54868-1006-03
 ;;9002226.02101,"1220,54868-1006-03 ",.02)
 ;;54868-1006-03
 ;;9002226.02101,"1220,54868-1008-00 ",.01)
 ;;54868-1008-00
 ;;9002226.02101,"1220,54868-1008-00 ",.02)
 ;;54868-1008-00
 ;;9002226.02101,"1220,54868-1008-01 ",.01)
 ;;54868-1008-01
 ;;9002226.02101,"1220,54868-1008-01 ",.02)
 ;;54868-1008-01
 ;;9002226.02101,"1220,54868-1008-02 ",.01)
 ;;54868-1008-02
 ;;9002226.02101,"1220,54868-1008-02 ",.02)
 ;;54868-1008-02
 ;;9002226.02101,"1220,54868-1207-00 ",.01)
 ;;54868-1207-00
 ;;9002226.02101,"1220,54868-1207-00 ",.02)
 ;;54868-1207-00
 ;;9002226.02101,"1220,54868-1207-01 ",.01)
 ;;54868-1207-01
 ;;9002226.02101,"1220,54868-1207-01 ",.02)
 ;;54868-1207-01
 ;;9002226.02101,"1220,54868-1283-00 ",.01)
 ;;54868-1283-00
 ;;9002226.02101,"1220,54868-1283-00 ",.02)
 ;;54868-1283-00
 ;;9002226.02101,"1220,54868-1283-01 ",.01)
 ;;54868-1283-01
 ;;9002226.02101,"1220,54868-1283-01 ",.02)
 ;;54868-1283-01
 ;;9002226.02101,"1220,54868-1443-03 ",.01)
 ;;54868-1443-03
 ;;9002226.02101,"1220,54868-1443-03 ",.02)
 ;;54868-1443-03
 ;;9002226.02101,"1220,54868-1550-03 ",.01)
 ;;54868-1550-03
 ;;9002226.02101,"1220,54868-1550-03 ",.02)
 ;;54868-1550-03
 ;;9002226.02101,"1220,54868-2147-02 ",.01)
 ;;54868-2147-02
 ;;9002226.02101,"1220,54868-2147-02 ",.02)
 ;;54868-2147-02
 ;;9002226.02101,"1220,54868-2148-03 ",.01)
 ;;54868-2148-03
 ;;9002226.02101,"1220,54868-2148-03 ",.02)
 ;;54868-2148-03
 ;;9002226.02101,"1220,54868-2149-00 ",.01)
 ;;54868-2149-00
 ;;9002226.02101,"1220,54868-2149-00 ",.02)
 ;;54868-2149-00
 ;;9002226.02101,"1220,54868-2149-02 ",.01)
 ;;54868-2149-02
 ;;9002226.02101,"1220,54868-2149-02 ",.02)
 ;;54868-2149-02
 ;;9002226.02101,"1220,54868-2150-01 ",.01)
 ;;54868-2150-01
 ;;9002226.02101,"1220,54868-2150-01 ",.02)
 ;;54868-2150-01
 ;;9002226.02101,"1220,54868-2200-00 ",.01)
 ;;54868-2200-00
 ;;9002226.02101,"1220,54868-2200-00 ",.02)
 ;;54868-2200-00
 ;;9002226.02101,"1220,54868-2207-00 ",.01)
 ;;54868-2207-00
 ;;9002226.02101,"1220,54868-2207-00 ",.02)
 ;;54868-2207-00
 ;;9002226.02101,"1220,54868-2207-02 ",.01)
 ;;54868-2207-02
 ;;9002226.02101,"1220,54868-2207-02 ",.02)
 ;;54868-2207-02
 ;;9002226.02101,"1220,54868-2207-03 ",.01)
 ;;54868-2207-03
 ;;9002226.02101,"1220,54868-2207-03 ",.02)
 ;;54868-2207-03
 ;;9002226.02101,"1220,54868-2207-04 ",.01)
 ;;54868-2207-04
 ;;9002226.02101,"1220,54868-2207-04 ",.02)
 ;;54868-2207-04
 ;;9002226.02101,"1220,54868-2207-05 ",.01)
 ;;54868-2207-05
 ;;9002226.02101,"1220,54868-2207-05 ",.02)
 ;;54868-2207-05
 ;;9002226.02101,"1220,54868-2207-06 ",.01)
 ;;54868-2207-06
 ;;9002226.02101,"1220,54868-2207-06 ",.02)
 ;;54868-2207-06
 ;;9002226.02101,"1220,54868-2207-07 ",.01)
 ;;54868-2207-07
 ;;9002226.02101,"1220,54868-2207-07 ",.02)
 ;;54868-2207-07
 ;;9002226.02101,"1220,54868-2211-00 ",.01)
 ;;54868-2211-00
 ;;9002226.02101,"1220,54868-2211-00 ",.02)
 ;;54868-2211-00
 ;;9002226.02101,"1220,54868-2276-02 ",.01)
 ;;54868-2276-02
 ;;9002226.02101,"1220,54868-2276-02 ",.02)
 ;;54868-2276-02
 ;;9002226.02101,"1220,54868-2277-00 ",.01)
 ;;54868-2277-00
 ;;9002226.02101,"1220,54868-2277-00 ",.02)
 ;;54868-2277-00
 ;;9002226.02101,"1220,54868-2290-00 ",.01)
 ;;54868-2290-00
 ;;9002226.02101,"1220,54868-2290-00 ",.02)
 ;;54868-2290-00
 ;;9002226.02101,"1220,54868-2290-02 ",.01)
 ;;54868-2290-02
 ;;9002226.02101,"1220,54868-2290-02 ",.02)
 ;;54868-2290-02
 ;;9002226.02101,"1220,54868-2290-03 ",.01)
 ;;54868-2290-03
 ;;9002226.02101,"1220,54868-2290-03 ",.02)
 ;;54868-2290-03
 ;;9002226.02101,"1220,54868-2290-04 ",.01)
 ;;54868-2290-04
 ;;9002226.02101,"1220,54868-2290-04 ",.02)
 ;;54868-2290-04
 ;;9002226.02101,"1220,54868-2323-00 ",.01)
 ;;54868-2323-00
 ;;9002226.02101,"1220,54868-2323-00 ",.02)
 ;;54868-2323-00
 ;;9002226.02101,"1220,54868-2868-01 ",.01)
 ;;54868-2868-01
 ;;9002226.02101,"1220,54868-2868-01 ",.02)
 ;;54868-2868-01
 ;;9002226.02101,"1220,54868-2868-05 ",.01)
 ;;54868-2868-05
 ;;9002226.02101,"1220,54868-2868-05 ",.02)
 ;;54868-2868-05
 ;;9002226.02101,"1220,54868-2885-00 ",.01)
 ;;54868-2885-00
 ;;9002226.02101,"1220,54868-2885-00 ",.02)
 ;;54868-2885-00
 ;;9002226.02101,"1220,54868-3103-00 ",.01)
 ;;54868-3103-00
 ;;9002226.02101,"1220,54868-3103-00 ",.02)
 ;;54868-3103-00
 ;;9002226.02101,"1220,54868-3103-02 ",.01)
 ;;54868-3103-02
 ;;9002226.02101,"1220,54868-3103-02 ",.02)
 ;;54868-3103-02
 ;;9002226.02101,"1220,54868-3103-03 ",.01)
 ;;54868-3103-03
 ;;9002226.02101,"1220,54868-3103-03 ",.02)
 ;;54868-3103-03
 ;;9002226.02101,"1220,54868-3103-04 ",.01)
 ;;54868-3103-04
 ;;9002226.02101,"1220,54868-3103-04 ",.02)
 ;;54868-3103-04
 ;;9002226.02101,"1220,54868-3103-05 ",.01)
 ;;54868-3103-05
 ;;9002226.02101,"1220,54868-3103-05 ",.02)
 ;;54868-3103-05
 ;;9002226.02101,"1220,54868-3287-00 ",.01)
 ;;54868-3287-00
 ;;9002226.02101,"1220,54868-3287-00 ",.02)
 ;;54868-3287-00
 ;;9002226.02101,"1220,54868-3287-01 ",.01)
 ;;54868-3287-01
 ;;9002226.02101,"1220,54868-3287-01 ",.02)
 ;;54868-3287-01
 ;;9002226.02101,"1220,54868-3300-01 ",.01)
 ;;54868-3300-01
 ;;9002226.02101,"1220,54868-3300-01 ",.02)
 ;;54868-3300-01
 ;;9002226.02101,"1220,54868-3300-02 ",.01)
 ;;54868-3300-02
 ;;9002226.02101,"1220,54868-3300-02 ",.02)
 ;;54868-3300-02
 ;;9002226.02101,"1220,54868-3300-03 ",.01)
 ;;54868-3300-03
 ;;9002226.02101,"1220,54868-3300-03 ",.02)
 ;;54868-3300-03
 ;;9002226.02101,"1220,54868-3300-04 ",.01)
 ;;54868-3300-04
 ;;9002226.02101,"1220,54868-3300-04 ",.02)
 ;;54868-3300-04
 ;;9002226.02101,"1220,54868-4066-00 ",.01)
 ;;54868-4066-00
 ;;9002226.02101,"1220,54868-4066-00 ",.02)
 ;;54868-4066-00
 ;;9002226.02101,"1220,54868-4066-01 ",.01)
 ;;54868-4066-01
 ;;9002226.02101,"1220,54868-4066-01 ",.02)
 ;;54868-4066-01
 ;;9002226.02101,"1220,54868-4073-00 ",.01)
 ;;54868-4073-00
 ;;9002226.02101,"1220,54868-4073-00 ",.02)
 ;;54868-4073-00
 ;;9002226.02101,"1220,54868-4073-01 ",.01)
 ;;54868-4073-01
 ;;9002226.02101,"1220,54868-4073-01 ",.02)
 ;;54868-4073-01
 ;;9002226.02101,"1220,54868-4073-02 ",.01)
 ;;54868-4073-02
 ;;9002226.02101,"1220,54868-4073-02 ",.02)
 ;;54868-4073-02
 ;;9002226.02101,"1220,54868-4073-03 ",.01)
 ;;54868-4073-03
 ;;9002226.02101,"1220,54868-4073-03 ",.02)
 ;;54868-4073-03
 ;;9002226.02101,"1220,54868-4074-00 ",.01)
 ;;54868-4074-00
 ;;9002226.02101,"1220,54868-4074-00 ",.02)
 ;;54868-4074-00
 ;;9002226.02101,"1220,54868-4074-01 ",.01)
 ;;54868-4074-01
 ;;9002226.02101,"1220,54868-4074-01 ",.02)
 ;;54868-4074-01
 ;;9002226.02101,"1220,54868-4074-02 ",.01)
 ;;54868-4074-02
 ;;9002226.02101,"1220,54868-4074-02 ",.02)
 ;;54868-4074-02
 ;;9002226.02101,"1220,54868-4074-03 ",.01)
 ;;54868-4074-03
 ;;9002226.02101,"1220,54868-4074-03 ",.02)
 ;;54868-4074-03
 ;;9002226.02101,"1220,54868-4074-04 ",.01)
 ;;54868-4074-04
 ;;9002226.02101,"1220,54868-4074-04 ",.02)
 ;;54868-4074-04
 ;;9002226.02101,"1220,54868-4184-00 ",.01)
 ;;54868-4184-00
 ;;9002226.02101,"1220,54868-4184-00 ",.02)
 ;;54868-4184-00
 ;;9002226.02101,"1220,54868-4184-01 ",.01)
 ;;54868-4184-01
 ;;9002226.02101,"1220,54868-4184-01 ",.02)
 ;;54868-4184-01
 ;;9002226.02101,"1220,54868-4184-02 ",.01)
 ;;54868-4184-02
 ;;9002226.02101,"1220,54868-4184-02 ",.02)
 ;;54868-4184-02
 ;;9002226.02101,"1220,54868-4186-00 ",.01)
 ;;54868-4186-00
 ;;9002226.02101,"1220,54868-4186-00 ",.02)
 ;;54868-4186-00
 ;;9002226.02101,"1220,54868-4186-01 ",.01)
 ;;54868-4186-01
 ;;9002226.02101,"1220,54868-4186-01 ",.02)
 ;;54868-4186-01
 ;;9002226.02101,"1220,54868-4186-02 ",.01)
 ;;54868-4186-02
 ;;9002226.02101,"1220,54868-4186-02 ",.02)
 ;;54868-4186-02
 ;;9002226.02101,"1220,54868-4186-03 ",.01)
 ;;54868-4186-03
 ;;9002226.02101,"1220,54868-4186-03 ",.02)
 ;;54868-4186-03
 ;;9002226.02101,"1220,54868-4432-00 ",.01)
 ;;54868-4432-00
 ;;9002226.02101,"1220,54868-4432-00 ",.02)
 ;;54868-4432-00
 ;;9002226.02101,"1220,54868-4432-01 ",.01)
 ;;54868-4432-01
 ;;9002226.02101,"1220,54868-4432-01 ",.02)
 ;;54868-4432-01
 ;;9002226.02101,"1220,54868-4531-00 ",.01)
 ;;54868-4531-00
 ;;9002226.02101,"1220,54868-4531-00 ",.02)
 ;;54868-4531-00
 ;;9002226.02101,"1220,54868-4531-01 ",.01)
 ;;54868-4531-01
 ;;9002226.02101,"1220,54868-4531-01 ",.02)
 ;;54868-4531-01
 ;;9002226.02101,"1220,54868-4531-02 ",.01)
 ;;54868-4531-02
 ;;9002226.02101,"1220,54868-4531-02 ",.02)
 ;;54868-4531-02
 ;;9002226.02101,"1220,54868-4531-03 ",.01)
 ;;54868-4531-03
 ;;9002226.02101,"1220,54868-4531-03 ",.02)
 ;;54868-4531-03
 ;;9002226.02101,"1220,54868-4531-04 ",.01)
 ;;54868-4531-04
 ;;9002226.02101,"1220,54868-4531-04 ",.02)
 ;;54868-4531-04
 ;;9002226.02101,"1220,54868-4532-00 ",.01)
 ;;54868-4532-00
 ;;9002226.02101,"1220,54868-4532-00 ",.02)
 ;;54868-4532-00
 ;;9002226.02101,"1220,54868-4532-01 ",.01)
 ;;54868-4532-01
 ;;9002226.02101,"1220,54868-4532-01 ",.02)
 ;;54868-4532-01
 ;;9002226.02101,"1220,54868-4532-02 ",.01)
 ;;54868-4532-02
 ;;9002226.02101,"1220,54868-4532-02 ",.02)
 ;;54868-4532-02
 ;;9002226.02101,"1220,54868-4532-03 ",.01)
 ;;54868-4532-03
 ;;9002226.02101,"1220,54868-4532-03 ",.02)
 ;;54868-4532-03
 ;;9002226.02101,"1220,54868-4532-04 ",.01)
 ;;54868-4532-04
 ;;9002226.02101,"1220,54868-4532-04 ",.02)
 ;;54868-4532-04
 ;;9002226.02101,"1220,54868-4868-00 ",.01)
 ;;54868-4868-00
 ;;9002226.02101,"1220,54868-4868-00 ",.02)
 ;;54868-4868-00
 ;;9002226.02101,"1220,54868-4868-01 ",.01)
 ;;54868-4868-01
 ;;9002226.02101,"1220,54868-4868-01 ",.02)
 ;;54868-4868-01
 ;;9002226.02101,"1220,54868-4868-02 ",.01)
 ;;54868-4868-02
 ;;9002226.02101,"1220,54868-4868-02 ",.02)
 ;;54868-4868-02
 ;;9002226.02101,"1220,54868-4870-00 ",.01)
 ;;54868-4870-00
 ;;9002226.02101,"1220,54868-4870-00 ",.02)
 ;;54868-4870-00
 ;;9002226.02101,"1220,54868-4870-01 ",.01)
 ;;54868-4870-01
 ;;9002226.02101,"1220,54868-4870-01 ",.02)
 ;;54868-4870-01
 ;;9002226.02101,"1220,54868-4870-02 ",.01)
 ;;54868-4870-02
 ;;9002226.02101,"1220,54868-4870-02 ",.02)
 ;;54868-4870-02
 ;;9002226.02101,"1220,54868-4875-00 ",.01)
 ;;54868-4875-00
 ;;9002226.02101,"1220,54868-4875-00 ",.02)
 ;;54868-4875-00
 ;;9002226.02101,"1220,54868-4875-01 ",.01)
 ;;54868-4875-01
 ;;9002226.02101,"1220,54868-4875-01 ",.02)
 ;;54868-4875-01
 ;;9002226.02101,"1220,54868-4875-02 ",.01)
 ;;54868-4875-02
 ;;9002226.02101,"1220,54868-4875-02 ",.02)
 ;;54868-4875-02
 ;;9002226.02101,"1220,54868-4875-03 ",.01)
 ;;54868-4875-03
 ;;9002226.02101,"1220,54868-4875-03 ",.02)
 ;;54868-4875-03
 ;;9002226.02101,"1220,54868-4970-00 ",.01)
 ;;54868-4970-00
 ;;9002226.02101,"1220,54868-4970-00 ",.02)
 ;;54868-4970-00
 ;;9002226.02101,"1220,54868-4970-01 ",.01)
 ;;54868-4970-01
 ;;9002226.02101,"1220,54868-4970-01 ",.02)
 ;;54868-4970-01
 ;;9002226.02101,"1220,54868-4970-02 ",.01)
 ;;54868-4970-02
 ;;9002226.02101,"1220,54868-4970-02 ",.02)
 ;;54868-4970-02
 ;;9002226.02101,"1220,54868-4992-00 ",.01)
 ;;54868-4992-00
 ;;9002226.02101,"1220,54868-4992-00 ",.02)
 ;;54868-4992-00
 ;;9002226.02101,"1220,54868-4992-01 ",.01)
 ;;54868-4992-01
 ;;9002226.02101,"1220,54868-4992-01 ",.02)
 ;;54868-4992-01
 ;;9002226.02101,"1220,54868-5081-00 ",.01)
 ;;54868-5081-00
 ;;9002226.02101,"1220,54868-5081-00 ",.02)
 ;;54868-5081-00
 ;;9002226.02101,"1220,54868-5179-00 ",.01)
 ;;54868-5179-00