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

BGPM5AMV.m

Go to the documentation of this file.
  1. BGPM5AMV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 22, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;;BGPMU PNEUMO ENC EM
  1. ;
  1. ; This routine loads Taxonomy BGPMU PNEUMO ENC EM
  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,"99201 ")
  1. ;;1
  1. ;;21,"99202 ")
  1. ;;2
  1. ;;21,"99203 ")
  1. ;;3
  1. ;;21,"99204 ")
  1. ;;4
  1. ;;21,"99205 ")
  1. ;;5
  1. ;;21,"99211 ")
  1. ;;6
  1. ;;21,"99212 ")
  1. ;;7
  1. ;;21,"99213 ")
  1. ;;8
  1. ;;21,"99214 ")
  1. ;;9
  1. ;;21,"99215 ")
  1. ;;10
  1. ;;21,"99217 ")
  1. ;;11
  1. ;;21,"99218 ")
  1. ;;12
  1. ;;21,"99219 ")
  1. ;;13
  1. ;;21,"99220 ")
  1. ;;14
  1. ;;21,"99241 ")
  1. ;;15
  1. ;;21,"99242 ")
  1. ;;16
  1. ;;21,"99243 ")
  1. ;;17
  1. ;;21,"99244 ")
  1. ;;18
  1. ;;21,"99245 ")
  1. ;;19
  1. ;;21,"99341 ")
  1. ;;20
  1. ;;21,"99342 ")
  1. ;;21
  1. ;;21,"99343 ")
  1. ;;22
  1. ;;21,"99344 ")
  1. ;;23
  1. ;;21,"99345 ")
  1. ;;24
  1. ;;21,"99347 ")
  1. ;;25
  1. ;;21,"99384 ")
  1. ;;26
  1. ;;21,"99385 ")
  1. ;;27
  1. ;;21,"99386 ")
  1. ;;28
  1. ;;21,"99387 ")
  1. ;;29
  1. ;;21,"99394 ")
  1. ;;30
  1. ;;21,"99395 ")
  1. ;;31
  1. ;;21,"99396 ")
  1. ;;32
  1. ;;21,"99397 ")
  1. ;;33
  1. ;;21,"99401 ")
  1. ;;34
  1. ;;21,"99402 ")
  1. ;;35
  1. ;;21,"99403 ")
  1. ;;36
  1. ;;21,"99404 ")
  1. ;;37
  1. ;;21,"99411 ")
  1. ;;38
  1. ;;21,"99412 ")
  1. ;;39
  1. ;;21,"99420 ")
  1. ;;40
  1. ;;21,"99429 ")
  1. ;;41
  1. ;;21,"99455 ")
  1. ;;42
  1. ;;21,"99456 ")
  1. ;;43
  1. ;;9002226,910,.01)
  1. ;;BGPMU PNEUMO ENC EM
  1. ;;9002226,910,.02)
  1. ;;MU Pneumonia vacc. E&M codes
  1. ;;9002226,910,.04)
  1. ;;@
  1. ;;9002226,910,.06)
  1. ;;@
  1. ;;9002226,910,.08)
  1. ;;@
  1. ;;9002226,910,.09)
  1. ;;@
  1. ;;9002226,910,.11)
  1. ;;@
  1. ;;9002226,910,.12)
  1. ;;@
  1. ;;9002226,910,.13)
  1. ;;@
  1. ;;9002226,910,.14)
  1. ;;@
  1. ;;9002226,910,.15)
  1. ;;81
  1. ;;9002226,910,.16)
  1. ;;@
  1. ;;9002226,910,.17)
  1. ;;@
  1. ;;9002226,910,3101)
  1. ;;@
  1. ;;9002226.02101,"910,99201 ",.01)
  1. ;;99201
  1. ;;9002226.02101,"910,99201 ",.02)
  1. ;;99201
  1. ;;9002226.02101,"910,99202 ",.01)
  1. ;;99202
  1. ;;9002226.02101,"910,99202 ",.02)
  1. ;;99202
  1. ;;9002226.02101,"910,99203 ",.01)
  1. ;;99203
  1. ;;9002226.02101,"910,99203 ",.02)
  1. ;;99203
  1. ;;9002226.02101,"910,99204 ",.01)
  1. ;;99204
  1. ;;9002226.02101,"910,99204 ",.02)
  1. ;;99204
  1. ;;9002226.02101,"910,99205 ",.01)
  1. ;;99205
  1. ;;9002226.02101,"910,99205 ",.02)
  1. ;;99205
  1. ;;9002226.02101,"910,99211 ",.01)
  1. ;;99211
  1. ;;9002226.02101,"910,99211 ",.02)
  1. ;;99211
  1. ;;9002226.02101,"910,99212 ",.01)
  1. ;;99212
  1. ;;9002226.02101,"910,99212 ",.02)
  1. ;;99212
  1. ;;9002226.02101,"910,99213 ",.01)
  1. ;;99213
  1. ;;9002226.02101,"910,99213 ",.02)
  1. ;;99213
  1. ;;9002226.02101,"910,99214 ",.01)
  1. ;;99214
  1. ;;9002226.02101,"910,99214 ",.02)
  1. ;;99214
  1. ;;9002226.02101,"910,99215 ",.01)
  1. ;;99215
  1. ;;9002226.02101,"910,99215 ",.02)
  1. ;;99215
  1. ;;9002226.02101,"910,99217 ",.01)
  1. ;;99217
  1. ;;9002226.02101,"910,99217 ",.02)
  1. ;;99217
  1. ;;9002226.02101,"910,99218 ",.01)
  1. ;;99218
  1. ;;9002226.02101,"910,99218 ",.02)
  1. ;;99218
  1. ;;9002226.02101,"910,99219 ",.01)
  1. ;;99219
  1. ;;9002226.02101,"910,99219 ",.02)
  1. ;;99219
  1. ;;9002226.02101,"910,99220 ",.01)
  1. ;;99220
  1. ;;9002226.02101,"910,99220 ",.02)
  1. ;;99220
  1. ;;9002226.02101,"910,99241 ",.01)
  1. ;;99241
  1. ;;9002226.02101,"910,99241 ",.02)
  1. ;;99241
  1. ;;9002226.02101,"910,99242 ",.01)
  1. ;;99242
  1. ;;9002226.02101,"910,99242 ",.02)
  1. ;;99242
  1. ;;9002226.02101,"910,99243 ",.01)
  1. ;;99243
  1. ;;9002226.02101,"910,99243 ",.02)
  1. ;;99243
  1. ;;9002226.02101,"910,99244 ",.01)
  1. ;;99244
  1. ;;9002226.02101,"910,99244 ",.02)
  1. ;;99244
  1. ;;9002226.02101,"910,99245 ",.01)
  1. ;;99245
  1. ;;9002226.02101,"910,99245 ",.02)
  1. ;;99245
  1. ;;9002226.02101,"910,99341 ",.01)
  1. ;;99341
  1. ;;9002226.02101,"910,99341 ",.02)
  1. ;;99341
  1. ;;9002226.02101,"910,99342 ",.01)
  1. ;;99342
  1. ;;9002226.02101,"910,99342 ",.02)
  1. ;;99342
  1. ;;9002226.02101,"910,99343 ",.01)
  1. ;;99343
  1. ;;9002226.02101,"910,99343 ",.02)
  1. ;;99343
  1. ;;9002226.02101,"910,99344 ",.01)
  1. ;;99344
  1. ;;9002226.02101,"910,99344 ",.02)
  1. ;;99344
  1. ;;9002226.02101,"910,99345 ",.01)
  1. ;;99345
  1. ;;9002226.02101,"910,99345 ",.02)
  1. ;;99345
  1. ;;9002226.02101,"910,99347 ",.01)
  1. ;;99347
  1. ;;9002226.02101,"910,99347 ",.02)
  1. ;;99350
  1. ;;9002226.02101,"910,99384 ",.01)
  1. ;;99384
  1. ;;9002226.02101,"910,99384 ",.02)
  1. ;;99384
  1. ;;9002226.02101,"910,99385 ",.01)
  1. ;;99385
  1. ;;9002226.02101,"910,99385 ",.02)
  1. ;;99385
  1. ;;9002226.02101,"910,99386 ",.01)
  1. ;;99386
  1. ;;9002226.02101,"910,99386 ",.02)
  1. ;;99386
  1. ;;9002226.02101,"910,99387 ",.01)
  1. ;;99387
  1. ;;9002226.02101,"910,99387 ",.02)
  1. ;;99387
  1. ;;9002226.02101,"910,99394 ",.01)
  1. ;;99394
  1. ;;9002226.02101,"910,99394 ",.02)
  1. ;;99394
  1. ;;9002226.02101,"910,99395 ",.01)
  1. ;;99395
  1. ;;9002226.02101,"910,99395 ",.02)
  1. ;;99395
  1. ;;9002226.02101,"910,99396 ",.01)
  1. ;;99396
  1. ;;9002226.02101,"910,99396 ",.02)
  1. ;;99396
  1. ;;9002226.02101,"910,99397 ",.01)
  1. ;;99397
  1. ;;9002226.02101,"910,99397 ",.02)
  1. ;;99397
  1. ;;9002226.02101,"910,99401 ",.01)
  1. ;;99401
  1. ;;9002226.02101,"910,99401 ",.02)
  1. ;;99401
  1. ;;9002226.02101,"910,99402 ",.01)
  1. ;;99402
  1. ;;9002226.02101,"910,99402 ",.02)
  1. ;;99402
  1. ;;9002226.02101,"910,99403 ",.01)
  1. ;;99403
  1. ;;9002226.02101,"910,99403 ",.02)
  1. ;;99403
  1. ;;9002226.02101,"910,99404 ",.01)
  1. ;;99404
  1. ;;9002226.02101,"910,99404 ",.02)
  1. ;;99404
  1. ;;9002226.02101,"910,99411 ",.01)
  1. ;;99411
  1. ;;9002226.02101,"910,99411 ",.02)
  1. ;;99411
  1. ;;9002226.02101,"910,99412 ",.01)
  1. ;;99412
  1. ;;9002226.02101,"910,99412 ",.02)
  1. ;;99412
  1. ;;9002226.02101,"910,99420 ",.01)
  1. ;;99420
  1. ;;9002226.02101,"910,99420 ",.02)
  1. ;;99420
  1. ;;9002226.02101,"910,99429 ",.01)
  1. ;;99429
  1. ;;9002226.02101,"910,99429 ",.02)
  1. ;;99429
  1. ;;9002226.02101,"910,99455 ",.01)
  1. ;;99455
  1. ;;9002226.02101,"910,99455 ",.02)
  1. ;;99455
  1. ;;9002226.02101,"910,99456 ",.01)
  1. ;;99456
  1. ;;9002226.02101,"910,99456 ",.02)
  1. ;;99456
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. Q