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