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

IBDEI246.m

Go to the documentation of this file.
IBDEI246 ; ; 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,33778,2)
 ;;=^5039249
 ;;^UTILITY(U,$J,358.3,33779,0)
 ;;=S73.014A^^132^1711^40
 ;;^UTILITY(U,$J,358.3,33779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33779,1,3,0)
 ;;=3^Posterior dislocation of right hip, initial encounter
 ;;^UTILITY(U,$J,358.3,33779,1,4,0)
 ;;=4^S73.014A
 ;;^UTILITY(U,$J,358.3,33779,2)
 ;;=^5039246
 ;;^UTILITY(U,$J,358.3,33780,0)
 ;;=M00.052^^132^1711^42
 ;;^UTILITY(U,$J,358.3,33780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33780,1,3,0)
 ;;=3^Staphylococcal arthritis, left hip
 ;;^UTILITY(U,$J,358.3,33780,1,4,0)
 ;;=4^M00.052
 ;;^UTILITY(U,$J,358.3,33780,2)
 ;;=^5009611
 ;;^UTILITY(U,$J,358.3,33781,0)
 ;;=M00.051^^132^1711^43
 ;;^UTILITY(U,$J,358.3,33781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33781,1,3,0)
 ;;=3^Staphylococcal arthritis, right hip
 ;;^UTILITY(U,$J,358.3,33781,1,4,0)
 ;;=4^M00.051
 ;;^UTILITY(U,$J,358.3,33781,2)
 ;;=^5009610
 ;;^UTILITY(U,$J,358.3,33782,0)
 ;;=M12.552^^132^1711^44
 ;;^UTILITY(U,$J,358.3,33782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33782,1,3,0)
 ;;=3^Traumatic arthropathy, left hip
 ;;^UTILITY(U,$J,358.3,33782,1,4,0)
 ;;=4^M12.552
 ;;^UTILITY(U,$J,358.3,33782,2)
 ;;=^5010632
 ;;^UTILITY(U,$J,358.3,33783,0)
 ;;=M12.551^^132^1711^45
 ;;^UTILITY(U,$J,358.3,33783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33783,1,3,0)
 ;;=3^Traumatic arthropathy, right hip
 ;;^UTILITY(U,$J,358.3,33783,1,4,0)
 ;;=4^M12.551
 ;;^UTILITY(U,$J,358.3,33783,2)
 ;;=^5010631
 ;;^UTILITY(U,$J,358.3,33784,0)
 ;;=M70.62^^132^1711^46
 ;;^UTILITY(U,$J,358.3,33784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33784,1,3,0)
 ;;=3^Trochanteric bursitis, left hip
 ;;^UTILITY(U,$J,358.3,33784,1,4,0)
 ;;=4^M70.62
 ;;^UTILITY(U,$J,358.3,33784,2)
 ;;=^5013060
 ;;^UTILITY(U,$J,358.3,33785,0)
 ;;=M70.61^^132^1711^47
 ;;^UTILITY(U,$J,358.3,33785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33785,1,3,0)
 ;;=3^Trochanteric bursitis, right hip
 ;;^UTILITY(U,$J,358.3,33785,1,4,0)
 ;;=4^M70.61
 ;;^UTILITY(U,$J,358.3,33785,2)
 ;;=^5013059
 ;;^UTILITY(U,$J,358.3,33786,0)
 ;;=S70.02XD^^132^1711^6
 ;;^UTILITY(U,$J,358.3,33786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33786,1,3,0)
 ;;=3^Contusion of left hip, subsequent encounter
 ;;^UTILITY(U,$J,358.3,33786,1,4,0)
 ;;=4^S70.02XD
 ;;^UTILITY(U,$J,358.3,33786,2)
 ;;=^5036838
 ;;^UTILITY(U,$J,358.3,33787,0)
 ;;=S70.01XD^^132^1711^8
 ;;^UTILITY(U,$J,358.3,33787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33787,1,3,0)
 ;;=3^Contusion of right hip, subsequent encounter
 ;;^UTILITY(U,$J,358.3,33787,1,4,0)
 ;;=4^S70.01XD
 ;;^UTILITY(U,$J,358.3,33787,2)
 ;;=^5036835
 ;;^UTILITY(U,$J,358.3,33788,0)
 ;;=S72.142D^^132^1711^11
 ;;^UTILITY(U,$J,358.3,33788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33788,1,3,0)
 ;;=3^Displ intertroch fx l femur, subs for clos fx w routn heal
 ;;^UTILITY(U,$J,358.3,33788,1,4,0)
 ;;=4^S72.142D
 ;;^UTILITY(U,$J,358.3,33788,2)
 ;;=^5037934
 ;;^UTILITY(U,$J,358.3,33789,0)
 ;;=S72.141D^^132^1711^12
 ;;^UTILITY(U,$J,358.3,33789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33789,1,3,0)
 ;;=3^Displ intertroch fx r femur, subs for clos fx w routn heal
 ;;^UTILITY(U,$J,358.3,33789,1,4,0)
 ;;=4^S72.141D
 ;;^UTILITY(U,$J,358.3,33789,2)
 ;;=^5037918
 ;;^UTILITY(U,$J,358.3,33790,0)
 ;;=S72.22XD^^132^1711^13
 ;;^UTILITY(U,$J,358.3,33790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33790,1,3,0)
 ;;=3^Displ subtrochnt fx l femur, subs for clos fx w routn heal