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

BGP82X5.m

Go to the documentation of this file.
BGP82X5 ; 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,"1921,54569-1726-01 ",.01)
 ;;54569-1726-01
 ;;9002226.02101,"1921,54569-1726-01 ",.02)
 ;;54569-1726-01
 ;;9002226.02101,"1921,54569-1726-04 ",.01)
 ;;54569-1726-04
 ;;9002226.02101,"1921,54569-1726-04 ",.02)
 ;;54569-1726-04
 ;;9002226.02101,"1921,54569-2376-02 ",.01)
 ;;54569-2376-02
 ;;9002226.02101,"1921,54569-2376-02 ",.02)
 ;;54569-2376-02
 ;;9002226.02101,"1921,54569-3966-00 ",.01)
 ;;54569-3966-00
 ;;9002226.02101,"1921,54569-3966-00 ",.02)
 ;;54569-3966-00
 ;;9002226.02101,"1921,54569-3966-01 ",.01)
 ;;54569-3966-01
 ;;9002226.02101,"1921,54569-3966-01 ",.02)
 ;;54569-3966-01
 ;;9002226.02101,"1921,54569-3966-03 ",.01)
 ;;54569-3966-03
 ;;9002226.02101,"1921,54569-3966-03 ",.02)
 ;;54569-3966-03
 ;;9002226.02101,"1921,54569-6376-00 ",.01)
 ;;54569-6376-00
 ;;9002226.02101,"1921,54569-6376-00 ",.02)
 ;;54569-6376-00
 ;;9002226.02101,"1921,54569-6568-00 ",.01)
 ;;54569-6568-00
 ;;9002226.02101,"1921,54569-6568-00 ",.02)
 ;;54569-6568-00
 ;;9002226.02101,"1921,54868-0038-00 ",.01)
 ;;54868-0038-00
 ;;9002226.02101,"1921,54868-0038-00 ",.02)
 ;;54868-0038-00
 ;;9002226.02101,"1921,54868-0038-01 ",.01)
 ;;54868-0038-01
 ;;9002226.02101,"1921,54868-0038-01 ",.02)
 ;;54868-0038-01
 ;;9002226.02101,"1921,54868-0038-02 ",.01)
 ;;54868-0038-02
 ;;9002226.02101,"1921,54868-0038-02 ",.02)
 ;;54868-0038-02
 ;;9002226.02101,"1921,54868-0038-03 ",.01)
 ;;54868-0038-03
 ;;9002226.02101,"1921,54868-0038-03 ",.02)
 ;;54868-0038-03
 ;;9002226.02101,"1921,54868-0038-04 ",.01)
 ;;54868-0038-04
 ;;9002226.02101,"1921,54868-0038-04 ",.02)
 ;;54868-0038-04
 ;;9002226.02101,"1921,54868-0038-05 ",.01)
 ;;54868-0038-05
 ;;9002226.02101,"1921,54868-0038-05 ",.02)
 ;;54868-0038-05
 ;;9002226.02101,"1921,54868-0038-06 ",.01)
 ;;54868-0038-06
 ;;9002226.02101,"1921,54868-0038-06 ",.02)
 ;;54868-0038-06
 ;;9002226.02101,"1921,54868-0039-02 ",.01)
 ;;54868-0039-02
 ;;9002226.02101,"1921,54868-0039-02 ",.02)
 ;;54868-0039-02
 ;;9002226.02101,"1921,54868-0039-03 ",.01)
 ;;54868-0039-03
 ;;9002226.02101,"1921,54868-0039-03 ",.02)
 ;;54868-0039-03
 ;;9002226.02101,"1921,54868-0039-05 ",.01)
 ;;54868-0039-05
 ;;9002226.02101,"1921,54868-0039-05 ",.02)
 ;;54868-0039-05
 ;;9002226.02101,"1921,54868-0039-06 ",.01)
 ;;54868-0039-06
 ;;9002226.02101,"1921,54868-0039-06 ",.02)
 ;;54868-0039-06
 ;;9002226.02101,"1921,54868-0092-01 ",.01)
 ;;54868-0092-01
 ;;9002226.02101,"1921,54868-0092-01 ",.02)
 ;;54868-0092-01
 ;;9002226.02101,"1921,54868-0092-02 ",.01)
 ;;54868-0092-02
 ;;9002226.02101,"1921,54868-0092-02 ",.02)
 ;;54868-0092-02
 ;;9002226.02101,"1921,54868-0093-00 ",.01)
 ;;54868-0093-00
 ;;9002226.02101,"1921,54868-0093-00 ",.02)
 ;;54868-0093-00
 ;;9002226.02101,"1921,54868-0093-01 ",.01)
 ;;54868-0093-01
 ;;9002226.02101,"1921,54868-0093-01 ",.02)
 ;;54868-0093-01
 ;;9002226.02101,"1921,54868-0778-00 ",.01)
 ;;54868-0778-00
 ;;9002226.02101,"1921,54868-0778-00 ",.02)
 ;;54868-0778-00
 ;;9002226.02101,"1921,54868-0778-01 ",.01)
 ;;54868-0778-01
 ;;9002226.02101,"1921,54868-0778-01 ",.02)
 ;;54868-0778-01
 ;;9002226.02101,"1921,54868-0778-03 ",.01)
 ;;54868-0778-03
 ;;9002226.02101,"1921,54868-0778-03 ",.02)
 ;;54868-0778-03
 ;;9002226.02101,"1921,54868-0829-01 ",.01)
 ;;54868-0829-01
 ;;9002226.02101,"1921,54868-0829-01 ",.02)
 ;;54868-0829-01
 ;;9002226.02101,"1921,54868-0829-02 ",.01)
 ;;54868-0829-02
 ;;9002226.02101,"1921,54868-0829-02 ",.02)
 ;;54868-0829-02
 ;;9002226.02101,"1921,54868-0829-03 ",.01)
 ;;54868-0829-03
 ;;9002226.02101,"1921,54868-0829-03 ",.02)
 ;;54868-0829-03
 ;;9002226.02101,"1921,54868-0829-04 ",.01)
 ;;54868-0829-04
 ;;9002226.02101,"1921,54868-0829-04 ",.02)
 ;;54868-0829-04
 ;;9002226.02101,"1921,54868-2931-00 ",.01)
 ;;54868-2931-00
 ;;9002226.02101,"1921,54868-2931-00 ",.02)
 ;;54868-2931-00
 ;;9002226.02101,"1921,54868-2931-01 ",.01)
 ;;54868-2931-01
 ;;9002226.02101,"1921,54868-2931-01 ",.02)
 ;;54868-2931-01
 ;;9002226.02101,"1921,54868-2931-03 ",.01)
 ;;54868-2931-03
 ;;9002226.02101,"1921,54868-2931-03 ",.02)
 ;;54868-2931-03
 ;;9002226.02101,"1921,54868-2983-00 ",.01)
 ;;54868-2983-00
 ;;9002226.02101,"1921,54868-2983-00 ",.02)
 ;;54868-2983-00
 ;;9002226.02101,"1921,54868-2983-01 ",.01)
 ;;54868-2983-01
 ;;9002226.02101,"1921,54868-2983-01 ",.02)
 ;;54868-2983-01
 ;;9002226.02101,"1921,54868-2983-03 ",.01)
 ;;54868-2983-03
 ;;9002226.02101,"1921,54868-2983-03 ",.02)
 ;;54868-2983-03
 ;;9002226.02101,"1921,54868-2983-04 ",.01)
 ;;54868-2983-04
 ;;9002226.02101,"1921,54868-2983-04 ",.02)
 ;;54868-2983-04
 ;;9002226.02101,"1921,54868-2983-05 ",.01)
 ;;54868-2983-05
 ;;9002226.02101,"1921,54868-2983-05 ",.02)
 ;;54868-2983-05
 ;;9002226.02101,"1921,54868-2983-06 ",.01)
 ;;54868-2983-06
 ;;9002226.02101,"1921,54868-2983-06 ",.02)
 ;;54868-2983-06
 ;;9002226.02101,"1921,54868-2983-07 ",.01)
 ;;54868-2983-07
 ;;9002226.02101,"1921,54868-2983-07 ",.02)
 ;;54868-2983-07
 ;;9002226.02101,"1921,54868-3657-00 ",.01)
 ;;54868-3657-00
 ;;9002226.02101,"1921,54868-3657-00 ",.02)
 ;;54868-3657-00
 ;;9002226.02101,"1921,54868-3657-01 ",.01)
 ;;54868-3657-01
 ;;9002226.02101,"1921,54868-3657-01 ",.02)
 ;;54868-3657-01
 ;;9002226.02101,"1921,55289-0038-30 ",.01)
 ;;55289-0038-30
 ;;9002226.02101,"1921,55289-0038-30 ",.02)
 ;;55289-0038-30
 ;;9002226.02101,"1921,55289-0196-01 ",.01)
 ;;55289-0196-01
 ;;9002226.02101,"1921,55289-0196-01 ",.02)
 ;;55289-0196-01
 ;;9002226.02101,"1921,55289-0196-14 ",.01)
 ;;55289-0196-14
 ;;9002226.02101,"1921,55289-0196-14 ",.02)
 ;;55289-0196-14
 ;;9002226.02101,"1921,55289-0196-30 ",.01)
 ;;55289-0196-30
 ;;9002226.02101,"1921,55289-0196-30 ",.02)
 ;;55289-0196-30
 ;;9002226.02101,"1921,55289-0196-60 ",.01)
 ;;55289-0196-60
 ;;9002226.02101,"1921,55289-0196-60 ",.02)
 ;;55289-0196-60
 ;;9002226.02101,"1921,55289-0196-90 ",.01)
 ;;55289-0196-90
 ;;9002226.02101,"1921,55289-0196-90 ",.02)
 ;;55289-0196-90
 ;;9002226.02101,"1921,55289-0660-01 ",.01)
 ;;55289-0660-01
 ;;9002226.02101,"1921,55289-0660-01 ",.02)
 ;;55289-0660-01
 ;;9002226.02101,"1921,55289-0660-30 ",.01)
 ;;55289-0660-30
 ;;9002226.02101,"1921,55289-0660-30 ",.02)
 ;;55289-0660-30
 ;;9002226.02101,"1921,55289-0660-60 ",.01)
 ;;55289-0660-60
 ;;9002226.02101,"1921,55289-0660-60 ",.02)
 ;;55289-0660-60
 ;;9002226.02101,"1921,55289-0660-90 ",.01)
 ;;55289-0660-90
 ;;9002226.02101,"1921,55289-0660-90 ",.02)
 ;;55289-0660-90
 ;;9002226.02101,"1921,55289-0787-02 ",.01)
 ;;55289-0787-02
 ;;9002226.02101,"1921,55289-0787-02 ",.02)
 ;;55289-0787-02
 ;;9002226.02101,"1921,55289-0787-30 ",.01)
 ;;55289-0787-30
 ;;9002226.02101,"1921,55289-0787-30 ",.02)
 ;;55289-0787-30
 ;;9002226.02101,"1921,55289-0787-60 ",.01)
 ;;55289-0787-60
 ;;9002226.02101,"1921,55289-0787-60 ",.02)
 ;;55289-0787-60
 ;;9002226.02101,"1921,55289-0790-02 ",.01)
 ;;55289-0790-02
 ;;9002226.02101,"1921,55289-0790-02 ",.02)
 ;;55289-0790-02
 ;;9002226.02101,"1921,55700-0039-30 ",.01)
 ;;55700-0039-30
 ;;9002226.02101,"1921,55700-0039-30 ",.02)
 ;;55700-0039-30
 ;;9002226.02101,"1921,58118-0146-03 ",.01)
 ;;58118-0146-03
 ;;9002226.02101,"1921,58118-0146-03 ",.02)
 ;;58118-0146-03
 ;;9002226.02101,"1921,58118-0146-06 ",.01)
 ;;58118-0146-06
 ;;9002226.02101,"1921,58118-0146-06 ",.02)
 ;;58118-0146-06
 ;;9002226.02101,"1921,58118-0147-03 ",.01)
 ;;58118-0147-03
 ;;9002226.02101,"1921,58118-0147-03 ",.02)
 ;;58118-0147-03
 ;;9002226.02101,"1921,59762-3717-04 ",.01)
 ;;59762-3717-04
 ;;9002226.02101,"1921,59762-3717-04 ",.02)
 ;;59762-3717-04
 ;;9002226.02101,"1921,59762-3717-09 ",.01)
 ;;59762-3717-09
 ;;9002226.02101,"1921,59762-3717-09 ",.02)
 ;;59762-3717-09
 ;;9002226.02101,"1921,59762-3718-03 ",.01)
 ;;59762-3718-03
 ;;9002226.02101,"1921,59762-3718-03 ",.02)
 ;;59762-3718-03
 ;;9002226.02101,"1921,59762-3718-04 ",.01)
 ;;59762-3718-04
 ;;9002226.02101,"1921,59762-3718-04 ",.02)
 ;;59762-3718-04
 ;;9002226.02101,"1921,59762-3718-09 ",.01)
 ;;59762-3718-09
 ;;9002226.02101,"1921,59762-3718-09 ",.02)
 ;;59762-3718-09
 ;;9002226.02101,"1921,60429-0506-01 ",.01)
 ;;60429-0506-01
 ;;9002226.02101,"1921,60429-0506-01 ",.02)
 ;;60429-0506-01
 ;;9002226.02101,"1921,60429-0506-05 ",.01)
 ;;60429-0506-05
 ;;9002226.02101,"1921,60429-0506-05 ",.02)
 ;;60429-0506-05
 ;;9002226.02101,"1921,60429-0507-01 ",.01)
 ;;60429-0507-01
 ;;9002226.02101,"1921,60429-0507-01 ",.02)
 ;;60429-0507-01
 ;;9002226.02101,"1921,60429-0507-05 ",.01)
 ;;60429-0507-05
 ;;9002226.02101,"1921,60429-0507-05 ",.02)
 ;;60429-0507-05
 ;;9002226.02101,"1921,60429-0542-01 ",.01)
 ;;60429-0542-01
 ;;9002226.02101,"1921,60429-0542-01 ",.02)
 ;;60429-0542-01
 ;;9002226.02101,"1921,60429-0542-05 ",.01)
 ;;60429-0542-05
 ;;9002226.02101,"1921,60429-0542-05 ",.02)
 ;;60429-0542-05
 ;;9002226.02101,"1921,60429-0543-01 ",.01)
 ;;60429-0543-01
 ;;9002226.02101,"1921,60429-0543-01 ",.02)
 ;;60429-0543-01
 ;;9002226.02101,"1921,60429-0543-05 ",.01)
 ;;60429-0543-05
 ;;9002226.02101,"1921,60429-0543-05 ",.02)
 ;;60429-0543-05
 ;;9002226.02101,"1921,60429-0566-01 ",.01)
 ;;60429-0566-01
 ;;9002226.02101,"1921,60429-0566-01 ",.02)
 ;;60429-0566-01
 ;;9002226.02101,"1921,60429-0567-01 ",.01)
 ;;60429-0567-01
 ;;9002226.02101,"1921,60429-0567-01 ",.02)
 ;;60429-0567-01
 ;;9002226.02101,"1921,60760-0206-30 ",.01)
 ;;60760-0206-30
 ;;9002226.02101,"1921,60760-0206-30 ",.02)
 ;;60760-0206-30
 ;;9002226.02101,"1921,60760-0207-30 ",.01)
 ;;60760-0207-30
 ;;9002226.02101,"1921,60760-0207-30 ",.02)
 ;;60760-0207-30
 ;;9002226.02101,"1921,60760-0454-30 ",.01)
 ;;60760-0454-30
 ;;9002226.02101,"1921,60760-0454-30 ",.02)
 ;;60760-0454-30
 ;;9002226.02101,"1921,61825-0165-10 ",.01)
 ;;61825-0165-10
 ;;9002226.02101,"1921,61825-0165-10 ",.02)
 ;;61825-0165-10
 ;;9002226.02101,"1921,61919-0214-30 ",.01)
 ;;61919-0214-30
 ;;9002226.02101,"1921,61919-0214-30 ",.02)
 ;;61919-0214-30
 ;;9002226.02101,"1921,61919-0263-30 ",.01)
 ;;61919-0263-30
 ;;9002226.02101,"1921,61919-0263-30 ",.02)
 ;;61919-0263-30
 ;;9002226.02101,"1921,61919-0264-30 ",.01)
 ;;61919-0264-30
 ;;9002226.02101,"1921,61919-0264-30 ",.02)
 ;;61919-0264-30
 ;;9002226.02101,"1921,61919-0438-30 ",.01)
 ;;61919-0438-30
 ;;9002226.02101,"1921,61919-0438-30 ",.02)
 ;;61919-0438-30
 ;;9002226.02101,"1921,63629-1619-01 ",.01)
 ;;63629-1619-01
 ;;9002226.02101,"1921,63629-1619-01 ",.02)
 ;;63629-1619-01
 ;;9002226.02101,"1921,63629-1619-02 ",.01)
 ;;63629-1619-02
 ;;9002226.02101,"1921,63629-1619-02 ",.02)
 ;;63629-1619-02
 ;;9002226.02101,"1921,63629-1619-03 ",.01)
 ;;63629-1619-03
 ;;9002226.02101,"1921,63629-1619-03 ",.02)
 ;;63629-1619-03
 ;;9002226.02101,"1921,63629-1619-04 ",.01)
 ;;63629-1619-04
 ;;9002226.02101,"1921,63629-1619-04 ",.02)
 ;;63629-1619-04
 ;;9002226.02101,"1921,63629-1621-01 ",.01)
 ;;63629-1621-01
 ;;9002226.02101,"1921,63629-1621-01 ",.02)
 ;;63629-1621-01
 ;;9002226.02101,"1921,63629-1621-02 ",.01)
 ;;63629-1621-02
 ;;9002226.02101,"1921,63629-1621-02 ",.02)
 ;;63629-1621-02
 ;;9002226.02101,"1921,63629-1621-03 ",.01)
 ;;63629-1621-03
 ;;9002226.02101,"1921,63629-1621-03 ",.02)
 ;;63629-1621-03
 ;;9002226.02101,"1921,63629-1621-04 ",.01)
 ;;63629-1621-04
 ;;9002226.02101,"1921,63629-1621-04 ",.02)
 ;;63629-1621-04
 ;;9002226.02101,"1921,63629-1621-05 ",.01)
 ;;63629-1621-05
 ;;9002226.02101,"1921,63629-1621-05 ",.02)
 ;;63629-1621-05
 ;;9002226.02101,"1921,63629-2956-01 ",.01)
 ;;63629-2956-01
 ;;9002226.02101,"1921,63629-2956-01 ",.02)
 ;;63629-2956-01
 ;;9002226.02101,"1921,63629-2956-02 ",.01)
 ;;63629-2956-02
 ;;9002226.02101,"1921,63629-2956-02 ",.02)
 ;;63629-2956-02
 ;;9002226.02101,"1921,63629-2956-03 ",.01)
 ;;63629-2956-03