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

BGP8ZJ2.m

Go to the documentation of this file.
  1. BGP8ZJ2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"649,54868-0028-02 ",.02)
  1. ;;54868-0028-02
  1. ;;9002226.02101,"649,54868-0028-03 ",.01)
  1. ;;54868-0028-03
  1. ;;9002226.02101,"649,54868-0028-03 ",.02)
  1. ;;54868-0028-03
  1. ;;9002226.02101,"649,54868-0028-05 ",.01)
  1. ;;54868-0028-05
  1. ;;9002226.02101,"649,54868-0028-05 ",.02)
  1. ;;54868-0028-05
  1. ;;9002226.02101,"649,54868-0028-06 ",.01)
  1. ;;54868-0028-06
  1. ;;9002226.02101,"649,54868-0028-06 ",.02)
  1. ;;54868-0028-06
  1. ;;9002226.02101,"649,54868-0029-00 ",.01)
  1. ;;54868-0029-00
  1. ;;9002226.02101,"649,54868-0029-00 ",.02)
  1. ;;54868-0029-00
  1. ;;9002226.02101,"649,54868-0029-02 ",.01)
  1. ;;54868-0029-02
  1. ;;9002226.02101,"649,54868-0029-02 ",.02)
  1. ;;54868-0029-02
  1. ;;9002226.02101,"649,54868-0029-03 ",.01)
  1. ;;54868-0029-03
  1. ;;9002226.02101,"649,54868-0029-03 ",.02)
  1. ;;54868-0029-03
  1. ;;9002226.02101,"649,54868-0029-05 ",.01)
  1. ;;54868-0029-05
  1. ;;9002226.02101,"649,54868-0029-05 ",.02)
  1. ;;54868-0029-05
  1. ;;9002226.02101,"649,54868-0029-06 ",.01)
  1. ;;54868-0029-06
  1. ;;9002226.02101,"649,54868-0029-06 ",.02)
  1. ;;54868-0029-06
  1. ;;9002226.02101,"649,54868-0029-07 ",.01)
  1. ;;54868-0029-07
  1. ;;9002226.02101,"649,54868-0029-07 ",.02)
  1. ;;54868-0029-07
  1. ;;9002226.02101,"649,54868-1461-01 ",.01)
  1. ;;54868-1461-01
  1. ;;9002226.02101,"649,54868-1461-01 ",.02)
  1. ;;54868-1461-01
  1. ;;9002226.02101,"649,54868-1461-02 ",.01)
  1. ;;54868-1461-02
  1. ;;9002226.02101,"649,54868-1461-02 ",.02)
  1. ;;54868-1461-02
  1. ;;9002226.02101,"649,54868-2710-00 ",.01)
  1. ;;54868-2710-00
  1. ;;9002226.02101,"649,54868-2710-00 ",.02)
  1. ;;54868-2710-00
  1. ;;9002226.02101,"649,54868-2710-01 ",.01)
  1. ;;54868-2710-01
  1. ;;9002226.02101,"649,54868-2710-01 ",.02)
  1. ;;54868-2710-01
  1. ;;9002226.02101,"649,55045-3768-08 ",.01)
  1. ;;55045-3768-08
  1. ;;9002226.02101,"649,55045-3768-08 ",.02)
  1. ;;55045-3768-08
  1. ;;9002226.02101,"649,55887-0847-60 ",.01)
  1. ;;55887-0847-60
  1. ;;9002226.02101,"649,55887-0847-60 ",.02)
  1. ;;55887-0847-60
  1. ;;9002226.02101,"649,55887-0847-90 ",.01)
  1. ;;55887-0847-90
  1. ;;9002226.02101,"649,55887-0847-90 ",.02)
  1. ;;55887-0847-90
  1. ;;9002226.02101,"649,59310-0610-31 ",.01)
  1. ;;59310-0610-31
  1. ;;9002226.02101,"649,59310-0610-31 ",.02)
  1. ;;59310-0610-31
  1. ;;9002226.02101,"649,62332-0025-31 ",.01)
  1. ;;62332-0025-31
  1. ;;9002226.02101,"649,62332-0025-31 ",.02)
  1. ;;62332-0025-31
  1. ;;9002226.02101,"649,62332-0026-31 ",.01)
  1. ;;62332-0026-31
  1. ;;9002226.02101,"649,62332-0026-31 ",.02)
  1. ;;62332-0026-31
  1. ;;9002226.02101,"649,63629-2792-01 ",.01)
  1. ;;63629-2792-01
  1. ;;9002226.02101,"649,63629-2792-01 ",.02)
  1. ;;63629-2792-01
  1. ;;9002226.02101,"649,63629-2792-02 ",.01)
  1. ;;63629-2792-02
  1. ;;9002226.02101,"649,63629-2792-02 ",.02)
  1. ;;63629-2792-02
  1. ;;9002226.02101,"649,63629-3551-01 ",.01)
  1. ;;63629-3551-01
  1. ;;9002226.02101,"649,63629-3551-01 ",.02)
  1. ;;63629-3551-01
  1. ;;9002226.02101,"649,63874-0443-01 ",.01)
  1. ;;63874-0443-01
  1. ;;9002226.02101,"649,63874-0443-01 ",.02)
  1. ;;63874-0443-01
  1. ;;9002226.02101,"649,63874-0443-15 ",.01)
  1. ;;63874-0443-15
  1. ;;9002226.02101,"649,63874-0443-15 ",.02)
  1. ;;63874-0443-15
  1. ;;9002226.02101,"649,63874-0443-20 ",.01)
  1. ;;63874-0443-20
  1. ;;9002226.02101,"649,63874-0443-20 ",.02)
  1. ;;63874-0443-20
  1. ;;9002226.02101,"649,63874-0443-30 ",.01)
  1. ;;63874-0443-30
  1. ;;9002226.02101,"649,63874-0443-30 ",.02)
  1. ;;63874-0443-30
  1. ;;9002226.02101,"649,63874-0447-01 ",.01)
  1. ;;63874-0447-01
  1. ;;9002226.02101,"649,63874-0447-01 ",.02)
  1. ;;63874-0447-01
  1. ;;9002226.02101,"649,63874-0447-15 ",.01)
  1. ;;63874-0447-15
  1. ;;9002226.02101,"649,63874-0447-15 ",.02)
  1. ;;63874-0447-15
  1. ;;9002226.02101,"649,63874-0447-20 ",.01)
  1. ;;63874-0447-20
  1. ;;9002226.02101,"649,63874-0447-20 ",.02)
  1. ;;63874-0447-20
  1. ;;9002226.02101,"649,63874-0447-30 ",.01)
  1. ;;63874-0447-30
  1. ;;9002226.02101,"649,63874-0447-30 ",.02)
  1. ;;63874-0447-30
  1. ;;9002226.02101,"649,63874-0447-60 ",.01)
  1. ;;63874-0447-60
  1. ;;9002226.02101,"649,63874-0447-60 ",.02)
  1. ;;63874-0447-60
  1. ;;9002226.02101,"649,63874-0675-01 ",.01)
  1. ;;63874-0675-01
  1. ;;9002226.02101,"649,63874-0675-01 ",.02)
  1. ;;63874-0675-01
  1. ;;9002226.02101,"649,63874-0675-15 ",.01)
  1. ;;63874-0675-15
  1. ;;9002226.02101,"649,63874-0675-15 ",.02)
  1. ;;63874-0675-15
  1. ;;9002226.02101,"649,63874-0675-20 ",.01)
  1. ;;63874-0675-20
  1. ;;9002226.02101,"649,63874-0675-20 ",.02)
  1. ;;63874-0675-20
  1. ;;9002226.02101,"649,64661-0814-16 ",.01)
  1. ;;64661-0814-16
  1. ;;9002226.02101,"649,64661-0814-16 ",.02)
  1. ;;64661-0814-16
  1. ;;9002226.02101,"649,65162-0324-11 ",.01)
  1. ;;65162-0324-11
  1. ;;9002226.02101,"649,65162-0324-11 ",.02)
  1. ;;65162-0324-11
  1. ;;9002226.02101,"649,65162-0335-10 ",.01)
  1. ;;65162-0335-10
  1. ;;9002226.02101,"649,65162-0335-10 ",.02)
  1. ;;65162-0335-10
  1. ;;9002226.02101,"649,68462-0356-01 ",.01)
  1. ;;68462-0356-01
  1. ;;9002226.02101,"649,68462-0356-01 ",.02)
  1. ;;68462-0356-01
  1. ;;9002226.02101,"649,68462-0380-01 ",.01)
  1. ;;68462-0380-01
  1. ;;9002226.02101,"649,68462-0380-01 ",.02)
  1. ;;68462-0380-01
  1. ;;9002226.02101,"649,70408-0644-34 ",.01)
  1. ;;70408-0644-34
  1. ;;9002226.02101,"649,70408-0644-34 ",.02)
  1. ;;70408-0644-34
  1. ;;9002226.04101,"649,1",.01)
  1. ;;APSA
  1. ;;9002226.04101,"649,2",.01)
  1. ;;BGP
  1. ;;9002226.04101,"649,3",.01)
  1. ;;BGP