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

BGP7LXKF.m

Go to the documentation of this file.
BGP7LXKF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"628,00839-7521-06 ",.01)
 ;;00839-7521-06
 ;;9002226.02101,"628,00839-7521-06 ",.02)
 ;;00839-7521-06
 ;;9002226.02101,"628,00839-7796-06 ",.01)
 ;;00839-7796-06
 ;;9002226.02101,"628,00839-7796-06 ",.02)
 ;;00839-7796-06
 ;;9002226.02101,"628,00839-7806-06 ",.01)
 ;;00839-7806-06
 ;;9002226.02101,"628,00839-7806-06 ",.02)
 ;;00839-7806-06
 ;;9002226.02101,"628,00839-7850-70 ",.01)
 ;;00839-7850-70
 ;;9002226.02101,"628,00839-7850-70 ",.02)
 ;;00839-7850-70
 ;;9002226.02101,"628,00839-7910-06 ",.01)
 ;;00839-7910-06
 ;;9002226.02101,"628,00839-7910-06 ",.02)
 ;;00839-7910-06
 ;;9002226.02101,"628,00839-7974-06 ",.01)
 ;;00839-7974-06
 ;;9002226.02101,"628,00839-7974-06 ",.02)
 ;;00839-7974-06
 ;;9002226.02101,"628,00839-8071-06 ",.01)
 ;;00839-8071-06
 ;;9002226.02101,"628,00839-8071-06 ",.02)
 ;;00839-8071-06
 ;;9002226.02101,"628,00879-0059-16 ",.01)
 ;;00879-0059-16
 ;;9002226.02101,"628,00879-0059-16 ",.02)
 ;;00879-0059-16
 ;;9002226.02101,"628,00879-0484-01 ",.01)
 ;;00879-0484-01
 ;;9002226.02101,"628,00879-0484-01 ",.02)
 ;;00879-0484-01
 ;;9002226.02101,"628,00879-0484-10 ",.01)
 ;;00879-0484-10
 ;;9002226.02101,"628,00879-0484-10 ",.02)
 ;;00879-0484-10
 ;;9002226.02101,"628,00879-0545-01 ",.01)
 ;;00879-0545-01
 ;;9002226.02101,"628,00879-0545-01 ",.02)
 ;;00879-0545-01
 ;;9002226.02101,"628,00879-0545-10 ",.01)
 ;;00879-0545-10
 ;;9002226.02101,"628,00879-0545-10 ",.02)
 ;;00879-0545-10
 ;;9002226.02101,"628,00894-0087-24 ",.01)
 ;;00894-0087-24
 ;;9002226.02101,"628,00894-0087-24 ",.02)
 ;;00894-0087-24
 ;;9002226.02101,"628,00894-0985-24 ",.01)
 ;;00894-0985-24
 ;;9002226.02101,"628,00894-0985-24 ",.02)
 ;;00894-0985-24
 ;;9002226.02101,"628,00894-1232-94 ",.01)
 ;;00894-1232-94
 ;;9002226.02101,"628,00894-1232-94 ",.02)
 ;;00894-1232-94
 ;;9002226.02101,"628,00904-0032-60 ",.01)
 ;;00904-0032-60
 ;;9002226.02101,"628,00904-0032-60 ",.02)
 ;;00904-0032-60
 ;;9002226.02101,"628,00904-0032-80 ",.01)
 ;;00904-0032-80
 ;;9002226.02101,"628,00904-0032-80 ",.02)
 ;;00904-0032-80
 ;;9002226.02101,"628,00904-0981-00 ",.01)
 ;;00904-0981-00
 ;;9002226.02101,"628,00904-0981-00 ",.02)
 ;;00904-0981-00
 ;;9002226.02101,"628,00904-0981-16 ",.01)
 ;;00904-0981-16
 ;;9002226.02101,"628,00904-0981-16 ",.02)
 ;;00904-0981-16
 ;;9002226.02101,"628,00904-0981-20 ",.01)
 ;;00904-0981-20
 ;;9002226.02101,"628,00904-0981-20 ",.02)
 ;;00904-0981-20
 ;;9002226.02101,"628,00904-0981-28 ",.01)
 ;;00904-0981-28
 ;;9002226.02101,"628,00904-0981-28 ",.02)
 ;;00904-0981-28
 ;;9002226.02101,"628,00904-1198-40 ",.01)
 ;;00904-1198-40
 ;;9002226.02101,"628,00904-1198-40 ",.02)
 ;;00904-1198-40
 ;;9002226.02101,"628,00904-1198-60 ",.01)
 ;;00904-1198-60
 ;;9002226.02101,"628,00904-1198-60 ",.02)
 ;;00904-1198-60
 ;;9002226.02101,"628,00904-2496-60 ",.01)
 ;;00904-2496-60
 ;;9002226.02101,"628,00904-2496-60 ",.02)
 ;;00904-2496-60
 ;;9002226.02101,"628,00904-2548-60 ",.01)
 ;;00904-2548-60
 ;;9002226.02101,"628,00904-2548-60 ",.02)
 ;;00904-2548-60
 ;;9002226.02101,"628,00904-3286-60 ",.01)
 ;;00904-3286-60
 ;;9002226.02101,"628,00904-3286-60 ",.02)
 ;;00904-3286-60
 ;;9002226.02101,"628,00904-3286-80 ",.01)
 ;;00904-3286-80
 ;;9002226.02101,"628,00904-3286-80 ",.02)
 ;;00904-3286-80
 ;;9002226.02101,"628,00904-3741-60 ",.01)
 ;;00904-3741-60
 ;;9002226.02101,"628,00904-3741-60 ",.02)
 ;;00904-3741-60
 ;;9002226.02101,"628,00904-3741-61 ",.01)
 ;;00904-3741-61
 ;;9002226.02101,"628,00904-3741-61 ",.02)
 ;;00904-3741-61
 ;;9002226.02101,"628,00904-3741-80 ",.01)
 ;;00904-3741-80
 ;;9002226.02101,"628,00904-3741-80 ",.02)
 ;;00904-3741-80
 ;;9002226.02101,"628,00904-5120-60 ",.01)
 ;;00904-5120-60
 ;;9002226.02101,"628,00904-5120-60 ",.02)
 ;;00904-5120-60
 ;;9002226.02101,"628,00904-5147-24 ",.01)
 ;;00904-5147-24
 ;;9002226.02101,"628,00904-5147-24 ",.02)
 ;;00904-5147-24
 ;;9002226.02101,"628,00904-5387-60 ",.01)
 ;;00904-5387-60
 ;;9002226.02101,"628,00904-5387-60 ",.02)
 ;;00904-5387-60
 ;;9002226.02101,"628,00904-7833-60 ",.01)
 ;;00904-7833-60
 ;;9002226.02101,"628,00904-7833-60 ",.02)
 ;;00904-7833-60
 ;;9002226.02101,"628,10019-0180-05 ",.01)
 ;;10019-0180-05
 ;;9002226.02101,"628,10019-0180-05 ",.02)
 ;;10019-0180-05
 ;;9002226.02101,"628,10019-0195-15 ",.01)
 ;;10019-0195-15
 ;;9002226.02101,"628,10019-0195-15 ",.02)
 ;;10019-0195-15
 ;;9002226.02101,"628,10019-0250-12 ",.01)
 ;;10019-0250-12
 ;;9002226.02101,"628,10019-0250-12 ",.02)
 ;;10019-0250-12
 ;;9002226.02101,"628,10019-0250-20 ",.01)
 ;;10019-0250-20
 ;;9002226.02101,"628,10019-0250-20 ",.02)
 ;;10019-0250-20
 ;;9002226.02101,"628,10019-0251-12 ",.01)
 ;;10019-0251-12
 ;;9002226.02101,"628,10019-0251-12 ",.02)
 ;;10019-0251-12
 ;;9002226.02101,"628,10019-0553-01 ",.01)
 ;;10019-0553-01
 ;;9002226.02101,"628,10019-0553-01 ",.02)
 ;;10019-0553-01
 ;;9002226.02101,"628,10019-0553-02 ",.01)
 ;;10019-0553-02
 ;;9002226.02101,"628,10019-0553-02 ",.02)
 ;;10019-0553-02
 ;;9002226.02101,"628,10135-0184-01 ",.01)
 ;;10135-0184-01
 ;;9002226.02101,"628,10135-0184-01 ",.02)
 ;;10135-0184-01
 ;;9002226.02101,"628,10267-1621-01 ",.01)
 ;;10267-1621-01
 ;;9002226.02101,"628,10267-1621-01 ",.02)
 ;;10267-1621-01
 ;;9002226.02101,"628,10939-0068-22 ",.01)
 ;;10939-0068-22
 ;;9002226.02101,"628,10939-0068-22 ",.02)
 ;;10939-0068-22
 ;;9002226.02101,"628,10939-0491-33 ",.01)
 ;;10939-0491-33
 ;;9002226.02101,"628,10939-0491-33 ",.02)
 ;;10939-0491-33
 ;;9002226.02101,"628,10939-0492-33 ",.01)
 ;;10939-0492-33
 ;;9002226.02101,"628,10939-0492-33 ",.02)
 ;;10939-0492-33
 ;;9002226.02101,"628,10939-0495-33 ",.01)
 ;;10939-0495-33
 ;;9002226.02101,"628,10939-0495-33 ",.02)
 ;;10939-0495-33
 ;;9002226.02101,"628,10939-0496-33 ",.01)
 ;;10939-0496-33
 ;;9002226.02101,"628,10939-0496-33 ",.02)
 ;;10939-0496-33
 ;;9002226.02101,"628,10939-0497-33 ",.01)
 ;;10939-0497-33
 ;;9002226.02101,"628,10939-0497-33 ",.02)
 ;;10939-0497-33
 ;;9002226.02101,"628,10939-0498-33 ",.01)
 ;;10939-0498-33
 ;;9002226.02101,"628,10939-0498-33 ",.02)
 ;;10939-0498-33
 ;;9002226.02101,"628,10939-0499-33 ",.01)
 ;;10939-0499-33
 ;;9002226.02101,"628,10939-0499-33 ",.02)
 ;;10939-0499-33
 ;;9002226.02101,"628,10939-0566-01 ",.01)
 ;;10939-0566-01
 ;;9002226.02101,"628,10939-0566-01 ",.02)
 ;;10939-0566-01
 ;;9002226.02101,"628,10939-0566-11 ",.01)
 ;;10939-0566-11
 ;;9002226.02101,"628,10939-0566-11 ",.02)
 ;;10939-0566-11
 ;;9002226.02101,"628,10960-0738-24 ",.01)
 ;;10960-0738-24
 ;;9002226.02101,"628,10960-0738-24 ",.02)
 ;;10960-0738-24
 ;;9002226.02101,"628,11370-0134-12 ",.01)
 ;;11370-0134-12
 ;;9002226.02101,"628,11370-0134-12 ",.02)
 ;;11370-0134-12
 ;;9002226.02101,"628,11370-0134-17 ",.01)
 ;;11370-0134-17
 ;;9002226.02101,"628,11370-0134-17 ",.02)
 ;;11370-0134-17
 ;;9002226.02101,"628,11441-0034-09 ",.01)
 ;;11441-0034-09
 ;;9002226.02101,"628,11441-0034-09 ",.02)
 ;;11441-0034-09
 ;;9002226.02101,"628,11441-0205-18 ",.01)
 ;;11441-0205-18
 ;;9002226.02101,"628,11441-0205-18 ",.02)
 ;;11441-0205-18
 ;;9002226.02101,"628,11441-0205-29 ",.01)
 ;;11441-0205-29
 ;;9002226.02101,"628,11441-0205-29 ",.02)
 ;;11441-0205-29
 ;;9002226.02101,"628,11441-0206-18 ",.01)
 ;;11441-0206-18
 ;;9002226.02101,"628,11441-0206-18 ",.02)
 ;;11441-0206-18
 ;;9002226.02101,"628,11441-0206-29 ",.01)
 ;;11441-0206-29
 ;;9002226.02101,"628,11441-0206-29 ",.02)
 ;;11441-0206-29
 ;;9002226.02101,"628,11540-0263-62 ",.01)
 ;;11540-0263-62
 ;;9002226.02101,"628,11540-0263-62 ",.02)
 ;;11540-0263-62
 ;;9002226.02101,"628,11540-0333-26 ",.01)
 ;;11540-0333-26
 ;;9002226.02101,"628,11540-0333-26 ",.02)
 ;;11540-0333-26
 ;;9002226.02101,"628,11540-0462-62 ",.01)
 ;;11540-0462-62
 ;;9002226.02101,"628,11540-0462-62 ",.02)
 ;;11540-0462-62
 ;;9002226.02101,"628,11808-0111-01 ",.01)
 ;;11808-0111-01
 ;;9002226.02101,"628,11808-0111-01 ",.02)
 ;;11808-0111-01
 ;;9002226.02101,"628,11808-0112-01 ",.01)
 ;;11808-0112-01
 ;;9002226.02101,"628,11808-0112-01 ",.02)
 ;;11808-0112-01
 ;;9002226.02101,"628,11822-2397-80 ",.01)
 ;;11822-2397-80
 ;;9002226.02101,"628,11822-2397-80 ",.02)
 ;;11822-2397-80
 ;;9002226.02101,"628,11822-3039-90 ",.01)
 ;;11822-3039-90
 ;;9002226.02101,"628,11822-3039-90 ",.02)
 ;;11822-3039-90
 ;;9002226.02101,"628,11822-3320-40 ",.01)
 ;;11822-3320-40
 ;;9002226.02101,"628,11822-3320-40 ",.02)
 ;;11822-3320-40
 ;;9002226.02101,"628,11822-3823-10 ",.01)
 ;;11822-3823-10
 ;;9002226.02101,"628,11822-3823-10 ",.02)
 ;;11822-3823-10
 ;;9002226.02101,"628,11917-0011-46 ",.01)
 ;;11917-0011-46
 ;;9002226.02101,"628,11917-0011-46 ",.02)
 ;;11917-0011-46
 ;;9002226.02101,"628,11917-0036-57 ",.01)
 ;;11917-0036-57
 ;;9002226.02101,"628,11917-0036-57 ",.02)
 ;;11917-0036-57
 ;;9002226.02101,"628,11917-0036-58 ",.01)
 ;;11917-0036-58
 ;;9002226.02101,"628,11917-0036-58 ",.02)
 ;;11917-0036-58
 ;;9002226.02101,"628,11917-0036-59 ",.01)
 ;;11917-0036-59
 ;;9002226.02101,"628,11917-0036-59 ",.02)
 ;;11917-0036-59
 ;;9002226.02101,"628,11917-0043-88 ",.01)
 ;;11917-0043-88
 ;;9002226.02101,"628,11917-0043-88 ",.02)
 ;;11917-0043-88
 ;;9002226.02101,"628,11917-0043-89 ",.01)
 ;;11917-0043-89
 ;;9002226.02101,"628,11917-0043-89 ",.02)
 ;;11917-0043-89
 ;;9002226.02101,"628,11917-0043-97 ",.01)
 ;;11917-0043-97
 ;;9002226.02101,"628,11917-0043-97 ",.02)
 ;;11917-0043-97
 ;;9002226.02101,"628,12280-0212-00 ",.01)
 ;;12280-0212-00
 ;;9002226.02101,"628,12280-0212-00 ",.02)
 ;;12280-0212-00
 ;;9002226.02101,"628,12333-9069-19 ",.01)
 ;;12333-9069-19
 ;;9002226.02101,"628,12333-9069-19 ",.02)
 ;;12333-9069-19
 ;;9002226.02101,"628,12333-9073-19 ",.01)
 ;;12333-9073-19
 ;;9002226.02101,"628,12333-9073-19 ",.02)
 ;;12333-9073-19
 ;;9002226.02101,"628,12333-9073-49 ",.01)
 ;;12333-9073-49
 ;;9002226.02101,"628,12333-9073-49 ",.02)
 ;;12333-9073-49
 ;;9002226.02101,"628,12333-9073-59 ",.01)
 ;;12333-9073-59
 ;;9002226.02101,"628,12333-9073-59 ",.02)
 ;;12333-9073-59
 ;;9002226.02101,"628,12333-9074-19 ",.01)
 ;;12333-9074-19
 ;;9002226.02101,"628,12333-9074-19 ",.02)
 ;;12333-9074-19
 ;;9002226.02101,"628,12333-9514-03 ",.01)
 ;;12333-9514-03
 ;;9002226.02101,"628,12333-9514-03 ",.02)
 ;;12333-9514-03
 ;;9002226.02101,"628,12333-9514-39 ",.01)
 ;;12333-9514-39
 ;;9002226.02101,"628,12333-9514-39 ",.02)
 ;;12333-9514-39
 ;;9002226.02101,"628,12810-0479-62 ",.01)
 ;;12810-0479-62
 ;;9002226.02101,"628,12810-0479-62 ",.02)
 ;;12810-0479-62
 ;;9002226.02101,"628,12810-0479-68 ",.01)
 ;;12810-0479-68
 ;;9002226.02101,"628,12810-0479-68 ",.02)
 ;;12810-0479-68
 ;;9002226.02101,"628,12810-0479-78 ",.01)
 ;;12810-0479-78
 ;;9002226.02101,"628,12810-0479-78 ",.02)
 ;;12810-0479-78
 ;;9002226.02101,"628,12939-0773-60 ",.01)
 ;;12939-0773-60
 ;;9002226.02101,"628,12939-0773-60 ",.02)
 ;;12939-0773-60
 ;;9002226.02101,"628,12939-0775-16 ",.01)
 ;;12939-0775-16
 ;;9002226.02101,"628,12939-0775-16 ",.02)
 ;;12939-0775-16
 ;;9002226.02101,"628,14615-8943-03 ",.01)
 ;;14615-8943-03
 ;;9002226.02101,"628,14615-8943-03 ",.02)
 ;;14615-8943-03
 ;;9002226.02101,"628,15127-0002-08 ",.01)
 ;;15127-0002-08
 ;;9002226.02101,"628,15127-0002-08 ",.02)
 ;;15127-0002-08
 ;;9002226.02101,"628,15127-0014-09 ",.01)
 ;;15127-0014-09
 ;;9002226.02101,"628,15127-0014-09 ",.02)
 ;;15127-0014-09
 ;;9002226.02101,"628,15127-0034-01 ",.01)
 ;;15127-0034-01
 ;;9002226.02101,"628,15127-0034-01 ",.02)
 ;;15127-0034-01
 ;;9002226.02101,"628,15127-0205-36 ",.01)
 ;;15127-0205-36
 ;;9002226.02101,"628,15127-0205-36 ",.02)
 ;;15127-0205-36
 ;;9002226.02101,"628,17022-3808-06 ",.01)
 ;;17022-3808-06
 ;;9002226.02101,"628,17022-3808-06 ",.02)
 ;;17022-3808-06
 ;;9002226.02101,"628,17022-3829-06 ",.01)
 ;;17022-3829-06
 ;;9002226.02101,"628,17022-3829-06 ",.02)
 ;;17022-3829-06
 ;;9002226.02101,"628,17236-0336-01 ",.01)
 ;;17236-0336-01
 ;;9002226.02101,"628,17236-0336-01 ",.02)
 ;;17236-0336-01
 ;;9002226.02101,"628,17236-0516-24 ",.01)
 ;;17236-0516-24
 ;;9002226.02101,"628,17236-0516-24 ",.02)
 ;;17236-0516-24
 ;;9002226.02101,"628,17236-0775-16 ",.01)
 ;;17236-0775-16
 ;;9002226.02101,"628,17236-0775-16 ",.02)
 ;;17236-0775-16
 ;;9002226.02101,"628,17236-0775-28 ",.01)
 ;;17236-0775-28
 ;;9002226.02101,"628,17236-0775-28 ",.02)
 ;;17236-0775-28
 ;;9002226.02101,"628,17236-0775-44 ",.01)
 ;;17236-0775-44
 ;;9002226.02101,"628,17236-0775-44 ",.02)
 ;;17236-0775-44
 ;;9002226.02101,"628,17236-0905-01 ",.01)
 ;;17236-0905-01
 ;;9002226.02101,"628,17236-0905-01 ",.02)
 ;;17236-0905-01
 ;;9002226.02101,"628,17236-0905-10 ",.01)
 ;;17236-0905-10
 ;;9002226.02101,"628,17236-0905-10 ",.02)
 ;;17236-0905-10
 ;;9002226.02101,"628,17317-0042-01 ",.01)
 ;;17317-0042-01
 ;;9002226.02101,"628,17317-0042-01 ",.02)
 ;;17317-0042-01
 ;;9002226.02101,"628,17317-0042-04 ",.01)
 ;;17317-0042-04
 ;;9002226.02101,"628,17317-0042-04 ",.02)
 ;;17317-0042-04
 ;;9002226.02101,"628,17317-0044-01 ",.01)
 ;;17317-0044-01
 ;;9002226.02101,"628,17317-0044-01 ",.02)
 ;;17317-0044-01
 ;;9002226.02101,"628,17317-0044-04 ",.01)
 ;;17317-0044-04
 ;;9002226.02101,"628,17317-0044-04 ",.02)
 ;;17317-0044-04
 ;;9002226.02101,"628,19458-9054-01 ",.01)
 ;;19458-9054-01
 ;;9002226.02101,"628,19458-9054-01 ",.02)
 ;;19458-9054-01
 ;;9002226.02101,"628,19458-9891-01 ",.01)
 ;;19458-9891-01
 ;;9002226.02101,"628,19458-9891-01 ",.02)
 ;;19458-9891-01
 ;;9002226.02101,"628,24385-0333-26 ",.01)
 ;;24385-0333-26
 ;;9002226.02101,"628,24385-0333-26 ",.02)
 ;;24385-0333-26