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

BGPM5AZC.m

Go to the documentation of this file.
  1. BGPM5AZC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 02, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;;BGPMU TAMOXIFEN AROMATASE NDCS
  1. ;
  1. ; This routine loads Taxonomy BGPMU TAMOXIFEN AROMATASE NDCS
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00017565760 ")
  1. ;;108
  1. ;;21,"00017565770 ")
  1. ;;109
  1. ;;21,"00054008013 ")
  1. ;;110
  1. ;;21,"00054016413 ")
  1. ;;111
  1. ;;21,"00054026913 ")
  1. ;;112
  1. ;;21,"00054483121 ")
  1. ;;113
  1. ;;21,"00054483126 ")
  1. ;;114
  1. ;;21,"00054483413 ")
  1. ;;115
  1. ;;21,"00054483422 ")
  1. ;;116
  1. ;;21,"00054883125 ")
  1. ;;117
  1. ;;21,"00054883425 ")
  1. ;;118
  1. ;;21,"00093078201 ")
  1. ;;119
  1. ;;21,"00093078205 ")
  1. ;;120
  1. ;;21,"00093078210 ")
  1. ;;121
  1. ;;21,"00093078256 ")
  1. ;;122
  1. ;;21,"00093078405 ")
  1. ;;123
  1. ;;21,"00093078406 ")
  1. ;;124
  1. ;;21,"00093078410 ")
  1. ;;125
  1. ;;21,"00093078486 ")
  1. ;;126
  1. ;;21,"00093753656 ")
  1. ;;127
  1. ;;21,"00093762056 ")
  1. ;;128
  1. ;;21,"00172565649 ")
  1. ;;129
  1. ;;21,"00172565658 ")
  1. ;;130
  1. ;;21,"00172565670 ")
  1. ;;131
  1. ;;21,"00172565680 ")
  1. ;;132
  1. ;;21,"00172565746 ")
  1. ;;133
  1. ;;21,"00172565755 ")
  1. ;;134
  1. ;;21,"00172565780 ")
  1. ;;135
  1. ;;21,"00179006870 ")
  1. ;;136
  1. ;;21,"00179195201 ")
  1. ;;137
  1. ;;21,"00179195230 ")
  1. ;;138
  1. ;;21,"00179195250 ")
  1. ;;139
  1. ;;21,"00179195260 ")
  1. ;;140
  1. ;;21,"00179195290 ")
  1. ;;141
  1. ;;21,"00247085960 ")
  1. ;;142
  1. ;;21,"00310044603 ")
  1. ;;143
  1. ;;21,"00378014405 ")
  1. ;;144
  1. ;;21,"00378014491 ")
  1. ;;145
  1. ;;21,"00378027401 ")
  1. ;;146
  1. ;;21,"00378027425 ")
  1. ;;147
  1. ;;21,"00378027493 ")
  1. ;;148
  1. ;;21,"00378207105 ")
  1. ;;149
  1. ;;21,"00378207193 ")
  1. ;;150
  1. ;;21,"00378603405 ")
  1. ;;151
  1. ;;21,"00378603477 ")
  1. ;;152
  1. ;;21,"00378603493 ")
  1. ;;153
  1. ;;21,"00480078201 ")
  1. ;;154
  1. ;;21,"00480078205 ")
  1. ;;155
  1. ;;21,"00480078210 ")
  1. ;;156
  1. ;;21,"00480078256 ")
  1. ;;157
  1. ;;21,"00480078405 ")
  1. ;;158
  1. ;;21,"00480078406 ")
  1. ;;159
  1. ;;21,"00480078410 ")
  1. ;;160
  1. ;;21,"00480078486 ")
  1. ;;161
  1. ;;21,"00555044603 ")
  1. ;;162
  1. ;;21,"00555044605 ")
  1. ;;163
  1. ;;21,"00555044609 ")
  1. ;;164
  1. ;;21,"00555044612 ")
  1. ;;165
  1. ;;21,"00555044663 ")
  1. ;;166
  1. ;;21,"00555090401 ")
  1. ;;167
  1. ;;21,"00555090405 ")
  1. ;;168
  1. ;;21,"00555090414 ")
  1. ;;169
  1. ;;21,"00555090464 ")
  1. ;;170
  1. ;;21,"00591223218 ")
  1. ;;171
  1. ;;21,"00591223260 ")
  1. ;;172
  1. ;;21,"00591223319 ")
  1. ;;173
  1. ;;21,"00591223330 ")
  1. ;;174
  1. ;;21,"00591247218 ")
  1. ;;175
  1. ;;21,"00591247260 ")
  1. ;;176
  1. ;;21,"00591247319 ")
  1. ;;177
  1. ;;21,"00591247330 ")
  1. ;;178
  1. ;;21,"00603418016 ")
  1. ;;179
  1. ;;21,"00781535631 ")
  1. ;;180
  1. ;;21,"00904619546 ")
  1. ;;181
  1. ;;21,"00904622961 ")
  1. ;;182
  1. ;;21,"16571042103 ")
  1. ;;1
  1. ;;21,"16729003410 ")
  1. ;;2
  1. ;;21,"16729003510 ")
  1. ;;3
  1. ;;21,"16729003515 ")
  1. ;;4
  1. ;;21,"16729003516 ")
  1. ;;5
  1. ;;21,"21695099030 ")
  1. ;;6
  1. ;;21,"24724003001 ")
  1. ;;7
  1. ;;21,"24724003003 ")
  1. ;;8
  1. ;;21,"26053000601 ")
  1. ;;9
  1. ;;21,"26053004401 ")
  1. ;;10
  1. ;;21,"42043018003 ")
  1. ;;11
  1. ;;21,"42291010530 ")
  1. ;;12
  1. ;;21,"42291037390 ")
  1. ;;13
  1. ;;21,"48581622101 ")
  1. ;;14
  1. ;;21,"48581622102 ")
  1. ;;15
  1. ;;21,"48581622103 ")
  1. ;;16
  1. ;;21,"48581622104 ")
  1. ;;17
  1. ;;21,"48581622201 ")
  1. ;;18
  1. ;;21,"48581622202 ")
  1. ;;19
  1. ;;21,"48581622203 ")
  1. ;;20
  1. ;;21,"51079032301 ")
  1. ;;21
  1. ;;21,"51079032306 ")
  1. ;;22
  1. ;;21,"51129262201 ")
  1. ;;23
  1. ;;21,"51129421801 ")
  1. ;;24
  1. ;;21,"51129421802 ")
  1. ;;25
  1. ;;21,"51129466201 ")
  1. ;;26
  1. ;;21,"51129466202 ")
  1. ;;27
  1. ;;21,"51991062010 ")
  1. ;;28
  1. ;;21,"51991062033 ")
  1. ;;29
  1. ;;21,"51991075910 ")
  1. ;;30
  1. ;;21,"51991075933 ")
  1. ;;31
  1. ;;21,"53002103203 ")
  1. ;;32
  1. ;;21,"53002103206 ")
  1. ;;33
  1. ;;21,"54569376500 ")
  1. ;;34
  1. ;;21,"54569376501 ")
  1. ;;35
  1. ;;21,"54569619800 ")
  1. ;;36
  1. ;;21,"54569860200 ")
  1. ;;37
  1. ;;21,"54868300401 ")
  1. ;;38
  1. ;;21,"54868300402 ")
  1. ;;39
  1. ;;21,"54868300403 ")
  1. ;;40
  1. ;;21,"54868300404 ")
  1. ;;41
  1. ;;21,"54868300405 ")
  1. ;;42
  1. ;;21,"54868428700 ")
  1. ;;43
  1. ;;21,"54868428701 ")
  1. ;;44
  1. ;;21,"54868428702 ")
  1. ;;45
  1. ;;21,"54868428703 ")
  1. ;;46
  1. ;;21,"54868428704 ")
  1. ;;47
  1. ;;21,"54868613000 ")
  1. ;;48
  1. ;;21,"54868613001 ")
  1. ;;49
  1. ;;21,"54868625200 ")
  1. ;;50
  1. ;;21,"55045270300 ")
  1. ;;51
  1. ;;21,"55045270309 ")
  1. ;;52
  1. ;;21,"55111064630 ")
  1. ;;53
  1. ;;21,"55111064678 ")
  1. ;;54
  1. ;;21,"55111064679 ")
  1. ;;55
  1. ;;21,"55111064730 ")
  1. ;;56
  1. ;;21,"55160014901 ")
  1. ;;57
  1. ;;21,"55160014905 ")
  1. ;;58
  1. ;;21,"55160015001 ")
  1. ;;59
  1. ;;21,"55160015005 ")
  1. ;;60
  1. ;;21,"55887087201 ")
  1. ;;61
  1. ;;21,"55887087290 ")
  1. ;;62
  1. ;;21,"59564014401 ")
  1. ;;63
  1. ;;21,"59564014407 ")
  1. ;;64
  1. ;;21,"59762285801 ")
  1. ;;65
  1. ;;21,"60258086603 ")
  1. ;;66
  1. ;;21,"62037096418 ")
  1. ;;67
  1. ;;21,"62037096425 ")
  1. ;;68
  1. ;;21,"62037096460 ")
  1. ;;69
  1. ;;21,"62037096512 ")
  1. ;;70
  1. ;;21,"62037096530 ")
  1. ;;71
  1. ;;21,"62037096590 ")
  1. ;;72
  1. ;;21,"62175071032 ")
  1. ;;73
  1. ;;21,"62175088832 ")
  1. ;;74
  1. ;;21,"62540565600 ")
  1. ;;75
  1. ;;21,"62540565602 ")
  1. ;;76
  1. ;;21,"62540565603 ")
  1. ;;77
  1. ;;21,"62540565609 ")
  1. ;;78
  1. ;;21,"62540565701 ")
  1. ;;79
  1. ;;21,"62540565702 ")
  1. ;;80
  1. ;;21,"62756025013 ")
  1. ;;81
  1. ;;21,"62756025018 ")
  1. ;;82
  1. ;;21,"62756025083 ")
  1. ;;83
  1. ;;21,"62756025088 ")
  1. ;;84
  1. ;;21,"62756051108 ")
  1. ;;85
  1. ;;21,"62756051118 ")
  1. ;;86
  1. ;;21,"62756051183 ")
  1. ;;87
  1. ;;21,"62756051188 ")
  1. ;;88
  1. ;;21,"63304060028 ")
  1. ;;89
  1. ;;21,"63304060060 ")
  1. ;;90
  1. ;;21,"63304060130 ")
  1. ;;91
  1. ;;21,"63304060190 ")
  1. ;;92
  1. ;;21,"63323012930 ")
  1. ;;93
  1. ;;21,"63323077230 ")
  1. ;;94
  1. ;;21,"63629441301 ")
  1. ;;95
  1. ;;21,"63672001500 ")
  1. ;;96
  1. ;;21,"63739026910 ")
  1. ;;97
  1. ;;21,"65841074306 ")
  1. ;;98
  1. ;;21,"65841074310 ")
  1. ;;99
  1. ;;21,"66267087360 ")
  1. ;;100
  1. ;;21,"66435041530 ")
  1. ;;101
  1. ;;21,"67877017110 ")
  1. ;;102
  1. ;;21,"67877017130 ")
  1. ;;103
  1. ;;21,"68084044811 ")
  1. ;;104
  1. ;;21,"68084044821 ")
  1. ;;105
  1. ;;21,"68382020906 ")
  1. ;;106
  1. ;;21,"68382020910 ")
  1. ;;107
  1. ;;9002226,1050,.01)
  1. ;;BGPMU TAMOXIFEN AROMATASE NDCS
  1. ;;9002226,1050,.02)
  1. ;;Breast CA Treatment NDCs
  1. ;;9002226,1050,.04)
  1. ;;n
  1. ;;9002226,1050,.06)
  1. ;;@
  1. ;;9002226,1050,.08)
  1. ;;@
  1. ;;9002226,1050,.09)
  1. ;;3110901
  1. ;;9002226,1050,.11)
  1. ;;@
  1. ;;9002226,1050,.12)
  1. ;;@
  1. ;;9002226,1050,.13)
  1. ;;@
  1. ;;9002226,1050,.14)
  1. ;;@
  1. ;;9002226,1050,.15)
  1. ;;@
  1. ;;9002226,1050,.16)
  1. ;;@
  1. ;;9002226,1050,.17)
  1. ;;@
  1. ;;9002226,1050,3101)
  1. ;;@
  1. ;;9002226.02101,"1050,00017565760 ",.01)
  1. ;;00017565760
  1. ;;9002226.02101,"1050,00017565760 ",.02)
  1. ;;00017565760
  1. ;;9002226.02101,"1050,00017565770 ",.01)
  1. ;;00017565770
  1. ;;9002226.02101,"1050,00017565770 ",.02)
  1. ;;00017565770
  1. ;;9002226.02101,"1050,00054008013 ",.01)
  1. ;;00054008013
  1. ;;9002226.02101,"1050,00054008013 ",.02)
  1. ;;00054008013
  1. ;;9002226.02101,"1050,00054016413 ",.01)
  1. ;;00054016413
  1. ;;9002226.02101,"1050,00054016413 ",.02)
  1. ;;00054016413
  1. ;;9002226.02101,"1050,00054026913 ",.01)
  1. ;;00054026913
  1. ;;9002226.02101,"1050,00054026913 ",.02)
  1. ;;00054026913
  1. ;;9002226.02101,"1050,00054483121 ",.01)
  1. ;;00054483121
  1. ;;9002226.02101,"1050,00054483121 ",.02)
  1. ;;00054483121
  1. ;;9002226.02101,"1050,00054483126 ",.01)
  1. ;;00054483126
  1. ;;9002226.02101,"1050,00054483126 ",.02)
  1. ;;00054483126
  1. ;;9002226.02101,"1050,00054483413 ",.01)
  1. ;;00054483413
  1. ;;9002226.02101,"1050,00054483413 ",.02)
  1. ;;00054483413
  1. ;;9002226.02101,"1050,00054483422 ",.01)
  1. ;;00054483422
  1. ;;9002226.02101,"1050,00054483422 ",.02)
  1. ;;00054483422
  1. ;;9002226.02101,"1050,00054883125 ",.01)
  1. ;;00054883125
  1. ;;9002226.02101,"1050,00054883125 ",.02)
  1. ;;00054883125
  1. ;;9002226.02101,"1050,00054883425 ",.01)
  1. ;;00054883425
  1. ;;9002226.02101,"1050,00054883425 ",.02)
  1. ;;00054883425
  1. ;;9002226.02101,"1050,00093078201 ",.01)
  1. ;;00093078201
  1. ;;9002226.02101,"1050,00093078201 ",.02)
  1. ;;00093078201
  1. ;;9002226.02101,"1050,00093078205 ",.01)
  1. ;;00093078205
  1. ;;9002226.02101,"1050,00093078205 ",.02)
  1. ;;00093078205
  1. ;;9002226.02101,"1050,00093078210 ",.01)
  1. ;;00093078210
  1. ;;9002226.02101,"1050,00093078210 ",.02)
  1. ;;00093078210
  1. ;;9002226.02101,"1050,00093078256 ",.01)
  1. ;;00093078256
  1. ;;9002226.02101,"1050,00093078256 ",.02)
  1. ;;00093078256
  1. ;;9002226.02101,"1050,00093078405 ",.01)
  1. ;;00093078405
  1. ;;9002226.02101,"1050,00093078405 ",.02)
  1. ;;00093078405
  1. ;;9002226.02101,"1050,00093078406 ",.01)
  1. ;;00093078406
  1. ;;9002226.02101,"1050,00093078406 ",.02)
  1. ;;00093078406
  1. ;;9002226.02101,"1050,00093078410 ",.01)
  1. ;;00093078410
  1. ;;9002226.02101,"1050,00093078410 ",.02)
  1. ;;00093078410
  1. ;;9002226.02101,"1050,00093078486 ",.01)
  1. ;;00093078486
  1. ;;9002226.02101,"1050,00093078486 ",.02)
  1. ;;00093078486
  1. ;;9002226.02101,"1050,00093753656 ",.01)
  1. ;;00093753656
  1. ;;9002226.02101,"1050,00093753656 ",.02)
  1. ;;00093753656
  1. ;;9002226.02101,"1050,00093762056 ",.01)
  1. ;;00093762056
  1. ;;9002226.02101,"1050,00093762056 ",.02)
  1. ;;00093762056
  1. ;;9002226.02101,"1050,00172565649 ",.01)
  1. ;;00172565649
  1. ;;9002226.02101,"1050,00172565649 ",.02)
  1. ;;00172565649
  1. ;;9002226.02101,"1050,00172565658 ",.01)
  1. ;;00172565658
  1. ;;9002226.02101,"1050,00172565658 ",.02)
  1. ;;00172565658
  1. ;;9002226.02101,"1050,00172565670 ",.01)
  1. ;;00172565670
  1. ;;9002226.02101,"1050,00172565670 ",.02)
  1. ;;00172565670
  1. ;;9002226.02101,"1050,00172565680 ",.01)
  1. ;;00172565680
  1. ;;9002226.02101,"1050,00172565680 ",.02)
  1. ;;00172565680
  1. ;;9002226.02101,"1050,00172565746 ",.01)
  1. ;;00172565746
  1. ;;9002226.02101,"1050,00172565746 ",.02)
  1. ;;00172565746
  1. ;;9002226.02101,"1050,00172565755 ",.01)
  1. ;;00172565755
  1. ;;9002226.02101,"1050,00172565755 ",.02)
  1. ;;00172565755
  1. ;;9002226.02101,"1050,00172565780 ",.01)
  1. ;;00172565780
  1. ;;9002226.02101,"1050,00172565780 ",.02)
  1. ;;00172565780
  1. ;;9002226.02101,"1050,00179006870 ",.01)
  1. ;;00179006870
  1. ;;9002226.02101,"1050,00179006870 ",.02)
  1. ;;00179006870
  1. ;;9002226.02101,"1050,00179195201 ",.01)
  1. ;;00179195201
  1. ;;9002226.02101,"1050,00179195201 ",.02)
  1. ;;00179195201
  1. ;;9002226.02101,"1050,00179195230 ",.01)
  1. ;;00179195230
  1. ;;9002226.02101,"1050,00179195230 ",.02)
  1. ;;00179195230
  1. ;;9002226.02101,"1050,00179195250 ",.01)
  1. ;;00179195250
  1. ;;9002226.02101,"1050,00179195250 ",.02)
  1. ;;00179195250
  1. ;;9002226.02101,"1050,00179195260 ",.01)
  1. ;;00179195260
  1. ;;9002226.02101,"1050,00179195260 ",.02)
  1. ;;00179195260
  1. ;;9002226.02101,"1050,00179195290 ",.01)
  1. ;;00179195290
  1. ;;9002226.02101,"1050,00179195290 ",.02)
  1. ;;00179195290
  1. ;;9002226.02101,"1050,00247085960 ",.01)
  1. ;;00247085960
  1. ;;9002226.02101,"1050,00247085960 ",.02)
  1. ;;00247085960
  1. ;;9002226.02101,"1050,00310044603 ",.01)
  1. ;;00310044603
  1. ;;9002226.02101,"1050,00310044603 ",.02)
  1. ;;00310044603
  1. ;;9002226.02101,"1050,00378014405 ",.01)
  1. ;;00378014405
  1. ;;9002226.02101,"1050,00378014405 ",.02)
  1. ;;00378014405
  1. ;;9002226.02101,"1050,00378014491 ",.01)
  1. ;;00378014491
  1. ;;9002226.02101,"1050,00378014491 ",.02)
  1. ;;00378014491
  1. ;;9002226.02101,"1050,00378027401 ",.01)
  1. ;;00378027401
  1. ;;9002226.02101,"1050,00378027401 ",.02)
  1. ;;00378027401
  1. ;;9002226.02101,"1050,00378027425 ",.01)
  1. ;;00378027425
  1. ;;9002226.02101,"1050,00378027425 ",.02)
  1. ;;00378027425
  1. ;;9002226.02101,"1050,00378027493 ",.01)
  1. ;;00378027493
  1. ;;9002226.02101,"1050,00378027493 ",.02)
  1. ;;00378027493
  1. ;;9002226.02101,"1050,00378207105 ",.01)
  1. ;;00378207105
  1. ;;9002226.02101,"1050,00378207105 ",.02)
  1. ;;00378207105
  1. ;;9002226.02101,"1050,00378207193 ",.01)
  1. ;;00378207193
  1. ;;9002226.02101,"1050,00378207193 ",.02)
  1. ;;00378207193
  1. ;;9002226.02101,"1050,00378603405 ",.01)
  1. ;;00378603405
  1. ;;9002226.02101,"1050,00378603405 ",.02)
  1. ;;00378603405
  1. ;;9002226.02101,"1050,00378603477 ",.01)
  1. ;;00378603477
  1. ;;9002226.02101,"1050,00378603477 ",.02)
  1. ;;00378603477
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGPM5AZD
  1. D ^BGPM5AZE
  1. Q