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

BGP31R20.m

Go to the documentation of this file.
BGP31R20 ;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,66500-0158-01 ",.02)
 ;;66500-0158-01
 ;;9002226.02101,"806,66500-0259-01 ",.01)
 ;;66500-0259-01
 ;;9002226.02101,"806,66500-0259-01 ",.02)
 ;;66500-0259-01
 ;;9002226.02101,"806,66500-0325-17 ",.01)
 ;;66500-0325-17
 ;;9002226.02101,"806,66500-0325-17 ",.02)
 ;;66500-0325-17
 ;;9002226.02101,"806,66500-0748-01 ",.01)
 ;;66500-0748-01
 ;;9002226.02101,"806,66500-0748-01 ",.02)
 ;;66500-0748-01
 ;;9002226.02101,"806,66500-0768-01 ",.01)
 ;;66500-0768-01
 ;;9002226.02101,"806,66500-0768-01 ",.02)
 ;;66500-0768-01
 ;;9002226.02101,"806,66576-0230-01 ",.01)
 ;;66576-0230-01
 ;;9002226.02101,"806,66576-0230-01 ",.02)
 ;;66576-0230-01
 ;;9002226.02101,"806,66576-0231-01 ",.01)
 ;;66576-0231-01
 ;;9002226.02101,"806,66576-0231-01 ",.02)
 ;;66576-0231-01
 ;;9002226.02101,"806,66689-0020-01 ",.01)
 ;;66689-0020-01
 ;;9002226.02101,"806,66689-0020-01 ",.02)
 ;;66689-0020-01
 ;;9002226.02101,"806,66689-0020-50 ",.01)
 ;;66689-0020-50
 ;;9002226.02101,"806,66689-0020-50 ",.02)
 ;;66689-0020-50
 ;;9002226.02101,"806,66993-0920-02 ",.01)
 ;;66993-0920-02
 ;;9002226.02101,"806,66993-0920-02 ",.02)
 ;;66993-0920-02
 ;;9002226.02101,"806,66993-0921-02 ",.01)
 ;;66993-0921-02
 ;;9002226.02101,"806,66993-0921-02 ",.02)
 ;;66993-0921-02
 ;;9002226.02101,"806,67253-0460-10 ",.01)
 ;;67253-0460-10
 ;;9002226.02101,"806,67253-0460-10 ",.02)
 ;;67253-0460-10
 ;;9002226.02101,"806,67253-0460-11 ",.01)
 ;;67253-0460-11
 ;;9002226.02101,"806,67253-0460-11 ",.02)
 ;;67253-0460-11
 ;;9002226.02101,"806,67253-0460-50 ",.01)
 ;;67253-0460-50
 ;;9002226.02101,"806,67253-0460-50 ",.02)
 ;;67253-0460-50
 ;;9002226.02101,"806,67253-0461-10 ",.01)
 ;;67253-0461-10
 ;;9002226.02101,"806,67253-0461-10 ",.02)
 ;;67253-0461-10
 ;;9002226.02101,"806,67253-0461-11 ",.01)
 ;;67253-0461-11
 ;;9002226.02101,"806,67253-0461-11 ",.02)
 ;;67253-0461-11
 ;;9002226.02101,"806,67253-0461-50 ",.01)
 ;;67253-0461-50
 ;;9002226.02101,"806,67253-0461-50 ",.02)
 ;;67253-0461-50
 ;;9002226.02101,"806,67253-0462-10 ",.01)
 ;;67253-0462-10
 ;;9002226.02101,"806,67253-0462-10 ",.02)
 ;;67253-0462-10
 ;;9002226.02101,"806,67253-0462-11 ",.01)
 ;;67253-0462-11
 ;;9002226.02101,"806,67253-0462-11 ",.02)
 ;;67253-0462-11
 ;;9002226.02101,"806,67253-0462-50 ",.01)
 ;;67253-0462-50
 ;;9002226.02101,"806,67253-0462-50 ",.02)
 ;;67253-0462-50
 ;;9002226.02101,"806,67544-0098-53 ",.01)
 ;;67544-0098-53
 ;;9002226.02101,"806,67544-0098-53 ",.02)
 ;;67544-0098-53
 ;;9002226.02101,"806,67544-0098-60 ",.01)
 ;;67544-0098-60
 ;;9002226.02101,"806,67544-0098-60 ",.02)
 ;;67544-0098-60
 ;;9002226.02101,"806,67544-0098-70 ",.01)
 ;;67544-0098-70
 ;;9002226.02101,"806,67544-0098-70 ",.02)
 ;;67544-0098-70
 ;;9002226.02101,"806,67544-0098-80 ",.01)
 ;;67544-0098-80
 ;;9002226.02101,"806,67544-0098-80 ",.02)
 ;;67544-0098-80
 ;;9002226.02101,"806,67544-0098-90 ",.01)
 ;;67544-0098-90
 ;;9002226.02101,"806,67544-0098-90 ",.02)
 ;;67544-0098-90
 ;;9002226.02101,"806,67544-0098-92 ",.01)
 ;;67544-0098-92
 ;;9002226.02101,"806,67544-0098-92 ",.02)
 ;;67544-0098-92
 ;;9002226.02101,"806,67544-0098-94 ",.01)
 ;;67544-0098-94
 ;;9002226.02101,"806,67544-0098-94 ",.02)
 ;;67544-0098-94
 ;;9002226.02101,"806,67544-0296-70 ",.01)
 ;;67544-0296-70
 ;;9002226.02101,"806,67544-0296-70 ",.02)
 ;;67544-0296-70
 ;;9002226.02101,"806,67544-0364-70 ",.01)
 ;;67544-0364-70
 ;;9002226.02101,"806,67544-0364-70 ",.02)
 ;;67544-0364-70
 ;;9002226.02101,"806,67544-0417-70 ",.01)
 ;;67544-0417-70
 ;;9002226.02101,"806,67544-0417-70 ",.02)
 ;;67544-0417-70
 ;;9002226.02101,"806,67544-0478-82 ",.01)
 ;;67544-0478-82
 ;;9002226.02101,"806,67544-0478-82 ",.02)
 ;;67544-0478-82
 ;;9002226.02101,"806,67544-0511-70 ",.01)
 ;;67544-0511-70
 ;;9002226.02101,"806,67544-0511-70 ",.02)
 ;;67544-0511-70
 ;;9002226.02101,"806,67544-0511-94 ",.01)
 ;;67544-0511-94
 ;;9002226.02101,"806,67544-0511-94 ",.02)
 ;;67544-0511-94
 ;;9002226.02101,"806,67544-0548-82 ",.01)
 ;;67544-0548-82
 ;;9002226.02101,"806,67544-0548-82 ",.02)
 ;;67544-0548-82
 ;;9002226.02101,"806,67544-0566-53 ",.01)
 ;;67544-0566-53
 ;;9002226.02101,"806,67544-0566-53 ",.02)
 ;;67544-0566-53
 ;;9002226.02101,"806,67544-0566-60 ",.01)
 ;;67544-0566-60
 ;;9002226.02101,"806,67544-0566-60 ",.02)
 ;;67544-0566-60
 ;;9002226.02101,"806,67544-0566-70 ",.01)
 ;;67544-0566-70
 ;;9002226.02101,"806,67544-0566-70 ",.02)
 ;;67544-0566-70
 ;;9002226.02101,"806,67544-0566-80 ",.01)
 ;;67544-0566-80
 ;;9002226.02101,"806,67544-0566-80 ",.02)
 ;;67544-0566-80
 ;;9002226.02101,"806,67544-0566-90 ",.01)
 ;;67544-0566-90
 ;;9002226.02101,"806,67544-0566-90 ",.02)
 ;;67544-0566-90
 ;;9002226.02101,"806,67544-0566-92 ",.01)
 ;;67544-0566-92
 ;;9002226.02101,"806,67544-0566-92 ",.02)
 ;;67544-0566-92
 ;;9002226.02101,"806,67544-0566-94 ",.01)
 ;;67544-0566-94
 ;;9002226.02101,"806,67544-0566-94 ",.02)
 ;;67544-0566-94
 ;;9002226.02101,"806,67544-0613-53 ",.01)
 ;;67544-0613-53
 ;;9002226.02101,"806,67544-0613-53 ",.02)
 ;;67544-0613-53
 ;;9002226.02101,"806,67544-0613-60 ",.01)
 ;;67544-0613-60
 ;;9002226.02101,"806,67544-0613-60 ",.02)
 ;;67544-0613-60
 ;;9002226.02101,"806,67544-0613-70 ",.01)
 ;;67544-0613-70
 ;;9002226.02101,"806,67544-0613-70 ",.02)
 ;;67544-0613-70
 ;;9002226.02101,"806,67544-0613-80 ",.01)
 ;;67544-0613-80
 ;;9002226.02101,"806,67544-0613-80 ",.02)
 ;;67544-0613-80
 ;;9002226.02101,"806,67544-0613-90 ",.01)
 ;;67544-0613-90
 ;;9002226.02101,"806,67544-0613-90 ",.02)
 ;;67544-0613-90
 ;;9002226.02101,"806,67544-0613-92 ",.01)
 ;;67544-0613-92
 ;;9002226.02101,"806,67544-0613-92 ",.02)
 ;;67544-0613-92
 ;;9002226.02101,"806,67544-0613-94 ",.01)
 ;;67544-0613-94
 ;;9002226.02101,"806,67544-0613-94 ",.02)
 ;;67544-0613-94
 ;;9002226.02101,"806,67544-0643-80 ",.01)
 ;;67544-0643-80
 ;;9002226.02101,"806,67544-0643-80 ",.02)
 ;;67544-0643-80
 ;;9002226.02101,"806,67544-0643-94 ",.01)
 ;;67544-0643-94
 ;;9002226.02101,"806,67544-0643-94 ",.02)
 ;;67544-0643-94
 ;;9002226.02101,"806,67544-0653-53 ",.01)
 ;;67544-0653-53
 ;;9002226.02101,"806,67544-0653-53 ",.02)
 ;;67544-0653-53
 ;;9002226.02101,"806,67544-0653-60 ",.01)
 ;;67544-0653-60
 ;;9002226.02101,"806,67544-0653-60 ",.02)
 ;;67544-0653-60
 ;;9002226.02101,"806,67544-0653-70 ",.01)
 ;;67544-0653-70
 ;;9002226.02101,"806,67544-0653-70 ",.02)
 ;;67544-0653-70
 ;;9002226.02101,"806,67544-0653-80 ",.01)
 ;;67544-0653-80
 ;;9002226.02101,"806,67544-0653-80 ",.02)
 ;;67544-0653-80
 ;;9002226.02101,"806,67544-0653-90 ",.01)
 ;;67544-0653-90
 ;;9002226.02101,"806,67544-0653-90 ",.02)
 ;;67544-0653-90
 ;;9002226.02101,"806,67544-0653-92 ",.01)
 ;;67544-0653-92
 ;;9002226.02101,"806,67544-0653-92 ",.02)
 ;;67544-0653-92
 ;;9002226.02101,"806,67544-0653-94 ",.01)
 ;;67544-0653-94
 ;;9002226.02101,"806,67544-0653-94 ",.02)
 ;;67544-0653-94
 ;;9002226.02101,"806,67544-0661-41 ",.01)
 ;;67544-0661-41
 ;;9002226.02101,"806,67544-0661-41 ",.02)
 ;;67544-0661-41
 ;;9002226.02101,"806,67544-0661-81 ",.01)
 ;;67544-0661-81
 ;;9002226.02101,"806,67544-0661-81 ",.02)
 ;;67544-0661-81
 ;;9002226.02101,"806,67544-0875-60 ",.01)
 ;;67544-0875-60
 ;;9002226.02101,"806,67544-0875-60 ",.02)
 ;;67544-0875-60
 ;;9002226.02101,"806,67544-0875-80 ",.01)
 ;;67544-0875-80
 ;;9002226.02101,"806,67544-0875-80 ",.02)
 ;;67544-0875-80
 ;;9002226.02101,"806,67544-0927-60 ",.01)
 ;;67544-0927-60
 ;;9002226.02101,"806,67544-0927-60 ",.02)
 ;;67544-0927-60
 ;;9002226.02101,"806,67544-1008-30 ",.01)
 ;;67544-1008-30
 ;;9002226.02101,"806,67544-1008-30 ",.02)
 ;;67544-1008-30
 ;;9002226.02101,"806,67544-1129-70 ",.01)
 ;;67544-1129-70
 ;;9002226.02101,"806,67544-1129-70 ",.02)
 ;;67544-1129-70
 ;;9002226.02101,"806,68030-6681-01 ",.01)
 ;;68030-6681-01
 ;;9002226.02101,"806,68030-6681-01 ",.02)
 ;;68030-6681-01
 ;;9002226.02101,"806,68030-6681-02 ",.01)
 ;;68030-6681-02
 ;;9002226.02101,"806,68030-6681-02 ",.02)
 ;;68030-6681-02
 ;;9002226.02101,"806,68030-6681-03 ",.01)
 ;;68030-6681-03
 ;;9002226.02101,"806,68030-6681-03 ",.02)
 ;;68030-6681-03
 ;;9002226.02101,"806,68030-6682-01 ",.01)
 ;;68030-6682-01
 ;;9002226.02101,"806,68030-6682-01 ",.02)
 ;;68030-6682-01
 ;;9002226.02101,"806,68030-7987-01 ",.01)
 ;;68030-7987-01
 ;;9002226.02101,"806,68030-7987-01 ",.02)
 ;;68030-7987-01
 ;;9002226.02101,"806,68030-9960-01 ",.01)
 ;;68030-9960-01
 ;;9002226.02101,"806,68030-9960-01 ",.02)
 ;;68030-9960-01
 ;;9002226.02101,"806,68071-0028-30 ",.01)
 ;;68071-0028-30
 ;;9002226.02101,"806,68071-0028-30 ",.02)
 ;;68071-0028-30
 ;;9002226.02101,"806,68071-0028-60 ",.01)
 ;;68071-0028-60
 ;;9002226.02101,"806,68071-0028-60 ",.02)
 ;;68071-0028-60
 ;;9002226.02101,"806,68084-0136-01 ",.01)
 ;;68084-0136-01
 ;;9002226.02101,"806,68084-0136-01 ",.02)
 ;;68084-0136-01
 ;;9002226.02101,"806,68084-0136-11 ",.01)
 ;;68084-0136-11
 ;;9002226.02101,"806,68084-0136-11 ",.02)
 ;;68084-0136-11
 ;;9002226.02101,"806,68084-0137-01 ",.01)
 ;;68084-0137-01
 ;;9002226.02101,"806,68084-0137-01 ",.02)
 ;;68084-0137-01
 ;;9002226.02101,"806,68084-0137-11 ",.01)
 ;;68084-0137-11
 ;;9002226.02101,"806,68084-0137-11 ",.02)
 ;;68084-0137-11
 ;;9002226.02101,"806,68084-0138-01 ",.01)
 ;;68084-0138-01
 ;;9002226.02101,"806,68084-0138-01 ",.02)
 ;;68084-0138-01
 ;;9002226.02101,"806,68084-0138-11 ",.01)
 ;;68084-0138-11
 ;;9002226.02101,"806,68084-0138-11 ",.02)
 ;;68084-0138-11
 ;;9002226.02101,"806,68094-0518-59 ",.01)
 ;;68094-0518-59
 ;;9002226.02101,"806,68094-0518-59 ",.02)
 ;;68094-0518-59
 ;;9002226.02101,"806,68094-0518-61 ",.01)
 ;;68094-0518-61
 ;;9002226.02101,"806,68094-0518-61 ",.02)
 ;;68094-0518-61
 ;;9002226.02101,"806,68094-0518-62 ",.01)
 ;;68094-0518-62
 ;;9002226.02101,"806,68094-0518-62 ",.02)
 ;;68094-0518-62
 ;;9002226.02101,"806,68094-0528-59 ",.01)
 ;;68094-0528-59
 ;;9002226.02101,"806,68094-0528-59 ",.02)
 ;;68094-0528-59
 ;;9002226.02101,"806,68094-0528-61 ",.01)
 ;;68094-0528-61
 ;;9002226.02101,"806,68094-0528-61 ",.02)
 ;;68094-0528-61
 ;;9002226.02101,"806,68094-0528-62 ",.01)
 ;;68094-0528-62
 ;;9002226.02101,"806,68094-0528-62 ",.02)
 ;;68094-0528-62
 ;;9002226.02101,"806,68115-0158-30 ",.01)
 ;;68115-0158-30
 ;;9002226.02101,"806,68115-0158-30 ",.02)
 ;;68115-0158-30
 ;;9002226.02101,"806,68115-0158-60 ",.01)
 ;;68115-0158-60
 ;;9002226.02101,"806,68115-0158-60 ",.02)
 ;;68115-0158-60
 ;;9002226.02101,"806,68115-0159-30 ",.01)
 ;;68115-0159-30
 ;;9002226.02101,"806,68115-0159-30 ",.02)
 ;;68115-0159-30
 ;;9002226.02101,"806,68115-0159-60 ",.01)
 ;;68115-0159-60
 ;;9002226.02101,"806,68115-0159-60 ",.02)
 ;;68115-0159-60
 ;;9002226.02101,"806,68115-0160-30 ",.01)
 ;;68115-0160-30
 ;;9002226.02101,"806,68115-0160-30 ",.02)
 ;;68115-0160-30
 ;;9002226.02101,"806,68115-0161-30 ",.01)
 ;;68115-0161-30
 ;;9002226.02101,"806,68115-0161-30 ",.02)
 ;;68115-0161-30
 ;;9002226.02101,"806,68115-0161-60 ",.01)
 ;;68115-0161-60
 ;;9002226.02101,"806,68115-0161-60 ",.02)
 ;;68115-0161-60
 ;;9002226.02101,"806,68115-0294-30 ",.01)
 ;;68115-0294-30
 ;;9002226.02101,"806,68115-0294-30 ",.02)
 ;;68115-0294-30
 ;;9002226.02101,"806,68115-0387-30 ",.01)
 ;;68115-0387-30
 ;;9002226.02101,"806,68115-0387-30 ",.02)
 ;;68115-0387-30
 ;;9002226.02101,"806,68115-0387-60 ",.01)
 ;;68115-0387-60
 ;;9002226.02101,"806,68115-0387-60 ",.02)
 ;;68115-0387-60
 ;;9002226.02101,"806,68115-0388-30 ",.01)
 ;;68115-0388-30
 ;;9002226.02101,"806,68115-0388-30 ",.02)
 ;;68115-0388-30
 ;;9002226.02101,"806,68115-0388-60 ",.01)
 ;;68115-0388-60
 ;;9002226.02101,"806,68115-0388-60 ",.02)
 ;;68115-0388-60
 ;;9002226.02101,"806,68115-0622-00 ",.01)
 ;;68115-0622-00
 ;;9002226.02101,"806,68115-0622-00 ",.02)
 ;;68115-0622-00
 ;;9002226.02101,"806,68115-0666-00 ",.01)
 ;;68115-0666-00
 ;;9002226.02101,"806,68115-0666-00 ",.02)
 ;;68115-0666-00
 ;;9002226.02101,"806,68258-1014-01 ",.01)
 ;;68258-1014-01
 ;;9002226.02101,"806,68258-1014-01 ",.02)
 ;;68258-1014-01
 ;;9002226.02101,"806,68258-5975-08 ",.01)
 ;;68258-5975-08
 ;;9002226.02101,"806,68258-5975-08 ",.02)
 ;;68258-5975-08
 ;;9002226.02101,"806,68258-5978-02 ",.01)
 ;;68258-5978-02
 ;;9002226.02101,"806,68258-5978-02 ",.02)
 ;;68258-5978-02
 ;;9002226.02101,"806,68258-5979-02 ",.01)
 ;;68258-5979-02
 ;;9002226.02101,"806,68258-5979-02 ",.02)
 ;;68258-5979-02
 ;;9002226.02101,"806,68258-5980-02 ",.01)
 ;;68258-5980-02
 ;;9002226.02101,"806,68258-5980-02 ",.02)
 ;;68258-5980-02
 ;;9002226.02101,"806,68258-5981-02 ",.01)
 ;;68258-5981-02
 ;;9002226.02101,"806,68258-5981-02 ",.02)
 ;;68258-5981-02
 ;;9002226.02101,"806,68258-9087-01 ",.01)
 ;;68258-9087-01
 ;;9002226.02101,"806,68258-9087-01 ",.02)
 ;;68258-9087-01
 ;;9002226.02101,"806,68258-9088-01 ",.01)
 ;;68258-9088-01
 ;;9002226.02101,"806,68258-9088-01 ",.02)
 ;;68258-9088-01
 ;;9002226.02101,"806,68258-9089-01 ",.01)
 ;;68258-9089-01
 ;;9002226.02101,"806,68258-9089-01 ",.02)
 ;;68258-9089-01
 ;;9002226.02101,"806,68462-0173-01 ",.01)
 ;;68462-0173-01
 ;;9002226.02101,"806,68462-0173-01 ",.02)
 ;;68462-0173-01
 ;;9002226.02101,"806,68462-0174-01 ",.01)
 ;;68462-0174-01
 ;;9002226.02101,"806,68462-0174-01 ",.02)
 ;;68462-0174-01
 ;;9002226.02101,"806,68645-0210-54 ",.01)
 ;;68645-0210-54
 ;;9002226.02101,"806,68645-0210-54 ",.02)
 ;;68645-0210-54
 ;;9002226.02101,"806,68645-0211-54 ",.01)
 ;;68645-0211-54
 ;;9002226.02101,"806,68645-0211-54 ",.02)
 ;;68645-0211-54
 ;;9002226.02101,"806,99207-0190-56 ",.01)
 ;;99207-0190-56