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

BGP2VF14.m

Go to the documentation of this file.
BGP2VF14 ;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)
 ;;21,"68115-0719-30 ")
 ;;2409
 ;;21,"68115-0732-30 ")
 ;;3011
 ;;21,"68115-0738-00 ")
 ;;3452
 ;;21,"68115-0738-30 ")
 ;;3453
 ;;21,"68115-0740-00 ")
 ;;3656
 ;;21,"68115-0740-30 ")
 ;;3657
 ;;21,"68115-0751-30 ")
 ;;3849
 ;;21,"68115-0764-00 ")
 ;;2725
 ;;21,"68115-0765-30 ")
 ;;4161
 ;;21,"68115-0765-50 ")
 ;;4162
 ;;21,"68115-0767-00 ")
 ;;554
 ;;21,"68115-0797-00 ")
 ;;1376
 ;;21,"68115-0798-60 ")
 ;;3049
 ;;21,"68115-0801-30 ")
 ;;3753
 ;;21,"68115-0810-15 ")
 ;;851
 ;;21,"68115-0810-30 ")
 ;;852
 ;;21,"68115-0825-15 ")
 ;;919
 ;;21,"68115-0825-30 ")
 ;;920
 ;;21,"68115-0831-00 ")
 ;;2556
 ;;21,"68115-0835-60 ")
 ;;862
 ;;21,"68115-0844-00 ")
 ;;1388
 ;;21,"68115-0847-30 ")
 ;;2955
 ;;21,"68115-0848-00 ")
 ;;655
 ;;21,"68115-0857-00 ")
 ;;3079
 ;;21,"68115-0859-00 ")
 ;;1607
 ;;21,"68115-0866-00 ")
 ;;1966
 ;;21,"68115-0870-00 ")
 ;;3372
 ;;21,"68115-0878-00 ")
 ;;4806
 ;;21,"68115-0884-00 ")
 ;;976
 ;;21,"68115-0901-60 ")
 ;;801
 ;;21,"68115-0913-30 ")
 ;;3770
 ;;21,"68115-0916-30 ")
 ;;3850
 ;;21,"68115-0919-30 ")
 ;;3454
 ;;21,"68115-0926-60 ")
 ;;707
 ;;21,"68115-0929-60 ")
 ;;3080
 ;;21,"68115-0974-00 ")
 ;;4904
 ;;21,"68180-0311-01 ")
 ;;2616
 ;;21,"68180-0312-01 ")
 ;;2661
 ;;21,"68180-0313-01 ")
 ;;2704
 ;;21,"68180-0314-06 ")
 ;;2726
 ;;21,"68180-0315-06 ")
 ;;2709
 ;;21,"68180-0316-06 ")
 ;;2714
 ;;21,"68180-0317-06 ")
 ;;2719
 ;;21,"68180-0351-06 ")
 ;;4163
 ;;21,"68180-0351-09 ")
 ;;4164
 ;;21,"68180-0352-01 ")
 ;;4324
 ;;21,"68180-0352-02 ")
 ;;4325
 ;;21,"68180-0352-05 ")
 ;;4326
 ;;21,"68180-0352-06 ")
 ;;4327
 ;;21,"68180-0352-09 ")
 ;;4328
 ;;21,"68180-0353-01 ")
 ;;4065
 ;;21,"68180-0353-02 ")
 ;;4066
 ;;21,"68180-0353-05 ")
 ;;4067
 ;;21,"68180-0353-06 ")
 ;;4068
 ;;21,"68180-0353-09 ")
 ;;4069
 ;;21,"68258-1061-01 ")
 ;;356
 ;;21,"68258-7003-03 ")
 ;;2513
 ;;21,"68258-7005-03 ")
 ;;2937
 ;;21,"68382-0001-01 ")
 ;;3851
 ;;21,"68382-0001-05 ")
 ;;3852
 ;;21,"68382-0001-06 ")
 ;;3853
 ;;21,"68382-0001-10 ")
 ;;3854
 ;;21,"68382-0001-16 ")
 ;;3855
 ;;21,"68382-0018-01 ")
 ;;4846
 ;;21,"68382-0018-10 ")
 ;;4847
 ;;21,"68382-0019-01 ")
 ;;4968
 ;;21,"68382-0019-10 ")
 ;;4969
 ;;21,"68382-0020-01 ")
 ;;5005
 ;;21,"68382-0020-10 ")
 ;;5006
 ;;21,"68382-0021-01 ")
 ;;5173
 ;;21,"68382-0021-10 ")
 ;;5174
 ;;21,"68382-0034-06 ")
 ;;4905
 ;;21,"68382-0034-16 ")
 ;;4906
 ;;21,"68382-0035-06 ")
 ;;5087
 ;;21,"68382-0035-16 ")
 ;;5088
 ;;21,"68382-0036-16 ")
 ;;4807
 ;;21,"68382-0097-01 ")
 ;;3455
 ;;21,"68382-0097-05 ")
 ;;3456
 ;;21,"68382-0097-06 ")
 ;;3457
 ;;21,"68382-0097-10 ")
 ;;3458
 ;;21,"68382-0097-16 ")
 ;;3459
 ;;21,"68382-0098-01 ")
 ;;3658
 ;;21,"68382-0098-05 ")
 ;;3659
 ;;21,"68382-0098-06 ")
 ;;3660
 ;;21,"68382-0098-10 ")
 ;;3661
 ;;21,"68382-0098-16 ")
 ;;3662
 ;;21,"68382-0099-01 ")
 ;;3754
 ;;21,"68382-0099-05 ")
 ;;3755
 ;;21,"68382-0099-06 ")
 ;;3756
 ;;21,"68382-0099-10 ")
 ;;3757
 ;;21,"68382-0099-16 ")
 ;;3758
 ;;21,"68382-0100-01 ")
 ;;3856
 ;;21,"68382-0100-06 ")
 ;;3857
 ;;21,"68382-0100-10 ")
 ;;3858
 ;;21,"68382-0100-16 ")
 ;;3859
 ;;21,"68382-0101-01 ")
 ;;4739
 ;;21,"68382-0101-10 ")
 ;;4740
 ;;21,"68387-0120-30 ")
 ;;2410
 ;;21,"68387-0120-60 ")
 ;;2411
 ;;21,"68387-0120-90 ")
 ;;2412
 ;;21,"68387-0125-30 ")
 ;;2152
 ;;21,"68387-0127-30 ")
 ;;1967
 ;;21,"68387-0128-30 ")
 ;;2000
 ;;21,"68387-0160-30 ")
 ;;4544
 ;;21,"68387-0165-30 ")
 ;;4710
 ;;21,"68387-0165-90 ")
 ;;4711
 ;;21,"68387-0166-30 ")
 ;;4462
 ;;21,"68387-0166-60 ")
 ;;4463
 ;;21,"68387-0330-15 ")
 ;;3295
 ;;21,"68387-0330-30 ")
 ;;3296
 ;;21,"68387-0330-60 ")
 ;;3297
 ;;21,"68387-0335-15 ")
 ;;357
 ;;21,"68387-0335-24 ")
 ;;358
 ;;21,"68387-0335-30 ")
 ;;359
 ;;21,"68387-0335-60 ")
 ;;360
 ;;21,"68387-0335-90 ")
 ;;361
 ;;21,"68387-0336-30 ")
 ;;124
 ;;21,"68387-0336-90 ")
 ;;125
 ;;21,"68387-0337-24 ")
 ;;459
 ;;21,"68387-0337-30 ")
 ;;460
 ;;21,"68387-0338-30 ")
 ;;503
 ;;21,"68387-0339-30 ")
 ;;180
 ;;21,"68387-0349-15 ")
 ;;4808
 ;;21,"68387-0349-30 ")
 ;;4809
 ;;21,"68387-0350-30 ")
 ;;977
 ;;21,"68387-0350-60 ")
 ;;978
 ;;21,"68387-0353-60 ")
 ;;656
 ;;21,"68387-0360-60 ")
 ;;2831
 ;;21,"68387-0363-07 ")
 ;;2938
 ;;21,"68387-0363-15 ")
 ;;2939
 ;;21,"68387-0363-30 ")
 ;;2940
 ;;21,"68387-0553-30 ")
 ;;1922
 ;;21,"68387-0553-60 ")
 ;;1923
 ;;21,"68387-0554-30 ")
 ;;1876
 ;;21,"68387-0554-60 ")
 ;;1877
 ;;21,"68387-9360-60 ")
 ;;2832
 ;;21,"68645-0130-54 ")
 ;;2413
 ;;21,"68645-0131-54 ")
 ;;2153
 ;;21,"68645-0180-54 ")
 ;;4545
 ;;21,"68645-0252-54 ")
 ;;1377
 ;;21,"68727-0600-01 ")
 ;;2538
 ;;21,"68727-0601-01 ")
 ;;2557
 ;;21,"68968-2010-01 ")
 ;;3861
 ;;21,"68968-2020-01 ")
 ;;3863
 ;;21,"68968-2030-01 ")
 ;;3865
 ;;21,"68968-2040-01 ")
 ;;3867
 ;;9002226,798,.01)
 ;;BGP HEDIS ANTIDEPRESSANT NDC
 ;;9002226,798,.02)
 ;;@
 ;;9002226,798,.04)
 ;;n
 ;;9002226,798,.06)
 ;;@
 ;;9002226,798,.08)
 ;;@
 ;;9002226,798,.09)
 ;;@
 ;;9002226,798,.11)
 ;;@
 ;;9002226,798,.12)
 ;;@
 ;;9002226,798,.13)
 ;;1
 ;;9002226,798,.14)
 ;;@
 ;;9002226,798,.15)
 ;;@
 ;;9002226,798,.16)
 ;;@
 ;;9002226,798,.17)
 ;;@
 ;;9002226,798,3101)
 ;;@
 ;;9002226.02101,"798,00002-3004-75 ",.01)
 ;;00002-3004-75
 ;;9002226.02101,"798,00002-3004-75 ",.02)
 ;;00002-3004-75
 ;;9002226.02101,"798,00002-3230-30 ",.01)
 ;;00002-3230-30
 ;;9002226.02101,"798,00002-3230-30 ",.02)
 ;;00002-3230-30
 ;;9002226.02101,"798,00002-3231-01 ",.01)
 ;;00002-3231-01
 ;;9002226.02101,"798,00002-3231-01 ",.02)
 ;;00002-3231-01
 ;;9002226.02101,"798,00002-3231-30 ",.01)
 ;;00002-3231-30
 ;;9002226.02101,"798,00002-3231-30 ",.02)
 ;;00002-3231-30
 ;;9002226.02101,"798,00002-3231-33 ",.01)
 ;;00002-3231-33
 ;;9002226.02101,"798,00002-3231-33 ",.02)
 ;;00002-3231-33
 ;;9002226.02101,"798,00002-3232-01 ",.01)
 ;;00002-3232-01
 ;;9002226.02101,"798,00002-3232-01 ",.02)
 ;;00002-3232-01
 ;;9002226.02101,"798,00002-3232-30 ",.01)
 ;;00002-3232-30
 ;;9002226.02101,"798,00002-3232-30 ",.02)
 ;;00002-3232-30
 ;;9002226.02101,"798,00002-3232-33 ",.01)
 ;;00002-3232-33
 ;;9002226.02101,"798,00002-3232-33 ",.02)
 ;;00002-3232-33
 ;;9002226.02101,"798,00002-3233-01 ",.01)
 ;;00002-3233-01
 ;;9002226.02101,"798,00002-3233-01 ",.02)
 ;;00002-3233-01
 ;;9002226.02101,"798,00002-3233-30 ",.01)
 ;;00002-3233-30
 ;;9002226.02101,"798,00002-3233-30 ",.02)
 ;;00002-3233-30
 ;;9002226.02101,"798,00002-3233-33 ",.01)
 ;;00002-3233-33
 ;;9002226.02101,"798,00002-3233-33 ",.02)
 ;;00002-3233-33
 ;;9002226.02101,"798,00002-3234-01 ",.01)
 ;;00002-3234-01
 ;;9002226.02101,"798,00002-3234-01 ",.02)
 ;;00002-3234-01
 ;;9002226.02101,"798,00002-3234-30 ",.01)
 ;;00002-3234-30
 ;;9002226.02101,"798,00002-3234-30 ",.02)
 ;;00002-3234-30
 ;;9002226.02101,"798,00002-3234-33 ",.01)
 ;;00002-3234-33
 ;;9002226.02101,"798,00002-3234-33 ",.02)
 ;;00002-3234-33
 ;;9002226.02101,"798,00002-3235-01 ",.01)
 ;;00002-3235-01
 ;;9002226.02101,"798,00002-3235-01 ",.02)
 ;;00002-3235-01
 ;;9002226.02101,"798,00002-3235-33 ",.01)
 ;;00002-3235-33
 ;;9002226.02101,"798,00002-3235-33 ",.02)
 ;;00002-3235-33
 ;;9002226.02101,"798,00002-3235-60 ",.01)
 ;;00002-3235-60
 ;;9002226.02101,"798,00002-3235-60 ",.02)
 ;;00002-3235-60
 ;;9002226.02101,"798,00002-3237-01 ",.01)
 ;;00002-3237-01
 ;;9002226.02101,"798,00002-3237-01 ",.02)
 ;;00002-3237-01
 ;;9002226.02101,"798,00002-3237-04 ",.01)
 ;;00002-3237-04
 ;;9002226.02101,"798,00002-3237-04 ",.02)
 ;;00002-3237-04
 ;;9002226.02101,"798,00002-3237-30 ",.01)
 ;;00002-3237-30
 ;;9002226.02101,"798,00002-3237-30 ",.02)
 ;;00002-3237-30
 ;;9002226.02101,"798,00002-3237-33 ",.01)
 ;;00002-3237-33
 ;;9002226.02101,"798,00002-3237-33 ",.02)
 ;;00002-3237-33
 ;;9002226.02101,"798,00002-3237-34 ",.01)
 ;;00002-3237-34
 ;;9002226.02101,"798,00002-3237-34 ",.02)
 ;;00002-3237-34
 ;;9002226.02101,"798,00002-3240-01 ",.01)
 ;;00002-3240-01
 ;;9002226.02101,"798,00002-3240-01 ",.02)
 ;;00002-3240-01
 ;;9002226.02101,"798,00002-3240-30 ",.01)
 ;;00002-3240-30
 ;;9002226.02101,"798,00002-3240-30 ",.02)
 ;;00002-3240-30
 ;;9002226.02101,"798,00002-3240-33 ",.01)
 ;;00002-3240-33
 ;;9002226.02101,"798,00002-3240-33 ",.02)
 ;;00002-3240-33
 ;;9002226.02101,"798,00002-3240-90 ",.01)
 ;;00002-3240-90
 ;;9002226.02101,"798,00002-3240-90 ",.02)
 ;;00002-3240-90
 ;;9002226.02101,"798,00002-3270-01 ",.01)
 ;;00002-3270-01
 ;;9002226.02101,"798,00002-3270-01 ",.02)
 ;;00002-3270-01
 ;;9002226.02101,"798,00002-3270-04 ",.01)
 ;;00002-3270-04
 ;;9002226.02101,"798,00002-3270-04 ",.02)
 ;;00002-3270-04
 ;;9002226.02101,"798,00002-3270-30 ",.01)
 ;;00002-3270-30
 ;;9002226.02101,"798,00002-3270-30 ",.02)
 ;;00002-3270-30
 ;;9002226.02101,"798,00002-3270-33 ",.01)
 ;;00002-3270-33
 ;;9002226.02101,"798,00002-3270-33 ",.02)
 ;;00002-3270-33
 ;;9002226.02101,"798,00007-4471-20 ",.01)
 ;;00007-4471-20
 ;;9002226.02101,"798,00007-4471-20 ",.02)
 ;;00007-4471-20
 ;;9002226.02101,"798,00008-0701-01 ",.01)
 ;;00008-0701-01
 ;;9002226.02101,"798,00008-0701-01 ",.02)
 ;;00008-0701-01
 ;;9002226.02101,"798,00008-0701-07 ",.01)
 ;;00008-0701-07
 ;;9002226.02101,"798,00008-0701-07 ",.02)
 ;;00008-0701-07
 ;;9002226.02101,"798,00008-0701-08 ",.01)
 ;;00008-0701-08
 ;;9002226.02101,"798,00008-0701-08 ",.02)
 ;;00008-0701-08
 ;;9002226.02101,"798,00008-0703-01 ",.01)
 ;;00008-0703-01
 ;;9002226.02101,"798,00008-0703-01 ",.02)
 ;;00008-0703-01
 ;;9002226.02101,"798,00008-0703-07 ",.01)
 ;;00008-0703-07
 ;;9002226.02101,"798,00008-0703-07 ",.02)
 ;;00008-0703-07
 ;;9002226.02101,"798,00008-0703-08 ",.01)
 ;;00008-0703-08
 ;;9002226.02101,"798,00008-0703-08 ",.02)
 ;;00008-0703-08
 ;;9002226.02101,"798,00008-0704-01 ",.01)
 ;;00008-0704-01
 ;;9002226.02101,"798,00008-0704-01 ",.02)
 ;;00008-0704-01
 ;;9002226.02101,"798,00008-0704-07 ",.01)
 ;;00008-0704-07
 ;;9002226.02101,"798,00008-0704-07 ",.02)
 ;;00008-0704-07
 ;;9002226.02101,"798,00008-0704-08 ",.01)
 ;;00008-0704-08
 ;;9002226.02101,"798,00008-0704-08 ",.02)
 ;;00008-0704-08
 ;;9002226.02101,"798,00008-0705-01 ",.01)
 ;;00008-0705-01
 ;;9002226.02101,"798,00008-0705-01 ",.02)
 ;;00008-0705-01
 ;;9002226.02101,"798,00008-0705-07 ",.01)
 ;;00008-0705-07
 ;;9002226.02101,"798,00008-0705-07 ",.02)
 ;;00008-0705-07
 ;;9002226.02101,"798,00008-0705-08 ",.01)
 ;;00008-0705-08
 ;;9002226.02101,"798,00008-0705-08 ",.02)
 ;;00008-0705-08
 ;;9002226.02101,"798,00008-0781-01 ",.01)
 ;;00008-0781-01
 ;;9002226.02101,"798,00008-0781-01 ",.02)
 ;;00008-0781-01
 ;;9002226.02101,"798,00008-0781-07 ",.01)
 ;;00008-0781-07
 ;;9002226.02101,"798,00008-0781-07 ",.02)
 ;;00008-0781-07
 ;;9002226.02101,"798,00008-0781-08 ",.01)
 ;;00008-0781-08
 ;;9002226.02101,"798,00008-0781-08 ",.02)
 ;;00008-0781-08
 ;;9002226.02101,"798,00008-0833-01 ",.01)
 ;;00008-0833-01
 ;;9002226.02101,"798,00008-0833-01 ",.02)
 ;;00008-0833-01
 ;;9002226.02101,"798,00008-0833-02 ",.01)
 ;;00008-0833-02
 ;;9002226.02101,"798,00008-0833-02 ",.02)
 ;;00008-0833-02
 ;;9002226.02101,"798,00008-0833-03 ",.01)
 ;;00008-0833-03
 ;;9002226.02101,"798,00008-0833-03 ",.02)
 ;;00008-0833-03
 ;;9002226.02101,"798,00008-0833-20 ",.01)
 ;;00008-0833-20
 ;;9002226.02101,"798,00008-0833-20 ",.02)
 ;;00008-0833-20
 ;;9002226.02101,"798,00008-0833-21 ",.01)
 ;;00008-0833-21
 ;;9002226.02101,"798,00008-0833-21 ",.02)
 ;;00008-0833-21
 ;;9002226.02101,"798,00008-0833-22 ",.01)
 ;;00008-0833-22
 ;;9002226.02101,"798,00008-0833-22 ",.02)
 ;;00008-0833-22
 ;;9002226.02101,"798,00008-0836-01 ",.01)
 ;;00008-0836-01
 ;;9002226.02101,"798,00008-0836-01 ",.02)
 ;;00008-0836-01
 ;;9002226.02101,"798,00008-0836-02 ",.01)
 ;;00008-0836-02
 ;;9002226.02101,"798,00008-0836-02 ",.02)
 ;;00008-0836-02
 ;;9002226.02101,"798,00008-0836-03 ",.01)
 ;;00008-0836-03
 ;;9002226.02101,"798,00008-0836-03 ",.02)
 ;;00008-0836-03
 ;;9002226.02101,"798,00008-0836-20 ",.01)
 ;;00008-0836-20
 ;;9002226.02101,"798,00008-0836-20 ",.02)
 ;;00008-0836-20
 ;;9002226.02101,"798,00008-0836-21 ",.01)
 ;;00008-0836-21
 ;;9002226.02101,"798,00008-0836-21 ",.02)
 ;;00008-0836-21
 ;;9002226.02101,"798,00008-0836-22 ",.01)
 ;;00008-0836-22
 ;;9002226.02101,"798,00008-0836-22 ",.02)
 ;;00008-0836-22
 ;;9002226.02101,"798,00008-0837-01 ",.01)
 ;;00008-0837-01
 ;;9002226.02101,"798,00008-0837-01 ",.02)
 ;;00008-0837-01
 ;;9002226.02101,"798,00008-0837-02 ",.01)
 ;;00008-0837-02
 ;;9002226.02101,"798,00008-0837-02 ",.02)
 ;;00008-0837-02
 ;;9002226.02101,"798,00008-0837-03 ",.01)
 ;;00008-0837-03
 ;;9002226.02101,"798,00008-0837-03 ",.02)
 ;;00008-0837-03
 ;;9002226.02101,"798,00008-0837-20 ",.01)
 ;;00008-0837-20
 ;;9002226.02101,"798,00008-0837-20 ",.02)
 ;;00008-0837-20
 ;;9002226.02101,"798,00008-0837-21 ",.01)
 ;;00008-0837-21
 ;;9002226.02101,"798,00008-0837-21 ",.02)
 ;;00008-0837-21
 ;;9002226.02101,"798,00008-0837-22 ",.01)
 ;;00008-0837-22
 ;;9002226.02101,"798,00008-0837-22 ",.02)
 ;;00008-0837-22
 ;;9002226.02101,"798,00008-1211-01 ",.01)
 ;;00008-1211-01
 ;;9002226.02101,"798,00008-1211-01 ",.02)
 ;;00008-1211-01
 ;;9002226.02101,"798,00008-1211-14 ",.01)
 ;;00008-1211-14
 ;;9002226.02101,"798,00008-1211-14 ",.02)
 ;;00008-1211-14