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

BGP82U4.m

Go to the documentation of this file.
BGP82U4 ; 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)
 ;;21,"68382-0053-01 ")
 ;;1024
 ;;21,"68382-0053-10 ")
 ;;1025
 ;;21,"68382-0054-01 ")
 ;;1026
 ;;21,"68382-0054-10 ")
 ;;1027
 ;;21,"68382-0055-01 ")
 ;;1028
 ;;21,"68382-0055-10 ")
 ;;1029
 ;;21,"68382-0056-01 ")
 ;;1030
 ;;21,"68382-0056-10 ")
 ;;1031
 ;;21,"68382-0056-16 ")
 ;;1032
 ;;21,"68382-0057-01 ")
 ;;1033
 ;;21,"68382-0058-01 ")
 ;;1034
 ;;21,"68382-0059-01 ")
 ;;1035
 ;;21,"68382-0064-01 ")
 ;;1036
 ;;21,"68382-0064-10 ")
 ;;1037
 ;;21,"76045-0108-10 ")
 ;;1038
 ;;21,"76282-0327-01 ")
 ;;1039
 ;;21,"76282-0327-10 ")
 ;;1040
 ;;21,"76282-0328-01 ")
 ;;1041
 ;;21,"76282-0328-10 ")
 ;;1042
 ;;21,"76282-0329-01 ")
 ;;1043
 ;;21,"76282-0329-10 ")
 ;;1044
 ;;21,"76282-0330-01 ")
 ;;1045
 ;;21,"76282-0330-10 ")
 ;;1046
 ;;21,"76282-0331-01 ")
 ;;1047
 ;;21,"76282-0331-10 ")
 ;;1048
 ;;21,"76282-0332-01 ")
 ;;1049
 ;;21,"76282-0332-10 ")
 ;;1050
 ;;21,"76282-0333-01 ")
 ;;1051
 ;;21,"76282-0333-10 ")
 ;;1052
 ;;21,"76282-0334-01 ")
 ;;1053
 ;;21,"76282-0335-01 ")
 ;;1054
 ;;9002226,1905,.01)
 ;;BGP PQA WARFARIN NDC
 ;;9002226,1905,.02)
 ;;@
 ;;9002226,1905,.04)
 ;;n
 ;;9002226,1905,.06)
 ;;@
 ;;9002226,1905,.08)
 ;;@
 ;;9002226,1905,.09)
 ;;3170809
 ;;9002226,1905,.11)
 ;;@
 ;;9002226,1905,.12)
 ;;@
 ;;9002226,1905,.13)
 ;;1
 ;;9002226,1905,.14)
 ;;@
 ;;9002226,1905,.15)
 ;;50.67
 ;;9002226,1905,.16)
 ;;@
 ;;9002226,1905,.17)
 ;;@
 ;;9002226,1905,.22)
 ;;1
 ;;9002226,1905,3101)
 ;;@
 ;;9002226.02101,"1905,00007-3230-01 ",.01)
 ;;00007-3230-01
 ;;9002226.02101,"1905,00007-3230-01 ",.02)
 ;;00007-3230-01
 ;;9002226.02101,"1905,00007-3230-11 ",.01)
 ;;00007-3230-11
 ;;9002226.02101,"1905,00007-3230-11 ",.02)
 ;;00007-3230-11
 ;;9002226.02101,"1905,00007-3232-01 ",.01)
 ;;00007-3232-01
 ;;9002226.02101,"1905,00007-3232-01 ",.02)
 ;;00007-3232-01
 ;;9002226.02101,"1905,00007-3232-11 ",.01)
 ;;00007-3232-11
 ;;9002226.02101,"1905,00007-3232-11 ",.02)
 ;;00007-3232-11
 ;;9002226.02101,"1905,00007-3234-01 ",.01)
 ;;00007-3234-01
 ;;9002226.02101,"1905,00007-3234-01 ",.02)
 ;;00007-3234-01
 ;;9002226.02101,"1905,00007-3234-11 ",.01)
 ;;00007-3234-11
 ;;9002226.02101,"1905,00007-3234-11 ",.02)
 ;;00007-3234-11
 ;;9002226.02101,"1905,00007-3236-01 ",.01)
 ;;00007-3236-01
 ;;9002226.02101,"1905,00007-3236-01 ",.02)
 ;;00007-3236-01
 ;;9002226.02101,"1905,00007-3236-11 ",.01)
 ;;00007-3236-11
 ;;9002226.02101,"1905,00007-3236-11 ",.02)
 ;;00007-3236-11
 ;;9002226.02101,"1905,00056-0168-01 ",.01)
 ;;00056-0168-01
 ;;9002226.02101,"1905,00056-0168-01 ",.02)
 ;;00056-0168-01
 ;;9002226.02101,"1905,00056-0168-70 ",.01)
 ;;00056-0168-70
 ;;9002226.02101,"1905,00056-0168-70 ",.02)
 ;;00056-0168-70
 ;;9002226.02101,"1905,00056-0168-75 ",.01)
 ;;00056-0168-75
 ;;9002226.02101,"1905,00056-0168-75 ",.02)
 ;;00056-0168-75
 ;;9002226.02101,"1905,00056-0169-01 ",.01)
 ;;00056-0169-01
 ;;9002226.02101,"1905,00056-0169-01 ",.02)
 ;;00056-0169-01
 ;;9002226.02101,"1905,00056-0169-70 ",.01)
 ;;00056-0169-70
 ;;9002226.02101,"1905,00056-0169-70 ",.02)
 ;;00056-0169-70
 ;;9002226.02101,"1905,00056-0169-75 ",.01)
 ;;00056-0169-75
 ;;9002226.02101,"1905,00056-0169-75 ",.02)
 ;;00056-0169-75
 ;;9002226.02101,"1905,00056-0169-90 ",.01)
 ;;00056-0169-90
 ;;9002226.02101,"1905,00056-0169-90 ",.02)
 ;;00056-0169-90
 ;;9002226.02101,"1905,00056-0170-01 ",.01)
 ;;00056-0170-01
 ;;9002226.02101,"1905,00056-0170-01 ",.02)
 ;;00056-0170-01
 ;;9002226.02101,"1905,00056-0170-70 ",.01)
 ;;00056-0170-70
 ;;9002226.02101,"1905,00056-0170-70 ",.02)
 ;;00056-0170-70
 ;;9002226.02101,"1905,00056-0170-75 ",.01)
 ;;00056-0170-75
 ;;9002226.02101,"1905,00056-0170-75 ",.02)
 ;;00056-0170-75
 ;;9002226.02101,"1905,00056-0170-90 ",.01)
 ;;00056-0170-90
 ;;9002226.02101,"1905,00056-0170-90 ",.02)
 ;;00056-0170-90
 ;;9002226.02101,"1905,00056-0172-01 ",.01)
 ;;00056-0172-01
 ;;9002226.02101,"1905,00056-0172-01 ",.02)
 ;;00056-0172-01
 ;;9002226.02101,"1905,00056-0172-70 ",.01)
 ;;00056-0172-70
 ;;9002226.02101,"1905,00056-0172-70 ",.02)
 ;;00056-0172-70
 ;;9002226.02101,"1905,00056-0172-75 ",.01)
 ;;00056-0172-75
 ;;9002226.02101,"1905,00056-0172-75 ",.02)
 ;;00056-0172-75
 ;;9002226.02101,"1905,00056-0172-90 ",.01)
 ;;00056-0172-90
 ;;9002226.02101,"1905,00056-0172-90 ",.02)
 ;;00056-0172-90
 ;;9002226.02101,"1905,00056-0173-01 ",.01)
 ;;00056-0173-01
 ;;9002226.02101,"1905,00056-0173-01 ",.02)
 ;;00056-0173-01
 ;;9002226.02101,"1905,00056-0173-70 ",.01)
 ;;00056-0173-70
 ;;9002226.02101,"1905,00056-0173-70 ",.02)
 ;;00056-0173-70
 ;;9002226.02101,"1905,00056-0173-75 ",.01)
 ;;00056-0173-75
 ;;9002226.02101,"1905,00056-0173-75 ",.02)
 ;;00056-0173-75
 ;;9002226.02101,"1905,00056-0174-01 ",.01)
 ;;00056-0174-01
 ;;9002226.02101,"1905,00056-0174-01 ",.02)
 ;;00056-0174-01
 ;;9002226.02101,"1905,00056-0174-70 ",.01)
 ;;00056-0174-70
 ;;9002226.02101,"1905,00056-0174-70 ",.02)
 ;;00056-0174-70
 ;;9002226.02101,"1905,00056-0174-75 ",.01)
 ;;00056-0174-75
 ;;9002226.02101,"1905,00056-0174-75 ",.02)
 ;;00056-0174-75
 ;;9002226.02101,"1905,00056-0176-01 ",.01)
 ;;00056-0176-01
 ;;9002226.02101,"1905,00056-0176-01 ",.02)
 ;;00056-0176-01
 ;;9002226.02101,"1905,00056-0176-70 ",.01)
 ;;00056-0176-70
 ;;9002226.02101,"1905,00056-0176-70 ",.02)
 ;;00056-0176-70
 ;;9002226.02101,"1905,00056-0176-75 ",.01)
 ;;00056-0176-75
 ;;9002226.02101,"1905,00056-0176-75 ",.02)
 ;;00056-0176-75
 ;;9002226.02101,"1905,00056-0176-90 ",.01)
 ;;00056-0176-90
 ;;9002226.02101,"1905,00056-0176-90 ",.02)
 ;;00056-0176-90
 ;;9002226.02101,"1905,00056-0188-01 ",.01)
 ;;00056-0188-01
 ;;9002226.02101,"1905,00056-0188-01 ",.02)
 ;;00056-0188-01
 ;;9002226.02101,"1905,00056-0188-70 ",.01)
 ;;00056-0188-70
 ;;9002226.02101,"1905,00056-0188-70 ",.02)
 ;;00056-0188-70
 ;;9002226.02101,"1905,00056-0188-75 ",.01)
 ;;00056-0188-75
 ;;9002226.02101,"1905,00056-0188-75 ",.02)
 ;;00056-0188-75
 ;;9002226.02101,"1905,00056-0189-01 ",.01)
 ;;00056-0189-01
 ;;9002226.02101,"1905,00056-0189-01 ",.02)
 ;;00056-0189-01
 ;;9002226.02101,"1905,00056-0189-70 ",.01)
 ;;00056-0189-70
 ;;9002226.02101,"1905,00056-0189-70 ",.02)
 ;;00056-0189-70
 ;;9002226.02101,"1905,00056-0189-75 ",.01)
 ;;00056-0189-75
 ;;9002226.02101,"1905,00056-0189-75 ",.02)
 ;;00056-0189-75
 ;;9002226.02101,"1905,00056-0189-90 ",.01)
 ;;00056-0189-90
 ;;9002226.02101,"1905,00056-0189-90 ",.02)
 ;;00056-0189-90
 ;;9002226.02101,"1905,00069-0043-01 ",.01)
 ;;00069-0043-01
 ;;9002226.02101,"1905,00069-0043-01 ",.02)
 ;;00069-0043-01
 ;;9002226.02101,"1905,00069-0043-02 ",.01)
 ;;00069-0043-02
 ;;9002226.02101,"1905,00069-0043-02 ",.02)
 ;;00069-0043-02
 ;;9002226.02101,"1905,00069-0058-01 ",.01)
 ;;00069-0058-01
 ;;9002226.02101,"1905,00069-0058-01 ",.02)
 ;;00069-0058-01
 ;;9002226.02101,"1905,00069-0058-02 ",.01)
 ;;00069-0058-02
 ;;9002226.02101,"1905,00069-0058-02 ",.02)
 ;;00069-0058-02
 ;;9002226.02101,"1905,00069-0059-01 ",.01)
 ;;00069-0059-01
 ;;9002226.02101,"1905,00069-0059-01 ",.02)
 ;;00069-0059-01
 ;;9002226.02101,"1905,00069-0059-02 ",.01)
 ;;00069-0059-02
 ;;9002226.02101,"1905,00069-0059-02 ",.02)
 ;;00069-0059-02
 ;;9002226.02101,"1905,00069-0059-03 ",.01)
 ;;00069-0059-03
 ;;9002226.02101,"1905,00069-0059-03 ",.02)
 ;;00069-0059-03
 ;;9002226.02101,"1905,00069-0059-04 ",.01)
 ;;00069-0059-04
 ;;9002226.02101,"1905,00069-0059-04 ",.02)
 ;;00069-0059-04
 ;;9002226.02101,"1905,00069-0062-01 ",.01)
 ;;00069-0062-01
 ;;9002226.02101,"1905,00069-0062-01 ",.02)
 ;;00069-0062-01
 ;;9002226.02101,"1905,00069-0062-02 ",.01)
 ;;00069-0062-02
 ;;9002226.02101,"1905,00069-0062-02 ",.02)
 ;;00069-0062-02
 ;;9002226.02101,"1905,00069-0137-01 ",.01)
 ;;00069-0137-01
 ;;9002226.02101,"1905,00069-0137-01 ",.02)
 ;;00069-0137-01
 ;;9002226.02101,"1905,00069-0137-03 ",.01)
 ;;00069-0137-03
 ;;9002226.02101,"1905,00069-0137-03 ",.02)
 ;;00069-0137-03
 ;;9002226.02101,"1905,00069-0195-01 ",.01)
 ;;00069-0195-01
 ;;9002226.02101,"1905,00069-0195-01 ",.02)
 ;;00069-0195-01
 ;;9002226.02101,"1905,00069-0195-02 ",.01)
 ;;00069-0195-02
 ;;9002226.02101,"1905,00069-0195-02 ",.02)
 ;;00069-0195-02
 ;;9002226.02101,"1905,00069-0196-01 ",.01)
 ;;00069-0196-01
 ;;9002226.02101,"1905,00069-0196-01 ",.02)
 ;;00069-0196-01
 ;;9002226.02101,"1905,00069-0196-02 ",.01)
 ;;00069-0196-02
 ;;9002226.02101,"1905,00069-0196-02 ",.02)
 ;;00069-0196-02
 ;;9002226.02101,"1905,00069-0206-01 ",.01)
 ;;00069-0206-01
 ;;9002226.02101,"1905,00069-0206-01 ",.02)
 ;;00069-0206-01
 ;;9002226.02101,"1905,00069-0206-02 ",.01)
 ;;00069-0206-02
 ;;9002226.02101,"1905,00069-0206-02 ",.02)
 ;;00069-0206-02
 ;;9002226.02101,"1905,00069-0217-01 ",.01)
 ;;00069-0217-01
 ;;9002226.02101,"1905,00069-0217-01 ",.02)
 ;;00069-0217-01
 ;;9002226.02101,"1905,00069-0217-02 ",.01)
 ;;00069-0217-02
 ;;9002226.02101,"1905,00069-0217-02 ",.02)
 ;;00069-0217-02
 ;;9002226.02101,"1905,00069-0220-01 ",.01)
 ;;00069-0220-01
 ;;9002226.02101,"1905,00069-0220-01 ",.02)
 ;;00069-0220-01
 ;;9002226.02101,"1905,00069-0220-02 ",.01)
 ;;00069-0220-02
 ;;9002226.02101,"1905,00069-0220-02 ",.02)
 ;;00069-0220-02
 ;;9002226.02101,"1905,00069-0223-01 ",.01)
 ;;00069-0223-01
 ;;9002226.02101,"1905,00069-0223-01 ",.02)
 ;;00069-0223-01
 ;;9002226.02101,"1905,00069-0223-02 ",.01)
 ;;00069-0223-02
 ;;9002226.02101,"1905,00069-0223-02 ",.02)
 ;;00069-0223-02
 ;;9002226.02101,"1905,00069-0228-01 ",.01)
 ;;00069-0228-01
 ;;9002226.02101,"1905,00069-0228-01 ",.02)
 ;;00069-0228-01
 ;;9002226.02101,"1905,00069-0228-02 ",.01)
 ;;00069-0228-02
 ;;9002226.02101,"1905,00069-0228-02 ",.02)
 ;;00069-0228-02
 ;;9002226.02101,"1905,00069-0232-01 ",.01)
 ;;00069-0232-01
 ;;9002226.02101,"1905,00069-0232-01 ",.02)
 ;;00069-0232-01
 ;;9002226.02101,"1905,00075-0620-40 ",.01)
 ;;00075-0620-40
 ;;9002226.02101,"1905,00075-0620-40 ",.02)
 ;;00075-0620-40
 ;;9002226.02101,"1905,00075-0620-41 ",.01)
 ;;00075-0620-41
 ;;9002226.02101,"1905,00075-0620-41 ",.02)
 ;;00075-0620-41
 ;;9002226.02101,"1905,00075-0621-60 ",.01)
 ;;00075-0621-60
 ;;9002226.02101,"1905,00075-0621-60 ",.02)
 ;;00075-0621-60
 ;;9002226.02101,"1905,00075-0621-61 ",.01)
 ;;00075-0621-61
 ;;9002226.02101,"1905,00075-0621-61 ",.02)
 ;;00075-0621-61
 ;;9002226.02101,"1905,00075-0622-80 ",.01)
 ;;00075-0622-80
 ;;9002226.02101,"1905,00075-0622-80 ",.02)
 ;;00075-0622-80
 ;;9002226.02101,"1905,00075-0622-81 ",.01)
 ;;00075-0622-81
 ;;9002226.02101,"1905,00075-0622-81 ",.02)
 ;;00075-0622-81
 ;;9002226.02101,"1905,00075-0623-00 ",.01)
 ;;00075-0623-00
 ;;9002226.02101,"1905,00075-0623-00 ",.02)
 ;;00075-0623-00
 ;;9002226.02101,"1905,00075-0623-01 ",.01)
 ;;00075-0623-01
 ;;9002226.02101,"1905,00075-0623-01 ",.02)
 ;;00075-0623-01
 ;;9002226.02101,"1905,00075-0624-30 ",.01)
 ;;00075-0624-30
 ;;9002226.02101,"1905,00075-0624-30 ",.02)
 ;;00075-0624-30
 ;;9002226.02101,"1905,00075-0624-31 ",.01)
 ;;00075-0624-31
 ;;9002226.02101,"1905,00075-0624-31 ",.02)
 ;;00075-0624-31
 ;;9002226.02101,"1905,00075-0626-03 ",.01)
 ;;00075-0626-03
 ;;9002226.02101,"1905,00075-0626-03 ",.02)
 ;;00075-0626-03
 ;;9002226.02101,"1905,00075-0626-04 ",.01)
 ;;00075-0626-04
 ;;9002226.02101,"1905,00075-0626-04 ",.02)
 ;;00075-0626-04
 ;;9002226.02101,"1905,00075-2912-01 ",.01)
 ;;00075-2912-01
 ;;9002226.02101,"1905,00075-2912-01 ",.02)
 ;;00075-2912-01
 ;;9002226.02101,"1905,00075-2912-02 ",.01)
 ;;00075-2912-02
 ;;9002226.02101,"1905,00075-2912-02 ",.02)
 ;;00075-2912-02
 ;;9002226.02101,"1905,00075-2915-01 ",.01)
 ;;00075-2915-01
 ;;9002226.02101,"1905,00075-2915-01 ",.02)
 ;;00075-2915-01