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

BGP8FXGF.m

Go to the documentation of this file.
BGP8FXGF ; 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,"624,51079-0284-20 ",.01)
 ;;51079-0284-20
 ;;9002226.02101,"624,51079-0284-20 ",.02)
 ;;51079-0284-20
 ;;9002226.02101,"624,51079-0284-21 ",.01)
 ;;51079-0284-21
 ;;9002226.02101,"624,51079-0284-21 ",.02)
 ;;51079-0284-21
 ;;9002226.02101,"624,51079-0285-20 ",.01)
 ;;51079-0285-20
 ;;9002226.02101,"624,51079-0285-20 ",.02)
 ;;51079-0285-20
 ;;9002226.02101,"624,51079-0285-21 ",.01)
 ;;51079-0285-21
 ;;9002226.02101,"624,51079-0285-21 ",.02)
 ;;51079-0285-21
 ;;9002226.02101,"624,51079-0286-20 ",.01)
 ;;51079-0286-20
 ;;9002226.02101,"624,51079-0286-20 ",.02)
 ;;51079-0286-20
 ;;9002226.02101,"624,51079-0286-21 ",.01)
 ;;51079-0286-21
 ;;9002226.02101,"624,51079-0286-21 ",.02)
 ;;51079-0286-21
 ;;9002226.02101,"624,51079-0302-20 ",.01)
 ;;51079-0302-20
 ;;9002226.02101,"624,51079-0302-20 ",.02)
 ;;51079-0302-20
 ;;9002226.02101,"624,51079-0302-21 ",.01)
 ;;51079-0302-21
 ;;9002226.02101,"624,51079-0302-21 ",.02)
 ;;51079-0302-21
 ;;9002226.02101,"624,51079-0303-20 ",.01)
 ;;51079-0303-20
 ;;9002226.02101,"624,51079-0303-20 ",.02)
 ;;51079-0303-20
 ;;9002226.02101,"624,51079-0303-21 ",.01)
 ;;51079-0303-21
 ;;9002226.02101,"624,51079-0303-21 ",.02)
 ;;51079-0303-21
 ;;9002226.02101,"624,51079-0374-20 ",.01)
 ;;51079-0374-20
 ;;9002226.02101,"624,51079-0374-20 ",.02)
 ;;51079-0374-20
 ;;9002226.02101,"624,51079-0374-21 ",.01)
 ;;51079-0374-21
 ;;9002226.02101,"624,51079-0374-21 ",.02)
 ;;51079-0374-21
 ;;9002226.02101,"624,51079-0375-20 ",.01)
 ;;51079-0375-20
 ;;9002226.02101,"624,51079-0375-20 ",.02)
 ;;51079-0375-20
 ;;9002226.02101,"624,51079-0375-21 ",.01)
 ;;51079-0375-21
 ;;9002226.02101,"624,51079-0375-21 ",.02)
 ;;51079-0375-21
 ;;9002226.02101,"624,51655-0801-24 ",.01)
 ;;51655-0801-24
 ;;9002226.02101,"624,51655-0801-24 ",.02)
 ;;51655-0801-24
 ;;9002226.02101,"624,51655-0801-25 ",.01)
 ;;51655-0801-25
 ;;9002226.02101,"624,51655-0801-25 ",.02)
 ;;51655-0801-25
 ;;9002226.02101,"624,51655-0801-26 ",.01)
 ;;51655-0801-26
 ;;9002226.02101,"624,51655-0801-26 ",.02)
 ;;51655-0801-26
 ;;9002226.02101,"624,51655-0801-82 ",.01)
 ;;51655-0801-82
 ;;9002226.02101,"624,51655-0801-82 ",.02)
 ;;51655-0801-82
 ;;9002226.02101,"624,51655-0833-24 ",.01)
 ;;51655-0833-24
 ;;9002226.02101,"624,51655-0833-24 ",.02)
 ;;51655-0833-24
 ;;9002226.02101,"624,51655-0833-25 ",.01)
 ;;51655-0833-25
 ;;9002226.02101,"624,51655-0833-25 ",.02)
 ;;51655-0833-25
 ;;9002226.02101,"624,51655-0833-26 ",.01)
 ;;51655-0833-26
 ;;9002226.02101,"624,51655-0833-26 ",.02)
 ;;51655-0833-26
 ;;9002226.02101,"624,51655-0833-82 ",.01)
 ;;51655-0833-82
 ;;9002226.02101,"624,51655-0833-82 ",.02)
 ;;51655-0833-82
 ;;9002226.02101,"624,52544-0785-01 ",.01)
 ;;52544-0785-01
 ;;9002226.02101,"624,52544-0785-01 ",.02)
 ;;52544-0785-01
 ;;9002226.02101,"624,52544-0785-05 ",.01)
 ;;52544-0785-05
 ;;9002226.02101,"624,52544-0785-05 ",.02)
 ;;52544-0785-05
 ;;9002226.02101,"624,52544-0786-01 ",.01)
 ;;52544-0786-01
 ;;9002226.02101,"624,52544-0786-01 ",.02)
 ;;52544-0786-01
 ;;9002226.02101,"624,52544-0786-05 ",.01)
 ;;52544-0786-05
 ;;9002226.02101,"624,52544-0786-05 ",.02)
 ;;52544-0786-05
 ;;9002226.02101,"624,52544-0786-10 ",.01)
 ;;52544-0786-10
 ;;9002226.02101,"624,52544-0786-10 ",.02)
 ;;52544-0786-10
 ;;9002226.02101,"624,52544-0787-01 ",.01)
 ;;52544-0787-01
 ;;9002226.02101,"624,52544-0787-01 ",.02)
 ;;52544-0787-01
 ;;9002226.02101,"624,52544-0787-05 ",.01)
 ;;52544-0787-05
 ;;9002226.02101,"624,52544-0787-05 ",.02)
 ;;52544-0787-05
 ;;9002226.02101,"624,52959-0047-03 ",.01)
 ;;52959-0047-03
 ;;9002226.02101,"624,52959-0047-03 ",.02)
 ;;52959-0047-03
 ;;9002226.02101,"624,52959-0047-05 ",.01)
 ;;52959-0047-05
 ;;9002226.02101,"624,52959-0047-05 ",.02)
 ;;52959-0047-05
 ;;9002226.02101,"624,52959-0047-06 ",.01)
 ;;52959-0047-06
 ;;9002226.02101,"624,52959-0047-06 ",.02)
 ;;52959-0047-06
 ;;9002226.02101,"624,52959-0047-10 ",.01)
 ;;52959-0047-10
 ;;9002226.02101,"624,52959-0047-10 ",.02)
 ;;52959-0047-10
 ;;9002226.02101,"624,52959-0047-12 ",.01)
 ;;52959-0047-12
 ;;9002226.02101,"624,52959-0047-12 ",.02)
 ;;52959-0047-12
 ;;9002226.02101,"624,52959-0047-15 ",.01)
 ;;52959-0047-15
 ;;9002226.02101,"624,52959-0047-15 ",.02)
 ;;52959-0047-15
 ;;9002226.02101,"624,52959-0047-20 ",.01)
 ;;52959-0047-20
 ;;9002226.02101,"624,52959-0047-20 ",.02)
 ;;52959-0047-20
 ;;9002226.02101,"624,52959-0047-21 ",.01)
 ;;52959-0047-21
 ;;9002226.02101,"624,52959-0047-21 ",.02)
 ;;52959-0047-21
 ;;9002226.02101,"624,52959-0047-25 ",.01)
 ;;52959-0047-25
 ;;9002226.02101,"624,52959-0047-25 ",.02)
 ;;52959-0047-25
 ;;9002226.02101,"624,52959-0047-30 ",.01)
 ;;52959-0047-30
 ;;9002226.02101,"624,52959-0047-30 ",.02)
 ;;52959-0047-30
 ;;9002226.02101,"624,52959-0047-45 ",.01)
 ;;52959-0047-45
 ;;9002226.02101,"624,52959-0047-45 ",.02)
 ;;52959-0047-45
 ;;9002226.02101,"624,52959-0047-50 ",.01)
 ;;52959-0047-50
 ;;9002226.02101,"624,52959-0047-50 ",.02)
 ;;52959-0047-50
 ;;9002226.02101,"624,52959-0047-60 ",.01)
 ;;52959-0047-60
 ;;9002226.02101,"624,52959-0047-60 ",.02)
 ;;52959-0047-60
 ;;9002226.02101,"624,52959-0236-60 ",.01)
 ;;52959-0236-60
 ;;9002226.02101,"624,52959-0236-60 ",.02)
 ;;52959-0236-60
 ;;9002226.02101,"624,52959-0295-30 ",.01)
 ;;52959-0295-30
 ;;9002226.02101,"624,52959-0295-30 ",.02)
 ;;52959-0295-30
 ;;9002226.02101,"624,52959-0295-50 ",.01)
 ;;52959-0295-50
 ;;9002226.02101,"624,52959-0295-50 ",.02)
 ;;52959-0295-50
 ;;9002226.02101,"624,52959-0306-06 ",.01)
 ;;52959-0306-06
 ;;9002226.02101,"624,52959-0306-06 ",.02)
 ;;52959-0306-06
 ;;9002226.02101,"624,52959-0306-20 ",.01)
 ;;52959-0306-20
 ;;9002226.02101,"624,52959-0306-20 ",.02)
 ;;52959-0306-20
 ;;9002226.02101,"624,52959-0306-30 ",.01)
 ;;52959-0306-30
 ;;9002226.02101,"624,52959-0306-30 ",.02)
 ;;52959-0306-30
 ;;9002226.02101,"624,52959-0369-00 ",.01)
 ;;52959-0369-00
 ;;9002226.02101,"624,52959-0369-00 ",.02)
 ;;52959-0369-00
 ;;9002226.02101,"624,52959-0369-06 ",.01)
 ;;52959-0369-06
 ;;9002226.02101,"624,52959-0369-06 ",.02)
 ;;52959-0369-06
 ;;9002226.02101,"624,52959-0369-30 ",.01)
 ;;52959-0369-30
 ;;9002226.02101,"624,52959-0369-30 ",.02)
 ;;52959-0369-30
 ;;9002226.02101,"624,52959-0369-40 ",.01)
 ;;52959-0369-40
 ;;9002226.02101,"624,52959-0369-40 ",.02)
 ;;52959-0369-40
 ;;9002226.02101,"624,54569-0173-00 ",.01)
 ;;54569-0173-00
 ;;9002226.02101,"624,54569-0173-00 ",.02)
 ;;54569-0173-00
 ;;9002226.02101,"624,54569-0936-00 ",.01)
 ;;54569-0936-00
 ;;9002226.02101,"624,54569-0936-00 ",.02)
 ;;54569-0936-00
 ;;9002226.02101,"624,54569-0936-02 ",.01)
 ;;54569-0936-02
 ;;9002226.02101,"624,54569-0936-02 ",.02)
 ;;54569-0936-02
 ;;9002226.02101,"624,54569-0936-03 ",.01)
 ;;54569-0936-03
 ;;9002226.02101,"624,54569-0936-03 ",.02)
 ;;54569-0936-03
 ;;9002226.02101,"624,54569-0936-04 ",.01)
 ;;54569-0936-04
 ;;9002226.02101,"624,54569-0936-04 ",.02)
 ;;54569-0936-04
 ;;9002226.02101,"624,54569-0936-05 ",.01)
 ;;54569-0936-05
 ;;9002226.02101,"624,54569-0936-05 ",.02)
 ;;54569-0936-05
 ;;9002226.02101,"624,54569-0936-06 ",.01)
 ;;54569-0936-06
 ;;9002226.02101,"624,54569-0936-06 ",.02)
 ;;54569-0936-06
 ;;9002226.02101,"624,54569-0936-07 ",.01)
 ;;54569-0936-07
 ;;9002226.02101,"624,54569-0936-07 ",.02)
 ;;54569-0936-07
 ;;9002226.02101,"624,54569-0936-08 ",.01)
 ;;54569-0936-08
 ;;9002226.02101,"624,54569-0936-08 ",.02)
 ;;54569-0936-08
 ;;9002226.02101,"624,54569-0936-09 ",.01)
 ;;54569-0936-09
 ;;9002226.02101,"624,54569-0936-09 ",.02)
 ;;54569-0936-09
 ;;9002226.02101,"624,54569-0947-00 ",.01)
 ;;54569-0947-00
 ;;9002226.02101,"624,54569-0947-00 ",.02)
 ;;54569-0947-00
 ;;9002226.02101,"624,54569-0947-03 ",.01)
 ;;54569-0947-03
 ;;9002226.02101,"624,54569-0947-03 ",.02)
 ;;54569-0947-03
 ;;9002226.02101,"624,54569-0948-00 ",.01)
 ;;54569-0948-00
 ;;9002226.02101,"624,54569-0948-00 ",.02)
 ;;54569-0948-00
 ;;9002226.02101,"624,54569-0949-00 ",.01)
 ;;54569-0949-00
 ;;9002226.02101,"624,54569-0949-00 ",.02)
 ;;54569-0949-00
 ;;9002226.02101,"624,54569-0949-01 ",.01)
 ;;54569-0949-01
 ;;9002226.02101,"624,54569-0949-01 ",.02)
 ;;54569-0949-01
 ;;9002226.02101,"624,54569-0949-02 ",.01)
 ;;54569-0949-02
 ;;9002226.02101,"624,54569-0949-02 ",.02)
 ;;54569-0949-02
 ;;9002226.02101,"624,54569-0949-03 ",.01)
 ;;54569-0949-03
 ;;9002226.02101,"624,54569-0949-03 ",.02)
 ;;54569-0949-03
 ;;9002226.02101,"624,54569-0949-04 ",.01)
 ;;54569-0949-04
 ;;9002226.02101,"624,54569-0949-04 ",.02)
 ;;54569-0949-04
 ;;9002226.02101,"624,54569-0949-05 ",.01)
 ;;54569-0949-05
 ;;9002226.02101,"624,54569-0949-05 ",.02)
 ;;54569-0949-05
 ;;9002226.02101,"624,54569-0949-06 ",.01)
 ;;54569-0949-06
 ;;9002226.02101,"624,54569-0949-06 ",.02)
 ;;54569-0949-06
 ;;9002226.02101,"624,54569-0949-07 ",.01)
 ;;54569-0949-07
 ;;9002226.02101,"624,54569-0949-07 ",.02)
 ;;54569-0949-07
 ;;9002226.02101,"624,54569-1413-00 ",.01)
 ;;54569-1413-00
 ;;9002226.02101,"624,54569-1413-00 ",.02)
 ;;54569-1413-00
 ;;9002226.02101,"624,54569-2376-02 ",.01)
 ;;54569-2376-02
 ;;9002226.02101,"624,54569-2376-02 ",.02)
 ;;54569-2376-02
 ;;9002226.02101,"624,54569-2775-00 ",.01)
 ;;54569-2775-00
 ;;9002226.02101,"624,54569-2775-00 ",.02)
 ;;54569-2775-00
 ;;9002226.02101,"624,54569-4167-00 ",.01)
 ;;54569-4167-00
 ;;9002226.02101,"624,54569-4167-00 ",.02)
 ;;54569-4167-00
 ;;9002226.02101,"624,54569-4764-00 ",.01)
 ;;54569-4764-00
 ;;9002226.02101,"624,54569-4764-00 ",.02)
 ;;54569-4764-00
 ;;9002226.02101,"624,54868-0059-00 ",.01)
 ;;54868-0059-00
 ;;9002226.02101,"624,54868-0059-00 ",.02)
 ;;54868-0059-00
 ;;9002226.02101,"624,54868-0059-01 ",.01)
 ;;54868-0059-01
 ;;9002226.02101,"624,54868-0059-01 ",.02)
 ;;54868-0059-01
 ;;9002226.02101,"624,54868-0059-02 ",.01)
 ;;54868-0059-02
 ;;9002226.02101,"624,54868-0059-02 ",.02)
 ;;54868-0059-02
 ;;9002226.02101,"624,54868-0059-03 ",.01)
 ;;54868-0059-03
 ;;9002226.02101,"624,54868-0059-03 ",.02)
 ;;54868-0059-03
 ;;9002226.02101,"624,54868-0059-04 ",.01)
 ;;54868-0059-04
 ;;9002226.02101,"624,54868-0059-04 ",.02)
 ;;54868-0059-04
 ;;9002226.02101,"624,54868-0059-05 ",.01)
 ;;54868-0059-05
 ;;9002226.02101,"624,54868-0059-05 ",.02)
 ;;54868-0059-05
 ;;9002226.02101,"624,54868-0059-06 ",.01)
 ;;54868-0059-06
 ;;9002226.02101,"624,54868-0059-06 ",.02)
 ;;54868-0059-06
 ;;9002226.02101,"624,54868-0059-08 ",.01)
 ;;54868-0059-08
 ;;9002226.02101,"624,54868-0059-08 ",.02)
 ;;54868-0059-08
 ;;9002226.02101,"624,54868-0059-09 ",.01)
 ;;54868-0059-09
 ;;9002226.02101,"624,54868-0059-09 ",.02)
 ;;54868-0059-09
 ;;9002226.02101,"624,54868-0501-00 ",.01)
 ;;54868-0501-00
 ;;9002226.02101,"624,54868-0501-00 ",.02)
 ;;54868-0501-00
 ;;9002226.02101,"624,54868-0617-00 ",.01)
 ;;54868-0617-00
 ;;9002226.02101,"624,54868-0617-00 ",.02)
 ;;54868-0617-00
 ;;9002226.02101,"624,54868-0988-00 ",.01)
 ;;54868-0988-00
 ;;9002226.02101,"624,54868-0988-00 ",.02)
 ;;54868-0988-00
 ;;9002226.02101,"624,54868-0988-01 ",.01)
 ;;54868-0988-01
 ;;9002226.02101,"624,54868-0988-01 ",.02)
 ;;54868-0988-01
 ;;9002226.02101,"624,54868-0988-02 ",.01)
 ;;54868-0988-02
 ;;9002226.02101,"624,54868-0988-02 ",.02)
 ;;54868-0988-02
 ;;9002226.02101,"624,54868-0988-05 ",.01)
 ;;54868-0988-05
 ;;9002226.02101,"624,54868-0988-05 ",.02)
 ;;54868-0988-05
 ;;9002226.02101,"624,54868-2126-01 ",.01)
 ;;54868-2126-01
 ;;9002226.02101,"624,54868-2126-01 ",.02)
 ;;54868-2126-01
 ;;9002226.02101,"624,54868-2126-02 ",.01)
 ;;54868-2126-02
 ;;9002226.02101,"624,54868-2126-02 ",.02)
 ;;54868-2126-02
 ;;9002226.02101,"624,54868-2126-03 ",.01)
 ;;54868-2126-03
 ;;9002226.02101,"624,54868-2126-03 ",.02)
 ;;54868-2126-03
 ;;9002226.02101,"624,54868-2126-04 ",.01)
 ;;54868-2126-04
 ;;9002226.02101,"624,54868-2126-04 ",.02)
 ;;54868-2126-04
 ;;9002226.02101,"624,54868-2206-01 ",.01)
 ;;54868-2206-01
 ;;9002226.02101,"624,54868-2206-01 ",.02)
 ;;54868-2206-01
 ;;9002226.02101,"624,54868-2320-01 ",.01)
 ;;54868-2320-01
 ;;9002226.02101,"624,54868-2320-01 ",.02)
 ;;54868-2320-01
 ;;9002226.02101,"624,54868-2320-02 ",.01)
 ;;54868-2320-02
 ;;9002226.02101,"624,54868-2320-02 ",.02)
 ;;54868-2320-02
 ;;9002226.02101,"624,54868-4061-00 ",.01)
 ;;54868-4061-00
 ;;9002226.02101,"624,54868-4061-00 ",.02)
 ;;54868-4061-00
 ;;9002226.02101,"624,54868-4586-00 ",.01)
 ;;54868-4586-00
 ;;9002226.02101,"624,54868-4586-00 ",.02)
 ;;54868-4586-00
 ;;9002226.02101,"624,55045-1171-00 ",.01)
 ;;55045-1171-00
 ;;9002226.02101,"624,55045-1171-00 ",.02)
 ;;55045-1171-00
 ;;9002226.02101,"624,55045-1171-07 ",.01)
 ;;55045-1171-07
 ;;9002226.02101,"624,55045-1171-07 ",.02)
 ;;55045-1171-07
 ;;9002226.02101,"624,55045-1171-08 ",.01)
 ;;55045-1171-08
 ;;9002226.02101,"624,55045-1171-08 ",.02)
 ;;55045-1171-08
 ;;9002226.02101,"624,55045-1171-09 ",.01)
 ;;55045-1171-09
 ;;9002226.02101,"624,55045-1171-09 ",.02)
 ;;55045-1171-09
 ;;9002226.02101,"624,55045-1477-07 ",.01)
 ;;55045-1477-07
 ;;9002226.02101,"624,55045-1477-07 ",.02)
 ;;55045-1477-07
 ;;9002226.02101,"624,55045-1624-08 ",.01)
 ;;55045-1624-08
 ;;9002226.02101,"624,55045-1624-08 ",.02)
 ;;55045-1624-08
 ;;9002226.02101,"624,55045-1624-09 ",.01)
 ;;55045-1624-09
 ;;9002226.02101,"624,55045-1624-09 ",.02)
 ;;55045-1624-09
 ;;9002226.02101,"624,55045-1922-06 ",.01)
 ;;55045-1922-06
 ;;9002226.02101,"624,55045-1922-06 ",.02)
 ;;55045-1922-06
 ;;9002226.02101,"624,55045-2799-01 ",.01)
 ;;55045-2799-01
 ;;9002226.02101,"624,55045-2799-01 ",.02)
 ;;55045-2799-01
 ;;9002226.02101,"624,55289-0091-06 ",.01)
 ;;55289-0091-06