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

IBDEI2EX.m

Go to the documentation of this file.
  1. IBDEI2EX ; ; 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,38512,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38512,1,2,0)
  1. ;;=2^86580
  1. ;;^UTILITY(U,$J,358.3,38512,1,3,0)
  1. ;;=3^TB
  1. ;;^UTILITY(U,$J,358.3,38513,0)
  1. ;;=95024^^151^1963^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,38513,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38513,1,2,0)
  1. ;;=2^95024
  1. ;;^UTILITY(U,$J,358.3,38513,1,3,0)
  1. ;;=3^Intradermals (each)
  1. ;;^UTILITY(U,$J,358.3,38514,0)
  1. ;;=86510^^151^1963^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,38514,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38514,1,2,0)
  1. ;;=2^86510
  1. ;;^UTILITY(U,$J,358.3,38514,1,3,0)
  1. ;;=3^Histoplasmosis
  1. ;;^UTILITY(U,$J,358.3,38515,0)
  1. ;;=86486^^151^1963^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,38515,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38515,1,2,0)
  1. ;;=2^86486
  1. ;;^UTILITY(U,$J,358.3,38515,1,3,0)
  1. ;;=3^Mumps
  1. ;;^UTILITY(U,$J,358.3,38516,0)
  1. ;;=94640^^151^1964^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,38516,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38516,1,2,0)
  1. ;;=2^94640
  1. ;;^UTILITY(U,$J,358.3,38516,1,3,0)
  1. ;;=3^Nebulizer Treatment
  1. ;;^UTILITY(U,$J,358.3,38517,0)
  1. ;;=82948^^151^1964^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,38517,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38517,1,2,0)
  1. ;;=2^82948
  1. ;;^UTILITY(U,$J,358.3,38517,1,3,0)
  1. ;;=3^Glucose finger stick
  1. ;;^UTILITY(U,$J,358.3,38518,0)
  1. ;;=11719^^151^1964^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,38518,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38518,1,2,0)
  1. ;;=2^11719
  1. ;;^UTILITY(U,$J,358.3,38518,1,3,0)
  1. ;;=3^Trim Nails (nondystrophic)
  1. ;;^UTILITY(U,$J,358.3,38519,0)
  1. ;;=81002^^151^1964^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,38519,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38519,1,2,0)
  1. ;;=2^81002
  1. ;;^UTILITY(U,$J,358.3,38519,1,3,0)
  1. ;;=3^UA Dipstick
  1. ;;^UTILITY(U,$J,358.3,38520,0)
  1. ;;=93005^^151^1964^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,38520,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38520,1,2,0)
  1. ;;=2^93005
  1. ;;^UTILITY(U,$J,358.3,38520,1,3,0)
  1. ;;=3^EKG
  1. ;;^UTILITY(U,$J,358.3,38521,0)
  1. ;;=36600^^151^1964^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,38521,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38521,1,2,0)
  1. ;;=2^36600
  1. ;;^UTILITY(U,$J,358.3,38521,1,3,0)
  1. ;;=3^ABG
  1. ;;^UTILITY(U,$J,358.3,38522,0)
  1. ;;=29580^^151^1964^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,38522,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38522,1,2,0)
  1. ;;=2^29580
  1. ;;^UTILITY(U,$J,358.3,38522,1,3,0)
  1. ;;=3^Strapping, Unna Boot
  1. ;;^UTILITY(U,$J,358.3,38523,0)
  1. ;;=97602^^151^1964^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,38523,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38523,1,2,0)
  1. ;;=2^97602
  1. ;;^UTILITY(U,$J,358.3,38523,1,3,0)
  1. ;;=3^Wound Care, non-selective debridement
  1. ;;^UTILITY(U,$J,358.3,38524,0)
  1. ;;=51701^^151^1964^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,38524,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38524,1,2,0)
  1. ;;=2^51701
  1. ;;^UTILITY(U,$J,358.3,38524,1,3,0)
  1. ;;=3^Insert Catheter for Residual Urine
  1. ;;^UTILITY(U,$J,358.3,38525,0)
  1. ;;=51702^^151^1964^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,38525,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38525,1,2,0)
  1. ;;=2^51702
  1. ;;^UTILITY(U,$J,358.3,38525,1,3,0)
  1. ;;=3^Insert Foley Cath
  1. ;;^UTILITY(U,$J,358.3,38526,0)
  1. ;;=51798^^151^1964^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,38526,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38526,1,2,0)
  1. ;;=2^51798
  1. ;;^UTILITY(U,$J,358.3,38526,1,3,0)
  1. ;;=3^US for Resid Urine
  1. ;;^UTILITY(U,$J,358.3,38527,0)
  1. ;;=96360^^151^1964^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,38527,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,38527,1,2,0)
  1. ;;=2^96360