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

IBDEI2Y7.m

Go to the documentation of this file.
  1. IBDEI2Y7 ; ; 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,47050,1,4,0)
  1. ;;=4^M54.2
  1. ;;^UTILITY(U,$J,358.3,47050,2)
  1. ;;=^5012304
  1. ;;^UTILITY(U,$J,358.3,47051,0)
  1. ;;=R07.9^^181^2350^33
  1. ;;^UTILITY(U,$J,358.3,47051,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47051,1,3,0)
  1. ;;=3^Chest Pain,Unspec
  1. ;;^UTILITY(U,$J,358.3,47051,1,4,0)
  1. ;;=4^R07.9
  1. ;;^UTILITY(U,$J,358.3,47051,2)
  1. ;;=^5019201
  1. ;;^UTILITY(U,$J,358.3,47052,0)
  1. ;;=N20.0^^181^2350^16
  1. ;;^UTILITY(U,$J,358.3,47052,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47052,1,3,0)
  1. ;;=3^Calculus of Kidney
  1. ;;^UTILITY(U,$J,358.3,47052,1,4,0)
  1. ;;=4^N20.0
  1. ;;^UTILITY(U,$J,358.3,47052,2)
  1. ;;=^67056
  1. ;;^UTILITY(U,$J,358.3,47053,0)
  1. ;;=I69.910^^181^2350^24
  1. ;;^UTILITY(U,$J,358.3,47053,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47053,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Attn/Concentration Deficit
  1. ;;^UTILITY(U,$J,358.3,47053,1,4,0)
  1. ;;=4^I69.910
  1. ;;^UTILITY(U,$J,358.3,47053,2)
  1. ;;=^5138660
  1. ;;^UTILITY(U,$J,358.3,47054,0)
  1. ;;=I69.911^^181^2350^27
  1. ;;^UTILITY(U,$J,358.3,47054,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47054,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Memory Deficit
  1. ;;^UTILITY(U,$J,358.3,47054,1,4,0)
  1. ;;=4^I69.911
  1. ;;^UTILITY(U,$J,358.3,47054,2)
  1. ;;=^5138661
  1. ;;^UTILITY(U,$J,358.3,47055,0)
  1. ;;=I69.912^^181^2350^31
  1. ;;^UTILITY(U,$J,358.3,47055,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47055,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Visuospatial Deficit/Spatial Neglect
  1. ;;^UTILITY(U,$J,358.3,47055,1,4,0)
  1. ;;=4^I69.912
  1. ;;^UTILITY(U,$J,358.3,47055,2)
  1. ;;=^5138662
  1. ;;^UTILITY(U,$J,358.3,47056,0)
  1. ;;=I69.913^^181^2350^29
  1. ;;^UTILITY(U,$J,358.3,47056,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47056,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Psychomotor Deficit
  1. ;;^UTILITY(U,$J,358.3,47056,1,4,0)
  1. ;;=4^I69.913
  1. ;;^UTILITY(U,$J,358.3,47056,2)
  1. ;;=^5138663
  1. ;;^UTILITY(U,$J,358.3,47057,0)
  1. ;;=I69.914^^181^2350^26
  1. ;;^UTILITY(U,$J,358.3,47057,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47057,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Frontal Lobe/Executive Function Deficit
  1. ;;^UTILITY(U,$J,358.3,47057,1,4,0)
  1. ;;=4^I69.914
  1. ;;^UTILITY(U,$J,358.3,47057,2)
  1. ;;=^5138664
  1. ;;^UTILITY(U,$J,358.3,47058,0)
  1. ;;=I69.915^^181^2350^25
  1. ;;^UTILITY(U,$J,358.3,47058,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47058,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Cognitive Social/Emotional Deficit
  1. ;;^UTILITY(U,$J,358.3,47058,1,4,0)
  1. ;;=4^I69.915
  1. ;;^UTILITY(U,$J,358.3,47058,2)
  1. ;;=^5138665
  1. ;;^UTILITY(U,$J,358.3,47059,0)
  1. ;;=I69.918^^181^2350^28
  1. ;;^UTILITY(U,$J,358.3,47059,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47059,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Other Sympt/Signs Involv Cognitive Functions
  1. ;;^UTILITY(U,$J,358.3,47059,1,4,0)
  1. ;;=4^I69.918
  1. ;;^UTILITY(U,$J,358.3,47059,2)
  1. ;;=^5138666
  1. ;;^UTILITY(U,$J,358.3,47060,0)
  1. ;;=I69.919^^181^2350^30
  1. ;;^UTILITY(U,$J,358.3,47060,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47060,1,3,0)
  1. ;;=3^Cerebrovasc Disease w/ Unspec Sympt/Signs Involv Cognitive Functions
  1. ;;^UTILITY(U,$J,358.3,47060,1,4,0)
  1. ;;=4^I69.919
  1. ;;^UTILITY(U,$J,358.3,47060,2)
  1. ;;=^5138667
  1. ;;^UTILITY(U,$J,358.3,47061,0)
  1. ;;=I50.30^^181^2350^5
  1. ;;^UTILITY(U,$J,358.3,47061,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47061,1,3,0)
  1. ;;=3^CHF Diastolic,Unspec
  1. ;;^UTILITY(U,$J,358.3,47061,1,4,0)
  1. ;;=4^I50.30
  1. ;;^UTILITY(U,$J,358.3,47061,2)
  1. ;;=^5007243
  1. ;;^UTILITY(U,$J,358.3,47062,0)
  1. ;;=I50.31^^181^2350^2
  1. ;;^UTILITY(U,$J,358.3,47062,1,0)
  1. ;;=^358.31IA^4^2