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

IBDEI17O.m

Go to the documentation of this file.
IBDEI17O ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,19670,0)
 ;;=M62.452^^67^880^21
 ;;^UTILITY(U,$J,358.3,19670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19670,1,3,0)
 ;;=3^Contracture of muscle, left thigh
 ;;^UTILITY(U,$J,358.3,19670,1,4,0)
 ;;=4^M62.452
 ;;^UTILITY(U,$J,358.3,19670,2)
 ;;=^5012645
 ;;^UTILITY(U,$J,358.3,19671,0)
 ;;=M62.422^^67^880^22
 ;;^UTILITY(U,$J,358.3,19671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19671,1,3,0)
 ;;=3^Contracture of muscle, left upper arm
 ;;^UTILITY(U,$J,358.3,19671,1,4,0)
 ;;=4^M62.422
 ;;^UTILITY(U,$J,358.3,19671,2)
 ;;=^5012636
 ;;^UTILITY(U,$J,358.3,19672,0)
 ;;=M62.49^^67^880^23
 ;;^UTILITY(U,$J,358.3,19672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19672,1,3,0)
 ;;=3^Contracture of muscle, multiple sites
 ;;^UTILITY(U,$J,358.3,19672,1,4,0)
 ;;=4^M62.49
 ;;^UTILITY(U,$J,358.3,19672,2)
 ;;=^5012654
 ;;^UTILITY(U,$J,358.3,19673,0)
 ;;=M62.48^^67^880^24
 ;;^UTILITY(U,$J,358.3,19673,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19673,1,3,0)
 ;;=3^Contracture of muscle, other site
 ;;^UTILITY(U,$J,358.3,19673,1,4,0)
 ;;=4^M62.48
 ;;^UTILITY(U,$J,358.3,19673,2)
 ;;=^5012653
 ;;^UTILITY(U,$J,358.3,19674,0)
 ;;=M62.471^^67^880^25
 ;;^UTILITY(U,$J,358.3,19674,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19674,1,3,0)
 ;;=3^Contracture of muscle, right ankle and foot
 ;;^UTILITY(U,$J,358.3,19674,1,4,0)
 ;;=4^M62.471
 ;;^UTILITY(U,$J,358.3,19674,2)
 ;;=^5012650
 ;;^UTILITY(U,$J,358.3,19675,0)
 ;;=M62.431^^67^880^26
 ;;^UTILITY(U,$J,358.3,19675,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19675,1,3,0)
 ;;=3^Contracture of muscle, right forearm
 ;;^UTILITY(U,$J,358.3,19675,1,4,0)
 ;;=4^M62.431
 ;;^UTILITY(U,$J,358.3,19675,2)
 ;;=^5012638
 ;;^UTILITY(U,$J,358.3,19676,0)
 ;;=M62.441^^67^880^27
 ;;^UTILITY(U,$J,358.3,19676,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19676,1,3,0)
 ;;=3^Contracture of muscle, right hand
 ;;^UTILITY(U,$J,358.3,19676,1,4,0)
 ;;=4^M62.441
 ;;^UTILITY(U,$J,358.3,19676,2)
 ;;=^5012641
 ;;^UTILITY(U,$J,358.3,19677,0)
 ;;=M62.461^^67^880^28
 ;;^UTILITY(U,$J,358.3,19677,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19677,1,3,0)
 ;;=3^Contracture of muscle, right lower leg
 ;;^UTILITY(U,$J,358.3,19677,1,4,0)
 ;;=4^M62.461
 ;;^UTILITY(U,$J,358.3,19677,2)
 ;;=^5012647
 ;;^UTILITY(U,$J,358.3,19678,0)
 ;;=M62.411^^67^880^29
 ;;^UTILITY(U,$J,358.3,19678,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19678,1,3,0)
 ;;=3^Contracture of muscle, right shoulder
 ;;^UTILITY(U,$J,358.3,19678,1,4,0)
 ;;=4^M62.411
 ;;^UTILITY(U,$J,358.3,19678,2)
 ;;=^5012632
 ;;^UTILITY(U,$J,358.3,19679,0)
 ;;=M62.451^^67^880^30
 ;;^UTILITY(U,$J,358.3,19679,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19679,1,3,0)
 ;;=3^Contracture of muscle, right thigh
 ;;^UTILITY(U,$J,358.3,19679,1,4,0)
 ;;=4^M62.451
 ;;^UTILITY(U,$J,358.3,19679,2)
 ;;=^5012644
 ;;^UTILITY(U,$J,358.3,19680,0)
 ;;=M62.421^^67^880^31
 ;;^UTILITY(U,$J,358.3,19680,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19680,1,3,0)
 ;;=3^Contracture of muscle, right upper arm
 ;;^UTILITY(U,$J,358.3,19680,1,4,0)
 ;;=4^M62.421
 ;;^UTILITY(U,$J,358.3,19680,2)
 ;;=^5012635
 ;;^UTILITY(U,$J,358.3,19681,0)
 ;;=M25.262^^67^880^38
 ;;^UTILITY(U,$J,358.3,19681,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19681,1,3,0)
 ;;=3^Flail joint, left knee
 ;;^UTILITY(U,$J,358.3,19681,1,4,0)
 ;;=4^M25.262
 ;;^UTILITY(U,$J,358.3,19681,2)
 ;;=^5011544
 ;;^UTILITY(U,$J,358.3,19682,0)
 ;;=M25.212^^67^880^39