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

IBDEI33N.m

Go to the documentation of this file.
  1. IBDEI33N ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. Q:'DIFQR(358.3) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,49500,2)
  1. ;;=^5001324
  1. ;;^UTILITY(U,$J,358.3,49501,0)
  1. ;;=C64.1^^191^2467^18
  1. ;;^UTILITY(U,$J,358.3,49501,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49501,1,3,0)
  1. ;;=3^Malig Neop Kidney,Right
  1. ;;^UTILITY(U,$J,358.3,49501,1,4,0)
  1. ;;=4^C64.1
  1. ;;^UTILITY(U,$J,358.3,49501,2)
  1. ;;=^5001248
  1. ;;^UTILITY(U,$J,358.3,49502,0)
  1. ;;=C64.2^^191^2467^17
  1. ;;^UTILITY(U,$J,358.3,49502,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49502,1,3,0)
  1. ;;=3^Malig Neop Kidney,Left
  1. ;;^UTILITY(U,$J,358.3,49502,1,4,0)
  1. ;;=4^C64.2
  1. ;;^UTILITY(U,$J,358.3,49502,2)
  1. ;;=^5001249
  1. ;;^UTILITY(U,$J,358.3,49503,0)
  1. ;;=C71.9^^191^2467^9
  1. ;;^UTILITY(U,$J,358.3,49503,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49503,1,3,0)
  1. ;;=3^Malig Neop Brain,Unspec
  1. ;;^UTILITY(U,$J,358.3,49503,1,4,0)
  1. ;;=4^C71.9
  1. ;;^UTILITY(U,$J,358.3,49503,2)
  1. ;;=^5001297
  1. ;;^UTILITY(U,$J,358.3,49504,0)
  1. ;;=C16.9^^191^2467^24
  1. ;;^UTILITY(U,$J,358.3,49504,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49504,1,3,0)
  1. ;;=3^Malig Neop Stomach,Unspec
  1. ;;^UTILITY(U,$J,358.3,49504,1,4,0)
  1. ;;=4^C16.9
  1. ;;^UTILITY(U,$J,358.3,49504,2)
  1. ;;=^5000923
  1. ;;^UTILITY(U,$J,358.3,49505,0)
  1. ;;=C20.^^191^2467^23
  1. ;;^UTILITY(U,$J,358.3,49505,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49505,1,3,0)
  1. ;;=3^Malig Neop Rectum
  1. ;;^UTILITY(U,$J,358.3,49505,1,4,0)
  1. ;;=4^C20.
  1. ;;^UTILITY(U,$J,358.3,49505,2)
  1. ;;=^267090
  1. ;;^UTILITY(U,$J,358.3,49506,0)
  1. ;;=C43.9^^191^2467^6
  1. ;;^UTILITY(U,$J,358.3,49506,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49506,1,3,0)
  1. ;;=3^Malig Melanoma Skin,Unspec
  1. ;;^UTILITY(U,$J,358.3,49506,1,4,0)
  1. ;;=4^C43.9
  1. ;;^UTILITY(U,$J,358.3,49506,2)
  1. ;;=^5001015
  1. ;;^UTILITY(U,$J,358.3,49507,0)
  1. ;;=C22.9^^191^2467^21
  1. ;;^UTILITY(U,$J,358.3,49507,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49507,1,3,0)
  1. ;;=3^Malig Neop Liver,Unspec as Prim/Sec
  1. ;;^UTILITY(U,$J,358.3,49507,1,4,0)
  1. ;;=4^C22.9
  1. ;;^UTILITY(U,$J,358.3,49507,2)
  1. ;;=^267096
  1. ;;^UTILITY(U,$J,358.3,49508,0)
  1. ;;=C32.9^^191^2467^19
  1. ;;^UTILITY(U,$J,358.3,49508,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49508,1,3,0)
  1. ;;=3^Malig Neop Larynx,Unspec
  1. ;;^UTILITY(U,$J,358.3,49508,1,4,0)
  1. ;;=4^C32.9
  1. ;;^UTILITY(U,$J,358.3,49508,2)
  1. ;;=^5000956
  1. ;;^UTILITY(U,$J,358.3,49509,0)
  1. ;;=C50.911^^191^2467^11
  1. ;;^UTILITY(U,$J,358.3,49509,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49509,1,3,0)
  1. ;;=3^Malig Neop Breast,Right,Female
  1. ;;^UTILITY(U,$J,358.3,49509,1,4,0)
  1. ;;=4^C50.911
  1. ;;^UTILITY(U,$J,358.3,49509,2)
  1. ;;=^5001195
  1. ;;^UTILITY(U,$J,358.3,49510,0)
  1. ;;=C50.912^^191^2467^10
  1. ;;^UTILITY(U,$J,358.3,49510,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49510,1,3,0)
  1. ;;=3^Malig Neop Breast,Left,Female
  1. ;;^UTILITY(U,$J,358.3,49510,1,4,0)
  1. ;;=4^C50.912
  1. ;;^UTILITY(U,$J,358.3,49510,2)
  1. ;;=^5001196
  1. ;;^UTILITY(U,$J,358.3,49511,0)
  1. ;;=C24.9^^191^2467^7
  1. ;;^UTILITY(U,$J,358.3,49511,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49511,1,3,0)
  1. ;;=3^Malig Neop Biliary Tract,Unspec
  1. ;;^UTILITY(U,$J,358.3,49511,1,4,0)
  1. ;;=4^C24.9
  1. ;;^UTILITY(U,$J,358.3,49511,2)
  1. ;;=^5000942
  1. ;;^UTILITY(U,$J,358.3,49512,0)
  1. ;;=C90.00^^191^2467^25
  1. ;;^UTILITY(U,$J,358.3,49512,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49512,1,3,0)
  1. ;;=3^Multiple Myeloma,Not in Remission
  1. ;;^UTILITY(U,$J,358.3,49512,1,4,0)
  1. ;;=4^C90.00
  1. ;;^UTILITY(U,$J,358.3,49512,2)
  1. ;;=^5001752
  1. ;;^UTILITY(U,$J,358.3,49513,0)
  1. ;;=C85.89^^191^2467^29
  1. ;;^UTILITY(U,$J,358.3,49513,1,0)
  1. ;;=^358.31IA^4^2