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

BGP7LXAM.m

Go to the documentation of this file.
BGP7LXAM ; 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,"622,60346-0693-94 ",.02)
 ;;60346-0693-94
 ;;9002226.02101,"622,60760-0890-15 ",.01)
 ;;60760-0890-15
 ;;9002226.02101,"622,60760-0890-15 ",.02)
 ;;60760-0890-15
 ;;9002226.02101,"622,60760-0890-60 ",.01)
 ;;60760-0890-60
 ;;9002226.02101,"622,60760-0890-60 ",.02)
 ;;60760-0890-60
 ;;9002226.02101,"622,60793-0009-01 ",.01)
 ;;60793-0009-01
 ;;9002226.02101,"622,60793-0009-01 ",.02)
 ;;60793-0009-01
 ;;9002226.02101,"622,61392-0446-10 ",.01)
 ;;61392-0446-10
 ;;9002226.02101,"622,61392-0446-10 ",.02)
 ;;61392-0446-10
 ;;9002226.02101,"622,61392-0446-15 ",.01)
 ;;61392-0446-15
 ;;9002226.02101,"622,61392-0446-15 ",.02)
 ;;61392-0446-15
 ;;9002226.02101,"622,61392-0446-30 ",.01)
 ;;61392-0446-30
 ;;9002226.02101,"622,61392-0446-30 ",.02)
 ;;61392-0446-30
 ;;9002226.02101,"622,61392-0446-31 ",.01)
 ;;61392-0446-31
 ;;9002226.02101,"622,61392-0446-31 ",.02)
 ;;61392-0446-31
 ;;9002226.02101,"622,61392-0446-32 ",.01)
 ;;61392-0446-32
 ;;9002226.02101,"622,61392-0446-32 ",.02)
 ;;61392-0446-32
 ;;9002226.02101,"622,61392-0446-39 ",.01)
 ;;61392-0446-39
 ;;9002226.02101,"622,61392-0446-39 ",.02)
 ;;61392-0446-39
 ;;9002226.02101,"622,61392-0446-45 ",.01)
 ;;61392-0446-45
 ;;9002226.02101,"622,61392-0446-45 ",.02)
 ;;61392-0446-45
 ;;9002226.02101,"622,61392-0446-51 ",.01)
 ;;61392-0446-51
 ;;9002226.02101,"622,61392-0446-51 ",.02)
 ;;61392-0446-51
 ;;9002226.02101,"622,61392-0446-54 ",.01)
 ;;61392-0446-54
 ;;9002226.02101,"622,61392-0446-54 ",.02)
 ;;61392-0446-54
 ;;9002226.02101,"622,61392-0446-56 ",.01)
 ;;61392-0446-56
 ;;9002226.02101,"622,61392-0446-56 ",.02)
 ;;61392-0446-56
 ;;9002226.02101,"622,61392-0446-60 ",.01)
 ;;61392-0446-60
 ;;9002226.02101,"622,61392-0446-60 ",.02)
 ;;61392-0446-60
 ;;9002226.02101,"622,61392-0446-90 ",.01)
 ;;61392-0446-90
 ;;9002226.02101,"622,61392-0446-90 ",.02)
 ;;61392-0446-90
 ;;9002226.02101,"622,61392-0446-91 ",.01)
 ;;61392-0446-91
 ;;9002226.02101,"622,61392-0446-91 ",.02)
 ;;61392-0446-91
 ;;9002226.02101,"622,62269-0391-24 ",.01)
 ;;62269-0391-24
 ;;9002226.02101,"622,62269-0391-24 ",.02)
 ;;62269-0391-24
 ;;9002226.02101,"622,62269-0392-24 ",.01)
 ;;62269-0392-24
 ;;9002226.02101,"622,62269-0392-24 ",.02)
 ;;62269-0392-24
 ;;9002226.02101,"622,62269-0393-24 ",.01)
 ;;62269-0393-24
 ;;9002226.02101,"622,62269-0393-24 ",.02)
 ;;62269-0393-24
 ;;9002226.02101,"622,62584-0840-01 ",.01)
 ;;62584-0840-01
 ;;9002226.02101,"622,62584-0840-01 ",.02)
 ;;62584-0840-01
 ;;9002226.02101,"622,62584-0840-33 ",.01)
 ;;62584-0840-33
 ;;9002226.02101,"622,62584-0840-33 ",.02)
 ;;62584-0840-33
 ;;9002226.02101,"622,62865-0030-62 ",.01)
 ;;62865-0030-62
 ;;9002226.02101,"622,62865-0030-62 ",.02)
 ;;62865-0030-62
 ;;9002226.02101,"622,62865-0030-68 ",.01)
 ;;62865-0030-68
 ;;9002226.02101,"622,62865-0030-68 ",.02)
 ;;62865-0030-68
 ;;9002226.02101,"622,62865-0185-71 ",.01)
 ;;62865-0185-71
 ;;9002226.02101,"622,62865-0185-71 ",.02)
 ;;62865-0185-71
 ;;9002226.02101,"622,62865-0355-71 ",.01)
 ;;62865-0355-71
 ;;9002226.02101,"622,62865-0355-71 ",.02)
 ;;62865-0355-71
 ;;9002226.02101,"622,62865-0437-78 ",.01)
 ;;62865-0437-78
 ;;9002226.02101,"622,62865-0437-78 ",.02)
 ;;62865-0437-78
 ;;9002226.02101,"622,62865-0726-88 ",.01)
 ;;62865-0726-88
 ;;9002226.02101,"622,62865-0726-88 ",.02)
 ;;62865-0726-88
 ;;9002226.02101,"622,62865-0726-89 ",.01)
 ;;62865-0726-89
 ;;9002226.02101,"622,62865-0726-89 ",.02)
 ;;62865-0726-89
 ;;9002226.02101,"622,62865-0752-17 ",.01)
 ;;62865-0752-17
 ;;9002226.02101,"622,62865-0752-17 ",.02)
 ;;62865-0752-17
 ;;9002226.02101,"622,62865-0763-81 ",.01)
 ;;62865-0763-81
 ;;9002226.02101,"622,62865-0763-81 ",.02)
 ;;62865-0763-81
 ;;9002226.02101,"622,62865-0776-33 ",.01)
 ;;62865-0776-33
 ;;9002226.02101,"622,62865-0776-33 ",.02)
 ;;62865-0776-33
 ;;9002226.02101,"622,62865-0777-98 ",.01)
 ;;62865-0777-98
 ;;9002226.02101,"622,62865-0777-98 ",.02)
 ;;62865-0777-98
 ;;9002226.02101,"622,62865-0790-25 ",.01)
 ;;62865-0790-25
 ;;9002226.02101,"622,62865-0790-25 ",.02)
 ;;62865-0790-25
 ;;9002226.02101,"622,62865-0837-71 ",.01)
 ;;62865-0837-71
 ;;9002226.02101,"622,62865-0837-71 ",.02)
 ;;62865-0837-71
 ;;9002226.02101,"622,63304-0678-01 ",.01)
 ;;63304-0678-01
 ;;9002226.02101,"622,63304-0678-01 ",.02)
 ;;63304-0678-01
 ;;9002226.02101,"622,63304-0908-01 ",.01)
 ;;63304-0908-01
 ;;9002226.02101,"622,63304-0908-01 ",.02)
 ;;63304-0908-01
 ;;9002226.02101,"622,63304-0909-01 ",.01)
 ;;63304-0909-01
 ;;9002226.02101,"622,63304-0909-01 ",.02)
 ;;63304-0909-01
 ;;9002226.02101,"622,63304-0910-01 ",.01)
 ;;63304-0910-01
 ;;9002226.02101,"622,63304-0910-01 ",.02)
 ;;63304-0910-01
 ;;9002226.02101,"622,63304-0911-01 ",.01)
 ;;63304-0911-01
 ;;9002226.02101,"622,63304-0911-01 ",.02)
 ;;63304-0911-01
 ;;9002226.02101,"622,63739-0215-02 ",.01)
 ;;63739-0215-02
 ;;9002226.02101,"622,63739-0215-02 ",.02)
 ;;63739-0215-02
 ;;9002226.02101,"622,63868-0090-50 ",.01)
 ;;63868-0090-50
 ;;9002226.02101,"622,63868-0090-50 ",.02)
 ;;63868-0090-50
 ;;9002226.02101,"622,63868-0325-01 ",.01)
 ;;63868-0325-01
 ;;9002226.02101,"622,63868-0325-01 ",.02)
 ;;63868-0325-01
 ;;9002226.02101,"622,63868-0446-50 ",.01)
 ;;63868-0446-50
 ;;9002226.02101,"622,63868-0446-50 ",.02)
 ;;63868-0446-50
 ;;9002226.02101,"622,64899-0067-01 ",.01)
 ;;64899-0067-01
 ;;9002226.02101,"622,64899-0067-01 ",.02)
 ;;64899-0067-01
 ;;9002226.02101,"622,64899-0075-50 ",.01)
 ;;64899-0075-50
 ;;9002226.02101,"622,64899-0075-50 ",.02)
 ;;64899-0075-50
 ;;9002226.02101,"622,64899-0077-24 ",.01)
 ;;64899-0077-24
 ;;9002226.02101,"622,64899-0077-24 ",.02)
 ;;64899-0077-24
 ;;9002226.02101,"622,64899-0078-24 ",.01)
 ;;64899-0078-24
 ;;9002226.02101,"622,64899-0078-24 ",.02)
 ;;64899-0078-24
 ;;9002226.02101,"622,64899-0103-50 ",.01)
 ;;64899-0103-50
 ;;9002226.02101,"622,64899-0103-50 ",.02)
 ;;64899-0103-50
 ;;9002226.02101,"622,64899-0104-01 ",.01)
 ;;64899-0104-01
 ;;9002226.02101,"622,64899-0104-01 ",.02)
 ;;64899-0104-01
 ;;9002226.02101,"622,64899-0105-01 ",.01)
 ;;64899-0105-01
 ;;9002226.02101,"622,64899-0105-01 ",.02)
 ;;64899-0105-01
 ;;9002226.02101,"622,65162-0608-24 ",.01)
 ;;65162-0608-24
 ;;9002226.02101,"622,65162-0608-24 ",.02)
 ;;65162-0608-24
 ;;9002226.02101,"622,65234-0047-10 ",.01)
 ;;65234-0047-10
 ;;9002226.02101,"622,65234-0047-10 ",.02)
 ;;65234-0047-10
 ;;9002226.02101,"622,65234-0048-10 ",.01)
 ;;65234-0048-10
 ;;9002226.02101,"622,65234-0048-10 ",.02)
 ;;65234-0048-10
 ;;9002226.02101,"622,65234-0048-90 ",.01)
 ;;65234-0048-90
 ;;9002226.02101,"622,65234-0048-90 ",.02)
 ;;65234-0048-90
 ;;9002226.02101,"622,65759-0780-05 ",.01)
 ;;65759-0780-05
 ;;9002226.02101,"622,65759-0780-05 ",.02)
 ;;65759-0780-05
 ;;9002226.02101,"622,66116-0116-20 ",.01)
 ;;66116-0116-20
 ;;9002226.02101,"622,66116-0116-20 ",.02)
 ;;66116-0116-20
 ;;9002226.02101,"622,66116-0116-40 ",.01)
 ;;66116-0116-40
 ;;9002226.02101,"622,66116-0116-40 ",.02)
 ;;66116-0116-40
 ;;9002226.02101,"622,66116-0604-30 ",.01)
 ;;66116-0604-30
 ;;9002226.02101,"622,66116-0604-30 ",.02)
 ;;66116-0604-30
 ;;9002226.02101,"622,66267-0178-91 ",.01)
 ;;66267-0178-91
 ;;9002226.02101,"622,66267-0178-91 ",.02)
 ;;66267-0178-91
 ;;9002226.02101,"622,67386-0102-01 ",.01)
 ;;67386-0102-01
 ;;9002226.02101,"622,67386-0102-01 ",.02)
 ;;67386-0102-01
 ;;9002226.02101,"622,68030-4361-01 ",.01)
 ;;68030-4361-01
 ;;9002226.02101,"622,68030-4361-01 ",.02)
 ;;68030-4361-01
 ;;9002226.02101,"622,68030-4361-03 ",.01)
 ;;68030-4361-03
 ;;9002226.02101,"622,68030-4361-03 ",.02)
 ;;68030-4361-03
 ;;9002226.02101,"622,68030-4361-09 ",.01)
 ;;68030-4361-09
 ;;9002226.02101,"622,68030-4361-09 ",.02)
 ;;68030-4361-09
 ;;9002226.02101,"622,68115-0050-07 ",.01)
 ;;68115-0050-07
 ;;9002226.02101,"622,68115-0050-07 ",.02)
 ;;68115-0050-07
 ;;9002226.02101,"622,68115-0050-14 ",.01)
 ;;68115-0050-14
 ;;9002226.02101,"622,68115-0050-14 ",.02)
 ;;68115-0050-14
 ;;9002226.02101,"622,68115-0050-28 ",.01)
 ;;68115-0050-28
 ;;9002226.02101,"622,68115-0050-28 ",.02)
 ;;68115-0050-28
 ;;9002226.02101,"622,68115-0050-90 ",.01)
 ;;68115-0050-90
 ;;9002226.02101,"622,68115-0050-90 ",.02)
 ;;68115-0050-90
 ;;9002226.02101,"622,68115-0051-14 ",.01)
 ;;68115-0051-14
 ;;9002226.02101,"622,68115-0051-14 ",.02)
 ;;68115-0051-14
 ;;9002226.02101,"622,68115-0051-21 ",.01)
 ;;68115-0051-21
 ;;9002226.02101,"622,68115-0051-21 ",.02)
 ;;68115-0051-21
 ;;9002226.02101,"622,68115-0051-30 ",.01)
 ;;68115-0051-30
 ;;9002226.02101,"622,68115-0051-30 ",.02)
 ;;68115-0051-30
 ;;9002226.02101,"622,68115-0108-30 ",.01)
 ;;68115-0108-30
 ;;9002226.02101,"622,68115-0108-30 ",.02)
 ;;68115-0108-30
 ;;9002226.02101,"622,68115-0109-30 ",.01)
 ;;68115-0109-30
 ;;9002226.02101,"622,68115-0109-30 ",.02)
 ;;68115-0109-30
 ;;9002226.02101,"622,68115-0110-28 ",.01)
 ;;68115-0110-28
 ;;9002226.02101,"622,68115-0110-28 ",.02)
 ;;68115-0110-28
 ;;9002226.02101,"622,68115-0273-14 ",.01)
 ;;68115-0273-14
 ;;9002226.02101,"622,68115-0273-14 ",.02)
 ;;68115-0273-14
 ;;9002226.02101,"622,68115-0273-21 ",.01)
 ;;68115-0273-21
 ;;9002226.02101,"622,68115-0273-21 ",.02)
 ;;68115-0273-21
 ;;9002226.02101,"622,68115-0277-14 ",.01)
 ;;68115-0277-14
 ;;9002226.02101,"622,68115-0277-14 ",.02)
 ;;68115-0277-14
 ;;9002226.02101,"622,68115-0277-30 ",.01)
 ;;68115-0277-30
 ;;9002226.02101,"622,68115-0277-30 ",.02)
 ;;68115-0277-30
 ;;9002226.02101,"622,68115-0278-14 ",.01)
 ;;68115-0278-14
 ;;9002226.02101,"622,68115-0278-14 ",.02)
 ;;68115-0278-14
 ;;9002226.02101,"622,68115-0278-30 ",.01)
 ;;68115-0278-30
 ;;9002226.02101,"622,68115-0278-30 ",.02)
 ;;68115-0278-30
 ;;9002226.02101,"622,68115-0279-00 ",.01)
 ;;68115-0279-00
 ;;9002226.02101,"622,68115-0279-00 ",.02)
 ;;68115-0279-00
 ;;9002226.02101,"622,68115-0279-30 ",.01)
 ;;68115-0279-30
 ;;9002226.02101,"622,68115-0279-30 ",.02)
 ;;68115-0279-30
 ;;9002226.02101,"622,68115-0280-30 ",.01)
 ;;68115-0280-30
 ;;9002226.02101,"622,68115-0280-30 ",.02)
 ;;68115-0280-30
 ;;9002226.02101,"622,68115-0305-12 ",.01)
 ;;68115-0305-12
 ;;9002226.02101,"622,68115-0305-12 ",.02)
 ;;68115-0305-12
 ;;9002226.02101,"622,68115-0757-00 ",.01)
 ;;68115-0757-00
 ;;9002226.02101,"622,68115-0757-00 ",.02)
 ;;68115-0757-00
 ;;9002226.02101,"622,68188-0132-01 ",.01)
 ;;68188-0132-01
 ;;9002226.02101,"622,68188-0132-01 ",.02)
 ;;68188-0132-01
 ;;9002226.02101,"622,68188-0135-01 ",.01)
 ;;68188-0135-01
 ;;9002226.02101,"622,68188-0135-01 ",.02)
 ;;68188-0135-01
 ;;9002226.02101,"622,68188-0137-01 ",.01)
 ;;68188-0137-01
 ;;9002226.02101,"622,68188-0137-01 ",.02)
 ;;68188-0137-01
 ;;9002226.02101,"622,68188-0881-50 ",.01)
 ;;68188-0881-50
 ;;9002226.02101,"622,68188-0881-50 ",.02)
 ;;68188-0881-50
 ;;9002226.02101,"622,68188-0882-50 ",.01)
 ;;68188-0882-50
 ;;9002226.02101,"622,68188-0882-50 ",.02)
 ;;68188-0882-50
 ;;9002226.02101,"622,68387-0100-12 ",.01)
 ;;68387-0100-12
 ;;9002226.02101,"622,68387-0100-12 ",.02)
 ;;68387-0100-12
 ;;9002226.02101,"622,68387-0100-30 ",.01)
 ;;68387-0100-30
 ;;9002226.02101,"622,68387-0100-30 ",.02)
 ;;68387-0100-30
 ;;9002226.02101,"622,68387-0100-60 ",.01)
 ;;68387-0100-60
 ;;9002226.02101,"622,68387-0100-60 ",.02)
 ;;68387-0100-60
 ;;9002226.02101,"622,68387-0100-90 ",.01)
 ;;68387-0100-90
 ;;9002226.02101,"622,68387-0100-90 ",.02)
 ;;68387-0100-90
 ;;9002226.02101,"622,70030-0135-02 ",.01)
 ;;70030-0135-02
 ;;9002226.02101,"622,70030-0135-02 ",.02)
 ;;70030-0135-02
 ;;9002226.02101,"622,70030-0135-39 ",.01)
 ;;70030-0135-39
 ;;9002226.02101,"622,70030-0135-39 ",.02)
 ;;70030-0135-39
 ;;9002226.02101,"622,70030-0837-71 ",.01)
 ;;70030-0837-71
 ;;9002226.02101,"622,70030-0837-71 ",.02)
 ;;70030-0837-71
 ;;9002226.02101,"622,73913-1347-50 ",.01)
 ;;73913-1347-50
 ;;9002226.02101,"622,73913-1347-50 ",.02)
 ;;73913-1347-50
 ;;9002226.02101,"622,73913-1445-24 ",.01)
 ;;73913-1445-24
 ;;9002226.02101,"622,73913-1445-24 ",.02)
 ;;73913-1445-24
 ;;9002226.02101,"622,87701-0844-99 ",.01)
 ;;87701-0844-99
 ;;9002226.02101,"622,87701-0844-99 ",.02)
 ;;87701-0844-99
 ;;9002226.02101,"622,87701-0871-19 ",.01)
 ;;87701-0871-19
 ;;9002226.02101,"622,87701-0871-19 ",.02)
 ;;87701-0871-19
 ;;9002226.02101,"622,87701-0875-13 ",.01)
 ;;87701-0875-13
 ;;9002226.02101,"622,87701-0875-13 ",.02)
 ;;87701-0875-13
 ;;9002226.02101,"622,87701-0875-14 ",.01)
 ;;87701-0875-14
 ;;9002226.02101,"622,87701-0875-14 ",.02)
 ;;87701-0875-14
 ;;9002226.02101,"622,87701-0915-08 ",.01)
 ;;87701-0915-08
 ;;9002226.02101,"622,87701-0915-08 ",.02)
 ;;87701-0915-08
 ;;9002226.02101,"622,91899-0439-71 ",.01)
 ;;91899-0439-71
 ;;9002226.02101,"622,91899-0439-71 ",.02)
 ;;91899-0439-71
 ;;9002226.02101,"622,94441-0220-12 ",.01)
 ;;94441-0220-12
 ;;9002226.02101,"622,94441-0220-12 ",.02)
 ;;94441-0220-12
 ;;9002226.02101,"622,94441-0223-35 ",.01)
 ;;94441-0223-35
 ;;9002226.02101,"622,94441-0223-35 ",.02)
 ;;94441-0223-35
 ;;9002226.02101,"622,94441-0223-36 ",.01)
 ;;94441-0223-36
 ;;9002226.02101,"622,94441-0223-36 ",.02)
 ;;94441-0223-36
 ;;9002226.02101,"622,94441-0223-48 ",.01)
 ;;94441-0223-48
 ;;9002226.02101,"622,94441-0223-48 ",.02)
 ;;94441-0223-48
 ;;9002226.02101,"622,96295-0108-07 ",.01)
 ;;96295-0108-07
 ;;9002226.02101,"622,96295-0108-07 ",.02)
 ;;96295-0108-07
 ;;9002226.02101,"622,97807-0010-42 ",.01)
 ;;97807-0010-42
 ;;9002226.02101,"622,97807-0010-42 ",.02)
 ;;97807-0010-42
 ;;9002226.02101,"622,97807-0010-75 ",.01)
 ;;97807-0010-75