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

BGP7LXFG.m

Go to the documentation of this file.
BGP7LXFG ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 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,"623,51655-0838-25 ",.01)
 ;;51655-0838-25
 ;;9002226.02101,"623,51655-0838-25 ",.02)
 ;;51655-0838-25
 ;;9002226.02101,"623,51660-0784-01 ",.01)
 ;;51660-0784-01
 ;;9002226.02101,"623,51660-0784-01 ",.02)
 ;;51660-0784-01
 ;;9002226.02101,"623,51660-0784-10 ",.01)
 ;;51660-0784-10
 ;;9002226.02101,"623,51660-0784-10 ",.02)
 ;;51660-0784-10
 ;;9002226.02101,"623,51660-0785-01 ",.01)
 ;;51660-0785-01
 ;;9002226.02101,"623,51660-0785-01 ",.02)
 ;;51660-0785-01
 ;;9002226.02101,"623,51660-0785-10 ",.01)
 ;;51660-0785-10
 ;;9002226.02101,"623,51660-0785-10 ",.02)
 ;;51660-0785-10
 ;;9002226.02101,"623,51660-0786-01 ",.01)
 ;;51660-0786-01
 ;;9002226.02101,"623,51660-0786-01 ",.02)
 ;;51660-0786-01
 ;;9002226.02101,"623,51660-0786-10 ",.01)
 ;;51660-0786-10
 ;;9002226.02101,"623,51660-0786-10 ",.02)
 ;;51660-0786-10
 ;;9002226.02101,"623,51660-0787-01 ",.01)
 ;;51660-0787-01
 ;;9002226.02101,"623,51660-0787-01 ",.02)
 ;;51660-0787-01
 ;;9002226.02101,"623,51660-0787-10 ",.01)
 ;;51660-0787-10
 ;;9002226.02101,"623,51660-0787-10 ",.02)
 ;;51660-0787-10
 ;;9002226.02101,"623,51660-0789-01 ",.01)
 ;;51660-0789-01
 ;;9002226.02101,"623,51660-0789-01 ",.02)
 ;;51660-0789-01
 ;;9002226.02101,"623,51674-0009-01 ",.01)
 ;;51674-0009-01
 ;;9002226.02101,"623,51674-0009-01 ",.02)
 ;;51674-0009-01
 ;;9002226.02101,"623,51724-0020-01 ",.01)
 ;;51724-0020-01
 ;;9002226.02101,"623,51724-0020-01 ",.02)
 ;;51724-0020-01
 ;;9002226.02101,"623,51724-0020-04 ",.01)
 ;;51724-0020-04
 ;;9002226.02101,"623,51724-0020-04 ",.02)
 ;;51724-0020-04
 ;;9002226.02101,"623,51991-0073-01 ",.01)
 ;;51991-0073-01
 ;;9002226.02101,"623,51991-0073-01 ",.02)
 ;;51991-0073-01
 ;;9002226.02101,"623,51991-0074-01 ",.01)
 ;;51991-0074-01
 ;;9002226.02101,"623,51991-0074-01 ",.02)
 ;;51991-0074-01
 ;;9002226.02101,"623,51991-0074-05 ",.01)
 ;;51991-0074-05
 ;;9002226.02101,"623,51991-0074-05 ",.02)
 ;;51991-0074-05
 ;;9002226.02101,"623,52098-0470-05 ",.01)
 ;;52098-0470-05
 ;;9002226.02101,"623,52098-0470-05 ",.02)
 ;;52098-0470-05
 ;;9002226.02101,"623,52406-0014-10 ",.01)
 ;;52406-0014-10
 ;;9002226.02101,"623,52406-0014-10 ",.02)
 ;;52406-0014-10
 ;;9002226.02101,"623,52544-0425-01 ",.01)
 ;;52544-0425-01
 ;;9002226.02101,"623,52544-0425-01 ",.02)
 ;;52544-0425-01
 ;;9002226.02101,"623,52544-0425-05 ",.01)
 ;;52544-0425-05
 ;;9002226.02101,"623,52544-0425-05 ",.02)
 ;;52544-0425-05
 ;;9002226.02101,"623,52544-0485-01 ",.01)
 ;;52544-0485-01
 ;;9002226.02101,"623,52544-0485-01 ",.02)
 ;;52544-0485-01
 ;;9002226.02101,"623,52544-0485-05 ",.01)
 ;;52544-0485-05
 ;;9002226.02101,"623,52544-0485-05 ",.02)
 ;;52544-0485-05
 ;;9002226.02101,"623,52544-0800-10 ",.01)
 ;;52544-0800-10
 ;;9002226.02101,"623,52544-0800-10 ",.02)
 ;;52544-0800-10
 ;;9002226.02101,"623,52544-0801-10 ",.01)
 ;;52544-0801-10
 ;;9002226.02101,"623,52544-0801-10 ",.02)
 ;;52544-0801-10
 ;;9002226.02101,"623,52544-0955-01 ",.01)
 ;;52544-0955-01
 ;;9002226.02101,"623,52544-0955-01 ",.02)
 ;;52544-0955-01
 ;;9002226.02101,"623,52544-0956-01 ",.01)
 ;;52544-0956-01
 ;;9002226.02101,"623,52544-0956-01 ",.02)
 ;;52544-0956-01
 ;;9002226.02101,"623,52544-0957-01 ",.01)
 ;;52544-0957-01
 ;;9002226.02101,"623,52544-0957-01 ",.02)
 ;;52544-0957-01
 ;;9002226.02101,"623,52544-0957-05 ",.01)
 ;;52544-0957-05
 ;;9002226.02101,"623,52544-0957-05 ",.02)
 ;;52544-0957-05
 ;;9002226.02101,"623,52544-0958-01 ",.01)
 ;;52544-0958-01
 ;;9002226.02101,"623,52544-0958-01 ",.02)
 ;;52544-0958-01
 ;;9002226.02101,"623,52569-0203-11 ",.01)
 ;;52569-0203-11
 ;;9002226.02101,"623,52569-0203-11 ",.02)
 ;;52569-0203-11
 ;;9002226.02101,"623,52569-4340-77 ",.01)
 ;;52569-4340-77
 ;;9002226.02101,"623,52569-4340-77 ",.02)
 ;;52569-4340-77
 ;;9002226.02101,"623,52584-0827-10 ",.01)
 ;;52584-0827-10
 ;;9002226.02101,"623,52584-0827-10 ",.02)
 ;;52584-0827-10
 ;;9002226.02101,"623,52604-6712-01 ",.01)
 ;;52604-6712-01
 ;;9002226.02101,"623,52604-6712-01 ",.02)
 ;;52604-6712-01
 ;;9002226.02101,"623,52604-6712-02 ",.01)
 ;;52604-6712-02
 ;;9002226.02101,"623,52604-6712-02 ",.02)
 ;;52604-6712-02
 ;;9002226.02101,"623,52604-6722-01 ",.01)
 ;;52604-6722-01
 ;;9002226.02101,"623,52604-6722-01 ",.02)
 ;;52604-6722-01
 ;;9002226.02101,"623,52604-6722-02 ",.01)
 ;;52604-6722-02
 ;;9002226.02101,"623,52604-6722-02 ",.02)
 ;;52604-6722-02
 ;;9002226.02101,"623,52604-6731-01 ",.01)
 ;;52604-6731-01
 ;;9002226.02101,"623,52604-6731-01 ",.02)
 ;;52604-6731-01
 ;;9002226.02101,"623,52604-6731-02 ",.01)
 ;;52604-6731-02
 ;;9002226.02101,"623,52604-6731-02 ",.02)
 ;;52604-6731-02
 ;;9002226.02101,"623,52604-6740-01 ",.01)
 ;;52604-6740-01
 ;;9002226.02101,"623,52604-6740-01 ",.02)
 ;;52604-6740-01
 ;;9002226.02101,"623,52604-6740-02 ",.01)
 ;;52604-6740-02
 ;;9002226.02101,"623,52604-6740-02 ",.02)
 ;;52604-6740-02
 ;;9002226.02101,"623,52747-0600-60 ",.01)
 ;;52747-0600-60
 ;;9002226.02101,"623,52747-0600-60 ",.02)
 ;;52747-0600-60
 ;;9002226.02101,"623,52959-0370-00 ",.01)
 ;;52959-0370-00
 ;;9002226.02101,"623,52959-0370-00 ",.02)
 ;;52959-0370-00
 ;;9002226.02101,"623,52959-0370-12 ",.01)
 ;;52959-0370-12
 ;;9002226.02101,"623,52959-0370-12 ",.02)
 ;;52959-0370-12
 ;;9002226.02101,"623,52959-0370-20 ",.01)
 ;;52959-0370-20
 ;;9002226.02101,"623,52959-0370-20 ",.02)
 ;;52959-0370-20
 ;;9002226.02101,"623,52959-0370-25 ",.01)
 ;;52959-0370-25
 ;;9002226.02101,"623,52959-0370-25 ",.02)
 ;;52959-0370-25
 ;;9002226.02101,"623,52959-0370-30 ",.01)
 ;;52959-0370-30
 ;;9002226.02101,"623,52959-0370-30 ",.02)
 ;;52959-0370-30
 ;;9002226.02101,"623,52959-0370-50 ",.01)
 ;;52959-0370-50
 ;;9002226.02101,"623,52959-0370-50 ",.02)
 ;;52959-0370-50
 ;;9002226.02101,"623,52959-0370-60 ",.01)
 ;;52959-0370-60
 ;;9002226.02101,"623,52959-0370-60 ",.02)
 ;;52959-0370-60
 ;;9002226.02101,"623,52959-0399-20 ",.01)
 ;;52959-0399-20
 ;;9002226.02101,"623,52959-0399-20 ",.02)
 ;;52959-0399-20
 ;;9002226.02101,"623,52959-0399-60 ",.01)
 ;;52959-0399-60
 ;;9002226.02101,"623,52959-0399-60 ",.02)
 ;;52959-0399-60
 ;;9002226.02101,"623,52959-0433-10 ",.01)
 ;;52959-0433-10
 ;;9002226.02101,"623,52959-0433-10 ",.02)
 ;;52959-0433-10
 ;;9002226.02101,"623,52959-0433-15 ",.01)
 ;;52959-0433-15
 ;;9002226.02101,"623,52959-0433-15 ",.02)
 ;;52959-0433-15
 ;;9002226.02101,"623,52959-0433-30 ",.01)
 ;;52959-0433-30
 ;;9002226.02101,"623,52959-0433-30 ",.02)
 ;;52959-0433-30
 ;;9002226.02101,"623,52959-1398-03 ",.01)
 ;;52959-1398-03
 ;;9002226.02101,"623,52959-1398-03 ",.02)
 ;;52959-1398-03
 ;;9002226.02101,"623,53265-0235-10 ",.01)
 ;;53265-0235-10
 ;;9002226.02101,"623,53265-0235-10 ",.02)
 ;;53265-0235-10
 ;;9002226.02101,"623,53265-0235-50 ",.01)
 ;;53265-0235-50
 ;;9002226.02101,"623,53265-0235-50 ",.02)
 ;;53265-0235-50
 ;;9002226.02101,"623,53265-0236-10 ",.01)
 ;;53265-0236-10
 ;;9002226.02101,"623,53265-0236-10 ",.02)
 ;;53265-0236-10
 ;;9002226.02101,"623,53265-0236-50 ",.01)
 ;;53265-0236-50
 ;;9002226.02101,"623,53265-0236-50 ",.02)
 ;;53265-0236-50
 ;;9002226.02101,"623,53265-0240-10 ",.01)
 ;;53265-0240-10
 ;;9002226.02101,"623,53265-0240-10 ",.02)
 ;;53265-0240-10
 ;;9002226.02101,"623,53445-1098-01 ",.01)
 ;;53445-1098-01
 ;;9002226.02101,"623,53445-1098-01 ",.02)
 ;;53445-1098-01
 ;;9002226.02101,"623,53445-1099-01 ",.01)
 ;;53445-1099-01
 ;;9002226.02101,"623,53445-1099-01 ",.02)
 ;;53445-1099-01
 ;;9002226.02101,"623,53633-0069-01 ",.01)
 ;;53633-0069-01
 ;;9002226.02101,"623,53633-0069-01 ",.02)
 ;;53633-0069-01
 ;;9002226.02101,"623,53633-0069-05 ",.01)
 ;;53633-0069-05
 ;;9002226.02101,"623,53633-0069-05 ",.02)
 ;;53633-0069-05
 ;;9002226.02101,"623,53633-0069-10 ",.01)
 ;;53633-0069-10
 ;;9002226.02101,"623,53633-0069-10 ",.02)
 ;;53633-0069-10
 ;;9002226.02101,"623,53633-0069-11 ",.01)
 ;;53633-0069-11
 ;;9002226.02101,"623,53633-0069-11 ",.02)
 ;;53633-0069-11
 ;;9002226.02101,"623,53633-0070-01 ",.01)
 ;;53633-0070-01
 ;;9002226.02101,"623,53633-0070-01 ",.02)
 ;;53633-0070-01
 ;;9002226.02101,"623,53633-0070-05 ",.01)
 ;;53633-0070-05
 ;;9002226.02101,"623,53633-0070-05 ",.02)
 ;;53633-0070-05
 ;;9002226.02101,"623,53633-0070-10 ",.01)
 ;;53633-0070-10
 ;;9002226.02101,"623,53633-0070-10 ",.02)
 ;;53633-0070-10
 ;;9002226.02101,"623,53633-0070-11 ",.01)
 ;;53633-0070-11
 ;;9002226.02101,"623,53633-0070-11 ",.02)
 ;;53633-0070-11
 ;;9002226.02101,"623,53633-0071-01 ",.01)
 ;;53633-0071-01
 ;;9002226.02101,"623,53633-0071-01 ",.02)
 ;;53633-0071-01
 ;;9002226.02101,"623,53633-0071-05 ",.01)
 ;;53633-0071-05
 ;;9002226.02101,"623,53633-0071-05 ",.02)
 ;;53633-0071-05
 ;;9002226.02101,"623,53633-0071-10 ",.01)
 ;;53633-0071-10
 ;;9002226.02101,"623,53633-0071-10 ",.02)
 ;;53633-0071-10
 ;;9002226.02101,"623,53633-0071-11 ",.01)
 ;;53633-0071-11
 ;;9002226.02101,"623,53633-0071-11 ",.02)
 ;;53633-0071-11
 ;;9002226.02101,"623,54198-0130-16 ",.01)
 ;;54198-0130-16
 ;;9002226.02101,"623,54198-0130-16 ",.02)
 ;;54198-0130-16
 ;;9002226.02101,"623,54198-0130-28 ",.01)
 ;;54198-0130-28
 ;;9002226.02101,"623,54198-0130-28 ",.02)
 ;;54198-0130-28
 ;;9002226.02101,"623,54274-0034-10 ",.01)
 ;;54274-0034-10
 ;;9002226.02101,"623,54274-0034-10 ",.02)
 ;;54274-0034-10
 ;;9002226.02101,"623,54274-0034-30 ",.01)
 ;;54274-0034-30
 ;;9002226.02101,"623,54274-0034-30 ",.02)
 ;;54274-0034-30
 ;;9002226.02101,"623,54274-0035-10 ",.01)
 ;;54274-0035-10
 ;;9002226.02101,"623,54274-0035-10 ",.02)
 ;;54274-0035-10
 ;;9002226.02101,"623,54274-0035-30 ",.01)
 ;;54274-0035-30
 ;;9002226.02101,"623,54274-0035-30 ",.02)
 ;;54274-0035-30
 ;;9002226.02101,"623,54274-0107-10 ",.01)
 ;;54274-0107-10
 ;;9002226.02101,"623,54274-0107-10 ",.02)
 ;;54274-0107-10
 ;;9002226.02101,"623,54274-0135-30 ",.01)
 ;;54274-0135-30
 ;;9002226.02101,"623,54274-0135-30 ",.02)
 ;;54274-0135-30
 ;;9002226.02101,"623,54274-0745-62 ",.01)
 ;;54274-0745-62
 ;;9002226.02101,"623,54274-0745-62 ",.02)
 ;;54274-0745-62
 ;;9002226.02101,"623,54348-0987-16 ",.01)
 ;;54348-0987-16
 ;;9002226.02101,"623,54348-0987-16 ",.02)
 ;;54348-0987-16
 ;;9002226.02101,"623,54569-0013-00 ",.01)
 ;;54569-0013-00
 ;;9002226.02101,"623,54569-0013-00 ",.02)
 ;;54569-0013-00
 ;;9002226.02101,"623,54569-0013-02 ",.01)
 ;;54569-0013-02
 ;;9002226.02101,"623,54569-0013-02 ",.02)
 ;;54569-0013-02
 ;;9002226.02101,"623,54569-0339-00 ",.01)
 ;;54569-0339-00
 ;;9002226.02101,"623,54569-0339-00 ",.02)
 ;;54569-0339-00
 ;;9002226.02101,"623,54569-0339-04 ",.01)
 ;;54569-0339-04
 ;;9002226.02101,"623,54569-0339-04 ",.02)
 ;;54569-0339-04
 ;;9002226.02101,"623,54569-0938-00 ",.01)
 ;;54569-0938-00
 ;;9002226.02101,"623,54569-0938-00 ",.02)
 ;;54569-0938-00
 ;;9002226.02101,"623,54569-0938-01 ",.01)
 ;;54569-0938-01
 ;;9002226.02101,"623,54569-0938-01 ",.02)
 ;;54569-0938-01
 ;;9002226.02101,"623,54569-0938-02 ",.01)
 ;;54569-0938-02
 ;;9002226.02101,"623,54569-0938-02 ",.02)
 ;;54569-0938-02
 ;;9002226.02101,"623,54569-2031-00 ",.01)
 ;;54569-2031-00
 ;;9002226.02101,"623,54569-2031-00 ",.02)
 ;;54569-2031-00
 ;;9002226.02101,"623,54569-2538-00 ",.01)
 ;;54569-2538-00
 ;;9002226.02101,"623,54569-2538-00 ",.02)
 ;;54569-2538-00
 ;;9002226.02101,"623,54569-2538-01 ",.01)
 ;;54569-2538-01
 ;;9002226.02101,"623,54569-2538-01 ",.02)
 ;;54569-2538-01
 ;;9002226.02101,"623,54569-2538-03 ",.01)
 ;;54569-2538-03
 ;;9002226.02101,"623,54569-2538-03 ",.02)
 ;;54569-2538-03
 ;;9002226.02101,"623,54569-2538-04 ",.01)
 ;;54569-2538-04
 ;;9002226.02101,"623,54569-2538-04 ",.02)
 ;;54569-2538-04
 ;;9002226.02101,"623,54569-2538-05 ",.01)
 ;;54569-2538-05
 ;;9002226.02101,"623,54569-2538-05 ",.02)
 ;;54569-2538-05
 ;;9002226.02101,"623,54569-2571-05 ",.01)
 ;;54569-2571-05
 ;;9002226.02101,"623,54569-2571-05 ",.02)
 ;;54569-2571-05
 ;;9002226.02101,"623,54569-3024-00 ",.01)
 ;;54569-3024-00
 ;;9002226.02101,"623,54569-3024-00 ",.02)
 ;;54569-3024-00
 ;;9002226.02101,"623,54569-3282-00 ",.01)
 ;;54569-3282-00
 ;;9002226.02101,"623,54569-3282-00 ",.02)
 ;;54569-3282-00
 ;;9002226.02101,"623,54569-3441-00 ",.01)
 ;;54569-3441-00
 ;;9002226.02101,"623,54569-3441-00 ",.02)
 ;;54569-3441-00
 ;;9002226.02101,"623,54569-3441-01 ",.01)
 ;;54569-3441-01
 ;;9002226.02101,"623,54569-3441-01 ",.02)
 ;;54569-3441-01
 ;;9002226.02101,"623,54569-4197-00 ",.01)
 ;;54569-4197-00
 ;;9002226.02101,"623,54569-4197-00 ",.02)
 ;;54569-4197-00
 ;;9002226.02101,"623,54569-4935-00 ",.01)
 ;;54569-4935-00
 ;;9002226.02101,"623,54569-4935-00 ",.02)
 ;;54569-4935-00
 ;;9002226.02101,"623,54569-4935-01 ",.01)
 ;;54569-4935-01
 ;;9002226.02101,"623,54569-4935-01 ",.02)
 ;;54569-4935-01
 ;;9002226.02101,"623,54868-1031-00 ",.01)
 ;;54868-1031-00
 ;;9002226.02101,"623,54868-1031-00 ",.02)
 ;;54868-1031-00
 ;;9002226.02101,"623,54868-1031-02 ",.01)
 ;;54868-1031-02
 ;;9002226.02101,"623,54868-1031-02 ",.02)
 ;;54868-1031-02
 ;;9002226.02101,"623,54868-1036-00 ",.01)
 ;;54868-1036-00
 ;;9002226.02101,"623,54868-1036-00 ",.02)
 ;;54868-1036-00
 ;;9002226.02101,"623,54868-1036-01 ",.01)
 ;;54868-1036-01
 ;;9002226.02101,"623,54868-1036-01 ",.02)
 ;;54868-1036-01
 ;;9002226.02101,"623,54868-1036-02 ",.01)
 ;;54868-1036-02
 ;;9002226.02101,"623,54868-1036-02 ",.02)
 ;;54868-1036-02
 ;;9002226.02101,"623,54868-1036-03 ",.01)
 ;;54868-1036-03
 ;;9002226.02101,"623,54868-1036-03 ",.02)
 ;;54868-1036-03
 ;;9002226.02101,"623,54868-1053-00 ",.01)
 ;;54868-1053-00
 ;;9002226.02101,"623,54868-1053-00 ",.02)
 ;;54868-1053-00