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