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

BGP06A54.m

Go to the documentation of this file.
BGP06A54 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"974,55370-0884-08 ",.01)
 ;;55370-0884-08
 ;;9002226.02101,"974,55370-0884-08 ",.02)
 ;;55370-0884-08
 ;;9002226.02101,"974,55370-0885-07 ",.01)
 ;;55370-0885-07
 ;;9002226.02101,"974,55370-0885-07 ",.02)
 ;;55370-0885-07
 ;;9002226.02101,"974,55370-0885-08 ",.01)
 ;;55370-0885-08
 ;;9002226.02101,"974,55370-0885-08 ",.02)
 ;;55370-0885-08
 ;;9002226.02101,"974,55370-0886-13 ",.01)
 ;;55370-0886-13
 ;;9002226.02101,"974,55370-0886-13 ",.02)
 ;;55370-0886-13
 ;;9002226.02101,"974,55370-0886-14 ",.01)
 ;;55370-0886-14
 ;;9002226.02101,"974,55370-0886-14 ",.02)
 ;;55370-0886-14
 ;;9002226.02101,"974,55370-0886-80 ",.01)
 ;;55370-0886-80
 ;;9002226.02101,"974,55370-0886-80 ",.02)
 ;;55370-0886-80
 ;;9002226.02101,"974,55370-0887-13 ",.01)
 ;;55370-0887-13
 ;;9002226.02101,"974,55370-0887-13 ",.02)
 ;;55370-0887-13
 ;;9002226.02101,"974,55370-0887-14 ",.01)
 ;;55370-0887-14
 ;;9002226.02101,"974,55370-0887-14 ",.02)
 ;;55370-0887-14
 ;;9002226.02101,"974,55370-0887-80 ",.01)
 ;;55370-0887-80
 ;;9002226.02101,"974,55370-0887-80 ",.02)
 ;;55370-0887-80
 ;;9002226.02101,"974,55370-0892-07 ",.01)
 ;;55370-0892-07
 ;;9002226.02101,"974,55370-0892-07 ",.02)
 ;;55370-0892-07
 ;;9002226.02101,"974,55370-0892-08 ",.01)
 ;;55370-0892-08
 ;;9002226.02101,"974,55370-0892-08 ",.02)
 ;;55370-0892-08
 ;;9002226.02101,"974,55370-0894-07 ",.01)
 ;;55370-0894-07
 ;;9002226.02101,"974,55370-0894-07 ",.02)
 ;;55370-0894-07
 ;;9002226.02101,"974,55370-0895-07 ",.01)
 ;;55370-0895-07
 ;;9002226.02101,"974,55370-0895-07 ",.02)
 ;;55370-0895-07
 ;;9002226.02101,"974,55370-0896-14 ",.01)
 ;;55370-0896-14
 ;;9002226.02101,"974,55370-0896-14 ",.02)
 ;;55370-0896-14
 ;;9002226.02101,"974,55370-0896-75 ",.01)
 ;;55370-0896-75
 ;;9002226.02101,"974,55370-0896-75 ",.02)
 ;;55370-0896-75
 ;;9002226.02101,"974,55370-0897-14 ",.01)
 ;;55370-0897-14
 ;;9002226.02101,"974,55370-0897-14 ",.02)
 ;;55370-0897-14
 ;;9002226.02101,"974,55370-0897-75 ",.01)
 ;;55370-0897-75
 ;;9002226.02101,"974,55370-0897-75 ",.02)
 ;;55370-0897-75
 ;;9002226.02101,"974,55370-0898-13 ",.01)
 ;;55370-0898-13
 ;;9002226.02101,"974,55370-0898-13 ",.02)
 ;;55370-0898-13
 ;;9002226.02101,"974,55370-0898-21 ",.01)
 ;;55370-0898-21
 ;;9002226.02101,"974,55370-0898-21 ",.02)
 ;;55370-0898-21
 ;;9002226.02101,"974,55370-0899-13 ",.01)
 ;;55370-0899-13
 ;;9002226.02101,"974,55370-0899-13 ",.02)
 ;;55370-0899-13
 ;;9002226.02101,"974,55370-0899-21 ",.01)
 ;;55370-0899-21
 ;;9002226.02101,"974,55370-0899-21 ",.02)
 ;;55370-0899-21
 ;;9002226.02101,"974,55370-0900-07 ",.01)
 ;;55370-0900-07
 ;;9002226.02101,"974,55370-0900-07 ",.02)
 ;;55370-0900-07
 ;;9002226.02101,"974,55370-0900-08 ",.01)
 ;;55370-0900-08
 ;;9002226.02101,"974,55370-0900-08 ",.02)
 ;;55370-0900-08
 ;;9002226.02101,"974,55370-0901-07 ",.01)
 ;;55370-0901-07
 ;;9002226.02101,"974,55370-0901-07 ",.02)
 ;;55370-0901-07
 ;;9002226.02101,"974,55370-0901-08 ",.01)
 ;;55370-0901-08
 ;;9002226.02101,"974,55370-0901-08 ",.02)
 ;;55370-0901-08
 ;;9002226.02101,"974,55370-0902-13 ",.01)
 ;;55370-0902-13
 ;;9002226.02101,"974,55370-0902-13 ",.02)
 ;;55370-0902-13
 ;;9002226.02101,"974,55370-0902-40 ",.01)
 ;;55370-0902-40
 ;;9002226.02101,"974,55370-0902-40 ",.02)
 ;;55370-0902-40
 ;;9002226.02101,"974,55370-0903-13 ",.01)
 ;;55370-0903-13
 ;;9002226.02101,"974,55370-0903-13 ",.02)
 ;;55370-0903-13
 ;;9002226.02101,"974,55370-0903-40 ",.01)
 ;;55370-0903-40
 ;;9002226.02101,"974,55370-0903-40 ",.02)
 ;;55370-0903-40
 ;;9002226.02101,"974,55390-0109-01 ",.01)
 ;;55390-0109-01
 ;;9002226.02101,"974,55390-0109-01 ",.02)
 ;;55390-0109-01
 ;;9002226.02101,"974,55390-0110-10 ",.01)
 ;;55390-0110-10
 ;;9002226.02101,"974,55390-0110-10 ",.02)
 ;;55390-0110-10
 ;;9002226.02101,"974,55390-0197-01 ",.01)
 ;;55390-0197-01
 ;;9002226.02101,"974,55390-0197-01 ",.02)
 ;;55390-0197-01
 ;;9002226.02101,"974,55390-0198-01 ",.01)
 ;;55390-0198-01
 ;;9002226.02101,"974,55390-0198-01 ",.02)
 ;;55390-0198-01
 ;;9002226.02101,"974,55515-0259-04 ",.01)
 ;;55515-0259-04
 ;;9002226.02101,"974,55515-0259-04 ",.02)
 ;;55515-0259-04
 ;;9002226.02101,"974,55515-0259-07 ",.01)
 ;;55515-0259-07
 ;;9002226.02101,"974,55515-0259-07 ",.02)
 ;;55515-0259-07
 ;;9002226.02101,"974,55515-0260-06 ",.01)
 ;;55515-0260-06
 ;;9002226.02101,"974,55515-0260-06 ",.02)
 ;;55515-0260-06
 ;;9002226.02101,"974,55829-0485-10 ",.01)
 ;;55829-0485-10
 ;;9002226.02101,"974,55829-0485-10 ",.02)
 ;;55829-0485-10
 ;;9002226.02101,"974,55829-0486-10 ",.01)
 ;;55829-0486-10
 ;;9002226.02101,"974,55829-0486-10 ",.02)
 ;;55829-0486-10
 ;;9002226.02101,"974,55829-0662-10 ",.01)
 ;;55829-0662-10
 ;;9002226.02101,"974,55829-0662-10 ",.02)
 ;;55829-0662-10
 ;;9002226.02101,"974,55829-0696-10 ",.01)
 ;;55829-0696-10
 ;;9002226.02101,"974,55829-0696-10 ",.02)
 ;;55829-0696-10
 ;;9002226.02101,"974,55829-0697-10 ",.01)
 ;;55829-0697-10
 ;;9002226.02101,"974,55829-0697-10 ",.02)
 ;;55829-0697-10
 ;;9002226.02101,"974,55887-0332-30 ",.01)
 ;;55887-0332-30
 ;;9002226.02101,"974,55887-0332-30 ",.02)
 ;;55887-0332-30
 ;;9002226.02101,"974,55887-0375-03 ",.01)
 ;;55887-0375-03
 ;;9002226.02101,"974,55887-0375-03 ",.02)
 ;;55887-0375-03
 ;;9002226.02101,"974,55887-0375-06 ",.01)
 ;;55887-0375-06
 ;;9002226.02101,"974,55887-0375-06 ",.02)
 ;;55887-0375-06
 ;;9002226.02101,"974,55887-0375-20 ",.01)
 ;;55887-0375-20
 ;;9002226.02101,"974,55887-0375-20 ",.02)
 ;;55887-0375-20
 ;;9002226.02101,"974,55887-0375-30 ",.01)
 ;;55887-0375-30
 ;;9002226.02101,"974,55887-0375-30 ",.02)
 ;;55887-0375-30
 ;;9002226.02101,"974,55887-0622-09 ",.01)
 ;;55887-0622-09
 ;;9002226.02101,"974,55887-0622-09 ",.02)
 ;;55887-0622-09
 ;;9002226.02101,"974,55887-0622-20 ",.01)
 ;;55887-0622-20
 ;;9002226.02101,"974,55887-0622-20 ",.02)
 ;;55887-0622-20
 ;;9002226.02101,"974,55887-0622-21 ",.01)
 ;;55887-0622-21
 ;;9002226.02101,"974,55887-0622-21 ",.02)
 ;;55887-0622-21
 ;;9002226.02101,"974,55887-0622-30 ",.01)
 ;;55887-0622-30
 ;;9002226.02101,"974,55887-0622-30 ",.02)
 ;;55887-0622-30
 ;;9002226.02101,"974,55887-0622-40 ",.01)
 ;;55887-0622-40
 ;;9002226.02101,"974,55887-0622-40 ",.02)
 ;;55887-0622-40
 ;;9002226.02101,"974,55887-0704-14 ",.01)
 ;;55887-0704-14
 ;;9002226.02101,"974,55887-0704-14 ",.02)
 ;;55887-0704-14
 ;;9002226.02101,"974,55887-0704-20 ",.01)
 ;;55887-0704-20
 ;;9002226.02101,"974,55887-0704-20 ",.02)
 ;;55887-0704-20
 ;;9002226.02101,"974,55887-0704-28 ",.01)
 ;;55887-0704-28
 ;;9002226.02101,"974,55887-0704-28 ",.02)
 ;;55887-0704-28
 ;;9002226.02101,"974,55887-0704-30 ",.01)
 ;;55887-0704-30
 ;;9002226.02101,"974,55887-0704-30 ",.02)
 ;;55887-0704-30
 ;;9002226.02101,"974,55887-0704-40 ",.01)
 ;;55887-0704-40
 ;;9002226.02101,"974,55887-0704-40 ",.02)
 ;;55887-0704-40
 ;;9002226.02101,"974,55887-0746-20 ",.01)
 ;;55887-0746-20
 ;;9002226.02101,"974,55887-0746-20 ",.02)
 ;;55887-0746-20
 ;;9002226.02101,"974,55887-0746-56 ",.01)
 ;;55887-0746-56
 ;;9002226.02101,"974,55887-0746-56 ",.02)
 ;;55887-0746-56
 ;;9002226.02101,"974,55887-0747-20 ",.01)
 ;;55887-0747-20
 ;;9002226.02101,"974,55887-0747-20 ",.02)
 ;;55887-0747-20
 ;;9002226.02101,"974,55887-0790-15 ",.01)
 ;;55887-0790-15
 ;;9002226.02101,"974,55887-0790-15 ",.02)
 ;;55887-0790-15
 ;;9002226.02101,"974,55887-0790-20 ",.01)
 ;;55887-0790-20
 ;;9002226.02101,"974,55887-0790-20 ",.02)
 ;;55887-0790-20
 ;;9002226.02101,"974,55887-0790-30 ",.01)
 ;;55887-0790-30
 ;;9002226.02101,"974,55887-0790-30 ",.02)
 ;;55887-0790-30
 ;;9002226.02101,"974,55887-0830-20 ",.01)
 ;;55887-0830-20
 ;;9002226.02101,"974,55887-0830-20 ",.02)
 ;;55887-0830-20
 ;;9002226.02101,"974,55887-0830-28 ",.01)
 ;;55887-0830-28
 ;;9002226.02101,"974,55887-0830-28 ",.02)
 ;;55887-0830-28
 ;;9002226.02101,"974,55887-0830-30 ",.01)
 ;;55887-0830-30
 ;;9002226.02101,"974,55887-0830-30 ",.02)
 ;;55887-0830-30
 ;;9002226.02101,"974,55887-0830-40 ",.01)
 ;;55887-0830-40
 ;;9002226.02101,"974,55887-0830-40 ",.02)
 ;;55887-0830-40
 ;;9002226.02101,"974,55887-0849-28 ",.01)
 ;;55887-0849-28
 ;;9002226.02101,"974,55887-0849-28 ",.02)
 ;;55887-0849-28
 ;;9002226.02101,"974,55887-0849-30 ",.01)
 ;;55887-0849-30
 ;;9002226.02101,"974,55887-0849-30 ",.02)
 ;;55887-0849-30
 ;;9002226.02101,"974,55887-0849-40 ",.01)
 ;;55887-0849-40
 ;;9002226.02101,"974,55887-0849-40 ",.02)
 ;;55887-0849-40
 ;;9002226.02101,"974,55887-0855-20 ",.01)
 ;;55887-0855-20
 ;;9002226.02101,"974,55887-0855-20 ",.02)
 ;;55887-0855-20
 ;;9002226.02101,"974,55887-0855-28 ",.01)
 ;;55887-0855-28
 ;;9002226.02101,"974,55887-0855-28 ",.02)
 ;;55887-0855-28
 ;;9002226.02101,"974,55887-0855-30 ",.01)
 ;;55887-0855-30
 ;;9002226.02101,"974,55887-0855-30 ",.02)
 ;;55887-0855-30
 ;;9002226.02101,"974,55887-0858-14 ",.01)
 ;;55887-0858-14
 ;;9002226.02101,"974,55887-0858-14 ",.02)
 ;;55887-0858-14
 ;;9002226.02101,"974,55887-0858-20 ",.01)
 ;;55887-0858-20
 ;;9002226.02101,"974,55887-0858-20 ",.02)
 ;;55887-0858-20
 ;;9002226.02101,"974,55887-0930-30 ",.01)
 ;;55887-0930-30
 ;;9002226.02101,"974,55887-0930-30 ",.02)
 ;;55887-0930-30
 ;;9002226.02101,"974,55887-0930-40 ",.01)
 ;;55887-0930-40
 ;;9002226.02101,"974,55887-0930-40 ",.02)
 ;;55887-0930-40
 ;;9002226.02101,"974,55887-0933-06 ",.01)
 ;;55887-0933-06
 ;;9002226.02101,"974,55887-0933-06 ",.02)
 ;;55887-0933-06
 ;;9002226.02101,"974,55887-0955-21 ",.01)
 ;;55887-0955-21
 ;;9002226.02101,"974,55887-0955-21 ",.02)
 ;;55887-0955-21
 ;;9002226.02101,"974,55887-0955-30 ",.01)
 ;;55887-0955-30
 ;;9002226.02101,"974,55887-0955-30 ",.02)
 ;;55887-0955-30
 ;;9002226.02101,"974,55887-0958-09 ",.01)
 ;;55887-0958-09
 ;;9002226.02101,"974,55887-0958-09 ",.02)
 ;;55887-0958-09
 ;;9002226.02101,"974,55887-0958-14 ",.01)
 ;;55887-0958-14
 ;;9002226.02101,"974,55887-0958-14 ",.02)
 ;;55887-0958-14
 ;;9002226.02101,"974,55887-0958-15 ",.01)
 ;;55887-0958-15
 ;;9002226.02101,"974,55887-0958-15 ",.02)
 ;;55887-0958-15
 ;;9002226.02101,"974,55887-0958-20 ",.01)
 ;;55887-0958-20
 ;;9002226.02101,"974,55887-0958-20 ",.02)
 ;;55887-0958-20
 ;;9002226.02101,"974,55887-0958-21 ",.01)
 ;;55887-0958-21
 ;;9002226.02101,"974,55887-0958-21 ",.02)
 ;;55887-0958-21
 ;;9002226.02101,"974,55887-0958-28 ",.01)
 ;;55887-0958-28
 ;;9002226.02101,"974,55887-0958-28 ",.02)
 ;;55887-0958-28
 ;;9002226.02101,"974,55887-0958-30 ",.01)
 ;;55887-0958-30
 ;;9002226.02101,"974,55887-0958-30 ",.02)
 ;;55887-0958-30
 ;;9002226.02101,"974,55887-0979-20 ",.01)
 ;;55887-0979-20
 ;;9002226.02101,"974,55887-0979-20 ",.02)
 ;;55887-0979-20
 ;;9002226.02101,"974,55887-0979-21 ",.01)
 ;;55887-0979-21
 ;;9002226.02101,"974,55887-0979-21 ",.02)
 ;;55887-0979-21
 ;;9002226.02101,"974,55887-0979-28 ",.01)
 ;;55887-0979-28
 ;;9002226.02101,"974,55887-0979-28 ",.02)
 ;;55887-0979-28
 ;;9002226.02101,"974,55887-0979-30 ",.01)
 ;;55887-0979-30
 ;;9002226.02101,"974,55887-0979-30 ",.02)
 ;;55887-0979-30
 ;;9002226.02101,"974,55887-0982-04 ",.01)
 ;;55887-0982-04
 ;;9002226.02101,"974,55887-0982-04 ",.02)
 ;;55887-0982-04
 ;;9002226.02101,"974,55887-0982-09 ",.01)
 ;;55887-0982-09
 ;;9002226.02101,"974,55887-0982-09 ",.02)
 ;;55887-0982-09
 ;;9002226.02101,"974,55887-0982-14 ",.01)
 ;;55887-0982-14
 ;;9002226.02101,"974,55887-0982-14 ",.02)
 ;;55887-0982-14
 ;;9002226.02101,"974,55887-0982-15 ",.01)
 ;;55887-0982-15
 ;;9002226.02101,"974,55887-0982-15 ",.02)
 ;;55887-0982-15
 ;;9002226.02101,"974,55887-0982-20 ",.01)
 ;;55887-0982-20
 ;;9002226.02101,"974,55887-0982-20 ",.02)
 ;;55887-0982-20
 ;;9002226.02101,"974,55887-0982-21 ",.01)
 ;;55887-0982-21
 ;;9002226.02101,"974,55887-0982-21 ",.02)
 ;;55887-0982-21
 ;;9002226.02101,"974,55887-0982-30 ",.01)
 ;;55887-0982-30
 ;;9002226.02101,"974,55887-0982-30 ",.02)
 ;;55887-0982-30
 ;;9002226.02101,"974,55887-0982-40 ",.01)
 ;;55887-0982-40
 ;;9002226.02101,"974,55887-0982-40 ",.02)
 ;;55887-0982-40
 ;;9002226.02101,"974,55887-0982-42 ",.01)
 ;;55887-0982-42
 ;;9002226.02101,"974,55887-0982-42 ",.02)
 ;;55887-0982-42
 ;;9002226.02101,"974,55887-0983-14 ",.01)
 ;;55887-0983-14
 ;;9002226.02101,"974,55887-0983-14 ",.02)
 ;;55887-0983-14
 ;;9002226.02101,"974,55887-0983-20 ",.01)
 ;;55887-0983-20
 ;;9002226.02101,"974,55887-0983-20 ",.02)
 ;;55887-0983-20
 ;;9002226.02101,"974,55887-0983-28 ",.01)
 ;;55887-0983-28
 ;;9002226.02101,"974,55887-0983-28 ",.02)
 ;;55887-0983-28
 ;;9002226.02101,"974,55887-0983-30 ",.01)
 ;;55887-0983-30
 ;;9002226.02101,"974,55887-0983-30 ",.02)
 ;;55887-0983-30
 ;;9002226.02101,"974,55887-0991-21 ",.01)
 ;;55887-0991-21
 ;;9002226.02101,"974,55887-0991-21 ",.02)
 ;;55887-0991-21
 ;;9002226.02101,"974,55887-0991-28 ",.01)
 ;;55887-0991-28
 ;;9002226.02101,"974,55887-0991-28 ",.02)
 ;;55887-0991-28
 ;;9002226.02101,"974,55887-0991-40 ",.01)
 ;;55887-0991-40
 ;;9002226.02101,"974,55887-0991-40 ",.02)
 ;;55887-0991-40
 ;;9002226.02101,"974,55887-0993-09 ",.01)
 ;;55887-0993-09
 ;;9002226.02101,"974,55887-0993-09 ",.02)
 ;;55887-0993-09
 ;;9002226.02101,"974,55887-0993-14 ",.01)
 ;;55887-0993-14
 ;;9002226.02101,"974,55887-0993-14 ",.02)
 ;;55887-0993-14
 ;;9002226.02101,"974,55887-0993-15 ",.01)
 ;;55887-0993-15
 ;;9002226.02101,"974,55887-0993-15 ",.02)
 ;;55887-0993-15
 ;;9002226.02101,"974,55887-0993-21 ",.01)
 ;;55887-0993-21
 ;;9002226.02101,"974,55887-0993-21 ",.02)
 ;;55887-0993-21
 ;;9002226.02101,"974,55887-0993-30 ",.01)
 ;;55887-0993-30
 ;;9002226.02101,"974,55887-0993-30 ",.02)
 ;;55887-0993-30