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

IBDEI0P9.m

Go to the documentation of this file.
  1. IBDEI0P9 ; ; 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,11337,1,3,0)
  1. ;;=3^Unavailability/Inaccessibility of Health-Care Facilities
  1. ;;^UTILITY(U,$J,358.3,11337,1,4,0)
  1. ;;=4^Z75.3
  1. ;;^UTILITY(U,$J,358.3,11337,2)
  1. ;;=^5063292
  1. ;;^UTILITY(U,$J,358.3,11338,0)
  1. ;;=Z75.0^^42^527^3
  1. ;;^UTILITY(U,$J,358.3,11338,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11338,1,3,0)
  1. ;;=3^Medical Services Not Available in Home
  1. ;;^UTILITY(U,$J,358.3,11338,1,4,0)
  1. ;;=4^Z75.0
  1. ;;^UTILITY(U,$J,358.3,11338,2)
  1. ;;=^5063289
  1. ;;^UTILITY(U,$J,358.3,11339,0)
  1. ;;=Z75.1^^42^527^4
  1. ;;^UTILITY(U,$J,358.3,11339,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11339,1,3,0)
  1. ;;=3^Pt Awaiting Admission to Adequate Facility Elsewhere
  1. ;;^UTILITY(U,$J,358.3,11339,1,4,0)
  1. ;;=4^Z75.1
  1. ;;^UTILITY(U,$J,358.3,11339,2)
  1. ;;=^5063290
  1. ;;^UTILITY(U,$J,358.3,11340,0)
  1. ;;=Z75.4^^42^527^6
  1. ;;^UTILITY(U,$J,358.3,11340,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11340,1,3,0)
  1. ;;=3^Unavailability/Inaccessibility of Helping Agencies
  1. ;;^UTILITY(U,$J,358.3,11340,1,4,0)
  1. ;;=4^Z75.4
  1. ;;^UTILITY(U,$J,358.3,11340,2)
  1. ;;=^5063293
  1. ;;^UTILITY(U,$J,358.3,11341,0)
  1. ;;=Z75.8^^42^527^2
  1. ;;^UTILITY(U,$J,358.3,11341,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11341,1,3,0)
  1. ;;=3^Medical Facilities/Health Care Problems
  1. ;;^UTILITY(U,$J,358.3,11341,1,4,0)
  1. ;;=4^Z75.8
  1. ;;^UTILITY(U,$J,358.3,11341,2)
  1. ;;=^5063295
  1. ;;^UTILITY(U,$J,358.3,11342,0)
  1. ;;=Z71.9^^42^527^1
  1. ;;^UTILITY(U,$J,358.3,11342,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11342,1,3,0)
  1. ;;=3^Counseling,Unspec
  1. ;;^UTILITY(U,$J,358.3,11342,1,4,0)
  1. ;;=4^Z71.9
  1. ;;^UTILITY(U,$J,358.3,11342,2)
  1. ;;=^5063254
  1. ;;^UTILITY(U,$J,358.3,11343,0)
  1. ;;=Z89.201^^42^528^10
  1. ;;^UTILITY(U,$J,358.3,11343,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11343,1,3,0)
  1. ;;=3^Acquired Absence of Right Upper Limb,Unspec Level
  1. ;;^UTILITY(U,$J,358.3,11343,1,4,0)
  1. ;;=4^Z89.201
  1. ;;^UTILITY(U,$J,358.3,11343,2)
  1. ;;=^5063543
  1. ;;^UTILITY(U,$J,358.3,11344,0)
  1. ;;=Z89.202^^42^528^4
  1. ;;^UTILITY(U,$J,358.3,11344,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11344,1,3,0)
  1. ;;=3^Acquired Absence of Left Upper Limb,Unspec Level
  1. ;;^UTILITY(U,$J,358.3,11344,1,4,0)
  1. ;;=4^Z89.202
  1. ;;^UTILITY(U,$J,358.3,11344,2)
  1. ;;=^5063544
  1. ;;^UTILITY(U,$J,358.3,11345,0)
  1. ;;=Z89.111^^42^528^6
  1. ;;^UTILITY(U,$J,358.3,11345,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11345,1,3,0)
  1. ;;=3^Acquired Absence of Right Hand
  1. ;;^UTILITY(U,$J,358.3,11345,1,4,0)
  1. ;;=4^Z89.111
  1. ;;^UTILITY(U,$J,358.3,11345,2)
  1. ;;=^5063537
  1. ;;^UTILITY(U,$J,358.3,11346,0)
  1. ;;=Z89.112^^42^528^1
  1. ;;^UTILITY(U,$J,358.3,11346,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11346,1,3,0)
  1. ;;=3^Acquired Absence of Left Hand
  1. ;;^UTILITY(U,$J,358.3,11346,1,4,0)
  1. ;;=4^Z89.112
  1. ;;^UTILITY(U,$J,358.3,11346,2)
  1. ;;=^5063538
  1. ;;^UTILITY(U,$J,358.3,11347,0)
  1. ;;=Z89.121^^42^528^11
  1. ;;^UTILITY(U,$J,358.3,11347,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11347,1,3,0)
  1. ;;=3^Acquired Absence of Right Wrist
  1. ;;^UTILITY(U,$J,358.3,11347,1,4,0)
  1. ;;=4^Z89.121
  1. ;;^UTILITY(U,$J,358.3,11347,2)
  1. ;;=^5063540
  1. ;;^UTILITY(U,$J,358.3,11348,0)
  1. ;;=Z89.122^^42^528^5
  1. ;;^UTILITY(U,$J,358.3,11348,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11348,1,3,0)
  1. ;;=3^Acquired Absence of Left Wrist
  1. ;;^UTILITY(U,$J,358.3,11348,1,4,0)
  1. ;;=4^Z89.122
  1. ;;^UTILITY(U,$J,358.3,11348,2)
  1. ;;=^5063541
  1. ;;^UTILITY(U,$J,358.3,11349,0)
  1. ;;=Z89.211^^42^528^9
  1. ;;^UTILITY(U,$J,358.3,11349,1,0)
  1. ;;=^358.31IA^4^2