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

BGP82Z71.m

Go to the documentation of this file.
BGP82Z71 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"619,63874-1227-06 ",.02)
 ;;63874-1227-06
 ;;9002226.02101,"619,63874-1227-09 ",.01)
 ;;63874-1227-09
 ;;9002226.02101,"619,63874-1227-09 ",.02)
 ;;63874-1227-09
 ;;9002226.02101,"619,63874-1233-00 ",.01)
 ;;63874-1233-00
 ;;9002226.02101,"619,63874-1233-00 ",.02)
 ;;63874-1233-00
 ;;9002226.02101,"619,63874-1233-03 ",.01)
 ;;63874-1233-03
 ;;9002226.02101,"619,63874-1233-03 ",.02)
 ;;63874-1233-03
 ;;9002226.02101,"619,63874-1233-06 ",.01)
 ;;63874-1233-06
 ;;9002226.02101,"619,63874-1233-06 ",.02)
 ;;63874-1233-06
 ;;9002226.02101,"619,63874-1233-09 ",.01)
 ;;63874-1233-09
 ;;9002226.02101,"619,63874-1233-09 ",.02)
 ;;63874-1233-09
 ;;9002226.02101,"619,63874-1234-03 ",.01)
 ;;63874-1234-03
 ;;9002226.02101,"619,63874-1234-03 ",.02)
 ;;63874-1234-03
 ;;9002226.02101,"619,63874-1234-06 ",.01)
 ;;63874-1234-06
 ;;9002226.02101,"619,63874-1234-06 ",.02)
 ;;63874-1234-06
 ;;9002226.02101,"619,63874-1235-03 ",.01)
 ;;63874-1235-03
 ;;9002226.02101,"619,63874-1235-03 ",.02)
 ;;63874-1235-03
 ;;9002226.02101,"619,63874-1235-06 ",.01)
 ;;63874-1235-06
 ;;9002226.02101,"619,63874-1235-06 ",.02)
 ;;63874-1235-06
 ;;9002226.02101,"619,63874-1238-03 ",.01)
 ;;63874-1238-03
 ;;9002226.02101,"619,63874-1238-03 ",.02)
 ;;63874-1238-03
 ;;9002226.02101,"619,63874-1238-06 ",.01)
 ;;63874-1238-06
 ;;9002226.02101,"619,63874-1238-06 ",.02)
 ;;63874-1238-06
 ;;9002226.02101,"619,63874-1265-03 ",.01)
 ;;63874-1265-03
 ;;9002226.02101,"619,63874-1265-03 ",.02)
 ;;63874-1265-03
 ;;9002226.02101,"619,63874-1265-06 ",.01)
 ;;63874-1265-06
 ;;9002226.02101,"619,63874-1265-06 ",.02)
 ;;63874-1265-06
 ;;9002226.02101,"619,63874-1266-02 ",.01)
 ;;63874-1266-02
 ;;9002226.02101,"619,63874-1266-02 ",.02)
 ;;63874-1266-02
 ;;9002226.02101,"619,63874-1266-03 ",.01)
 ;;63874-1266-03
 ;;9002226.02101,"619,63874-1266-03 ",.02)
 ;;63874-1266-03
 ;;9002226.02101,"619,63874-1266-06 ",.01)
 ;;63874-1266-06
 ;;9002226.02101,"619,63874-1266-06 ",.02)
 ;;63874-1266-06
 ;;9002226.02101,"619,63874-1267-02 ",.01)
 ;;63874-1267-02
 ;;9002226.02101,"619,63874-1267-02 ",.02)
 ;;63874-1267-02
 ;;9002226.02101,"619,63874-1267-03 ",.01)
 ;;63874-1267-03
 ;;9002226.02101,"619,63874-1267-03 ",.02)
 ;;63874-1267-03
 ;;9002226.02101,"619,63874-1267-06 ",.01)
 ;;63874-1267-06
 ;;9002226.02101,"619,63874-1267-06 ",.02)
 ;;63874-1267-06
 ;;9002226.02101,"619,63874-1277-05 ",.01)
 ;;63874-1277-05
 ;;9002226.02101,"619,63874-1277-05 ",.02)
 ;;63874-1277-05
 ;;9002226.02101,"619,63874-1278-05 ",.01)
 ;;63874-1278-05
 ;;9002226.02101,"619,63874-1278-05 ",.02)
 ;;63874-1278-05
 ;;9002226.02101,"619,63874-1279-05 ",.01)
 ;;63874-1279-05
 ;;9002226.02101,"619,63874-1279-05 ",.02)
 ;;63874-1279-05
 ;;9002226.02101,"619,63874-1280-05 ",.01)
 ;;63874-1280-05
 ;;9002226.02101,"619,63874-1280-05 ",.02)
 ;;63874-1280-05
 ;;9002226.02101,"619,64205-0627-30 ",.01)
 ;;64205-0627-30
 ;;9002226.02101,"619,64205-0627-30 ",.02)
 ;;64205-0627-30
 ;;9002226.02101,"619,64376-0640-16 ",.01)
 ;;64376-0640-16
 ;;9002226.02101,"619,64376-0640-16 ",.02)
 ;;64376-0640-16
 ;;9002226.02101,"619,64376-0640-40 ",.01)
 ;;64376-0640-40
 ;;9002226.02101,"619,64376-0640-40 ",.02)
 ;;64376-0640-40
 ;;9002226.02101,"619,64376-0643-01 ",.01)
 ;;64376-0643-01
 ;;9002226.02101,"619,64376-0643-01 ",.02)
 ;;64376-0643-01
 ;;9002226.02101,"619,64376-0643-05 ",.01)
 ;;64376-0643-05
 ;;9002226.02101,"619,64376-0643-05 ",.02)
 ;;64376-0643-05
 ;;9002226.02101,"619,64376-0648-01 ",.01)
 ;;64376-0648-01
 ;;9002226.02101,"619,64376-0648-01 ",.02)
 ;;64376-0648-01
 ;;9002226.02101,"619,64376-0648-05 ",.01)
 ;;64376-0648-05
 ;;9002226.02101,"619,64376-0648-05 ",.02)
 ;;64376-0648-05
 ;;9002226.02101,"619,64376-0649-01 ",.01)
 ;;64376-0649-01
 ;;9002226.02101,"619,64376-0649-01 ",.02)
 ;;64376-0649-01
 ;;9002226.02101,"619,64376-0649-05 ",.01)
 ;;64376-0649-05
 ;;9002226.02101,"619,64376-0649-05 ",.02)
 ;;64376-0649-05
 ;;9002226.02101,"619,64720-0224-10 ",.01)
 ;;64720-0224-10
 ;;9002226.02101,"619,64720-0224-10 ",.02)
 ;;64720-0224-10
 ;;9002226.02101,"619,64720-0225-10 ",.01)
 ;;64720-0225-10
 ;;9002226.02101,"619,64720-0225-10 ",.02)
 ;;64720-0225-10
 ;;9002226.02101,"619,64720-0226-10 ",.01)
 ;;64720-0226-10
 ;;9002226.02101,"619,64720-0226-10 ",.02)
 ;;64720-0226-10
 ;;9002226.02101,"619,64720-0258-10 ",.01)
 ;;64720-0258-10
 ;;9002226.02101,"619,64720-0258-10 ",.02)
 ;;64720-0258-10
 ;;9002226.02101,"619,64720-0259-10 ",.01)
 ;;64720-0259-10
 ;;9002226.02101,"619,64720-0259-10 ",.02)
 ;;64720-0259-10
 ;;9002226.02101,"619,64720-0304-50 ",.01)
 ;;64720-0304-50
 ;;9002226.02101,"619,64720-0304-50 ",.02)
 ;;64720-0304-50
 ;;9002226.02101,"619,64720-0305-11 ",.01)
 ;;64720-0305-11
 ;;9002226.02101,"619,64720-0305-11 ",.02)
 ;;64720-0305-11
 ;;9002226.02101,"619,64950-0340-47 ",.01)
 ;;64950-0340-47
 ;;9002226.02101,"619,64950-0340-47 ",.02)
 ;;64950-0340-47
 ;;9002226.02101,"619,64950-0354-05 ",.01)
 ;;64950-0354-05
 ;;9002226.02101,"619,64950-0354-05 ",.02)
 ;;64950-0354-05
 ;;9002226.02101,"619,64950-0354-45 ",.01)
 ;;64950-0354-45
 ;;9002226.02101,"619,64950-0354-45 ",.02)
 ;;64950-0354-45
 ;;9002226.02101,"619,64950-0354-50 ",.01)
 ;;64950-0354-50
 ;;9002226.02101,"619,64950-0354-50 ",.02)
 ;;64950-0354-50
 ;;9002226.02101,"619,64950-0354-55 ",.01)
 ;;64950-0354-55
 ;;9002226.02101,"619,64950-0354-55 ",.02)
 ;;64950-0354-55
 ;;9002226.02101,"619,64980-0176-01 ",.01)
 ;;64980-0176-01
 ;;9002226.02101,"619,64980-0176-01 ",.02)
 ;;64980-0176-01
 ;;9002226.02101,"619,65084-0444-32 ",.01)
 ;;65084-0444-32
 ;;9002226.02101,"619,65084-0444-32 ",.02)
 ;;65084-0444-32
 ;;9002226.02101,"619,65162-0033-10 ",.01)
 ;;65162-0033-10
 ;;9002226.02101,"619,65162-0033-10 ",.02)
 ;;65162-0033-10
 ;;9002226.02101,"619,65162-0033-11 ",.01)
 ;;65162-0033-11
 ;;9002226.02101,"619,65162-0033-11 ",.02)
 ;;65162-0033-11
 ;;9002226.02101,"619,65162-0047-10 ",.01)
 ;;65162-0047-10
 ;;9002226.02101,"619,65162-0047-10 ",.02)
 ;;65162-0047-10
 ;;9002226.02101,"619,65162-0047-50 ",.01)
 ;;65162-0047-50
 ;;9002226.02101,"619,65162-0047-50 ",.02)
 ;;65162-0047-50
 ;;9002226.02101,"619,65162-0048-10 ",.01)
 ;;65162-0048-10
 ;;9002226.02101,"619,65162-0048-10 ",.02)
 ;;65162-0048-10
 ;;9002226.02101,"619,65162-0049-10 ",.01)
 ;;65162-0049-10
 ;;9002226.02101,"619,65162-0049-10 ",.02)
 ;;65162-0049-10
 ;;9002226.02101,"619,65162-0049-50 ",.01)
 ;;65162-0049-50
 ;;9002226.02101,"619,65162-0049-50 ",.02)
 ;;65162-0049-50
 ;;9002226.02101,"619,65162-0050-10 ",.01)
 ;;65162-0050-10
 ;;9002226.02101,"619,65162-0050-10 ",.02)
 ;;65162-0050-10
 ;;9002226.02101,"619,65162-0051-10 ",.01)
 ;;65162-0051-10
 ;;9002226.02101,"619,65162-0051-10 ",.02)
 ;;65162-0051-10
 ;;9002226.02101,"619,65162-0051-50 ",.01)
 ;;65162-0051-50
 ;;9002226.02101,"619,65162-0051-50 ",.02)
 ;;65162-0051-50
 ;;9002226.02101,"619,65162-0115-10 ",.01)
 ;;65162-0115-10
 ;;9002226.02101,"619,65162-0115-10 ",.02)
 ;;65162-0115-10
 ;;9002226.02101,"619,65162-0115-11 ",.01)
 ;;65162-0115-11
 ;;9002226.02101,"619,65162-0115-11 ",.02)
 ;;65162-0115-11
 ;;9002226.02101,"619,65162-0115-50 ",.01)
 ;;65162-0115-50
 ;;9002226.02101,"619,65162-0115-50 ",.02)
 ;;65162-0115-50
 ;;9002226.02101,"619,65162-0207-10 ",.01)
 ;;65162-0207-10
 ;;9002226.02101,"619,65162-0207-10 ",.02)
 ;;65162-0207-10
 ;;9002226.02101,"619,65162-0207-50 ",.01)
 ;;65162-0207-50
 ;;9002226.02101,"619,65162-0207-50 ",.02)
 ;;65162-0207-50
 ;;9002226.02101,"619,65162-0617-10 ",.01)
 ;;65162-0617-10
 ;;9002226.02101,"619,65162-0617-10 ",.02)
 ;;65162-0617-10
 ;;9002226.02101,"619,65162-0617-11 ",.01)
 ;;65162-0617-11
 ;;9002226.02101,"619,65162-0617-11 ",.02)
 ;;65162-0617-11
 ;;9002226.02101,"619,65162-0617-50 ",.01)
 ;;65162-0617-50
 ;;9002226.02101,"619,65162-0617-50 ",.02)
 ;;65162-0617-50
 ;;9002226.02101,"619,65162-0627-10 ",.01)
 ;;65162-0627-10
 ;;9002226.02101,"619,65162-0627-10 ",.02)
 ;;65162-0627-10
 ;;9002226.02101,"619,65162-0627-11 ",.01)
 ;;65162-0627-11
 ;;9002226.02101,"619,65162-0627-11 ",.02)
 ;;65162-0627-11
 ;;9002226.02101,"619,65162-0627-50 ",.01)
 ;;65162-0627-50
 ;;9002226.02101,"619,65162-0627-50 ",.02)
 ;;65162-0627-50
 ;;9002226.02101,"619,65162-0694-86 ",.01)
 ;;65162-0694-86
 ;;9002226.02101,"619,65162-0694-86 ",.02)
 ;;65162-0694-86
 ;;9002226.02101,"619,65162-0694-90 ",.01)
 ;;65162-0694-90
 ;;9002226.02101,"619,65162-0694-90 ",.02)
 ;;65162-0694-90
 ;;9002226.02101,"619,65162-0696-10 ",.01)
 ;;65162-0696-10
 ;;9002226.02101,"619,65162-0696-10 ",.02)
 ;;65162-0696-10
 ;;9002226.02101,"619,65162-0696-50 ",.01)
 ;;65162-0696-50
 ;;9002226.02101,"619,65162-0696-50 ",.02)
 ;;65162-0696-50
 ;;9002226.02101,"619,65224-0310-60 ",.01)
 ;;65224-0310-60
 ;;9002226.02101,"619,65224-0310-60 ",.02)
 ;;65224-0310-60
 ;;9002226.02101,"619,65224-0315-60 ",.01)
 ;;65224-0315-60
 ;;9002226.02101,"619,65224-0315-60 ",.02)
 ;;65224-0315-60
 ;;9002226.02101,"619,65224-0320-60 ",.01)
 ;;65224-0320-60
 ;;9002226.02101,"619,65224-0320-60 ",.02)
 ;;65224-0320-60
 ;;9002226.02101,"619,65224-0330-60 ",.01)
 ;;65224-0330-60
 ;;9002226.02101,"619,65224-0330-60 ",.02)
 ;;65224-0330-60
 ;;9002226.02101,"619,65224-0340-60 ",.01)
 ;;65224-0340-60
 ;;9002226.02101,"619,65224-0340-60 ",.02)
 ;;65224-0340-60
 ;;9002226.02101,"619,65224-0350-60 ",.01)
 ;;65224-0350-60
 ;;9002226.02101,"619,65224-0350-60 ",.02)
 ;;65224-0350-60
 ;;9002226.02101,"619,65243-0300-06 ",.01)
 ;;65243-0300-06
 ;;9002226.02101,"619,65243-0300-06 ",.02)
 ;;65243-0300-06
 ;;9002226.02101,"619,65243-0300-09 ",.01)
 ;;65243-0300-09
 ;;9002226.02101,"619,65243-0300-09 ",.02)
 ;;65243-0300-09
 ;;9002226.02101,"619,65243-0300-12 ",.01)
 ;;65243-0300-12
 ;;9002226.02101,"619,65243-0300-12 ",.02)
 ;;65243-0300-12
 ;;9002226.02101,"619,65243-0300-18 ",.01)
 ;;65243-0300-18
 ;;9002226.02101,"619,65243-0300-18 ",.02)
 ;;65243-0300-18
 ;;9002226.02101,"619,65243-0300-24 ",.01)
 ;;65243-0300-24
 ;;9002226.02101,"619,65243-0300-24 ",.02)
 ;;65243-0300-24
 ;;9002226.02101,"619,65243-0324-06 ",.01)
 ;;65243-0324-06
 ;;9002226.02101,"619,65243-0324-06 ",.02)
 ;;65243-0324-06
 ;;9002226.02101,"619,65243-0324-09 ",.01)
 ;;65243-0324-09
 ;;9002226.02101,"619,65243-0324-09 ",.02)
 ;;65243-0324-09
 ;;9002226.02101,"619,65243-0380-09 ",.01)
 ;;65243-0380-09
 ;;9002226.02101,"619,65243-0380-09 ",.02)
 ;;65243-0380-09
 ;;9002226.02101,"619,65243-0383-06 ",.01)
 ;;65243-0383-06
 ;;9002226.02101,"619,65243-0383-06 ",.02)
 ;;65243-0383-06
 ;;9002226.02101,"619,65243-0383-09 ",.01)
 ;;65243-0383-09
 ;;9002226.02101,"619,65243-0383-09 ",.02)
 ;;65243-0383-09
 ;;9002226.02101,"619,65243-0383-12 ",.01)
 ;;65243-0383-12
 ;;9002226.02101,"619,65243-0383-12 ",.02)
 ;;65243-0383-12
 ;;9002226.02101,"619,65243-0383-18 ",.01)
 ;;65243-0383-18
 ;;9002226.02101,"619,65243-0383-18 ",.02)
 ;;65243-0383-18
 ;;9002226.02101,"619,65243-0383-24 ",.01)
 ;;65243-0383-24
 ;;9002226.02101,"619,65243-0383-24 ",.02)
 ;;65243-0383-24
 ;;9002226.02101,"619,65597-0301-10 ",.01)
 ;;65597-0301-10
 ;;9002226.02101,"619,65597-0301-10 ",.02)
 ;;65597-0301-10
 ;;9002226.02101,"619,65597-0302-10 ",.01)
 ;;65597-0302-10
 ;;9002226.02101,"619,65597-0302-10 ",.02)
 ;;65597-0302-10
 ;;9002226.02101,"619,65597-0303-10 ",.01)
 ;;65597-0303-10
 ;;9002226.02101,"619,65597-0303-10 ",.02)
 ;;65597-0303-10
 ;;9002226.02101,"619,65597-0304-10 ",.01)
 ;;65597-0304-10
 ;;9002226.02101,"619,65597-0304-10 ",.02)
 ;;65597-0304-10
 ;;9002226.02101,"619,66116-0135-30 ",.01)
 ;;66116-0135-30
 ;;9002226.02101,"619,66116-0135-30 ",.02)
 ;;66116-0135-30
 ;;9002226.02101,"619,66116-0135-40 ",.01)
 ;;66116-0135-40