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

IBDEI2XU.m

Go to the documentation of this file.
  1. IBDEI2XU ; ; 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,46888,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46888,1,3,0)
  1. ;;=3^Change/Rem of Drains
  1. ;;^UTILITY(U,$J,358.3,46888,1,4,0)
  1. ;;=4^Z48.03
  1. ;;^UTILITY(U,$J,358.3,46888,2)
  1. ;;=^5063036
  1. ;;^UTILITY(U,$J,358.3,46889,0)
  1. ;;=Z48.816^^179^2338^1
  1. ;;^UTILITY(U,$J,358.3,46889,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46889,1,3,0)
  1. ;;=3^Aftercare Following GU System Surg
  1. ;;^UTILITY(U,$J,358.3,46889,1,4,0)
  1. ;;=4^Z48.816
  1. ;;^UTILITY(U,$J,358.3,46889,2)
  1. ;;=^5063053
  1. ;;^UTILITY(U,$J,358.3,46890,0)
  1. ;;=T83.411A^^179^2338^3
  1. ;;^UTILITY(U,$J,358.3,46890,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46890,1,3,0)
  1. ;;=3^Brkdwn (mech) impl testic prosth,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,46890,1,4,0)
  1. ;;=4^T83.411A
  1. ;;^UTILITY(U,$J,358.3,46890,2)
  1. ;;=^5140120
  1. ;;^UTILITY(U,$J,358.3,46891,0)
  1. ;;=T83.113A^^179^2338^9
  1. ;;^UTILITY(U,$J,358.3,46891,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46891,1,3,0)
  1. ;;=3^Brkdwn (mech) urin stnt,other,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,46891,1,4,0)
  1. ;;=4^T83.113A
  1. ;;^UTILITY(U,$J,358.3,46891,2)
  1. ;;=^5140090
  1. ;;^UTILITY(U,$J,358.3,46892,0)
  1. ;;=T83.123A^^179^2338^18
  1. ;;^UTILITY(U,$J,358.3,46892,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46892,1,3,0)
  1. ;;=3^Dsplcmnt oth urinary stent,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,46892,1,4,0)
  1. ;;=4^T83.123A
  1. ;;^UTILITY(U,$J,358.3,46892,2)
  1. ;;=^5140099
  1. ;;^UTILITY(U,$J,358.3,46893,0)
  1. ;;=T83.421A^^179^2338^16
  1. ;;^UTILITY(U,$J,358.3,46893,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46893,1,3,0)
  1. ;;=3^Dsplcmnt impl testic prosth,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,46893,1,4,0)
  1. ;;=4^T83.421A
  1. ;;^UTILITY(U,$J,358.3,46893,2)
  1. ;;=^5140126
  1. ;;^UTILITY(U,$J,358.3,46894,0)
  1. ;;=N99.840^^179^2338^46
  1. ;;^UTILITY(U,$J,358.3,46894,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46894,1,3,0)
  1. ;;=3^Postproc hmtma,GU syst org/struct fol GU sys proc
  1. ;;^UTILITY(U,$J,358.3,46894,1,4,0)
  1. ;;=4^N99.840
  1. ;;^UTILITY(U,$J,358.3,46894,2)
  1. ;;=^5138992
  1. ;;^UTILITY(U,$J,358.3,46895,0)
  1. ;;=T81.40XA^^179^2338^34
  1. ;;^UTILITY(U,$J,358.3,46895,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46895,1,3,0)
  1. ;;=3^Infect Following Procedure,Unspec,Init
  1. ;;^UTILITY(U,$J,358.3,46895,1,4,0)
  1. ;;=4^T81.40XA
  1. ;;^UTILITY(U,$J,358.3,46895,2)
  1. ;;=^5157584
  1. ;;^UTILITY(U,$J,358.3,46896,0)
  1. ;;=T81.40XD^^179^2338^36
  1. ;;^UTILITY(U,$J,358.3,46896,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46896,1,3,0)
  1. ;;=3^Infect Following Procedure,Unspec,Subs
  1. ;;^UTILITY(U,$J,358.3,46896,1,4,0)
  1. ;;=4^T81.40XD
  1. ;;^UTILITY(U,$J,358.3,46896,2)
  1. ;;=^5157585
  1. ;;^UTILITY(U,$J,358.3,46897,0)
  1. ;;=T81.40XS^^179^2338^36
  1. ;;^UTILITY(U,$J,358.3,46897,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46897,1,3,0)
  1. ;;=3^Infect Following Procedure,Unspec,Sequela
  1. ;;^UTILITY(U,$J,358.3,46897,1,4,0)
  1. ;;=4^T81.40XS
  1. ;;^UTILITY(U,$J,358.3,46897,2)
  1. ;;=^5157586
  1. ;;^UTILITY(U,$J,358.3,46898,0)
  1. ;;=T81.41XA^^179^2338^31
  1. ;;^UTILITY(U,$J,358.3,46898,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46898,1,3,0)
  1. ;;=3^Infect Following Proced,Superfic Incis Surg Site,Init
  1. ;;^UTILITY(U,$J,358.3,46898,1,4,0)
  1. ;;=4^T81.41XA
  1. ;;^UTILITY(U,$J,358.3,46898,2)
  1. ;;=^5157587
  1. ;;^UTILITY(U,$J,358.3,46899,0)
  1. ;;=T81.41XD^^179^2338^32
  1. ;;^UTILITY(U,$J,358.3,46899,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,46899,1,3,0)
  1. ;;=3^Infect Following Proced,Superfic Incis Surg Site,Subs
  1. ;;^UTILITY(U,$J,358.3,46899,1,4,0)
  1. ;;=4^T81.41XD
  1. ;;^UTILITY(U,$J,358.3,46899,2)
  1. ;;=^5157588