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

IBDEI38M.m

Go to the documentation of this file.
IBDEI38M ; ; 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,51687,1,4,0)
 ;;=4^S86.312A
 ;;^UTILITY(U,$J,358.3,51687,2)
 ;;=^5043514
 ;;^UTILITY(U,$J,358.3,51688,0)
 ;;=S86.811A^^193^2510^48
 ;;^UTILITY(U,$J,358.3,51688,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51688,1,3,0)
 ;;=3^Strain of Right Lower Leg Muscle/Tendon NEC
 ;;^UTILITY(U,$J,358.3,51688,1,4,0)
 ;;=4^S86.811A
 ;;^UTILITY(U,$J,358.3,51688,2)
 ;;=^5043538
 ;;^UTILITY(U,$J,358.3,51689,0)
 ;;=S86.812A^^193^2510^28
 ;;^UTILITY(U,$J,358.3,51689,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51689,1,3,0)
 ;;=3^Strain of Left Lower Leg Muscle/Tendon NEC
 ;;^UTILITY(U,$J,358.3,51689,1,4,0)
 ;;=4^S86.812A
 ;;^UTILITY(U,$J,358.3,51689,2)
 ;;=^5043541
 ;;^UTILITY(U,$J,358.3,51690,0)
 ;;=S86.111A^^193^2510^50
 ;;^UTILITY(U,$J,358.3,51690,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51690,1,3,0)
 ;;=3^Strain of Right Lower Leg Posterior Muscle/Tendon
 ;;^UTILITY(U,$J,358.3,51690,1,4,0)
 ;;=4^S86.111A
 ;;^UTILITY(U,$J,358.3,51690,2)
 ;;=^5043460
 ;;^UTILITY(U,$J,358.3,51691,0)
 ;;=S86.112A^^193^2510^30
 ;;^UTILITY(U,$J,358.3,51691,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51691,1,3,0)
 ;;=3^Strain of Left Lower Leg Posterior Muscle/Tendon
 ;;^UTILITY(U,$J,358.3,51691,1,4,0)
 ;;=4^S86.112A
 ;;^UTILITY(U,$J,358.3,51691,2)
 ;;=^5043463
 ;;^UTILITY(U,$J,358.3,51692,0)
 ;;=S83.401A^^193^2510^15
 ;;^UTILITY(U,$J,358.3,51692,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51692,1,3,0)
 ;;=3^Sprain of Right Knee Collateral Ligament
 ;;^UTILITY(U,$J,358.3,51692,1,4,0)
 ;;=4^S83.401A
 ;;^UTILITY(U,$J,358.3,51692,2)
 ;;=^5043103
 ;;^UTILITY(U,$J,358.3,51693,0)
 ;;=S83.402A^^193^2510^4
 ;;^UTILITY(U,$J,358.3,51693,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51693,1,3,0)
 ;;=3^Sprain of Left Knee Collateral Ligament
 ;;^UTILITY(U,$J,358.3,51693,1,4,0)
 ;;=4^S83.402A
 ;;^UTILITY(U,$J,358.3,51693,2)
 ;;=^5043106
 ;;^UTILITY(U,$J,358.3,51694,0)
 ;;=S93.402A^^193^2510^2
 ;;^UTILITY(U,$J,358.3,51694,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51694,1,3,0)
 ;;=3^Sprain of Left Ankle Ligament
 ;;^UTILITY(U,$J,358.3,51694,1,4,0)
 ;;=4^S93.402A
 ;;^UTILITY(U,$J,358.3,51694,2)
 ;;=^5045777
 ;;^UTILITY(U,$J,358.3,51695,0)
 ;;=S93.401A^^193^2510^13
 ;;^UTILITY(U,$J,358.3,51695,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51695,1,3,0)
 ;;=3^Sprain of Right Ankle Ligament
 ;;^UTILITY(U,$J,358.3,51695,1,4,0)
 ;;=4^S93.401A
 ;;^UTILITY(U,$J,358.3,51695,2)
 ;;=^5045774
 ;;^UTILITY(U,$J,358.3,51696,0)
 ;;=S56.511A^^193^2510^39
 ;;^UTILITY(U,$J,358.3,51696,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51696,1,3,0)
 ;;=3^Strain of Right Forearm Extn Musc/Fasc/Tend
 ;;^UTILITY(U,$J,358.3,51696,1,4,0)
 ;;=4^S56.511A
 ;;^UTILITY(U,$J,358.3,51696,2)
 ;;=^5031838
 ;;^UTILITY(U,$J,358.3,51697,0)
 ;;=S56.512A^^193^2510^19
 ;;^UTILITY(U,$J,358.3,51697,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51697,1,3,0)
 ;;=3^Strain of Left Forearm Extn Musc/Fasc/Tend
 ;;^UTILITY(U,$J,358.3,51697,1,4,0)
 ;;=4^S56.512A
 ;;^UTILITY(U,$J,358.3,51697,2)
 ;;=^5031841
 ;;^UTILITY(U,$J,358.3,51698,0)
 ;;=S13.8XXA^^193^2510^10
 ;;^UTILITY(U,$J,358.3,51698,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51698,1,3,0)
 ;;=3^Sprain of Neck Joints/Ligaments,Init Encntr
 ;;^UTILITY(U,$J,358.3,51698,1,4,0)
 ;;=4^S13.8XXA
 ;;^UTILITY(U,$J,358.3,51698,2)
 ;;=^5022034
 ;;^UTILITY(U,$J,358.3,51699,0)
 ;;=S16.1XXA^^193^2510^37
 ;;^UTILITY(U,$J,358.3,51699,1,0)
 ;;=^358.31IA^4^2