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

BGP8EXXE.m

Go to the documentation of this file.
BGP8EXXE ; 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,"622,52959-0426-30 ",.02)
 ;;52959-0426-30
 ;;9002226.02101,"622,52959-0440-07 ",.01)
 ;;52959-0440-07
 ;;9002226.02101,"622,52959-0440-07 ",.02)
 ;;52959-0440-07
 ;;9002226.02101,"622,52959-0440-15 ",.01)
 ;;52959-0440-15
 ;;9002226.02101,"622,52959-0440-15 ",.02)
 ;;52959-0440-15
 ;;9002226.02101,"622,52959-0440-30 ",.01)
 ;;52959-0440-30
 ;;9002226.02101,"622,52959-0440-30 ",.02)
 ;;52959-0440-30
 ;;9002226.02101,"622,52959-0628-28 ",.01)
 ;;52959-0628-28
 ;;9002226.02101,"622,52959-0628-28 ",.02)
 ;;52959-0628-28
 ;;9002226.02101,"622,52959-0628-30 ",.01)
 ;;52959-0628-30
 ;;9002226.02101,"622,52959-0628-30 ",.02)
 ;;52959-0628-30
 ;;9002226.02101,"622,52959-0812-20 ",.01)
 ;;52959-0812-20
 ;;9002226.02101,"622,52959-0812-20 ",.02)
 ;;52959-0812-20
 ;;9002226.02101,"622,52959-0812-60 ",.01)
 ;;52959-0812-60
 ;;9002226.02101,"622,52959-0812-60 ",.02)
 ;;52959-0812-60
 ;;9002226.02101,"622,53014-0530-07 ",.01)
 ;;53014-0530-07
 ;;9002226.02101,"622,53014-0530-07 ",.02)
 ;;53014-0530-07
 ;;9002226.02101,"622,53014-0530-12 ",.01)
 ;;53014-0530-12
 ;;9002226.02101,"622,53014-0530-12 ",.02)
 ;;53014-0530-12
 ;;9002226.02101,"622,53014-0531-07 ",.01)
 ;;53014-0531-07
 ;;9002226.02101,"622,53014-0531-07 ",.02)
 ;;53014-0531-07
 ;;9002226.02101,"622,53014-0531-12 ",.01)
 ;;53014-0531-12
 ;;9002226.02101,"622,53014-0531-12 ",.02)
 ;;53014-0531-12
 ;;9002226.02101,"622,53014-0532-07 ",.01)
 ;;53014-0532-07
 ;;9002226.02101,"622,53014-0532-07 ",.02)
 ;;53014-0532-07
 ;;9002226.02101,"622,53014-0532-12 ",.01)
 ;;53014-0532-12
 ;;9002226.02101,"622,53014-0532-12 ",.02)
 ;;53014-0532-12
 ;;9002226.02101,"622,53014-0574-07 ",.01)
 ;;53014-0574-07
 ;;9002226.02101,"622,53014-0574-07 ",.02)
 ;;53014-0574-07
 ;;9002226.02101,"622,53014-0575-07 ",.01)
 ;;53014-0575-07
 ;;9002226.02101,"622,53014-0575-07 ",.02)
 ;;53014-0575-07
 ;;9002226.02101,"622,53014-0575-30 ",.01)
 ;;53014-0575-30
 ;;9002226.02101,"622,53014-0575-30 ",.02)
 ;;53014-0575-30
 ;;9002226.02101,"622,53014-0575-72 ",.01)
 ;;53014-0575-72
 ;;9002226.02101,"622,53014-0575-72 ",.02)
 ;;53014-0575-72
 ;;9002226.02101,"622,53014-0576-07 ",.01)
 ;;53014-0576-07
 ;;9002226.02101,"622,53014-0576-07 ",.02)
 ;;53014-0576-07
 ;;9002226.02101,"622,53014-0579-07 ",.01)
 ;;53014-0579-07
 ;;9002226.02101,"622,53014-0579-07 ",.02)
 ;;53014-0579-07
 ;;9002226.02101,"622,53014-0580-07 ",.01)
 ;;53014-0580-07
 ;;9002226.02101,"622,53014-0580-07 ",.02)
 ;;53014-0580-07
 ;;9002226.02101,"622,53014-0581-07 ",.01)
 ;;53014-0581-07
 ;;9002226.02101,"622,53014-0581-07 ",.02)
 ;;53014-0581-07
 ;;9002226.02101,"622,53014-0582-07 ",.01)
 ;;53014-0582-07
 ;;9002226.02101,"622,53014-0582-07 ",.02)
 ;;53014-0582-07
 ;;9002226.02101,"622,53014-0583-07 ",.01)
 ;;53014-0583-07
 ;;9002226.02101,"622,53014-0583-07 ",.02)
 ;;53014-0583-07
 ;;9002226.02101,"622,53014-0584-07 ",.01)
 ;;53014-0584-07
 ;;9002226.02101,"622,53014-0584-07 ",.02)
 ;;53014-0584-07
 ;;9002226.02101,"622,53014-0593-07 ",.01)
 ;;53014-0593-07
 ;;9002226.02101,"622,53014-0593-07 ",.02)
 ;;53014-0593-07
 ;;9002226.02101,"622,53014-0594-07 ",.01)
 ;;53014-0594-07
 ;;9002226.02101,"622,53014-0594-07 ",.02)
 ;;53014-0594-07
 ;;9002226.02101,"622,53014-0903-71 ",.01)
 ;;53014-0903-71
 ;;9002226.02101,"622,53014-0903-71 ",.02)
 ;;53014-0903-71
 ;;9002226.02101,"622,53014-0903-84 ",.01)
 ;;53014-0903-84
 ;;9002226.02101,"622,53014-0903-84 ",.02)
 ;;53014-0903-84
 ;;9002226.02101,"622,53014-0904-71 ",.01)
 ;;53014-0904-71
 ;;9002226.02101,"622,53014-0904-71 ",.02)
 ;;53014-0904-71
 ;;9002226.02101,"622,53014-0904-84 ",.01)
 ;;53014-0904-84
 ;;9002226.02101,"622,53014-0904-84 ",.02)
 ;;53014-0904-84
 ;;9002226.02101,"622,53265-0253-10 ",.01)
 ;;53265-0253-10
 ;;9002226.02101,"622,53265-0253-10 ",.02)
 ;;53265-0253-10
 ;;9002226.02101,"622,53265-0253-11 ",.01)
 ;;53265-0253-11
 ;;9002226.02101,"622,53265-0253-11 ",.02)
 ;;53265-0253-11
 ;;9002226.02101,"622,53265-0254-10 ",.01)
 ;;53265-0254-10
 ;;9002226.02101,"622,53265-0254-10 ",.02)
 ;;53265-0254-10
 ;;9002226.02101,"622,53265-0254-11 ",.01)
 ;;53265-0254-11
 ;;9002226.02101,"622,53265-0254-11 ",.02)
 ;;53265-0254-11
 ;;9002226.02101,"622,53265-0255-10 ",.01)
 ;;53265-0255-10
 ;;9002226.02101,"622,53265-0255-10 ",.02)
 ;;53265-0255-10
 ;;9002226.02101,"622,53265-0257-10 ",.01)
 ;;53265-0257-10
 ;;9002226.02101,"622,53265-0257-10 ",.02)
 ;;53265-0257-10
 ;;9002226.02101,"622,53265-0257-11 ",.01)
 ;;53265-0257-11
 ;;9002226.02101,"622,53265-0257-11 ",.02)
 ;;53265-0257-11
 ;;9002226.02101,"622,53265-0257-40 ",.01)
 ;;53265-0257-40
 ;;9002226.02101,"622,53265-0257-40 ",.02)
 ;;53265-0257-40
 ;;9002226.02101,"622,53265-0258-10 ",.01)
 ;;53265-0258-10
 ;;9002226.02101,"622,53265-0258-10 ",.02)
 ;;53265-0258-10
 ;;9002226.02101,"622,53265-0258-11 ",.01)
 ;;53265-0258-11
 ;;9002226.02101,"622,53265-0258-11 ",.02)
 ;;53265-0258-11
 ;;9002226.02101,"622,53265-0259-10 ",.01)
 ;;53265-0259-10
 ;;9002226.02101,"622,53265-0259-10 ",.02)
 ;;53265-0259-10
 ;;9002226.02101,"622,53265-0262-10 ",.01)
 ;;53265-0262-10
 ;;9002226.02101,"622,53265-0262-10 ",.02)
 ;;53265-0262-10
 ;;9002226.02101,"622,53265-0346-10 ",.01)
 ;;53265-0346-10
 ;;9002226.02101,"622,53265-0346-10 ",.02)
 ;;53265-0346-10
 ;;9002226.02101,"622,53265-0346-11 ",.01)
 ;;53265-0346-11
 ;;9002226.02101,"622,53265-0346-11 ",.02)
 ;;53265-0346-11
 ;;9002226.02101,"622,53265-0396-10 ",.01)
 ;;53265-0396-10
 ;;9002226.02101,"622,53265-0396-10 ",.02)
 ;;53265-0396-10
 ;;9002226.02101,"622,53489-0406-01 ",.01)
 ;;53489-0406-01
 ;;9002226.02101,"622,53489-0406-01 ",.02)
 ;;53489-0406-01
 ;;9002226.02101,"622,53489-0406-10 ",.01)
 ;;53489-0406-10
 ;;9002226.02101,"622,53489-0406-10 ",.02)
 ;;53489-0406-10
 ;;9002226.02101,"622,53489-0433-01 ",.01)
 ;;53489-0433-01
 ;;9002226.02101,"622,53489-0433-01 ",.02)
 ;;53489-0433-01
 ;;9002226.02101,"622,53489-0433-10 ",.01)
 ;;53489-0433-10
 ;;9002226.02101,"622,53489-0433-10 ",.02)
 ;;53489-0433-10
 ;;9002226.02101,"622,53489-0564-01 ",.01)
 ;;53489-0564-01
 ;;9002226.02101,"622,53489-0564-01 ",.02)
 ;;53489-0564-01
 ;;9002226.02101,"622,53489-0565-01 ",.01)
 ;;53489-0565-01
 ;;9002226.02101,"622,53489-0565-01 ",.02)
 ;;53489-0565-01
 ;;9002226.02101,"622,53489-0566-01 ",.01)
 ;;53489-0566-01
 ;;9002226.02101,"622,53489-0566-01 ",.02)
 ;;53489-0566-01
 ;;9002226.02101,"622,53489-0567-01 ",.01)
 ;;53489-0567-01
 ;;9002226.02101,"622,53489-0567-01 ",.02)
 ;;53489-0567-01
 ;;9002226.02101,"622,53489-0568-01 ",.01)
 ;;53489-0568-01
 ;;9002226.02101,"622,53489-0568-01 ",.02)
 ;;53489-0568-01
 ;;9002226.02101,"622,53489-0569-01 ",.01)
 ;;53489-0569-01
 ;;9002226.02101,"622,53489-0569-01 ",.02)
 ;;53489-0569-01
 ;;9002226.02101,"622,53489-0570-01 ",.01)
 ;;53489-0570-01
 ;;9002226.02101,"622,53489-0570-01 ",.02)
 ;;53489-0570-01
 ;;9002226.02101,"622,54092-0371-01 ",.01)
 ;;54092-0371-01
 ;;9002226.02101,"622,54092-0371-01 ",.02)
 ;;54092-0371-01
 ;;9002226.02101,"622,54092-0372-01 ",.01)
 ;;54092-0372-01
 ;;9002226.02101,"622,54092-0372-01 ",.02)
 ;;54092-0372-01
 ;;9002226.02101,"622,54092-0373-01 ",.01)
 ;;54092-0373-01
 ;;9002226.02101,"622,54092-0373-01 ",.02)
 ;;54092-0373-01
 ;;9002226.02101,"622,54092-0374-01 ",.01)
 ;;54092-0374-01
 ;;9002226.02101,"622,54092-0374-01 ",.02)
 ;;54092-0374-01
 ;;9002226.02101,"622,54092-0375-01 ",.01)
 ;;54092-0375-01
 ;;9002226.02101,"622,54092-0375-01 ",.02)
 ;;54092-0375-01
 ;;9002226.02101,"622,54092-0376-01 ",.01)
 ;;54092-0376-01
 ;;9002226.02101,"622,54092-0376-01 ",.02)
 ;;54092-0376-01
 ;;9002226.02101,"622,54092-0377-01 ",.01)
 ;;54092-0377-01
 ;;9002226.02101,"622,54092-0377-01 ",.02)
 ;;54092-0377-01
 ;;9002226.02101,"622,54092-0381-01 ",.01)
 ;;54092-0381-01
 ;;9002226.02101,"622,54092-0381-01 ",.02)
 ;;54092-0381-01
 ;;9002226.02101,"622,54092-0383-01 ",.01)
 ;;54092-0383-01
 ;;9002226.02101,"622,54092-0383-01 ",.02)
 ;;54092-0383-01
 ;;9002226.02101,"622,54092-0385-01 ",.01)
 ;;54092-0385-01
 ;;9002226.02101,"622,54092-0385-01 ",.02)
 ;;54092-0385-01
 ;;9002226.02101,"622,54092-0387-01 ",.01)
 ;;54092-0387-01
 ;;9002226.02101,"622,54092-0387-01 ",.02)
 ;;54092-0387-01
 ;;9002226.02101,"622,54092-0389-01 ",.01)
 ;;54092-0389-01
 ;;9002226.02101,"622,54092-0389-01 ",.02)
 ;;54092-0389-01
 ;;9002226.02101,"622,54092-0391-01 ",.01)
 ;;54092-0391-01
 ;;9002226.02101,"622,54092-0391-01 ",.02)
 ;;54092-0391-01
 ;;9002226.02101,"622,54092-0448-01 ",.01)
 ;;54092-0448-01
 ;;9002226.02101,"622,54092-0448-01 ",.02)
 ;;54092-0448-01
 ;;9002226.02101,"622,54092-0452-01 ",.01)
 ;;54092-0452-01
 ;;9002226.02101,"622,54092-0452-01 ",.02)
 ;;54092-0452-01
 ;;9002226.02101,"622,54092-0552-10 ",.01)
 ;;54092-0552-10
 ;;9002226.02101,"622,54092-0552-10 ",.02)
 ;;54092-0552-10
 ;;9002226.02101,"622,54092-0552-30 ",.01)
 ;;54092-0552-30
 ;;9002226.02101,"622,54092-0552-30 ",.02)
 ;;54092-0552-30
 ;;9002226.02101,"622,54092-0553-10 ",.01)
 ;;54092-0553-10
 ;;9002226.02101,"622,54092-0553-10 ",.02)
 ;;54092-0553-10
 ;;9002226.02101,"622,54092-0553-30 ",.01)
 ;;54092-0553-30
 ;;9002226.02101,"622,54092-0553-30 ",.02)
 ;;54092-0553-30
 ;;9002226.02101,"622,54092-0554-10 ",.01)
 ;;54092-0554-10
 ;;9002226.02101,"622,54092-0554-10 ",.02)
 ;;54092-0554-10
 ;;9002226.02101,"622,54092-0554-30 ",.01)
 ;;54092-0554-30
 ;;9002226.02101,"622,54092-0554-30 ",.02)
 ;;54092-0554-30
 ;;9002226.02101,"622,54092-0555-10 ",.01)
 ;;54092-0555-10
 ;;9002226.02101,"622,54092-0555-10 ",.02)
 ;;54092-0555-10
 ;;9002226.02101,"622,54092-0555-30 ",.01)
 ;;54092-0555-30
 ;;9002226.02101,"622,54092-0555-30 ",.02)
 ;;54092-0555-30
 ;;9002226.02101,"622,54569-1718-00 ",.01)
 ;;54569-1718-00
 ;;9002226.02101,"622,54569-1718-00 ",.02)
 ;;54569-1718-00
 ;;9002226.02101,"622,54569-1718-01 ",.01)
 ;;54569-1718-01
 ;;9002226.02101,"622,54569-1718-01 ",.02)
 ;;54569-1718-01
 ;;9002226.02101,"622,54569-1718-03 ",.01)
 ;;54569-1718-03
 ;;9002226.02101,"622,54569-1718-03 ",.02)
 ;;54569-1718-03
 ;;9002226.02101,"622,54569-1718-04 ",.01)
 ;;54569-1718-04
 ;;9002226.02101,"622,54569-1718-04 ",.02)
 ;;54569-1718-04
 ;;9002226.02101,"622,54569-1718-05 ",.01)
 ;;54569-1718-05
 ;;9002226.02101,"622,54569-1718-05 ",.02)
 ;;54569-1718-05
 ;;9002226.02101,"622,54569-2198-00 ",.01)
 ;;54569-2198-00
 ;;9002226.02101,"622,54569-2198-00 ",.02)
 ;;54569-2198-00
 ;;9002226.02101,"622,54569-2198-01 ",.01)
 ;;54569-2198-01
 ;;9002226.02101,"622,54569-2198-01 ",.02)
 ;;54569-2198-01
 ;;9002226.02101,"622,54569-2198-02 ",.01)
 ;;54569-2198-02
 ;;9002226.02101,"622,54569-2198-02 ",.02)
 ;;54569-2198-02
 ;;9002226.02101,"622,54569-2669-00 ",.01)
 ;;54569-2669-00
 ;;9002226.02101,"622,54569-2669-00 ",.02)
 ;;54569-2669-00
 ;;9002226.02101,"622,54569-2669-01 ",.01)
 ;;54569-2669-01
 ;;9002226.02101,"622,54569-2669-01 ",.02)
 ;;54569-2669-01
 ;;9002226.02101,"622,54569-2669-02 ",.01)
 ;;54569-2669-02
 ;;9002226.02101,"622,54569-2669-02 ",.02)
 ;;54569-2669-02
 ;;9002226.02101,"622,54569-2669-03 ",.01)
 ;;54569-2669-03
 ;;9002226.02101,"622,54569-2669-03 ",.02)
 ;;54569-2669-03
 ;;9002226.02101,"622,54868-0479-01 ",.01)
 ;;54868-0479-01
 ;;9002226.02101,"622,54868-0479-01 ",.02)
 ;;54868-0479-01
 ;;9002226.02101,"622,54868-3674-00 ",.01)
 ;;54868-3674-00
 ;;9002226.02101,"622,54868-3674-00 ",.02)
 ;;54868-3674-00
 ;;9002226.02101,"622,54868-3976-00 ",.01)
 ;;54868-3976-00
 ;;9002226.02101,"622,54868-3976-00 ",.02)
 ;;54868-3976-00
 ;;9002226.02101,"622,55289-0379-30 ",.01)
 ;;55289-0379-30
 ;;9002226.02101,"622,55289-0379-30 ",.02)
 ;;55289-0379-30
 ;;9002226.02101,"622,55499-1082-01 ",.01)
 ;;55499-1082-01
 ;;9002226.02101,"622,55499-1082-01 ",.02)
 ;;55499-1082-01
 ;;9002226.02101,"622,57844-0009-01 ",.01)
 ;;57844-0009-01
 ;;9002226.02101,"622,57844-0009-01 ",.02)
 ;;57844-0009-01
 ;;9002226.02101,"622,57844-0009-10 ",.01)
 ;;57844-0009-10
 ;;9002226.02101,"622,57844-0009-10 ",.02)
 ;;57844-0009-10
 ;;9002226.02101,"622,57844-0019-01 ",.01)
 ;;57844-0019-01
 ;;9002226.02101,"622,57844-0019-01 ",.02)
 ;;57844-0019-01
 ;;9002226.02101,"622,57866-9029-01 ",.01)
 ;;57866-9029-01
 ;;9002226.02101,"622,57866-9029-01 ",.02)
 ;;57866-9029-01
 ;;9002226.02101,"622,57866-9030-01 ",.01)
 ;;57866-9030-01
 ;;9002226.02101,"622,57866-9030-01 ",.02)
 ;;57866-9030-01
 ;;9002226.02101,"622,58016-0043-00 ",.01)
 ;;58016-0043-00
 ;;9002226.02101,"622,58016-0043-00 ",.02)
 ;;58016-0043-00
 ;;9002226.02101,"622,58016-0043-30 ",.01)
 ;;58016-0043-30
 ;;9002226.02101,"622,58016-0043-30 ",.02)
 ;;58016-0043-30
 ;;9002226.02101,"622,58016-0043-60 ",.01)
 ;;58016-0043-60
 ;;9002226.02101,"622,58016-0043-60 ",.02)
 ;;58016-0043-60
 ;;9002226.02101,"622,58016-0043-90 ",.01)
 ;;58016-0043-90
 ;;9002226.02101,"622,58016-0043-90 ",.02)
 ;;58016-0043-90
 ;;9002226.02101,"622,58016-0310-00 ",.01)
 ;;58016-0310-00
 ;;9002226.02101,"622,58016-0310-00 ",.02)
 ;;58016-0310-00
 ;;9002226.02101,"622,58016-0310-30 ",.01)
 ;;58016-0310-30
 ;;9002226.02101,"622,58016-0310-30 ",.02)
 ;;58016-0310-30
 ;;9002226.02101,"622,58016-0310-60 ",.01)
 ;;58016-0310-60
 ;;9002226.02101,"622,58016-0310-60 ",.02)
 ;;58016-0310-60
 ;;9002226.02101,"622,58016-0310-90 ",.01)
 ;;58016-0310-90
 ;;9002226.02101,"622,58016-0310-90 ",.02)
 ;;58016-0310-90
 ;;9002226.02101,"622,58016-0836-07 ",.01)
 ;;58016-0836-07
 ;;9002226.02101,"622,58016-0836-07 ",.02)
 ;;58016-0836-07
 ;;9002226.02101,"622,58016-0836-14 ",.01)
 ;;58016-0836-14
 ;;9002226.02101,"622,58016-0836-14 ",.02)
 ;;58016-0836-14