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

APCL29UB.m

Go to the documentation of this file.
  1. APCL29UB ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 12, 2013;
  1. ;;3.0;IHS PCC REPORTS;**29**;FEB 05, 1997;Build 35
  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. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"655.71 ")
  1. ;;186
  1. ;;21,"655.81 ")
  1. ;;187
  1. ;;21,"655.91 ")
  1. ;;188
  1. ;;21,"656.01 ")
  1. ;;189
  1. ;;21,"656.11 ")
  1. ;;190
  1. ;;21,"656.21 ")
  1. ;;191
  1. ;;21,"656.31 ")
  1. ;;192
  1. ;;21,"656.41 ")
  1. ;;193
  1. ;;21,"656.51 ")
  1. ;;194
  1. ;;21,"656.61 ")
  1. ;;195
  1. ;;21,"656.71 ")
  1. ;;196
  1. ;;21,"656.81 ")
  1. ;;197
  1. ;;21,"656.91 ")
  1. ;;198
  1. ;;21,"657.01 ")
  1. ;;199
  1. ;;21,"658.01 ")
  1. ;;200
  1. ;;21,"658.11 ")
  1. ;;201
  1. ;;21,"658.21 ")
  1. ;;202
  1. ;;21,"658.31 ")
  1. ;;203
  1. ;;21,"658.41 ")
  1. ;;204
  1. ;;21,"658.81 ")
  1. ;;205
  1. ;;21,"658.91 ")
  1. ;;206
  1. ;;21,"659.01 ")
  1. ;;207
  1. ;;21,"659.11 ")
  1. ;;208
  1. ;;21,"659.21 ")
  1. ;;209
  1. ;;21,"659.31 ")
  1. ;;210
  1. ;;21,"659.41 ")
  1. ;;211
  1. ;;21,"659.51 ")
  1. ;;212
  1. ;;21,"659.61 ")
  1. ;;213
  1. ;;21,"659.71 ")
  1. ;;214
  1. ;;21,"659.81 ")
  1. ;;215
  1. ;;21,"659.91 ")
  1. ;;216
  1. ;;21,"660.01 ")
  1. ;;217
  1. ;;21,"660.11 ")
  1. ;;218
  1. ;;21,"660.21 ")
  1. ;;219
  1. ;;21,"660.31 ")
  1. ;;220
  1. ;;21,"660.41 ")
  1. ;;221
  1. ;;21,"660.51 ")
  1. ;;222
  1. ;;21,"660.61 ")
  1. ;;223
  1. ;;21,"660.71 ")
  1. ;;224
  1. ;;21,"660.81 ")
  1. ;;225
  1. ;;21,"660.91 ")
  1. ;;226
  1. ;;21,"661.01 ")
  1. ;;227
  1. ;;21,"661.11 ")
  1. ;;228
  1. ;;21,"661.21 ")
  1. ;;229
  1. ;;21,"661.31 ")
  1. ;;230
  1. ;;21,"661.41 ")
  1. ;;231
  1. ;;21,"661.91 ")
  1. ;;232
  1. ;;21,"662.01 ")
  1. ;;233
  1. ;;21,"662.11 ")
  1. ;;234
  1. ;;21,"662.21 ")
  1. ;;235
  1. ;;21,"662.31 ")
  1. ;;236
  1. ;;21,"663.01 ")
  1. ;;237
  1. ;;21,"663.11 ")
  1. ;;238
  1. ;;21,"663.21 ")
  1. ;;239
  1. ;;21,"663.31 ")
  1. ;;240
  1. ;;21,"663.41 ")
  1. ;;241
  1. ;;21,"663.51 ")
  1. ;;242
  1. ;;21,"663.61 ")
  1. ;;243
  1. ;;21,"663.81 ")
  1. ;;244
  1. ;;21,"663.91 ")
  1. ;;245
  1. ;;21,"664.00 ")
  1. ;;246
  1. ;;21,"665.01 ")
  1. ;;247
  1. ;;21,"665.11 ")
  1. ;;248
  1. ;;21,"665.22 ")
  1. ;;249
  1. ;;21,"665.24 ")
  1. ;;250
  1. ;;21,"665.31 ")
  1. ;;251
  1. ;;21,"665.34 ")
  1. ;;252
  1. ;;21,"665.41 ")
  1. ;;253
  1. ;;21,"665.44 ")
  1. ;;254
  1. ;;21,"665.51 ")
  1. ;;255
  1. ;;21,"665.54 ")
  1. ;;256
  1. ;;21,"665.61 ")
  1. ;;257
  1. ;;21,"665.64 ")
  1. ;;258
  1. ;;21,"665.71 ")
  1. ;;259
  1. ;;21,"665.72 ")
  1. ;;260
  1. ;;21,"665.74 ")
  1. ;;261
  1. ;;21,"665.81 ")
  1. ;;262
  1. ;;21,"665.82 ")
  1. ;;263
  1. ;;21,"665.84 ")
  1. ;;264
  1. ;;21,"665.91 ")
  1. ;;265
  1. ;;21,"665.92 ")
  1. ;;266
  1. ;;21,"665.94 ")
  1. ;;267
  1. ;;21,"666.00 ")
  1. ;;268
  1. ;;21,"667.00 ")
  1. ;;269
  1. ;;21,"668.00 ")
  1. ;;270
  1. ;;21,"668.04 ")
  1. ;;271
  1. ;;21,"668.14 ")
  1. ;;272
  1. ;;21,"668.24 ")
  1. ;;273
  1. ;;21,"668.84 ")
  1. ;;274
  1. ;;21,"668.94 ")
  1. ;;275
  1. ;;21,"669.00 ")
  1. ;;276
  1. ;;21,"669.04 ")
  1. ;;277
  1. ;;21,"669.14 ")
  1. ;;278
  1. ;;21,"669.24 ")
  1. ;;279
  1. ;;21,"669.44 ")
  1. ;;280
  1. ;;21,"669.84 ")
  1. ;;281
  1. ;;21,"669.94 ")
  1. ;;282
  1. ;;21,"670.00 ")
  1. ;;283
  1. ;;21,"671.01 ")
  1. ;;284
  1. ;;21,"671.02 ")
  1. ;;285
  1. ;;21,"671.04 ")
  1. ;;286
  1. ;;21,"671.11 ")
  1. ;;287
  1. ;;21,"671.12 ")
  1. ;;288
  1. ;;21,"671.14 ")
  1. ;;289
  1. ;;21,"671.21 ")
  1. ;;290
  1. ;;21,"671.22 ")
  1. ;;291
  1. ;;21,"671.24 ")
  1. ;;292
  1. ;;21,"671.31 ")
  1. ;;293
  1. ;;21,"671.42 ")
  1. ;;294
  1. ;;21,"671.44 ")
  1. ;;295
  1. ;;21,"671.51 ")
  1. ;;296
  1. ;;21,"671.52 ")
  1. ;;297
  1. ;;21,"671.54 ")
  1. ;;298
  1. ;;21,"671.81 ")
  1. ;;299
  1. ;;21,"671.82 ")
  1. ;;300
  1. ;;21,"671.84 ")
  1. ;;301
  1. ;;21,"671.91 ")
  1. ;;302
  1. ;;21,"671.92 ")
  1. ;;303
  1. ;;21,"671.94 ")
  1. ;;304
  1. ;;21,"673.01 ")
  1. ;;305
  1. ;;21,"673.02 ")
  1. ;;306
  1. ;;21,"673.04 ")
  1. ;;307
  1. ;;21,"673.11 ")
  1. ;;308
  1. ;;21,"673.12 ")
  1. ;;309
  1. ;;21,"673.14 ")
  1. ;;310
  1. ;;21,"673.21 ")
  1. ;;311
  1. ;;21,"673.22 ")
  1. ;;312
  1. ;;21,"673.24 ")
  1. ;;313
  1. ;;21,"673.31 ")
  1. ;;314
  1. ;;21,"673.32 ")
  1. ;;315
  1. ;;21,"673.34 ")
  1. ;;316
  1. ;;21,"673.81 ")
  1. ;;317
  1. ;;21,"673.82 ")
  1. ;;318
  1. ;;21,"673.84 ")
  1. ;;319
  1. ;;21,"674.04 ")
  1. ;;320
  1. ;;21,"674.54 ")
  1. ;;321
  1. ;;21,"V24.0 ")
  1. ;;322
  1. ;;21,"V27.0 ")
  1. ;;323
  1. ;;9002226,1322,.01)
  1. ;;SURVEILLANCE H1N1 DELIVERY DX
  1. ;;9002226,1322,.02)
  1. ;;@
  1. ;;9002226,1322,.04)
  1. ;;n
  1. ;;9002226,1322,.06)
  1. ;;@
  1. ;;9002226,1322,.08)
  1. ;;0
  1. ;;9002226,1322,.09)
  1. ;;3090824
  1. ;;9002226,1322,.11)
  1. ;;@
  1. ;;9002226,1322,.12)
  1. ;;31
  1. ;;9002226,1322,.13)
  1. ;;1
  1. ;;9002226,1322,.14)
  1. ;;@
  1. ;;9002226,1322,.15)
  1. ;;80
  1. ;;9002226,1322,.16)
  1. ;;@
  1. ;;9002226,1322,.17)
  1. ;;@
  1. ;;9002226,1322,3101)
  1. ;;@
  1. ;;9002226.02101,"1322,640.01 ",.01)
  1. ;;640.01
  1. ;;9002226.02101,"1322,640.01 ",.02)
  1. ;;640.01
  1. ;;9002226.02101,"1322,640.81 ",.01)
  1. ;;640.81
  1. ;;9002226.02101,"1322,640.81 ",.02)
  1. ;;640.81
  1. ;;9002226.02101,"1322,640.91 ",.01)
  1. ;;640.91
  1. ;;9002226.02101,"1322,640.91 ",.02)
  1. ;;640.91
  1. ;;9002226.02101,"1322,641.01 ",.01)
  1. ;;641.01
  1. ;;9002226.02101,"1322,641.01 ",.02)
  1. ;;641.01
  1. ;;9002226.02101,"1322,641.11 ",.01)
  1. ;;641.11
  1. ;;9002226.02101,"1322,641.11 ",.02)
  1. ;;641.11
  1. ;;9002226.02101,"1322,641.21 ",.01)
  1. ;;641.21
  1. ;;9002226.02101,"1322,641.21 ",.02)
  1. ;;641.21
  1. ;;9002226.02101,"1322,641.31 ",.01)
  1. ;;641.31
  1. ;;9002226.02101,"1322,641.31 ",.02)
  1. ;;641.31
  1. ;;9002226.02101,"1322,641.81 ",.01)
  1. ;;641.81
  1. ;;9002226.02101,"1322,641.81 ",.02)
  1. ;;641.81
  1. ;;9002226.02101,"1322,641.91 ",.01)
  1. ;;641.91
  1. ;;9002226.02101,"1322,641.91 ",.02)
  1. ;;641.91
  1. ;;9002226.02101,"1322,642.01 ",.01)
  1. ;;642.01