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

BGPM5BAH.m

Go to the documentation of this file.
  1. BGPM5BAH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 09, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;;BGPMU COLON CANCER CHEMO NDCS
  1. ;
  1. ; This routine loads Taxonomy BGPMU COLON CANCER CHEMO 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,"00054008013 ")
  1. ;;121
  1. ;;21,"00054016413 ")
  1. ;;122
  1. ;;21,"00054449613 ")
  1. ;;123
  1. ;;21,"00054449625 ")
  1. ;;124
  1. ;;21,"00054449705 ")
  1. ;;125
  1. ;;21,"00054449710 ")
  1. ;;126
  1. ;;21,"00054449810 ")
  1. ;;127
  1. ;;21,"00054449911 ")
  1. ;;128
  1. ;;21,"00054849619 ")
  1. ;;129
  1. ;;21,"00074514001 ")
  1. ;;130
  1. ;;21,"00093753656 ")
  1. ;;131
  1. ;;21,"00179006870 ")
  1. ;;132
  1. ;;21,"00187395364 ")
  1. ;;133
  1. ;;21,"00247089410 ")
  1. ;;134
  1. ;;21,"00378603405 ")
  1. ;;135
  1. ;;21,"00378603477 ")
  1. ;;136
  1. ;;21,"00378603493 ")
  1. ;;137
  1. ;;21,"00555048401 ")
  1. ;;138
  1. ;;21,"00555048402 ")
  1. ;;139
  1. ;;21,"00555048405 ")
  1. ;;140
  1. ;;21,"00555048418 ")
  1. ;;141
  1. ;;21,"00555048504 ")
  1. ;;142
  1. ;;21,"00555048527 ")
  1. ;;143
  1. ;;21,"00603418435 ")
  1. ;;144
  1. ;;21,"00703279301 ")
  1. ;;145
  1. ;;21,"00703279701 ")
  1. ;;146
  1. ;;21,"00703513801 ")
  1. ;;147
  1. ;;21,"00703514001 ")
  1. ;;148
  1. ;;21,"00703514501 ")
  1. ;;149
  1. ;;21,"00781535631 ")
  1. ;;150
  1. ;;21,"00904231560 ")
  1. ;;151
  1. ;;21,"00904619546 ")
  1. ;;152
  1. ;;21,"00904622961 ")
  1. ;;153
  1. ;;21,"10019095001 ")
  1. ;;1
  1. ;;21,"10019095002 ")
  1. ;;2
  1. ;;21,"10130000901 ")
  1. ;;3
  1. ;;21,"10130005110 ")
  1. ;;4
  1. ;;21,"10130005210 ")
  1. ;;5
  1. ;;21,"10130005301 ")
  1. ;;6
  1. ;;21,"10130005401 ")
  1. ;;7
  1. ;;21,"10139006301 ")
  1. ;;8
  1. ;;21,"10139006310 ")
  1. ;;9
  1. ;;21,"10139006311 ")
  1. ;;10
  1. ;;21,"10139006312 ")
  1. ;;11
  1. ;;21,"10139006320 ")
  1. ;;12
  1. ;;21,"10139006350 ")
  1. ;;13
  1. ;;21,"16364008401 ")
  1. ;;14
  1. ;;21,"16364008403 ")
  1. ;;15
  1. ;;21,"16364008405 ")
  1. ;;16
  1. ;;21,"16364008411 ")
  1. ;;17
  1. ;;21,"16364008433 ")
  1. ;;18
  1. ;;21,"16364008435 ")
  1. ;;19
  1. ;;21,"16571042103 ")
  1. ;;20
  1. ;;21,"16729003510 ")
  1. ;;21
  1. ;;21,"16729003515 ")
  1. ;;22
  1. ;;21,"16729003516 ")
  1. ;;23
  1. ;;21,"17856048402 ")
  1. ;;24
  1. ;;21,"21695099030 ")
  1. ;;25
  1. ;;21,"26053000601 ")
  1. ;;26
  1. ;;21,"26053002601 ")
  1. ;;27
  1. ;;21,"42043018003 ")
  1. ;;28
  1. ;;21,"42291010530 ")
  1. ;;29
  1. ;;21,"43547025801 ")
  1. ;;30
  1. ;;21,"43547025901 ")
  1. ;;31
  1. ;;21,"51079032301 ")
  1. ;;32
  1. ;;21,"51079032306 ")
  1. ;;33
  1. ;;21,"51079058101 ")
  1. ;;34
  1. ;;21,"51079058106 ")
  1. ;;35
  1. ;;21,"51079058201 ")
  1. ;;36
  1. ;;21,"51079058205 ")
  1. ;;37
  1. ;;21,"51672406201 ")
  1. ;;38
  1. ;;21,"51672406301 ")
  1. ;;39
  1. ;;21,"51672411802 ")
  1. ;;40
  1. ;;21,"51672411805 ")
  1. ;;41
  1. ;;21,"51672411806 ")
  1. ;;42
  1. ;;21,"51991062010 ")
  1. ;;43
  1. ;;21,"51991062033 ")
  1. ;;44
  1. ;;21,"52549406201 ")
  1. ;;45
  1. ;;21,"52549406301 ")
  1. ;;46
  1. ;;21,"52549411802 ")
  1. ;;47
  1. ;;21,"52549411805 ")
  1. ;;48
  1. ;;21,"52549411806 ")
  1. ;;49
  1. ;;21,"54569619800 ")
  1. ;;50
  1. ;;21,"54868331000 ")
  1. ;;51
  1. ;;21,"54868331001 ")
  1. ;;52
  1. ;;21,"54868331002 ")
  1. ;;53
  1. ;;21,"54868331003 ")
  1. ;;54
  1. ;;21,"54868331004 ")
  1. ;;55
  1. ;;21,"54868591500 ")
  1. ;;56
  1. ;;21,"54868613000 ")
  1. ;;57
  1. ;;21,"54868613001 ")
  1. ;;58
  1. ;;21,"55111064730 ")
  1. ;;59
  1. ;;21,"55390000901 ")
  1. ;;60
  1. ;;21,"55390005110 ")
  1. ;;61
  1. ;;21,"55390005210 ")
  1. ;;62
  1. ;;21,"55390005301 ")
  1. ;;63
  1. ;;21,"55390005401 ")
  1. ;;64
  1. ;;21,"55390081810 ")
  1. ;;65
  1. ;;21,"55390082401 ")
  1. ;;66
  1. ;;21,"55390082501 ")
  1. ;;67
  1. ;;21,"55390082601 ")
  1. ;;68
  1. ;;21,"59260024904 ")
  1. ;;69
  1. ;;21,"59762285801 ")
  1. ;;70
  1. ;;21,"60258086603 ")
  1. ;;71
  1. ;;21,"61703040932 ")
  1. ;;72
  1. ;;21,"61703040953 ")
  1. ;;73
  1. ;;21,"61703040967 ")
  1. ;;74
  1. ;;21,"61703041050 ")
  1. ;;75
  1. ;;21,"62033037606 ")
  1. ;;76
  1. ;;21,"62175071032 ")
  1. ;;77
  1. ;;21,"62756025013 ")
  1. ;;78
  1. ;;21,"62756025018 ")
  1. ;;79
  1. ;;21,"62756025083 ")
  1. ;;80
  1. ;;21,"62756025088 ")
  1. ;;81
  1. ;;21,"63323011710 ")
  1. ;;82
  1. ;;21,"63323011720 ")
  1. ;;83
  1. ;;21,"63323011751 ")
  1. ;;84
  1. ;;21,"63323011761 ")
  1. ;;85
  1. ;;21,"63323011765 ")
  1. ;;86
  1. ;;21,"63323012930 ")
  1. ;;87
  1. ;;21,"63323071050 ")
  1. ;;88
  1. ;;21,"63323071100 ")
  1. ;;89
  1. ;;21,"63672001500 ")
  1. ;;90
  1. ;;21,"64158060810 ")
  1. ;;91
  1. ;;21,"64886012001 ")
  1. ;;92
  1. ;;21,"64886012101 ")
  1. ;;93
  1. ;;21,"64886020001 ")
  1. ;;94
  1. ;;21,"64886020002 ")
  1. ;;95
  1. ;;21,"65219011710 ")
  1. ;;96
  1. ;;21,"65219011720 ")
  1. ;;97
  1. ;;21,"65219011751 ")
  1. ;;98
  1. ;;21,"65219011761 ")
  1. ;;99
  1. ;;21,"65841074306 ")
  1. ;;100
  1. ;;21,"65841074310 ")
  1. ;;101
  1. ;;21,"66435041530 ")
  1. ;;102
  1. ;;21,"66530024940 ")
  1. ;;103
  1. ;;21,"66758004401 ")
  1. ;;104
  1. ;;21,"66758004403 ")
  1. ;;105
  1. ;;21,"66758005401 ")
  1. ;;106
  1. ;;21,"66758005402 ")
  1. ;;107
  1. ;;21,"67263034583 ")
  1. ;;108
  1. ;;21,"67263046683 ")
  1. ;;109
  1. ;;21,"67263050686 ")
  1. ;;110
  1. ;;21,"67877017110 ")
  1. ;;111
  1. ;;21,"67877017130 ")
  1. ;;112
  1. ;;21,"68084044811 ")
  1. ;;113
  1. ;;21,"68084044821 ")
  1. ;;114
  1. ;;21,"68382020906 ")
  1. ;;115
  1. ;;21,"68382020910 ")
  1. ;;116
  1. ;;21,"68682000431 ")
  1. ;;117
  1. ;;21,"68682008531 ")
  1. ;;118
  1. ;;21,"68842004401 ")
  1. ;;119
  1. ;;21,"68882060810 ")
  1. ;;120
  1. ;;9002226,1072,.01)
  1. ;;BGPMU COLON CANCER CHEMO NDCS
  1. ;;9002226,1072,.02)
  1. ;;NDCS FOR COLON CANCER CHEMO
  1. ;;9002226,1072,.04)
  1. ;;@
  1. ;;9002226,1072,.06)
  1. ;;@
  1. ;;9002226,1072,.08)
  1. ;;@
  1. ;;9002226,1072,.09)
  1. ;;@
  1. ;;9002226,1072,.11)
  1. ;;@
  1. ;;9002226,1072,.12)
  1. ;;@
  1. ;;9002226,1072,.13)
  1. ;;@
  1. ;;9002226,1072,.14)
  1. ;;@
  1. ;;9002226,1072,.15)
  1. ;;50.67
  1. ;;9002226,1072,.16)
  1. ;;1
  1. ;;9002226,1072,.17)
  1. ;;@
  1. ;;9002226,1072,3101)
  1. ;;@
  1. ;;9002226.02101,"1072,00054008013 ",.01)
  1. ;;00054008013
  1. ;;9002226.02101,"1072,00054008013 ",.02)
  1. ;;00054008013
  1. ;;9002226.02101,"1072,00054016413 ",.01)
  1. ;;00054016413
  1. ;;9002226.02101,"1072,00054016413 ",.02)
  1. ;;00054016413
  1. ;;9002226.02101,"1072,00054449613 ",.01)
  1. ;;00054449613
  1. ;;9002226.02101,"1072,00054449613 ",.02)
  1. ;;00054449613
  1. ;;9002226.02101,"1072,00054449625 ",.01)
  1. ;;00054449625
  1. ;;9002226.02101,"1072,00054449625 ",.02)
  1. ;;00054449625
  1. ;;9002226.02101,"1072,00054449705 ",.01)
  1. ;;00054449705
  1. ;;9002226.02101,"1072,00054449705 ",.02)
  1. ;;00054449705
  1. ;;9002226.02101,"1072,00054449710 ",.01)
  1. ;;00054449710
  1. ;;9002226.02101,"1072,00054449710 ",.02)
  1. ;;00054449710
  1. ;;9002226.02101,"1072,00054449810 ",.01)
  1. ;;00054449810
  1. ;;9002226.02101,"1072,00054449810 ",.02)
  1. ;;00054449810
  1. ;;9002226.02101,"1072,00054449911 ",.01)
  1. ;;00054449911
  1. ;;9002226.02101,"1072,00054449911 ",.02)
  1. ;;00054449911
  1. ;;9002226.02101,"1072,00054849619 ",.01)
  1. ;;00054849619
  1. ;;9002226.02101,"1072,00054849619 ",.02)
  1. ;;00054849619
  1. ;;9002226.02101,"1072,00074514001 ",.01)
  1. ;;00074514001
  1. ;;9002226.02101,"1072,00074514001 ",.02)
  1. ;;00074514001
  1. ;;9002226.02101,"1072,00093753656 ",.01)
  1. ;;00093753656
  1. ;;9002226.02101,"1072,00093753656 ",.02)
  1. ;;00093753656
  1. ;;9002226.02101,"1072,00179006870 ",.01)
  1. ;;00179006870
  1. ;;9002226.02101,"1072,00179006870 ",.02)
  1. ;;00179006870
  1. ;;9002226.02101,"1072,00187395364 ",.01)
  1. ;;00187395364
  1. ;;9002226.02101,"1072,00187395364 ",.02)
  1. ;;00187395364
  1. ;;9002226.02101,"1072,00247089410 ",.01)
  1. ;;00247089410
  1. ;;9002226.02101,"1072,00247089410 ",.02)
  1. ;;00247089410
  1. ;;9002226.02101,"1072,00378603405 ",.01)
  1. ;;00378603405
  1. ;;9002226.02101,"1072,00378603405 ",.02)
  1. ;;00378603405
  1. ;;9002226.02101,"1072,00378603477 ",.01)
  1. ;;00378603477
  1. ;;9002226.02101,"1072,00378603477 ",.02)
  1. ;;00378603477
  1. ;;9002226.02101,"1072,00378603493 ",.01)
  1. ;;00378603493
  1. ;;9002226.02101,"1072,00378603493 ",.02)
  1. ;;00378603493
  1. ;;9002226.02101,"1072,00555048401 ",.01)
  1. ;;00555048401
  1. ;;9002226.02101,"1072,00555048401 ",.02)
  1. ;;00555048401
  1. ;;9002226.02101,"1072,00555048402 ",.01)
  1. ;;00555048402
  1. ;;9002226.02101,"1072,00555048402 ",.02)
  1. ;;00555048402
  1. ;;9002226.02101,"1072,00555048405 ",.01)
  1. ;;00555048405
  1. ;;9002226.02101,"1072,00555048405 ",.02)
  1. ;;00555048405
  1. ;;9002226.02101,"1072,00555048418 ",.01)
  1. ;;00555048418
  1. ;;9002226.02101,"1072,00555048418 ",.02)
  1. ;;00555048418
  1. ;;9002226.02101,"1072,00555048504 ",.01)
  1. ;;00555048504
  1. ;;9002226.02101,"1072,00555048504 ",.02)
  1. ;;00555048504
  1. ;;9002226.02101,"1072,00555048527 ",.01)
  1. ;;00555048527
  1. ;;9002226.02101,"1072,00555048527 ",.02)
  1. ;;00555048527
  1. ;;9002226.02101,"1072,00603418435 ",.01)
  1. ;;00603418435
  1. ;;9002226.02101,"1072,00603418435 ",.02)
  1. ;;00603418435
  1. ;;9002226.02101,"1072,00703279301 ",.01)
  1. ;;00703279301
  1. ;;9002226.02101,"1072,00703279301 ",.02)
  1. ;;00703279301
  1. ;;9002226.02101,"1072,00703279701 ",.01)
  1. ;;00703279701
  1. ;;9002226.02101,"1072,00703279701 ",.02)
  1. ;;00703279701
  1. ;;9002226.02101,"1072,00703513801 ",.01)
  1. ;;00703513801
  1. ;;9002226.02101,"1072,00703513801 ",.02)
  1. ;;00703513801
  1. ;;9002226.02101,"1072,00703514001 ",.01)
  1. ;;00703514001
  1. ;;9002226.02101,"1072,00703514001 ",.02)
  1. ;;00703514001
  1. ;;9002226.02101,"1072,00703514501 ",.01)
  1. ;;00703514501
  1. ;;9002226.02101,"1072,00703514501 ",.02)
  1. ;;00703514501
  1. ;;9002226.02101,"1072,00781535631 ",.01)
  1. ;;00781535631
  1. ;;9002226.02101,"1072,00781535631 ",.02)
  1. ;;00781535631
  1. ;;9002226.02101,"1072,00904231560 ",.01)
  1. ;;00904231560
  1. ;;9002226.02101,"1072,00904231560 ",.02)
  1. ;;00904231560
  1. ;;9002226.02101,"1072,00904619546 ",.01)
  1. ;;00904619546
  1. ;;9002226.02101,"1072,00904619546 ",.02)
  1. ;;00904619546
  1. ;;9002226.02101,"1072,00904622961 ",.01)
  1. ;;00904622961
  1. ;;9002226.02101,"1072,00904622961 ",.02)
  1. ;;00904622961
  1. ;;9002226.02101,"1072,10019095001 ",.01)
  1. ;;10019095001
  1. ;;9002226.02101,"1072,10019095001 ",.02)
  1. ;;10019095001
  1. ;;9002226.02101,"1072,10019095002 ",.01)
  1. ;;10019095002
  1. ;;9002226.02101,"1072,10019095002 ",.02)
  1. ;;10019095002
  1. ;;9002226.02101,"1072,10130000901 ",.01)
  1. ;;10130000901
  1. ;;9002226.02101,"1072,10130000901 ",.02)
  1. ;;10130000901
  1. ;;9002226.02101,"1072,10130005110 ",.01)
  1. ;;10130005110
  1. ;;9002226.02101,"1072,10130005110 ",.02)
  1. ;;10130005110
  1. ;;9002226.02101,"1072,10130005210 ",.01)
  1. ;;10130005210
  1. ;;9002226.02101,"1072,10130005210 ",.02)
  1. ;;10130005210
  1. ;;9002226.02101,"1072,10130005301 ",.01)
  1. ;;10130005301
  1. ;;9002226.02101,"1072,10130005301 ",.02)
  1. ;;10130005301
  1. ;;9002226.02101,"1072,10130005401 ",.01)
  1. ;;10130005401
  1. ;;9002226.02101,"1072,10130005401 ",.02)
  1. ;;10130005401
  1. ;;9002226.02101,"1072,10139006301 ",.01)
  1. ;;10139006301
  1. ;;9002226.02101,"1072,10139006301 ",.02)
  1. ;;10139006301
  1. ;;9002226.02101,"1072,10139006310 ",.01)
  1. ;;10139006310
  1. ;;9002226.02101,"1072,10139006310 ",.02)
  1. ;;10139006310
  1. ;;9002226.02101,"1072,10139006311 ",.01)
  1. ;;10139006311
  1. ;;9002226.02101,"1072,10139006311 ",.02)
  1. ;;10139006311
  1. ;;9002226.02101,"1072,10139006312 ",.01)
  1. ;;10139006312
  1. ;;9002226.02101,"1072,10139006312 ",.02)
  1. ;;10139006312
  1. ;;9002226.02101,"1072,10139006320 ",.01)
  1. ;;10139006320
  1. ;;9002226.02101,"1072,10139006320 ",.02)
  1. ;;10139006320
  1. ;;9002226.02101,"1072,10139006350 ",.01)
  1. ;;10139006350
  1. ;;9002226.02101,"1072,10139006350 ",.02)
  1. ;;10139006350
  1. ;;9002226.02101,"1072,16364008401 ",.01)
  1. ;;16364008401
  1. ;;9002226.02101,"1072,16364008401 ",.02)
  1. ;;16364008401
  1. ;;9002226.02101,"1072,16364008403 ",.01)
  1. ;;16364008403
  1. ;;9002226.02101,"1072,16364008403 ",.02)
  1. ;;16364008403
  1. ;;9002226.02101,"1072,16364008405 ",.01)
  1. ;;16364008405
  1. ;;9002226.02101,"1072,16364008405 ",.02)
  1. ;;16364008405
  1. ;;9002226.02101,"1072,16364008411 ",.01)
  1. ;;16364008411
  1. ;;9002226.02101,"1072,16364008411 ",.02)
  1. ;;16364008411
  1. ;;9002226.02101,"1072,16364008433 ",.01)
  1. ;;16364008433
  1. ;;9002226.02101,"1072,16364008433 ",.02)
  1. ;;16364008433
  1. ;;9002226.02101,"1072,16364008435 ",.01)
  1. ;;16364008435
  1. ;;9002226.02101,"1072,16364008435 ",.02)
  1. ;;16364008435
  1. ;;9002226.02101,"1072,16571042103 ",.01)
  1. ;;16571042103
  1. ;;9002226.02101,"1072,16571042103 ",.02)
  1. ;;16571042103
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGPM5BAI
  1. Q