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

BGP82Z54.m

Go to the documentation of this file.
BGP82Z54 ; 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,54868-3932-04 ",.02)
 ;;54868-3932-04
 ;;9002226.02101,"619,54868-3932-05 ",.01)
 ;;54868-3932-05
 ;;9002226.02101,"619,54868-3932-05 ",.02)
 ;;54868-3932-05
 ;;9002226.02101,"619,54868-3986-00 ",.01)
 ;;54868-3986-00
 ;;9002226.02101,"619,54868-3986-00 ",.02)
 ;;54868-3986-00
 ;;9002226.02101,"619,54868-3986-02 ",.01)
 ;;54868-3986-02
 ;;9002226.02101,"619,54868-3986-02 ",.02)
 ;;54868-3986-02
 ;;9002226.02101,"619,54868-3986-03 ",.01)
 ;;54868-3986-03
 ;;9002226.02101,"619,54868-3986-03 ",.02)
 ;;54868-3986-03
 ;;9002226.02101,"619,54868-3986-04 ",.01)
 ;;54868-3986-04
 ;;9002226.02101,"619,54868-3986-04 ",.02)
 ;;54868-3986-04
 ;;9002226.02101,"619,54868-3986-05 ",.01)
 ;;54868-3986-05
 ;;9002226.02101,"619,54868-3986-05 ",.02)
 ;;54868-3986-05
 ;;9002226.02101,"619,54868-4033-00 ",.01)
 ;;54868-4033-00
 ;;9002226.02101,"619,54868-4033-00 ",.02)
 ;;54868-4033-00
 ;;9002226.02101,"619,54868-4033-01 ",.01)
 ;;54868-4033-01
 ;;9002226.02101,"619,54868-4033-01 ",.02)
 ;;54868-4033-01
 ;;9002226.02101,"619,54868-4033-03 ",.01)
 ;;54868-4033-03
 ;;9002226.02101,"619,54868-4033-03 ",.02)
 ;;54868-4033-03
 ;;9002226.02101,"619,54868-4033-04 ",.01)
 ;;54868-4033-04
 ;;9002226.02101,"619,54868-4033-04 ",.02)
 ;;54868-4033-04
 ;;9002226.02101,"619,54868-4033-05 ",.01)
 ;;54868-4033-05
 ;;9002226.02101,"619,54868-4033-05 ",.02)
 ;;54868-4033-05
 ;;9002226.02101,"619,54868-4034-00 ",.01)
 ;;54868-4034-00
 ;;9002226.02101,"619,54868-4034-00 ",.02)
 ;;54868-4034-00
 ;;9002226.02101,"619,54868-4034-01 ",.01)
 ;;54868-4034-01
 ;;9002226.02101,"619,54868-4034-01 ",.02)
 ;;54868-4034-01
 ;;9002226.02101,"619,54868-4034-02 ",.01)
 ;;54868-4034-02
 ;;9002226.02101,"619,54868-4034-02 ",.02)
 ;;54868-4034-02
 ;;9002226.02101,"619,54868-4034-03 ",.01)
 ;;54868-4034-03
 ;;9002226.02101,"619,54868-4034-03 ",.02)
 ;;54868-4034-03
 ;;9002226.02101,"619,54868-4035-00 ",.01)
 ;;54868-4035-00
 ;;9002226.02101,"619,54868-4035-00 ",.02)
 ;;54868-4035-00
 ;;9002226.02101,"619,54868-4035-01 ",.01)
 ;;54868-4035-01
 ;;9002226.02101,"619,54868-4035-01 ",.02)
 ;;54868-4035-01
 ;;9002226.02101,"619,54868-4035-02 ",.01)
 ;;54868-4035-02
 ;;9002226.02101,"619,54868-4035-02 ",.02)
 ;;54868-4035-02
 ;;9002226.02101,"619,54868-4035-03 ",.01)
 ;;54868-4035-03
 ;;9002226.02101,"619,54868-4035-03 ",.02)
 ;;54868-4035-03
 ;;9002226.02101,"619,54868-4035-04 ",.01)
 ;;54868-4035-04
 ;;9002226.02101,"619,54868-4035-04 ",.02)
 ;;54868-4035-04
 ;;9002226.02101,"619,54868-4147-00 ",.01)
 ;;54868-4147-00
 ;;9002226.02101,"619,54868-4147-00 ",.02)
 ;;54868-4147-00
 ;;9002226.02101,"619,54868-4147-01 ",.01)
 ;;54868-4147-01
 ;;9002226.02101,"619,54868-4147-01 ",.02)
 ;;54868-4147-01
 ;;9002226.02101,"619,54868-4147-02 ",.01)
 ;;54868-4147-02
 ;;9002226.02101,"619,54868-4147-02 ",.02)
 ;;54868-4147-02
 ;;9002226.02101,"619,54868-4263-00 ",.01)
 ;;54868-4263-00
 ;;9002226.02101,"619,54868-4263-00 ",.02)
 ;;54868-4263-00
 ;;9002226.02101,"619,54868-4571-00 ",.01)
 ;;54868-4571-00
 ;;9002226.02101,"619,54868-4571-00 ",.02)
 ;;54868-4571-00
 ;;9002226.02101,"619,54868-4571-01 ",.01)
 ;;54868-4571-01
 ;;9002226.02101,"619,54868-4571-01 ",.02)
 ;;54868-4571-01
 ;;9002226.02101,"619,54868-4571-02 ",.01)
 ;;54868-4571-02
 ;;9002226.02101,"619,54868-4571-02 ",.02)
 ;;54868-4571-02
 ;;9002226.02101,"619,54868-4572-00 ",.01)
 ;;54868-4572-00
 ;;9002226.02101,"619,54868-4572-00 ",.02)
 ;;54868-4572-00
 ;;9002226.02101,"619,54868-4572-01 ",.01)
 ;;54868-4572-01
 ;;9002226.02101,"619,54868-4572-01 ",.02)
 ;;54868-4572-01
 ;;9002226.02101,"619,54868-4572-02 ",.01)
 ;;54868-4572-02
 ;;9002226.02101,"619,54868-4572-02 ",.02)
 ;;54868-4572-02
 ;;9002226.02101,"619,54868-4573-00 ",.01)
 ;;54868-4573-00
 ;;9002226.02101,"619,54868-4573-00 ",.02)
 ;;54868-4573-00
 ;;9002226.02101,"619,54868-4573-01 ",.01)
 ;;54868-4573-01
 ;;9002226.02101,"619,54868-4573-01 ",.02)
 ;;54868-4573-01
 ;;9002226.02101,"619,54868-4573-02 ",.01)
 ;;54868-4573-02
 ;;9002226.02101,"619,54868-4573-02 ",.02)
 ;;54868-4573-02
 ;;9002226.02101,"619,54868-4583-00 ",.01)
 ;;54868-4583-00
 ;;9002226.02101,"619,54868-4583-00 ",.02)
 ;;54868-4583-00
 ;;9002226.02101,"619,54868-4598-00 ",.01)
 ;;54868-4598-00
 ;;9002226.02101,"619,54868-4598-00 ",.02)
 ;;54868-4598-00
 ;;9002226.02101,"619,54868-4598-01 ",.01)
 ;;54868-4598-01
 ;;9002226.02101,"619,54868-4598-01 ",.02)
 ;;54868-4598-01
 ;;9002226.02101,"619,54868-4598-02 ",.01)
 ;;54868-4598-02
 ;;9002226.02101,"619,54868-4598-02 ",.02)
 ;;54868-4598-02
 ;;9002226.02101,"619,54868-4598-03 ",.01)
 ;;54868-4598-03
 ;;9002226.02101,"619,54868-4598-03 ",.02)
 ;;54868-4598-03
 ;;9002226.02101,"619,54868-4598-04 ",.01)
 ;;54868-4598-04
 ;;9002226.02101,"619,54868-4598-04 ",.02)
 ;;54868-4598-04
 ;;9002226.02101,"619,54868-4598-05 ",.01)
 ;;54868-4598-05
 ;;9002226.02101,"619,54868-4598-05 ",.02)
 ;;54868-4598-05
 ;;9002226.02101,"619,54868-4598-06 ",.01)
 ;;54868-4598-06
 ;;9002226.02101,"619,54868-4598-06 ",.02)
 ;;54868-4598-06
 ;;9002226.02101,"619,54868-4598-07 ",.01)
 ;;54868-4598-07
 ;;9002226.02101,"619,54868-4598-07 ",.02)
 ;;54868-4598-07
 ;;9002226.02101,"619,54868-4603-00 ",.01)
 ;;54868-4603-00
 ;;9002226.02101,"619,54868-4603-00 ",.02)
 ;;54868-4603-00
 ;;9002226.02101,"619,54868-4638-00 ",.01)
 ;;54868-4638-00
 ;;9002226.02101,"619,54868-4638-00 ",.02)
 ;;54868-4638-00
 ;;9002226.02101,"619,54868-4638-01 ",.01)
 ;;54868-4638-01
 ;;9002226.02101,"619,54868-4638-01 ",.02)
 ;;54868-4638-01
 ;;9002226.02101,"619,54868-4638-02 ",.01)
 ;;54868-4638-02
 ;;9002226.02101,"619,54868-4638-02 ",.02)
 ;;54868-4638-02
 ;;9002226.02101,"619,54868-4638-03 ",.01)
 ;;54868-4638-03
 ;;9002226.02101,"619,54868-4638-03 ",.02)
 ;;54868-4638-03
 ;;9002226.02101,"619,54868-4638-04 ",.01)
 ;;54868-4638-04
 ;;9002226.02101,"619,54868-4638-04 ",.02)
 ;;54868-4638-04
 ;;9002226.02101,"619,54868-4638-05 ",.01)
 ;;54868-4638-05
 ;;9002226.02101,"619,54868-4638-05 ",.02)
 ;;54868-4638-05
 ;;9002226.02101,"619,54868-4638-06 ",.01)
 ;;54868-4638-06
 ;;9002226.02101,"619,54868-4638-06 ",.02)
 ;;54868-4638-06
 ;;9002226.02101,"619,54868-4638-07 ",.01)
 ;;54868-4638-07
 ;;9002226.02101,"619,54868-4638-07 ",.02)
 ;;54868-4638-07
 ;;9002226.02101,"619,54868-4638-08 ",.01)
 ;;54868-4638-08
 ;;9002226.02101,"619,54868-4638-08 ",.02)
 ;;54868-4638-08
 ;;9002226.02101,"619,54868-4638-09 ",.01)
 ;;54868-4638-09
 ;;9002226.02101,"619,54868-4638-09 ",.02)
 ;;54868-4638-09
 ;;9002226.02101,"619,54868-4703-00 ",.01)
 ;;54868-4703-00
 ;;9002226.02101,"619,54868-4703-00 ",.02)
 ;;54868-4703-00
 ;;9002226.02101,"619,54868-4703-01 ",.01)
 ;;54868-4703-01
 ;;9002226.02101,"619,54868-4703-01 ",.02)
 ;;54868-4703-01
 ;;9002226.02101,"619,54868-4703-02 ",.01)
 ;;54868-4703-02
 ;;9002226.02101,"619,54868-4703-02 ",.02)
 ;;54868-4703-02
 ;;9002226.02101,"619,54868-4703-03 ",.01)
 ;;54868-4703-03
 ;;9002226.02101,"619,54868-4703-03 ",.02)
 ;;54868-4703-03
 ;;9002226.02101,"619,54868-4703-04 ",.01)
 ;;54868-4703-04
 ;;9002226.02101,"619,54868-4703-04 ",.02)
 ;;54868-4703-04
 ;;9002226.02101,"619,54868-4703-05 ",.01)
 ;;54868-4703-05
 ;;9002226.02101,"619,54868-4703-05 ",.02)
 ;;54868-4703-05
 ;;9002226.02101,"619,54868-4703-06 ",.01)
 ;;54868-4703-06
 ;;9002226.02101,"619,54868-4703-06 ",.02)
 ;;54868-4703-06
 ;;9002226.02101,"619,54868-4710-00 ",.01)
 ;;54868-4710-00
 ;;9002226.02101,"619,54868-4710-00 ",.02)
 ;;54868-4710-00
 ;;9002226.02101,"619,54868-4710-01 ",.01)
 ;;54868-4710-01
 ;;9002226.02101,"619,54868-4710-01 ",.02)
 ;;54868-4710-01
 ;;9002226.02101,"619,54868-4722-00 ",.01)
 ;;54868-4722-00
 ;;9002226.02101,"619,54868-4722-00 ",.02)
 ;;54868-4722-00
 ;;9002226.02101,"619,54868-4722-01 ",.01)
 ;;54868-4722-01
 ;;9002226.02101,"619,54868-4722-01 ",.02)
 ;;54868-4722-01
 ;;9002226.02101,"619,54868-4722-02 ",.01)
 ;;54868-4722-02
 ;;9002226.02101,"619,54868-4722-02 ",.02)
 ;;54868-4722-02
 ;;9002226.02101,"619,54868-4722-03 ",.01)
 ;;54868-4722-03
 ;;9002226.02101,"619,54868-4722-03 ",.02)
 ;;54868-4722-03
 ;;9002226.02101,"619,54868-4722-04 ",.01)
 ;;54868-4722-04
 ;;9002226.02101,"619,54868-4722-04 ",.02)
 ;;54868-4722-04
 ;;9002226.02101,"619,54868-4747-00 ",.01)
 ;;54868-4747-00
 ;;9002226.02101,"619,54868-4747-00 ",.02)
 ;;54868-4747-00
 ;;9002226.02101,"619,54868-4747-01 ",.01)
 ;;54868-4747-01
 ;;9002226.02101,"619,54868-4747-01 ",.02)
 ;;54868-4747-01
 ;;9002226.02101,"619,54868-4783-00 ",.01)
 ;;54868-4783-00
 ;;9002226.02101,"619,54868-4783-00 ",.02)
 ;;54868-4783-00
 ;;9002226.02101,"619,54868-4783-01 ",.01)
 ;;54868-4783-01
 ;;9002226.02101,"619,54868-4783-01 ",.02)
 ;;54868-4783-01
 ;;9002226.02101,"619,54868-4783-02 ",.01)
 ;;54868-4783-02
 ;;9002226.02101,"619,54868-4783-02 ",.02)
 ;;54868-4783-02
 ;;9002226.02101,"619,54868-4783-03 ",.01)
 ;;54868-4783-03
 ;;9002226.02101,"619,54868-4783-03 ",.02)
 ;;54868-4783-03
 ;;9002226.02101,"619,54868-4783-04 ",.01)
 ;;54868-4783-04
 ;;9002226.02101,"619,54868-4783-04 ",.02)
 ;;54868-4783-04
 ;;9002226.02101,"619,54868-4788-00 ",.01)
 ;;54868-4788-00
 ;;9002226.02101,"619,54868-4788-00 ",.02)
 ;;54868-4788-00
 ;;9002226.02101,"619,54868-4788-01 ",.01)
 ;;54868-4788-01
 ;;9002226.02101,"619,54868-4788-01 ",.02)
 ;;54868-4788-01
 ;;9002226.02101,"619,54868-4948-00 ",.01)
 ;;54868-4948-00
 ;;9002226.02101,"619,54868-4948-00 ",.02)
 ;;54868-4948-00
 ;;9002226.02101,"619,54868-4948-01 ",.01)
 ;;54868-4948-01
 ;;9002226.02101,"619,54868-4948-01 ",.02)
 ;;54868-4948-01
 ;;9002226.02101,"619,54868-4948-02 ",.01)
 ;;54868-4948-02
 ;;9002226.02101,"619,54868-4948-02 ",.02)
 ;;54868-4948-02
 ;;9002226.02101,"619,54868-4948-03 ",.01)
 ;;54868-4948-03
 ;;9002226.02101,"619,54868-4948-03 ",.02)
 ;;54868-4948-03
 ;;9002226.02101,"619,54868-4948-05 ",.01)
 ;;54868-4948-05
 ;;9002226.02101,"619,54868-4948-05 ",.02)
 ;;54868-4948-05
 ;;9002226.02101,"619,54868-4948-06 ",.01)
 ;;54868-4948-06
 ;;9002226.02101,"619,54868-4948-06 ",.02)
 ;;54868-4948-06
 ;;9002226.02101,"619,54868-4948-07 ",.01)
 ;;54868-4948-07
 ;;9002226.02101,"619,54868-4948-07 ",.02)
 ;;54868-4948-07
 ;;9002226.02101,"619,54868-4969-00 ",.01)
 ;;54868-4969-00
 ;;9002226.02101,"619,54868-4969-00 ",.02)
 ;;54868-4969-00
 ;;9002226.02101,"619,54868-4969-01 ",.01)
 ;;54868-4969-01
 ;;9002226.02101,"619,54868-4969-01 ",.02)
 ;;54868-4969-01
 ;;9002226.02101,"619,54868-4969-02 ",.01)
 ;;54868-4969-02
 ;;9002226.02101,"619,54868-4969-02 ",.02)
 ;;54868-4969-02
 ;;9002226.02101,"619,54868-4969-03 ",.01)
 ;;54868-4969-03
 ;;9002226.02101,"619,54868-4969-03 ",.02)
 ;;54868-4969-03
 ;;9002226.02101,"619,54868-4969-04 ",.01)
 ;;54868-4969-04
 ;;9002226.02101,"619,54868-4969-04 ",.02)
 ;;54868-4969-04
 ;;9002226.02101,"619,54868-4969-05 ",.01)
 ;;54868-4969-05
 ;;9002226.02101,"619,54868-4969-05 ",.02)
 ;;54868-4969-05
 ;;9002226.02101,"619,54868-4969-06 ",.01)
 ;;54868-4969-06
 ;;9002226.02101,"619,54868-4969-06 ",.02)
 ;;54868-4969-06
 ;;9002226.02101,"619,54868-4973-00 ",.01)
 ;;54868-4973-00
 ;;9002226.02101,"619,54868-4973-00 ",.02)
 ;;54868-4973-00
 ;;9002226.02101,"619,54868-4973-01 ",.01)
 ;;54868-4973-01
 ;;9002226.02101,"619,54868-4973-01 ",.02)
 ;;54868-4973-01
 ;;9002226.02101,"619,54868-4973-02 ",.01)
 ;;54868-4973-02
 ;;9002226.02101,"619,54868-4973-02 ",.02)
 ;;54868-4973-02
 ;;9002226.02101,"619,54868-4973-03 ",.01)
 ;;54868-4973-03
 ;;9002226.02101,"619,54868-4973-03 ",.02)
 ;;54868-4973-03
 ;;9002226.02101,"619,54868-4973-04 ",.01)
 ;;54868-4973-04
 ;;9002226.02101,"619,54868-4973-04 ",.02)
 ;;54868-4973-04
 ;;9002226.02101,"619,54868-4973-05 ",.01)
 ;;54868-4973-05