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

IBDEI2JO.m

Go to the documentation of this file.
IBDEI2JO ; ; 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,40627,1,4,0)
 ;;=4^S86.312A
 ;;^UTILITY(U,$J,358.3,40627,2)
 ;;=^5043514
 ;;^UTILITY(U,$J,358.3,40628,0)
 ;;=S86.811A^^152^2013^48
 ;;^UTILITY(U,$J,358.3,40628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40628,1,3,0)
 ;;=3^Strain of Right Lower Leg Muscle/Tendon NEC
 ;;^UTILITY(U,$J,358.3,40628,1,4,0)
 ;;=4^S86.811A
 ;;^UTILITY(U,$J,358.3,40628,2)
 ;;=^5043538
 ;;^UTILITY(U,$J,358.3,40629,0)
 ;;=S86.812A^^152^2013^28
 ;;^UTILITY(U,$J,358.3,40629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40629,1,3,0)
 ;;=3^Strain of Left Lower Leg Muscle/Tendon NEC
 ;;^UTILITY(U,$J,358.3,40629,1,4,0)
 ;;=4^S86.812A
 ;;^UTILITY(U,$J,358.3,40629,2)
 ;;=^5043541
 ;;^UTILITY(U,$J,358.3,40630,0)
 ;;=S86.111A^^152^2013^50
 ;;^UTILITY(U,$J,358.3,40630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40630,1,3,0)
 ;;=3^Strain of Right Lower Leg Posterior Muscle/Tendon
 ;;^UTILITY(U,$J,358.3,40630,1,4,0)
 ;;=4^S86.111A
 ;;^UTILITY(U,$J,358.3,40630,2)
 ;;=^5043460
 ;;^UTILITY(U,$J,358.3,40631,0)
 ;;=S86.112A^^152^2013^30
 ;;^UTILITY(U,$J,358.3,40631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40631,1,3,0)
 ;;=3^Strain of Left Lower Leg Posterior Muscle/Tendon
 ;;^UTILITY(U,$J,358.3,40631,1,4,0)
 ;;=4^S86.112A
 ;;^UTILITY(U,$J,358.3,40631,2)
 ;;=^5043463
 ;;^UTILITY(U,$J,358.3,40632,0)
 ;;=S83.401A^^152^2013^15
 ;;^UTILITY(U,$J,358.3,40632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40632,1,3,0)
 ;;=3^Sprain of Right Knee Collateral Ligament
 ;;^UTILITY(U,$J,358.3,40632,1,4,0)
 ;;=4^S83.401A
 ;;^UTILITY(U,$J,358.3,40632,2)
 ;;=^5043103
 ;;^UTILITY(U,$J,358.3,40633,0)
 ;;=S83.402A^^152^2013^4
 ;;^UTILITY(U,$J,358.3,40633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40633,1,3,0)
 ;;=3^Sprain of Left Knee Collateral Ligament
 ;;^UTILITY(U,$J,358.3,40633,1,4,0)
 ;;=4^S83.402A
 ;;^UTILITY(U,$J,358.3,40633,2)
 ;;=^5043106
 ;;^UTILITY(U,$J,358.3,40634,0)
 ;;=S93.402A^^152^2013^2
 ;;^UTILITY(U,$J,358.3,40634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40634,1,3,0)
 ;;=3^Sprain of Left Ankle Ligament
 ;;^UTILITY(U,$J,358.3,40634,1,4,0)
 ;;=4^S93.402A
 ;;^UTILITY(U,$J,358.3,40634,2)
 ;;=^5045777
 ;;^UTILITY(U,$J,358.3,40635,0)
 ;;=S93.401A^^152^2013^13
 ;;^UTILITY(U,$J,358.3,40635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40635,1,3,0)
 ;;=3^Sprain of Right Ankle Ligament
 ;;^UTILITY(U,$J,358.3,40635,1,4,0)
 ;;=4^S93.401A
 ;;^UTILITY(U,$J,358.3,40635,2)
 ;;=^5045774
 ;;^UTILITY(U,$J,358.3,40636,0)
 ;;=S56.511A^^152^2013^39
 ;;^UTILITY(U,$J,358.3,40636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40636,1,3,0)
 ;;=3^Strain of Right Forearm Extn Musc/Fasc/Tend
 ;;^UTILITY(U,$J,358.3,40636,1,4,0)
 ;;=4^S56.511A
 ;;^UTILITY(U,$J,358.3,40636,2)
 ;;=^5031838
 ;;^UTILITY(U,$J,358.3,40637,0)
 ;;=S56.512A^^152^2013^19
 ;;^UTILITY(U,$J,358.3,40637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40637,1,3,0)
 ;;=3^Strain of Left Forearm Extn Musc/Fasc/Tend
 ;;^UTILITY(U,$J,358.3,40637,1,4,0)
 ;;=4^S56.512A
 ;;^UTILITY(U,$J,358.3,40637,2)
 ;;=^5031841
 ;;^UTILITY(U,$J,358.3,40638,0)
 ;;=S13.8XXA^^152^2013^10
 ;;^UTILITY(U,$J,358.3,40638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40638,1,3,0)
 ;;=3^Sprain of Neck Joints/Ligaments,Init Encntr
 ;;^UTILITY(U,$J,358.3,40638,1,4,0)
 ;;=4^S13.8XXA
 ;;^UTILITY(U,$J,358.3,40638,2)
 ;;=^5022034
 ;;^UTILITY(U,$J,358.3,40639,0)
 ;;=S16.1XXA^^152^2013^37
 ;;^UTILITY(U,$J,358.3,40639,1,0)
 ;;=^358.31IA^4^2