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

IBDEI2ER.m

Go to the documentation of this file.
IBDEI2ER ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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
Q Q
 ;;^UTILITY(U,$J,358.3,38429,1,3,0)
 ;;=3^Tremor, unspecified
 ;;^UTILITY(U,$J,358.3,38429,1,4,0)
 ;;=4^R25.1
 ;;^UTILITY(U,$J,358.3,38429,2)
 ;;=^5019300
 ;;^UTILITY(U,$J,358.3,38430,0)
 ;;=R25.9^^149^1953^1
 ;;^UTILITY(U,$J,358.3,38430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38430,1,3,0)
 ;;=3^Abnormal involuntary movements,Unspec
 ;;^UTILITY(U,$J,358.3,38430,1,4,0)
 ;;=4^R25.9
 ;;^UTILITY(U,$J,358.3,38430,2)
 ;;=^5019303
 ;;^UTILITY(U,$J,358.3,38431,0)
 ;;=R26.0^^149^1953^8
 ;;^UTILITY(U,$J,358.3,38431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38431,1,3,0)
 ;;=3^Ataxic gait
 ;;^UTILITY(U,$J,358.3,38431,1,4,0)
 ;;=4^R26.0
 ;;^UTILITY(U,$J,358.3,38431,2)
 ;;=^5019304
 ;;^UTILITY(U,$J,358.3,38432,0)
 ;;=R26.89^^149^1953^3
 ;;^UTILITY(U,$J,358.3,38432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38432,1,3,0)
 ;;=3^Abnormalities of gait and mobility NEC
 ;;^UTILITY(U,$J,358.3,38432,1,4,0)
 ;;=4^R26.89
 ;;^UTILITY(U,$J,358.3,38432,2)
 ;;=^5019308
 ;;^UTILITY(U,$J,358.3,38433,0)
 ;;=F10.10^^149^1953^4
 ;;^UTILITY(U,$J,358.3,38433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38433,1,3,0)
 ;;=3^Alcohol abuse, uncomplicated
 ;;^UTILITY(U,$J,358.3,38433,1,4,0)
 ;;=4^F10.10
 ;;^UTILITY(U,$J,358.3,38433,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,38434,0)
 ;;=R47.01^^149^1953^6
 ;;^UTILITY(U,$J,358.3,38434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38434,1,3,0)
 ;;=3^Aphasia
 ;;^UTILITY(U,$J,358.3,38434,1,4,0)
 ;;=4^R47.01
 ;;^UTILITY(U,$J,358.3,38434,2)
 ;;=^5019488
 ;;^UTILITY(U,$J,358.3,38435,0)
 ;;=F32.9^^149^1953^24
 ;;^UTILITY(U,$J,358.3,38435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38435,1,3,0)
 ;;=3^Major depressive disorder, single episode, unspecified
 ;;^UTILITY(U,$J,358.3,38435,1,4,0)
 ;;=4^F32.9
 ;;^UTILITY(U,$J,358.3,38435,2)
 ;;=^5003528
 ;;^UTILITY(U,$J,358.3,38436,0)
 ;;=R26.2^^149^1953^15
 ;;^UTILITY(U,$J,358.3,38436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38436,1,3,0)
 ;;=3^Difficulty in walking, not elsewhere classified
 ;;^UTILITY(U,$J,358.3,38436,1,4,0)
 ;;=4^R26.2
 ;;^UTILITY(U,$J,358.3,38436,2)
 ;;=^5019306
 ;;^UTILITY(U,$J,358.3,38437,0)
 ;;=R43.0^^149^1953^5
 ;;^UTILITY(U,$J,358.3,38437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38437,1,3,0)
 ;;=3^Anosmia
 ;;^UTILITY(U,$J,358.3,38437,1,4,0)
 ;;=4^R43.0
 ;;^UTILITY(U,$J,358.3,38437,2)
 ;;=^7949
 ;;^UTILITY(U,$J,358.3,38438,0)
 ;;=R43.9^^149^1953^16
 ;;^UTILITY(U,$J,358.3,38438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38438,1,3,0)
 ;;=3^Disturbances of smell and taste,Unspec
 ;;^UTILITY(U,$J,358.3,38438,1,4,0)
 ;;=4^R43.9
 ;;^UTILITY(U,$J,358.3,38438,2)
 ;;=^5019454
 ;;^UTILITY(U,$J,358.3,38439,0)
 ;;=H91.91^^149^1953^20
 ;;^UTILITY(U,$J,358.3,38439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38439,1,3,0)
 ;;=3^Hear,Unspecing loss, right ear
 ;;^UTILITY(U,$J,358.3,38439,1,4,0)
 ;;=4^H91.91
 ;;^UTILITY(U,$J,358.3,38439,2)
 ;;=^5133553
 ;;^UTILITY(U,$J,358.3,38440,0)
 ;;=H91.92^^149^1953^19
 ;;^UTILITY(U,$J,358.3,38440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38440,1,3,0)
 ;;=3^Hear,Unspecing loss, left ear
 ;;^UTILITY(U,$J,358.3,38440,1,4,0)
 ;;=4^H91.92
 ;;^UTILITY(U,$J,358.3,38440,2)
 ;;=^5133554
 ;;^UTILITY(U,$J,358.3,38441,0)
 ;;=H91.93^^149^1953^21
 ;;^UTILITY(U,$J,358.3,38441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38441,1,3,0)
 ;;=3^Hearing loss, bilateral,Unspec
 ;;^UTILITY(U,$J,358.3,38441,1,4,0)
 ;;=4^H91.93