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

BGP8ZP24.m

Go to the documentation of this file.
BGP8ZP24 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"1795,60258-0876-16 ",.01)
 ;;60258-0876-16
 ;;9002226.02101,"1795,60258-0876-16 ",.02)
 ;;60258-0876-16
 ;;9002226.02101,"1795,60429-0149-01 ",.01)
 ;;60429-0149-01
 ;;9002226.02101,"1795,60429-0149-01 ",.02)
 ;;60429-0149-01
 ;;9002226.02101,"1795,60429-0150-01 ",.01)
 ;;60429-0150-01
 ;;9002226.02101,"1795,60429-0150-01 ",.02)
 ;;60429-0150-01
 ;;9002226.02101,"1795,60429-0150-10 ",.01)
 ;;60429-0150-10
 ;;9002226.02101,"1795,60429-0150-10 ",.02)
 ;;60429-0150-10
 ;;9002226.02101,"1795,60429-0150-12 ",.01)
 ;;60429-0150-12
 ;;9002226.02101,"1795,60429-0150-12 ",.02)
 ;;60429-0150-12
 ;;9002226.02101,"1795,60429-0150-30 ",.01)
 ;;60429-0150-30
 ;;9002226.02101,"1795,60429-0150-30 ",.02)
 ;;60429-0150-30
 ;;9002226.02101,"1795,60429-0150-60 ",.01)
 ;;60429-0150-60
 ;;9002226.02101,"1795,60429-0150-60 ",.02)
 ;;60429-0150-60
 ;;9002226.02101,"1795,60429-0150-90 ",.01)
 ;;60429-0150-90
 ;;9002226.02101,"1795,60429-0150-90 ",.02)
 ;;60429-0150-90
 ;;9002226.02101,"1795,60429-0151-01 ",.01)
 ;;60429-0151-01
 ;;9002226.02101,"1795,60429-0151-01 ",.02)
 ;;60429-0151-01
 ;;9002226.02101,"1795,60429-0155-01 ",.01)
 ;;60429-0155-01
 ;;9002226.02101,"1795,60429-0155-01 ",.02)
 ;;60429-0155-01
 ;;9002226.02101,"1795,60429-0155-10 ",.01)
 ;;60429-0155-10
 ;;9002226.02101,"1795,60429-0155-10 ",.02)
 ;;60429-0155-10
 ;;9002226.02101,"1795,60429-0156-01 ",.01)
 ;;60429-0156-01
 ;;9002226.02101,"1795,60429-0156-01 ",.02)
 ;;60429-0156-01
 ;;9002226.02101,"1795,60429-0156-10 ",.01)
 ;;60429-0156-10
 ;;9002226.02101,"1795,60429-0156-10 ",.02)
 ;;60429-0156-10
 ;;9002226.02101,"1795,60429-0204-01 ",.01)
 ;;60429-0204-01
 ;;9002226.02101,"1795,60429-0204-01 ",.02)
 ;;60429-0204-01
 ;;9002226.02101,"1795,60429-0204-10 ",.01)
 ;;60429-0204-10
 ;;9002226.02101,"1795,60429-0204-10 ",.02)
 ;;60429-0204-10
 ;;9002226.02101,"1795,60429-0205-01 ",.01)
 ;;60429-0205-01
 ;;9002226.02101,"1795,60429-0205-01 ",.02)
 ;;60429-0205-01
 ;;9002226.02101,"1795,60429-0205-10 ",.01)
 ;;60429-0205-10
 ;;9002226.02101,"1795,60429-0205-10 ",.02)
 ;;60429-0205-10
 ;;9002226.02101,"1795,60429-0223-01 ",.01)
 ;;60429-0223-01
 ;;9002226.02101,"1795,60429-0223-01 ",.02)
 ;;60429-0223-01
 ;;9002226.02101,"1795,60429-0223-10 ",.01)
 ;;60429-0223-10
 ;;9002226.02101,"1795,60429-0223-10 ",.02)
 ;;60429-0223-10
 ;;9002226.02101,"1795,60429-0224-01 ",.01)
 ;;60429-0224-01
 ;;9002226.02101,"1795,60429-0224-01 ",.02)
 ;;60429-0224-01
 ;;9002226.02101,"1795,60429-0224-10 ",.01)
 ;;60429-0224-10
 ;;9002226.02101,"1795,60429-0224-10 ",.02)
 ;;60429-0224-10
 ;;9002226.02101,"1795,60429-0224-28 ",.01)
 ;;60429-0224-28
 ;;9002226.02101,"1795,60429-0224-28 ",.02)
 ;;60429-0224-28
 ;;9002226.02101,"1795,60429-0225-01 ",.01)
 ;;60429-0225-01
 ;;9002226.02101,"1795,60429-0225-01 ",.02)
 ;;60429-0225-01
 ;;9002226.02101,"1795,60429-0225-05 ",.01)
 ;;60429-0225-05
 ;;9002226.02101,"1795,60429-0225-05 ",.02)
 ;;60429-0225-05
 ;;9002226.02101,"1795,60429-0231-01 ",.01)
 ;;60429-0231-01
 ;;9002226.02101,"1795,60429-0231-01 ",.02)
 ;;60429-0231-01
 ;;9002226.02101,"1795,60429-0231-10 ",.01)
 ;;60429-0231-10
 ;;9002226.02101,"1795,60429-0231-10 ",.02)
 ;;60429-0231-10
 ;;9002226.02101,"1795,60429-0276-01 ",.01)
 ;;60429-0276-01
 ;;9002226.02101,"1795,60429-0276-01 ",.02)
 ;;60429-0276-01
 ;;9002226.02101,"1795,60429-0276-10 ",.01)
 ;;60429-0276-10
 ;;9002226.02101,"1795,60429-0276-10 ",.02)
 ;;60429-0276-10
 ;;9002226.02101,"1795,60429-0294-01 ",.01)
 ;;60429-0294-01
 ;;9002226.02101,"1795,60429-0294-01 ",.02)
 ;;60429-0294-01
 ;;9002226.02101,"1795,60429-0294-05 ",.01)
 ;;60429-0294-05
 ;;9002226.02101,"1795,60429-0294-05 ",.02)
 ;;60429-0294-05
 ;;9002226.02101,"1795,60429-0295-01 ",.01)
 ;;60429-0295-01
 ;;9002226.02101,"1795,60429-0295-01 ",.02)
 ;;60429-0295-01
 ;;9002226.02101,"1795,60429-0295-05 ",.01)
 ;;60429-0295-05
 ;;9002226.02101,"1795,60429-0295-05 ",.02)
 ;;60429-0295-05
 ;;9002226.02101,"1795,60432-0150-04 ",.01)
 ;;60432-0150-04
 ;;9002226.02101,"1795,60432-0150-04 ",.02)
 ;;60432-0150-04
 ;;9002226.02101,"1795,60432-0150-16 ",.01)
 ;;60432-0150-16
 ;;9002226.02101,"1795,60432-0150-16 ",.02)
 ;;60432-0150-16
 ;;9002226.02101,"1795,60432-0275-04 ",.01)
 ;;60432-0275-04
 ;;9002226.02101,"1795,60432-0275-04 ",.02)
 ;;60432-0275-04
 ;;9002226.02101,"1795,60432-0275-16 ",.01)
 ;;60432-0275-16
 ;;9002226.02101,"1795,60432-0275-16 ",.02)
 ;;60432-0275-16
 ;;9002226.02101,"1795,60432-0539-16 ",.01)
 ;;60432-0539-16
 ;;9002226.02101,"1795,60432-0539-16 ",.02)
 ;;60432-0539-16
 ;;9002226.02101,"1795,60432-0604-04 ",.01)
 ;;60432-0604-04
 ;;9002226.02101,"1795,60432-0604-04 ",.02)
 ;;60432-0604-04
 ;;9002226.02101,"1795,60432-0604-16 ",.01)
 ;;60432-0604-16
 ;;9002226.02101,"1795,60432-0604-16 ",.02)
 ;;60432-0604-16
 ;;9002226.02101,"1795,60432-0606-04 ",.01)
 ;;60432-0606-04
 ;;9002226.02101,"1795,60432-0606-04 ",.02)
 ;;60432-0606-04
 ;;9002226.02101,"1795,60432-0606-16 ",.01)
 ;;60432-0606-16
 ;;9002226.02101,"1795,60432-0606-16 ",.02)
 ;;60432-0606-16
 ;;9002226.02101,"1795,60432-0608-04 ",.01)
 ;;60432-0608-04
 ;;9002226.02101,"1795,60432-0608-04 ",.02)
 ;;60432-0608-04
 ;;9002226.02101,"1795,60432-0608-16 ",.01)
 ;;60432-0608-16
 ;;9002226.02101,"1795,60432-0608-16 ",.02)
 ;;60432-0608-16
 ;;9002226.02101,"1795,60432-0837-04 ",.01)
 ;;60432-0837-04
 ;;9002226.02101,"1795,60432-0837-04 ",.02)
 ;;60432-0837-04
 ;;9002226.02101,"1795,60432-0837-16 ",.01)
 ;;60432-0837-16
 ;;9002226.02101,"1795,60432-0837-16 ",.02)
 ;;60432-0837-16
 ;;9002226.02101,"1795,60575-0177-19 ",.01)
 ;;60575-0177-19
 ;;9002226.02101,"1795,60575-0177-19 ",.02)
 ;;60575-0177-19
 ;;9002226.02101,"1795,60575-0212-16 ",.01)
 ;;60575-0212-16
 ;;9002226.02101,"1795,60575-0212-16 ",.02)
 ;;60575-0212-16
 ;;9002226.02101,"1795,60575-0786-19 ",.01)
 ;;60575-0786-19
 ;;9002226.02101,"1795,60575-0786-19 ",.02)
 ;;60575-0786-19
 ;;9002226.02101,"1795,60760-0307-20 ",.01)
 ;;60760-0307-20
 ;;9002226.02101,"1795,60760-0307-20 ",.02)
 ;;60760-0307-20
 ;;9002226.02101,"1795,60760-0312-30 ",.01)
 ;;60760-0312-30
 ;;9002226.02101,"1795,60760-0312-30 ",.02)
 ;;60760-0312-30
 ;;9002226.02101,"1795,60760-0312-90 ",.01)
 ;;60760-0312-90
 ;;9002226.02101,"1795,60760-0312-90 ",.02)
 ;;60760-0312-90
 ;;9002226.02101,"1795,60760-0330-30 ",.01)
 ;;60760-0330-30
 ;;9002226.02101,"1795,60760-0330-30 ",.02)
 ;;60760-0330-30
 ;;9002226.02101,"1795,60760-0795-30 ",.01)
 ;;60760-0795-30
 ;;9002226.02101,"1795,60760-0795-30 ",.02)
 ;;60760-0795-30
 ;;9002226.02101,"1795,60760-0830-20 ",.01)
 ;;60760-0830-20
 ;;9002226.02101,"1795,60760-0830-20 ",.02)
 ;;60760-0830-20
 ;;9002226.02101,"1795,60760-0830-30 ",.01)
 ;;60760-0830-30
 ;;9002226.02101,"1795,60760-0830-30 ",.02)
 ;;60760-0830-30
 ;;9002226.02101,"1795,60760-0830-60 ",.01)
 ;;60760-0830-60
 ;;9002226.02101,"1795,60760-0830-60 ",.02)
 ;;60760-0830-60
 ;;9002226.02101,"1795,60760-0971-30 ",.01)
 ;;60760-0971-30
 ;;9002226.02101,"1795,60760-0971-30 ",.02)
 ;;60760-0971-30
 ;;9002226.02101,"1795,61553-0322-33 ",.01)
 ;;61553-0322-33
 ;;9002226.02101,"1795,61553-0322-33 ",.02)
 ;;61553-0322-33
 ;;9002226.02101,"1795,61553-0322-70 ",.01)
 ;;61553-0322-70
 ;;9002226.02101,"1795,61553-0322-70 ",.02)
 ;;61553-0322-70
 ;;9002226.02101,"1795,61553-0324-16 ",.01)
 ;;61553-0324-16
 ;;9002226.02101,"1795,61553-0324-16 ",.02)
 ;;61553-0324-16
 ;;9002226.02101,"1795,61553-0324-59 ",.01)
 ;;61553-0324-59
 ;;9002226.02101,"1795,61553-0324-59 ",.02)
 ;;61553-0324-59
 ;;9002226.02101,"1795,61553-0324-71 ",.01)
 ;;61553-0324-71
 ;;9002226.02101,"1795,61553-0324-71 ",.02)
 ;;61553-0324-71
 ;;9002226.02101,"1795,61553-0335-03 ",.01)
 ;;61553-0335-03
 ;;9002226.02101,"1795,61553-0335-03 ",.02)
 ;;61553-0335-03
 ;;9002226.02101,"1795,61553-0335-28 ",.01)
 ;;61553-0335-28
 ;;9002226.02101,"1795,61553-0335-28 ",.02)
 ;;61553-0335-28
 ;;9002226.02101,"1795,61553-0335-79 ",.01)
 ;;61553-0335-79
 ;;9002226.02101,"1795,61553-0335-79 ",.02)
 ;;61553-0335-79
 ;;9002226.02101,"1795,61748-0054-16 ",.01)
 ;;61748-0054-16
 ;;9002226.02101,"1795,61748-0054-16 ",.02)
 ;;61748-0054-16
 ;;9002226.02101,"1795,61919-0008-10 ",.01)
 ;;61919-0008-10
 ;;9002226.02101,"1795,61919-0008-10 ",.02)
 ;;61919-0008-10
 ;;9002226.02101,"1795,61919-0008-12 ",.01)
 ;;61919-0008-12
 ;;9002226.02101,"1795,61919-0008-12 ",.02)
 ;;61919-0008-12
 ;;9002226.02101,"1795,61919-0008-15 ",.01)
 ;;61919-0008-15
 ;;9002226.02101,"1795,61919-0008-15 ",.02)
 ;;61919-0008-15
 ;;9002226.02101,"1795,61919-0008-30 ",.01)
 ;;61919-0008-30
 ;;9002226.02101,"1795,61919-0008-30 ",.02)
 ;;61919-0008-30
 ;;9002226.02101,"1795,61919-0008-60 ",.01)
 ;;61919-0008-60
 ;;9002226.02101,"1795,61919-0008-60 ",.02)
 ;;61919-0008-60
 ;;9002226.02101,"1795,61919-0047-10 ",.01)
 ;;61919-0047-10
 ;;9002226.02101,"1795,61919-0047-10 ",.02)
 ;;61919-0047-10
 ;;9002226.02101,"1795,61919-0047-12 ",.01)
 ;;61919-0047-12
 ;;9002226.02101,"1795,61919-0047-12 ",.02)
 ;;61919-0047-12
 ;;9002226.02101,"1795,61919-0047-30 ",.01)
 ;;61919-0047-30
 ;;9002226.02101,"1795,61919-0047-30 ",.02)
 ;;61919-0047-30
 ;;9002226.02101,"1795,61919-0047-40 ",.01)
 ;;61919-0047-40
 ;;9002226.02101,"1795,61919-0047-40 ",.02)
 ;;61919-0047-40
 ;;9002226.02101,"1795,61919-0077-30 ",.01)
 ;;61919-0077-30
 ;;9002226.02101,"1795,61919-0077-30 ",.02)
 ;;61919-0077-30
 ;;9002226.02101,"1795,61919-0077-60 ",.01)
 ;;61919-0077-60
 ;;9002226.02101,"1795,61919-0077-60 ",.02)
 ;;61919-0077-60
 ;;9002226.02101,"1795,61919-0079-30 ",.01)
 ;;61919-0079-30
 ;;9002226.02101,"1795,61919-0079-30 ",.02)
 ;;61919-0079-30
 ;;9002226.02101,"1795,61919-0080-10 ",.01)
 ;;61919-0080-10
 ;;9002226.02101,"1795,61919-0080-10 ",.02)
 ;;61919-0080-10
 ;;9002226.02101,"1795,61919-0122-15 ",.01)
 ;;61919-0122-15
 ;;9002226.02101,"1795,61919-0122-15 ",.02)
 ;;61919-0122-15
 ;;9002226.02101,"1795,61919-0122-20 ",.01)
 ;;61919-0122-20
 ;;9002226.02101,"1795,61919-0122-20 ",.02)
 ;;61919-0122-20
 ;;9002226.02101,"1795,61919-0122-30 ",.01)
 ;;61919-0122-30
 ;;9002226.02101,"1795,61919-0122-30 ",.02)
 ;;61919-0122-30
 ;;9002226.02101,"1795,61919-0128-30 ",.01)
 ;;61919-0128-30
 ;;9002226.02101,"1795,61919-0128-30 ",.02)
 ;;61919-0128-30
 ;;9002226.02101,"1795,61919-0146-20 ",.01)
 ;;61919-0146-20
 ;;9002226.02101,"1795,61919-0146-20 ",.02)
 ;;61919-0146-20
 ;;9002226.02101,"1795,61919-0146-30 ",.01)
 ;;61919-0146-30
 ;;9002226.02101,"1795,61919-0146-30 ",.02)
 ;;61919-0146-30
 ;;9002226.02101,"1795,61919-0191-30 ",.01)
 ;;61919-0191-30
 ;;9002226.02101,"1795,61919-0191-30 ",.02)
 ;;61919-0191-30
 ;;9002226.02101,"1795,61919-0292-04 ",.01)
 ;;61919-0292-04
 ;;9002226.02101,"1795,61919-0292-04 ",.02)
 ;;61919-0292-04
 ;;9002226.02101,"1795,61919-0297-30 ",.01)
 ;;61919-0297-30
 ;;9002226.02101,"1795,61919-0297-30 ",.02)
 ;;61919-0297-30
 ;;9002226.02101,"1795,61919-0301-30 ",.01)
 ;;61919-0301-30
 ;;9002226.02101,"1795,61919-0301-30 ",.02)
 ;;61919-0301-30
 ;;9002226.02101,"1795,61919-0324-30 ",.01)
 ;;61919-0324-30
 ;;9002226.02101,"1795,61919-0324-30 ",.02)
 ;;61919-0324-30
 ;;9002226.02101,"1795,61919-0357-15 ",.01)
 ;;61919-0357-15
 ;;9002226.02101,"1795,61919-0357-15 ",.02)
 ;;61919-0357-15
 ;;9002226.02101,"1795,61919-0357-30 ",.01)
 ;;61919-0357-30
 ;;9002226.02101,"1795,61919-0357-30 ",.02)
 ;;61919-0357-30
 ;;9002226.02101,"1795,61919-0630-10 ",.01)
 ;;61919-0630-10
 ;;9002226.02101,"1795,61919-0630-10 ",.02)
 ;;61919-0630-10
 ;;9002226.02101,"1795,61919-0630-12 ",.01)
 ;;61919-0630-12
 ;;9002226.02101,"1795,61919-0630-12 ",.02)
 ;;61919-0630-12
 ;;9002226.02101,"1795,61919-0630-30 ",.01)
 ;;61919-0630-30