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

IBDEI0HP.m

Go to the documentation of this file.
  1. IBDEI0HP ; ; 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,7972,2)
  1. ;;=^5009273
  1. ;;^UTILITY(U,$J,358.3,7973,0)
  1. ;;=L71.0^^39^391^273
  1. ;;^UTILITY(U,$J,358.3,7973,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7973,1,3,0)
  1. ;;=3^Perioral Dermatitis
  1. ;;^UTILITY(U,$J,358.3,7973,1,4,0)
  1. ;;=4^L71.0
  1. ;;^UTILITY(U,$J,358.3,7973,2)
  1. ;;=^5009274
  1. ;;^UTILITY(U,$J,358.3,7974,0)
  1. ;;=L71.1^^39^391^299
  1. ;;^UTILITY(U,$J,358.3,7974,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7974,1,3,0)
  1. ;;=3^Rhinophyma
  1. ;;^UTILITY(U,$J,358.3,7974,1,4,0)
  1. ;;=4^L71.1
  1. ;;^UTILITY(U,$J,358.3,7974,2)
  1. ;;=^106083
  1. ;;^UTILITY(U,$J,358.3,7975,0)
  1. ;;=L71.8^^39^391^300
  1. ;;^UTILITY(U,$J,358.3,7975,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7975,1,3,0)
  1. ;;=3^Rosacea NEC
  1. ;;^UTILITY(U,$J,358.3,7975,1,4,0)
  1. ;;=4^L71.8
  1. ;;^UTILITY(U,$J,358.3,7975,2)
  1. ;;=^5009275
  1. ;;^UTILITY(U,$J,358.3,7976,0)
  1. ;;=L71.9^^39^391^301
  1. ;;^UTILITY(U,$J,358.3,7976,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7976,1,3,0)
  1. ;;=3^Rosacea,Unspec
  1. ;;^UTILITY(U,$J,358.3,7976,1,4,0)
  1. ;;=4^L71.9
  1. ;;^UTILITY(U,$J,358.3,7976,2)
  1. ;;=^5009276
  1. ;;^UTILITY(U,$J,358.3,7977,0)
  1. ;;=L72.0^^39^391^145
  1. ;;^UTILITY(U,$J,358.3,7977,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7977,1,3,0)
  1. ;;=3^Epidermal Cyst
  1. ;;^UTILITY(U,$J,358.3,7977,1,4,0)
  1. ;;=4^L72.0
  1. ;;^UTILITY(U,$J,358.3,7977,2)
  1. ;;=^5009277
  1. ;;^UTILITY(U,$J,358.3,7978,0)
  1. ;;=L72.12^^39^391^325
  1. ;;^UTILITY(U,$J,358.3,7978,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7978,1,3,0)
  1. ;;=3^Trichodermal Cyst
  1. ;;^UTILITY(U,$J,358.3,7978,1,4,0)
  1. ;;=4^L72.12
  1. ;;^UTILITY(U,$J,358.3,7978,2)
  1. ;;=^5009279
  1. ;;^UTILITY(U,$J,358.3,7979,0)
  1. ;;=L72.2^^39^391^310
  1. ;;^UTILITY(U,$J,358.3,7979,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7979,1,3,0)
  1. ;;=3^Steatocystoma Multiplex
  1. ;;^UTILITY(U,$J,358.3,7979,1,4,0)
  1. ;;=4^L72.2
  1. ;;^UTILITY(U,$J,358.3,7979,2)
  1. ;;=^5009280
  1. ;;^UTILITY(U,$J,358.3,7980,0)
  1. ;;=L72.8^^39^391^154
  1. ;;^UTILITY(U,$J,358.3,7980,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7980,1,3,0)
  1. ;;=3^Follicular Cysts of Skin/Subcutaneous Tissue NEC
  1. ;;^UTILITY(U,$J,358.3,7980,1,4,0)
  1. ;;=4^L72.8
  1. ;;^UTILITY(U,$J,358.3,7980,2)
  1. ;;=^5009282
  1. ;;^UTILITY(U,$J,358.3,7981,0)
  1. ;;=L72.9^^39^391^155
  1. ;;^UTILITY(U,$J,358.3,7981,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7981,1,3,0)
  1. ;;=3^Follicular Cysts of Skin/Subcutaneous Tissue,Unspec
  1. ;;^UTILITY(U,$J,358.3,7981,1,4,0)
  1. ;;=4^L72.9
  1. ;;^UTILITY(U,$J,358.3,7981,2)
  1. ;;=^5009283
  1. ;;^UTILITY(U,$J,358.3,7982,0)
  1. ;;=L73.0^^39^391^4
  1. ;;^UTILITY(U,$J,358.3,7982,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7982,1,3,0)
  1. ;;=3^Acne Keloid
  1. ;;^UTILITY(U,$J,358.3,7982,1,4,0)
  1. ;;=4^L73.0
  1. ;;^UTILITY(U,$J,358.3,7982,2)
  1. ;;=^2149
  1. ;;^UTILITY(U,$J,358.3,7983,0)
  1. ;;=L73.2^^39^391^162
  1. ;;^UTILITY(U,$J,358.3,7983,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7983,1,3,0)
  1. ;;=3^Hidradenitis Suppurativa
  1. ;;^UTILITY(U,$J,358.3,7983,1,4,0)
  1. ;;=4^L73.2
  1. ;;^UTILITY(U,$J,358.3,7983,2)
  1. ;;=^278979
  1. ;;^UTILITY(U,$J,358.3,7984,0)
  1. ;;=L73.9^^39^391^156
  1. ;;^UTILITY(U,$J,358.3,7984,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7984,1,3,0)
  1. ;;=3^Follicular Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,7984,1,4,0)
  1. ;;=4^L73.9
  1. ;;^UTILITY(U,$J,358.3,7984,2)
  1. ;;=^5009286
  1. ;;^UTILITY(U,$J,358.3,7985,0)
  1. ;;=L82.0^^39^391^163
  1. ;;^UTILITY(U,$J,358.3,7985,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7985,1,3,0)
  1. ;;=3^Inflamed Seborrheic Keratosis
  1. ;;^UTILITY(U,$J,358.3,7985,1,4,0)
  1. ;;=4^L82.0