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

BGP31R14.m

Go to the documentation of this file.
BGP31R14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"806,54868-3114-01 ",.02)
 ;;54868-3114-01
 ;;9002226.02101,"806,54868-3247-00 ",.01)
 ;;54868-3247-00
 ;;9002226.02101,"806,54868-3247-00 ",.02)
 ;;54868-3247-00
 ;;9002226.02101,"806,54868-3247-01 ",.01)
 ;;54868-3247-01
 ;;9002226.02101,"806,54868-3247-01 ",.02)
 ;;54868-3247-01
 ;;9002226.02101,"806,54868-3265-00 ",.01)
 ;;54868-3265-00
 ;;9002226.02101,"806,54868-3265-00 ",.02)
 ;;54868-3265-00
 ;;9002226.02101,"806,54868-3265-01 ",.01)
 ;;54868-3265-01
 ;;9002226.02101,"806,54868-3265-01 ",.02)
 ;;54868-3265-01
 ;;9002226.02101,"806,54868-3265-02 ",.01)
 ;;54868-3265-02
 ;;9002226.02101,"806,54868-3265-02 ",.02)
 ;;54868-3265-02
 ;;9002226.02101,"806,54868-3265-03 ",.01)
 ;;54868-3265-03
 ;;9002226.02101,"806,54868-3265-03 ",.02)
 ;;54868-3265-03
 ;;9002226.02101,"806,54868-3265-04 ",.01)
 ;;54868-3265-04
 ;;9002226.02101,"806,54868-3265-04 ",.02)
 ;;54868-3265-04
 ;;9002226.02101,"806,54868-3265-05 ",.01)
 ;;54868-3265-05
 ;;9002226.02101,"806,54868-3265-05 ",.02)
 ;;54868-3265-05
 ;;9002226.02101,"806,54868-3265-06 ",.01)
 ;;54868-3265-06
 ;;9002226.02101,"806,54868-3265-06 ",.02)
 ;;54868-3265-06
 ;;9002226.02101,"806,54868-3266-00 ",.01)
 ;;54868-3266-00
 ;;9002226.02101,"806,54868-3266-00 ",.02)
 ;;54868-3266-00
 ;;9002226.02101,"806,54868-3266-01 ",.01)
 ;;54868-3266-01
 ;;9002226.02101,"806,54868-3266-01 ",.02)
 ;;54868-3266-01
 ;;9002226.02101,"806,54868-3266-02 ",.01)
 ;;54868-3266-02
 ;;9002226.02101,"806,54868-3266-02 ",.02)
 ;;54868-3266-02
 ;;9002226.02101,"806,54868-3266-03 ",.01)
 ;;54868-3266-03
 ;;9002226.02101,"806,54868-3266-03 ",.02)
 ;;54868-3266-03
 ;;9002226.02101,"806,54868-3266-04 ",.01)
 ;;54868-3266-04
 ;;9002226.02101,"806,54868-3266-04 ",.02)
 ;;54868-3266-04
 ;;9002226.02101,"806,54868-3426-00 ",.01)
 ;;54868-3426-00
 ;;9002226.02101,"806,54868-3426-00 ",.02)
 ;;54868-3426-00
 ;;9002226.02101,"806,54868-3426-01 ",.01)
 ;;54868-3426-01
 ;;9002226.02101,"806,54868-3426-01 ",.02)
 ;;54868-3426-01
 ;;9002226.02101,"806,54868-3564-00 ",.01)
 ;;54868-3564-00
 ;;9002226.02101,"806,54868-3564-00 ",.02)
 ;;54868-3564-00
 ;;9002226.02101,"806,54868-3564-01 ",.01)
 ;;54868-3564-01
 ;;9002226.02101,"806,54868-3564-01 ",.02)
 ;;54868-3564-01
 ;;9002226.02101,"806,54868-3564-02 ",.01)
 ;;54868-3564-02
 ;;9002226.02101,"806,54868-3564-02 ",.02)
 ;;54868-3564-02
 ;;9002226.02101,"806,54868-3565-00 ",.01)
 ;;54868-3565-00
 ;;9002226.02101,"806,54868-3565-00 ",.02)
 ;;54868-3565-00
 ;;9002226.02101,"806,54868-3565-01 ",.01)
 ;;54868-3565-01
 ;;9002226.02101,"806,54868-3565-01 ",.02)
 ;;54868-3565-01
 ;;9002226.02101,"806,54868-3565-02 ",.01)
 ;;54868-3565-02
 ;;9002226.02101,"806,54868-3565-02 ",.02)
 ;;54868-3565-02
 ;;9002226.02101,"806,54868-3653-00 ",.01)
 ;;54868-3653-00
 ;;9002226.02101,"806,54868-3653-00 ",.02)
 ;;54868-3653-00
 ;;9002226.02101,"806,54868-3672-00 ",.01)
 ;;54868-3672-00
 ;;9002226.02101,"806,54868-3672-00 ",.02)
 ;;54868-3672-00
 ;;9002226.02101,"806,54868-3672-01 ",.01)
 ;;54868-3672-01
 ;;9002226.02101,"806,54868-3672-01 ",.02)
 ;;54868-3672-01
 ;;9002226.02101,"806,54868-3673-00 ",.01)
 ;;54868-3673-00
 ;;9002226.02101,"806,54868-3673-00 ",.02)
 ;;54868-3673-00
 ;;9002226.02101,"806,54868-3673-01 ",.01)
 ;;54868-3673-01
 ;;9002226.02101,"806,54868-3673-01 ",.02)
 ;;54868-3673-01
 ;;9002226.02101,"806,54868-3711-00 ",.01)
 ;;54868-3711-00
 ;;9002226.02101,"806,54868-3711-00 ",.02)
 ;;54868-3711-00
 ;;9002226.02101,"806,54868-3711-01 ",.01)
 ;;54868-3711-01
 ;;9002226.02101,"806,54868-3711-01 ",.02)
 ;;54868-3711-01
 ;;9002226.02101,"806,54868-3795-00 ",.01)
 ;;54868-3795-00
 ;;9002226.02101,"806,54868-3795-00 ",.02)
 ;;54868-3795-00
 ;;9002226.02101,"806,54868-3796-00 ",.01)
 ;;54868-3796-00
 ;;9002226.02101,"806,54868-3796-00 ",.02)
 ;;54868-3796-00
 ;;9002226.02101,"806,54868-3797-00 ",.01)
 ;;54868-3797-00
 ;;9002226.02101,"806,54868-3797-00 ",.02)
 ;;54868-3797-00
 ;;9002226.02101,"806,54868-3799-00 ",.01)
 ;;54868-3799-00
 ;;9002226.02101,"806,54868-3799-00 ",.02)
 ;;54868-3799-00
 ;;9002226.02101,"806,54868-3800-00 ",.01)
 ;;54868-3800-00
 ;;9002226.02101,"806,54868-3800-00 ",.02)
 ;;54868-3800-00
 ;;9002226.02101,"806,54868-4030-00 ",.01)
 ;;54868-4030-00
 ;;9002226.02101,"806,54868-4030-00 ",.02)
 ;;54868-4030-00
 ;;9002226.02101,"806,54868-4030-01 ",.01)
 ;;54868-4030-01
 ;;9002226.02101,"806,54868-4030-01 ",.02)
 ;;54868-4030-01
 ;;9002226.02101,"806,54868-4030-02 ",.01)
 ;;54868-4030-02
 ;;9002226.02101,"806,54868-4030-02 ",.02)
 ;;54868-4030-02
 ;;9002226.02101,"806,54868-4031-00 ",.01)
 ;;54868-4031-00
 ;;9002226.02101,"806,54868-4031-00 ",.02)
 ;;54868-4031-00
 ;;9002226.02101,"806,54868-4031-01 ",.01)
 ;;54868-4031-01
 ;;9002226.02101,"806,54868-4031-01 ",.02)
 ;;54868-4031-01
 ;;9002226.02101,"806,54868-4031-02 ",.01)
 ;;54868-4031-02
 ;;9002226.02101,"806,54868-4031-02 ",.02)
 ;;54868-4031-02
 ;;9002226.02101,"806,54868-4031-03 ",.01)
 ;;54868-4031-03
 ;;9002226.02101,"806,54868-4031-03 ",.02)
 ;;54868-4031-03
 ;;9002226.02101,"806,54868-4089-00 ",.01)
 ;;54868-4089-00
 ;;9002226.02101,"806,54868-4089-00 ",.02)
 ;;54868-4089-00
 ;;9002226.02101,"806,54868-4091-00 ",.01)
 ;;54868-4091-00
 ;;9002226.02101,"806,54868-4091-00 ",.02)
 ;;54868-4091-00
 ;;9002226.02101,"806,54868-4091-01 ",.01)
 ;;54868-4091-01
 ;;9002226.02101,"806,54868-4091-01 ",.02)
 ;;54868-4091-01
 ;;9002226.02101,"806,54868-4091-02 ",.01)
 ;;54868-4091-02
 ;;9002226.02101,"806,54868-4091-02 ",.02)
 ;;54868-4091-02
 ;;9002226.02101,"806,54868-4091-03 ",.01)
 ;;54868-4091-03
 ;;9002226.02101,"806,54868-4091-03 ",.02)
 ;;54868-4091-03
 ;;9002226.02101,"806,54868-4149-00 ",.01)
 ;;54868-4149-00
 ;;9002226.02101,"806,54868-4149-00 ",.02)
 ;;54868-4149-00
 ;;9002226.02101,"806,54868-4149-01 ",.01)
 ;;54868-4149-01
 ;;9002226.02101,"806,54868-4149-01 ",.02)
 ;;54868-4149-01
 ;;9002226.02101,"806,54868-4241-00 ",.01)
 ;;54868-4241-00
 ;;9002226.02101,"806,54868-4241-00 ",.02)
 ;;54868-4241-00
 ;;9002226.02101,"806,54868-4242-00 ",.01)
 ;;54868-4242-00
 ;;9002226.02101,"806,54868-4242-00 ",.02)
 ;;54868-4242-00
 ;;9002226.02101,"806,54868-4243-00 ",.01)
 ;;54868-4243-00
 ;;9002226.02101,"806,54868-4243-00 ",.02)
 ;;54868-4243-00
 ;;9002226.02101,"806,54868-4244-00 ",.01)
 ;;54868-4244-00
 ;;9002226.02101,"806,54868-4244-00 ",.02)
 ;;54868-4244-00
 ;;9002226.02101,"806,54868-4269-00 ",.01)
 ;;54868-4269-00
 ;;9002226.02101,"806,54868-4269-00 ",.02)
 ;;54868-4269-00
 ;;9002226.02101,"806,54868-4370-00 ",.01)
 ;;54868-4370-00
 ;;9002226.02101,"806,54868-4370-00 ",.02)
 ;;54868-4370-00
 ;;9002226.02101,"806,54868-4370-01 ",.01)
 ;;54868-4370-01
 ;;9002226.02101,"806,54868-4370-01 ",.02)
 ;;54868-4370-01
 ;;9002226.02101,"806,54868-4370-02 ",.01)
 ;;54868-4370-02
 ;;9002226.02101,"806,54868-4370-02 ",.02)
 ;;54868-4370-02
 ;;9002226.02101,"806,54868-4371-00 ",.01)
 ;;54868-4371-00
 ;;9002226.02101,"806,54868-4371-00 ",.02)
 ;;54868-4371-00
 ;;9002226.02101,"806,54868-4529-00 ",.01)
 ;;54868-4529-00
 ;;9002226.02101,"806,54868-4529-00 ",.02)
 ;;54868-4529-00
 ;;9002226.02101,"806,54868-4529-01 ",.01)
 ;;54868-4529-01
 ;;9002226.02101,"806,54868-4529-01 ",.02)
 ;;54868-4529-01
 ;;9002226.02101,"806,54868-4529-02 ",.01)
 ;;54868-4529-02
 ;;9002226.02101,"806,54868-4529-02 ",.02)
 ;;54868-4529-02
 ;;9002226.02101,"806,54868-4529-03 ",.01)
 ;;54868-4529-03
 ;;9002226.02101,"806,54868-4529-03 ",.02)
 ;;54868-4529-03
 ;;9002226.02101,"806,54868-4609-00 ",.01)
 ;;54868-4609-00
 ;;9002226.02101,"806,54868-4609-00 ",.02)
 ;;54868-4609-00
 ;;9002226.02101,"806,54868-4609-01 ",.01)
 ;;54868-4609-01
 ;;9002226.02101,"806,54868-4609-01 ",.02)
 ;;54868-4609-01
 ;;9002226.02101,"806,54868-4677-00 ",.01)
 ;;54868-4677-00
 ;;9002226.02101,"806,54868-4677-00 ",.02)
 ;;54868-4677-00
 ;;9002226.02101,"806,54868-4679-00 ",.01)
 ;;54868-4679-00
 ;;9002226.02101,"806,54868-4679-00 ",.02)
 ;;54868-4679-00
 ;;9002226.02101,"806,54868-4761-01 ",.01)
 ;;54868-4761-01
 ;;9002226.02101,"806,54868-4761-01 ",.02)
 ;;54868-4761-01
 ;;9002226.02101,"806,54868-4761-02 ",.01)
 ;;54868-4761-02
 ;;9002226.02101,"806,54868-4761-02 ",.02)
 ;;54868-4761-02
 ;;9002226.02101,"806,54868-4771-00 ",.01)
 ;;54868-4771-00
 ;;9002226.02101,"806,54868-4771-00 ",.02)
 ;;54868-4771-00
 ;;9002226.02101,"806,54868-4771-01 ",.01)
 ;;54868-4771-01
 ;;9002226.02101,"806,54868-4771-01 ",.02)
 ;;54868-4771-01
 ;;9002226.02101,"806,54868-4771-02 ",.01)
 ;;54868-4771-02
 ;;9002226.02101,"806,54868-4771-02 ",.02)
 ;;54868-4771-02
 ;;9002226.02101,"806,54868-4811-00 ",.01)
 ;;54868-4811-00
 ;;9002226.02101,"806,54868-4811-00 ",.02)
 ;;54868-4811-00
 ;;9002226.02101,"806,54868-4813-00 ",.01)
 ;;54868-4813-00
 ;;9002226.02101,"806,54868-4813-00 ",.02)
 ;;54868-4813-00
 ;;9002226.02101,"806,54868-4830-00 ",.01)
 ;;54868-4830-00
 ;;9002226.02101,"806,54868-4830-00 ",.02)
 ;;54868-4830-00
 ;;9002226.02101,"806,54868-4831-00 ",.01)
 ;;54868-4831-00
 ;;9002226.02101,"806,54868-4831-00 ",.02)
 ;;54868-4831-00
 ;;9002226.02101,"806,54868-4842-00 ",.01)
 ;;54868-4842-00
 ;;9002226.02101,"806,54868-4842-00 ",.02)
 ;;54868-4842-00
 ;;9002226.02101,"806,54868-4842-01 ",.01)
 ;;54868-4842-01
 ;;9002226.02101,"806,54868-4842-01 ",.02)
 ;;54868-4842-01
 ;;9002226.02101,"806,54868-4842-02 ",.01)
 ;;54868-4842-02
 ;;9002226.02101,"806,54868-4842-02 ",.02)
 ;;54868-4842-02
 ;;9002226.02101,"806,54868-4862-00 ",.01)
 ;;54868-4862-00
 ;;9002226.02101,"806,54868-4862-00 ",.02)
 ;;54868-4862-00
 ;;9002226.02101,"806,54868-4865-00 ",.01)
 ;;54868-4865-00
 ;;9002226.02101,"806,54868-4865-00 ",.02)
 ;;54868-4865-00
 ;;9002226.02101,"806,54868-4865-01 ",.01)
 ;;54868-4865-01
 ;;9002226.02101,"806,54868-4865-01 ",.02)
 ;;54868-4865-01
 ;;9002226.02101,"806,54868-4865-02 ",.01)
 ;;54868-4865-02
 ;;9002226.02101,"806,54868-4865-02 ",.02)
 ;;54868-4865-02
 ;;9002226.02101,"806,54868-4865-03 ",.01)
 ;;54868-4865-03
 ;;9002226.02101,"806,54868-4865-03 ",.02)
 ;;54868-4865-03
 ;;9002226.02101,"806,54868-4865-04 ",.01)
 ;;54868-4865-04
 ;;9002226.02101,"806,54868-4865-04 ",.02)
 ;;54868-4865-04
 ;;9002226.02101,"806,54868-4866-00 ",.01)
 ;;54868-4866-00
 ;;9002226.02101,"806,54868-4866-00 ",.02)
 ;;54868-4866-00
 ;;9002226.02101,"806,54868-4879-00 ",.01)
 ;;54868-4879-00
 ;;9002226.02101,"806,54868-4879-00 ",.02)
 ;;54868-4879-00
 ;;9002226.02101,"806,54868-4879-01 ",.01)
 ;;54868-4879-01
 ;;9002226.02101,"806,54868-4879-01 ",.02)
 ;;54868-4879-01
 ;;9002226.02101,"806,54868-4879-02 ",.01)
 ;;54868-4879-02
 ;;9002226.02101,"806,54868-4879-02 ",.02)
 ;;54868-4879-02
 ;;9002226.02101,"806,54868-4900-00 ",.01)
 ;;54868-4900-00
 ;;9002226.02101,"806,54868-4900-00 ",.02)
 ;;54868-4900-00
 ;;9002226.02101,"806,54868-4901-00 ",.01)
 ;;54868-4901-00
 ;;9002226.02101,"806,54868-4901-00 ",.02)
 ;;54868-4901-00
 ;;9002226.02101,"806,54868-4906-00 ",.01)
 ;;54868-4906-00
 ;;9002226.02101,"806,54868-4906-00 ",.02)
 ;;54868-4906-00
 ;;9002226.02101,"806,54868-4920-00 ",.01)
 ;;54868-4920-00
 ;;9002226.02101,"806,54868-4920-00 ",.02)
 ;;54868-4920-00
 ;;9002226.02101,"806,54868-4979-00 ",.01)
 ;;54868-4979-00
 ;;9002226.02101,"806,54868-4979-00 ",.02)
 ;;54868-4979-00
 ;;9002226.02101,"806,54868-4979-01 ",.01)
 ;;54868-4979-01
 ;;9002226.02101,"806,54868-4979-01 ",.02)
 ;;54868-4979-01
 ;;9002226.02101,"806,54868-4982-00 ",.01)
 ;;54868-4982-00
 ;;9002226.02101,"806,54868-4982-00 ",.02)
 ;;54868-4982-00
 ;;9002226.02101,"806,54868-4982-01 ",.01)
 ;;54868-4982-01
 ;;9002226.02101,"806,54868-4982-01 ",.02)
 ;;54868-4982-01
 ;;9002226.02101,"806,54868-4982-02 ",.01)
 ;;54868-4982-02
 ;;9002226.02101,"806,54868-4982-02 ",.02)
 ;;54868-4982-02
 ;;9002226.02101,"806,54868-5008-00 ",.01)
 ;;54868-5008-00
 ;;9002226.02101,"806,54868-5008-00 ",.02)
 ;;54868-5008-00
 ;;9002226.02101,"806,54868-5009-00 ",.01)
 ;;54868-5009-00
 ;;9002226.02101,"806,54868-5009-00 ",.02)
 ;;54868-5009-00
 ;;9002226.02101,"806,54868-5047-00 ",.01)
 ;;54868-5047-00
 ;;9002226.02101,"806,54868-5047-00 ",.02)
 ;;54868-5047-00
 ;;9002226.02101,"806,54868-5148-00 ",.01)
 ;;54868-5148-00
 ;;9002226.02101,"806,54868-5148-00 ",.02)
 ;;54868-5148-00
 ;;9002226.02101,"806,54868-5148-01 ",.01)
 ;;54868-5148-01
 ;;9002226.02101,"806,54868-5148-01 ",.02)
 ;;54868-5148-01
 ;;9002226.02101,"806,54868-5148-02 ",.01)
 ;;54868-5148-02
 ;;9002226.02101,"806,54868-5148-02 ",.02)
 ;;54868-5148-02
 ;;9002226.02101,"806,54868-5148-03 ",.01)
 ;;54868-5148-03
 ;;9002226.02101,"806,54868-5148-03 ",.02)
 ;;54868-5148-03
 ;;9002226.02101,"806,54868-5148-04 ",.01)
 ;;54868-5148-04
 ;;9002226.02101,"806,54868-5148-04 ",.02)
 ;;54868-5148-04
 ;;9002226.02101,"806,54868-5159-00 ",.01)
 ;;54868-5159-00
 ;;9002226.02101,"806,54868-5159-00 ",.02)
 ;;54868-5159-00
 ;;9002226.02101,"806,54868-5159-01 ",.01)
 ;;54868-5159-01
 ;;9002226.02101,"806,54868-5159-01 ",.02)
 ;;54868-5159-01
 ;;9002226.02101,"806,54868-5185-00 ",.01)
 ;;54868-5185-00
 ;;9002226.02101,"806,54868-5185-00 ",.02)
 ;;54868-5185-00
 ;;9002226.02101,"806,54868-5185-01 ",.01)
 ;;54868-5185-01
 ;;9002226.02101,"806,54868-5185-01 ",.02)
 ;;54868-5185-01
 ;;9002226.02101,"806,54868-5185-02 ",.01)
 ;;54868-5185-02
 ;;9002226.02101,"806,54868-5185-02 ",.02)
 ;;54868-5185-02
 ;;9002226.02101,"806,54868-5185-03 ",.01)
 ;;54868-5185-03
 ;;9002226.02101,"806,54868-5185-03 ",.02)
 ;;54868-5185-03
 ;;9002226.02101,"806,54868-5243-00 ",.01)
 ;;54868-5243-00