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

BGPM5BCQ.m

Go to the documentation of this file.
BGPM5BCQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"1044,54569214602 ",.01)
 ;;54569214602
 ;;9002226.02101,"1044,54569214602 ",.02)
 ;;54569214602
 ;;9002226.02101,"1044,54569272600 ",.01)
 ;;54569272600
 ;;9002226.02101,"1044,54569272600 ",.02)
 ;;54569272600
 ;;9002226.02101,"1044,54569373201 ",.01)
 ;;54569373201
 ;;9002226.02101,"1044,54569373201 ",.02)
 ;;54569373201
 ;;9002226.02101,"1044,54569373202 ",.01)
 ;;54569373202
 ;;9002226.02101,"1044,54569373202 ",.02)
 ;;54569373202
 ;;9002226.02101,"1044,54569373203 ",.01)
 ;;54569373203
 ;;9002226.02101,"1044,54569373203 ",.02)
 ;;54569373203
 ;;9002226.02101,"1044,54569384900 ",.01)
 ;;54569384900
 ;;9002226.02101,"1044,54569384900 ",.02)
 ;;54569384900
 ;;9002226.02101,"1044,54569384901 ",.01)
 ;;54569384901
 ;;9002226.02101,"1044,54569384901 ",.02)
 ;;54569384901
 ;;9002226.02101,"1044,54569389400 ",.01)
 ;;54569389400
 ;;9002226.02101,"1044,54569389400 ",.02)
 ;;54569389400
 ;;9002226.02101,"1044,54569414600 ",.01)
 ;;54569414600
 ;;9002226.02101,"1044,54569414600 ",.02)
 ;;54569414600
 ;;9002226.02101,"1044,54569414601 ",.01)
 ;;54569414601
 ;;9002226.02101,"1044,54569414601 ",.02)
 ;;54569414601
 ;;9002226.02101,"1044,54569529100 ",.01)
 ;;54569529100
 ;;9002226.02101,"1044,54569529100 ",.02)
 ;;54569529100
 ;;9002226.02101,"1044,54569529101 ",.01)
 ;;54569529101
 ;;9002226.02101,"1044,54569529101 ",.02)
 ;;54569529101
 ;;9002226.02101,"1044,54569529103 ",.01)
 ;;54569529103
 ;;9002226.02101,"1044,54569529103 ",.02)
 ;;54569529103
 ;;9002226.02101,"1044,54569531900 ",.01)
 ;;54569531900
 ;;9002226.02101,"1044,54569531900 ",.02)
 ;;54569531900
 ;;9002226.02101,"1044,54569531901 ",.01)
 ;;54569531901
 ;;9002226.02101,"1044,54569531901 ",.02)
 ;;54569531901
 ;;9002226.02101,"1044,54569531902 ",.01)
 ;;54569531902
 ;;9002226.02101,"1044,54569531902 ",.02)
 ;;54569531902
 ;;9002226.02101,"1044,54569532000 ",.01)
 ;;54569532000
 ;;9002226.02101,"1044,54569532000 ",.02)
 ;;54569532000
 ;;9002226.02101,"1044,54569532001 ",.01)
 ;;54569532001
 ;;9002226.02101,"1044,54569532001 ",.02)
 ;;54569532001
 ;;9002226.02101,"1044,54569554100 ",.01)
 ;;54569554100
 ;;9002226.02101,"1044,54569554100 ",.02)
 ;;54569554100
 ;;9002226.02101,"1044,54569554101 ",.01)
 ;;54569554101
 ;;9002226.02101,"1044,54569554101 ",.02)
 ;;54569554101
 ;;9002226.02101,"1044,54569562600 ",.01)
 ;;54569562600
 ;;9002226.02101,"1044,54569562600 ",.02)
 ;;54569562600
 ;;9002226.02101,"1044,54569562601 ",.01)
 ;;54569562601
 ;;9002226.02101,"1044,54569562601 ",.02)
 ;;54569562601
 ;;9002226.02101,"1044,54569562700 ",.01)
 ;;54569562700
 ;;9002226.02101,"1044,54569562700 ",.02)
 ;;54569562700
 ;;9002226.02101,"1044,54569568200 ",.01)
 ;;54569568200
 ;;9002226.02101,"1044,54569568200 ",.02)
 ;;54569568200
 ;;9002226.02101,"1044,54569581800 ",.01)
 ;;54569581800
 ;;9002226.02101,"1044,54569581800 ",.02)
 ;;54569581800
 ;;9002226.02101,"1044,54569581801 ",.01)
 ;;54569581801
 ;;9002226.02101,"1044,54569581801 ",.02)
 ;;54569581801
 ;;9002226.02101,"1044,54569581802 ",.01)
 ;;54569581802
 ;;9002226.02101,"1044,54569581802 ",.02)
 ;;54569581802
 ;;9002226.02101,"1044,54569581900 ",.01)
 ;;54569581900
 ;;9002226.02101,"1044,54569581900 ",.02)
 ;;54569581900
 ;;9002226.02101,"1044,54569581901 ",.01)
 ;;54569581901
 ;;9002226.02101,"1044,54569581901 ",.02)
 ;;54569581901
 ;;9002226.02101,"1044,54569581902 ",.01)
 ;;54569581902
 ;;9002226.02101,"1044,54569581902 ",.02)
 ;;54569581902
 ;;9002226.02101,"1044,54569587200 ",.01)
 ;;54569587200
 ;;9002226.02101,"1044,54569587200 ",.02)
 ;;54569587200
 ;;9002226.02101,"1044,54569589500 ",.01)
 ;;54569589500
 ;;9002226.02101,"1044,54569589500 ",.02)
 ;;54569589500
 ;;9002226.02101,"1044,54569596800 ",.01)
 ;;54569596800
 ;;9002226.02101,"1044,54569596800 ",.02)
 ;;54569596800
 ;;9002226.02101,"1044,54569596802 ",.01)
 ;;54569596802
 ;;9002226.02101,"1044,54569596802 ",.02)
 ;;54569596802
 ;;9002226.02101,"1044,54569619200 ",.01)
 ;;54569619200
 ;;9002226.02101,"1044,54569619200 ",.02)
 ;;54569619200
 ;;9002226.02101,"1044,54569622600 ",.01)
 ;;54569622600
 ;;9002226.02101,"1044,54569622600 ",.02)
 ;;54569622600
 ;;9002226.02101,"1044,54569622700 ",.01)
 ;;54569622700
 ;;9002226.02101,"1044,54569622700 ",.02)
 ;;54569622700
 ;;9002226.02101,"1044,54738091201 ",.01)
 ;;54738091201
 ;;9002226.02101,"1044,54738091201 ",.02)
 ;;54738091201
 ;;9002226.02101,"1044,54738091301 ",.01)
 ;;54738091301
 ;;9002226.02101,"1044,54738091301 ",.02)
 ;;54738091301
 ;;9002226.02101,"1044,54738091401 ",.01)
 ;;54738091401
 ;;9002226.02101,"1044,54738091401 ",.02)
 ;;54738091401
 ;;9002226.02101,"1044,54838054070 ",.01)
 ;;54838054070
 ;;9002226.02101,"1044,54838054070 ",.02)
 ;;54838054070
 ;;9002226.02101,"1044,54868006402 ",.01)
 ;;54868006402
 ;;9002226.02101,"1044,54868006402 ",.02)
 ;;54868006402
 ;;9002226.02101,"1044,54868006403 ",.01)
 ;;54868006403
 ;;9002226.02101,"1044,54868006403 ",.02)
 ;;54868006403
 ;;9002226.02101,"1044,54868006404 ",.01)
 ;;54868006404
 ;;9002226.02101,"1044,54868006404 ",.02)
 ;;54868006404
 ;;9002226.02101,"1044,54868006405 ",.01)
 ;;54868006405
 ;;9002226.02101,"1044,54868006405 ",.02)
 ;;54868006405
 ;;9002226.02101,"1044,54868006406 ",.01)
 ;;54868006406
 ;;9002226.02101,"1044,54868006406 ",.02)
 ;;54868006406
 ;;9002226.02101,"1044,54868006407 ",.01)
 ;;54868006407
 ;;9002226.02101,"1044,54868006407 ",.02)
 ;;54868006407
 ;;9002226.02101,"1044,54868006500 ",.01)
 ;;54868006500
 ;;9002226.02101,"1044,54868006500 ",.02)
 ;;54868006500
 ;;9002226.02101,"1044,54868006502 ",.01)
 ;;54868006502
 ;;9002226.02101,"1044,54868006502 ",.02)
 ;;54868006502
 ;;9002226.02101,"1044,54868006503 ",.01)
 ;;54868006503
 ;;9002226.02101,"1044,54868006503 ",.02)
 ;;54868006503
 ;;9002226.02101,"1044,54868006504 ",.01)
 ;;54868006504
 ;;9002226.02101,"1044,54868006504 ",.02)
 ;;54868006504
 ;;9002226.02101,"1044,54868006505 ",.01)
 ;;54868006505
 ;;9002226.02101,"1044,54868006505 ",.02)
 ;;54868006505
 ;;9002226.02101,"1044,54868006507 ",.01)
 ;;54868006507
 ;;9002226.02101,"1044,54868006507 ",.02)
 ;;54868006507
 ;;9002226.02101,"1044,54868006508 ",.01)
 ;;54868006508
 ;;9002226.02101,"1044,54868006508 ",.02)
 ;;54868006508
 ;;9002226.02101,"1044,54868006509 ",.01)
 ;;54868006509
 ;;9002226.02101,"1044,54868006509 ",.02)
 ;;54868006509
 ;;9002226.02101,"1044,54868006600 ",.01)
 ;;54868006600
 ;;9002226.02101,"1044,54868006600 ",.02)
 ;;54868006600
 ;;9002226.02101,"1044,54868006602 ",.01)
 ;;54868006602
 ;;9002226.02101,"1044,54868006602 ",.02)
 ;;54868006602
 ;;9002226.02101,"1044,54868006603 ",.01)
 ;;54868006603
 ;;9002226.02101,"1044,54868006603 ",.02)
 ;;54868006603
 ;;9002226.02101,"1044,54868006605 ",.01)
 ;;54868006605
 ;;9002226.02101,"1044,54868006605 ",.02)
 ;;54868006605
 ;;9002226.02101,"1044,54868006606 ",.01)
 ;;54868006606
 ;;9002226.02101,"1044,54868006606 ",.02)
 ;;54868006606
 ;;9002226.02101,"1044,54868006607 ",.01)
 ;;54868006607
 ;;9002226.02101,"1044,54868006607 ",.02)
 ;;54868006607
 ;;9002226.02101,"1044,54868012200 ",.01)
 ;;54868012200
 ;;9002226.02101,"1044,54868012200 ",.02)
 ;;54868012200
 ;;9002226.02101,"1044,54868012201 ",.01)
 ;;54868012201
 ;;9002226.02101,"1044,54868012201 ",.02)
 ;;54868012201
 ;;9002226.02101,"1044,54868012202 ",.01)
 ;;54868012202
 ;;9002226.02101,"1044,54868012202 ",.02)
 ;;54868012202
 ;;9002226.02101,"1044,54868012203 ",.01)
 ;;54868012203
 ;;9002226.02101,"1044,54868012203 ",.02)
 ;;54868012203
 ;;9002226.02101,"1044,54868012204 ",.01)
 ;;54868012204
 ;;9002226.02101,"1044,54868012204 ",.02)
 ;;54868012204
 ;;9002226.02101,"1044,54868012205 ",.01)
 ;;54868012205
 ;;9002226.02101,"1044,54868012205 ",.02)
 ;;54868012205
 ;;9002226.02101,"1044,54868012206 ",.01)
 ;;54868012206
 ;;9002226.02101,"1044,54868012206 ",.02)
 ;;54868012206
 ;;9002226.02101,"1044,54868012207 ",.01)
 ;;54868012207
 ;;9002226.02101,"1044,54868012207 ",.02)
 ;;54868012207
 ;;9002226.02101,"1044,54868012402 ",.01)
 ;;54868012402
 ;;9002226.02101,"1044,54868012402 ",.02)
 ;;54868012402
 ;;9002226.02101,"1044,54868012403 ",.01)
 ;;54868012403
 ;;9002226.02101,"1044,54868012403 ",.02)
 ;;54868012403
 ;;9002226.02101,"1044,54868012502 ",.01)
 ;;54868012502
 ;;9002226.02101,"1044,54868012502 ",.02)
 ;;54868012502
 ;;9002226.02101,"1044,54868012503 ",.01)
 ;;54868012503
 ;;9002226.02101,"1044,54868012503 ",.02)
 ;;54868012503
 ;;9002226.02101,"1044,54868012504 ",.01)
 ;;54868012504
 ;;9002226.02101,"1044,54868012504 ",.02)
 ;;54868012504
 ;;9002226.02101,"1044,54868042600 ",.01)
 ;;54868042600
 ;;9002226.02101,"1044,54868042600 ",.02)
 ;;54868042600
 ;;9002226.02101,"1044,54868122300 ",.01)
 ;;54868122300
 ;;9002226.02101,"1044,54868122300 ",.02)
 ;;54868122300
 ;;9002226.02101,"1044,54868122301 ",.01)
 ;;54868122301
 ;;9002226.02101,"1044,54868122301 ",.02)
 ;;54868122301
 ;;9002226.02101,"1044,54868122302 ",.01)
 ;;54868122302
 ;;9002226.02101,"1044,54868122302 ",.02)
 ;;54868122302
 ;;9002226.02101,"1044,54868122303 ",.01)
 ;;54868122303
 ;;9002226.02101,"1044,54868122303 ",.02)
 ;;54868122303
 ;;9002226.02101,"1044,54868122304 ",.01)
 ;;54868122304
 ;;9002226.02101,"1044,54868122304 ",.02)
 ;;54868122304
 ;;9002226.02101,"1044,54868123900 ",.01)
 ;;54868123900
 ;;9002226.02101,"1044,54868123900 ",.02)
 ;;54868123900
 ;;9002226.02101,"1044,54868123901 ",.01)
 ;;54868123901
 ;;9002226.02101,"1044,54868123901 ",.02)
 ;;54868123901
 ;;9002226.02101,"1044,54868123902 ",.01)
 ;;54868123902
 ;;9002226.02101,"1044,54868123902 ",.02)
 ;;54868123902
 ;;9002226.02101,"1044,54868123903 ",.01)
 ;;54868123903
 ;;9002226.02101,"1044,54868123903 ",.02)
 ;;54868123903
 ;;9002226.02101,"1044,54868123904 ",.01)
 ;;54868123904
 ;;9002226.02101,"1044,54868123904 ",.02)
 ;;54868123904
 ;;9002226.02101,"1044,54868134400 ",.01)
 ;;54868134400
 ;;9002226.02101,"1044,54868134400 ",.02)
 ;;54868134400
 ;;9002226.02101,"1044,54868134401 ",.01)
 ;;54868134401
 ;;9002226.02101,"1044,54868134401 ",.02)
 ;;54868134401
 ;;9002226.02101,"1044,54868134402 ",.01)
 ;;54868134402
 ;;9002226.02101,"1044,54868134402 ",.02)
 ;;54868134402
 ;;9002226.02101,"1044,54868134403 ",.01)
 ;;54868134403
 ;;9002226.02101,"1044,54868134403 ",.02)
 ;;54868134403
 ;;9002226.02101,"1044,54868134404 ",.01)
 ;;54868134404
 ;;9002226.02101,"1044,54868134404 ",.02)
 ;;54868134404
 ;;9002226.02101,"1044,54868153400 ",.01)
 ;;54868153400
 ;;9002226.02101,"1044,54868153400 ",.02)
 ;;54868153400
 ;;9002226.02101,"1044,54868153401 ",.01)
 ;;54868153401
 ;;9002226.02101,"1044,54868153401 ",.02)
 ;;54868153401
 ;;9002226.02101,"1044,54868181900 ",.01)
 ;;54868181900
 ;;9002226.02101,"1044,54868181900 ",.02)
 ;;54868181900
 ;;9002226.02101,"1044,54868195900 ",.01)
 ;;54868195900
 ;;9002226.02101,"1044,54868195900 ",.02)
 ;;54868195900
 ;;9002226.02101,"1044,54868195901 ",.01)
 ;;54868195901
 ;;9002226.02101,"1044,54868195901 ",.02)
 ;;54868195901
 ;;9002226.02101,"1044,54868195902 ",.01)
 ;;54868195902
 ;;9002226.02101,"1044,54868195902 ",.02)
 ;;54868195902
 ;;9002226.02101,"1044,54868195903 ",.01)
 ;;54868195903
 ;;9002226.02101,"1044,54868195903 ",.02)
 ;;54868195903
 ;;9002226.02101,"1044,54868195904 ",.01)
 ;;54868195904
 ;;9002226.02101,"1044,54868195904 ",.02)
 ;;54868195904
 ;;9002226.02101,"1044,54868220600 ",.01)
 ;;54868220600
 ;;9002226.02101,"1044,54868220600 ",.02)
 ;;54868220600
 ;;9002226.02101,"1044,54868220601 ",.01)
 ;;54868220601
 ;;9002226.02101,"1044,54868220601 ",.02)
 ;;54868220601
 ;;9002226.02101,"1044,54868222100 ",.01)
 ;;54868222100