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

BGP82Z67.m

Go to the documentation of this file.
BGP82Z67 ; 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,63629-4068-04 ",.02)
 ;;63629-4068-04
 ;;9002226.02101,"619,63629-4068-05 ",.01)
 ;;63629-4068-05
 ;;9002226.02101,"619,63629-4068-05 ",.02)
 ;;63629-4068-05
 ;;9002226.02101,"619,63629-4068-06 ",.01)
 ;;63629-4068-06
 ;;9002226.02101,"619,63629-4068-06 ",.02)
 ;;63629-4068-06
 ;;9002226.02101,"619,63629-4068-07 ",.01)
 ;;63629-4068-07
 ;;9002226.02101,"619,63629-4068-07 ",.02)
 ;;63629-4068-07
 ;;9002226.02101,"619,63629-4068-08 ",.01)
 ;;63629-4068-08
 ;;9002226.02101,"619,63629-4068-08 ",.02)
 ;;63629-4068-08
 ;;9002226.02101,"619,63629-4068-09 ",.01)
 ;;63629-4068-09
 ;;9002226.02101,"619,63629-4068-09 ",.02)
 ;;63629-4068-09
 ;;9002226.02101,"619,63629-4068-10 ",.01)
 ;;63629-4068-10
 ;;9002226.02101,"619,63629-4068-10 ",.02)
 ;;63629-4068-10
 ;;9002226.02101,"619,63629-4153-01 ",.01)
 ;;63629-4153-01
 ;;9002226.02101,"619,63629-4153-01 ",.02)
 ;;63629-4153-01
 ;;9002226.02101,"619,63629-4153-02 ",.01)
 ;;63629-4153-02
 ;;9002226.02101,"619,63629-4153-02 ",.02)
 ;;63629-4153-02
 ;;9002226.02101,"619,63629-4153-03 ",.01)
 ;;63629-4153-03
 ;;9002226.02101,"619,63629-4153-03 ",.02)
 ;;63629-4153-03
 ;;9002226.02101,"619,63629-4153-04 ",.01)
 ;;63629-4153-04
 ;;9002226.02101,"619,63629-4153-04 ",.02)
 ;;63629-4153-04
 ;;9002226.02101,"619,63629-4153-05 ",.01)
 ;;63629-4153-05
 ;;9002226.02101,"619,63629-4153-05 ",.02)
 ;;63629-4153-05
 ;;9002226.02101,"619,63629-4165-01 ",.01)
 ;;63629-4165-01
 ;;9002226.02101,"619,63629-4165-01 ",.02)
 ;;63629-4165-01
 ;;9002226.02101,"619,63629-4166-01 ",.01)
 ;;63629-4166-01
 ;;9002226.02101,"619,63629-4166-01 ",.02)
 ;;63629-4166-01
 ;;9002226.02101,"619,63629-4167-01 ",.01)
 ;;63629-4167-01
 ;;9002226.02101,"619,63629-4167-01 ",.02)
 ;;63629-4167-01
 ;;9002226.02101,"619,63629-4168-01 ",.01)
 ;;63629-4168-01
 ;;9002226.02101,"619,63629-4168-01 ",.02)
 ;;63629-4168-01
 ;;9002226.02101,"619,63629-4174-01 ",.01)
 ;;63629-4174-01
 ;;9002226.02101,"619,63629-4174-01 ",.02)
 ;;63629-4174-01
 ;;9002226.02101,"619,63629-4174-02 ",.01)
 ;;63629-4174-02
 ;;9002226.02101,"619,63629-4174-02 ",.02)
 ;;63629-4174-02
 ;;9002226.02101,"619,63629-4174-03 ",.01)
 ;;63629-4174-03
 ;;9002226.02101,"619,63629-4174-03 ",.02)
 ;;63629-4174-03
 ;;9002226.02101,"619,63629-4175-01 ",.01)
 ;;63629-4175-01
 ;;9002226.02101,"619,63629-4175-01 ",.02)
 ;;63629-4175-01
 ;;9002226.02101,"619,63629-4175-02 ",.01)
 ;;63629-4175-02
 ;;9002226.02101,"619,63629-4175-02 ",.02)
 ;;63629-4175-02
 ;;9002226.02101,"619,63629-4175-03 ",.01)
 ;;63629-4175-03
 ;;9002226.02101,"619,63629-4175-03 ",.02)
 ;;63629-4175-03
 ;;9002226.02101,"619,63629-4177-01 ",.01)
 ;;63629-4177-01
 ;;9002226.02101,"619,63629-4177-01 ",.02)
 ;;63629-4177-01
 ;;9002226.02101,"619,63629-4177-02 ",.01)
 ;;63629-4177-02
 ;;9002226.02101,"619,63629-4177-02 ",.02)
 ;;63629-4177-02
 ;;9002226.02101,"619,63629-4177-03 ",.01)
 ;;63629-4177-03
 ;;9002226.02101,"619,63629-4177-03 ",.02)
 ;;63629-4177-03
 ;;9002226.02101,"619,63629-4178-01 ",.01)
 ;;63629-4178-01
 ;;9002226.02101,"619,63629-4178-01 ",.02)
 ;;63629-4178-01
 ;;9002226.02101,"619,63629-4179-02 ",.01)
 ;;63629-4179-02
 ;;9002226.02101,"619,63629-4179-02 ",.02)
 ;;63629-4179-02
 ;;9002226.02101,"619,63629-4184-01 ",.01)
 ;;63629-4184-01
 ;;9002226.02101,"619,63629-4184-01 ",.02)
 ;;63629-4184-01
 ;;9002226.02101,"619,63629-4184-02 ",.01)
 ;;63629-4184-02
 ;;9002226.02101,"619,63629-4184-02 ",.02)
 ;;63629-4184-02
 ;;9002226.02101,"619,63629-4184-03 ",.01)
 ;;63629-4184-03
 ;;9002226.02101,"619,63629-4184-03 ",.02)
 ;;63629-4184-03
 ;;9002226.02101,"619,63629-4184-04 ",.01)
 ;;63629-4184-04
 ;;9002226.02101,"619,63629-4184-04 ",.02)
 ;;63629-4184-04
 ;;9002226.02101,"619,63629-4184-05 ",.01)
 ;;63629-4184-05
 ;;9002226.02101,"619,63629-4184-05 ",.02)
 ;;63629-4184-05
 ;;9002226.02101,"619,63629-4184-06 ",.01)
 ;;63629-4184-06
 ;;9002226.02101,"619,63629-4184-06 ",.02)
 ;;63629-4184-06
 ;;9002226.02101,"619,63629-4184-07 ",.01)
 ;;63629-4184-07
 ;;9002226.02101,"619,63629-4184-07 ",.02)
 ;;63629-4184-07
 ;;9002226.02101,"619,63629-4184-08 ",.01)
 ;;63629-4184-08
 ;;9002226.02101,"619,63629-4184-08 ",.02)
 ;;63629-4184-08
 ;;9002226.02101,"619,63629-4272-01 ",.01)
 ;;63629-4272-01
 ;;9002226.02101,"619,63629-4272-01 ",.02)
 ;;63629-4272-01
 ;;9002226.02101,"619,63629-4272-02 ",.01)
 ;;63629-4272-02
 ;;9002226.02101,"619,63629-4272-02 ",.02)
 ;;63629-4272-02
 ;;9002226.02101,"619,63629-4272-03 ",.01)
 ;;63629-4272-03
 ;;9002226.02101,"619,63629-4272-03 ",.02)
 ;;63629-4272-03
 ;;9002226.02101,"619,63629-4272-04 ",.01)
 ;;63629-4272-04
 ;;9002226.02101,"619,63629-4272-04 ",.02)
 ;;63629-4272-04
 ;;9002226.02101,"619,63629-4272-05 ",.01)
 ;;63629-4272-05
 ;;9002226.02101,"619,63629-4272-05 ",.02)
 ;;63629-4272-05
 ;;9002226.02101,"619,63629-4284-01 ",.01)
 ;;63629-4284-01
 ;;9002226.02101,"619,63629-4284-01 ",.02)
 ;;63629-4284-01
 ;;9002226.02101,"619,63629-4284-02 ",.01)
 ;;63629-4284-02
 ;;9002226.02101,"619,63629-4284-02 ",.02)
 ;;63629-4284-02
 ;;9002226.02101,"619,63629-4284-03 ",.01)
 ;;63629-4284-03
 ;;9002226.02101,"619,63629-4284-03 ",.02)
 ;;63629-4284-03
 ;;9002226.02101,"619,63629-4284-04 ",.01)
 ;;63629-4284-04
 ;;9002226.02101,"619,63629-4284-04 ",.02)
 ;;63629-4284-04
 ;;9002226.02101,"619,63629-4284-05 ",.01)
 ;;63629-4284-05
 ;;9002226.02101,"619,63629-4284-05 ",.02)
 ;;63629-4284-05
 ;;9002226.02101,"619,63629-4284-06 ",.01)
 ;;63629-4284-06
 ;;9002226.02101,"619,63629-4284-06 ",.02)
 ;;63629-4284-06
 ;;9002226.02101,"619,63629-4284-07 ",.01)
 ;;63629-4284-07
 ;;9002226.02101,"619,63629-4284-07 ",.02)
 ;;63629-4284-07
 ;;9002226.02101,"619,63629-4483-01 ",.01)
 ;;63629-4483-01
 ;;9002226.02101,"619,63629-4483-01 ",.02)
 ;;63629-4483-01
 ;;9002226.02101,"619,63629-4483-02 ",.01)
 ;;63629-4483-02
 ;;9002226.02101,"619,63629-4483-02 ",.02)
 ;;63629-4483-02
 ;;9002226.02101,"619,63629-4483-03 ",.01)
 ;;63629-4483-03
 ;;9002226.02101,"619,63629-4483-03 ",.02)
 ;;63629-4483-03
 ;;9002226.02101,"619,63629-4483-04 ",.01)
 ;;63629-4483-04
 ;;9002226.02101,"619,63629-4483-04 ",.02)
 ;;63629-4483-04
 ;;9002226.02101,"619,63629-4483-05 ",.01)
 ;;63629-4483-05
 ;;9002226.02101,"619,63629-4483-05 ",.02)
 ;;63629-4483-05
 ;;9002226.02101,"619,63629-4484-01 ",.01)
 ;;63629-4484-01
 ;;9002226.02101,"619,63629-4484-01 ",.02)
 ;;63629-4484-01
 ;;9002226.02101,"619,63629-4484-02 ",.01)
 ;;63629-4484-02
 ;;9002226.02101,"619,63629-4484-02 ",.02)
 ;;63629-4484-02
 ;;9002226.02101,"619,63629-4484-03 ",.01)
 ;;63629-4484-03
 ;;9002226.02101,"619,63629-4484-03 ",.02)
 ;;63629-4484-03
 ;;9002226.02101,"619,63629-4484-04 ",.01)
 ;;63629-4484-04
 ;;9002226.02101,"619,63629-4484-04 ",.02)
 ;;63629-4484-04
 ;;9002226.02101,"619,63629-4484-05 ",.01)
 ;;63629-4484-05
 ;;9002226.02101,"619,63629-4484-05 ",.02)
 ;;63629-4484-05
 ;;9002226.02101,"619,63629-4484-06 ",.01)
 ;;63629-4484-06
 ;;9002226.02101,"619,63629-4484-06 ",.02)
 ;;63629-4484-06
 ;;9002226.02101,"619,63629-4487-01 ",.01)
 ;;63629-4487-01
 ;;9002226.02101,"619,63629-4487-01 ",.02)
 ;;63629-4487-01
 ;;9002226.02101,"619,63629-4487-02 ",.01)
 ;;63629-4487-02
 ;;9002226.02101,"619,63629-4487-02 ",.02)
 ;;63629-4487-02
 ;;9002226.02101,"619,63629-4487-03 ",.01)
 ;;63629-4487-03
 ;;9002226.02101,"619,63629-4487-03 ",.02)
 ;;63629-4487-03
 ;;9002226.02101,"619,63629-4487-04 ",.01)
 ;;63629-4487-04
 ;;9002226.02101,"619,63629-4487-04 ",.02)
 ;;63629-4487-04
 ;;9002226.02101,"619,63629-4487-05 ",.01)
 ;;63629-4487-05
 ;;9002226.02101,"619,63629-4487-05 ",.02)
 ;;63629-4487-05
 ;;9002226.02101,"619,63629-4487-06 ",.01)
 ;;63629-4487-06
 ;;9002226.02101,"619,63629-4487-06 ",.02)
 ;;63629-4487-06
 ;;9002226.02101,"619,63629-4487-07 ",.01)
 ;;63629-4487-07
 ;;9002226.02101,"619,63629-4487-07 ",.02)
 ;;63629-4487-07
 ;;9002226.02101,"619,63629-4514-01 ",.01)
 ;;63629-4514-01
 ;;9002226.02101,"619,63629-4514-01 ",.02)
 ;;63629-4514-01
 ;;9002226.02101,"619,63629-4514-02 ",.01)
 ;;63629-4514-02
 ;;9002226.02101,"619,63629-4514-02 ",.02)
 ;;63629-4514-02
 ;;9002226.02101,"619,63629-4514-03 ",.01)
 ;;63629-4514-03
 ;;9002226.02101,"619,63629-4514-03 ",.02)
 ;;63629-4514-03
 ;;9002226.02101,"619,63629-4514-04 ",.01)
 ;;63629-4514-04
 ;;9002226.02101,"619,63629-4514-04 ",.02)
 ;;63629-4514-04
 ;;9002226.02101,"619,63629-4515-01 ",.01)
 ;;63629-4515-01
 ;;9002226.02101,"619,63629-4515-01 ",.02)
 ;;63629-4515-01
 ;;9002226.02101,"619,63629-4515-02 ",.01)
 ;;63629-4515-02
 ;;9002226.02101,"619,63629-4515-02 ",.02)
 ;;63629-4515-02
 ;;9002226.02101,"619,63629-4515-03 ",.01)
 ;;63629-4515-03
 ;;9002226.02101,"619,63629-4515-03 ",.02)
 ;;63629-4515-03
 ;;9002226.02101,"619,63629-4515-04 ",.01)
 ;;63629-4515-04
 ;;9002226.02101,"619,63629-4515-04 ",.02)
 ;;63629-4515-04
 ;;9002226.02101,"619,63629-4515-05 ",.01)
 ;;63629-4515-05
 ;;9002226.02101,"619,63629-4515-05 ",.02)
 ;;63629-4515-05
 ;;9002226.02101,"619,63629-4515-06 ",.01)
 ;;63629-4515-06
 ;;9002226.02101,"619,63629-4515-06 ",.02)
 ;;63629-4515-06
 ;;9002226.02101,"619,63629-4521-01 ",.01)
 ;;63629-4521-01
 ;;9002226.02101,"619,63629-4521-01 ",.02)
 ;;63629-4521-01
 ;;9002226.02101,"619,63629-4521-02 ",.01)
 ;;63629-4521-02
 ;;9002226.02101,"619,63629-4521-02 ",.02)
 ;;63629-4521-02
 ;;9002226.02101,"619,63629-4521-03 ",.01)
 ;;63629-4521-03
 ;;9002226.02101,"619,63629-4521-03 ",.02)
 ;;63629-4521-03
 ;;9002226.02101,"619,63629-4521-04 ",.01)
 ;;63629-4521-04
 ;;9002226.02101,"619,63629-4521-04 ",.02)
 ;;63629-4521-04
 ;;9002226.02101,"619,63629-4549-01 ",.01)
 ;;63629-4549-01
 ;;9002226.02101,"619,63629-4549-01 ",.02)
 ;;63629-4549-01
 ;;9002226.02101,"619,63629-4599-01 ",.01)
 ;;63629-4599-01
 ;;9002226.02101,"619,63629-4599-01 ",.02)
 ;;63629-4599-01
 ;;9002226.02101,"619,63629-4600-01 ",.01)
 ;;63629-4600-01
 ;;9002226.02101,"619,63629-4600-01 ",.02)
 ;;63629-4600-01
 ;;9002226.02101,"619,63629-4606-02 ",.01)
 ;;63629-4606-02
 ;;9002226.02101,"619,63629-4606-02 ",.02)
 ;;63629-4606-02
 ;;9002226.02101,"619,63629-4606-03 ",.01)
 ;;63629-4606-03
 ;;9002226.02101,"619,63629-4606-03 ",.02)
 ;;63629-4606-03
 ;;9002226.02101,"619,63629-4611-01 ",.01)
 ;;63629-4611-01
 ;;9002226.02101,"619,63629-4611-01 ",.02)
 ;;63629-4611-01
 ;;9002226.02101,"619,63629-4611-02 ",.01)
 ;;63629-4611-02
 ;;9002226.02101,"619,63629-4611-02 ",.02)
 ;;63629-4611-02
 ;;9002226.02101,"619,63629-4611-03 ",.01)
 ;;63629-4611-03
 ;;9002226.02101,"619,63629-4611-03 ",.02)
 ;;63629-4611-03
 ;;9002226.02101,"619,63629-4705-01 ",.01)
 ;;63629-4705-01
 ;;9002226.02101,"619,63629-4705-01 ",.02)
 ;;63629-4705-01
 ;;9002226.02101,"619,63629-4705-02 ",.01)
 ;;63629-4705-02
 ;;9002226.02101,"619,63629-4705-02 ",.02)
 ;;63629-4705-02
 ;;9002226.02101,"619,63629-4705-03 ",.01)
 ;;63629-4705-03
 ;;9002226.02101,"619,63629-4705-03 ",.02)
 ;;63629-4705-03
 ;;9002226.02101,"619,63629-4705-04 ",.01)
 ;;63629-4705-04
 ;;9002226.02101,"619,63629-4705-04 ",.02)
 ;;63629-4705-04
 ;;9002226.02101,"619,63629-4705-05 ",.01)
 ;;63629-4705-05
 ;;9002226.02101,"619,63629-4705-05 ",.02)
 ;;63629-4705-05
 ;;9002226.02101,"619,63629-4731-01 ",.01)
 ;;63629-4731-01
 ;;9002226.02101,"619,63629-4731-01 ",.02)
 ;;63629-4731-01
 ;;9002226.02101,"619,63629-4731-02 ",.01)
 ;;63629-4731-02
 ;;9002226.02101,"619,63629-4731-02 ",.02)
 ;;63629-4731-02
 ;;9002226.02101,"619,63629-4731-04 ",.01)
 ;;63629-4731-04
 ;;9002226.02101,"619,63629-4731-04 ",.02)
 ;;63629-4731-04
 ;;9002226.02101,"619,63629-4731-05 ",.01)
 ;;63629-4731-05
 ;;9002226.02101,"619,63629-4731-05 ",.02)
 ;;63629-4731-05
 ;;9002226.02101,"619,63629-4731-06 ",.01)
 ;;63629-4731-06