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

BGPM5AAE.m

Go to the documentation of this file.
  1. BGPM5AAE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON JUL 01, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;;BGPMU DELIVERY LIVE BIRTH DX
  1. ;
  1. ; This routine loads Taxonomy BGPMU DELIVERY LIVE BIRTH DX
  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,"641.01 ")
  1. ;;1
  1. ;;21,"641.11 ")
  1. ;;2
  1. ;;21,"641.21 ")
  1. ;;3
  1. ;;21,"641.31 ")
  1. ;;4
  1. ;;21,"641.81 ")
  1. ;;5
  1. ;;21,"641.91 ")
  1. ;;6
  1. ;;21,"642.01 ")
  1. ;;7
  1. ;;21,"642.02 ")
  1. ;;8
  1. ;;21,"642.11 ")
  1. ;;9
  1. ;;21,"642.12 ")
  1. ;;10
  1. ;;21,"642.21 ")
  1. ;;11
  1. ;;21,"642.22 ")
  1. ;;12
  1. ;;21,"642.31 ")
  1. ;;13
  1. ;;21,"642.32 ")
  1. ;;14
  1. ;;21,"642.41 ")
  1. ;;15
  1. ;;21,"642.42 ")
  1. ;;16
  1. ;;21,"642.51 ")
  1. ;;17
  1. ;;21,"642.52 ")
  1. ;;18
  1. ;;21,"642.61 ")
  1. ;;19
  1. ;;21,"642.62 ")
  1. ;;20
  1. ;;21,"642.71 ")
  1. ;;21
  1. ;;21,"642.72 ")
  1. ;;22
  1. ;;21,"642.91 ")
  1. ;;23
  1. ;;21,"642.92 ")
  1. ;;24
  1. ;;21,"643.21 ")
  1. ;;25
  1. ;;21,"643.81 ")
  1. ;;26
  1. ;;21,"644.21 ")
  1. ;;27
  1. ;;21,"645.11 ")
  1. ;;28
  1. ;;21,"645.21 ")
  1. ;;29
  1. ;;21,"646.01 ")
  1. ;;30
  1. ;;21,"646.11 ")
  1. ;;31
  1. ;;21,"646.12 ")
  1. ;;32
  1. ;;21,"646.21 ")
  1. ;;33
  1. ;;21,"646.22 ")
  1. ;;34
  1. ;;21,"646.31 ")
  1. ;;35
  1. ;;21,"646.41 ")
  1. ;;36
  1. ;;21,"646.42 ")
  1. ;;37
  1. ;;21,"646.71 ")
  1. ;;38
  1. ;;21,"646.91 ")
  1. ;;39
  1. ;;21,"647.01 ")
  1. ;;40
  1. ;;21,"647.02 ")
  1. ;;41
  1. ;;21,"647.11 ")
  1. ;;42
  1. ;;21,"647.12 ")
  1. ;;43
  1. ;;21,"647.21 ")
  1. ;;44
  1. ;;21,"647.22 ")
  1. ;;45
  1. ;;21,"647.31 ")
  1. ;;46
  1. ;;21,"647.32 ")
  1. ;;47
  1. ;;21,"647.41 ")
  1. ;;48
  1. ;;21,"647.42 ")
  1. ;;49
  1. ;;21,"647.51 ")
  1. ;;50
  1. ;;21,"647.52 ")
  1. ;;51
  1. ;;21,"647.61 ")
  1. ;;52
  1. ;;21,"647.62 ")
  1. ;;53
  1. ;;21,"647.81 ")
  1. ;;54
  1. ;;21,"647.82 ")
  1. ;;55
  1. ;;21,"647.91 ")
  1. ;;56
  1. ;;21,"647.92 ")
  1. ;;57
  1. ;;21,"648.01 ")
  1. ;;58
  1. ;;21,"648.02 ")
  1. ;;59
  1. ;;21,"648.11 ")
  1. ;;60
  1. ;;21,"648.12 ")
  1. ;;61
  1. ;;21,"648.21 ")
  1. ;;62
  1. ;;21,"648.22 ")
  1. ;;63
  1. ;;21,"648.31 ")
  1. ;;64
  1. ;;21,"648.32 ")
  1. ;;65
  1. ;;21,"648.41 ")
  1. ;;66
  1. ;;21,"648.42 ")
  1. ;;67
  1. ;;21,"648.51 ")
  1. ;;68
  1. ;;21,"648.52 ")
  1. ;;69
  1. ;;21,"648.61 ")
  1. ;;70
  1. ;;21,"648.62 ")
  1. ;;71
  1. ;;21,"648.71 ")
  1. ;;72
  1. ;;21,"648.72 ")
  1. ;;73
  1. ;;21,"648.81 ")
  1. ;;74
  1. ;;21,"648.82 ")
  1. ;;75
  1. ;;21,"648.91 ")
  1. ;;76
  1. ;;21,"648.92 ")
  1. ;;77
  1. ;;21,"649.01 ")
  1. ;;78
  1. ;;21,"649.02 ")
  1. ;;79
  1. ;;21,"649.11 ")
  1. ;;80
  1. ;;21,"649.12 ")
  1. ;;81
  1. ;;21,"649.21 ")
  1. ;;82
  1. ;;21,"649.22 ")
  1. ;;83
  1. ;;21,"649.31 ")
  1. ;;84
  1. ;;21,"649.32 ")
  1. ;;85
  1. ;;21,"649.41 ")
  1. ;;86
  1. ;;21,"649.42 ")
  1. ;;87
  1. ;;21,"649.51 ")
  1. ;;88
  1. ;;21,"649.61 ")
  1. ;;89
  1. ;;21,"649.62 ")
  1. ;;90
  1. ;;21,"65.621 ")
  1. ;;91
  1. ;;21,"651.01 ")
  1. ;;92
  1. ;;21,"651.11 ")
  1. ;;93
  1. ;;21,"651.21 ")
  1. ;;94
  1. ;;21,"651.31 ")
  1. ;;95
  1. ;;21,"651.41 ")
  1. ;;96
  1. ;;21,"651.51 ")
  1. ;;97
  1. ;;21,"651.61 ")
  1. ;;98
  1. ;;21,"651.71 ")
  1. ;;99
  1. ;;21,"651.81 ")
  1. ;;100
  1. ;;21,"651.91 ")
  1. ;;101
  1. ;;21,"652.01 ")
  1. ;;102
  1. ;;21,"652.11 ")
  1. ;;103
  1. ;;21,"652.21 ")
  1. ;;104
  1. ;;21,"652.31 ")
  1. ;;105
  1. ;;21,"652.41 ")
  1. ;;106
  1. ;;21,"652.51 ")
  1. ;;107
  1. ;;21,"652.61 ")
  1. ;;108
  1. ;;21,"652.71 ")
  1. ;;109
  1. ;;21,"652.81 ")
  1. ;;110
  1. ;;21,"652.91 ")
  1. ;;111
  1. ;;21,"653.01 ")
  1. ;;112
  1. ;;21,"653.11 ")
  1. ;;113
  1. ;;21,"653.21 ")
  1. ;;114
  1. ;;21,"653.31 ")
  1. ;;115
  1. ;;21,"653.41 ")
  1. ;;116
  1. ;;21,"653.51 ")
  1. ;;117
  1. ;;21,"653.61 ")
  1. ;;118
  1. ;;21,"653.71 ")
  1. ;;119
  1. ;;21,"653.81 ")
  1. ;;120
  1. ;;21,"653.91 ")
  1. ;;121
  1. ;;21,"654.01 ")
  1. ;;122
  1. ;;21,"654.02 ")
  1. ;;123
  1. ;;21,"654.11 ")
  1. ;;124
  1. ;;21,"654.12 ")
  1. ;;125
  1. ;;21,"654.31 ")
  1. ;;126
  1. ;;21,"654.32 ")
  1. ;;127
  1. ;;21,"654.41 ")
  1. ;;128
  1. ;;21,"654.42 ")
  1. ;;129
  1. ;;21,"654.51 ")
  1. ;;130
  1. ;;21,"654.52 ")
  1. ;;131
  1. ;;21,"654.61 ")
  1. ;;132
  1. ;;21,"654.62 ")
  1. ;;133
  1. ;;21,"654.71 ")
  1. ;;134
  1. ;;21,"654.72 ")
  1. ;;135
  1. ;;21,"654.81 ")
  1. ;;136
  1. ;;21,"654.82 ")
  1. ;;137
  1. ;;21,"654.91 ")
  1. ;;138
  1. ;;21,"654.92 ")
  1. ;;139
  1. ;;21,"655.01 ")
  1. ;;140
  1. ;;21,"655.11 ")
  1. ;;141
  1. ;;21,"655.21 ")
  1. ;;142
  1. ;;21,"655.31 ")
  1. ;;143
  1. ;;21,"655.41 ")
  1. ;;144
  1. ;;21,"655.51 ")
  1. ;;145
  1. ;;21,"655.61 ")
  1. ;;146
  1. ;;21,"655.71 ")
  1. ;;147
  1. ;;21,"655.81 ")
  1. ;;148
  1. ;;21,"655.91 ")
  1. ;;149
  1. ;;21,"656.01 ")
  1. ;;150
  1. ;;21,"656.11 ")
  1. ;;151
  1. ;;21,"656.31 ")
  1. ;;152
  1. ;;21,"656.51 ")
  1. ;;153
  1. ;;21,"656.61 ")
  1. ;;154
  1. ;;21,"656.71 ")
  1. ;;155
  1. ;;21,"656.81 ")
  1. ;;156
  1. ;;21,"656.91 ")
  1. ;;157
  1. ;;21,"657.01 ")
  1. ;;158
  1. ;;21,"658.01 ")
  1. ;;159
  1. ;;21,"658.11 ")
  1. ;;160
  1. ;;21,"658.21 ")
  1. ;;161
  1. ;;21,"658.31 ")
  1. ;;162
  1. ;;21,"658.41 ")
  1. ;;163
  1. ;;21,"658.81 ")
  1. ;;164
  1. ;;21,"658.91 ")
  1. ;;165
  1. ;;21,"659.01 ")
  1. ;;166
  1. ;;21,"659.11 ")
  1. ;;167
  1. ;;21,"659.21 ")
  1. ;;168
  1. ;;21,"659.31 ")
  1. ;;169
  1. ;;21,"659.41 ")
  1. ;;170
  1. ;;21,"659.51 ")
  1. ;;171
  1. ;;21,"659.61 ")
  1. ;;172
  1. ;;21,"659.71 ")
  1. ;;173
  1. ;;21,"659.81 ")
  1. ;;174
  1. ;;21,"659.91 ")
  1. ;;175
  1. ;;21,"660.01 ")
  1. ;;176
  1. ;;21,"660.11 ")
  1. ;;177
  1. ;;21,"660.21 ")
  1. ;;178
  1. ;;21,"660.31 ")
  1. ;;179
  1. ;;21,"660.41 ")
  1. ;;180
  1. ;;21,"660.51 ")
  1. ;;181
  1. ;;21,"660.61 ")
  1. ;;182
  1. ;;21,"660.71 ")
  1. ;;183
  1. ;;21,"660.81 ")
  1. ;;184
  1. ;;21,"660.91 ")
  1. ;;185
  1. ;;21,"661.01 ")
  1. ;;186
  1. ;;21,"661.11 ")
  1. ;;187
  1. ;;21,"661.21 ")
  1. ;;188
  1. ;;21,"661.31 ")
  1. ;;189
  1. ;;21,"661.41 ")
  1. ;;190
  1. ;;21,"661.91 ")
  1. ;;191
  1. ;;21,"662.01 ")
  1. ;;192
  1. ;;21,"662.11 ")
  1. ;;193
  1. ;;21,"662.21 ")
  1. ;;194
  1. ;;21,"662.31 ")
  1. ;;195
  1. ;;21,"663.01 ")
  1. ;;196
  1. ;;21,"663.11 ")
  1. ;;197
  1. ;;21,"663.21 ")
  1. ;;198
  1. ;;21,"663.31 ")
  1. ;;199
  1. ;;21,"663.41 ")
  1. ;;200
  1. ;;21,"663.51 ")
  1. ;;201
  1. ;;21,"663.61 ")
  1. ;;202
  1. ;;21,"663.81 ")
  1. ;;203
  1. ;;21,"663.91 ")
  1. ;;204
  1. ;;21,"664.01 ")
  1. ;;205
  1. ;;21,"664.11 ")
  1. ;;206
  1. ;;21,"664.21 ")
  1. ;;207
  1. ;;21,"664.31 ")
  1. ;;208
  1. ;;21,"664.41 ")
  1. ;;209
  1. ;;21,"664.51 ")
  1. ;;210
  1. ;;21,"664.61 ")
  1. ;;211
  1. ;;21,"664.81 ")
  1. ;;212
  1. ;;21,"664.91 ")
  1. ;;213
  1. ;;21,"665.01 ")
  1. ;;214
  1. ;;21,"665.11 ")
  1. ;;215
  1. ;;21,"665.31 ")
  1. ;;216
  1. ;;21,"665.41 ")
  1. ;;217
  1. ;;21,"665.51 ")
  1. ;;218
  1. ;;21,"665.61 ")
  1. ;;219
  1. ;;21,"665.71 ")
  1. ;;220
  1. ;;21,"665.72 ")
  1. ;;221
  1. ;;21,"665.81 ")
  1. ;;222
  1. ;;21,"665.91 ")
  1. ;;223
  1. ;;21,"665.92 ")
  1. ;;224
  1. ;;21,"666.02 ")
  1. ;;225
  1. ;;21,"666.12 ")
  1. ;;226
  1. ;;21,"666.22 ")
  1. ;;227
  1. ;;21,"666.32 ")
  1. ;;228
  1. ;;21,"667.02 ")
  1. ;;229
  1. ;;21,"667.12 ")
  1. ;;230
  1. ;;21,"668.01 ")
  1. ;;231
  1. ;;21,"668.02 ")
  1. ;;232
  1. ;;21,"668.11 ")
  1. ;;233
  1. ;;21,"668.12 ")
  1. ;;234
  1. ;;21,"668.21 ")
  1. ;;235
  1. ;;21,"668.22 ")
  1. ;;236
  1. ;;21,"668.81 ")
  1. ;;237
  1. ;;21,"668.82 ")
  1. ;;238
  1. ;;21,"668.91 ")
  1. ;;239
  1. ;;21,"668.92 ")
  1. ;;240
  1. ;;21,"669.01 ")
  1. ;;241
  1. ;;21,"669.02 ")
  1. ;;242
  1. ;;21,"669.11 ")
  1. ;;243
  1. ;;21,"669.12 ")
  1. ;;244
  1. ;;21,"669.21 ")
  1. ;;245
  1. ;;21,"669.22 ")
  1. ;;246
  1. ;;21,"669.32 ")
  1. ;;247
  1. ;;21,"669.41 ")
  1. ;;248
  1. ;;21,"669.42 ")
  1. ;;249
  1. ;;21,"669.51 ")
  1. ;;250
  1. ;;21,"669.61 ")
  1. ;;251
  1. ;;21,"669.71 ")
  1. ;;252
  1. ;;21,"669.81 ")
  1. ;;253
  1. ;;21,"669.82 ")
  1. ;;254
  1. ;;21,"669.91 ")
  1. ;;255
  1. ;;21,"669.92 ")
  1. ;;256
  1. ;;9002226,862,.01)
  1. ;;BGPMU DELIVERY LIVE BIRTH DX
  1. ;;9002226,862,.02)
  1. ;;DELIVERY LIVE BIRTH ICD9 CODES
  1. ;;9002226,862,.04)
  1. ;;n
  1. ;;9002226,862,.06)
  1. ;;@
  1. ;;9002226,862,.08)
  1. ;;@
  1. ;;9002226,862,.09)
  1. ;;3110603
  1. ;;9002226,862,.11)
  1. ;;@
  1. ;;9002226,862,.12)
  1. ;;@
  1. ;;9002226,862,.13)
  1. ;;@
  1. ;;9002226,862,.14)
  1. ;;@
  1. ;;9002226,862,.15)
  1. ;;80
  1. ;;9002226,862,.16)
  1. ;;1
  1. ;;9002226,862,.17)
  1. ;;@
  1. ;;9002226,862,3101)
  1. ;;@
  1. ;;9002226.02101,"862,641.01 ",.01)
  1. ;;641.01
  1. ;;9002226.02101,"862,641.01 ",.02)
  1. ;;641.01
  1. ;;9002226.02101,"862,641.11 ",.01)
  1. ;;641.11
  1. ;;9002226.02101,"862,641.11 ",.02)
  1. ;;641.11
  1. ;;9002226.02101,"862,641.21 ",.01)
  1. ;;641.21
  1. ;;9002226.02101,"862,641.21 ",.02)
  1. ;;641.21
  1. ;;9002226.02101,"862,641.31 ",.01)
  1. ;;641.31
  1. ;;9002226.02101,"862,641.31 ",.02)
  1. ;;641.31
  1. ;;9002226.02101,"862,641.81 ",.01)
  1. ;;641.81
  1. ;;9002226.02101,"862,641.81 ",.02)
  1. ;;641.81
  1. ;;9002226.02101,"862,641.91 ",.01)
  1. ;;641.91
  1. ;;9002226.02101,"862,641.91 ",.02)
  1. ;;641.91
  1. ;;9002226.02101,"862,642.01 ",.01)
  1. ;;642.01
  1. ;;9002226.02101,"862,642.01 ",.02)
  1. ;;642.01
  1. ;;9002226.02101,"862,642.02 ",.01)
  1. ;;642.02
  1. ;;9002226.02101,"862,642.02 ",.02)
  1. ;;642.02
  1. ;;9002226.02101,"862,642.11 ",.01)
  1. ;;642.11
  1. ;;9002226.02101,"862,642.11 ",.02)
  1. ;;642.11
  1. ;;9002226.02101,"862,642.12 ",.01)
  1. ;;642.12
  1. ;;9002226.02101,"862,642.12 ",.02)
  1. ;;642.12
  1. ;;9002226.02101,"862,642.21 ",.01)
  1. ;;642.21
  1. ;;9002226.02101,"862,642.21 ",.02)
  1. ;;642.21
  1. ;;9002226.02101,"862,642.22 ",.01)
  1. ;;642.22
  1. ;;9002226.02101,"862,642.22 ",.02)
  1. ;;642.22
  1. ;;9002226.02101,"862,642.31 ",.01)
  1. ;;642.31
  1. ;;9002226.02101,"862,642.31 ",.02)
  1. ;;642.31
  1. ;;9002226.02101,"862,642.32 ",.01)
  1. ;;642.32
  1. ;;9002226.02101,"862,642.32 ",.02)
  1. ;;642.32
  1. ;;9002226.02101,"862,642.41 ",.01)
  1. ;;642.41
  1. ;;9002226.02101,"862,642.41 ",.02)
  1. ;;642.41
  1. ;;9002226.02101,"862,642.42 ",.01)
  1. ;;642.42
  1. ;;9002226.02101,"862,642.42 ",.02)
  1. ;;642.42
  1. ;;9002226.02101,"862,642.51 ",.01)
  1. ;;642.51
  1. ;;9002226.02101,"862,642.51 ",.02)
  1. ;;642.51
  1. ;;9002226.02101,"862,642.52 ",.01)
  1. ;;642.52
  1. ;;9002226.02101,"862,642.52 ",.02)
  1. ;;642.52
  1. ;;9002226.02101,"862,642.61 ",.01)
  1. ;;642.61
  1. ;;9002226.02101,"862,642.61 ",.02)
  1. ;;642.61
  1. ;;9002226.02101,"862,642.62 ",.01)
  1. ;;642.62
  1. ;;9002226.02101,"862,642.62 ",.02)
  1. ;;642.62
  1. ;;9002226.02101,"862,642.71 ",.01)
  1. ;;642.71
  1. ;;9002226.02101,"862,642.71 ",.02)
  1. ;;642.71
  1. ;;9002226.02101,"862,642.72 ",.01)
  1. ;;642.72
  1. ;;9002226.02101,"862,642.72 ",.02)
  1. ;;642.72
  1. ;;9002226.02101,"862,642.91 ",.01)
  1. ;;642.91
  1. ;;9002226.02101,"862,642.91 ",.02)
  1. ;;642.91
  1. ;;9002226.02101,"862,642.92 ",.01)
  1. ;;642.92
  1. ;;9002226.02101,"862,642.92 ",.02)
  1. ;;642.92
  1. ;;9002226.02101,"862,643.21 ",.01)
  1. ;;643.21
  1. ;;9002226.02101,"862,643.21 ",.02)
  1. ;;643.21
  1. ;;9002226.02101,"862,643.81 ",.01)
  1. ;;643.81
  1. ;;9002226.02101,"862,643.81 ",.02)
  1. ;;643.81
  1. ;;9002226.02101,"862,644.21 ",.01)
  1. ;;644.21
  1. ;;9002226.02101,"862,644.21 ",.02)
  1. ;;644.21
  1. ;;9002226.02101,"862,645.11 ",.01)
  1. ;;645.11
  1. ;;9002226.02101,"862,645.11 ",.02)
  1. ;;645.11
  1. ;;9002226.02101,"862,645.21 ",.01)
  1. ;;645.21
  1. ;;9002226.02101,"862,645.21 ",.02)
  1. ;;645.21
  1. ;;9002226.02101,"862,646.01 ",.01)
  1. ;;646.01
  1. ;;9002226.02101,"862,646.01 ",.02)
  1. ;;646.01
  1. ;;9002226.02101,"862,646.11 ",.01)
  1. ;;646.11
  1. ;;9002226.02101,"862,646.11 ",.02)
  1. ;;646.11
  1. ;;9002226.02101,"862,646.12 ",.01)
  1. ;;646.12
  1. ;;9002226.02101,"862,646.12 ",.02)
  1. ;;646.12
  1. ;;9002226.02101,"862,646.21 ",.01)
  1. ;;646.21
  1. ;;9002226.02101,"862,646.21 ",.02)
  1. ;;646.21
  1. ;;9002226.02101,"862,646.22 ",.01)
  1. ;;646.22
  1. ;;9002226.02101,"862,646.22 ",.02)
  1. ;;646.22
  1. ;;9002226.02101,"862,646.31 ",.01)
  1. ;;646.31
  1. ;;9002226.02101,"862,646.31 ",.02)
  1. ;;646.31
  1. ;;9002226.02101,"862,646.41 ",.01)
  1. ;;646.41
  1. ;;9002226.02101,"862,646.41 ",.02)
  1. ;;646.41
  1. ;;9002226.02101,"862,646.42 ",.01)
  1. ;;646.42
  1. ;;9002226.02101,"862,646.42 ",.02)
  1. ;;646.42
  1. ;;9002226.02101,"862,646.71 ",.01)
  1. ;;646.71
  1. ;;9002226.02101,"862,646.71 ",.02)
  1. ;;646.71
  1. ;;9002226.02101,"862,646.91 ",.01)
  1. ;;646.91
  1. ;;9002226.02101,"862,646.91 ",.02)
  1. ;;646.91
  1. ;;9002226.02101,"862,647.01 ",.01)
  1. ;;647.01
  1. ;;9002226.02101,"862,647.01 ",.02)
  1. ;;647.01
  1. ;;9002226.02101,"862,647.02 ",.01)
  1. ;;647.02
  1. ;;9002226.02101,"862,647.02 ",.02)
  1. ;;647.02
  1. ;;9002226.02101,"862,647.11 ",.01)
  1. ;;647.11
  1. ;;9002226.02101,"862,647.11 ",.02)
  1. ;;647.11
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGPM5AAF
  1. D ^BGPM5AAG
  1. Q