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

BGP61R4.m

Go to the documentation of this file.
BGP61R4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"67544-0318-40 ")
 ;;1102
 ;;21,"67544-0318-45 ")
 ;;1103
 ;;21,"67544-0318-50 ")
 ;;1104
 ;;21,"67544-0318-53 ")
 ;;1105
 ;;21,"67544-0318-55 ")
 ;;1106
 ;;21,"67544-0318-60 ")
 ;;1107
 ;;21,"67544-0318-61 ")
 ;;1108
 ;;21,"67544-0318-70 ")
 ;;1109
 ;;21,"67544-0401-15 ")
 ;;1110
 ;;21,"67544-0401-30 ")
 ;;1111
 ;;21,"67544-0401-35 ")
 ;;1112
 ;;21,"67544-0401-40 ")
 ;;1113
 ;;21,"67544-0401-45 ")
 ;;1114
 ;;21,"67544-0401-50 ")
 ;;1115
 ;;21,"67544-0401-53 ")
 ;;1116
 ;;21,"67544-0401-55 ")
 ;;1117
 ;;21,"67544-0401-60 ")
 ;;1118
 ;;21,"67544-0401-61 ")
 ;;1119
 ;;21,"67544-0401-70 ")
 ;;1120
 ;;21,"68084-0027-01 ")
 ;;1121
 ;;21,"68084-0027-11 ")
 ;;1122
 ;;21,"68084-0027-77 ")
 ;;1123
 ;;21,"68258-6067-03 ")
 ;;1124
 ;;21,"68258-6068-03 ")
 ;;1125
 ;;21,"68382-0052-01 ")
 ;;1126
 ;;21,"68382-0052-10 ")
 ;;1127
 ;;21,"68382-0053-01 ")
 ;;1128
 ;;21,"68382-0053-10 ")
 ;;1129
 ;;21,"68382-0054-01 ")
 ;;1130
 ;;21,"68382-0054-10 ")
 ;;1131
 ;;21,"68382-0055-01 ")
 ;;1132
 ;;21,"68382-0055-10 ")
 ;;1133
 ;;21,"68382-0056-01 ")
 ;;1134
 ;;21,"68382-0056-10 ")
 ;;1135
 ;;21,"68382-0056-16 ")
 ;;1136
 ;;21,"68382-0057-01 ")
 ;;1137
 ;;21,"68382-0058-01 ")
 ;;1138
 ;;21,"68382-0059-01 ")
 ;;1139
 ;;21,"68382-0064-01 ")
 ;;1140
 ;;21,"68382-0064-10 ")
 ;;1141
 ;;21,"68883-0010-05 ")
 ;;1142
 ;;21,"68883-0100-03 ")
 ;;1143
 ;;21,"68883-0100-05 ")
 ;;1144
 ;;21,"76282-0327-01 ")
 ;;1145
 ;;21,"76282-0327-10 ")
 ;;1146
 ;;21,"76282-0328-01 ")
 ;;1147
 ;;21,"76282-0328-10 ")
 ;;1148
 ;;21,"76282-0329-01 ")
 ;;1149
 ;;21,"76282-0329-10 ")
 ;;1150
 ;;21,"76282-0330-01 ")
 ;;1151
 ;;21,"76282-0330-10 ")
 ;;1152
 ;;21,"76282-0331-01 ")
 ;;1153
 ;;21,"76282-0331-10 ")
 ;;1154
 ;;21,"76282-0332-01 ")
 ;;1155
 ;;21,"76282-0332-10 ")
 ;;1156
 ;;21,"76282-0333-01 ")
 ;;1157
 ;;21,"76282-0333-10 ")
 ;;1158
 ;;21,"76282-0334-01 ")
 ;;1159
 ;;21,"76282-0335-01 ")
 ;;1160
 ;;9002226,1905,.01)
 ;;BGP PQA WARFARIN NDC
 ;;9002226,1905,.02)
 ;;@
 ;;9002226,1905,.04)
 ;;n
 ;;9002226,1905,.06)
 ;;@
 ;;9002226,1905,.08)
 ;;@
 ;;9002226,1905,.09)
 ;;3150818
 ;;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,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-02 ",.01)
 ;;00007-3230-02
 ;;9002226.02101,"1905,00007-3230-02 ",.02)
 ;;00007-3230-02
 ;;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-02 ",.01)
 ;;00007-3232-02
 ;;9002226.02101,"1905,00007-3232-02 ",.02)
 ;;00007-3232-02
 ;;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-02 ",.01)
 ;;00007-3234-02
 ;;9002226.02101,"1905,00007-3234-02 ",.02)
 ;;00007-3234-02
 ;;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-02 ",.01)
 ;;00007-3236-02
 ;;9002226.02101,"1905,00007-3236-02 ",.02)
 ;;00007-3236-02
 ;;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-0168-90 ",.01)
 ;;00056-0168-90
 ;;9002226.02101,"1905,00056-0168-90 ",.02)
 ;;00056-0168-90
 ;;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-0188-90 ",.01)
 ;;00056-0188-90
 ;;9002226.02101,"1905,00056-0188-90 ",.02)
 ;;00056-0188-90
 ;;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