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

BGPM5AVF.m

Go to the documentation of this file.
BGPM5AVF ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"1033,54907096404 ",.01)
 ;;54907096404
 ;;9002226.02101,"1033,54907096404 ",.02)
 ;;54907096404
 ;;9002226.02101,"1033,54907096501 ",.01)
 ;;54907096501
 ;;9002226.02101,"1033,54907096501 ",.02)
 ;;54907096501
 ;;9002226.02101,"1033,54907096503 ",.01)
 ;;54907096503
 ;;9002226.02101,"1033,54907096503 ",.02)
 ;;54907096503
 ;;9002226.02101,"1033,54907096504 ",.01)
 ;;54907096504
 ;;9002226.02101,"1033,54907096504 ",.02)
 ;;54907096504
 ;;9002226.02101,"1033,54907096601 ",.01)
 ;;54907096601
 ;;9002226.02101,"1033,54907096601 ",.02)
 ;;54907096601
 ;;9002226.02101,"1033,54907096603 ",.01)
 ;;54907096603
 ;;9002226.02101,"1033,54907096603 ",.02)
 ;;54907096603
 ;;9002226.02101,"1033,54907096604 ",.01)
 ;;54907096604
 ;;9002226.02101,"1033,54907096604 ",.02)
 ;;54907096604
 ;;9002226.02101,"1033,54907096901 ",.01)
 ;;54907096901
 ;;9002226.02101,"1033,54907096901 ",.02)
 ;;54907096901
 ;;9002226.02101,"1033,54907096903 ",.01)
 ;;54907096903
 ;;9002226.02101,"1033,54907096903 ",.02)
 ;;54907096903
 ;;9002226.02101,"1033,54907096904 ",.01)
 ;;54907096904
 ;;9002226.02101,"1033,54907096904 ",.02)
 ;;54907096904
 ;;9002226.02101,"1033,54907097001 ",.01)
 ;;54907097001
 ;;9002226.02101,"1033,54907097001 ",.02)
 ;;54907097001
 ;;9002226.02101,"1033,54907097003 ",.01)
 ;;54907097003
 ;;9002226.02101,"1033,54907097003 ",.02)
 ;;54907097003
 ;;9002226.02101,"1033,54907097004 ",.01)
 ;;54907097004
 ;;9002226.02101,"1033,54907097004 ",.02)
 ;;54907097004
 ;;9002226.02101,"1033,54907097204 ",.01)
 ;;54907097204
 ;;9002226.02101,"1033,54907097204 ",.02)
 ;;54907097204
 ;;9002226.02101,"1033,54907097304 ",.01)
 ;;54907097304
 ;;9002226.02101,"1033,54907097304 ",.02)
 ;;54907097304
 ;;9002226.02101,"1033,54907097401 ",.01)
 ;;54907097401
 ;;9002226.02101,"1033,54907097401 ",.02)
 ;;54907097401
 ;;9002226.02101,"1033,54907097404 ",.01)
 ;;54907097404
 ;;9002226.02101,"1033,54907097404 ",.02)
 ;;54907097404
 ;;9002226.02101,"1033,54907097701 ",.01)
 ;;54907097701
 ;;9002226.02101,"1033,54907097701 ",.02)
 ;;54907097701
 ;;9002226.02101,"1033,54907097703 ",.01)
 ;;54907097703
 ;;9002226.02101,"1033,54907097703 ",.02)
 ;;54907097703
 ;;9002226.02101,"1033,54907097704 ",.01)
 ;;54907097704
 ;;9002226.02101,"1033,54907097704 ",.02)
 ;;54907097704
 ;;9002226.02101,"1033,54907097901 ",.01)
 ;;54907097901
 ;;9002226.02101,"1033,54907097901 ",.02)
 ;;54907097901
 ;;9002226.02101,"1033,54907097903 ",.01)
 ;;54907097903
 ;;9002226.02101,"1033,54907097903 ",.02)
 ;;54907097903
 ;;9002226.02101,"1033,54907097904 ",.01)
 ;;54907097904
 ;;9002226.02101,"1033,54907097904 ",.02)
 ;;54907097904
 ;;9002226.02101,"1033,54907512001 ",.01)
 ;;54907512001
 ;;9002226.02101,"1033,54907512001 ",.02)
 ;;54907512001
 ;;9002226.02101,"1033,54907512005 ",.01)
 ;;54907512005
 ;;9002226.02101,"1033,54907512005 ",.02)
 ;;54907512005
 ;;9002226.02101,"1033,54907514001 ",.01)
 ;;54907514001
 ;;9002226.02101,"1033,54907514001 ",.02)
 ;;54907514001
 ;;9002226.02101,"1033,54907515001 ",.01)
 ;;54907515001
 ;;9002226.02101,"1033,54907515001 ",.02)
 ;;54907515001
 ;;9002226.02101,"1033,54907515004 ",.01)
 ;;54907515004
 ;;9002226.02101,"1033,54907515004 ",.02)
 ;;54907515004
 ;;9002226.02101,"1033,54907654001 ",.01)
 ;;54907654001
 ;;9002226.02101,"1033,54907654001 ",.02)
 ;;54907654001
 ;;9002226.02101,"1033,54907654005 ",.01)
 ;;54907654005
 ;;9002226.02101,"1033,54907654005 ",.02)
 ;;54907654005
 ;;9002226.02101,"1033,54907655001 ",.01)
 ;;54907655001
 ;;9002226.02101,"1033,54907655001 ",.02)
 ;;54907655001
 ;;9002226.02101,"1033,54907655005 ",.01)
 ;;54907655005
 ;;9002226.02101,"1033,54907655005 ",.02)
 ;;54907655005
 ;;9002226.02101,"1033,54907656001 ",.01)
 ;;54907656001
 ;;9002226.02101,"1033,54907656001 ",.02)
 ;;54907656001
 ;;9002226.02101,"1033,54907656005 ",.01)
 ;;54907656005
 ;;9002226.02101,"1033,54907656005 ",.02)
 ;;54907656005
 ;;9002226.02101,"1033,54907657001 ",.01)
 ;;54907657001
 ;;9002226.02101,"1033,54907657001 ",.02)
 ;;54907657001
 ;;9002226.02101,"1033,54907657005 ",.01)
 ;;54907657005
 ;;9002226.02101,"1033,54907657005 ",.02)
 ;;54907657005
 ;;9002226.02101,"1033,54907658001 ",.01)
 ;;54907658001
 ;;9002226.02101,"1033,54907658001 ",.02)
 ;;54907658001
 ;;9002226.02101,"1033,54907659001 ",.01)
 ;;54907659001
 ;;9002226.02101,"1033,54907659001 ",.02)
 ;;54907659001
 ;;9002226.02101,"1033,54907760002 ",.01)
 ;;54907760002
 ;;9002226.02101,"1033,54907760002 ",.02)
 ;;54907760002
 ;;9002226.02101,"1033,54907761001 ",.01)
 ;;54907761001
 ;;9002226.02101,"1033,54907761001 ",.02)
 ;;54907761001
 ;;9002226.02101,"1033,54907761002 ",.01)
 ;;54907761002
 ;;9002226.02101,"1033,54907761002 ",.02)
 ;;54907761002
 ;;9002226.02101,"1033,54907762002 ",.01)
 ;;54907762002
 ;;9002226.02101,"1033,54907762002 ",.02)
 ;;54907762002
 ;;9002226.02101,"1033,54907763001 ",.01)
 ;;54907763001
 ;;9002226.02101,"1033,54907763001 ",.02)
 ;;54907763001
 ;;9002226.02101,"1033,54907763002 ",.01)
 ;;54907763002
 ;;9002226.02101,"1033,54907763002 ",.02)
 ;;54907763002
 ;;9002226.02101,"1033,54907763005 ",.01)
 ;;54907763005
 ;;9002226.02101,"1033,54907763005 ",.02)
 ;;54907763005
 ;;9002226.02101,"1033,54907954001 ",.01)
 ;;54907954001
 ;;9002226.02101,"1033,54907954001 ",.02)
 ;;54907954001
 ;;9002226.02101,"1033,54907954002 ",.01)
 ;;54907954002
 ;;9002226.02101,"1033,54907954002 ",.02)
 ;;54907954002
 ;;9002226.02101,"1033,54907955003 ",.01)
 ;;54907955003
 ;;9002226.02101,"1033,54907955003 ",.02)
 ;;54907955003
 ;;9002226.02101,"1033,54907955004 ",.01)
 ;;54907955004
 ;;9002226.02101,"1033,54907955004 ",.02)
 ;;54907955004
 ;;9002226.02101,"1033,54907956001 ",.01)
 ;;54907956001
 ;;9002226.02101,"1033,54907956001 ",.02)
 ;;54907956001
 ;;9002226.02101,"1033,54907956002 ",.01)
 ;;54907956002
 ;;9002226.02101,"1033,54907956002 ",.02)
 ;;54907956002
 ;;9002226.02101,"1033,54907957003 ",.01)
 ;;54907957003
 ;;9002226.02101,"1033,54907957003 ",.02)
 ;;54907957003
 ;;9002226.02101,"1033,54907957004 ",.01)
 ;;54907957004
 ;;9002226.02101,"1033,54907957004 ",.02)
 ;;54907957004
 ;;9002226.02101,"1033,54907958001 ",.01)
 ;;54907958001
 ;;9002226.02101,"1033,54907958001 ",.02)
 ;;54907958001
 ;;9002226.02101,"1033,54907958002 ",.01)
 ;;54907958002
 ;;9002226.02101,"1033,54907958002 ",.02)
 ;;54907958002
 ;;9002226.02101,"1033,54907959001 ",.01)
 ;;54907959001
 ;;9002226.02101,"1033,54907959001 ",.02)
 ;;54907959001
 ;;9002226.02101,"1033,54907959002 ",.01)
 ;;54907959002
 ;;9002226.02101,"1033,54907959002 ",.02)
 ;;54907959002
 ;;9002226.02101,"1033,55045111300 ",.01)
 ;;55045111300
 ;;9002226.02101,"1033,55045111300 ",.02)
 ;;55045111300
 ;;9002226.02101,"1033,55045111301 ",.01)
 ;;55045111301
 ;;9002226.02101,"1033,55045111301 ",.02)
 ;;55045111301
 ;;9002226.02101,"1033,55045111303 ",.01)
 ;;55045111303
 ;;9002226.02101,"1033,55045111303 ",.02)
 ;;55045111303
 ;;9002226.02101,"1033,55045111307 ",.01)
 ;;55045111307
 ;;9002226.02101,"1033,55045111307 ",.02)
 ;;55045111307
 ;;9002226.02101,"1033,55045111309 ",.01)
 ;;55045111309
 ;;9002226.02101,"1033,55045111309 ",.02)
 ;;55045111309
 ;;9002226.02101,"1033,55045111700 ",.01)
 ;;55045111700
 ;;9002226.02101,"1033,55045111700 ",.02)
 ;;55045111700
 ;;9002226.02101,"1033,55045111701 ",.01)
 ;;55045111701
 ;;9002226.02101,"1033,55045111701 ",.02)
 ;;55045111701
 ;;9002226.02101,"1033,55045111702 ",.01)
 ;;55045111702
 ;;9002226.02101,"1033,55045111702 ",.02)
 ;;55045111702
 ;;9002226.02101,"1033,55045111703 ",.01)
 ;;55045111703
 ;;9002226.02101,"1033,55045111703 ",.02)
 ;;55045111703
 ;;9002226.02101,"1033,55045111704 ",.01)
 ;;55045111704
 ;;9002226.02101,"1033,55045111704 ",.02)
 ;;55045111704
 ;;9002226.02101,"1033,55045111705 ",.01)
 ;;55045111705
 ;;9002226.02101,"1033,55045111705 ",.02)
 ;;55045111705
 ;;9002226.02101,"1033,55045111706 ",.01)
 ;;55045111706
 ;;9002226.02101,"1033,55045111706 ",.02)
 ;;55045111706
 ;;9002226.02101,"1033,55045111707 ",.01)
 ;;55045111707
 ;;9002226.02101,"1033,55045111707 ",.02)
 ;;55045111707
 ;;9002226.02101,"1033,55045111708 ",.01)
 ;;55045111708
 ;;9002226.02101,"1033,55045111708 ",.02)
 ;;55045111708
 ;;9002226.02101,"1033,55045111709 ",.01)
 ;;55045111709
 ;;9002226.02101,"1033,55045111709 ",.02)
 ;;55045111709
 ;;9002226.02101,"1033,55045112200 ",.01)
 ;;55045112200
 ;;9002226.02101,"1033,55045112200 ",.02)
 ;;55045112200
 ;;9002226.02101,"1033,55045112201 ",.01)
 ;;55045112201
 ;;9002226.02101,"1033,55045112201 ",.02)
 ;;55045112201
 ;;9002226.02101,"1033,55045112202 ",.01)
 ;;55045112202
 ;;9002226.02101,"1033,55045112202 ",.02)
 ;;55045112202
 ;;9002226.02101,"1033,55045112203 ",.01)
 ;;55045112203
 ;;9002226.02101,"1033,55045112203 ",.02)
 ;;55045112203
 ;;9002226.02101,"1033,55045112204 ",.01)
 ;;55045112204
 ;;9002226.02101,"1033,55045112204 ",.02)
 ;;55045112204
 ;;9002226.02101,"1033,55045112205 ",.01)
 ;;55045112205
 ;;9002226.02101,"1033,55045112205 ",.02)
 ;;55045112205
 ;;9002226.02101,"1033,55045112207 ",.01)
 ;;55045112207
 ;;9002226.02101,"1033,55045112207 ",.02)
 ;;55045112207
 ;;9002226.02101,"1033,55045112208 ",.01)
 ;;55045112208
 ;;9002226.02101,"1033,55045112208 ",.02)
 ;;55045112208
 ;;9002226.02101,"1033,55045112209 ",.01)
 ;;55045112209
 ;;9002226.02101,"1033,55045112209 ",.02)
 ;;55045112209
 ;;9002226.02101,"1033,55045116803 ",.01)
 ;;55045116803
 ;;9002226.02101,"1033,55045116803 ",.02)
 ;;55045116803
 ;;9002226.02101,"1033,55045116804 ",.01)
 ;;55045116804
 ;;9002226.02101,"1033,55045116804 ",.02)
 ;;55045116804
 ;;9002226.02101,"1033,55045116806 ",.01)
 ;;55045116806
 ;;9002226.02101,"1033,55045116806 ",.02)
 ;;55045116806
 ;;9002226.02101,"1033,55045116807 ",.01)
 ;;55045116807
 ;;9002226.02101,"1033,55045116807 ",.02)
 ;;55045116807
 ;;9002226.02101,"1033,55045116808 ",.01)
 ;;55045116808
 ;;9002226.02101,"1033,55045116808 ",.02)
 ;;55045116808
 ;;9002226.02101,"1033,55045117000 ",.01)
 ;;55045117000
 ;;9002226.02101,"1033,55045117000 ",.02)
 ;;55045117000
 ;;9002226.02101,"1033,55045117001 ",.01)
 ;;55045117001
 ;;9002226.02101,"1033,55045117001 ",.02)
 ;;55045117001
 ;;9002226.02101,"1033,55045117002 ",.01)
 ;;55045117002
 ;;9002226.02101,"1033,55045117002 ",.02)
 ;;55045117002
 ;;9002226.02101,"1033,55045117003 ",.01)
 ;;55045117003
 ;;9002226.02101,"1033,55045117003 ",.02)
 ;;55045117003
 ;;9002226.02101,"1033,55045117004 ",.01)
 ;;55045117004
 ;;9002226.02101,"1033,55045117004 ",.02)
 ;;55045117004
 ;;9002226.02101,"1033,55045117005 ",.01)
 ;;55045117005
 ;;9002226.02101,"1033,55045117005 ",.02)
 ;;55045117005
 ;;9002226.02101,"1033,55045117006 ",.01)
 ;;55045117006
 ;;9002226.02101,"1033,55045117006 ",.02)
 ;;55045117006
 ;;9002226.02101,"1033,55045117007 ",.01)
 ;;55045117007
 ;;9002226.02101,"1033,55045117007 ",.02)
 ;;55045117007
 ;;9002226.02101,"1033,55045117008 ",.01)
 ;;55045117008
 ;;9002226.02101,"1033,55045117008 ",.02)
 ;;55045117008
 ;;9002226.02101,"1033,55045117009 ",.01)
 ;;55045117009
 ;;9002226.02101,"1033,55045117009 ",.02)
 ;;55045117009
 ;;9002226.02101,"1033,55045117801 ",.01)
 ;;55045117801
 ;;9002226.02101,"1033,55045117801 ",.02)
 ;;55045117801
 ;;9002226.02101,"1033,55045117802 ",.01)
 ;;55045117802
 ;;9002226.02101,"1033,55045117802 ",.02)
 ;;55045117802
 ;;9002226.02101,"1033,55045117901 ",.01)
 ;;55045117901
 ;;9002226.02101,"1033,55045117901 ",.02)
 ;;55045117901
 ;;9002226.02101,"1033,55045117902 ",.01)
 ;;55045117902
 ;;9002226.02101,"1033,55045117902 ",.02)
 ;;55045117902
 ;;9002226.02101,"1033,55045118800 ",.01)
 ;;55045118800