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

BGP2VF41.m

Go to the documentation of this file.
BGP2VF41 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"798,55289-0610-90 ",.01)
 ;;55289-0610-90
 ;;9002226.02101,"798,55289-0610-90 ",.02)
 ;;55289-0610-90
 ;;9002226.02101,"798,55289-0613-14 ",.01)
 ;;55289-0613-14
 ;;9002226.02101,"798,55289-0613-14 ",.02)
 ;;55289-0613-14
 ;;9002226.02101,"798,55289-0613-30 ",.01)
 ;;55289-0613-30
 ;;9002226.02101,"798,55289-0613-30 ",.02)
 ;;55289-0613-30
 ;;9002226.02101,"798,55289-0613-60 ",.01)
 ;;55289-0613-60
 ;;9002226.02101,"798,55289-0613-60 ",.02)
 ;;55289-0613-60
 ;;9002226.02101,"798,55289-0730-01 ",.01)
 ;;55289-0730-01
 ;;9002226.02101,"798,55289-0730-01 ",.02)
 ;;55289-0730-01
 ;;9002226.02101,"798,55289-0730-12 ",.01)
 ;;55289-0730-12
 ;;9002226.02101,"798,55289-0730-12 ",.02)
 ;;55289-0730-12
 ;;9002226.02101,"798,55289-0730-25 ",.01)
 ;;55289-0730-25
 ;;9002226.02101,"798,55289-0730-25 ",.02)
 ;;55289-0730-25
 ;;9002226.02101,"798,55289-0730-30 ",.01)
 ;;55289-0730-30
 ;;9002226.02101,"798,55289-0730-30 ",.02)
 ;;55289-0730-30
 ;;9002226.02101,"798,55289-0730-60 ",.01)
 ;;55289-0730-60
 ;;9002226.02101,"798,55289-0730-60 ",.02)
 ;;55289-0730-60
 ;;9002226.02101,"798,55289-0730-90 ",.01)
 ;;55289-0730-90
 ;;9002226.02101,"798,55289-0730-90 ",.02)
 ;;55289-0730-90
 ;;9002226.02101,"798,55289-0733-30 ",.01)
 ;;55289-0733-30
 ;;9002226.02101,"798,55289-0733-30 ",.02)
 ;;55289-0733-30
 ;;9002226.02101,"798,55289-0733-60 ",.01)
 ;;55289-0733-60
 ;;9002226.02101,"798,55289-0733-60 ",.02)
 ;;55289-0733-60
 ;;9002226.02101,"798,55289-0768-30 ",.01)
 ;;55289-0768-30
 ;;9002226.02101,"798,55289-0768-30 ",.02)
 ;;55289-0768-30
 ;;9002226.02101,"798,55289-0827-30 ",.01)
 ;;55289-0827-30
 ;;9002226.02101,"798,55289-0827-30 ",.02)
 ;;55289-0827-30
 ;;9002226.02101,"798,55289-0828-30 ",.01)
 ;;55289-0828-30
 ;;9002226.02101,"798,55289-0828-30 ",.02)
 ;;55289-0828-30
 ;;9002226.02101,"798,55289-0830-30 ",.01)
 ;;55289-0830-30
 ;;9002226.02101,"798,55289-0830-30 ",.02)
 ;;55289-0830-30
 ;;9002226.02101,"798,55289-0839-30 ",.01)
 ;;55289-0839-30
 ;;9002226.02101,"798,55289-0839-30 ",.02)
 ;;55289-0839-30
 ;;9002226.02101,"798,55289-0869-30 ",.01)
 ;;55289-0869-30
 ;;9002226.02101,"798,55289-0869-30 ",.02)
 ;;55289-0869-30
 ;;9002226.02101,"798,55289-0883-14 ",.01)
 ;;55289-0883-14
 ;;9002226.02101,"798,55289-0883-14 ",.02)
 ;;55289-0883-14
 ;;9002226.02101,"798,55289-0883-30 ",.01)
 ;;55289-0883-30
 ;;9002226.02101,"798,55289-0883-30 ",.02)
 ;;55289-0883-30
 ;;9002226.02101,"798,55289-0883-90 ",.01)
 ;;55289-0883-90
 ;;9002226.02101,"798,55289-0883-90 ",.02)
 ;;55289-0883-90
 ;;9002226.02101,"798,55289-0897-30 ",.01)
 ;;55289-0897-30
 ;;9002226.02101,"798,55289-0897-30 ",.02)
 ;;55289-0897-30
 ;;9002226.02101,"798,55289-0900-15 ",.01)
 ;;55289-0900-15
 ;;9002226.02101,"798,55289-0900-15 ",.02)
 ;;55289-0900-15
 ;;9002226.02101,"798,55289-0900-30 ",.01)
 ;;55289-0900-30
 ;;9002226.02101,"798,55289-0900-30 ",.02)
 ;;55289-0900-30
 ;;9002226.02101,"798,55289-0905-30 ",.01)
 ;;55289-0905-30
 ;;9002226.02101,"798,55289-0905-30 ",.02)
 ;;55289-0905-30
 ;;9002226.02101,"798,55289-0922-15 ",.01)
 ;;55289-0922-15
 ;;9002226.02101,"798,55289-0922-15 ",.02)
 ;;55289-0922-15
 ;;9002226.02101,"798,55289-0922-30 ",.01)
 ;;55289-0922-30
 ;;9002226.02101,"798,55289-0922-30 ",.02)
 ;;55289-0922-30
 ;;9002226.02101,"798,55289-0972-60 ",.01)
 ;;55289-0972-60
 ;;9002226.02101,"798,55289-0972-60 ",.02)
 ;;55289-0972-60
 ;;9002226.02101,"798,55289-0972-90 ",.01)
 ;;55289-0972-90
 ;;9002226.02101,"798,55289-0972-90 ",.02)
 ;;55289-0972-90
 ;;9002226.02101,"798,55587-0283-30 ",.01)
 ;;55587-0283-30
 ;;9002226.02101,"798,55587-0283-30 ",.02)
 ;;55587-0283-30
 ;;9002226.02101,"798,55587-0283-60 ",.01)
 ;;55587-0283-60
 ;;9002226.02101,"798,55587-0283-60 ",.02)
 ;;55587-0283-60
 ;;9002226.02101,"798,55587-0283-90 ",.01)
 ;;55587-0283-90
 ;;9002226.02101,"798,55587-0283-90 ",.02)
 ;;55587-0283-90
 ;;9002226.02101,"798,55587-0284-30 ",.01)
 ;;55587-0284-30
 ;;9002226.02101,"798,55587-0284-30 ",.02)
 ;;55587-0284-30
 ;;9002226.02101,"798,55587-0284-60 ",.01)
 ;;55587-0284-60
 ;;9002226.02101,"798,55587-0284-60 ",.02)
 ;;55587-0284-60
 ;;9002226.02101,"798,55587-0284-90 ",.01)
 ;;55587-0284-90
 ;;9002226.02101,"798,55587-0284-90 ",.02)
 ;;55587-0284-90
 ;;9002226.02101,"798,55864-0708-30 ",.01)
 ;;55864-0708-30
 ;;9002226.02101,"798,55864-0708-30 ",.02)
 ;;55864-0708-30
 ;;9002226.02101,"798,55887-0075-30 ",.01)
 ;;55887-0075-30
 ;;9002226.02101,"798,55887-0075-30 ",.02)
 ;;55887-0075-30
 ;;9002226.02101,"798,55887-0095-30 ",.01)
 ;;55887-0095-30
 ;;9002226.02101,"798,55887-0095-30 ",.02)
 ;;55887-0095-30
 ;;9002226.02101,"798,55887-0095-60 ",.01)
 ;;55887-0095-60
 ;;9002226.02101,"798,55887-0095-60 ",.02)
 ;;55887-0095-60
 ;;9002226.02101,"798,55887-0095-90 ",.01)
 ;;55887-0095-90
 ;;9002226.02101,"798,55887-0095-90 ",.02)
 ;;55887-0095-90
 ;;9002226.02101,"798,55887-0101-30 ",.01)
 ;;55887-0101-30
 ;;9002226.02101,"798,55887-0101-30 ",.02)
 ;;55887-0101-30
 ;;9002226.02101,"798,55887-0101-60 ",.01)
 ;;55887-0101-60
 ;;9002226.02101,"798,55887-0101-60 ",.02)
 ;;55887-0101-60
 ;;9002226.02101,"798,55887-0101-90 ",.01)
 ;;55887-0101-90
 ;;9002226.02101,"798,55887-0101-90 ",.02)
 ;;55887-0101-90
 ;;9002226.02101,"798,55887-0125-30 ",.01)
 ;;55887-0125-30
 ;;9002226.02101,"798,55887-0125-30 ",.02)
 ;;55887-0125-30
 ;;9002226.02101,"798,55887-0125-60 ",.01)
 ;;55887-0125-60
 ;;9002226.02101,"798,55887-0125-60 ",.02)
 ;;55887-0125-60
 ;;9002226.02101,"798,55887-0143-30 ",.01)
 ;;55887-0143-30
 ;;9002226.02101,"798,55887-0143-30 ",.02)
 ;;55887-0143-30
 ;;9002226.02101,"798,55887-0143-60 ",.01)
 ;;55887-0143-60
 ;;9002226.02101,"798,55887-0143-60 ",.02)
 ;;55887-0143-60
 ;;9002226.02101,"798,55887-0143-82 ",.01)
 ;;55887-0143-82
 ;;9002226.02101,"798,55887-0143-82 ",.02)
 ;;55887-0143-82
 ;;9002226.02101,"798,55887-0143-90 ",.01)
 ;;55887-0143-90
 ;;9002226.02101,"798,55887-0143-90 ",.02)
 ;;55887-0143-90
 ;;9002226.02101,"798,55887-0143-92 ",.01)
 ;;55887-0143-92
 ;;9002226.02101,"798,55887-0143-92 ",.02)
 ;;55887-0143-92
 ;;9002226.02101,"798,55887-0144-30 ",.01)
 ;;55887-0144-30
 ;;9002226.02101,"798,55887-0144-30 ",.02)
 ;;55887-0144-30
 ;;9002226.02101,"798,55887-0144-60 ",.01)
 ;;55887-0144-60
 ;;9002226.02101,"798,55887-0144-60 ",.02)
 ;;55887-0144-60
 ;;9002226.02101,"798,55887-0144-82 ",.01)
 ;;55887-0144-82
 ;;9002226.02101,"798,55887-0144-82 ",.02)
 ;;55887-0144-82
 ;;9002226.02101,"798,55887-0144-90 ",.01)
 ;;55887-0144-90
 ;;9002226.02101,"798,55887-0144-90 ",.02)
 ;;55887-0144-90
 ;;9002226.02101,"798,55887-0144-92 ",.01)
 ;;55887-0144-92
 ;;9002226.02101,"798,55887-0144-92 ",.02)
 ;;55887-0144-92
 ;;9002226.02101,"798,55887-0151-01 ",.01)
 ;;55887-0151-01
 ;;9002226.02101,"798,55887-0151-01 ",.02)
 ;;55887-0151-01
 ;;9002226.02101,"798,55887-0151-20 ",.01)
 ;;55887-0151-20
 ;;9002226.02101,"798,55887-0151-20 ",.02)
 ;;55887-0151-20
 ;;9002226.02101,"798,55887-0151-30 ",.01)
 ;;55887-0151-30
 ;;9002226.02101,"798,55887-0151-30 ",.02)
 ;;55887-0151-30
 ;;9002226.02101,"798,55887-0151-60 ",.01)
 ;;55887-0151-60
 ;;9002226.02101,"798,55887-0151-60 ",.02)
 ;;55887-0151-60
 ;;9002226.02101,"798,55887-0151-82 ",.01)
 ;;55887-0151-82
 ;;9002226.02101,"798,55887-0151-82 ",.02)
 ;;55887-0151-82
 ;;9002226.02101,"798,55887-0151-90 ",.01)
 ;;55887-0151-90
 ;;9002226.02101,"798,55887-0151-90 ",.02)
 ;;55887-0151-90
 ;;9002226.02101,"798,55887-0160-15 ",.01)
 ;;55887-0160-15
 ;;9002226.02101,"798,55887-0160-15 ",.02)
 ;;55887-0160-15
 ;;9002226.02101,"798,55887-0160-30 ",.01)
 ;;55887-0160-30
 ;;9002226.02101,"798,55887-0160-30 ",.02)
 ;;55887-0160-30
 ;;9002226.02101,"798,55887-0160-60 ",.01)
 ;;55887-0160-60
 ;;9002226.02101,"798,55887-0160-60 ",.02)
 ;;55887-0160-60
 ;;9002226.02101,"798,55887-0160-90 ",.01)
 ;;55887-0160-90
 ;;9002226.02101,"798,55887-0160-90 ",.02)
 ;;55887-0160-90
 ;;9002226.02101,"798,55887-0168-30 ",.01)
 ;;55887-0168-30
 ;;9002226.02101,"798,55887-0168-30 ",.02)
 ;;55887-0168-30
 ;;9002226.02101,"798,55887-0168-60 ",.01)
 ;;55887-0168-60
 ;;9002226.02101,"798,55887-0168-60 ",.02)
 ;;55887-0168-60
 ;;9002226.02101,"798,55887-0168-90 ",.01)
 ;;55887-0168-90
 ;;9002226.02101,"798,55887-0168-90 ",.02)
 ;;55887-0168-90
 ;;9002226.02101,"798,55887-0193-30 ",.01)
 ;;55887-0193-30
 ;;9002226.02101,"798,55887-0193-30 ",.02)
 ;;55887-0193-30
 ;;9002226.02101,"798,55887-0193-60 ",.01)
 ;;55887-0193-60
 ;;9002226.02101,"798,55887-0193-60 ",.02)
 ;;55887-0193-60
 ;;9002226.02101,"798,55887-0193-90 ",.01)
 ;;55887-0193-90
 ;;9002226.02101,"798,55887-0193-90 ",.02)
 ;;55887-0193-90
 ;;9002226.02101,"798,55887-0213-30 ",.01)
 ;;55887-0213-30
 ;;9002226.02101,"798,55887-0213-30 ",.02)
 ;;55887-0213-30
 ;;9002226.02101,"798,55887-0214-30 ",.01)
 ;;55887-0214-30
 ;;9002226.02101,"798,55887-0214-30 ",.02)
 ;;55887-0214-30
 ;;9002226.02101,"798,55887-0237-30 ",.01)
 ;;55887-0237-30
 ;;9002226.02101,"798,55887-0237-30 ",.02)
 ;;55887-0237-30
 ;;9002226.02101,"798,55887-0237-60 ",.01)
 ;;55887-0237-60
 ;;9002226.02101,"798,55887-0237-60 ",.02)
 ;;55887-0237-60
 ;;9002226.02101,"798,55887-0237-86 ",.01)
 ;;55887-0237-86
 ;;9002226.02101,"798,55887-0237-86 ",.02)
 ;;55887-0237-86
 ;;9002226.02101,"798,55887-0237-90 ",.01)
 ;;55887-0237-90
 ;;9002226.02101,"798,55887-0237-90 ",.02)
 ;;55887-0237-90
 ;;9002226.02101,"798,55887-0256-20 ",.01)
 ;;55887-0256-20
 ;;9002226.02101,"798,55887-0256-20 ",.02)
 ;;55887-0256-20
 ;;9002226.02101,"798,55887-0256-30 ",.01)
 ;;55887-0256-30
 ;;9002226.02101,"798,55887-0256-30 ",.02)
 ;;55887-0256-30
 ;;9002226.02101,"798,55887-0256-60 ",.01)
 ;;55887-0256-60
 ;;9002226.02101,"798,55887-0256-60 ",.02)
 ;;55887-0256-60
 ;;9002226.02101,"798,55887-0256-90 ",.01)
 ;;55887-0256-90
 ;;9002226.02101,"798,55887-0256-90 ",.02)
 ;;55887-0256-90
 ;;9002226.02101,"798,55887-0260-30 ",.01)
 ;;55887-0260-30
 ;;9002226.02101,"798,55887-0260-30 ",.02)
 ;;55887-0260-30
 ;;9002226.02101,"798,55887-0260-90 ",.01)
 ;;55887-0260-90
 ;;9002226.02101,"798,55887-0260-90 ",.02)
 ;;55887-0260-90
 ;;9002226.02101,"798,55887-0261-01 ",.01)
 ;;55887-0261-01
 ;;9002226.02101,"798,55887-0261-01 ",.02)
 ;;55887-0261-01
 ;;9002226.02101,"798,55887-0261-07 ",.01)
 ;;55887-0261-07
 ;;9002226.02101,"798,55887-0261-07 ",.02)
 ;;55887-0261-07
 ;;9002226.02101,"798,55887-0261-30 ",.01)
 ;;55887-0261-30
 ;;9002226.02101,"798,55887-0261-30 ",.02)
 ;;55887-0261-30
 ;;9002226.02101,"798,55887-0261-90 ",.01)
 ;;55887-0261-90
 ;;9002226.02101,"798,55887-0261-90 ",.02)
 ;;55887-0261-90
 ;;9002226.02101,"798,55887-0270-15 ",.01)
 ;;55887-0270-15
 ;;9002226.02101,"798,55887-0270-15 ",.02)
 ;;55887-0270-15
 ;;9002226.02101,"798,55887-0270-30 ",.01)
 ;;55887-0270-30
 ;;9002226.02101,"798,55887-0270-30 ",.02)
 ;;55887-0270-30
 ;;9002226.02101,"798,55887-0271-15 ",.01)
 ;;55887-0271-15
 ;;9002226.02101,"798,55887-0271-15 ",.02)
 ;;55887-0271-15
 ;;9002226.02101,"798,55887-0271-30 ",.01)
 ;;55887-0271-30
 ;;9002226.02101,"798,55887-0271-30 ",.02)
 ;;55887-0271-30
 ;;9002226.02101,"798,55887-0271-60 ",.01)
 ;;55887-0271-60
 ;;9002226.02101,"798,55887-0271-60 ",.02)
 ;;55887-0271-60
 ;;9002226.02101,"798,55887-0283-30 ",.01)
 ;;55887-0283-30
 ;;9002226.02101,"798,55887-0283-30 ",.02)
 ;;55887-0283-30
 ;;9002226.02101,"798,55887-0283-60 ",.01)
 ;;55887-0283-60
 ;;9002226.02101,"798,55887-0283-60 ",.02)
 ;;55887-0283-60
 ;;9002226.02101,"798,55887-0283-90 ",.01)
 ;;55887-0283-90
 ;;9002226.02101,"798,55887-0283-90 ",.02)
 ;;55887-0283-90
 ;;9002226.02101,"798,55887-0284-30 ",.01)
 ;;55887-0284-30
 ;;9002226.02101,"798,55887-0284-30 ",.02)
 ;;55887-0284-30
 ;;9002226.02101,"798,55887-0284-60 ",.01)
 ;;55887-0284-60
 ;;9002226.02101,"798,55887-0284-60 ",.02)
 ;;55887-0284-60
 ;;9002226.02101,"798,55887-0284-90 ",.01)
 ;;55887-0284-90
 ;;9002226.02101,"798,55887-0284-90 ",.02)
 ;;55887-0284-90
 ;;9002226.02101,"798,55887-0288-30 ",.01)
 ;;55887-0288-30
 ;;9002226.02101,"798,55887-0288-30 ",.02)
 ;;55887-0288-30
 ;;9002226.02101,"798,55887-0289-30 ",.01)
 ;;55887-0289-30
 ;;9002226.02101,"798,55887-0289-30 ",.02)
 ;;55887-0289-30
 ;;9002226.02101,"798,55887-0289-60 ",.01)
 ;;55887-0289-60
 ;;9002226.02101,"798,55887-0289-60 ",.02)
 ;;55887-0289-60
 ;;9002226.02101,"798,55887-0346-30 ",.01)
 ;;55887-0346-30
 ;;9002226.02101,"798,55887-0346-30 ",.02)
 ;;55887-0346-30
 ;;9002226.02101,"798,55887-0356-30 ",.01)
 ;;55887-0356-30
 ;;9002226.02101,"798,55887-0356-30 ",.02)
 ;;55887-0356-30
 ;;9002226.02101,"798,55887-0356-60 ",.01)
 ;;55887-0356-60
 ;;9002226.02101,"798,55887-0356-60 ",.02)
 ;;55887-0356-60
 ;;9002226.02101,"798,55887-0394-30 ",.01)
 ;;55887-0394-30
 ;;9002226.02101,"798,55887-0394-30 ",.02)
 ;;55887-0394-30
 ;;9002226.02101,"798,55887-0394-60 ",.01)
 ;;55887-0394-60
 ;;9002226.02101,"798,55887-0394-60 ",.02)
 ;;55887-0394-60
 ;;9002226.02101,"798,55887-0394-90 ",.01)
 ;;55887-0394-90
 ;;9002226.02101,"798,55887-0394-90 ",.02)
 ;;55887-0394-90
 ;;9002226.02101,"798,55887-0398-30 ",.01)
 ;;55887-0398-30
 ;;9002226.02101,"798,55887-0398-30 ",.02)
 ;;55887-0398-30
 ;;9002226.02101,"798,55887-0398-60 ",.01)
 ;;55887-0398-60
 ;;9002226.02101,"798,55887-0398-60 ",.02)
 ;;55887-0398-60
 ;;9002226.02101,"798,55887-0433-30 ",.01)
 ;;55887-0433-30
 ;;9002226.02101,"798,55887-0433-30 ",.02)
 ;;55887-0433-30
 ;;9002226.02101,"798,55887-0439-30 ",.01)
 ;;55887-0439-30
 ;;9002226.02101,"798,55887-0439-30 ",.02)
 ;;55887-0439-30