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

BGP2VF42.m

Go to the documentation of this file.
BGP2VF42 ;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,55887-0439-60 ",.01)
 ;;55887-0439-60
 ;;9002226.02101,"798,55887-0439-60 ",.02)
 ;;55887-0439-60
 ;;9002226.02101,"798,55887-0439-92 ",.01)
 ;;55887-0439-92
 ;;9002226.02101,"798,55887-0439-92 ",.02)
 ;;55887-0439-92
 ;;9002226.02101,"798,55887-0458-30 ",.01)
 ;;55887-0458-30
 ;;9002226.02101,"798,55887-0458-30 ",.02)
 ;;55887-0458-30
 ;;9002226.02101,"798,55887-0458-40 ",.01)
 ;;55887-0458-40
 ;;9002226.02101,"798,55887-0458-40 ",.02)
 ;;55887-0458-40
 ;;9002226.02101,"798,55887-0458-60 ",.01)
 ;;55887-0458-60
 ;;9002226.02101,"798,55887-0458-60 ",.02)
 ;;55887-0458-60
 ;;9002226.02101,"798,55887-0458-90 ",.01)
 ;;55887-0458-90
 ;;9002226.02101,"798,55887-0458-90 ",.02)
 ;;55887-0458-90
 ;;9002226.02101,"798,55887-0486-30 ",.01)
 ;;55887-0486-30
 ;;9002226.02101,"798,55887-0486-30 ",.02)
 ;;55887-0486-30
 ;;9002226.02101,"798,55887-0487-30 ",.01)
 ;;55887-0487-30
 ;;9002226.02101,"798,55887-0487-30 ",.02)
 ;;55887-0487-30
 ;;9002226.02101,"798,55887-0487-60 ",.01)
 ;;55887-0487-60
 ;;9002226.02101,"798,55887-0487-60 ",.02)
 ;;55887-0487-60
 ;;9002226.02101,"798,55887-0490-30 ",.01)
 ;;55887-0490-30
 ;;9002226.02101,"798,55887-0490-30 ",.02)
 ;;55887-0490-30
 ;;9002226.02101,"798,55887-0490-60 ",.01)
 ;;55887-0490-60
 ;;9002226.02101,"798,55887-0490-60 ",.02)
 ;;55887-0490-60
 ;;9002226.02101,"798,55887-0490-82 ",.01)
 ;;55887-0490-82
 ;;9002226.02101,"798,55887-0490-82 ",.02)
 ;;55887-0490-82
 ;;9002226.02101,"798,55887-0490-90 ",.01)
 ;;55887-0490-90
 ;;9002226.02101,"798,55887-0490-90 ",.02)
 ;;55887-0490-90
 ;;9002226.02101,"798,55887-0496-30 ",.01)
 ;;55887-0496-30
 ;;9002226.02101,"798,55887-0496-30 ",.02)
 ;;55887-0496-30
 ;;9002226.02101,"798,55887-0496-60 ",.01)
 ;;55887-0496-60
 ;;9002226.02101,"798,55887-0496-60 ",.02)
 ;;55887-0496-60
 ;;9002226.02101,"798,55887-0496-90 ",.01)
 ;;55887-0496-90
 ;;9002226.02101,"798,55887-0496-90 ",.02)
 ;;55887-0496-90
 ;;9002226.02101,"798,55887-0498-30 ",.01)
 ;;55887-0498-30
 ;;9002226.02101,"798,55887-0498-30 ",.02)
 ;;55887-0498-30
 ;;9002226.02101,"798,55887-0498-60 ",.01)
 ;;55887-0498-60
 ;;9002226.02101,"798,55887-0498-60 ",.02)
 ;;55887-0498-60
 ;;9002226.02101,"798,55887-0502-30 ",.01)
 ;;55887-0502-30
 ;;9002226.02101,"798,55887-0502-30 ",.02)
 ;;55887-0502-30
 ;;9002226.02101,"798,55887-0502-60 ",.01)
 ;;55887-0502-60
 ;;9002226.02101,"798,55887-0502-60 ",.02)
 ;;55887-0502-60
 ;;9002226.02101,"798,55887-0511-20 ",.01)
 ;;55887-0511-20
 ;;9002226.02101,"798,55887-0511-20 ",.02)
 ;;55887-0511-20
 ;;9002226.02101,"798,55887-0511-30 ",.01)
 ;;55887-0511-30
 ;;9002226.02101,"798,55887-0511-30 ",.02)
 ;;55887-0511-30
 ;;9002226.02101,"798,55887-0511-60 ",.01)
 ;;55887-0511-60
 ;;9002226.02101,"798,55887-0511-60 ",.02)
 ;;55887-0511-60
 ;;9002226.02101,"798,55887-0511-82 ",.01)
 ;;55887-0511-82
 ;;9002226.02101,"798,55887-0511-82 ",.02)
 ;;55887-0511-82
 ;;9002226.02101,"798,55887-0511-90 ",.01)
 ;;55887-0511-90
 ;;9002226.02101,"798,55887-0511-90 ",.02)
 ;;55887-0511-90
 ;;9002226.02101,"798,55887-0518-15 ",.01)
 ;;55887-0518-15
 ;;9002226.02101,"798,55887-0518-15 ",.02)
 ;;55887-0518-15
 ;;9002226.02101,"798,55887-0518-30 ",.01)
 ;;55887-0518-30
 ;;9002226.02101,"798,55887-0518-30 ",.02)
 ;;55887-0518-30
 ;;9002226.02101,"798,55887-0518-60 ",.01)
 ;;55887-0518-60
 ;;9002226.02101,"798,55887-0518-60 ",.02)
 ;;55887-0518-60
 ;;9002226.02101,"798,55887-0518-90 ",.01)
 ;;55887-0518-90
 ;;9002226.02101,"798,55887-0518-90 ",.02)
 ;;55887-0518-90
 ;;9002226.02101,"798,55887-0519-30 ",.01)
 ;;55887-0519-30
 ;;9002226.02101,"798,55887-0519-30 ",.02)
 ;;55887-0519-30
 ;;9002226.02101,"798,55887-0519-60 ",.01)
 ;;55887-0519-60
 ;;9002226.02101,"798,55887-0519-60 ",.02)
 ;;55887-0519-60
 ;;9002226.02101,"798,55887-0524-30 ",.01)
 ;;55887-0524-30
 ;;9002226.02101,"798,55887-0524-30 ",.02)
 ;;55887-0524-30
 ;;9002226.02101,"798,55887-0524-60 ",.01)
 ;;55887-0524-60
 ;;9002226.02101,"798,55887-0524-60 ",.02)
 ;;55887-0524-60
 ;;9002226.02101,"798,55887-0524-82 ",.01)
 ;;55887-0524-82
 ;;9002226.02101,"798,55887-0524-82 ",.02)
 ;;55887-0524-82
 ;;9002226.02101,"798,55887-0524-90 ",.01)
 ;;55887-0524-90
 ;;9002226.02101,"798,55887-0524-90 ",.02)
 ;;55887-0524-90
 ;;9002226.02101,"798,55887-0541-30 ",.01)
 ;;55887-0541-30
 ;;9002226.02101,"798,55887-0541-30 ",.02)
 ;;55887-0541-30
 ;;9002226.02101,"798,55887-0548-30 ",.01)
 ;;55887-0548-30
 ;;9002226.02101,"798,55887-0548-30 ",.02)
 ;;55887-0548-30
 ;;9002226.02101,"798,55887-0549-30 ",.01)
 ;;55887-0549-30
 ;;9002226.02101,"798,55887-0549-30 ",.02)
 ;;55887-0549-30
 ;;9002226.02101,"798,55887-0549-60 ",.01)
 ;;55887-0549-60
 ;;9002226.02101,"798,55887-0549-60 ",.02)
 ;;55887-0549-60
 ;;9002226.02101,"798,55887-0549-90 ",.01)
 ;;55887-0549-90
 ;;9002226.02101,"798,55887-0549-90 ",.02)
 ;;55887-0549-90
 ;;9002226.02101,"798,55887-0550-30 ",.01)
 ;;55887-0550-30
 ;;9002226.02101,"798,55887-0550-30 ",.02)
 ;;55887-0550-30
 ;;9002226.02101,"798,55887-0552-30 ",.01)
 ;;55887-0552-30
 ;;9002226.02101,"798,55887-0552-30 ",.02)
 ;;55887-0552-30
 ;;9002226.02101,"798,55887-0552-60 ",.01)
 ;;55887-0552-60
 ;;9002226.02101,"798,55887-0552-60 ",.02)
 ;;55887-0552-60
 ;;9002226.02101,"798,55887-0552-90 ",.01)
 ;;55887-0552-90
 ;;9002226.02101,"798,55887-0552-90 ",.02)
 ;;55887-0552-90
 ;;9002226.02101,"798,55887-0570-20 ",.01)
 ;;55887-0570-20
 ;;9002226.02101,"798,55887-0570-20 ",.02)
 ;;55887-0570-20
 ;;9002226.02101,"798,55887-0570-30 ",.01)
 ;;55887-0570-30
 ;;9002226.02101,"798,55887-0570-30 ",.02)
 ;;55887-0570-30
 ;;9002226.02101,"798,55887-0570-40 ",.01)
 ;;55887-0570-40
 ;;9002226.02101,"798,55887-0570-40 ",.02)
 ;;55887-0570-40
 ;;9002226.02101,"798,55887-0570-60 ",.01)
 ;;55887-0570-60
 ;;9002226.02101,"798,55887-0570-60 ",.02)
 ;;55887-0570-60
 ;;9002226.02101,"798,55887-0570-90 ",.01)
 ;;55887-0570-90
 ;;9002226.02101,"798,55887-0570-90 ",.02)
 ;;55887-0570-90
 ;;9002226.02101,"798,55887-0570-92 ",.01)
 ;;55887-0570-92
 ;;9002226.02101,"798,55887-0570-92 ",.02)
 ;;55887-0570-92
 ;;9002226.02101,"798,55887-0572-14 ",.01)
 ;;55887-0572-14
 ;;9002226.02101,"798,55887-0572-14 ",.02)
 ;;55887-0572-14
 ;;9002226.02101,"798,55887-0572-30 ",.01)
 ;;55887-0572-30
 ;;9002226.02101,"798,55887-0572-30 ",.02)
 ;;55887-0572-30
 ;;9002226.02101,"798,55887-0572-50 ",.01)
 ;;55887-0572-50
 ;;9002226.02101,"798,55887-0572-50 ",.02)
 ;;55887-0572-50
 ;;9002226.02101,"798,55887-0572-60 ",.01)
 ;;55887-0572-60
 ;;9002226.02101,"798,55887-0572-60 ",.02)
 ;;55887-0572-60
 ;;9002226.02101,"798,55887-0572-90 ",.01)
 ;;55887-0572-90
 ;;9002226.02101,"798,55887-0572-90 ",.02)
 ;;55887-0572-90
 ;;9002226.02101,"798,55887-0650-30 ",.01)
 ;;55887-0650-30
 ;;9002226.02101,"798,55887-0650-30 ",.02)
 ;;55887-0650-30
 ;;9002226.02101,"798,55887-0650-60 ",.01)
 ;;55887-0650-60
 ;;9002226.02101,"798,55887-0650-60 ",.02)
 ;;55887-0650-60
 ;;9002226.02101,"798,55887-0650-90 ",.01)
 ;;55887-0650-90
 ;;9002226.02101,"798,55887-0650-90 ",.02)
 ;;55887-0650-90
 ;;9002226.02101,"798,55887-0650-92 ",.01)
 ;;55887-0650-92
 ;;9002226.02101,"798,55887-0650-92 ",.02)
 ;;55887-0650-92
 ;;9002226.02101,"798,55887-0660-30 ",.01)
 ;;55887-0660-30
 ;;9002226.02101,"798,55887-0660-30 ",.02)
 ;;55887-0660-30
 ;;9002226.02101,"798,55887-0660-60 ",.01)
 ;;55887-0660-60
 ;;9002226.02101,"798,55887-0660-60 ",.02)
 ;;55887-0660-60
 ;;9002226.02101,"798,55887-0661-01 ",.01)
 ;;55887-0661-01
 ;;9002226.02101,"798,55887-0661-01 ",.02)
 ;;55887-0661-01
 ;;9002226.02101,"798,55887-0661-30 ",.01)
 ;;55887-0661-30
 ;;9002226.02101,"798,55887-0661-30 ",.02)
 ;;55887-0661-30
 ;;9002226.02101,"798,55887-0661-60 ",.01)
 ;;55887-0661-60
 ;;9002226.02101,"798,55887-0661-60 ",.02)
 ;;55887-0661-60
 ;;9002226.02101,"798,55887-0661-90 ",.01)
 ;;55887-0661-90
 ;;9002226.02101,"798,55887-0661-90 ",.02)
 ;;55887-0661-90
 ;;9002226.02101,"798,55887-0662-30 ",.01)
 ;;55887-0662-30
 ;;9002226.02101,"798,55887-0662-30 ",.02)
 ;;55887-0662-30
 ;;9002226.02101,"798,55887-0662-60 ",.01)
 ;;55887-0662-60
 ;;9002226.02101,"798,55887-0662-60 ",.02)
 ;;55887-0662-60
 ;;9002226.02101,"798,55887-0663-30 ",.01)
 ;;55887-0663-30
 ;;9002226.02101,"798,55887-0663-30 ",.02)
 ;;55887-0663-30
 ;;9002226.02101,"798,55887-0663-60 ",.01)
 ;;55887-0663-60
 ;;9002226.02101,"798,55887-0663-60 ",.02)
 ;;55887-0663-60
 ;;9002226.02101,"798,55887-0663-90 ",.01)
 ;;55887-0663-90
 ;;9002226.02101,"798,55887-0663-90 ",.02)
 ;;55887-0663-90
 ;;9002226.02101,"798,55887-0664-30 ",.01)
 ;;55887-0664-30
 ;;9002226.02101,"798,55887-0664-30 ",.02)
 ;;55887-0664-30
 ;;9002226.02101,"798,55887-0664-90 ",.01)
 ;;55887-0664-90
 ;;9002226.02101,"798,55887-0664-90 ",.02)
 ;;55887-0664-90
 ;;9002226.02101,"798,55887-0665-30 ",.01)
 ;;55887-0665-30
 ;;9002226.02101,"798,55887-0665-30 ",.02)
 ;;55887-0665-30
 ;;9002226.02101,"798,55887-0665-60 ",.01)
 ;;55887-0665-60
 ;;9002226.02101,"798,55887-0665-60 ",.02)
 ;;55887-0665-60
 ;;9002226.02101,"798,55887-0665-82 ",.01)
 ;;55887-0665-82
 ;;9002226.02101,"798,55887-0665-82 ",.02)
 ;;55887-0665-82
 ;;9002226.02101,"798,55887-0665-90 ",.01)
 ;;55887-0665-90
 ;;9002226.02101,"798,55887-0665-90 ",.02)
 ;;55887-0665-90
 ;;9002226.02101,"798,55887-0745-50 ",.01)
 ;;55887-0745-50
 ;;9002226.02101,"798,55887-0745-50 ",.02)
 ;;55887-0745-50
 ;;9002226.02101,"798,55887-0871-30 ",.01)
 ;;55887-0871-30
 ;;9002226.02101,"798,55887-0871-30 ",.02)
 ;;55887-0871-30
 ;;9002226.02101,"798,55887-0871-60 ",.01)
 ;;55887-0871-60
 ;;9002226.02101,"798,55887-0871-60 ",.02)
 ;;55887-0871-60
 ;;9002226.02101,"798,55887-0925-30 ",.01)
 ;;55887-0925-30
 ;;9002226.02101,"798,55887-0925-30 ",.02)
 ;;55887-0925-30
 ;;9002226.02101,"798,55887-0925-60 ",.01)
 ;;55887-0925-60
 ;;9002226.02101,"798,55887-0925-60 ",.02)
 ;;55887-0925-60
 ;;9002226.02101,"798,55887-0925-82 ",.01)
 ;;55887-0925-82
 ;;9002226.02101,"798,55887-0925-82 ",.02)
 ;;55887-0925-82
 ;;9002226.02101,"798,55887-0925-90 ",.01)
 ;;55887-0925-90
 ;;9002226.02101,"798,55887-0925-90 ",.02)
 ;;55887-0925-90
 ;;9002226.02101,"798,55887-0947-07 ",.01)
 ;;55887-0947-07
 ;;9002226.02101,"798,55887-0947-07 ",.02)
 ;;55887-0947-07
 ;;9002226.02101,"798,55887-0947-30 ",.01)
 ;;55887-0947-30
 ;;9002226.02101,"798,55887-0947-30 ",.02)
 ;;55887-0947-30
 ;;9002226.02101,"798,55887-0967-30 ",.01)
 ;;55887-0967-30
 ;;9002226.02101,"798,55887-0967-30 ",.02)
 ;;55887-0967-30
 ;;9002226.02101,"798,55887-0967-60 ",.01)
 ;;55887-0967-60
 ;;9002226.02101,"798,55887-0967-60 ",.02)
 ;;55887-0967-60
 ;;9002226.02101,"798,57664-0357-88 ",.01)
 ;;57664-0357-88
 ;;9002226.02101,"798,57664-0357-88 ",.02)
 ;;57664-0357-88
 ;;9002226.02101,"798,57664-0361-13 ",.01)
 ;;57664-0361-13
 ;;9002226.02101,"798,57664-0361-13 ",.02)
 ;;57664-0361-13
 ;;9002226.02101,"798,57664-0361-88 ",.01)
 ;;57664-0361-88
 ;;9002226.02101,"798,57664-0361-88 ",.02)
 ;;57664-0361-88
 ;;9002226.02101,"798,57664-0362-13 ",.01)
 ;;57664-0362-13
 ;;9002226.02101,"798,57664-0362-13 ",.02)
 ;;57664-0362-13
 ;;9002226.02101,"798,57664-0362-88 ",.01)
 ;;57664-0362-88
 ;;9002226.02101,"798,57664-0362-88 ",.02)
 ;;57664-0362-88
 ;;9002226.02101,"798,57664-0421-13 ",.01)
 ;;57664-0421-13
 ;;9002226.02101,"798,57664-0421-13 ",.02)
 ;;57664-0421-13
 ;;9002226.02101,"798,57664-0421-83 ",.01)
 ;;57664-0421-83
 ;;9002226.02101,"798,57664-0421-83 ",.02)
 ;;57664-0421-83
 ;;9002226.02101,"798,57664-0421-99 ",.01)
 ;;57664-0421-99
 ;;9002226.02101,"798,57664-0421-99 ",.02)
 ;;57664-0421-99
 ;;9002226.02101,"798,57664-0422-13 ",.01)
 ;;57664-0422-13
 ;;9002226.02101,"798,57664-0422-13 ",.02)
 ;;57664-0422-13
 ;;9002226.02101,"798,57664-0422-18 ",.01)
 ;;57664-0422-18
 ;;9002226.02101,"798,57664-0422-18 ",.02)
 ;;57664-0422-18
 ;;9002226.02101,"798,57664-0422-83 ",.01)
 ;;57664-0422-83
 ;;9002226.02101,"798,57664-0422-83 ",.02)
 ;;57664-0422-83
 ;;9002226.02101,"798,57664-0422-99 ",.01)
 ;;57664-0422-99
 ;;9002226.02101,"798,57664-0422-99 ",.02)
 ;;57664-0422-99
 ;;9002226.02101,"798,57664-0424-13 ",.01)
 ;;57664-0424-13
 ;;9002226.02101,"798,57664-0424-13 ",.02)
 ;;57664-0424-13
 ;;9002226.02101,"798,57664-0424-83 ",.01)
 ;;57664-0424-83
 ;;9002226.02101,"798,57664-0424-83 ",.02)
 ;;57664-0424-83
 ;;9002226.02101,"798,57664-0424-99 ",.01)
 ;;57664-0424-99
 ;;9002226.02101,"798,57664-0424-99 ",.02)
 ;;57664-0424-99
 ;;9002226.02101,"798,57664-0425-13 ",.01)
 ;;57664-0425-13
 ;;9002226.02101,"798,57664-0425-13 ",.02)
 ;;57664-0425-13
 ;;9002226.02101,"798,57664-0425-83 ",.01)
 ;;57664-0425-83
 ;;9002226.02101,"798,57664-0425-83 ",.02)
 ;;57664-0425-83
 ;;9002226.02101,"798,57664-0425-99 ",.01)
 ;;57664-0425-99
 ;;9002226.02101,"798,57664-0425-99 ",.02)
 ;;57664-0425-99
 ;;9002226.02101,"798,57664-0499-18 ",.01)
 ;;57664-0499-18
 ;;9002226.02101,"798,57664-0499-18 ",.02)
 ;;57664-0499-18
 ;;9002226.02101,"798,57664-0499-83 ",.01)
 ;;57664-0499-83
 ;;9002226.02101,"798,57664-0499-83 ",.02)
 ;;57664-0499-83
 ;;9002226.02101,"798,57664-0500-18 ",.01)
 ;;57664-0500-18
 ;;9002226.02101,"798,57664-0500-18 ",.02)
 ;;57664-0500-18
 ;;9002226.02101,"798,57664-0500-83 ",.01)
 ;;57664-0500-83
 ;;9002226.02101,"798,57664-0500-83 ",.02)
 ;;57664-0500-83
 ;;9002226.02101,"798,57664-0501-18 ",.01)
 ;;57664-0501-18
 ;;9002226.02101,"798,57664-0501-18 ",.02)
 ;;57664-0501-18
 ;;9002226.02101,"798,57664-0501-83 ",.01)
 ;;57664-0501-83
 ;;9002226.02101,"798,57664-0501-83 ",.02)
 ;;57664-0501-83