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

BGP82Z36.m

Go to the documentation of this file.
BGP82Z36 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"619,35356-0762-60 ",.02)
 ;;35356-0762-60
 ;;9002226.02101,"619,35356-0762-90 ",.01)
 ;;35356-0762-90
 ;;9002226.02101,"619,35356-0762-90 ",.02)
 ;;35356-0762-90
 ;;9002226.02101,"619,35356-0766-08 ",.01)
 ;;35356-0766-08
 ;;9002226.02101,"619,35356-0766-08 ",.02)
 ;;35356-0766-08
 ;;9002226.02101,"619,35356-0766-24 ",.01)
 ;;35356-0766-24
 ;;9002226.02101,"619,35356-0766-24 ",.02)
 ;;35356-0766-24
 ;;9002226.02101,"619,35356-0766-30 ",.01)
 ;;35356-0766-30
 ;;9002226.02101,"619,35356-0766-30 ",.02)
 ;;35356-0766-30
 ;;9002226.02101,"619,35356-0766-60 ",.01)
 ;;35356-0766-60
 ;;9002226.02101,"619,35356-0766-60 ",.02)
 ;;35356-0766-60
 ;;9002226.02101,"619,35356-0766-90 ",.01)
 ;;35356-0766-90
 ;;9002226.02101,"619,35356-0766-90 ",.02)
 ;;35356-0766-90
 ;;9002226.02101,"619,35356-0767-30 ",.01)
 ;;35356-0767-30
 ;;9002226.02101,"619,35356-0767-30 ",.02)
 ;;35356-0767-30
 ;;9002226.02101,"619,35356-0767-60 ",.01)
 ;;35356-0767-60
 ;;9002226.02101,"619,35356-0767-60 ",.02)
 ;;35356-0767-60
 ;;9002226.02101,"619,35356-0767-90 ",.01)
 ;;35356-0767-90
 ;;9002226.02101,"619,35356-0767-90 ",.02)
 ;;35356-0767-90
 ;;9002226.02101,"619,35356-0770-60 ",.01)
 ;;35356-0770-60
 ;;9002226.02101,"619,35356-0770-60 ",.02)
 ;;35356-0770-60
 ;;9002226.02101,"619,35356-0790-30 ",.01)
 ;;35356-0790-30
 ;;9002226.02101,"619,35356-0790-30 ",.02)
 ;;35356-0790-30
 ;;9002226.02101,"619,35356-0795-01 ",.01)
 ;;35356-0795-01
 ;;9002226.02101,"619,35356-0795-01 ",.02)
 ;;35356-0795-01
 ;;9002226.02101,"619,35356-0795-08 ",.01)
 ;;35356-0795-08
 ;;9002226.02101,"619,35356-0795-08 ",.02)
 ;;35356-0795-08
 ;;9002226.02101,"619,35356-0795-14 ",.01)
 ;;35356-0795-14
 ;;9002226.02101,"619,35356-0795-14 ",.02)
 ;;35356-0795-14
 ;;9002226.02101,"619,35356-0795-21 ",.01)
 ;;35356-0795-21
 ;;9002226.02101,"619,35356-0795-21 ",.02)
 ;;35356-0795-21
 ;;9002226.02101,"619,35356-0795-30 ",.01)
 ;;35356-0795-30
 ;;9002226.02101,"619,35356-0795-30 ",.02)
 ;;35356-0795-30
 ;;9002226.02101,"619,35356-0795-40 ",.01)
 ;;35356-0795-40
 ;;9002226.02101,"619,35356-0795-40 ",.02)
 ;;35356-0795-40
 ;;9002226.02101,"619,35356-0795-60 ",.01)
 ;;35356-0795-60
 ;;9002226.02101,"619,35356-0795-60 ",.02)
 ;;35356-0795-60
 ;;9002226.02101,"619,35356-0795-90 ",.01)
 ;;35356-0795-90
 ;;9002226.02101,"619,35356-0795-90 ",.02)
 ;;35356-0795-90
 ;;9002226.02101,"619,35356-0796-01 ",.01)
 ;;35356-0796-01
 ;;9002226.02101,"619,35356-0796-01 ",.02)
 ;;35356-0796-01
 ;;9002226.02101,"619,35356-0796-06 ",.01)
 ;;35356-0796-06
 ;;9002226.02101,"619,35356-0796-06 ",.02)
 ;;35356-0796-06
 ;;9002226.02101,"619,35356-0796-08 ",.01)
 ;;35356-0796-08
 ;;9002226.02101,"619,35356-0796-08 ",.02)
 ;;35356-0796-08
 ;;9002226.02101,"619,35356-0796-10 ",.01)
 ;;35356-0796-10
 ;;9002226.02101,"619,35356-0796-10 ",.02)
 ;;35356-0796-10
 ;;9002226.02101,"619,35356-0796-12 ",.01)
 ;;35356-0796-12
 ;;9002226.02101,"619,35356-0796-12 ",.02)
 ;;35356-0796-12
 ;;9002226.02101,"619,35356-0796-20 ",.01)
 ;;35356-0796-20
 ;;9002226.02101,"619,35356-0796-20 ",.02)
 ;;35356-0796-20
 ;;9002226.02101,"619,35356-0796-30 ",.01)
 ;;35356-0796-30
 ;;9002226.02101,"619,35356-0796-30 ",.02)
 ;;35356-0796-30
 ;;9002226.02101,"619,35356-0796-40 ",.01)
 ;;35356-0796-40
 ;;9002226.02101,"619,35356-0796-40 ",.02)
 ;;35356-0796-40
 ;;9002226.02101,"619,35356-0796-50 ",.01)
 ;;35356-0796-50
 ;;9002226.02101,"619,35356-0796-50 ",.02)
 ;;35356-0796-50
 ;;9002226.02101,"619,35356-0796-60 ",.01)
 ;;35356-0796-60
 ;;9002226.02101,"619,35356-0796-60 ",.02)
 ;;35356-0796-60
 ;;9002226.02101,"619,35356-0796-90 ",.01)
 ;;35356-0796-90
 ;;9002226.02101,"619,35356-0796-90 ",.02)
 ;;35356-0796-90
 ;;9002226.02101,"619,35356-0797-01 ",.01)
 ;;35356-0797-01
 ;;9002226.02101,"619,35356-0797-01 ",.02)
 ;;35356-0797-01
 ;;9002226.02101,"619,35356-0797-08 ",.01)
 ;;35356-0797-08
 ;;9002226.02101,"619,35356-0797-08 ",.02)
 ;;35356-0797-08
 ;;9002226.02101,"619,35356-0797-15 ",.01)
 ;;35356-0797-15
 ;;9002226.02101,"619,35356-0797-15 ",.02)
 ;;35356-0797-15
 ;;9002226.02101,"619,35356-0797-30 ",.01)
 ;;35356-0797-30
 ;;9002226.02101,"619,35356-0797-30 ",.02)
 ;;35356-0797-30
 ;;9002226.02101,"619,35356-0797-40 ",.01)
 ;;35356-0797-40
 ;;9002226.02101,"619,35356-0797-40 ",.02)
 ;;35356-0797-40
 ;;9002226.02101,"619,35356-0797-60 ",.01)
 ;;35356-0797-60
 ;;9002226.02101,"619,35356-0797-60 ",.02)
 ;;35356-0797-60
 ;;9002226.02101,"619,35356-0797-90 ",.01)
 ;;35356-0797-90
 ;;9002226.02101,"619,35356-0797-90 ",.02)
 ;;35356-0797-90
 ;;9002226.02101,"619,35356-0801-01 ",.01)
 ;;35356-0801-01
 ;;9002226.02101,"619,35356-0801-01 ",.02)
 ;;35356-0801-01
 ;;9002226.02101,"619,35356-0801-30 ",.01)
 ;;35356-0801-30
 ;;9002226.02101,"619,35356-0801-30 ",.02)
 ;;35356-0801-30
 ;;9002226.02101,"619,35356-0801-60 ",.01)
 ;;35356-0801-60
 ;;9002226.02101,"619,35356-0801-60 ",.02)
 ;;35356-0801-60
 ;;9002226.02101,"619,35356-0801-90 ",.01)
 ;;35356-0801-90
 ;;9002226.02101,"619,35356-0801-90 ",.02)
 ;;35356-0801-90
 ;;9002226.02101,"619,35356-0802-01 ",.01)
 ;;35356-0802-01
 ;;9002226.02101,"619,35356-0802-01 ",.02)
 ;;35356-0802-01
 ;;9002226.02101,"619,35356-0802-15 ",.01)
 ;;35356-0802-15
 ;;9002226.02101,"619,35356-0802-15 ",.02)
 ;;35356-0802-15
 ;;9002226.02101,"619,35356-0802-30 ",.01)
 ;;35356-0802-30
 ;;9002226.02101,"619,35356-0802-30 ",.02)
 ;;35356-0802-30
 ;;9002226.02101,"619,35356-0802-40 ",.01)
 ;;35356-0802-40
 ;;9002226.02101,"619,35356-0802-40 ",.02)
 ;;35356-0802-40
 ;;9002226.02101,"619,35356-0802-60 ",.01)
 ;;35356-0802-60
 ;;9002226.02101,"619,35356-0802-60 ",.02)
 ;;35356-0802-60
 ;;9002226.02101,"619,35356-0802-90 ",.01)
 ;;35356-0802-90
 ;;9002226.02101,"619,35356-0802-90 ",.02)
 ;;35356-0802-90
 ;;9002226.02101,"619,35356-0804-60 ",.01)
 ;;35356-0804-60
 ;;9002226.02101,"619,35356-0804-60 ",.02)
 ;;35356-0804-60
 ;;9002226.02101,"619,35356-0810-60 ",.01)
 ;;35356-0810-60
 ;;9002226.02101,"619,35356-0810-60 ",.02)
 ;;35356-0810-60
 ;;9002226.02101,"619,35356-0814-30 ",.01)
 ;;35356-0814-30
 ;;9002226.02101,"619,35356-0814-30 ",.02)
 ;;35356-0814-30
 ;;9002226.02101,"619,35356-0814-60 ",.01)
 ;;35356-0814-60
 ;;9002226.02101,"619,35356-0814-60 ",.02)
 ;;35356-0814-60
 ;;9002226.02101,"619,35356-0814-90 ",.01)
 ;;35356-0814-90
 ;;9002226.02101,"619,35356-0814-90 ",.02)
 ;;35356-0814-90
 ;;9002226.02101,"619,35356-0815-30 ",.01)
 ;;35356-0815-30
 ;;9002226.02101,"619,35356-0815-30 ",.02)
 ;;35356-0815-30
 ;;9002226.02101,"619,35356-0815-60 ",.01)
 ;;35356-0815-60
 ;;9002226.02101,"619,35356-0815-60 ",.02)
 ;;35356-0815-60
 ;;9002226.02101,"619,35356-0815-90 ",.01)
 ;;35356-0815-90
 ;;9002226.02101,"619,35356-0815-90 ",.02)
 ;;35356-0815-90
 ;;9002226.02101,"619,35356-0816-30 ",.01)
 ;;35356-0816-30
 ;;9002226.02101,"619,35356-0816-30 ",.02)
 ;;35356-0816-30
 ;;9002226.02101,"619,35356-0816-60 ",.01)
 ;;35356-0816-60
 ;;9002226.02101,"619,35356-0816-60 ",.02)
 ;;35356-0816-60
 ;;9002226.02101,"619,35356-0817-01 ",.01)
 ;;35356-0817-01
 ;;9002226.02101,"619,35356-0817-01 ",.02)
 ;;35356-0817-01
 ;;9002226.02101,"619,35356-0817-15 ",.01)
 ;;35356-0817-15
 ;;9002226.02101,"619,35356-0817-15 ",.02)
 ;;35356-0817-15
 ;;9002226.02101,"619,35356-0817-20 ",.01)
 ;;35356-0817-20
 ;;9002226.02101,"619,35356-0817-20 ",.02)
 ;;35356-0817-20
 ;;9002226.02101,"619,35356-0817-30 ",.01)
 ;;35356-0817-30
 ;;9002226.02101,"619,35356-0817-30 ",.02)
 ;;35356-0817-30
 ;;9002226.02101,"619,35356-0817-40 ",.01)
 ;;35356-0817-40
 ;;9002226.02101,"619,35356-0817-40 ",.02)
 ;;35356-0817-40
 ;;9002226.02101,"619,35356-0817-60 ",.01)
 ;;35356-0817-60
 ;;9002226.02101,"619,35356-0817-60 ",.02)
 ;;35356-0817-60
 ;;9002226.02101,"619,35356-0817-90 ",.01)
 ;;35356-0817-90
 ;;9002226.02101,"619,35356-0817-90 ",.02)
 ;;35356-0817-90
 ;;9002226.02101,"619,35356-0820-30 ",.01)
 ;;35356-0820-30
 ;;9002226.02101,"619,35356-0820-30 ",.02)
 ;;35356-0820-30
 ;;9002226.02101,"619,35356-0820-60 ",.01)
 ;;35356-0820-60
 ;;9002226.02101,"619,35356-0820-60 ",.02)
 ;;35356-0820-60
 ;;9002226.02101,"619,35356-0820-90 ",.01)
 ;;35356-0820-90
 ;;9002226.02101,"619,35356-0820-90 ",.02)
 ;;35356-0820-90
 ;;9002226.02101,"619,35356-0825-30 ",.01)
 ;;35356-0825-30
 ;;9002226.02101,"619,35356-0825-30 ",.02)
 ;;35356-0825-30
 ;;9002226.02101,"619,35356-0825-60 ",.01)
 ;;35356-0825-60
 ;;9002226.02101,"619,35356-0825-60 ",.02)
 ;;35356-0825-60
 ;;9002226.02101,"619,35356-0828-30 ",.01)
 ;;35356-0828-30
 ;;9002226.02101,"619,35356-0828-30 ",.02)
 ;;35356-0828-30
 ;;9002226.02101,"619,35356-0828-40 ",.01)
 ;;35356-0828-40
 ;;9002226.02101,"619,35356-0828-40 ",.02)
 ;;35356-0828-40
 ;;9002226.02101,"619,35356-0828-60 ",.01)
 ;;35356-0828-60
 ;;9002226.02101,"619,35356-0828-60 ",.02)
 ;;35356-0828-60
 ;;9002226.02101,"619,35356-0828-90 ",.01)
 ;;35356-0828-90
 ;;9002226.02101,"619,35356-0828-90 ",.02)
 ;;35356-0828-90
 ;;9002226.02101,"619,35356-0829-01 ",.01)
 ;;35356-0829-01
 ;;9002226.02101,"619,35356-0829-01 ",.02)
 ;;35356-0829-01
 ;;9002226.02101,"619,35356-0829-30 ",.01)
 ;;35356-0829-30
 ;;9002226.02101,"619,35356-0829-30 ",.02)
 ;;35356-0829-30
 ;;9002226.02101,"619,35356-0829-60 ",.01)
 ;;35356-0829-60
 ;;9002226.02101,"619,35356-0829-60 ",.02)
 ;;35356-0829-60
 ;;9002226.02101,"619,35356-0830-01 ",.01)
 ;;35356-0830-01
 ;;9002226.02101,"619,35356-0830-01 ",.02)
 ;;35356-0830-01
 ;;9002226.02101,"619,35356-0830-30 ",.01)
 ;;35356-0830-30
 ;;9002226.02101,"619,35356-0830-30 ",.02)
 ;;35356-0830-30
 ;;9002226.02101,"619,35356-0830-60 ",.01)
 ;;35356-0830-60
 ;;9002226.02101,"619,35356-0830-60 ",.02)
 ;;35356-0830-60
 ;;9002226.02101,"619,35356-0830-90 ",.01)
 ;;35356-0830-90
 ;;9002226.02101,"619,35356-0830-90 ",.02)
 ;;35356-0830-90
 ;;9002226.02101,"619,35356-0833-01 ",.01)
 ;;35356-0833-01
 ;;9002226.02101,"619,35356-0833-01 ",.02)
 ;;35356-0833-01
 ;;9002226.02101,"619,35356-0833-30 ",.01)
 ;;35356-0833-30
 ;;9002226.02101,"619,35356-0833-30 ",.02)
 ;;35356-0833-30
 ;;9002226.02101,"619,35356-0833-60 ",.01)
 ;;35356-0833-60
 ;;9002226.02101,"619,35356-0833-60 ",.02)
 ;;35356-0833-60
 ;;9002226.02101,"619,35356-0833-90 ",.01)
 ;;35356-0833-90
 ;;9002226.02101,"619,35356-0833-90 ",.02)
 ;;35356-0833-90
 ;;9002226.02101,"619,35356-0834-01 ",.01)
 ;;35356-0834-01
 ;;9002226.02101,"619,35356-0834-01 ",.02)
 ;;35356-0834-01
 ;;9002226.02101,"619,35356-0834-30 ",.01)
 ;;35356-0834-30
 ;;9002226.02101,"619,35356-0834-30 ",.02)
 ;;35356-0834-30
 ;;9002226.02101,"619,35356-0834-60 ",.01)
 ;;35356-0834-60
 ;;9002226.02101,"619,35356-0834-60 ",.02)
 ;;35356-0834-60
 ;;9002226.02101,"619,35356-0834-90 ",.01)
 ;;35356-0834-90
 ;;9002226.02101,"619,35356-0834-90 ",.02)
 ;;35356-0834-90
 ;;9002226.02101,"619,35356-0835-30 ",.01)
 ;;35356-0835-30
 ;;9002226.02101,"619,35356-0835-30 ",.02)
 ;;35356-0835-30
 ;;9002226.02101,"619,35356-0835-60 ",.01)
 ;;35356-0835-60
 ;;9002226.02101,"619,35356-0835-60 ",.02)
 ;;35356-0835-60
 ;;9002226.02101,"619,35356-0835-90 ",.01)
 ;;35356-0835-90
 ;;9002226.02101,"619,35356-0835-90 ",.02)
 ;;35356-0835-90
 ;;9002226.02101,"619,35356-0836-01 ",.01)
 ;;35356-0836-01
 ;;9002226.02101,"619,35356-0836-01 ",.02)
 ;;35356-0836-01
 ;;9002226.02101,"619,35356-0836-30 ",.01)
 ;;35356-0836-30
 ;;9002226.02101,"619,35356-0836-30 ",.02)
 ;;35356-0836-30
 ;;9002226.02101,"619,35356-0836-60 ",.01)
 ;;35356-0836-60
 ;;9002226.02101,"619,35356-0836-60 ",.02)
 ;;35356-0836-60
 ;;9002226.02101,"619,35356-0836-90 ",.01)
 ;;35356-0836-90
 ;;9002226.02101,"619,35356-0836-90 ",.02)
 ;;35356-0836-90
 ;;9002226.02101,"619,35356-0837-30 ",.01)
 ;;35356-0837-30