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

IBDEI23J.m

Go to the documentation of this file.
  1. IBDEI23J ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,33507,1,4,0)
  1. ;;=4^S72.352D
  1. ;;^UTILITY(U,$J,358.3,33507,2)
  1. ;;=^5038451
  1. ;;^UTILITY(U,$J,358.3,33508,0)
  1. ;;=S72.351D^^132^1703^8
  1. ;;^UTILITY(U,$J,358.3,33508,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33508,1,3,0)
  1. ;;=3^Displ comminuted fx shaft of right femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33508,1,4,0)
  1. ;;=4^S72.351D
  1. ;;^UTILITY(U,$J,358.3,33508,2)
  1. ;;=^5038435
  1. ;;^UTILITY(U,$J,358.3,33509,0)
  1. ;;=S72.354D^^132^1703^14
  1. ;;^UTILITY(U,$J,358.3,33509,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33509,1,3,0)
  1. ;;=3^Nondisp commnt fx shaft of right femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33509,1,4,0)
  1. ;;=4^S72.354D
  1. ;;^UTILITY(U,$J,358.3,33509,2)
  1. ;;=^5038483
  1. ;;^UTILITY(U,$J,358.3,33510,0)
  1. ;;=S72.355D^^132^1703^12
  1. ;;^UTILITY(U,$J,358.3,33510,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33510,1,3,0)
  1. ;;=3^Nondisp commnt fx shaft of left femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33510,1,4,0)
  1. ;;=4^S72.355D
  1. ;;^UTILITY(U,$J,358.3,33510,2)
  1. ;;=^5038499
  1. ;;^UTILITY(U,$J,358.3,33511,0)
  1. ;;=M84.552D^^132^1703^16
  1. ;;^UTILITY(U,$J,358.3,33511,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33511,1,3,0)
  1. ;;=3^Path fx in neopltc dis, left femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33511,1,4,0)
  1. ;;=4^M84.552D
  1. ;;^UTILITY(U,$J,358.3,33511,2)
  1. ;;=^5014125
  1. ;;^UTILITY(U,$J,358.3,33512,0)
  1. ;;=M84.551D^^132^1703^17
  1. ;;^UTILITY(U,$J,358.3,33512,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33512,1,3,0)
  1. ;;=3^Path fx in neopltc dis, right femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33512,1,4,0)
  1. ;;=4^M84.551D
  1. ;;^UTILITY(U,$J,358.3,33512,2)
  1. ;;=^5014119
  1. ;;^UTILITY(U,$J,358.3,33513,0)
  1. ;;=M84.652D^^132^1703^18
  1. ;;^UTILITY(U,$J,358.3,33513,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33513,1,3,0)
  1. ;;=3^Path fx in oth disease, left femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33513,1,4,0)
  1. ;;=4^M84.652D
  1. ;;^UTILITY(U,$J,358.3,33513,2)
  1. ;;=^5134004
  1. ;;^UTILITY(U,$J,358.3,33514,0)
  1. ;;=M84.651D^^132^1703^20
  1. ;;^UTILITY(U,$J,358.3,33514,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33514,1,3,0)
  1. ;;=3^Path fx in oth disease, right femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33514,1,4,0)
  1. ;;=4^M84.651D
  1. ;;^UTILITY(U,$J,358.3,33514,2)
  1. ;;=^5014263
  1. ;;^UTILITY(U,$J,358.3,33515,0)
  1. ;;=M84.452D^^132^1703^24
  1. ;;^UTILITY(U,$J,358.3,33515,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33515,1,3,0)
  1. ;;=3^Pathological fracture, left femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33515,1,4,0)
  1. ;;=4^M84.452D
  1. ;;^UTILITY(U,$J,358.3,33515,2)
  1. ;;=^5013909
  1. ;;^UTILITY(U,$J,358.3,33516,0)
  1. ;;=M84.451D^^132^1703^26
  1. ;;^UTILITY(U,$J,358.3,33516,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33516,1,3,0)
  1. ;;=3^Pathological fracture, right femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33516,1,4,0)
  1. ;;=4^M84.451D
  1. ;;^UTILITY(U,$J,358.3,33516,2)
  1. ;;=^5013903
  1. ;;^UTILITY(U,$J,358.3,33517,0)
  1. ;;=M84.352D^^132^1703^28
  1. ;;^UTILITY(U,$J,358.3,33517,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33517,1,3,0)
  1. ;;=3^Stress fracture, left femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33517,1,4,0)
  1. ;;=4^M84.352D
  1. ;;^UTILITY(U,$J,358.3,33517,2)
  1. ;;=^5013687
  1. ;;^UTILITY(U,$J,358.3,33518,0)
  1. ;;=M84.351D^^132^1703^30
  1. ;;^UTILITY(U,$J,358.3,33518,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33518,1,3,0)
  1. ;;=3^Stress fracture, right femur, subs encntr
  1. ;;^UTILITY(U,$J,358.3,33518,1,4,0)
  1. ;;=4^M84.351D
  1. ;;^UTILITY(U,$J,358.3,33518,2)
  1. ;;=^5013681
  1. ;;^UTILITY(U,$J,358.3,33519,0)
  1. ;;=M00.872^^132^1704^1