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