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

IBDEI2B3.m

Go to the documentation of this file.
  1. IBDEI2B3 ; ; 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,36815,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36815,1,3,0)
  1. ;;=3^Aftercare following Surgery,Teeth/Oral Cavity
  1. ;;^UTILITY(U,$J,358.3,36815,1,4,0)
  1. ;;=4^Z48.814
  1. ;;^UTILITY(U,$J,358.3,36815,2)
  1. ;;=^5063051
  1. ;;^UTILITY(U,$J,358.3,36816,0)
  1. ;;=Z09.^^142^1864^11
  1. ;;^UTILITY(U,$J,358.3,36816,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36816,1,3,0)
  1. ;;=3^Aftercare following Treatment for Condition Oth Than Malig Neop
  1. ;;^UTILITY(U,$J,358.3,36816,1,4,0)
  1. ;;=4^Z09.
  1. ;;^UTILITY(U,$J,358.3,36816,2)
  1. ;;=^5062668
  1. ;;^UTILITY(U,$J,358.3,36817,0)
  1. ;;=Z48.00^^142^1864^12
  1. ;;^UTILITY(U,$J,358.3,36817,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36817,1,3,0)
  1. ;;=3^Change/Removal Nonsurgical Wound Dressing
  1. ;;^UTILITY(U,$J,358.3,36817,1,4,0)
  1. ;;=4^Z48.00
  1. ;;^UTILITY(U,$J,358.3,36817,2)
  1. ;;=^5063033
  1. ;;^UTILITY(U,$J,358.3,36818,0)
  1. ;;=Z48.01^^142^1864^13
  1. ;;^UTILITY(U,$J,358.3,36818,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36818,1,3,0)
  1. ;;=3^Change/Removal Surgical Wound Dressing
  1. ;;^UTILITY(U,$J,358.3,36818,1,4,0)
  1. ;;=4^Z48.01
  1. ;;^UTILITY(U,$J,358.3,36818,2)
  1. ;;=^5063034
  1. ;;^UTILITY(U,$J,358.3,36819,0)
  1. ;;=Z48.02^^142^1864^14
  1. ;;^UTILITY(U,$J,358.3,36819,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36819,1,3,0)
  1. ;;=3^Removal of Sutures
  1. ;;^UTILITY(U,$J,358.3,36819,1,4,0)
  1. ;;=4^Z48.02
  1. ;;^UTILITY(U,$J,358.3,36819,2)
  1. ;;=^5063035
  1. ;;^UTILITY(U,$J,358.3,36820,0)
  1. ;;=Z91.5^^142^1865^1
  1. ;;^UTILITY(U,$J,358.3,36820,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36820,1,3,0)
  1. ;;=3^Personal Hx of Suicide Attempt(s)
  1. ;;^UTILITY(U,$J,358.3,36820,1,4,0)
  1. ;;=4^Z91.5
  1. ;;^UTILITY(U,$J,358.3,36820,2)
  1. ;;=^5063624
  1. ;;^UTILITY(U,$J,358.3,36821,0)
  1. ;;=R45.851^^142^1865^2
  1. ;;^UTILITY(U,$J,358.3,36821,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36821,1,3,0)
  1. ;;=3^Suicidal Ideations
  1. ;;^UTILITY(U,$J,358.3,36821,1,4,0)
  1. ;;=4^R45.851
  1. ;;^UTILITY(U,$J,358.3,36821,2)
  1. ;;=^5019474
  1. ;;^UTILITY(U,$J,358.3,36822,0)
  1. ;;=T14.91XA^^142^1865^3
  1. ;;^UTILITY(U,$J,358.3,36822,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36822,1,3,0)
  1. ;;=3^Suicide Attempt,Initial Encntr
  1. ;;^UTILITY(U,$J,358.3,36822,1,4,0)
  1. ;;=4^T14.91XA
  1. ;;^UTILITY(U,$J,358.3,36822,2)
  1. ;;=^5151779
  1. ;;^UTILITY(U,$J,358.3,36823,0)
  1. ;;=T14.91XD^^142^1865^4
  1. ;;^UTILITY(U,$J,358.3,36823,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36823,1,3,0)
  1. ;;=3^Suicide Attempt,Subsequent Encntr
  1. ;;^UTILITY(U,$J,358.3,36823,1,4,0)
  1. ;;=4^T14.91XD
  1. ;;^UTILITY(U,$J,358.3,36823,2)
  1. ;;=^5151780
  1. ;;^UTILITY(U,$J,358.3,36824,0)
  1. ;;=T14.91XS^^142^1865^5
  1. ;;^UTILITY(U,$J,358.3,36824,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36824,1,3,0)
  1. ;;=3^Suicide Attempt,Sequela
  1. ;;^UTILITY(U,$J,358.3,36824,1,4,0)
  1. ;;=4^T14.91XS
  1. ;;^UTILITY(U,$J,358.3,36824,2)
  1. ;;=^5151781
  1. ;;^UTILITY(U,$J,358.3,36825,0)
  1. ;;=11000^^143^1866^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,36825,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36825,1,2,0)
  1. ;;=2^11000
  1. ;;^UTILITY(U,$J,358.3,36825,1,3,0)
  1. ;;=3^Debride ext eczematous skin,<10%
  1. ;;^UTILITY(U,$J,358.3,36826,0)
  1. ;;=11001^^143^1866^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,36826,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36826,1,2,0)
  1. ;;=2^11001
  1. ;;^UTILITY(U,$J,358.3,36826,1,3,0)
  1. ;;=3^Debride ext eczematous skin,Ea 10%
  1. ;;^UTILITY(U,$J,358.3,36827,0)
  1. ;;=11042^^143^1866^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,36827,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36827,1,2,0)
  1. ;;=2^11042