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

IBDEI12R.m

Go to the documentation of this file.
  1. IBDEI12R ; ; 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,17462,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17462,1,3,0)
  1. ;;=3^Clubbing of Fingers
  1. ;;^UTILITY(U,$J,358.3,17462,1,4,0)
  1. ;;=4^R68.3
  1. ;;^UTILITY(U,$J,358.3,17462,2)
  1. ;;=^5019553
  1. ;;^UTILITY(U,$J,358.3,17463,0)
  1. ;;=R73.01^^61^787^93
  1. ;;^UTILITY(U,$J,358.3,17463,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17463,1,3,0)
  1. ;;=3^Impaired Fasting Glucose
  1. ;;^UTILITY(U,$J,358.3,17463,1,4,0)
  1. ;;=4^R73.01
  1. ;;^UTILITY(U,$J,358.3,17463,2)
  1. ;;=^5019561
  1. ;;^UTILITY(U,$J,358.3,17464,0)
  1. ;;=R73.02^^61^787^94
  1. ;;^UTILITY(U,$J,358.3,17464,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17464,1,3,0)
  1. ;;=3^Impaired Glucose Tolerance (oral)
  1. ;;^UTILITY(U,$J,358.3,17464,1,4,0)
  1. ;;=4^R73.02
  1. ;;^UTILITY(U,$J,358.3,17464,2)
  1. ;;=^5019562
  1. ;;^UTILITY(U,$J,358.3,17465,0)
  1. ;;=R73.09^^61^787^18
  1. ;;^UTILITY(U,$J,358.3,17465,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17465,1,3,0)
  1. ;;=3^Abnormal Glucose NEC
  1. ;;^UTILITY(U,$J,358.3,17465,1,4,0)
  1. ;;=4^R73.09
  1. ;;^UTILITY(U,$J,358.3,17465,2)
  1. ;;=^5019563
  1. ;;^UTILITY(U,$J,358.3,17466,0)
  1. ;;=R73.9^^61^787^88
  1. ;;^UTILITY(U,$J,358.3,17466,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17466,1,3,0)
  1. ;;=3^Hyperglycemia,Unspec
  1. ;;^UTILITY(U,$J,358.3,17466,1,4,0)
  1. ;;=4^R73.9
  1. ;;^UTILITY(U,$J,358.3,17466,2)
  1. ;;=^5019564
  1. ;;^UTILITY(U,$J,358.3,17467,0)
  1. ;;=R76.11^^61^787^146
  1. ;;^UTILITY(U,$J,358.3,17467,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17467,1,3,0)
  1. ;;=3^Positive PPD
  1. ;;^UTILITY(U,$J,358.3,17467,1,4,0)
  1. ;;=4^R76.11
  1. ;;^UTILITY(U,$J,358.3,17467,2)
  1. ;;=^5019570
  1. ;;^UTILITY(U,$J,358.3,17468,0)
  1. ;;=R79.1^^61^787^3
  1. ;;^UTILITY(U,$J,358.3,17468,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17468,1,3,0)
  1. ;;=3^Abnormal Coagulation Profile
  1. ;;^UTILITY(U,$J,358.3,17468,1,4,0)
  1. ;;=4^R79.1
  1. ;;^UTILITY(U,$J,358.3,17468,2)
  1. ;;=^5019591
  1. ;;^UTILITY(U,$J,358.3,17469,0)
  1. ;;=R82.5^^61^787^73
  1. ;;^UTILITY(U,$J,358.3,17469,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17469,1,3,0)
  1. ;;=3^Elevated Urine Levels of Drug/Meds/Biol Subst
  1. ;;^UTILITY(U,$J,358.3,17469,1,4,0)
  1. ;;=4^R82.5
  1. ;;^UTILITY(U,$J,358.3,17469,2)
  1. ;;=^5019605
  1. ;;^UTILITY(U,$J,358.3,17470,0)
  1. ;;=R82.6^^61^787^29
  1. ;;^UTILITY(U,$J,358.3,17470,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17470,1,3,0)
  1. ;;=3^Abnormal Urine Levels of Subst of Nonmed Source
  1. ;;^UTILITY(U,$J,358.3,17470,1,4,0)
  1. ;;=4^R82.6
  1. ;;^UTILITY(U,$J,358.3,17470,2)
  1. ;;=^5019606
  1. ;;^UTILITY(U,$J,358.3,17471,0)
  1. ;;=R82.90^^61^787^28
  1. ;;^UTILITY(U,$J,358.3,17471,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17471,1,3,0)
  1. ;;=3^Abnormal Urine Findings,Unspec
  1. ;;^UTILITY(U,$J,358.3,17471,1,4,0)
  1. ;;=4^R82.90
  1. ;;^UTILITY(U,$J,358.3,17471,2)
  1. ;;=^5019609
  1. ;;^UTILITY(U,$J,358.3,17472,0)
  1. ;;=R82.91^^61^787^52
  1. ;;^UTILITY(U,$J,358.3,17472,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17472,1,3,0)
  1. ;;=3^Chromoabnormalities of Urine NEC
  1. ;;^UTILITY(U,$J,358.3,17472,1,4,0)
  1. ;;=4^R82.91
  1. ;;^UTILITY(U,$J,358.3,17472,2)
  1. ;;=^5019610
  1. ;;^UTILITY(U,$J,358.3,17473,0)
  1. ;;=R89.9^^61^787^22
  1. ;;^UTILITY(U,$J,358.3,17473,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17473,1,3,0)
  1. ;;=3^Abnormal Organ/Tissue Specimen Findings,Unspec
  1. ;;^UTILITY(U,$J,358.3,17473,1,4,0)
  1. ;;=4^R89.9
  1. ;;^UTILITY(U,$J,358.3,17473,2)
  1. ;;=^5019702
  1. ;;^UTILITY(U,$J,358.3,17474,0)
  1. ;;=R90.0^^61^787^102
  1. ;;^UTILITY(U,$J,358.3,17474,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17474,1,3,0)
  1. ;;=3^Intracranial Space-Occupying Lesion Dx Imaging of Central Nervous System