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

IBDEI18Q.m

Go to the documentation of this file.
  1. IBDEI18Q ; ; 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,20112,2)
  1. ;;=s92425s^5045437
  1. ;;^UTILITY(U,$J,358.3,20113,0)
  1. ;;=S92.425S^^67^884^80
  1. ;;^UTILITY(U,$J,358.3,20113,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20113,1,3,0)
  1. ;;=3^Nondisp distal phalanx fx of left great toe, sequela
  1. ;;^UTILITY(U,$J,358.3,20113,1,4,0)
  1. ;;=4^S92.425S
  1. ;;^UTILITY(U,$J,358.3,20113,2)
  1. ;;=^5045374
  1. ;;^UTILITY(U,$J,358.3,20114,0)
  1. ;;=S92.535S^^67^884^81
  1. ;;^UTILITY(U,$J,358.3,20114,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20114,1,3,0)
  1. ;;=3^Nondisp distal phalanx fx of left lesser toe(s), sequela
  1. ;;^UTILITY(U,$J,358.3,20114,1,4,0)
  1. ;;=4^S92.535S
  1. ;;^UTILITY(U,$J,358.3,20114,2)
  1. ;;=^5045549
  1. ;;^UTILITY(U,$J,358.3,20115,0)
  1. ;;=S92.424S^^67^884^82
  1. ;;^UTILITY(U,$J,358.3,20115,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20115,1,3,0)
  1. ;;=3^Nondisp distal phalanx fx of right great toe, sequela
  1. ;;^UTILITY(U,$J,358.3,20115,1,4,0)
  1. ;;=4^S92.424S
  1. ;;^UTILITY(U,$J,358.3,20115,2)
  1. ;;=^5045367
  1. ;;^UTILITY(U,$J,358.3,20116,0)
  1. ;;=S92.534S^^67^884^83
  1. ;;^UTILITY(U,$J,358.3,20116,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20116,1,3,0)
  1. ;;=3^Nondisp distal phalanx fx of right lesser toe(s), sequela
  1. ;;^UTILITY(U,$J,358.3,20116,1,4,0)
  1. ;;=4^S92.534S
  1. ;;^UTILITY(U,$J,358.3,20116,2)
  1. ;;=^5045542
  1. ;;^UTILITY(U,$J,358.3,20117,0)
  1. ;;=S92.525S^^67^884^94
  1. ;;^UTILITY(U,$J,358.3,20117,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20117,1,3,0)
  1. ;;=3^Nondisp medial phalanx fx of left lesser toe(s), sequela
  1. ;;^UTILITY(U,$J,358.3,20117,1,4,0)
  1. ;;=4^S92.525S
  1. ;;^UTILITY(U,$J,358.3,20117,2)
  1. ;;=^5045507
  1. ;;^UTILITY(U,$J,358.3,20118,0)
  1. ;;=S92.524S^^67^884^95
  1. ;;^UTILITY(U,$J,358.3,20118,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20118,1,3,0)
  1. ;;=3^Nondisp medial phalanx fx of right lesser toe(s), sequela
  1. ;;^UTILITY(U,$J,358.3,20118,1,4,0)
  1. ;;=4^S92.524S
  1. ;;^UTILITY(U,$J,358.3,20118,2)
  1. ;;=^5045500
  1. ;;^UTILITY(U,$J,358.3,20119,0)
  1. ;;=S92.415S^^67^884^102
  1. ;;^UTILITY(U,$J,358.3,20119,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20119,1,3,0)
  1. ;;=3^Nondisp proximal phalanx fx of left great toe, sequela
  1. ;;^UTILITY(U,$J,358.3,20119,1,4,0)
  1. ;;=4^S92.415S
  1. ;;^UTILITY(U,$J,358.3,20119,2)
  1. ;;=^5045332
  1. ;;^UTILITY(U,$J,358.3,20120,0)
  1. ;;=S92.515S^^67^884^103
  1. ;;^UTILITY(U,$J,358.3,20120,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20120,1,3,0)
  1. ;;=3^Nondisp proximal phalanx fx of left lesser toe(s), sequela
  1. ;;^UTILITY(U,$J,358.3,20120,1,4,0)
  1. ;;=4^S92.515S
  1. ;;^UTILITY(U,$J,358.3,20120,2)
  1. ;;=^5045465
  1. ;;^UTILITY(U,$J,358.3,20121,0)
  1. ;;=S92.414S^^67^884^104
  1. ;;^UTILITY(U,$J,358.3,20121,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20121,1,3,0)
  1. ;;=3^Nondisp proximal phalanx fx of right great toe, sequela
  1. ;;^UTILITY(U,$J,358.3,20121,1,4,0)
  1. ;;=4^S92.414S
  1. ;;^UTILITY(U,$J,358.3,20121,2)
  1. ;;=^5045325
  1. ;;^UTILITY(U,$J,358.3,20122,0)
  1. ;;=S92.514S^^67^884^105
  1. ;;^UTILITY(U,$J,358.3,20122,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20122,1,3,0)
  1. ;;=3^Nondisp proximal phalanx fx of right lesser toe(s), sequela
  1. ;;^UTILITY(U,$J,358.3,20122,1,4,0)
  1. ;;=4^S92.514S
  1. ;;^UTILITY(U,$J,358.3,20122,2)
  1. ;;=^5045458
  1. ;;^UTILITY(U,$J,358.3,20123,0)
  1. ;;=M84.478S^^67^884^110
  1. ;;^UTILITY(U,$J,358.3,20123,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20123,1,3,0)
  1. ;;=3^Pathological fracture, left toe(s), sequela
  1. ;;^UTILITY(U,$J,358.3,20123,1,4,0)
  1. ;;=4^M84.478S
  1. ;;^UTILITY(U,$J,358.3,20123,2)
  1. ;;=^5014009
  1. ;;^UTILITY(U,$J,358.3,20124,0)
  1. ;;=M84.477S^^67^884^113