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

IBDEI2XJ.m

Go to the documentation of this file.
  1. IBDEI2XJ ; ; 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,46752,2)
  1. ;;=^67056
  1. ;;^UTILITY(U,$J,358.3,46753,0)
  1. ;;=N20.2^^179^2331^2
  1. ;;^UTILITY(U,$J,358.3,46753,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46753,1,3,0)
  1. ;;=3^Calculus of kidney w/ calculus of ureter
  1. ;;^UTILITY(U,$J,358.3,46753,1,4,0)
  1. ;;=4^N20.2
  1. ;;^UTILITY(U,$J,358.3,46753,2)
  1. ;;=^5015609
  1. ;;^UTILITY(U,$J,358.3,46754,0)
  1. ;;=N20.1^^179^2331^3
  1. ;;^UTILITY(U,$J,358.3,46754,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46754,1,3,0)
  1. ;;=3^Calculus of ureter
  1. ;;^UTILITY(U,$J,358.3,46754,1,4,0)
  1. ;;=4^N20.1
  1. ;;^UTILITY(U,$J,358.3,46754,2)
  1. ;;=^5015608
  1. ;;^UTILITY(U,$J,358.3,46755,0)
  1. ;;=N28.1^^179^2331^5
  1. ;;^UTILITY(U,$J,358.3,46755,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46755,1,3,0)
  1. ;;=3^Cyst of kidney, acquired
  1. ;;^UTILITY(U,$J,358.3,46755,1,4,0)
  1. ;;=4^N28.1
  1. ;;^UTILITY(U,$J,358.3,46755,2)
  1. ;;=^270380
  1. ;;^UTILITY(U,$J,358.3,46756,0)
  1. ;;=R30.0^^179^2331^6
  1. ;;^UTILITY(U,$J,358.3,46756,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46756,1,3,0)
  1. ;;=3^Dysuria
  1. ;;^UTILITY(U,$J,358.3,46756,1,4,0)
  1. ;;=4^R30.0
  1. ;;^UTILITY(U,$J,358.3,46756,2)
  1. ;;=^5019322
  1. ;;^UTILITY(U,$J,358.3,46757,0)
  1. ;;=R30.9^^179^2331^14
  1. ;;^UTILITY(U,$J,358.3,46757,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46757,1,3,0)
  1. ;;=3^Painful micturition, Unspec
  1. ;;^UTILITY(U,$J,358.3,46757,1,4,0)
  1. ;;=4^R30.9
  1. ;;^UTILITY(U,$J,358.3,46757,2)
  1. ;;=^5019324
  1. ;;^UTILITY(U,$J,358.3,46758,0)
  1. ;;=S37.001A^^179^2331^13
  1. ;;^UTILITY(U,$J,358.3,46758,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46758,1,3,0)
  1. ;;=3^Injury Right Kidney,Init Encntr,Unspec
  1. ;;^UTILITY(U,$J,358.3,46758,1,4,0)
  1. ;;=4^S37.001A
  1. ;;^UTILITY(U,$J,358.3,46758,2)
  1. ;;=^5025817
  1. ;;^UTILITY(U,$J,358.3,46759,0)
  1. ;;=S37.002A^^179^2331^12
  1. ;;^UTILITY(U,$J,358.3,46759,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46759,1,3,0)
  1. ;;=3^Injury Left Kidney,Init Encntr,Unspec
  1. ;;^UTILITY(U,$J,358.3,46759,1,4,0)
  1. ;;=4^S37.002A
  1. ;;^UTILITY(U,$J,358.3,46759,2)
  1. ;;=^5025820
  1. ;;^UTILITY(U,$J,358.3,46760,0)
  1. ;;=N13.2^^179^2331^8
  1. ;;^UTILITY(U,$J,358.3,46760,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46760,1,3,0)
  1. ;;=3^Hydroneph w/ Ureteropelv Junction Obstr
  1. ;;^UTILITY(U,$J,358.3,46760,1,4,0)
  1. ;;=4^N13.2
  1. ;;^UTILITY(U,$J,358.3,46760,2)
  1. ;;=^5015577
  1. ;;^UTILITY(U,$J,358.3,46761,0)
  1. ;;=C61.^^179^2332^21
  1. ;;^UTILITY(U,$J,358.3,46761,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46761,1,3,0)
  1. ;;=3^Malig Neop Prostate
  1. ;;^UTILITY(U,$J,358.3,46761,1,4,0)
  1. ;;=4^C61.
  1. ;;^UTILITY(U,$J,358.3,46761,2)
  1. ;;=^267239
  1. ;;^UTILITY(U,$J,358.3,46762,0)
  1. ;;=C62.12^^179^2332^11
  1. ;;^UTILITY(U,$J,358.3,46762,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46762,1,3,0)
  1. ;;=3^Malig Neop Descended Lt Testis
  1. ;;^UTILITY(U,$J,358.3,46762,1,4,0)
  1. ;;=4^C62.12
  1. ;;^UTILITY(U,$J,358.3,46762,2)
  1. ;;=^5001235
  1. ;;^UTILITY(U,$J,358.3,46763,0)
  1. ;;=C62.11^^179^2332^12
  1. ;;^UTILITY(U,$J,358.3,46763,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46763,1,3,0)
  1. ;;=3^Malig Neop Descended Rt Testis
  1. ;;^UTILITY(U,$J,358.3,46763,1,4,0)
  1. ;;=4^C62.11
  1. ;;^UTILITY(U,$J,358.3,46763,2)
  1. ;;=^5001234
  1. ;;^UTILITY(U,$J,358.3,46764,0)
  1. ;;=C62.91^^179^2332^26
  1. ;;^UTILITY(U,$J,358.3,46764,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46764,1,3,0)
  1. ;;=3^Malig Neop Rt Testis
  1. ;;^UTILITY(U,$J,358.3,46764,1,4,0)
  1. ;;=4^C62.91
  1. ;;^UTILITY(U,$J,358.3,46764,2)
  1. ;;=^5001237
  1. ;;^UTILITY(U,$J,358.3,46765,0)
  1. ;;=C62.92^^179^2332^18
  1. ;;^UTILITY(U,$J,358.3,46765,1,0)
  1. ;;=^358.31IA^4^2