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

IBDEI1J6.m

Go to the documentation of this file.
  1. IBDEI1J6 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,24777,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24777,1,3,0)
  1. ;;=3^Pleurisy
  1. ;;^UTILITY(U,$J,358.3,24777,1,4,0)
  1. ;;=4^R09.1
  1. ;;^UTILITY(U,$J,358.3,24777,2)
  1. ;;=^95428
  1. ;;^UTILITY(U,$J,358.3,24778,0)
  1. ;;=J91.8^^85^1091^47
  1. ;;^UTILITY(U,$J,358.3,24778,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24778,1,3,0)
  1. ;;=3^Pleural Effusion in Conditions Classified Elsewhere
  1. ;;^UTILITY(U,$J,358.3,24778,1,4,0)
  1. ;;=4^J91.8
  1. ;;^UTILITY(U,$J,358.3,24778,2)
  1. ;;=^5008311
  1. ;;^UTILITY(U,$J,358.3,24779,0)
  1. ;;=L40.0^^85^1091^57
  1. ;;^UTILITY(U,$J,358.3,24779,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24779,1,3,0)
  1. ;;=3^Psoriasis Vulgaris
  1. ;;^UTILITY(U,$J,358.3,24779,1,4,0)
  1. ;;=4^L40.0
  1. ;;^UTILITY(U,$J,358.3,24779,2)
  1. ;;=^5009160
  1. ;;^UTILITY(U,$J,358.3,24780,0)
  1. ;;=L40.1^^85^1091^59
  1. ;;^UTILITY(U,$J,358.3,24780,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24780,1,3,0)
  1. ;;=3^Pustular Psoriasis,Generalized
  1. ;;^UTILITY(U,$J,358.3,24780,1,4,0)
  1. ;;=4^L40.1
  1. ;;^UTILITY(U,$J,358.3,24780,2)
  1. ;;=^5009161
  1. ;;^UTILITY(U,$J,358.3,24781,0)
  1. ;;=L40.3^^85^1091^60
  1. ;;^UTILITY(U,$J,358.3,24781,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24781,1,3,0)
  1. ;;=3^Pustulosis Palmaris et Plantaris
  1. ;;^UTILITY(U,$J,358.3,24781,1,4,0)
  1. ;;=4^L40.3
  1. ;;^UTILITY(U,$J,358.3,24781,2)
  1. ;;=^5009163
  1. ;;^UTILITY(U,$J,358.3,24782,0)
  1. ;;=L40.4^^85^1091^56
  1. ;;^UTILITY(U,$J,358.3,24782,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24782,1,3,0)
  1. ;;=3^Psoriasis Guttate
  1. ;;^UTILITY(U,$J,358.3,24782,1,4,0)
  1. ;;=4^L40.4
  1. ;;^UTILITY(U,$J,358.3,24782,2)
  1. ;;=^5009164
  1. ;;^UTILITY(U,$J,358.3,24783,0)
  1. ;;=L40.8^^85^1091^58
  1. ;;^UTILITY(U,$J,358.3,24783,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24783,1,3,0)
  1. ;;=3^Psoriasis,Other
  1. ;;^UTILITY(U,$J,358.3,24783,1,4,0)
  1. ;;=4^L40.8
  1. ;;^UTILITY(U,$J,358.3,24783,2)
  1. ;;=^271917
  1. ;;^UTILITY(U,$J,358.3,24784,0)
  1. ;;=L29.9^^85^1091^55
  1. ;;^UTILITY(U,$J,358.3,24784,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24784,1,3,0)
  1. ;;=3^Pruritus,Unspec
  1. ;;^UTILITY(U,$J,358.3,24784,1,4,0)
  1. ;;=4^L29.9
  1. ;;^UTILITY(U,$J,358.3,24784,2)
  1. ;;=^5009153
  1. ;;^UTILITY(U,$J,358.3,24785,0)
  1. ;;=M25.511^^85^1091^33
  1. ;;^UTILITY(U,$J,358.3,24785,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24785,1,3,0)
  1. ;;=3^Pain,Right Shoulder
  1. ;;^UTILITY(U,$J,358.3,24785,1,4,0)
  1. ;;=4^M25.511
  1. ;;^UTILITY(U,$J,358.3,24785,2)
  1. ;;=^5011602
  1. ;;^UTILITY(U,$J,358.3,24786,0)
  1. ;;=M25.512^^85^1091^20
  1. ;;^UTILITY(U,$J,358.3,24786,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24786,1,3,0)
  1. ;;=3^Pain,Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,24786,1,4,0)
  1. ;;=4^M25.512
  1. ;;^UTILITY(U,$J,358.3,24786,2)
  1. ;;=^5011603
  1. ;;^UTILITY(U,$J,358.3,24787,0)
  1. ;;=M25.521^^85^1091^27
  1. ;;^UTILITY(U,$J,358.3,24787,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24787,1,3,0)
  1. ;;=3^Pain,Right Elbow
  1. ;;^UTILITY(U,$J,358.3,24787,1,4,0)
  1. ;;=4^M25.521
  1. ;;^UTILITY(U,$J,358.3,24787,2)
  1. ;;=^5011605
  1. ;;^UTILITY(U,$J,358.3,24788,0)
  1. ;;=M25.522^^85^1091^15
  1. ;;^UTILITY(U,$J,358.3,24788,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24788,1,3,0)
  1. ;;=3^Pain,Left Elbow
  1. ;;^UTILITY(U,$J,358.3,24788,1,4,0)
  1. ;;=4^M25.522
  1. ;;^UTILITY(U,$J,358.3,24788,2)
  1. ;;=^5011606
  1. ;;^UTILITY(U,$J,358.3,24789,0)
  1. ;;=M79.641^^85^1091^29
  1. ;;^UTILITY(U,$J,358.3,24789,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24789,1,3,0)
  1. ;;=3^Pain,Right Hand
  1. ;;^UTILITY(U,$J,358.3,24789,1,4,0)
  1. ;;=4^M79.641
  1. ;;^UTILITY(U,$J,358.3,24789,2)
  1. ;;=^5013338