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

BGP82Z61.m

Go to the documentation of this file.
BGP82Z61 ; 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,60429-0509-60 ",.02)
 ;;60429-0509-60
 ;;9002226.02101,"619,60429-0509-90 ",.01)
 ;;60429-0509-90
 ;;9002226.02101,"619,60429-0509-90 ",.02)
 ;;60429-0509-90
 ;;9002226.02101,"619,60429-0510-01 ",.01)
 ;;60429-0510-01
 ;;9002226.02101,"619,60429-0510-01 ",.02)
 ;;60429-0510-01
 ;;9002226.02101,"619,60429-0510-12 ",.01)
 ;;60429-0510-12
 ;;9002226.02101,"619,60429-0510-12 ",.02)
 ;;60429-0510-12
 ;;9002226.02101,"619,60429-0510-18 ",.01)
 ;;60429-0510-18
 ;;9002226.02101,"619,60429-0510-18 ",.02)
 ;;60429-0510-18
 ;;9002226.02101,"619,60429-0510-24 ",.01)
 ;;60429-0510-24
 ;;9002226.02101,"619,60429-0510-24 ",.02)
 ;;60429-0510-24
 ;;9002226.02101,"619,60429-0510-30 ",.01)
 ;;60429-0510-30
 ;;9002226.02101,"619,60429-0510-30 ",.02)
 ;;60429-0510-30
 ;;9002226.02101,"619,60429-0510-60 ",.01)
 ;;60429-0510-60
 ;;9002226.02101,"619,60429-0510-60 ",.02)
 ;;60429-0510-60
 ;;9002226.02101,"619,60429-0510-90 ",.01)
 ;;60429-0510-90
 ;;9002226.02101,"619,60429-0510-90 ",.02)
 ;;60429-0510-90
 ;;9002226.02101,"619,60429-0516-01 ",.01)
 ;;60429-0516-01
 ;;9002226.02101,"619,60429-0516-01 ",.02)
 ;;60429-0516-01
 ;;9002226.02101,"619,60429-0517-01 ",.01)
 ;;60429-0517-01
 ;;9002226.02101,"619,60429-0517-01 ",.02)
 ;;60429-0517-01
 ;;9002226.02101,"619,60429-0519-01 ",.01)
 ;;60429-0519-01
 ;;9002226.02101,"619,60429-0519-01 ",.02)
 ;;60429-0519-01
 ;;9002226.02101,"619,60429-0520-01 ",.01)
 ;;60429-0520-01
 ;;9002226.02101,"619,60429-0520-01 ",.02)
 ;;60429-0520-01
 ;;9002226.02101,"619,60429-0521-01 ",.01)
 ;;60429-0521-01
 ;;9002226.02101,"619,60429-0521-01 ",.02)
 ;;60429-0521-01
 ;;9002226.02101,"619,60429-0534-01 ",.01)
 ;;60429-0534-01
 ;;9002226.02101,"619,60429-0534-01 ",.02)
 ;;60429-0534-01
 ;;9002226.02101,"619,60429-0535-01 ",.01)
 ;;60429-0535-01
 ;;9002226.02101,"619,60429-0535-01 ",.02)
 ;;60429-0535-01
 ;;9002226.02101,"619,60429-0570-01 ",.01)
 ;;60429-0570-01
 ;;9002226.02101,"619,60429-0570-01 ",.02)
 ;;60429-0570-01
 ;;9002226.02101,"619,60429-0572-01 ",.01)
 ;;60429-0572-01
 ;;9002226.02101,"619,60429-0572-01 ",.02)
 ;;60429-0572-01
 ;;9002226.02101,"619,60429-0572-05 ",.01)
 ;;60429-0572-05
 ;;9002226.02101,"619,60429-0572-05 ",.02)
 ;;60429-0572-05
 ;;9002226.02101,"619,60429-0572-12 ",.01)
 ;;60429-0572-12
 ;;9002226.02101,"619,60429-0572-12 ",.02)
 ;;60429-0572-12
 ;;9002226.02101,"619,60429-0572-18 ",.01)
 ;;60429-0572-18
 ;;9002226.02101,"619,60429-0572-18 ",.02)
 ;;60429-0572-18
 ;;9002226.02101,"619,60429-0572-30 ",.01)
 ;;60429-0572-30
 ;;9002226.02101,"619,60429-0572-30 ",.02)
 ;;60429-0572-30
 ;;9002226.02101,"619,60429-0572-60 ",.01)
 ;;60429-0572-60
 ;;9002226.02101,"619,60429-0572-60 ",.02)
 ;;60429-0572-60
 ;;9002226.02101,"619,60429-0572-90 ",.01)
 ;;60429-0572-90
 ;;9002226.02101,"619,60429-0572-90 ",.02)
 ;;60429-0572-90
 ;;9002226.02101,"619,60429-0573-01 ",.01)
 ;;60429-0573-01
 ;;9002226.02101,"619,60429-0573-01 ",.02)
 ;;60429-0573-01
 ;;9002226.02101,"619,60429-0573-05 ",.01)
 ;;60429-0573-05
 ;;9002226.02101,"619,60429-0573-05 ",.02)
 ;;60429-0573-05
 ;;9002226.02101,"619,60429-0573-12 ",.01)
 ;;60429-0573-12
 ;;9002226.02101,"619,60429-0573-12 ",.02)
 ;;60429-0573-12
 ;;9002226.02101,"619,60429-0573-18 ",.01)
 ;;60429-0573-18
 ;;9002226.02101,"619,60429-0573-18 ",.02)
 ;;60429-0573-18
 ;;9002226.02101,"619,60429-0573-30 ",.01)
 ;;60429-0573-30
 ;;9002226.02101,"619,60429-0573-30 ",.02)
 ;;60429-0573-30
 ;;9002226.02101,"619,60429-0573-60 ",.01)
 ;;60429-0573-60
 ;;9002226.02101,"619,60429-0573-60 ",.02)
 ;;60429-0573-60
 ;;9002226.02101,"619,60429-0573-90 ",.01)
 ;;60429-0573-90
 ;;9002226.02101,"619,60429-0573-90 ",.02)
 ;;60429-0573-90
 ;;9002226.02101,"619,60429-0574-01 ",.01)
 ;;60429-0574-01
 ;;9002226.02101,"619,60429-0574-01 ",.02)
 ;;60429-0574-01
 ;;9002226.02101,"619,60429-0574-12 ",.01)
 ;;60429-0574-12
 ;;9002226.02101,"619,60429-0574-12 ",.02)
 ;;60429-0574-12
 ;;9002226.02101,"619,60429-0574-18 ",.01)
 ;;60429-0574-18
 ;;9002226.02101,"619,60429-0574-18 ",.02)
 ;;60429-0574-18
 ;;9002226.02101,"619,60429-0574-60 ",.01)
 ;;60429-0574-60
 ;;9002226.02101,"619,60429-0574-60 ",.02)
 ;;60429-0574-60
 ;;9002226.02101,"619,60429-0574-90 ",.01)
 ;;60429-0574-90
 ;;9002226.02101,"619,60429-0574-90 ",.02)
 ;;60429-0574-90
 ;;9002226.02101,"619,60429-0583-30 ",.01)
 ;;60429-0583-30
 ;;9002226.02101,"619,60429-0583-30 ",.02)
 ;;60429-0583-30
 ;;9002226.02101,"619,60429-0584-30 ",.01)
 ;;60429-0584-30
 ;;9002226.02101,"619,60429-0584-30 ",.02)
 ;;60429-0584-30
 ;;9002226.02101,"619,60429-0585-30 ",.01)
 ;;60429-0585-30
 ;;9002226.02101,"619,60429-0585-30 ",.02)
 ;;60429-0585-30
 ;;9002226.02101,"619,60432-0245-04 ",.01)
 ;;60432-0245-04
 ;;9002226.02101,"619,60432-0245-04 ",.02)
 ;;60432-0245-04
 ;;9002226.02101,"619,60432-0245-16 ",.01)
 ;;60432-0245-16
 ;;9002226.02101,"619,60432-0245-16 ",.02)
 ;;60432-0245-16
 ;;9002226.02101,"619,60432-0455-16 ",.01)
 ;;60432-0455-16
 ;;9002226.02101,"619,60432-0455-16 ",.02)
 ;;60432-0455-16
 ;;9002226.02101,"619,60432-0606-04 ",.01)
 ;;60432-0606-04
 ;;9002226.02101,"619,60432-0606-04 ",.02)
 ;;60432-0606-04
 ;;9002226.02101,"619,60432-0606-16 ",.01)
 ;;60432-0606-16
 ;;9002226.02101,"619,60432-0606-16 ",.02)
 ;;60432-0606-16
 ;;9002226.02101,"619,60432-0706-05 ",.01)
 ;;60432-0706-05
 ;;9002226.02101,"619,60432-0706-05 ",.02)
 ;;60432-0706-05
 ;;9002226.02101,"619,60505-0171-01 ",.01)
 ;;60505-0171-01
 ;;9002226.02101,"619,60505-0171-01 ",.02)
 ;;60505-0171-01
 ;;9002226.02101,"619,60505-0171-02 ",.01)
 ;;60505-0171-02
 ;;9002226.02101,"619,60505-0171-02 ",.02)
 ;;60505-0171-02
 ;;9002226.02101,"619,60505-0171-05 ",.01)
 ;;60505-0171-05
 ;;9002226.02101,"619,60505-0171-05 ",.02)
 ;;60505-0171-05
 ;;9002226.02101,"619,60505-0171-08 ",.01)
 ;;60505-0171-08
 ;;9002226.02101,"619,60505-0171-08 ",.02)
 ;;60505-0171-08
 ;;9002226.02101,"619,60505-0813-01 ",.01)
 ;;60505-0813-01
 ;;9002226.02101,"619,60505-0813-01 ",.02)
 ;;60505-0813-01
 ;;9002226.02101,"619,60505-2644-01 ",.01)
 ;;60505-2644-01
 ;;9002226.02101,"619,60505-2644-01 ",.02)
 ;;60505-2644-01
 ;;9002226.02101,"619,60505-2644-05 ",.01)
 ;;60505-2644-05
 ;;9002226.02101,"619,60505-2644-05 ",.02)
 ;;60505-2644-05
 ;;9002226.02101,"619,60505-7001-00 ",.01)
 ;;60505-7001-00
 ;;9002226.02101,"619,60505-7001-00 ",.02)
 ;;60505-7001-00
 ;;9002226.02101,"619,60505-7001-02 ",.01)
 ;;60505-7001-02
 ;;9002226.02101,"619,60505-7001-02 ",.02)
 ;;60505-7001-02
 ;;9002226.02101,"619,60505-7002-00 ",.01)
 ;;60505-7002-00
 ;;9002226.02101,"619,60505-7002-00 ",.02)
 ;;60505-7002-00
 ;;9002226.02101,"619,60505-7002-02 ",.01)
 ;;60505-7002-02
 ;;9002226.02101,"619,60505-7002-02 ",.02)
 ;;60505-7002-02
 ;;9002226.02101,"619,60505-7003-00 ",.01)
 ;;60505-7003-00
 ;;9002226.02101,"619,60505-7003-00 ",.02)
 ;;60505-7003-00
 ;;9002226.02101,"619,60505-7003-02 ",.01)
 ;;60505-7003-02
 ;;9002226.02101,"619,60505-7003-02 ",.02)
 ;;60505-7003-02
 ;;9002226.02101,"619,60505-7004-00 ",.01)
 ;;60505-7004-00
 ;;9002226.02101,"619,60505-7004-00 ",.02)
 ;;60505-7004-00
 ;;9002226.02101,"619,60505-7004-02 ",.01)
 ;;60505-7004-02
 ;;9002226.02101,"619,60505-7004-02 ",.02)
 ;;60505-7004-02
 ;;9002226.02101,"619,60505-7006-00 ",.01)
 ;;60505-7006-00
 ;;9002226.02101,"619,60505-7006-00 ",.02)
 ;;60505-7006-00
 ;;9002226.02101,"619,60505-7006-02 ",.01)
 ;;60505-7006-02
 ;;9002226.02101,"619,60505-7006-02 ",.02)
 ;;60505-7006-02
 ;;9002226.02101,"619,60505-7007-00 ",.01)
 ;;60505-7007-00
 ;;9002226.02101,"619,60505-7007-00 ",.02)
 ;;60505-7007-00
 ;;9002226.02101,"619,60505-7007-02 ",.01)
 ;;60505-7007-02
 ;;9002226.02101,"619,60505-7007-02 ",.02)
 ;;60505-7007-02
 ;;9002226.02101,"619,60505-7008-00 ",.01)
 ;;60505-7008-00
 ;;9002226.02101,"619,60505-7008-00 ",.02)
 ;;60505-7008-00
 ;;9002226.02101,"619,60505-7008-02 ",.01)
 ;;60505-7008-02
 ;;9002226.02101,"619,60505-7008-02 ",.02)
 ;;60505-7008-02
 ;;9002226.02101,"619,60505-7009-00 ",.01)
 ;;60505-7009-00
 ;;9002226.02101,"619,60505-7009-00 ",.02)
 ;;60505-7009-00
 ;;9002226.02101,"619,60505-7009-02 ",.01)
 ;;60505-7009-02
 ;;9002226.02101,"619,60505-7009-02 ",.02)
 ;;60505-7009-02
 ;;9002226.02101,"619,60505-7010-00 ",.01)
 ;;60505-7010-00
 ;;9002226.02101,"619,60505-7010-00 ",.02)
 ;;60505-7010-00
 ;;9002226.02101,"619,60505-7010-02 ",.01)
 ;;60505-7010-02
 ;;9002226.02101,"619,60505-7010-02 ",.02)
 ;;60505-7010-02
 ;;9002226.02101,"619,60505-7011-00 ",.01)
 ;;60505-7011-00
 ;;9002226.02101,"619,60505-7011-00 ",.02)
 ;;60505-7011-00
 ;;9002226.02101,"619,60505-7011-02 ",.01)
 ;;60505-7011-02
 ;;9002226.02101,"619,60505-7011-02 ",.02)
 ;;60505-7011-02
 ;;9002226.02101,"619,60505-7012-00 ",.01)
 ;;60505-7012-00
 ;;9002226.02101,"619,60505-7012-00 ",.02)
 ;;60505-7012-00
 ;;9002226.02101,"619,60505-7012-02 ",.01)
 ;;60505-7012-02
 ;;9002226.02101,"619,60505-7012-02 ",.02)
 ;;60505-7012-02
 ;;9002226.02101,"619,60505-7013-00 ",.01)
 ;;60505-7013-00
 ;;9002226.02101,"619,60505-7013-00 ",.02)
 ;;60505-7013-00
 ;;9002226.02101,"619,60505-7013-02 ",.01)
 ;;60505-7013-02
 ;;9002226.02101,"619,60505-7013-02 ",.02)
 ;;60505-7013-02
 ;;9002226.02101,"619,60505-7014-00 ",.01)
 ;;60505-7014-00
 ;;9002226.02101,"619,60505-7014-00 ",.02)
 ;;60505-7014-00
 ;;9002226.02101,"619,60505-7014-02 ",.01)
 ;;60505-7014-02
 ;;9002226.02101,"619,60505-7014-02 ",.02)
 ;;60505-7014-02
 ;;9002226.02101,"619,60575-0212-16 ",.01)
 ;;60575-0212-16
 ;;9002226.02101,"619,60575-0212-16 ",.02)
 ;;60575-0212-16
 ;;9002226.02101,"619,60687-0116-11 ",.01)
 ;;60687-0116-11
 ;;9002226.02101,"619,60687-0116-11 ",.02)
 ;;60687-0116-11
 ;;9002226.02101,"619,60687-0116-21 ",.01)
 ;;60687-0116-21
 ;;9002226.02101,"619,60687-0116-21 ",.02)
 ;;60687-0116-21
 ;;9002226.02101,"619,60687-0148-11 ",.01)
 ;;60687-0148-11
 ;;9002226.02101,"619,60687-0148-11 ",.02)
 ;;60687-0148-11
 ;;9002226.02101,"619,60687-0148-21 ",.01)
 ;;60687-0148-21
 ;;9002226.02101,"619,60687-0148-21 ",.02)
 ;;60687-0148-21
 ;;9002226.02101,"619,60687-0209-32 ",.01)
 ;;60687-0209-32
 ;;9002226.02101,"619,60687-0209-32 ",.02)
 ;;60687-0209-32
 ;;9002226.02101,"619,60687-0209-33 ",.01)
 ;;60687-0209-33
 ;;9002226.02101,"619,60687-0209-33 ",.02)
 ;;60687-0209-33
 ;;9002226.02101,"619,60687-0214-01 ",.01)
 ;;60687-0214-01
 ;;9002226.02101,"619,60687-0214-01 ",.02)
 ;;60687-0214-01
 ;;9002226.02101,"619,60687-0214-11 ",.01)
 ;;60687-0214-11
 ;;9002226.02101,"619,60687-0214-11 ",.02)
 ;;60687-0214-11
 ;;9002226.02101,"619,60760-0022-15 ",.01)
 ;;60760-0022-15
 ;;9002226.02101,"619,60760-0022-15 ",.02)
 ;;60760-0022-15
 ;;9002226.02101,"619,60760-0022-30 ",.01)
 ;;60760-0022-30
 ;;9002226.02101,"619,60760-0022-30 ",.02)
 ;;60760-0022-30
 ;;9002226.02101,"619,60760-0022-90 ",.01)
 ;;60760-0022-90
 ;;9002226.02101,"619,60760-0022-90 ",.02)
 ;;60760-0022-90
 ;;9002226.02101,"619,60760-0032-15 ",.01)
 ;;60760-0032-15
 ;;9002226.02101,"619,60760-0032-15 ",.02)
 ;;60760-0032-15
 ;;9002226.02101,"619,60760-0032-30 ",.01)
 ;;60760-0032-30
 ;;9002226.02101,"619,60760-0032-30 ",.02)
 ;;60760-0032-30
 ;;9002226.02101,"619,60760-0032-40 ",.01)
 ;;60760-0032-40
 ;;9002226.02101,"619,60760-0032-40 ",.02)
 ;;60760-0032-40
 ;;9002226.02101,"619,60760-0032-60 ",.01)
 ;;60760-0032-60
 ;;9002226.02101,"619,60760-0032-60 ",.02)
 ;;60760-0032-60
 ;;9002226.02101,"619,60760-0032-90 ",.01)
 ;;60760-0032-90
 ;;9002226.02101,"619,60760-0032-90 ",.02)
 ;;60760-0032-90
 ;;9002226.02101,"619,60760-0049-60 ",.01)
 ;;60760-0049-60
 ;;9002226.02101,"619,60760-0049-60 ",.02)
 ;;60760-0049-60
 ;;9002226.02101,"619,60760-0049-90 ",.01)
 ;;60760-0049-90