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

IBDEI2G2.m

Go to the documentation of this file.
  1. IBDEI2G2 ; ; 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,39045,2)
  1. ;;=^303311
  1. ;;^UTILITY(U,$J,358.3,39046,0)
  1. ;;=L82.1^^152^1990^304
  1. ;;^UTILITY(U,$J,358.3,39046,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39046,1,3,0)
  1. ;;=3^Seborrheic Keratosis NEC
  1. ;;^UTILITY(U,$J,358.3,39046,1,4,0)
  1. ;;=4^L82.1
  1. ;;^UTILITY(U,$J,358.3,39046,2)
  1. ;;=^303312
  1. ;;^UTILITY(U,$J,358.3,39047,0)
  1. ;;=L84.^^152^1990^118
  1. ;;^UTILITY(U,$J,358.3,39047,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39047,1,3,0)
  1. ;;=3^Corns and Callosities
  1. ;;^UTILITY(U,$J,358.3,39047,1,4,0)
  1. ;;=4^L84.
  1. ;;^UTILITY(U,$J,358.3,39047,2)
  1. ;;=^271920
  1. ;;^UTILITY(U,$J,358.3,39048,0)
  1. ;;=L85.0^^152^1990^9
  1. ;;^UTILITY(U,$J,358.3,39048,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39048,1,3,0)
  1. ;;=3^Acquired Ichthyosis
  1. ;;^UTILITY(U,$J,358.3,39048,1,4,0)
  1. ;;=4^L85.0
  1. ;;^UTILITY(U,$J,358.3,39048,2)
  1. ;;=^5009320
  1. ;;^UTILITY(U,$J,358.3,39049,0)
  1. ;;=L85.1^^152^1990^11
  1. ;;^UTILITY(U,$J,358.3,39049,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39049,1,3,0)
  1. ;;=3^Acquired Keratosis Palmaris et Plantaris
  1. ;;^UTILITY(U,$J,358.3,39049,1,4,0)
  1. ;;=4^L85.1
  1. ;;^UTILITY(U,$J,358.3,39049,2)
  1. ;;=^5009321
  1. ;;^UTILITY(U,$J,358.3,39050,0)
  1. ;;=L85.2^^152^1990^169
  1. ;;^UTILITY(U,$J,358.3,39050,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39050,1,3,0)
  1. ;;=3^Keratosis Punctata
  1. ;;^UTILITY(U,$J,358.3,39050,1,4,0)
  1. ;;=4^L85.2
  1. ;;^UTILITY(U,$J,358.3,39050,2)
  1. ;;=^5009322
  1. ;;^UTILITY(U,$J,358.3,39051,0)
  1. ;;=L85.3^^152^1990^329
  1. ;;^UTILITY(U,$J,358.3,39051,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39051,1,3,0)
  1. ;;=3^Xerosis Cutis
  1. ;;^UTILITY(U,$J,358.3,39051,1,4,0)
  1. ;;=4^L85.3
  1. ;;^UTILITY(U,$J,358.3,39051,2)
  1. ;;=^5009323
  1. ;;^UTILITY(U,$J,358.3,39052,0)
  1. ;;=L86.^^152^1990^167
  1. ;;^UTILITY(U,$J,358.3,39052,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39052,1,3,0)
  1. ;;=3^Keratoderma in Diseases Classified Elsewhere
  1. ;;^UTILITY(U,$J,358.3,39052,1,4,0)
  1. ;;=4^L86.
  1. ;;^UTILITY(U,$J,358.3,39052,2)
  1. ;;=^5009326
  1. ;;^UTILITY(U,$J,358.3,39053,0)
  1. ;;=L87.0^^152^1990^168
  1. ;;^UTILITY(U,$J,358.3,39053,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39053,1,3,0)
  1. ;;=3^Keratosis Follicularis et Parafollicularis in Cutem Penetrans
  1. ;;^UTILITY(U,$J,358.3,39053,1,4,0)
  1. ;;=4^L87.0
  1. ;;^UTILITY(U,$J,358.3,39053,2)
  1. ;;=^5009327
  1. ;;^UTILITY(U,$J,358.3,39054,0)
  1. ;;=L87.2^^152^1990^144
  1. ;;^UTILITY(U,$J,358.3,39054,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39054,1,3,0)
  1. ;;=3^Elastosis Perforans Serpiginosa
  1. ;;^UTILITY(U,$J,358.3,39054,1,4,0)
  1. ;;=4^L87.2
  1. ;;^UTILITY(U,$J,358.3,39054,2)
  1. ;;=^5009329
  1. ;;^UTILITY(U,$J,358.3,39055,0)
  1. ;;=L89.300^^152^1990^282
  1. ;;^UTILITY(U,$J,358.3,39055,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39055,1,3,0)
  1. ;;=3^Pressure Ulcer of Buttock,Unstageable
  1. ;;^UTILITY(U,$J,358.3,39055,1,4,0)
  1. ;;=4^L89.300
  1. ;;^UTILITY(U,$J,358.3,39055,2)
  1. ;;=^5009389
  1. ;;^UTILITY(U,$J,358.3,39056,0)
  1. ;;=L89.301^^152^1990^277
  1. ;;^UTILITY(U,$J,358.3,39056,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39056,1,3,0)
  1. ;;=3^Pressure Ulcer of Buttock,Stage 1
  1. ;;^UTILITY(U,$J,358.3,39056,1,4,0)
  1. ;;=4^L89.301
  1. ;;^UTILITY(U,$J,358.3,39056,2)
  1. ;;=^5009390
  1. ;;^UTILITY(U,$J,358.3,39057,0)
  1. ;;=L89.302^^152^1990^278
  1. ;;^UTILITY(U,$J,358.3,39057,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39057,1,3,0)
  1. ;;=3^Pressure Ulcer of Buttock,Stage 2
  1. ;;^UTILITY(U,$J,358.3,39057,1,4,0)
  1. ;;=4^L89.302
  1. ;;^UTILITY(U,$J,358.3,39057,2)
  1. ;;=^5009391
  1. ;;^UTILITY(U,$J,358.3,39058,0)
  1. ;;=L89.303^^152^1990^279