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

IBDEI2TV.m

Go to the documentation of this file.
  1. IBDEI2TV ; ; 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,45104,1,4,0)
  1. ;;=4^I83.11
  1. ;;^UTILITY(U,$J,358.3,45104,2)
  1. ;;=^5007988
  1. ;;^UTILITY(U,$J,358.3,45105,0)
  1. ;;=I83.022^^170^2247^3
  1. ;;^UTILITY(U,$J,358.3,45105,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45105,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,45105,1,4,0)
  1. ;;=4^I83.022
  1. ;;^UTILITY(U,$J,358.3,45105,2)
  1. ;;=^5007981
  1. ;;^UTILITY(U,$J,358.3,45106,0)
  1. ;;=I83.023^^170^2247^4
  1. ;;^UTILITY(U,$J,358.3,45106,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45106,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,45106,1,4,0)
  1. ;;=4^I83.023
  1. ;;^UTILITY(U,$J,358.3,45106,2)
  1. ;;=^5007982
  1. ;;^UTILITY(U,$J,358.3,45107,0)
  1. ;;=I83.024^^170^2247^5
  1. ;;^UTILITY(U,$J,358.3,45107,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45107,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,45107,1,4,0)
  1. ;;=4^I83.024
  1. ;;^UTILITY(U,$J,358.3,45107,2)
  1. ;;=^5007983
  1. ;;^UTILITY(U,$J,358.3,45108,0)
  1. ;;=I83.12^^170^2247^1
  1. ;;^UTILITY(U,$J,358.3,45108,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45108,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Inflammation
  1. ;;^UTILITY(U,$J,358.3,45108,1,4,0)
  1. ;;=4^I83.12
  1. ;;^UTILITY(U,$J,358.3,45108,2)
  1. ;;=^5007989
  1. ;;^UTILITY(U,$J,358.3,45109,0)
  1. ;;=I87.2^^170^2247^11
  1. ;;^UTILITY(U,$J,358.3,45109,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45109,1,3,0)
  1. ;;=3^Venous Insufficiency
  1. ;;^UTILITY(U,$J,358.3,45109,1,4,0)
  1. ;;=4^I87.2
  1. ;;^UTILITY(U,$J,358.3,45109,2)
  1. ;;=^5008047
  1. ;;^UTILITY(U,$J,358.3,45110,0)
  1. ;;=L85.3^^170^2248^1
  1. ;;^UTILITY(U,$J,358.3,45110,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45110,1,3,0)
  1. ;;=3^Xerosis Cutis
  1. ;;^UTILITY(U,$J,358.3,45110,1,4,0)
  1. ;;=4^L85.3
  1. ;;^UTILITY(U,$J,358.3,45110,2)
  1. ;;=^5009323
  1. ;;^UTILITY(U,$J,358.3,45111,0)
  1. ;;=L03.113^^170^2249^34
  1. ;;^UTILITY(U,$J,358.3,45111,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45111,1,3,0)
  1. ;;=3^Cellulitis of Right Upper Limb
  1. ;;^UTILITY(U,$J,358.3,45111,1,4,0)
  1. ;;=4^L03.113
  1. ;;^UTILITY(U,$J,358.3,45111,2)
  1. ;;=^5009033
  1. ;;^UTILITY(U,$J,358.3,45112,0)
  1. ;;=L03.114^^170^2249^29
  1. ;;^UTILITY(U,$J,358.3,45112,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45112,1,3,0)
  1. ;;=3^Cellulitis of Left Upper Limb
  1. ;;^UTILITY(U,$J,358.3,45112,1,4,0)
  1. ;;=4^L03.114
  1. ;;^UTILITY(U,$J,358.3,45112,2)
  1. ;;=^5009034
  1. ;;^UTILITY(U,$J,358.3,45113,0)
  1. ;;=L03.317^^170^2249^21
  1. ;;^UTILITY(U,$J,358.3,45113,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45113,1,3,0)
  1. ;;=3^Cellulitis of Buttock
  1. ;;^UTILITY(U,$J,358.3,45113,1,4,0)
  1. ;;=4^L03.317
  1. ;;^UTILITY(U,$J,358.3,45113,2)
  1. ;;=^5009053
  1. ;;^UTILITY(U,$J,358.3,45114,0)
  1. ;;=L03.211^^170^2249^22
  1. ;;^UTILITY(U,$J,358.3,45114,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45114,1,3,0)
  1. ;;=3^Cellulitis of Face
  1. ;;^UTILITY(U,$J,358.3,45114,1,4,0)
  1. ;;=4^L03.211
  1. ;;^UTILITY(U,$J,358.3,45114,2)
  1. ;;=^5009043
  1. ;;^UTILITY(U,$J,358.3,45115,0)
  1. ;;=L03.011^^170^2249^31
  1. ;;^UTILITY(U,$J,358.3,45115,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45115,1,3,0)
  1. ;;=3^Cellulitis of Right Finger
  1. ;;^UTILITY(U,$J,358.3,45115,1,4,0)
  1. ;;=4^L03.011
  1. ;;^UTILITY(U,$J,358.3,45115,2)
  1. ;;=^5009019
  1. ;;^UTILITY(U,$J,358.3,45116,0)
  1. ;;=L03.012^^170^2249^26
  1. ;;^UTILITY(U,$J,358.3,45116,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45116,1,3,0)
  1. ;;=3^Cellulitis of Left Finger
  1. ;;^UTILITY(U,$J,358.3,45116,1,4,0)
  1. ;;=4^L03.012