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

IBDEI27L.m

Go to the documentation of this file.
IBDEI27L ; ; 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,35274,1,4,0)
 ;;=4^S46.011S
 ;;^UTILITY(U,$J,358.3,35274,2)
 ;;=^5028148
 ;;^UTILITY(U,$J,358.3,35275,0)
 ;;=M53.3^^137^1799^64
 ;;^UTILITY(U,$J,358.3,35275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35275,1,3,0)
 ;;=3^Sacro-Iliac Pain
 ;;^UTILITY(U,$J,358.3,35275,1,4,0)
 ;;=4^M53.3
 ;;^UTILITY(U,$J,358.3,35275,2)
 ;;=^5012274
 ;;^UTILITY(U,$J,358.3,35276,0)
 ;;=M76.891^^137^1799^84
 ;;^UTILITY(U,$J,358.3,35276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35276,1,3,0)
 ;;=3^Tendonitis,Right Lower Limb
 ;;^UTILITY(U,$J,358.3,35276,1,4,0)
 ;;=4^M76.891
 ;;^UTILITY(U,$J,358.3,35276,2)
 ;;=^5013296
 ;;^UTILITY(U,$J,358.3,35277,0)
 ;;=M76.892^^137^1799^83
 ;;^UTILITY(U,$J,358.3,35277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35277,1,3,0)
 ;;=3^Tendonitis,Left Lower Limb
 ;;^UTILITY(U,$J,358.3,35277,1,4,0)
 ;;=4^M76.892
 ;;^UTILITY(U,$J,358.3,35277,2)
 ;;=^5013297
 ;;^UTILITY(U,$J,358.3,35278,0)
 ;;=R20.8^^137^1800^10
 ;;^UTILITY(U,$J,358.3,35278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35278,1,3,0)
 ;;=3^Disturbances of skin sensation NEC
 ;;^UTILITY(U,$J,358.3,35278,1,4,0)
 ;;=4^R20.8
 ;;^UTILITY(U,$J,358.3,35278,2)
 ;;=^5019281
 ;;^UTILITY(U,$J,358.3,35279,0)
 ;;=T79.8XXA^^137^1800^12
 ;;^UTILITY(U,$J,358.3,35279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35279,1,3,0)
 ;;=3^Early complications of trauma, initial encounter
 ;;^UTILITY(U,$J,358.3,35279,1,4,0)
 ;;=4^T79.8XXA
 ;;^UTILITY(U,$J,358.3,35279,2)
 ;;=^5054317
 ;;^UTILITY(U,$J,358.3,35280,0)
 ;;=R53.83^^137^1800^13
 ;;^UTILITY(U,$J,358.3,35280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35280,1,3,0)
 ;;=3^Fatigue NEC
 ;;^UTILITY(U,$J,358.3,35280,1,4,0)
 ;;=4^R53.83
 ;;^UTILITY(U,$J,358.3,35280,2)
 ;;=^5019520
 ;;^UTILITY(U,$J,358.3,35281,0)
 ;;=R53.81^^137^1800^21
 ;;^UTILITY(U,$J,358.3,35281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35281,1,3,0)
 ;;=3^Malaise NEC
 ;;^UTILITY(U,$J,358.3,35281,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,35281,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,35282,0)
 ;;=F45.42^^137^1800^35
 ;;^UTILITY(U,$J,358.3,35282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35282,1,3,0)
 ;;=3^Pain disorder with related psychological factors
 ;;^UTILITY(U,$J,358.3,35282,1,4,0)
 ;;=4^F45.42
 ;;^UTILITY(U,$J,358.3,35282,2)
 ;;=^5003591
 ;;^UTILITY(U,$J,358.3,35283,0)
 ;;=M72.0^^137^1800^56
 ;;^UTILITY(U,$J,358.3,35283,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35283,1,3,0)
 ;;=3^Palmar fascial fibromatosis [Dupuytren]
 ;;^UTILITY(U,$J,358.3,35283,1,4,0)
 ;;=4^M72.0
 ;;^UTILITY(U,$J,358.3,35283,2)
 ;;=^5013233
 ;;^UTILITY(U,$J,358.3,35284,0)
 ;;=R43.2^^137^1800^57
 ;;^UTILITY(U,$J,358.3,35284,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35284,1,3,0)
 ;;=3^Parageusia
 ;;^UTILITY(U,$J,358.3,35284,1,4,0)
 ;;=4^R43.2
 ;;^UTILITY(U,$J,358.3,35284,2)
 ;;=^5019452
 ;;^UTILITY(U,$J,358.3,35285,0)
 ;;=G82.20^^137^1800^58
 ;;^UTILITY(U,$J,358.3,35285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35285,1,3,0)
 ;;=3^Paraplegia, unspecified
 ;;^UTILITY(U,$J,358.3,35285,1,4,0)
 ;;=4^G82.20
 ;;^UTILITY(U,$J,358.3,35285,2)
 ;;=^5004125
 ;;^UTILITY(U,$J,358.3,35286,0)
 ;;=R20.2^^137^1800^59
 ;;^UTILITY(U,$J,358.3,35286,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35286,1,3,0)
 ;;=3^Paresthesia of skin
 ;;^UTILITY(U,$J,358.3,35286,1,4,0)
 ;;=4^R20.2
 ;;^UTILITY(U,$J,358.3,35286,2)
 ;;=^5019280
 ;;^UTILITY(U,$J,358.3,35287,0)
 ;;=R43.1^^137^1800^60