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

BGP13T62.m

Go to the documentation of this file.
BGP13T62 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"992,63874-1053-01 ",.02)
 ;;63874-1053-01
 ;;9002226.02101,"992,63874-1053-02 ",.01)
 ;;63874-1053-02
 ;;9002226.02101,"992,63874-1053-02 ",.02)
 ;;63874-1053-02
 ;;9002226.02101,"992,63874-1053-03 ",.01)
 ;;63874-1053-03
 ;;9002226.02101,"992,63874-1053-03 ",.02)
 ;;63874-1053-03
 ;;9002226.02101,"992,63874-1053-04 ",.01)
 ;;63874-1053-04
 ;;9002226.02101,"992,63874-1053-04 ",.02)
 ;;63874-1053-04
 ;;9002226.02101,"992,63874-1053-05 ",.01)
 ;;63874-1053-05
 ;;9002226.02101,"992,63874-1053-05 ",.02)
 ;;63874-1053-05
 ;;9002226.02101,"992,63874-1053-06 ",.01)
 ;;63874-1053-06
 ;;9002226.02101,"992,63874-1053-06 ",.02)
 ;;63874-1053-06
 ;;9002226.02101,"992,63874-1053-08 ",.01)
 ;;63874-1053-08
 ;;9002226.02101,"992,63874-1053-08 ",.02)
 ;;63874-1053-08
 ;;9002226.02101,"992,63874-1053-09 ",.01)
 ;;63874-1053-09
 ;;9002226.02101,"992,63874-1053-09 ",.02)
 ;;63874-1053-09
 ;;9002226.02101,"992,63874-1079-06 ",.01)
 ;;63874-1079-06
 ;;9002226.02101,"992,63874-1079-06 ",.02)
 ;;63874-1079-06
 ;;9002226.02101,"992,63874-1080-03 ",.01)
 ;;63874-1080-03
 ;;9002226.02101,"992,63874-1080-03 ",.02)
 ;;63874-1080-03
 ;;9002226.02101,"992,63874-1080-06 ",.01)
 ;;63874-1080-06
 ;;9002226.02101,"992,63874-1080-06 ",.02)
 ;;63874-1080-06
 ;;9002226.02101,"992,63874-1081-01 ",.01)
 ;;63874-1081-01
 ;;9002226.02101,"992,63874-1081-01 ",.02)
 ;;63874-1081-01
 ;;9002226.02101,"992,63874-1097-03 ",.01)
 ;;63874-1097-03
 ;;9002226.02101,"992,63874-1097-03 ",.02)
 ;;63874-1097-03
 ;;9002226.02101,"992,63874-1098-03 ",.01)
 ;;63874-1098-03
 ;;9002226.02101,"992,63874-1098-03 ",.02)
 ;;63874-1098-03
 ;;9002226.02101,"992,63874-1113-03 ",.01)
 ;;63874-1113-03
 ;;9002226.02101,"992,63874-1113-03 ",.02)
 ;;63874-1113-03
 ;;9002226.02101,"992,63874-1113-06 ",.01)
 ;;63874-1113-06
 ;;9002226.02101,"992,63874-1113-06 ",.02)
 ;;63874-1113-06
 ;;9002226.02101,"992,63874-1125-06 ",.01)
 ;;63874-1125-06
 ;;9002226.02101,"992,63874-1125-06 ",.02)
 ;;63874-1125-06
 ;;9002226.02101,"992,63874-1130-06 ",.01)
 ;;63874-1130-06
 ;;9002226.02101,"992,63874-1130-06 ",.02)
 ;;63874-1130-06
 ;;9002226.02101,"992,63874-1146-06 ",.01)
 ;;63874-1146-06
 ;;9002226.02101,"992,63874-1146-06 ",.02)
 ;;63874-1146-06
 ;;9002226.02101,"992,63874-1151-03 ",.01)
 ;;63874-1151-03
 ;;9002226.02101,"992,63874-1151-03 ",.02)
 ;;63874-1151-03
 ;;9002226.02101,"992,63874-1155-03 ",.01)
 ;;63874-1155-03
 ;;9002226.02101,"992,63874-1155-03 ",.02)
 ;;63874-1155-03
 ;;9002226.02101,"992,63874-1157-03 ",.01)
 ;;63874-1157-03
 ;;9002226.02101,"992,63874-1157-03 ",.02)
 ;;63874-1157-03
 ;;9002226.02101,"992,63874-1158-03 ",.01)
 ;;63874-1158-03
 ;;9002226.02101,"992,63874-1158-03 ",.02)
 ;;63874-1158-03
 ;;9002226.02101,"992,63874-1253-03 ",.01)
 ;;63874-1253-03
 ;;9002226.02101,"992,63874-1253-03 ",.02)
 ;;63874-1253-03
 ;;9002226.02101,"992,64455-0730-30 ",.01)
 ;;64455-0730-30
 ;;9002226.02101,"992,64455-0730-30 ",.02)
 ;;64455-0730-30
 ;;9002226.02101,"992,64455-0730-90 ",.01)
 ;;64455-0730-90
 ;;9002226.02101,"992,64455-0730-90 ",.02)
 ;;64455-0730-90
 ;;9002226.02101,"992,64455-0731-30 ",.01)
 ;;64455-0731-30
 ;;9002226.02101,"992,64455-0731-30 ",.02)
 ;;64455-0731-30
 ;;9002226.02101,"992,64679-0559-01 ",.01)
 ;;64679-0559-01
 ;;9002226.02101,"992,64679-0559-01 ",.02)
 ;;64679-0559-01
 ;;9002226.02101,"992,64679-0560-01 ",.01)
 ;;64679-0560-01
 ;;9002226.02101,"992,64679-0560-01 ",.02)
 ;;64679-0560-01
 ;;9002226.02101,"992,64679-0561-01 ",.01)
 ;;64679-0561-01
 ;;9002226.02101,"992,64679-0561-01 ",.02)
 ;;64679-0561-01
 ;;9002226.02101,"992,64679-0752-01 ",.01)
 ;;64679-0752-01
 ;;9002226.02101,"992,64679-0752-01 ",.02)
 ;;64679-0752-01
 ;;9002226.02101,"992,64679-0752-04 ",.01)
 ;;64679-0752-04
 ;;9002226.02101,"992,64679-0752-04 ",.02)
 ;;64679-0752-04
 ;;9002226.02101,"992,64679-0752-07 ",.01)
 ;;64679-0752-07
 ;;9002226.02101,"992,64679-0752-07 ",.02)
 ;;64679-0752-07
 ;;9002226.02101,"992,64679-0753-01 ",.01)
 ;;64679-0753-01
 ;;9002226.02101,"992,64679-0753-01 ",.02)
 ;;64679-0753-01
 ;;9002226.02101,"992,64679-0753-04 ",.01)
 ;;64679-0753-04
 ;;9002226.02101,"992,64679-0753-04 ",.02)
 ;;64679-0753-04
 ;;9002226.02101,"992,64679-0753-07 ",.01)
 ;;64679-0753-07
 ;;9002226.02101,"992,64679-0753-07 ",.02)
 ;;64679-0753-07
 ;;9002226.02101,"992,64679-0969-14 ",.01)
 ;;64679-0969-14
 ;;9002226.02101,"992,64679-0969-14 ",.02)
 ;;64679-0969-14
 ;;9002226.02101,"992,64679-0970-11 ",.01)
 ;;64679-0970-11
 ;;9002226.02101,"992,64679-0970-11 ",.02)
 ;;64679-0970-11
 ;;9002226.02101,"992,64679-0970-14 ",.01)
 ;;64679-0970-14
 ;;9002226.02101,"992,64679-0970-14 ",.02)
 ;;64679-0970-14
 ;;9002226.02101,"992,64679-0971-14 ",.01)
 ;;64679-0971-14
 ;;9002226.02101,"992,64679-0971-14 ",.02)
 ;;64679-0971-14
 ;;9002226.02101,"992,64720-0170-03 ",.01)
 ;;64720-0170-03
 ;;9002226.02101,"992,64720-0170-03 ",.02)
 ;;64720-0170-03
 ;;9002226.02101,"992,64720-0170-10 ",.01)
 ;;64720-0170-10
 ;;9002226.02101,"992,64720-0170-10 ",.02)
 ;;64720-0170-10
 ;;9002226.02101,"992,64720-0171-03 ",.01)
 ;;64720-0171-03
 ;;9002226.02101,"992,64720-0171-03 ",.02)
 ;;64720-0171-03
 ;;9002226.02101,"992,64720-0171-10 ",.01)
 ;;64720-0171-10
 ;;9002226.02101,"992,64720-0171-10 ",.02)
 ;;64720-0171-10
 ;;9002226.02101,"992,64720-0171-11 ",.01)
 ;;64720-0171-11
 ;;9002226.02101,"992,64720-0171-11 ",.02)
 ;;64720-0171-11
 ;;9002226.02101,"992,64720-0172-03 ",.01)
 ;;64720-0172-03
 ;;9002226.02101,"992,64720-0172-03 ",.02)
 ;;64720-0172-03
 ;;9002226.02101,"992,64720-0172-10 ",.01)
 ;;64720-0172-10
 ;;9002226.02101,"992,64720-0172-10 ",.02)
 ;;64720-0172-10
 ;;9002226.02101,"992,64720-0172-11 ",.01)
 ;;64720-0172-11
 ;;9002226.02101,"992,64720-0172-11 ",.02)
 ;;64720-0172-11
 ;;9002226.02101,"992,64803-0032-01 ",.01)
 ;;64803-0032-01
 ;;9002226.02101,"992,64803-0032-01 ",.02)
 ;;64803-0032-01
 ;;9002226.02101,"992,64980-0158-01 ",.01)
 ;;64980-0158-01
 ;;9002226.02101,"992,64980-0158-01 ",.02)
 ;;64980-0158-01
 ;;9002226.02101,"992,64980-0159-01 ",.01)
 ;;64980-0159-01
 ;;9002226.02101,"992,64980-0159-01 ",.02)
 ;;64980-0159-01
 ;;9002226.02101,"992,65084-0414-13 ",.01)
 ;;65084-0414-13
 ;;9002226.02101,"992,65084-0414-13 ",.02)
 ;;65084-0414-13
 ;;9002226.02101,"992,65162-0052-10 ",.01)
 ;;65162-0052-10
 ;;9002226.02101,"992,65162-0052-10 ",.02)
 ;;65162-0052-10
 ;;9002226.02101,"992,65162-0052-50 ",.01)
 ;;65162-0052-50
 ;;9002226.02101,"992,65162-0052-50 ",.02)
 ;;65162-0052-50
 ;;9002226.02101,"992,65162-0053-10 ",.01)
 ;;65162-0053-10
 ;;9002226.02101,"992,65162-0053-10 ",.02)
 ;;65162-0053-10
 ;;9002226.02101,"992,65162-0053-50 ",.01)
 ;;65162-0053-50
 ;;9002226.02101,"992,65162-0053-50 ",.02)
 ;;65162-0053-50
 ;;9002226.02101,"992,65162-0054-03 ",.01)
 ;;65162-0054-03
 ;;9002226.02101,"992,65162-0054-03 ",.02)
 ;;65162-0054-03
 ;;9002226.02101,"992,65162-0054-10 ",.01)
 ;;65162-0054-10
 ;;9002226.02101,"992,65162-0054-10 ",.02)
 ;;65162-0054-10
 ;;9002226.02101,"992,65162-0054-50 ",.01)
 ;;65162-0054-50
 ;;9002226.02101,"992,65162-0054-50 ",.02)
 ;;65162-0054-50
 ;;9002226.02101,"992,65243-0006-03 ",.01)
 ;;65243-0006-03
 ;;9002226.02101,"992,65243-0006-03 ",.02)
 ;;65243-0006-03
 ;;9002226.02101,"992,65243-0063-03 ",.01)
 ;;65243-0063-03
 ;;9002226.02101,"992,65243-0063-03 ",.02)
 ;;65243-0063-03
 ;;9002226.02101,"992,65243-0310-03 ",.01)
 ;;65243-0310-03
 ;;9002226.02101,"992,65243-0310-03 ",.02)
 ;;65243-0310-03
 ;;9002226.02101,"992,65243-0319-03 ",.01)
 ;;65243-0319-03
 ;;9002226.02101,"992,65243-0319-03 ",.02)
 ;;65243-0319-03
 ;;9002226.02101,"992,65243-0327-03 ",.01)
 ;;65243-0327-03
 ;;9002226.02101,"992,65243-0327-03 ",.02)
 ;;65243-0327-03
 ;;9002226.02101,"992,65473-0701-01 ",.01)
 ;;65473-0701-01
 ;;9002226.02101,"992,65473-0701-01 ",.02)
 ;;65473-0701-01
 ;;9002226.02101,"992,65473-0702-01 ",.01)
 ;;65473-0702-01
 ;;9002226.02101,"992,65473-0702-01 ",.02)
 ;;65473-0702-01
 ;;9002226.02101,"992,65473-0718-01 ",.01)
 ;;65473-0718-01
 ;;9002226.02101,"992,65473-0718-01 ",.02)
 ;;65473-0718-01
 ;;9002226.02101,"992,65473-0719-01 ",.01)
 ;;65473-0719-01
 ;;9002226.02101,"992,65473-0719-01 ",.02)
 ;;65473-0719-01
 ;;9002226.02101,"992,65473-0720-01 ",.01)
 ;;65473-0720-01
 ;;9002226.02101,"992,65473-0720-01 ",.02)
 ;;65473-0720-01
 ;;9002226.02101,"992,65580-0301-03 ",.01)
 ;;65580-0301-03
 ;;9002226.02101,"992,65580-0301-03 ",.02)
 ;;65580-0301-03
 ;;9002226.02101,"992,65580-0301-09 ",.01)
 ;;65580-0301-09
 ;;9002226.02101,"992,65580-0301-09 ",.02)
 ;;65580-0301-09
 ;;9002226.02101,"992,65580-0302-03 ",.01)
 ;;65580-0302-03
 ;;9002226.02101,"992,65580-0302-03 ",.02)
 ;;65580-0302-03
 ;;9002226.02101,"992,65580-0302-09 ",.01)
 ;;65580-0302-09
 ;;9002226.02101,"992,65580-0302-09 ",.02)
 ;;65580-0302-09
 ;;9002226.02101,"992,65580-0303-03 ",.01)
 ;;65580-0303-03
 ;;9002226.02101,"992,65580-0303-03 ",.02)
 ;;65580-0303-03
 ;;9002226.02101,"992,65580-0303-09 ",.01)
 ;;65580-0303-09
 ;;9002226.02101,"992,65580-0303-09 ",.02)
 ;;65580-0303-09
 ;;9002226.02101,"992,65580-0304-03 ",.01)
 ;;65580-0304-03
 ;;9002226.02101,"992,65580-0304-03 ",.02)
 ;;65580-0304-03
 ;;9002226.02101,"992,65580-0304-09 ",.01)
 ;;65580-0304-09
 ;;9002226.02101,"992,65580-0304-09 ",.02)
 ;;65580-0304-09
 ;;9002226.02101,"992,65862-0001-01 ",.01)
 ;;65862-0001-01
 ;;9002226.02101,"992,65862-0001-01 ",.02)
 ;;65862-0001-01
 ;;9002226.02101,"992,65862-0001-05 ",.01)
 ;;65862-0001-05
 ;;9002226.02101,"992,65862-0001-05 ",.02)
 ;;65862-0001-05
 ;;9002226.02101,"992,65862-0001-30 ",.01)
 ;;65862-0001-30
 ;;9002226.02101,"992,65862-0001-30 ",.02)
 ;;65862-0001-30
 ;;9002226.02101,"992,65862-0003-01 ",.01)
 ;;65862-0003-01
 ;;9002226.02101,"992,65862-0003-01 ",.02)
 ;;65862-0003-01
 ;;9002226.02101,"992,65862-0003-03 ",.01)
 ;;65862-0003-03
 ;;9002226.02101,"992,65862-0003-03 ",.02)
 ;;65862-0003-03
 ;;9002226.02101,"992,65862-0003-05 ",.01)
 ;;65862-0003-05
 ;;9002226.02101,"992,65862-0003-05 ",.02)
 ;;65862-0003-05
 ;;9002226.02101,"992,65862-0003-30 ",.01)
 ;;65862-0003-30
 ;;9002226.02101,"992,65862-0003-30 ",.02)
 ;;65862-0003-30
 ;;9002226.02101,"992,65862-0003-90 ",.01)
 ;;65862-0003-90
 ;;9002226.02101,"992,65862-0003-90 ",.02)
 ;;65862-0003-90
 ;;9002226.02101,"992,65862-0005-01 ",.01)
 ;;65862-0005-01
 ;;9002226.02101,"992,65862-0005-01 ",.02)
 ;;65862-0005-01
 ;;9002226.02101,"992,65862-0005-05 ",.01)
 ;;65862-0005-05
 ;;9002226.02101,"992,65862-0005-05 ",.02)
 ;;65862-0005-05
 ;;9002226.02101,"992,65862-0005-30 ",.01)
 ;;65862-0005-30
 ;;9002226.02101,"992,65862-0005-30 ",.02)
 ;;65862-0005-30
 ;;9002226.02101,"992,65862-0006-01 ",.01)
 ;;65862-0006-01
 ;;9002226.02101,"992,65862-0006-01 ",.02)
 ;;65862-0006-01
 ;;9002226.02101,"992,65862-0006-05 ",.01)
 ;;65862-0006-05
 ;;9002226.02101,"992,65862-0006-05 ",.02)
 ;;65862-0006-05
 ;;9002226.02101,"992,65862-0006-30 ",.01)
 ;;65862-0006-30
 ;;9002226.02101,"992,65862-0006-30 ",.02)
 ;;65862-0006-30
 ;;9002226.02101,"992,65862-0007-01 ",.01)
 ;;65862-0007-01
 ;;9002226.02101,"992,65862-0007-01 ",.02)
 ;;65862-0007-01
 ;;9002226.02101,"992,65862-0007-05 ",.01)
 ;;65862-0007-05
 ;;9002226.02101,"992,65862-0007-05 ",.02)
 ;;65862-0007-05
 ;;9002226.02101,"992,65862-0007-30 ",.01)
 ;;65862-0007-30
 ;;9002226.02101,"992,65862-0007-30 ",.02)
 ;;65862-0007-30
 ;;9002226.02101,"992,65862-0011-01 ",.01)
 ;;65862-0011-01
 ;;9002226.02101,"992,65862-0011-01 ",.02)
 ;;65862-0011-01
 ;;9002226.02101,"992,65862-0011-05 ",.01)
 ;;65862-0011-05
 ;;9002226.02101,"992,65862-0011-05 ",.02)
 ;;65862-0011-05
 ;;9002226.02101,"992,65862-0011-30 ",.01)
 ;;65862-0011-30
 ;;9002226.02101,"992,65862-0011-30 ",.02)
 ;;65862-0011-30
 ;;9002226.02101,"992,65862-0011-90 ",.01)
 ;;65862-0011-90
 ;;9002226.02101,"992,65862-0011-90 ",.02)
 ;;65862-0011-90
 ;;9002226.02101,"992,65862-0012-01 ",.01)
 ;;65862-0012-01
 ;;9002226.02101,"992,65862-0012-01 ",.02)
 ;;65862-0012-01
 ;;9002226.02101,"992,65862-0012-05 ",.01)
 ;;65862-0012-05
 ;;9002226.02101,"992,65862-0012-05 ",.02)
 ;;65862-0012-05
 ;;9002226.02101,"992,65862-0012-30 ",.01)
 ;;65862-0012-30
 ;;9002226.02101,"992,65862-0012-30 ",.02)
 ;;65862-0012-30
 ;;9002226.02101,"992,65862-0012-90 ",.01)
 ;;65862-0012-90
 ;;9002226.02101,"992,65862-0012-90 ",.02)
 ;;65862-0012-90
 ;;9002226.02101,"992,65862-0013-01 ",.01)
 ;;65862-0013-01
 ;;9002226.02101,"992,65862-0013-01 ",.02)
 ;;65862-0013-01
 ;;9002226.02101,"992,65862-0013-05 ",.01)
 ;;65862-0013-05
 ;;9002226.02101,"992,65862-0013-05 ",.02)
 ;;65862-0013-05