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

BGP82Z77.m

Go to the documentation of this file.
BGP82Z77 ; 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,68084-0373-11 ",.02)
 ;;68084-0373-11
 ;;9002226.02101,"619,68084-0378-01 ",.01)
 ;;68084-0378-01
 ;;9002226.02101,"619,68084-0378-01 ",.02)
 ;;68084-0378-01
 ;;9002226.02101,"619,68084-0378-11 ",.01)
 ;;68084-0378-11
 ;;9002226.02101,"619,68084-0378-11 ",.02)
 ;;68084-0378-11
 ;;9002226.02101,"619,68084-0379-01 ",.01)
 ;;68084-0379-01
 ;;9002226.02101,"619,68084-0379-01 ",.02)
 ;;68084-0379-01
 ;;9002226.02101,"619,68084-0379-11 ",.01)
 ;;68084-0379-11
 ;;9002226.02101,"619,68084-0379-11 ",.02)
 ;;68084-0379-11
 ;;9002226.02101,"619,68084-0403-01 ",.01)
 ;;68084-0403-01
 ;;9002226.02101,"619,68084-0403-01 ",.02)
 ;;68084-0403-01
 ;;9002226.02101,"619,68084-0403-11 ",.01)
 ;;68084-0403-11
 ;;9002226.02101,"619,68084-0403-11 ",.02)
 ;;68084-0403-11
 ;;9002226.02101,"619,68084-0404-01 ",.01)
 ;;68084-0404-01
 ;;9002226.02101,"619,68084-0404-01 ",.02)
 ;;68084-0404-01
 ;;9002226.02101,"619,68084-0404-11 ",.01)
 ;;68084-0404-11
 ;;9002226.02101,"619,68084-0404-11 ",.02)
 ;;68084-0404-11
 ;;9002226.02101,"619,68084-0405-01 ",.01)
 ;;68084-0405-01
 ;;9002226.02101,"619,68084-0405-01 ",.02)
 ;;68084-0405-01
 ;;9002226.02101,"619,68084-0405-11 ",.01)
 ;;68084-0405-11
 ;;9002226.02101,"619,68084-0405-11 ",.02)
 ;;68084-0405-11
 ;;9002226.02101,"619,68084-0406-01 ",.01)
 ;;68084-0406-01
 ;;9002226.02101,"619,68084-0406-01 ",.02)
 ;;68084-0406-01
 ;;9002226.02101,"619,68084-0406-11 ",.01)
 ;;68084-0406-11
 ;;9002226.02101,"619,68084-0406-11 ",.02)
 ;;68084-0406-11
 ;;9002226.02101,"619,68084-0423-01 ",.01)
 ;;68084-0423-01
 ;;9002226.02101,"619,68084-0423-01 ",.02)
 ;;68084-0423-01
 ;;9002226.02101,"619,68084-0423-11 ",.01)
 ;;68084-0423-11
 ;;9002226.02101,"619,68084-0423-11 ",.02)
 ;;68084-0423-11
 ;;9002226.02101,"619,68084-0472-01 ",.01)
 ;;68084-0472-01
 ;;9002226.02101,"619,68084-0472-01 ",.02)
 ;;68084-0472-01
 ;;9002226.02101,"619,68084-0472-11 ",.01)
 ;;68084-0472-11
 ;;9002226.02101,"619,68084-0472-11 ",.02)
 ;;68084-0472-11
 ;;9002226.02101,"619,68084-0601-01 ",.01)
 ;;68084-0601-01
 ;;9002226.02101,"619,68084-0601-01 ",.02)
 ;;68084-0601-01
 ;;9002226.02101,"619,68084-0601-11 ",.01)
 ;;68084-0601-11
 ;;9002226.02101,"619,68084-0601-11 ",.02)
 ;;68084-0601-11
 ;;9002226.02101,"619,68084-0699-01 ",.01)
 ;;68084-0699-01
 ;;9002226.02101,"619,68084-0699-01 ",.02)
 ;;68084-0699-01
 ;;9002226.02101,"619,68084-0699-11 ",.01)
 ;;68084-0699-11
 ;;9002226.02101,"619,68084-0699-11 ",.02)
 ;;68084-0699-11
 ;;9002226.02101,"619,68084-0710-01 ",.01)
 ;;68084-0710-01
 ;;9002226.02101,"619,68084-0710-01 ",.02)
 ;;68084-0710-01
 ;;9002226.02101,"619,68084-0710-11 ",.01)
 ;;68084-0710-11
 ;;9002226.02101,"619,68084-0710-11 ",.02)
 ;;68084-0710-11
 ;;9002226.02101,"619,68084-0738-01 ",.01)
 ;;68084-0738-01
 ;;9002226.02101,"619,68084-0738-01 ",.02)
 ;;68084-0738-01
 ;;9002226.02101,"619,68084-0738-11 ",.01)
 ;;68084-0738-11
 ;;9002226.02101,"619,68084-0738-11 ",.02)
 ;;68084-0738-11
 ;;9002226.02101,"619,68084-0796-25 ",.01)
 ;;68084-0796-25
 ;;9002226.02101,"619,68084-0796-25 ",.02)
 ;;68084-0796-25
 ;;9002226.02101,"619,68084-0796-95 ",.01)
 ;;68084-0796-95
 ;;9002226.02101,"619,68084-0796-95 ",.02)
 ;;68084-0796-95
 ;;9002226.02101,"619,68084-0798-11 ",.01)
 ;;68084-0798-11
 ;;9002226.02101,"619,68084-0798-11 ",.02)
 ;;68084-0798-11
 ;;9002226.02101,"619,68084-0798-21 ",.01)
 ;;68084-0798-21
 ;;9002226.02101,"619,68084-0798-21 ",.02)
 ;;68084-0798-21
 ;;9002226.02101,"619,68084-0808-01 ",.01)
 ;;68084-0808-01
 ;;9002226.02101,"619,68084-0808-01 ",.02)
 ;;68084-0808-01
 ;;9002226.02101,"619,68084-0808-11 ",.01)
 ;;68084-0808-11
 ;;9002226.02101,"619,68084-0808-11 ",.02)
 ;;68084-0808-11
 ;;9002226.02101,"619,68084-0825-01 ",.01)
 ;;68084-0825-01
 ;;9002226.02101,"619,68084-0825-01 ",.02)
 ;;68084-0825-01
 ;;9002226.02101,"619,68084-0825-11 ",.01)
 ;;68084-0825-11
 ;;9002226.02101,"619,68084-0825-11 ",.02)
 ;;68084-0825-11
 ;;9002226.02101,"619,68084-0828-11 ",.01)
 ;;68084-0828-11
 ;;9002226.02101,"619,68084-0828-11 ",.02)
 ;;68084-0828-11
 ;;9002226.02101,"619,68084-0828-21 ",.01)
 ;;68084-0828-21
 ;;9002226.02101,"619,68084-0828-21 ",.02)
 ;;68084-0828-21
 ;;9002226.02101,"619,68084-0841-01 ",.01)
 ;;68084-0841-01
 ;;9002226.02101,"619,68084-0841-01 ",.02)
 ;;68084-0841-01
 ;;9002226.02101,"619,68084-0841-09 ",.01)
 ;;68084-0841-09
 ;;9002226.02101,"619,68084-0841-09 ",.02)
 ;;68084-0841-09
 ;;9002226.02101,"619,68084-0841-11 ",.01)
 ;;68084-0841-11
 ;;9002226.02101,"619,68084-0841-11 ",.02)
 ;;68084-0841-11
 ;;9002226.02101,"619,68084-0852-25 ",.01)
 ;;68084-0852-25
 ;;9002226.02101,"619,68084-0852-25 ",.02)
 ;;68084-0852-25
 ;;9002226.02101,"619,68084-0852-95 ",.01)
 ;;68084-0852-95
 ;;9002226.02101,"619,68084-0852-95 ",.02)
 ;;68084-0852-95
 ;;9002226.02101,"619,68084-0863-01 ",.01)
 ;;68084-0863-01
 ;;9002226.02101,"619,68084-0863-01 ",.02)
 ;;68084-0863-01
 ;;9002226.02101,"619,68084-0863-09 ",.01)
 ;;68084-0863-09
 ;;9002226.02101,"619,68084-0863-09 ",.02)
 ;;68084-0863-09
 ;;9002226.02101,"619,68084-0863-11 ",.01)
 ;;68084-0863-11
 ;;9002226.02101,"619,68084-0863-11 ",.02)
 ;;68084-0863-11
 ;;9002226.02101,"619,68084-0884-01 ",.01)
 ;;68084-0884-01
 ;;9002226.02101,"619,68084-0884-01 ",.02)
 ;;68084-0884-01
 ;;9002226.02101,"619,68084-0884-09 ",.01)
 ;;68084-0884-09
 ;;9002226.02101,"619,68084-0884-09 ",.02)
 ;;68084-0884-09
 ;;9002226.02101,"619,68084-0884-11 ",.01)
 ;;68084-0884-11
 ;;9002226.02101,"619,68084-0884-11 ",.02)
 ;;68084-0884-11
 ;;9002226.02101,"619,68084-0895-01 ",.01)
 ;;68084-0895-01
 ;;9002226.02101,"619,68084-0895-01 ",.02)
 ;;68084-0895-01
 ;;9002226.02101,"619,68084-0895-09 ",.01)
 ;;68084-0895-09
 ;;9002226.02101,"619,68084-0895-09 ",.02)
 ;;68084-0895-09
 ;;9002226.02101,"619,68084-0895-11 ",.01)
 ;;68084-0895-11
 ;;9002226.02101,"619,68084-0895-11 ",.02)
 ;;68084-0895-11
 ;;9002226.02101,"619,68084-0963-11 ",.01)
 ;;68084-0963-11
 ;;9002226.02101,"619,68084-0963-11 ",.02)
 ;;68084-0963-11
 ;;9002226.02101,"619,68084-0963-21 ",.01)
 ;;68084-0963-21
 ;;9002226.02101,"619,68084-0963-21 ",.02)
 ;;68084-0963-21
 ;;9002226.02101,"619,68084-0977-32 ",.01)
 ;;68084-0977-32
 ;;9002226.02101,"619,68084-0977-32 ",.02)
 ;;68084-0977-32
 ;;9002226.02101,"619,68084-0977-33 ",.01)
 ;;68084-0977-33
 ;;9002226.02101,"619,68084-0977-33 ",.02)
 ;;68084-0977-33
 ;;9002226.02101,"619,68084-0990-11 ",.01)
 ;;68084-0990-11
 ;;9002226.02101,"619,68084-0990-11 ",.02)
 ;;68084-0990-11
 ;;9002226.02101,"619,68084-0990-21 ",.01)
 ;;68084-0990-21
 ;;9002226.02101,"619,68084-0990-21 ",.02)
 ;;68084-0990-21
 ;;9002226.02101,"619,68094-0001-59 ",.01)
 ;;68094-0001-59
 ;;9002226.02101,"619,68094-0001-59 ",.02)
 ;;68094-0001-59
 ;;9002226.02101,"619,68094-0001-62 ",.01)
 ;;68094-0001-62
 ;;9002226.02101,"619,68094-0001-62 ",.02)
 ;;68094-0001-62
 ;;9002226.02101,"619,68094-0005-59 ",.01)
 ;;68094-0005-59
 ;;9002226.02101,"619,68094-0005-59 ",.02)
 ;;68094-0005-59
 ;;9002226.02101,"619,68094-0005-61 ",.01)
 ;;68094-0005-61
 ;;9002226.02101,"619,68094-0005-61 ",.02)
 ;;68094-0005-61
 ;;9002226.02101,"619,68094-0006-59 ",.01)
 ;;68094-0006-59
 ;;9002226.02101,"619,68094-0006-59 ",.02)
 ;;68094-0006-59
 ;;9002226.02101,"619,68094-0006-61 ",.01)
 ;;68094-0006-61
 ;;9002226.02101,"619,68094-0006-61 ",.02)
 ;;68094-0006-61
 ;;9002226.02101,"619,68094-0714-59 ",.01)
 ;;68094-0714-59
 ;;9002226.02101,"619,68094-0714-59 ",.02)
 ;;68094-0714-59
 ;;9002226.02101,"619,68094-0714-62 ",.01)
 ;;68094-0714-62
 ;;9002226.02101,"619,68094-0714-62 ",.02)
 ;;68094-0714-62
 ;;9002226.02101,"619,68094-0754-01 ",.01)
 ;;68094-0754-01
 ;;9002226.02101,"619,68094-0754-01 ",.02)
 ;;68094-0754-01
 ;;9002226.02101,"619,68094-0754-58 ",.01)
 ;;68094-0754-58
 ;;9002226.02101,"619,68094-0754-58 ",.02)
 ;;68094-0754-58
 ;;9002226.02101,"619,68094-0755-01 ",.01)
 ;;68094-0755-01
 ;;9002226.02101,"619,68094-0755-01 ",.02)
 ;;68094-0755-01
 ;;9002226.02101,"619,68094-0755-58 ",.01)
 ;;68094-0755-58
 ;;9002226.02101,"619,68094-0755-58 ",.02)
 ;;68094-0755-58
 ;;9002226.02101,"619,68094-0760-59 ",.01)
 ;;68094-0760-59
 ;;9002226.02101,"619,68094-0760-59 ",.02)
 ;;68094-0760-59
 ;;9002226.02101,"619,68094-0760-62 ",.01)
 ;;68094-0760-62
 ;;9002226.02101,"619,68094-0760-62 ",.02)
 ;;68094-0760-62
 ;;9002226.02101,"619,68094-0761-59 ",.01)
 ;;68094-0761-59
 ;;9002226.02101,"619,68094-0761-59 ",.02)
 ;;68094-0761-59
 ;;9002226.02101,"619,68094-0761-62 ",.01)
 ;;68094-0761-62
 ;;9002226.02101,"619,68094-0761-62 ",.02)
 ;;68094-0761-62
 ;;9002226.02101,"619,68094-0801-01 ",.01)
 ;;68094-0801-01
 ;;9002226.02101,"619,68094-0801-01 ",.02)
 ;;68094-0801-01
 ;;9002226.02101,"619,68094-0801-58 ",.01)
 ;;68094-0801-58
 ;;9002226.02101,"619,68094-0801-58 ",.02)
 ;;68094-0801-58
 ;;9002226.02101,"619,68094-0852-61 ",.01)
 ;;68094-0852-61
 ;;9002226.02101,"619,68094-0852-61 ",.02)
 ;;68094-0852-61
 ;;9002226.02101,"619,68180-0383-06 ",.01)
 ;;68180-0383-06
 ;;9002226.02101,"619,68180-0383-06 ",.02)
 ;;68180-0383-06
 ;;9002226.02101,"619,68180-0384-06 ",.01)
 ;;68180-0384-06
 ;;9002226.02101,"619,68180-0384-06 ",.02)
 ;;68180-0384-06
 ;;9002226.02101,"619,68180-0385-06 ",.01)
 ;;68180-0385-06
 ;;9002226.02101,"619,68180-0385-06 ",.02)
 ;;68180-0385-06
 ;;9002226.02101,"619,68180-0697-06 ",.01)
 ;;68180-0697-06
 ;;9002226.02101,"619,68180-0697-06 ",.02)
 ;;68180-0697-06
 ;;9002226.02101,"619,68180-0698-06 ",.01)
 ;;68180-0698-06
 ;;9002226.02101,"619,68180-0698-06 ",.02)
 ;;68180-0698-06
 ;;9002226.02101,"619,68180-0699-06 ",.01)
 ;;68180-0699-06
 ;;9002226.02101,"619,68180-0699-06 ",.02)
 ;;68180-0699-06
 ;;9002226.02101,"619,68258-2003-03 ",.01)
 ;;68258-2003-03
 ;;9002226.02101,"619,68258-2003-03 ",.02)
 ;;68258-2003-03
 ;;9002226.02101,"619,68258-2012-09 ",.01)
 ;;68258-2012-09
 ;;9002226.02101,"619,68258-2012-09 ",.02)
 ;;68258-2012-09
 ;;9002226.02101,"619,68258-3023-01 ",.01)
 ;;68258-3023-01
 ;;9002226.02101,"619,68258-3023-01 ",.02)
 ;;68258-3023-01
 ;;9002226.02101,"619,68258-3024-01 ",.01)
 ;;68258-3024-01
 ;;9002226.02101,"619,68258-3024-01 ",.02)
 ;;68258-3024-01
 ;;9002226.02101,"619,68258-3025-01 ",.01)
 ;;68258-3025-01
 ;;9002226.02101,"619,68258-3025-01 ",.02)
 ;;68258-3025-01
 ;;9002226.02101,"619,68258-3040-01 ",.01)
 ;;68258-3040-01
 ;;9002226.02101,"619,68258-3040-01 ",.02)
 ;;68258-3040-01
 ;;9002226.02101,"619,68308-0020-03 ",.01)
 ;;68308-0020-03
 ;;9002226.02101,"619,68308-0020-03 ",.02)
 ;;68308-0020-03
 ;;9002226.02101,"619,68308-0108-01 ",.01)
 ;;68308-0108-01
 ;;9002226.02101,"619,68308-0108-01 ",.02)
 ;;68308-0108-01
 ;;9002226.02101,"619,68308-0111-01 ",.01)
 ;;68308-0111-01
 ;;9002226.02101,"619,68308-0111-01 ",.02)
 ;;68308-0111-01
 ;;9002226.02101,"619,68308-0112-01 ",.01)
 ;;68308-0112-01
 ;;9002226.02101,"619,68308-0112-01 ",.02)
 ;;68308-0112-01
 ;;9002226.02101,"619,68308-0145-01 ",.01)
 ;;68308-0145-01
 ;;9002226.02101,"619,68308-0145-01 ",.02)
 ;;68308-0145-01
 ;;9002226.02101,"619,68308-0221-01 ",.01)
 ;;68308-0221-01
 ;;9002226.02101,"619,68308-0221-01 ",.02)
 ;;68308-0221-01
 ;;9002226.02101,"619,68308-0222-01 ",.01)
 ;;68308-0222-01
 ;;9002226.02101,"619,68308-0222-01 ",.02)
 ;;68308-0222-01
 ;;9002226.02101,"619,68308-0223-01 ",.01)
 ;;68308-0223-01
 ;;9002226.02101,"619,68308-0223-01 ",.02)
 ;;68308-0223-01
 ;;9002226.02101,"619,68308-0224-01 ",.01)
 ;;68308-0224-01
 ;;9002226.02101,"619,68308-0224-01 ",.02)
 ;;68308-0224-01
 ;;9002226.02101,"619,68308-0225-01 ",.01)
 ;;68308-0225-01
 ;;9002226.02101,"619,68308-0225-01 ",.02)
 ;;68308-0225-01
 ;;9002226.02101,"619,68308-0226-01 ",.01)
 ;;68308-0226-01