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

IBDEI2FN.m

Go to the documentation of this file.
  1. IBDEI2FN ; ; 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,38862,1,4,0)
  1. ;;=4^B00.9
  1. ;;^UTILITY(U,$J,358.3,38862,2)
  1. ;;=^5000480
  1. ;;^UTILITY(U,$J,358.3,38863,0)
  1. ;;=B02.9^^152^1990^331
  1. ;;^UTILITY(U,$J,358.3,38863,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38863,1,3,0)
  1. ;;=3^Zoster w/o Complications
  1. ;;^UTILITY(U,$J,358.3,38863,1,4,0)
  1. ;;=4^B02.9
  1. ;;^UTILITY(U,$J,358.3,38863,2)
  1. ;;=^5000501
  1. ;;^UTILITY(U,$J,358.3,38864,0)
  1. ;;=D17.9^^152^1990^90
  1. ;;^UTILITY(U,$J,358.3,38864,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38864,1,3,0)
  1. ;;=3^Benign Lipomatous Neop,Unspec
  1. ;;^UTILITY(U,$J,358.3,38864,1,4,0)
  1. ;;=4^D17.9
  1. ;;^UTILITY(U,$J,358.3,38864,2)
  1. ;;=^5002020
  1. ;;^UTILITY(U,$J,358.3,38865,0)
  1. ;;=E08.621^^152^1990^137
  1. ;;^UTILITY(U,$J,358.3,38865,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38865,1,3,0)
  1. ;;=3^DM d/t Underlying Condition w/ Foot Ulcer
  1. ;;^UTILITY(U,$J,358.3,38865,1,4,0)
  1. ;;=4^E08.621
  1. ;;^UTILITY(U,$J,358.3,38865,2)
  1. ;;=^5002534
  1. ;;^UTILITY(U,$J,358.3,38866,0)
  1. ;;=E09.621^^152^1990^136
  1. ;;^UTILITY(U,$J,358.3,38866,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38866,1,3,0)
  1. ;;=3^DM d/t Drug/Chemical w/ Foot Ulcer
  1. ;;^UTILITY(U,$J,358.3,38866,1,4,0)
  1. ;;=4^E09.621
  1. ;;^UTILITY(U,$J,358.3,38866,2)
  1. ;;=^5002576
  1. ;;^UTILITY(U,$J,358.3,38867,0)
  1. ;;=H05.011^^152^1990^112
  1. ;;^UTILITY(U,$J,358.3,38867,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38867,1,3,0)
  1. ;;=3^Cellulitis of Right Orbit
  1. ;;^UTILITY(U,$J,358.3,38867,1,4,0)
  1. ;;=4^H05.011
  1. ;;^UTILITY(U,$J,358.3,38867,2)
  1. ;;=^5004560
  1. ;;^UTILITY(U,$J,358.3,38868,0)
  1. ;;=H05.012^^152^1990^105
  1. ;;^UTILITY(U,$J,358.3,38868,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38868,1,3,0)
  1. ;;=3^Cellulitis of Left Orbit
  1. ;;^UTILITY(U,$J,358.3,38868,1,4,0)
  1. ;;=4^H05.012
  1. ;;^UTILITY(U,$J,358.3,38868,2)
  1. ;;=^5004561
  1. ;;^UTILITY(U,$J,358.3,38869,0)
  1. ;;=H05.013^^152^1990^99
  1. ;;^UTILITY(U,$J,358.3,38869,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38869,1,3,0)
  1. ;;=3^Cellulitis of Bilateral Orbits
  1. ;;^UTILITY(U,$J,358.3,38869,1,4,0)
  1. ;;=4^H05.013
  1. ;;^UTILITY(U,$J,358.3,38869,2)
  1. ;;=^5004562
  1. ;;^UTILITY(U,$J,358.3,38870,0)
  1. ;;=I70.331^^152^1990^51
  1. ;;^UTILITY(U,$J,358.3,38870,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38870,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,38870,1,4,0)
  1. ;;=4^I70.331
  1. ;;^UTILITY(U,$J,358.3,38870,2)
  1. ;;=^5007626
  1. ;;^UTILITY(U,$J,358.3,38871,0)
  1. ;;=I70.332^^152^1990^52
  1. ;;^UTILITY(U,$J,358.3,38871,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38871,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,38871,1,4,0)
  1. ;;=4^I70.332
  1. ;;^UTILITY(U,$J,358.3,38871,2)
  1. ;;=^5007627
  1. ;;^UTILITY(U,$J,358.3,38872,0)
  1. ;;=I70.333^^152^1990^53
  1. ;;^UTILITY(U,$J,358.3,38872,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38872,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,38872,1,4,0)
  1. ;;=4^I70.333
  1. ;;^UTILITY(U,$J,358.3,38872,2)
  1. ;;=^5007628
  1. ;;^UTILITY(U,$J,358.3,38873,0)
  1. ;;=I70.334^^152^1990^54
  1. ;;^UTILITY(U,$J,358.3,38873,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38873,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,38873,1,4,0)
  1. ;;=4^I70.334
  1. ;;^UTILITY(U,$J,358.3,38873,2)
  1. ;;=^5007629
  1. ;;^UTILITY(U,$J,358.3,38874,0)
  1. ;;=I70.335^^152^1990^55
  1. ;;^UTILITY(U,$J,358.3,38874,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38874,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Oth Part of Foot