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

BGP61A26.m

Go to the documentation of this file.
BGP61A26 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"1799,58864-0024-30 ",.01)
 ;;58864-0024-30
 ;;9002226.02101,"1799,58864-0024-30 ",.02)
 ;;58864-0024-30
 ;;9002226.02101,"1799,58864-0292-30 ",.01)
 ;;58864-0292-30
 ;;9002226.02101,"1799,58864-0292-30 ",.02)
 ;;58864-0292-30
 ;;9002226.02101,"1799,58864-0700-15 ",.01)
 ;;58864-0700-15
 ;;9002226.02101,"1799,58864-0700-15 ",.02)
 ;;58864-0700-15
 ;;9002226.02101,"1799,58864-0757-30 ",.01)
 ;;58864-0757-30
 ;;9002226.02101,"1799,58864-0757-30 ",.02)
 ;;58864-0757-30
 ;;9002226.02101,"1799,58864-0857-30 ",.01)
 ;;58864-0857-30
 ;;9002226.02101,"1799,58864-0857-30 ",.02)
 ;;58864-0857-30
 ;;9002226.02101,"1799,58864-0891-06 ",.01)
 ;;58864-0891-06
 ;;9002226.02101,"1799,58864-0891-06 ",.02)
 ;;58864-0891-06
 ;;9002226.02101,"1799,59011-0255-30 ",.01)
 ;;59011-0255-30
 ;;9002226.02101,"1799,59011-0255-30 ",.02)
 ;;59011-0255-30
 ;;9002226.02101,"1799,59011-0256-30 ",.01)
 ;;59011-0256-30
 ;;9002226.02101,"1799,59011-0256-30 ",.02)
 ;;59011-0256-30
 ;;9002226.02101,"1799,59212-0422-04 ",.01)
 ;;59212-0422-04
 ;;9002226.02101,"1799,59212-0422-04 ",.02)
 ;;59212-0422-04
 ;;9002226.02101,"1799,59212-0422-16 ",.01)
 ;;59212-0422-16
 ;;9002226.02101,"1799,59212-0422-16 ",.02)
 ;;59212-0422-16
 ;;9002226.02101,"1799,59212-0423-04 ",.01)
 ;;59212-0423-04
 ;;9002226.02101,"1799,59212-0423-04 ",.02)
 ;;59212-0423-04
 ;;9002226.02101,"1799,59212-0423-16 ",.01)
 ;;59212-0423-16
 ;;9002226.02101,"1799,59212-0423-16 ",.02)
 ;;59212-0423-16
 ;;9002226.02101,"1799,59212-0425-10 ",.01)
 ;;59212-0425-10
 ;;9002226.02101,"1799,59212-0425-10 ",.02)
 ;;59212-0425-10
 ;;9002226.02101,"1799,59212-0425-11 ",.01)
 ;;59212-0425-11
 ;;9002226.02101,"1799,59212-0425-11 ",.02)
 ;;59212-0425-11
 ;;9002226.02101,"1799,59630-0074-10 ",.01)
 ;;59630-0074-10
 ;;9002226.02101,"1799,59630-0074-10 ",.02)
 ;;59630-0074-10
 ;;9002226.02101,"1799,59630-0170-11 ",.01)
 ;;59630-0170-11
 ;;9002226.02101,"1799,59630-0170-11 ",.02)
 ;;59630-0170-11
 ;;9002226.02101,"1799,59702-0661-01 ",.01)
 ;;59702-0661-01
 ;;9002226.02101,"1799,59702-0661-01 ",.02)
 ;;59702-0661-01
 ;;9002226.02101,"1799,60429-0016-12 ",.01)
 ;;60429-0016-12
 ;;9002226.02101,"1799,60429-0016-12 ",.02)
 ;;60429-0016-12
 ;;9002226.02101,"1799,60429-0095-01 ",.01)
 ;;60429-0095-01
 ;;9002226.02101,"1799,60429-0095-01 ",.02)
 ;;60429-0095-01
 ;;9002226.02101,"1799,60429-0096-01 ",.01)
 ;;60429-0096-01
 ;;9002226.02101,"1799,60429-0096-01 ",.02)
 ;;60429-0096-01
 ;;9002226.02101,"1799,60429-0097-01 ",.01)
 ;;60429-0097-01
 ;;9002226.02101,"1799,60429-0097-01 ",.02)
 ;;60429-0097-01
 ;;9002226.02101,"1799,60429-0252-01 ",.01)
 ;;60429-0252-01
 ;;9002226.02101,"1799,60429-0252-01 ",.02)
 ;;60429-0252-01
 ;;9002226.02101,"1799,60429-0252-05 ",.01)
 ;;60429-0252-05
 ;;9002226.02101,"1799,60429-0252-05 ",.02)
 ;;60429-0252-05
 ;;9002226.02101,"1799,60429-0253-01 ",.01)
 ;;60429-0253-01
 ;;9002226.02101,"1799,60429-0253-01 ",.02)
 ;;60429-0253-01
 ;;9002226.02101,"1799,60429-0253-05 ",.01)
 ;;60429-0253-05
 ;;9002226.02101,"1799,60429-0253-05 ",.02)
 ;;60429-0253-05
 ;;9002226.02101,"1799,60429-0287-30 ",.01)
 ;;60429-0287-30
 ;;9002226.02101,"1799,60429-0287-30 ",.02)
 ;;60429-0287-30
 ;;9002226.02101,"1799,60429-0287-90 ",.01)
 ;;60429-0287-90
 ;;9002226.02101,"1799,60429-0287-90 ",.02)
 ;;60429-0287-90
 ;;9002226.02101,"1799,60429-0288-30 ",.01)
 ;;60429-0288-30
 ;;9002226.02101,"1799,60429-0288-30 ",.02)
 ;;60429-0288-30
 ;;9002226.02101,"1799,60429-0288-90 ",.01)
 ;;60429-0288-90
 ;;9002226.02101,"1799,60429-0288-90 ",.02)
 ;;60429-0288-90
 ;;9002226.02101,"1799,60429-0289-30 ",.01)
 ;;60429-0289-30
 ;;9002226.02101,"1799,60429-0289-30 ",.02)
 ;;60429-0289-30
 ;;9002226.02101,"1799,60429-0289-90 ",.01)
 ;;60429-0289-90
 ;;9002226.02101,"1799,60429-0289-90 ",.02)
 ;;60429-0289-90
 ;;9002226.02101,"1799,60429-0530-01 ",.01)
 ;;60429-0530-01
 ;;9002226.02101,"1799,60429-0530-01 ",.02)
 ;;60429-0530-01
 ;;9002226.02101,"1799,60429-0530-05 ",.01)
 ;;60429-0530-05
 ;;9002226.02101,"1799,60429-0530-05 ",.02)
 ;;60429-0530-05
 ;;9002226.02101,"1799,60429-0530-20 ",.01)
 ;;60429-0530-20
 ;;9002226.02101,"1799,60429-0530-20 ",.02)
 ;;60429-0530-20
 ;;9002226.02101,"1799,60429-0530-30 ",.01)
 ;;60429-0530-30
 ;;9002226.02101,"1799,60429-0530-30 ",.02)
 ;;60429-0530-30
 ;;9002226.02101,"1799,60429-0530-60 ",.01)
 ;;60429-0530-60
 ;;9002226.02101,"1799,60429-0530-60 ",.02)
 ;;60429-0530-60
 ;;9002226.02101,"1799,60429-0530-90 ",.01)
 ;;60429-0530-90
 ;;9002226.02101,"1799,60429-0530-90 ",.02)
 ;;60429-0530-90
 ;;9002226.02101,"1799,60429-0531-01 ",.01)
 ;;60429-0531-01
 ;;9002226.02101,"1799,60429-0531-01 ",.02)
 ;;60429-0531-01
 ;;9002226.02101,"1799,60429-0531-05 ",.01)
 ;;60429-0531-05
 ;;9002226.02101,"1799,60429-0531-05 ",.02)
 ;;60429-0531-05
 ;;9002226.02101,"1799,60429-0531-15 ",.01)
 ;;60429-0531-15
 ;;9002226.02101,"1799,60429-0531-15 ",.02)
 ;;60429-0531-15
 ;;9002226.02101,"1799,60429-0531-20 ",.01)
 ;;60429-0531-20
 ;;9002226.02101,"1799,60429-0531-20 ",.02)
 ;;60429-0531-20
 ;;9002226.02101,"1799,60429-0531-30 ",.01)
 ;;60429-0531-30
 ;;9002226.02101,"1799,60429-0531-30 ",.02)
 ;;60429-0531-30
 ;;9002226.02101,"1799,60429-0531-60 ",.01)
 ;;60429-0531-60
 ;;9002226.02101,"1799,60429-0531-60 ",.02)
 ;;60429-0531-60
 ;;9002226.02101,"1799,60429-0531-90 ",.01)
 ;;60429-0531-90
 ;;9002226.02101,"1799,60429-0531-90 ",.02)
 ;;60429-0531-90
 ;;9002226.02101,"1799,60429-0545-01 ",.01)
 ;;60429-0545-01
 ;;9002226.02101,"1799,60429-0545-01 ",.02)
 ;;60429-0545-01
 ;;9002226.02101,"1799,60429-0545-10 ",.01)
 ;;60429-0545-10
 ;;9002226.02101,"1799,60429-0545-10 ",.02)
 ;;60429-0545-10
 ;;9002226.02101,"1799,60429-0546-01 ",.01)
 ;;60429-0546-01
 ;;9002226.02101,"1799,60429-0546-01 ",.02)
 ;;60429-0546-01
 ;;9002226.02101,"1799,60429-0547-01 ",.01)
 ;;60429-0547-01
 ;;9002226.02101,"1799,60429-0547-01 ",.02)
 ;;60429-0547-01
 ;;9002226.02101,"1799,60429-0547-05 ",.01)
 ;;60429-0547-05
 ;;9002226.02101,"1799,60429-0547-05 ",.02)
 ;;60429-0547-05
 ;;9002226.02101,"1799,60432-0651-04 ",.01)
 ;;60432-0651-04
 ;;9002226.02101,"1799,60432-0651-04 ",.02)
 ;;60432-0651-04
 ;;9002226.02101,"1799,60505-2604-00 ",.01)
 ;;60505-2604-00
 ;;9002226.02101,"1799,60505-2604-00 ",.02)
 ;;60505-2604-00
 ;;9002226.02101,"1799,60505-2604-01 ",.01)
 ;;60505-2604-01
 ;;9002226.02101,"1799,60505-2604-01 ",.02)
 ;;60505-2604-01
 ;;9002226.02101,"1799,60505-2604-08 ",.01)
 ;;60505-2604-08
 ;;9002226.02101,"1799,60505-2604-08 ",.02)
 ;;60505-2604-08
 ;;9002226.02101,"1799,60505-2605-00 ",.01)
 ;;60505-2605-00
 ;;9002226.02101,"1799,60505-2605-00 ",.02)
 ;;60505-2605-00
 ;;9002226.02101,"1799,60505-2605-01 ",.01)
 ;;60505-2605-01
 ;;9002226.02101,"1799,60505-2605-01 ",.02)
 ;;60505-2605-01
 ;;9002226.02101,"1799,60505-2605-08 ",.01)
 ;;60505-2605-08
 ;;9002226.02101,"1799,60505-2605-08 ",.02)
 ;;60505-2605-08
 ;;9002226.02101,"1799,60760-0116-30 ",.01)
 ;;60760-0116-30
 ;;9002226.02101,"1799,60760-0116-30 ",.02)
 ;;60760-0116-30
 ;;9002226.02101,"1799,60760-0191-30 ",.01)
 ;;60760-0191-30
 ;;9002226.02101,"1799,60760-0191-30 ",.02)
 ;;60760-0191-30
 ;;9002226.02101,"1799,60760-0193-30 ",.01)
 ;;60760-0193-30
 ;;9002226.02101,"1799,60760-0193-30 ",.02)
 ;;60760-0193-30
 ;;9002226.02101,"1799,60760-0211-30 ",.01)
 ;;60760-0211-30
 ;;9002226.02101,"1799,60760-0211-30 ",.02)
 ;;60760-0211-30
 ;;9002226.02101,"1799,60760-0212-15 ",.01)
 ;;60760-0212-15
 ;;9002226.02101,"1799,60760-0212-15 ",.02)
 ;;60760-0212-15
 ;;9002226.02101,"1799,60760-0212-30 ",.01)
 ;;60760-0212-30
 ;;9002226.02101,"1799,60760-0212-30 ",.02)
 ;;60760-0212-30
 ;;9002226.02101,"1799,60760-0214-30 ",.01)
 ;;60760-0214-30
 ;;9002226.02101,"1799,60760-0214-30 ",.02)
 ;;60760-0214-30
 ;;9002226.02101,"1799,60760-0221-30 ",.01)
 ;;60760-0221-30
 ;;9002226.02101,"1799,60760-0221-30 ",.02)
 ;;60760-0221-30
 ;;9002226.02101,"1799,60760-0288-30 ",.01)
 ;;60760-0288-30
 ;;9002226.02101,"1799,60760-0288-30 ",.02)
 ;;60760-0288-30
 ;;9002226.02101,"1799,60760-0367-30 ",.01)
 ;;60760-0367-30
 ;;9002226.02101,"1799,60760-0367-30 ",.02)
 ;;60760-0367-30
 ;;9002226.02101,"1799,60760-0367-60 ",.01)
 ;;60760-0367-60
 ;;9002226.02101,"1799,60760-0367-60 ",.02)
 ;;60760-0367-60
 ;;9002226.02101,"1799,60760-0515-30 ",.01)
 ;;60760-0515-30
 ;;9002226.02101,"1799,60760-0515-30 ",.02)
 ;;60760-0515-30
 ;;9002226.02101,"1799,60760-0550-30 ",.01)
 ;;60760-0550-30
 ;;9002226.02101,"1799,60760-0550-30 ",.02)
 ;;60760-0550-30
 ;;9002226.02101,"1799,60760-0551-30 ",.01)
 ;;60760-0551-30
 ;;9002226.02101,"1799,60760-0551-30 ",.02)
 ;;60760-0551-30
 ;;9002226.02101,"1799,60793-0145-01 ",.01)
 ;;60793-0145-01
 ;;9002226.02101,"1799,60793-0145-01 ",.02)
 ;;60793-0145-01
 ;;9002226.02101,"1799,60793-0146-01 ",.01)
 ;;60793-0146-01
 ;;9002226.02101,"1799,60793-0146-01 ",.02)
 ;;60793-0146-01
 ;;9002226.02101,"1799,61442-0231-01 ",.01)
 ;;61442-0231-01
 ;;9002226.02101,"1799,61442-0231-01 ",.02)
 ;;61442-0231-01
 ;;9002226.02101,"1799,61442-0232-01 ",.01)
 ;;61442-0232-01
 ;;9002226.02101,"1799,61442-0232-01 ",.02)
 ;;61442-0232-01
 ;;9002226.02101,"1799,61919-0011-30 ",.01)
 ;;61919-0011-30
 ;;9002226.02101,"1799,61919-0011-30 ",.02)
 ;;61919-0011-30
 ;;9002226.02101,"1799,61919-0011-60 ",.01)
 ;;61919-0011-60
 ;;9002226.02101,"1799,61919-0011-60 ",.02)
 ;;61919-0011-60
 ;;9002226.02101,"1799,61919-0011-90 ",.01)
 ;;61919-0011-90
 ;;9002226.02101,"1799,61919-0011-90 ",.02)
 ;;61919-0011-90
 ;;9002226.02101,"1799,61919-0012-30 ",.01)
 ;;61919-0012-30
 ;;9002226.02101,"1799,61919-0012-30 ",.02)
 ;;61919-0012-30
 ;;9002226.02101,"1799,61919-0012-60 ",.01)
 ;;61919-0012-60
 ;;9002226.02101,"1799,61919-0012-60 ",.02)
 ;;61919-0012-60
 ;;9002226.02101,"1799,61919-0012-90 ",.01)
 ;;61919-0012-90
 ;;9002226.02101,"1799,61919-0012-90 ",.02)
 ;;61919-0012-90
 ;;9002226.02101,"1799,61919-0013-30 ",.01)
 ;;61919-0013-30
 ;;9002226.02101,"1799,61919-0013-30 ",.02)
 ;;61919-0013-30
 ;;9002226.02101,"1799,61919-0013-71 ",.01)
 ;;61919-0013-71
 ;;9002226.02101,"1799,61919-0013-71 ",.02)
 ;;61919-0013-71
 ;;9002226.02101,"1799,61919-0013-90 ",.01)
 ;;61919-0013-90
 ;;9002226.02101,"1799,61919-0013-90 ",.02)
 ;;61919-0013-90
 ;;9002226.02101,"1799,61919-0081-30 ",.01)
 ;;61919-0081-30
 ;;9002226.02101,"1799,61919-0081-30 ",.02)
 ;;61919-0081-30
 ;;9002226.02101,"1799,61919-0109-30 ",.01)
 ;;61919-0109-30
 ;;9002226.02101,"1799,61919-0109-30 ",.02)
 ;;61919-0109-30
 ;;9002226.02101,"1799,61919-0240-60 ",.01)
 ;;61919-0240-60
 ;;9002226.02101,"1799,61919-0240-60 ",.02)
 ;;61919-0240-60
 ;;9002226.02101,"1799,61919-0527-30 ",.01)
 ;;61919-0527-30
 ;;9002226.02101,"1799,61919-0527-30 ",.02)
 ;;61919-0527-30
 ;;9002226.02101,"1799,61919-0527-60 ",.01)
 ;;61919-0527-60
 ;;9002226.02101,"1799,61919-0527-60 ",.02)
 ;;61919-0527-60
 ;;9002226.02101,"1799,61919-0528-20 ",.01)
 ;;61919-0528-20
 ;;9002226.02101,"1799,61919-0528-20 ",.02)
 ;;61919-0528-20
 ;;9002226.02101,"1799,61919-0528-30 ",.01)
 ;;61919-0528-30
 ;;9002226.02101,"1799,61919-0528-30 ",.02)
 ;;61919-0528-30
 ;;9002226.02101,"1799,61919-0528-60 ",.01)
 ;;61919-0528-60
 ;;9002226.02101,"1799,61919-0528-60 ",.02)
 ;;61919-0528-60
 ;;9002226.02101,"1799,61919-0629-60 ",.01)
 ;;61919-0629-60
 ;;9002226.02101,"1799,61919-0629-60 ",.02)
 ;;61919-0629-60
 ;;9002226.02101,"1799,61919-0955-30 ",.01)
 ;;61919-0955-30
 ;;9002226.02101,"1799,61919-0955-30 ",.02)
 ;;61919-0955-30
 ;;9002226.02101,"1799,61919-0955-60 ",.01)
 ;;61919-0955-60
 ;;9002226.02101,"1799,61919-0955-60 ",.02)
 ;;61919-0955-60
 ;;9002226.02101,"1799,63187-0115-15 ",.01)
 ;;63187-0115-15