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

IBDEI3J1.m

Go to the documentation of this file.
  1. IBDEI3J1 ; ; 19-NOV-2015
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
  1. Q:'DIFQR(358.4) 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.4,2552,0)
  1. ;;=REASON FOR VISIT/HEALTH STATUS^6^233
  1. ;;^UTILITY(U,$J,358.4,2553,0)
  1. ;;=OTHER^7^234
  1. ;;^UTILITY(U,$J,358.4,2554,0)
  1. ;;=CASE MANAGEMENT SERVICES^1^234
  1. ;;^UTILITY(U,$J,358.4,2555,0)
  1. ;;=HOME HEALTH VISIT^5^234
  1. ;;^UTILITY(U,$J,358.4,2556,0)
  1. ;;=COMMUNITY RESIDENTIAL CARE^2^234
  1. ;;^UTILITY(U,$J,358.4,2557,0)
  1. ;;=SMOKING/TOBACCO USE CESSATION^8^234
  1. ;;^UTILITY(U,$J,358.4,2558,0)
  1. ;;=HEALTH AND BEHAVIOR ASSESSMENT^4^234
  1. ;;^UTILITY(U,$J,358.4,2559,0)
  1. ;;=EDUCATION/TRAINING^3^234
  1. ;;^UTILITY(U,$J,358.4,2560,0)
  1. ;;=ADMINISTRATIVE PURPOSES^1^235
  1. ;;^UTILITY(U,$J,358.4,2561,0)
  1. ;;=CONDITIONS INFLUENCING HEALTH^2^235
  1. ;;^UTILITY(U,$J,358.4,2562,0)
  1. ;;=FAMILY CIRCUMSTANCES^4^235
  1. ;;^UTILITY(U,$J,358.4,2563,0)
  1. ;;=HOUSING/ECONOMIC CIRCUMSTANCES^5^235
  1. ;;^UTILITY(U,$J,358.4,2564,0)
  1. ;;=MENTAL/BEHAVIORAL PROBLEMS^9^235
  1. ;;^UTILITY(U,$J,358.4,2565,0)
  1. ;;=ORGAN/TISSUE REPLACED^11^235
  1. ;;^UTILITY(U,$J,358.4,2566,0)
  1. ;;=POSTPROCEDURAL STATES^15^235
  1. ;;^UTILITY(U,$J,358.4,2567,0)
  1. ;;=PSYCHOSOCIAL CIRCUMSTANCES^16^235
  1. ;;^UTILITY(U,$J,358.4,2568,0)
  1. ;;=PERSONAL HX OF HAZARDS TO HEALTH^12^235
  1. ;;^UTILITY(U,$J,358.4,2569,0)
  1. ;;=PERSONS SEEKING CONSULT^14^235
  1. ;;^UTILITY(U,$J,358.4,2570,0)
  1. ;;=LIFESTYLE PROBLEMS^6^235
  1. ;;^UTILITY(U,$J,358.4,2571,0)
  1. ;;=MENTAL/DEVELOPMENTAL SCRN^10^235
  1. ;;^UTILITY(U,$J,358.4,2572,0)
  1. ;;=PERSONAL HX OF MENTAL DISORDER^13^235
  1. ;;^UTILITY(U,$J,358.4,2573,0)
  1. ;;=SENSES/FUNCTION PROBLEMS^17^235
  1. ;;^UTILITY(U,$J,358.4,2574,0)
  1. ;;=MACHINE/DEVICE DEPENDENCE^8^235
  1. ;;^UTILITY(U,$J,358.4,2575,0)
  1. ;;=UPPER LIMB AMPUTATION STATUS^19^235
  1. ;;^UTILITY(U,$J,358.4,2576,0)
  1. ;;=LOWER LIMB AMPUTATION STATUS^7^235
  1. ;;^UTILITY(U,$J,358.4,2577,0)
  1. ;;=UNAVAILABILITY OF MED FACILITY CARE^18^235
  1. ;;^UTILITY(U,$J,358.4,2578,0)
  1. ;;=CONVALENSCENCE/PALLIATIVE CARE^3^235
  1. ;;^UTILITY(U,$J,358.4,2579,0)
  1. ;;=PSYCHIATRIC THERAPY^8^236
  1. ;;^UTILITY(U,$J,358.4,2580,0)
  1. ;;=OTHER^7^236
  1. ;;^UTILITY(U,$J,358.4,2581,0)
  1. ;;=CASE MANAGEMENT SERVICES^1^236
  1. ;;^UTILITY(U,$J,358.4,2582,0)
  1. ;;=HOME HEALTH VISIT^5^236
  1. ;;^UTILITY(U,$J,358.4,2583,0)
  1. ;;=COMMUNITY RESIDENTIAL CARE^2^236
  1. ;;^UTILITY(U,$J,358.4,2584,0)
  1. ;;=SMOKING/TOBACCO USE CESSATION^9^236
  1. ;;^UTILITY(U,$J,358.4,2585,0)
  1. ;;=HEALTH AND BEHAVIOR ASSESSMENT^4^236
  1. ;;^UTILITY(U,$J,358.4,2586,0)
  1. ;;=EDUCATION/TRAINING^3^236
  1. ;;^UTILITY(U,$J,358.4,2587,0)
  1. ;;=TEAM CONFERENCE^10^236
  1. ;;^UTILITY(U,$J,358.4,2588,0)
  1. ;;=ABUSE AND NEGLECT^1^237
  1. ;;^UTILITY(U,$J,358.4,2589,0)
  1. ;;=ANXIETY DISORDERS^3^237
  1. ;;^UTILITY(U,$J,358.4,2590,0)
  1. ;;=BIPOLAR DISORDERS^4^237
  1. ;;^UTILITY(U,$J,358.4,2591,0)
  1. ;;=DELIRIUM^7^237
  1. ;;^UTILITY(U,$J,358.4,2592,0)
  1. ;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^237
  1. ;;^UTILITY(U,$J,358.4,2593,0)
  1. ;;=DEPRESSIVE DISORDERS^9^237
  1. ;;^UTILITY(U,$J,358.4,2594,0)
  1. ;;=DISSOCIATIVE DISORDERS ^10^237
  1. ;;^UTILITY(U,$J,358.4,2595,0)
  1. ;;=EATING DISORDERS^11^237
  1. ;;^UTILITY(U,$J,358.4,2596,0)
  1. ;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^237
  1. ;;^UTILITY(U,$J,358.4,2597,0)
  1. ;;=GENDER DYSPHORIA^13^237
  1. ;;^UTILITY(U,$J,358.4,2598,0)
  1. ;;=HOUSING/ECONOMIC PROBLEMS^14^237
  1. ;;^UTILITY(U,$J,358.4,2599,0)
  1. ;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^237
  1. ;;^UTILITY(U,$J,358.4,2600,0)
  1. ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^237
  1. ;;^UTILITY(U,$J,358.4,2601,0)
  1. ;;=ORGANIC DISORDERS^18^237
  1. ;;^UTILITY(U,$J,358.4,2602,0)
  1. ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^237
  1. ;;^UTILITY(U,$J,358.4,2603,0)
  1. ;;=ADHD^2^237
  1. ;;^UTILITY(U,$J,358.4,2604,0)
  1. ;;=COUNSELING/MED ADVICE^5^237
  1. ;;^UTILITY(U,$J,358.4,2605,0)
  1. ;;=SOCIAL ENVIRONMENT PROBLEMS^28^237