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

BGP8FXHB.m

Go to the documentation of this file.
BGP8FXHB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 2007
 ;
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,"627,00615-1516-10 ",.01)
 ;;00615-1516-10
 ;;9002226.02101,"627,00615-1516-10 ",.02)
 ;;00615-1516-10
 ;;9002226.02101,"627,00677-0341-01 ",.01)
 ;;00677-0341-01
 ;;9002226.02101,"627,00677-0341-01 ",.02)
 ;;00677-0341-01
 ;;9002226.02101,"627,00677-0498-01 ",.01)
 ;;00677-0498-01
 ;;9002226.02101,"627,00677-0498-01 ",.02)
 ;;00677-0498-01
 ;;9002226.02101,"627,00839-1545-06 ",.01)
 ;;00839-1545-06
 ;;9002226.02101,"627,00839-1545-06 ",.02)
 ;;00839-1545-06
 ;;9002226.02101,"627,00839-5100-06 ",.01)
 ;;00839-5100-06
 ;;9002226.02101,"627,00839-5100-06 ",.02)
 ;;00839-5100-06
 ;;9002226.02101,"627,00839-5100-16 ",.01)
 ;;00839-5100-16
 ;;9002226.02101,"627,00839-5100-16 ",.02)
 ;;00839-5100-16
 ;;9002226.02101,"627,00904-0193-60 ",.01)
 ;;00904-0193-60
 ;;9002226.02101,"627,00904-0193-60 ",.02)
 ;;00904-0193-60
 ;;9002226.02101,"627,00904-0193-61 ",.01)
 ;;00904-0193-61
 ;;9002226.02101,"627,00904-0193-61 ",.02)
 ;;00904-0193-61
 ;;9002226.02101,"627,00904-0193-70 ",.01)
 ;;00904-0193-70
 ;;9002226.02101,"627,00904-0193-70 ",.02)
 ;;00904-0193-70
 ;;9002226.02101,"627,00904-0193-80 ",.01)
 ;;00904-0193-80
 ;;9002226.02101,"627,00904-0193-80 ",.02)
 ;;00904-0193-80
 ;;9002226.02101,"627,00904-0195-60 ",.01)
 ;;00904-0195-60
 ;;9002226.02101,"627,00904-0195-60 ",.02)
 ;;00904-0195-60
 ;;9002226.02101,"627,00904-0195-61 ",.01)
 ;;00904-0195-61
 ;;9002226.02101,"627,00904-0195-61 ",.02)
 ;;00904-0195-61
 ;;9002226.02101,"627,00904-0195-70 ",.01)
 ;;00904-0195-70
 ;;9002226.02101,"627,00904-0195-70 ",.02)
 ;;00904-0195-70
 ;;9002226.02101,"627,00904-0195-80 ",.01)
 ;;00904-0195-80
 ;;9002226.02101,"627,00904-0195-80 ",.02)
 ;;00904-0195-80
 ;;9002226.02101,"627,00904-2344-40 ",.01)
 ;;00904-2344-40
 ;;9002226.02101,"627,00904-2344-40 ",.02)
 ;;00904-2344-40
 ;;9002226.02101,"627,00904-2344-60 ",.01)
 ;;00904-2344-60
 ;;9002226.02101,"627,00904-2344-60 ",.02)
 ;;00904-2344-60
 ;;9002226.02101,"627,00904-7896-60 ",.01)
 ;;00904-7896-60
 ;;9002226.02101,"627,00904-7896-60 ",.02)
 ;;00904-7896-60
 ;;9002226.02101,"627,00904-7896-80 ",.01)
 ;;00904-7896-80
 ;;9002226.02101,"627,00904-7896-80 ",.02)
 ;;00904-7896-80
 ;;9002226.02101,"627,49727-0054-05 ",.01)
 ;;49727-0054-05
 ;;9002226.02101,"627,49727-0054-05 ",.02)
 ;;49727-0054-05
 ;;9002226.02101,"627,49884-0118-01 ",.01)
 ;;49884-0118-01
 ;;9002226.02101,"627,49884-0118-01 ",.02)
 ;;49884-0118-01
 ;;9002226.02101,"627,49884-0118-05 ",.01)
 ;;49884-0118-05
 ;;9002226.02101,"627,49884-0118-05 ",.02)
 ;;49884-0118-05
 ;;9002226.02101,"627,51079-0118-20 ",.01)
 ;;51079-0118-20
 ;;9002226.02101,"627,51079-0118-20 ",.02)
 ;;51079-0118-20
 ;;9002226.02101,"627,51079-0119-20 ",.01)
 ;;51079-0119-20
 ;;9002226.02101,"627,51079-0119-20 ",.02)
 ;;51079-0119-20
 ;;9002226.02101,"627,52544-0794-01 ",.01)
 ;;52544-0794-01
 ;;9002226.02101,"627,52544-0794-01 ",.02)
 ;;52544-0794-01
 ;;9002226.02101,"627,52544-0794-10 ",.01)
 ;;52544-0794-10
 ;;9002226.02101,"627,52544-0794-10 ",.02)
 ;;52544-0794-10
 ;;9002226.02101,"627,52544-0795-01 ",.01)
 ;;52544-0795-01
 ;;9002226.02101,"627,52544-0795-01 ",.02)
 ;;52544-0795-01
 ;;9002226.02101,"627,52544-0795-10 ",.01)
 ;;52544-0795-10
 ;;9002226.02101,"627,52544-0795-10 ",.02)
 ;;52544-0795-10
 ;;9002226.02101,"627,52959-0168-30 ",.01)
 ;;52959-0168-30
 ;;9002226.02101,"627,52959-0168-30 ",.02)
 ;;52959-0168-30
 ;;9002226.02101,"627,52959-0221-20 ",.01)
 ;;52959-0221-20
 ;;9002226.02101,"627,52959-0221-20 ",.02)
 ;;52959-0221-20
 ;;9002226.02101,"627,52959-0221-30 ",.01)
 ;;52959-0221-30
 ;;9002226.02101,"627,52959-0221-30 ",.02)
 ;;52959-0221-30
 ;;9002226.02101,"627,52959-0390-30 ",.01)
 ;;52959-0390-30
 ;;9002226.02101,"627,52959-0390-30 ",.02)
 ;;52959-0390-30
 ;;9002226.02101,"627,54092-0073-01 ",.01)
 ;;54092-0073-01
 ;;9002226.02101,"627,54092-0073-01 ",.02)
 ;;54092-0073-01
 ;;9002226.02101,"627,54092-0074-01 ",.01)
 ;;54092-0074-01
 ;;9002226.02101,"627,54092-0074-01 ",.02)
 ;;54092-0074-01
 ;;9002226.02101,"627,54092-0074-05 ",.01)
 ;;54092-0074-05
 ;;9002226.02101,"627,54092-0074-05 ",.02)
 ;;54092-0074-05
 ;;9002226.02101,"627,54092-0074-52 ",.01)
 ;;54092-0074-52
 ;;9002226.02101,"627,54092-0074-52 ",.02)
 ;;54092-0074-52
 ;;9002226.02101,"627,54252-0110-01 ",.01)
 ;;54252-0110-01
 ;;9002226.02101,"627,54252-0110-01 ",.02)
 ;;54252-0110-01
 ;;9002226.02101,"627,54252-0111-01 ",.01)
 ;;54252-0111-01
 ;;9002226.02101,"627,54252-0111-01 ",.02)
 ;;54252-0111-01
 ;;9002226.02101,"627,54569-0417-00 ",.01)
 ;;54569-0417-00
 ;;9002226.02101,"627,54569-0417-00 ",.02)
 ;;54569-0417-00
 ;;9002226.02101,"627,54569-0417-02 ",.01)
 ;;54569-0417-02
 ;;9002226.02101,"627,54569-0417-02 ",.02)
 ;;54569-0417-02
 ;;9002226.02101,"627,54569-0417-03 ",.01)
 ;;54569-0417-03
 ;;9002226.02101,"627,54569-0417-03 ",.02)
 ;;54569-0417-03
 ;;9002226.02101,"627,54569-0417-04 ",.01)
 ;;54569-0417-04
 ;;9002226.02101,"627,54569-0417-04 ",.02)
 ;;54569-0417-04
 ;;9002226.02101,"627,54569-0417-06 ",.01)
 ;;54569-0417-06
 ;;9002226.02101,"627,54569-0417-06 ",.02)
 ;;54569-0417-06
 ;;9002226.02101,"627,54569-0417-07 ",.01)
 ;;54569-0417-07
 ;;9002226.02101,"627,54569-0417-07 ",.02)
 ;;54569-0417-07
 ;;9002226.02101,"627,54569-0418-00 ",.01)
 ;;54569-0418-00
 ;;9002226.02101,"627,54569-0418-00 ",.02)
 ;;54569-0418-00
 ;;9002226.02101,"627,54569-0419-00 ",.01)
 ;;54569-0419-00
 ;;9002226.02101,"627,54569-0419-00 ",.02)
 ;;54569-0419-00
 ;;9002226.02101,"627,54569-0419-02 ",.01)
 ;;54569-0419-02
 ;;9002226.02101,"627,54569-0419-02 ",.02)
 ;;54569-0419-02
 ;;9002226.02101,"627,54569-0419-04 ",.01)
 ;;54569-0419-04
 ;;9002226.02101,"627,54569-0419-04 ",.02)
 ;;54569-0419-04
 ;;9002226.02101,"627,54569-0419-07 ",.01)
 ;;54569-0419-07
 ;;9002226.02101,"627,54569-0419-07 ",.02)
 ;;54569-0419-07
 ;;9002226.02101,"627,54569-2046-00 ",.01)
 ;;54569-2046-00
 ;;9002226.02101,"627,54569-2046-00 ",.02)
 ;;54569-2046-00
 ;;9002226.02101,"627,54868-0392-01 ",.01)
 ;;54868-0392-01
 ;;9002226.02101,"627,54868-0392-01 ",.02)
 ;;54868-0392-01
 ;;9002226.02101,"627,54902-0073-01 ",.01)
 ;;54902-0073-01
 ;;9002226.02101,"627,54902-0073-01 ",.02)
 ;;54902-0073-01
 ;;9002226.02101,"627,54902-0074-01 ",.01)
 ;;54902-0074-01
 ;;9002226.02101,"627,54902-0074-01 ",.02)
 ;;54902-0074-01
 ;;9002226.02101,"627,54902-0074-05 ",.01)
 ;;54902-0074-05
 ;;9002226.02101,"627,54902-0074-05 ",.02)
 ;;54902-0074-05
 ;;9002226.02101,"627,54902-0074-52 ",.01)
 ;;54902-0074-52
 ;;9002226.02101,"627,54902-0074-52 ",.02)
 ;;54902-0074-52
 ;;9002226.02101,"627,55289-0095-17 ",.01)
 ;;55289-0095-17
 ;;9002226.02101,"627,55289-0095-17 ",.02)
 ;;55289-0095-17
 ;;9002226.02101,"627,55289-0095-20 ",.01)
 ;;55289-0095-20
 ;;9002226.02101,"627,55289-0095-20 ",.02)
 ;;55289-0095-20
 ;;9002226.02101,"627,55289-0095-30 ",.01)
 ;;55289-0095-30
 ;;9002226.02101,"627,55289-0095-30 ",.02)
 ;;55289-0095-30
 ;;9002226.02101,"627,55289-0095-60 ",.01)
 ;;55289-0095-60
 ;;9002226.02101,"627,55289-0095-60 ",.02)
 ;;55289-0095-60
 ;;9002226.02101,"627,55289-0923-20 ",.01)
 ;;55289-0923-20
 ;;9002226.02101,"627,55289-0923-20 ",.02)
 ;;55289-0923-20
 ;;9002226.02101,"627,55289-0923-30 ",.01)
 ;;55289-0923-30
 ;;9002226.02101,"627,55289-0923-30 ",.02)
 ;;55289-0923-30
 ;;9002226.02101,"627,55370-0854-07 ",.01)
 ;;55370-0854-07
 ;;9002226.02101,"627,55370-0854-07 ",.02)
 ;;55370-0854-07
 ;;9002226.02101,"627,55370-0854-09 ",.01)
 ;;55370-0854-09
 ;;9002226.02101,"627,55370-0854-09 ",.02)
 ;;55370-0854-09
 ;;9002226.02101,"627,55370-0879-07 ",.01)
 ;;55370-0879-07
 ;;9002226.02101,"627,55370-0879-07 ",.02)
 ;;55370-0879-07
 ;;9002226.02101,"627,55390-0066-10 ",.01)
 ;;55390-0066-10
 ;;9002226.02101,"627,55390-0066-10 ",.02)
 ;;55390-0066-10
 ;;9002226.02101,"627,55953-0555-80 ",.01)
 ;;55953-0555-80
 ;;9002226.02101,"627,55953-0555-80 ",.02)
 ;;55953-0555-80
 ;;9002226.02101,"627,57866-3367-03 ",.01)
 ;;57866-3367-03
 ;;9002226.02101,"627,57866-3367-03 ",.02)
 ;;57866-3367-03
 ;;9002226.02101,"627,57866-3377-04 ",.01)
 ;;57866-3377-04
 ;;9002226.02101,"627,57866-3377-04 ",.02)
 ;;57866-3377-04
 ;;9002226.02101,"627,58016-0019-00 ",.01)
 ;;58016-0019-00
 ;;9002226.02101,"627,58016-0019-00 ",.02)
 ;;58016-0019-00
 ;;9002226.02101,"627,58016-0019-30 ",.01)
 ;;58016-0019-30
 ;;9002226.02101,"627,58016-0019-30 ",.02)
 ;;58016-0019-30
 ;;9002226.02101,"627,58016-0019-60 ",.01)
 ;;58016-0019-60
 ;;9002226.02101,"627,58016-0019-60 ",.02)
 ;;58016-0019-60
 ;;9002226.02101,"627,58016-0019-90 ",.01)
 ;;58016-0019-90
 ;;9002226.02101,"627,58016-0019-90 ",.02)
 ;;58016-0019-90
 ;;9002226.02101,"627,58016-0702-12 ",.01)
 ;;58016-0702-12
 ;;9002226.02101,"627,58016-0702-12 ",.02)
 ;;58016-0702-12
 ;;9002226.02101,"627,58016-0702-30 ",.01)
 ;;58016-0702-30
 ;;9002226.02101,"627,58016-0702-30 ",.02)
 ;;58016-0702-30
 ;;9002226.02101,"627,58016-0703-00 ",.01)
 ;;58016-0703-00
 ;;9002226.02101,"627,58016-0703-00 ",.02)
 ;;58016-0703-00
 ;;9002226.02101,"627,58016-0703-12 ",.01)
 ;;58016-0703-12
 ;;9002226.02101,"627,58016-0703-12 ",.02)
 ;;58016-0703-12
 ;;9002226.02101,"627,58016-0703-30 ",.01)
 ;;58016-0703-30
 ;;9002226.02101,"627,58016-0703-30 ",.02)
 ;;58016-0703-30
 ;;9002226.02101,"627,58914-0012-10 ",.01)
 ;;58914-0012-10
 ;;9002226.02101,"627,58914-0012-10 ",.02)
 ;;58914-0012-10
 ;;9002226.02101,"627,58914-0013-10 ",.01)
 ;;58914-0013-10
 ;;9002226.02101,"627,58914-0013-10 ",.02)
 ;;58914-0013-10
 ;;9002226.02101,"627,58914-0015-16 ",.01)
 ;;58914-0015-16
 ;;9002226.02101,"627,58914-0015-16 ",.02)
 ;;58914-0015-16
 ;;9002226.02101,"627,58914-0080-52 ",.01)
 ;;58914-0080-52
 ;;9002226.02101,"627,58914-0080-52 ",.02)
 ;;58914-0080-52
 ;;9002226.02101,"627,60951-0615-70 ",.01)
 ;;60951-0615-70
 ;;9002226.02101,"627,60951-0615-70 ",.02)
 ;;60951-0615-70
 ;;9002226.02101,"627,60951-0615-90 ",.01)
 ;;60951-0615-90
 ;;9002226.02101,"627,60951-0615-90 ",.02)
 ;;60951-0615-90
 ;;9002226.02101,"627,60951-0616-70 ",.01)
 ;;60951-0616-70
 ;;9002226.02101,"627,60951-0616-70 ",.02)
 ;;60951-0616-70
 ;;9002226.02101,"627,60951-0616-90 ",.01)
 ;;60951-0616-90
 ;;9002226.02101,"627,60951-0616-90 ",.02)
 ;;60951-0616-90
 ;;9002226.02101,"627,61392-0041-30 ",.01)
 ;;61392-0041-30
 ;;9002226.02101,"627,61392-0041-30 ",.02)
 ;;61392-0041-30
 ;;9002226.02101,"627,61392-0041-31 ",.01)
 ;;61392-0041-31
 ;;9002226.02101,"627,61392-0041-31 ",.02)
 ;;61392-0041-31
 ;;9002226.02101,"627,61392-0041-32 ",.01)
 ;;61392-0041-32
 ;;9002226.02101,"627,61392-0041-32 ",.02)
 ;;61392-0041-32
 ;;9002226.02101,"627,61392-0041-39 ",.01)
 ;;61392-0041-39
 ;;9002226.02101,"627,61392-0041-39 ",.02)
 ;;61392-0041-39
 ;;9002226.02101,"627,61392-0041-45 ",.01)
 ;;61392-0041-45
 ;;9002226.02101,"627,61392-0041-45 ",.02)
 ;;61392-0041-45
 ;;9002226.02101,"627,61392-0041-51 ",.01)
 ;;61392-0041-51
 ;;9002226.02101,"627,61392-0041-51 ",.02)
 ;;61392-0041-51
 ;;9002226.02101,"627,61392-0041-54 ",.01)
 ;;61392-0041-54
 ;;9002226.02101,"627,61392-0041-54 ",.02)
 ;;61392-0041-54
 ;;9002226.02101,"627,61392-0041-56 ",.01)
 ;;61392-0041-56
 ;;9002226.02101,"627,61392-0041-56 ",.02)
 ;;61392-0041-56
 ;;9002226.02101,"627,61392-0041-60 ",.01)
 ;;61392-0041-60
 ;;9002226.02101,"627,61392-0041-60 ",.02)
 ;;61392-0041-60
 ;;9002226.02101,"627,61392-0041-90 ",.01)
 ;;61392-0041-90
 ;;9002226.02101,"627,61392-0041-90 ",.02)
 ;;61392-0041-90
 ;;9002226.02101,"627,61392-0041-91 ",.01)
 ;;61392-0041-91
 ;;9002226.02101,"627,61392-0041-91 ",.02)
 ;;61392-0041-91
 ;;9002226.02101,"627,63874-0463-04 ",.01)
 ;;63874-0463-04
 ;;9002226.02101,"627,63874-0463-04 ",.02)
 ;;63874-0463-04
 ;;9002226.02101,"627,63874-0463-10 ",.01)
 ;;63874-0463-10
 ;;9002226.02101,"627,63874-0463-10 ",.02)
 ;;63874-0463-10
 ;;9002226.02101,"627,63874-0463-90 ",.01)
 ;;63874-0463-90
 ;;9002226.02101,"627,63874-0463-90 ",.02)
 ;;63874-0463-90
 ;;9002226.02101,"627,66267-0074-30 ",.01)
 ;;66267-0074-30
 ;;9002226.02101,"627,66267-0074-30 ",.02)
 ;;66267-0074-30
 ;;9002226.02101,"627,68115-0106-20 ",.01)
 ;;68115-0106-20
 ;;9002226.02101,"627,68115-0106-20 ",.02)
 ;;68115-0106-20
 ;;9002226.02101,"627,68115-0106-30 ",.01)
 ;;68115-0106-30
 ;;9002226.02101,"627,68115-0106-30 ",.02)
 ;;68115-0106-30
 ;;9002226.02101,"627,68115-0106-60 ",.01)
 ;;68115-0106-60
 ;;9002226.02101,"627,68115-0106-60 ",.02)
 ;;68115-0106-60
 ;;9002226.02101,"627,68115-0107-30 ",.01)
 ;;68115-0107-30
 ;;9002226.02101,"627,68115-0107-30 ",.02)
 ;;68115-0107-30