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

IBDEI28Z.m

Go to the documentation of this file.
  1. IBDEI28Z ; ; 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,35884,2)
  1. ;;=^5020359
  1. ;;^UTILITY(U,$J,358.3,35885,0)
  1. ;;=S02.19XS^^139^1827^2
  1. ;;^UTILITY(U,$J,358.3,35885,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35885,1,3,0)
  1. ;;=3^Fx,Base of skull NEC, sequela
  1. ;;^UTILITY(U,$J,358.3,35885,1,4,0)
  1. ;;=4^S02.19XS
  1. ;;^UTILITY(U,$J,358.3,35885,2)
  1. ;;=^5020305
  1. ;;^UTILITY(U,$J,358.3,35886,0)
  1. ;;=S02.92XS^^139^1827^4
  1. ;;^UTILITY(U,$J,358.3,35886,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35886,1,3,0)
  1. ;;=3^Fx,Facial bones unspec, sequela
  1. ;;^UTILITY(U,$J,358.3,35886,1,4,0)
  1. ;;=4^S02.92XS
  1. ;;^UTILITY(U,$J,358.3,35886,2)
  1. ;;=^5020443
  1. ;;^UTILITY(U,$J,358.3,35887,0)
  1. ;;=S02.609S^^139^1827^15
  1. ;;^UTILITY(U,$J,358.3,35887,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35887,1,3,0)
  1. ;;=3^Fx,Mandible, unspecified, sequela
  1. ;;^UTILITY(U,$J,358.3,35887,1,4,0)
  1. ;;=4^S02.609S
  1. ;;^UTILITY(U,$J,358.3,35887,2)
  1. ;;=^5020377
  1. ;;^UTILITY(U,$J,358.3,35888,0)
  1. ;;=S02.2XXS^^139^1827^17
  1. ;;^UTILITY(U,$J,358.3,35888,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35888,1,3,0)
  1. ;;=3^Fx,Nasal bones, sequela
  1. ;;^UTILITY(U,$J,358.3,35888,1,4,0)
  1. ;;=4^S02.2XXS
  1. ;;^UTILITY(U,$J,358.3,35888,2)
  1. ;;=^5020311
  1. ;;^UTILITY(U,$J,358.3,35889,0)
  1. ;;=S02.118S^^139^1827^20
  1. ;;^UTILITY(U,$J,358.3,35889,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35889,1,3,0)
  1. ;;=3^Fx,Occiput NEC, sequela
  1. ;;^UTILITY(U,$J,358.3,35889,1,4,0)
  1. ;;=4^S02.118S
  1. ;;^UTILITY(U,$J,358.3,35889,2)
  1. ;;=^5020293
  1. ;;^UTILITY(U,$J,358.3,35890,0)
  1. ;;=S02.119S^^139^1827^21
  1. ;;^UTILITY(U,$J,358.3,35890,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35890,1,3,0)
  1. ;;=3^Fx,Occiput unspec, sequela
  1. ;;^UTILITY(U,$J,358.3,35890,1,4,0)
  1. ;;=4^S02.119S
  1. ;;^UTILITY(U,$J,358.3,35890,2)
  1. ;;=^5020299
  1. ;;^UTILITY(U,$J,358.3,35891,0)
  1. ;;=S02.66XS^^139^1827^32
  1. ;;^UTILITY(U,$J,358.3,35891,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35891,1,3,0)
  1. ;;=3^Fx,Symphysis of mandible, sequela
  1. ;;^UTILITY(U,$J,358.3,35891,1,4,0)
  1. ;;=4^S02.66XS
  1. ;;^UTILITY(U,$J,358.3,35891,2)
  1. ;;=^5020413
  1. ;;^UTILITY(U,$J,358.3,35892,0)
  1. ;;=S02.600S^^139^1827^16
  1. ;;^UTILITY(U,$J,358.3,35892,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35892,1,3,0)
  1. ;;=3^Fx,Mandible,Unspec Part,Sequela
  1. ;;^UTILITY(U,$J,358.3,35892,1,4,0)
  1. ;;=4^S02.600S
  1. ;;^UTILITY(U,$J,358.3,35892,2)
  1. ;;=^5020371
  1. ;;^UTILITY(U,$J,358.3,35893,0)
  1. ;;=S02.0XXS^^139^1827^35
  1. ;;^UTILITY(U,$J,358.3,35893,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35893,1,3,0)
  1. ;;=3^Fx,Vault of skull, sequela
  1. ;;^UTILITY(U,$J,358.3,35893,1,4,0)
  1. ;;=4^S02.0XXS
  1. ;;^UTILITY(U,$J,358.3,35893,2)
  1. ;;=^5020257
  1. ;;^UTILITY(U,$J,358.3,35894,0)
  1. ;;=S02.411S^^139^1827^36
  1. ;;^UTILITY(U,$J,358.3,35894,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35894,1,3,0)
  1. ;;=3^LeFort I fracture, sequela
  1. ;;^UTILITY(U,$J,358.3,35894,1,4,0)
  1. ;;=4^S02.411S
  1. ;;^UTILITY(U,$J,358.3,35894,2)
  1. ;;=^5020341
  1. ;;^UTILITY(U,$J,358.3,35895,0)
  1. ;;=S02.412S^^139^1827^37
  1. ;;^UTILITY(U,$J,358.3,35895,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35895,1,3,0)
  1. ;;=3^LeFort II fracture, sequela
  1. ;;^UTILITY(U,$J,358.3,35895,1,4,0)
  1. ;;=4^S02.412S
  1. ;;^UTILITY(U,$J,358.3,35895,2)
  1. ;;=^5020347
  1. ;;^UTILITY(U,$J,358.3,35896,0)
  1. ;;=S02.413S^^139^1827^38
  1. ;;^UTILITY(U,$J,358.3,35896,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35896,1,3,0)
  1. ;;=3^LeFort III fracture, sequela
  1. ;;^UTILITY(U,$J,358.3,35896,1,4,0)
  1. ;;=4^S02.413S
  1. ;;^UTILITY(U,$J,358.3,35896,2)
  1. ;;=^5020353