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

BGP06B39.m

Go to the documentation of this file.
BGP06B39 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"975,68115-0365-00 ",.01)
 ;;68115-0365-00
 ;;9002226.02101,"975,68115-0365-00 ",.02)
 ;;68115-0365-00
 ;;9002226.02101,"975,68115-0365-15 ",.01)
 ;;68115-0365-15
 ;;9002226.02101,"975,68115-0365-15 ",.02)
 ;;68115-0365-15
 ;;9002226.02101,"975,68115-0365-30 ",.01)
 ;;68115-0365-30
 ;;9002226.02101,"975,68115-0365-30 ",.02)
 ;;68115-0365-30
 ;;9002226.02101,"975,68115-0366-00 ",.01)
 ;;68115-0366-00
 ;;9002226.02101,"975,68115-0366-00 ",.02)
 ;;68115-0366-00
 ;;9002226.02101,"975,68115-0366-15 ",.01)
 ;;68115-0366-15
 ;;9002226.02101,"975,68115-0366-15 ",.02)
 ;;68115-0366-15
 ;;9002226.02101,"975,68115-0366-30 ",.01)
 ;;68115-0366-30
 ;;9002226.02101,"975,68115-0366-30 ",.02)
 ;;68115-0366-30
 ;;9002226.02101,"975,68115-0371-15 ",.01)
 ;;68115-0371-15
 ;;9002226.02101,"975,68115-0371-15 ",.02)
 ;;68115-0371-15
 ;;9002226.02101,"975,68115-0371-30 ",.01)
 ;;68115-0371-30
 ;;9002226.02101,"975,68115-0371-30 ",.02)
 ;;68115-0371-30
 ;;9002226.02101,"975,68115-0372-30 ",.01)
 ;;68115-0372-30
 ;;9002226.02101,"975,68115-0372-30 ",.02)
 ;;68115-0372-30
 ;;9002226.02101,"975,68115-0372-60 ",.01)
 ;;68115-0372-60
 ;;9002226.02101,"975,68115-0372-60 ",.02)
 ;;68115-0372-60
 ;;9002226.02101,"975,68115-0384-30 ",.01)
 ;;68115-0384-30
 ;;9002226.02101,"975,68115-0384-30 ",.02)
 ;;68115-0384-30
 ;;9002226.02101,"975,68115-0391-00 ",.01)
 ;;68115-0391-00
 ;;9002226.02101,"975,68115-0391-00 ",.02)
 ;;68115-0391-00
 ;;9002226.02101,"975,68115-0391-30 ",.01)
 ;;68115-0391-30
 ;;9002226.02101,"975,68115-0391-30 ",.02)
 ;;68115-0391-30
 ;;9002226.02101,"975,68115-0391-60 ",.01)
 ;;68115-0391-60
 ;;9002226.02101,"975,68115-0391-60 ",.02)
 ;;68115-0391-60
 ;;9002226.02101,"975,68115-0402-30 ",.01)
 ;;68115-0402-30
 ;;9002226.02101,"975,68115-0402-30 ",.02)
 ;;68115-0402-30
 ;;9002226.02101,"975,68115-0402-60 ",.01)
 ;;68115-0402-60
 ;;9002226.02101,"975,68115-0402-60 ",.02)
 ;;68115-0402-60
 ;;9002226.02101,"975,68115-0412-00 ",.01)
 ;;68115-0412-00
 ;;9002226.02101,"975,68115-0412-00 ",.02)
 ;;68115-0412-00
 ;;9002226.02101,"975,68115-0412-30 ",.01)
 ;;68115-0412-30
 ;;9002226.02101,"975,68115-0412-30 ",.02)
 ;;68115-0412-30
 ;;9002226.02101,"975,68115-0412-60 ",.01)
 ;;68115-0412-60
 ;;9002226.02101,"975,68115-0412-60 ",.02)
 ;;68115-0412-60
 ;;9002226.02101,"975,68115-0412-90 ",.01)
 ;;68115-0412-90
 ;;9002226.02101,"975,68115-0412-90 ",.02)
 ;;68115-0412-90
 ;;9002226.02101,"975,68115-0418-00 ",.01)
 ;;68115-0418-00
 ;;9002226.02101,"975,68115-0418-00 ",.02)
 ;;68115-0418-00
 ;;9002226.02101,"975,68115-0418-30 ",.01)
 ;;68115-0418-30
 ;;9002226.02101,"975,68115-0418-30 ",.02)
 ;;68115-0418-30
 ;;9002226.02101,"975,68115-0428-30 ",.01)
 ;;68115-0428-30
 ;;9002226.02101,"975,68115-0428-30 ",.02)
 ;;68115-0428-30
 ;;9002226.02101,"975,68115-0430-30 ",.01)
 ;;68115-0430-30
 ;;9002226.02101,"975,68115-0430-30 ",.02)
 ;;68115-0430-30
 ;;9002226.02101,"975,68115-0439-30 ",.01)
 ;;68115-0439-30
 ;;9002226.02101,"975,68115-0439-30 ",.02)
 ;;68115-0439-30
 ;;9002226.02101,"975,68115-0445-30 ",.01)
 ;;68115-0445-30
 ;;9002226.02101,"975,68115-0445-30 ",.02)
 ;;68115-0445-30
 ;;9002226.02101,"975,68115-0445-60 ",.01)
 ;;68115-0445-60
 ;;9002226.02101,"975,68115-0445-60 ",.02)
 ;;68115-0445-60
 ;;9002226.02101,"975,68115-0447-30 ",.01)
 ;;68115-0447-30
 ;;9002226.02101,"975,68115-0447-30 ",.02)
 ;;68115-0447-30
 ;;9002226.02101,"975,68115-0447-60 ",.01)
 ;;68115-0447-60
 ;;9002226.02101,"975,68115-0447-60 ",.02)
 ;;68115-0447-60
 ;;9002226.02101,"975,68115-0477-30 ",.01)
 ;;68115-0477-30
 ;;9002226.02101,"975,68115-0477-30 ",.02)
 ;;68115-0477-30
 ;;9002226.02101,"975,68115-0477-60 ",.01)
 ;;68115-0477-60
 ;;9002226.02101,"975,68115-0477-60 ",.02)
 ;;68115-0477-60
 ;;9002226.02101,"975,68115-0477-90 ",.01)
 ;;68115-0477-90
 ;;9002226.02101,"975,68115-0477-90 ",.02)
 ;;68115-0477-90
 ;;9002226.02101,"975,68115-0478-00 ",.01)
 ;;68115-0478-00
 ;;9002226.02101,"975,68115-0478-00 ",.02)
 ;;68115-0478-00
 ;;9002226.02101,"975,68115-0478-15 ",.01)
 ;;68115-0478-15
 ;;9002226.02101,"975,68115-0478-15 ",.02)
 ;;68115-0478-15
 ;;9002226.02101,"975,68115-0478-30 ",.01)
 ;;68115-0478-30
 ;;9002226.02101,"975,68115-0478-30 ",.02)
 ;;68115-0478-30
 ;;9002226.02101,"975,68115-0478-60 ",.01)
 ;;68115-0478-60
 ;;9002226.02101,"975,68115-0478-60 ",.02)
 ;;68115-0478-60
 ;;9002226.02101,"975,68115-0478-90 ",.01)
 ;;68115-0478-90
 ;;9002226.02101,"975,68115-0478-90 ",.02)
 ;;68115-0478-90
 ;;9002226.02101,"975,68115-0482-30 ",.01)
 ;;68115-0482-30
 ;;9002226.02101,"975,68115-0482-30 ",.02)
 ;;68115-0482-30
 ;;9002226.02101,"975,68115-0482-60 ",.01)
 ;;68115-0482-60
 ;;9002226.02101,"975,68115-0482-60 ",.02)
 ;;68115-0482-60
 ;;9002226.02101,"975,68115-0489-30 ",.01)
 ;;68115-0489-30
 ;;9002226.02101,"975,68115-0489-30 ",.02)
 ;;68115-0489-30
 ;;9002226.02101,"975,68115-0493-30 ",.01)
 ;;68115-0493-30
 ;;9002226.02101,"975,68115-0493-30 ",.02)
 ;;68115-0493-30
 ;;9002226.02101,"975,68115-0493-60 ",.01)
 ;;68115-0493-60
 ;;9002226.02101,"975,68115-0493-60 ",.02)
 ;;68115-0493-60
 ;;9002226.02101,"975,68115-0505-00 ",.01)
 ;;68115-0505-00
 ;;9002226.02101,"975,68115-0505-00 ",.02)
 ;;68115-0505-00
 ;;9002226.02101,"975,68115-0505-15 ",.01)
 ;;68115-0505-15
 ;;9002226.02101,"975,68115-0505-15 ",.02)
 ;;68115-0505-15
 ;;9002226.02101,"975,68115-0505-30 ",.01)
 ;;68115-0505-30
 ;;9002226.02101,"975,68115-0505-30 ",.02)
 ;;68115-0505-30
 ;;9002226.02101,"975,68115-0505-60 ",.01)
 ;;68115-0505-60
 ;;9002226.02101,"975,68115-0505-60 ",.02)
 ;;68115-0505-60
 ;;9002226.02101,"975,68115-0505-90 ",.01)
 ;;68115-0505-90
 ;;9002226.02101,"975,68115-0505-90 ",.02)
 ;;68115-0505-90
 ;;9002226.02101,"975,68115-0506-15 ",.01)
 ;;68115-0506-15
 ;;9002226.02101,"975,68115-0506-15 ",.02)
 ;;68115-0506-15
 ;;9002226.02101,"975,68115-0506-30 ",.01)
 ;;68115-0506-30
 ;;9002226.02101,"975,68115-0506-30 ",.02)
 ;;68115-0506-30
 ;;9002226.02101,"975,68115-0509-30 ",.01)
 ;;68115-0509-30
 ;;9002226.02101,"975,68115-0509-30 ",.02)
 ;;68115-0509-30
 ;;9002226.02101,"975,68115-0544-30 ",.01)
 ;;68115-0544-30
 ;;9002226.02101,"975,68115-0544-30 ",.02)
 ;;68115-0544-30
 ;;9002226.02101,"975,68115-0591-00 ",.01)
 ;;68115-0591-00
 ;;9002226.02101,"975,68115-0591-00 ",.02)
 ;;68115-0591-00
 ;;9002226.02101,"975,68115-0624-00 ",.01)
 ;;68115-0624-00
 ;;9002226.02101,"975,68115-0624-00 ",.02)
 ;;68115-0624-00
 ;;9002226.02101,"975,68115-0641-60 ",.01)
 ;;68115-0641-60
 ;;9002226.02101,"975,68115-0641-60 ",.02)
 ;;68115-0641-60
 ;;9002226.02101,"975,68115-0656-30 ",.01)
 ;;68115-0656-30
 ;;9002226.02101,"975,68115-0656-30 ",.02)
 ;;68115-0656-30
 ;;9002226.02101,"975,68115-0676-00 ",.01)
 ;;68115-0676-00
 ;;9002226.02101,"975,68115-0676-00 ",.02)
 ;;68115-0676-00
 ;;9002226.02101,"975,68115-0676-60 ",.01)
 ;;68115-0676-60
 ;;9002226.02101,"975,68115-0676-60 ",.02)
 ;;68115-0676-60
 ;;9002226.02101,"975,68115-0679-00 ",.01)
 ;;68115-0679-00
 ;;9002226.02101,"975,68115-0679-00 ",.02)
 ;;68115-0679-00
 ;;9002226.02101,"975,68115-0689-00 ",.01)
 ;;68115-0689-00
 ;;9002226.02101,"975,68115-0689-00 ",.02)
 ;;68115-0689-00
 ;;9002226.02101,"975,68115-0695-30 ",.01)
 ;;68115-0695-30
 ;;9002226.02101,"975,68115-0695-30 ",.02)
 ;;68115-0695-30
 ;;9002226.02101,"975,68115-0695-60 ",.01)
 ;;68115-0695-60
 ;;9002226.02101,"975,68115-0695-60 ",.02)
 ;;68115-0695-60
 ;;9002226.02101,"975,68115-0695-90 ",.01)
 ;;68115-0695-90
 ;;9002226.02101,"975,68115-0695-90 ",.02)
 ;;68115-0695-90
 ;;9002226.02101,"975,68115-0697-60 ",.01)
 ;;68115-0697-60
 ;;9002226.02101,"975,68115-0697-60 ",.02)
 ;;68115-0697-60
 ;;9002226.02101,"975,68115-0716-00 ",.01)
 ;;68115-0716-00
 ;;9002226.02101,"975,68115-0716-00 ",.02)
 ;;68115-0716-00
 ;;9002226.02101,"975,68115-0719-00 ",.01)
 ;;68115-0719-00
 ;;9002226.02101,"975,68115-0719-00 ",.02)
 ;;68115-0719-00
 ;;9002226.02101,"975,68115-0719-30 ",.01)
 ;;68115-0719-30
 ;;9002226.02101,"975,68115-0719-30 ",.02)
 ;;68115-0719-30
 ;;9002226.02101,"975,68115-0732-30 ",.01)
 ;;68115-0732-30
 ;;9002226.02101,"975,68115-0732-30 ",.02)
 ;;68115-0732-30
 ;;9002226.02101,"975,68115-0738-00 ",.01)
 ;;68115-0738-00
 ;;9002226.02101,"975,68115-0738-00 ",.02)
 ;;68115-0738-00
 ;;9002226.02101,"975,68115-0738-30 ",.01)
 ;;68115-0738-30
 ;;9002226.02101,"975,68115-0738-30 ",.02)
 ;;68115-0738-30
 ;;9002226.02101,"975,68115-0740-00 ",.01)
 ;;68115-0740-00
 ;;9002226.02101,"975,68115-0740-00 ",.02)
 ;;68115-0740-00
 ;;9002226.02101,"975,68115-0740-30 ",.01)
 ;;68115-0740-30
 ;;9002226.02101,"975,68115-0740-30 ",.02)
 ;;68115-0740-30
 ;;9002226.02101,"975,68115-0751-30 ",.01)
 ;;68115-0751-30
 ;;9002226.02101,"975,68115-0751-30 ",.02)
 ;;68115-0751-30
 ;;9002226.02101,"975,68115-0764-00 ",.01)
 ;;68115-0764-00
 ;;9002226.02101,"975,68115-0764-00 ",.02)
 ;;68115-0764-00
 ;;9002226.02101,"975,68115-0765-50 ",.01)
 ;;68115-0765-50
 ;;9002226.02101,"975,68115-0765-50 ",.02)
 ;;68115-0765-50
 ;;9002226.02101,"975,68115-0767-00 ",.01)
 ;;68115-0767-00
 ;;9002226.02101,"975,68115-0767-00 ",.02)
 ;;68115-0767-00
 ;;9002226.02101,"975,68115-0797-00 ",.01)
 ;;68115-0797-00
 ;;9002226.02101,"975,68115-0797-00 ",.02)
 ;;68115-0797-00
 ;;9002226.02101,"975,68115-0798-60 ",.01)
 ;;68115-0798-60
 ;;9002226.02101,"975,68115-0798-60 ",.02)
 ;;68115-0798-60
 ;;9002226.02101,"975,68115-0801-30 ",.01)
 ;;68115-0801-30
 ;;9002226.02101,"975,68115-0801-30 ",.02)
 ;;68115-0801-30
 ;;9002226.02101,"975,68115-0810-15 ",.01)
 ;;68115-0810-15
 ;;9002226.02101,"975,68115-0810-15 ",.02)
 ;;68115-0810-15
 ;;9002226.02101,"975,68115-0810-30 ",.01)
 ;;68115-0810-30
 ;;9002226.02101,"975,68115-0810-30 ",.02)
 ;;68115-0810-30
 ;;9002226.02101,"975,68115-0825-15 ",.01)
 ;;68115-0825-15
 ;;9002226.02101,"975,68115-0825-15 ",.02)
 ;;68115-0825-15
 ;;9002226.02101,"975,68115-0825-30 ",.01)
 ;;68115-0825-30
 ;;9002226.02101,"975,68115-0825-30 ",.02)
 ;;68115-0825-30
 ;;9002226.02101,"975,68115-0831-00 ",.01)
 ;;68115-0831-00
 ;;9002226.02101,"975,68115-0831-00 ",.02)
 ;;68115-0831-00
 ;;9002226.02101,"975,68115-0835-60 ",.01)
 ;;68115-0835-60
 ;;9002226.02101,"975,68115-0835-60 ",.02)
 ;;68115-0835-60
 ;;9002226.02101,"975,68115-0844-00 ",.01)
 ;;68115-0844-00
 ;;9002226.02101,"975,68115-0844-00 ",.02)
 ;;68115-0844-00
 ;;9002226.02101,"975,68115-0847-30 ",.01)
 ;;68115-0847-30
 ;;9002226.02101,"975,68115-0847-30 ",.02)
 ;;68115-0847-30
 ;;9002226.02101,"975,68115-0848-00 ",.01)
 ;;68115-0848-00
 ;;9002226.02101,"975,68115-0848-00 ",.02)
 ;;68115-0848-00
 ;;9002226.02101,"975,68115-0857-00 ",.01)
 ;;68115-0857-00
 ;;9002226.02101,"975,68115-0857-00 ",.02)
 ;;68115-0857-00
 ;;9002226.02101,"975,68115-0859-00 ",.01)
 ;;68115-0859-00
 ;;9002226.02101,"975,68115-0859-00 ",.02)
 ;;68115-0859-00
 ;;9002226.02101,"975,68115-0866-00 ",.01)
 ;;68115-0866-00
 ;;9002226.02101,"975,68115-0866-00 ",.02)
 ;;68115-0866-00
 ;;9002226.02101,"975,68115-0870-00 ",.01)
 ;;68115-0870-00
 ;;9002226.02101,"975,68115-0870-00 ",.02)
 ;;68115-0870-00
 ;;9002226.02101,"975,68115-0878-00 ",.01)
 ;;68115-0878-00
 ;;9002226.02101,"975,68115-0878-00 ",.02)
 ;;68115-0878-00
 ;;9002226.02101,"975,68115-0884-00 ",.01)
 ;;68115-0884-00
 ;;9002226.02101,"975,68115-0884-00 ",.02)
 ;;68115-0884-00
 ;;9002226.02101,"975,68115-0885-60 ",.01)
 ;;68115-0885-60
 ;;9002226.02101,"975,68115-0885-60 ",.02)
 ;;68115-0885-60
 ;;9002226.02101,"975,68115-0901-60 ",.01)
 ;;68115-0901-60
 ;;9002226.02101,"975,68115-0901-60 ",.02)
 ;;68115-0901-60
 ;;9002226.02101,"975,68115-0913-30 ",.01)
 ;;68115-0913-30
 ;;9002226.02101,"975,68115-0913-30 ",.02)
 ;;68115-0913-30
 ;;9002226.02101,"975,68115-0916-30 ",.01)
 ;;68115-0916-30
 ;;9002226.02101,"975,68115-0916-30 ",.02)
 ;;68115-0916-30
 ;;9002226.02101,"975,68115-0919-30 ",.01)
 ;;68115-0919-30
 ;;9002226.02101,"975,68115-0919-30 ",.02)
 ;;68115-0919-30
 ;;9002226.02101,"975,68115-0920-30 ",.01)
 ;;68115-0920-30
 ;;9002226.02101,"975,68115-0920-30 ",.02)
 ;;68115-0920-30
 ;;9002226.02101,"975,68115-0926-60 ",.01)
 ;;68115-0926-60
 ;;9002226.02101,"975,68115-0926-60 ",.02)
 ;;68115-0926-60
 ;;9002226.02101,"975,68115-0929-60 ",.01)
 ;;68115-0929-60
 ;;9002226.02101,"975,68115-0929-60 ",.02)
 ;;68115-0929-60
 ;;9002226.02101,"975,68115-0974-00 ",.01)
 ;;68115-0974-00
 ;;9002226.02101,"975,68115-0974-00 ",.02)
 ;;68115-0974-00
 ;;9002226.02101,"975,68968-2030-01 ",.01)
 ;;68968-2030-01
 ;;9002226.02101,"975,68968-2030-01 ",.02)
 ;;68968-2030-01
 ;;9002226.02101,"975,68968-2040-01 ",.01)
 ;;68968-2040-01
 ;;9002226.02101,"975,68968-2040-01 ",.02)
 ;;68968-2040-01
 ;;
 ;;3148
 ;;
 ;;897
 ;;
 ;;3191
 ;;
 ;;3196
 ;;
 ;;3197
 ;;
 ;;3149
 ;;
 ;;3150
 ;;
 ;;3151
 ;;
 ;;3208
 ;;
 ;;3209
 ;;
 ;;3435
 ;;
 ;;3436
 ;;
 ;;584
 ;;
 ;;583
 ;;
 ;;2440
 ;;
 ;;2091
 ;;
 ;;2092
 ;;
 ;;2093
 ;;
 ;;2094
 ;;
 ;;2096
 ;;
 ;;2097
 ;;
 ;;2098
 ;;
 ;;2095
 ;;
 ;;3314
 ;;
 ;;3315
 ;;
 ;;3316
 ;;
 ;;300
 ;;
 ;;298
 ;;
 ;;299
 ;;
 ;;301
 ;;
 ;;3446
 ;;
 ;;3447
 ;;
 ;;3448
 ;;
 ;;3449
 ;;
 ;;3450
 ;;
 ;;3451
 ;;
 ;;3453
 ;;
 ;;3452
 ;;
 ;;296
 ;;
 ;;261
 ;;
 ;;262
 ;;
 ;;263
 ;;
 ;;1223
 ;;
 ;;1224
 ;;
 ;;302
 ;;
 ;;1084
 ;;
 ;;2089
 ;;
 ;;2090
 ;;
 ;;535
 ;;
 ;;536
 ;;
 ;;571
 ;;
 ;;572