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

IBDEI1F1.m

Go to the documentation of this file.
  1. IBDEI1F1 ; ; 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,22899,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22899,1,3,0)
  1. ;;=3^Benign Neop Skin Right Upper Eyelid
  1. ;;^UTILITY(U,$J,358.3,22899,1,4,0)
  1. ;;=4^D23.111
  1. ;;^UTILITY(U,$J,358.3,22899,2)
  1. ;;=^5157290
  1. ;;^UTILITY(U,$J,358.3,22900,0)
  1. ;;=L92.0^^76^985^1
  1. ;;^UTILITY(U,$J,358.3,22900,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22900,1,3,0)
  1. ;;=3^Granuloma Annulare
  1. ;;^UTILITY(U,$J,358.3,22900,1,4,0)
  1. ;;=4^L92.0
  1. ;;^UTILITY(U,$J,358.3,22900,2)
  1. ;;=^184052
  1. ;;^UTILITY(U,$J,358.3,22901,0)
  1. ;;=D18.01^^76^986^1
  1. ;;^UTILITY(U,$J,358.3,22901,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22901,1,3,0)
  1. ;;=3^Hemangioma of Skin/Subcutaneous Tissue
  1. ;;^UTILITY(U,$J,358.3,22901,1,4,0)
  1. ;;=4^D18.01
  1. ;;^UTILITY(U,$J,358.3,22901,2)
  1. ;;=^267697
  1. ;;^UTILITY(U,$J,358.3,22902,0)
  1. ;;=L68.0^^76^986^2
  1. ;;^UTILITY(U,$J,358.3,22902,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22902,1,3,0)
  1. ;;=3^Hirsutism
  1. ;;^UTILITY(U,$J,358.3,22902,1,4,0)
  1. ;;=4^L68.0
  1. ;;^UTILITY(U,$J,358.3,22902,2)
  1. ;;=^5009262
  1. ;;^UTILITY(U,$J,358.3,22903,0)
  1. ;;=L68.9^^76^986^5
  1. ;;^UTILITY(U,$J,358.3,22903,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22903,1,3,0)
  1. ;;=3^Hypertrichosis,Unspec
  1. ;;^UTILITY(U,$J,358.3,22903,1,4,0)
  1. ;;=4^L68.9
  1. ;;^UTILITY(U,$J,358.3,22903,2)
  1. ;;=^5009267
  1. ;;^UTILITY(U,$J,358.3,22904,0)
  1. ;;=L74.510^^76^986^3
  1. ;;^UTILITY(U,$J,358.3,22904,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22904,1,3,0)
  1. ;;=3^Hyperhidrosis,Primary,Focal,Axilla
  1. ;;^UTILITY(U,$J,358.3,22904,1,4,0)
  1. ;;=4^L74.510
  1. ;;^UTILITY(U,$J,358.3,22904,2)
  1. ;;=^5009290
  1. ;;^UTILITY(U,$J,358.3,22905,0)
  1. ;;=L81.4^^76^986^4
  1. ;;^UTILITY(U,$J,358.3,22905,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22905,1,3,0)
  1. ;;=3^Hyperpigmentation,Other
  1. ;;^UTILITY(U,$J,358.3,22905,1,4,0)
  1. ;;=4^L81.4
  1. ;;^UTILITY(U,$J,358.3,22905,2)
  1. ;;=^5009314
  1. ;;^UTILITY(U,$J,358.3,22906,0)
  1. ;;=L91.0^^76^986^6
  1. ;;^UTILITY(U,$J,358.3,22906,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22906,1,3,0)
  1. ;;=3^Hypertrophic Scar
  1. ;;^UTILITY(U,$J,358.3,22906,1,4,0)
  1. ;;=4^L91.0
  1. ;;^UTILITY(U,$J,358.3,22906,2)
  1. ;;=^5009459
  1. ;;^UTILITY(U,$J,358.3,22907,0)
  1. ;;=L91.8^^76^986^7
  1. ;;^UTILITY(U,$J,358.3,22907,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22907,1,3,0)
  1. ;;=3^Hypertrophic Skin Disorders
  1. ;;^UTILITY(U,$J,358.3,22907,1,4,0)
  1. ;;=4^L91.8
  1. ;;^UTILITY(U,$J,358.3,22907,2)
  1. ;;=^5009460
  1. ;;^UTILITY(U,$J,358.3,22908,0)
  1. ;;=L90.0^^76^987^14
  1. ;;^UTILITY(U,$J,358.3,22908,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22908,1,3,0)
  1. ;;=3^Lichen Sclerosus et Atrophicus
  1. ;;^UTILITY(U,$J,358.3,22908,1,4,0)
  1. ;;=4^L90.0
  1. ;;^UTILITY(U,$J,358.3,22908,2)
  1. ;;=^70699
  1. ;;^UTILITY(U,$J,358.3,22909,0)
  1. ;;=L28.0^^76^987^15
  1. ;;^UTILITY(U,$J,358.3,22909,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22909,1,3,0)
  1. ;;=3^Lichen Simplex Chronicus
  1. ;;^UTILITY(U,$J,358.3,22909,1,4,0)
  1. ;;=4^L28.0
  1. ;;^UTILITY(U,$J,358.3,22909,2)
  1. ;;=^259859
  1. ;;^UTILITY(U,$J,358.3,22910,0)
  1. ;;=L66.1^^76^987^11
  1. ;;^UTILITY(U,$J,358.3,22910,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22910,1,3,0)
  1. ;;=3^Lichen Planopilaris
  1. ;;^UTILITY(U,$J,358.3,22910,1,4,0)
  1. ;;=4^L66.1
  1. ;;^UTILITY(U,$J,358.3,22910,2)
  1. ;;=^5009253
  1. ;;^UTILITY(U,$J,358.3,22911,0)
  1. ;;=L43.0^^76^987^12
  1. ;;^UTILITY(U,$J,358.3,22911,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22911,1,3,0)
  1. ;;=3^Lichen Planus,Hypertrophic
  1. ;;^UTILITY(U,$J,358.3,22911,1,4,0)
  1. ;;=4^L43.0
  1. ;;^UTILITY(U,$J,358.3,22911,2)
  1. ;;=^5009178