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

IBDEI3HY.m

Go to the documentation of this file.
  1. IBDEI3HY ; ; 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,188,0)
  1. ;;=ESTABLISHED PATIENT^1^18
  1. ;;^UTILITY(U,$J,358.4,189,0)
  1. ;;=CONSULTATIONS^3^18
  1. ;;^UTILITY(U,$J,358.4,190,0)
  1. ;;=ARRYTHMIA^1^19
  1. ;;^UTILITY(U,$J,358.4,191,0)
  1. ;;=CHEST PAIN^2^19
  1. ;;^UTILITY(U,$J,358.4,192,0)
  1. ;;=CHF/MYOPATHY/TRANSPLANT^3^19
  1. ;;^UTILITY(U,$J,358.4,193,0)
  1. ;;=CORONARY ATHEROSCLEROSIS^4^19
  1. ;;^UTILITY(U,$J,358.4,194,0)
  1. ;;=GENERAL SYMPTOMS^6^19
  1. ;;^UTILITY(U,$J,358.4,195,0)
  1. ;;=HISTORY^9^19
  1. ;;^UTILITY(U,$J,358.4,196,0)
  1. ;;=HYPERTENSION/HYPOTENSION^10^19
  1. ;;^UTILITY(U,$J,358.4,197,0)
  1. ;;=INFECTION/INFLM DISEASE^11^19
  1. ;;^UTILITY(U,$J,358.4,198,0)
  1. ;;=LIPID DISORDER^12^19
  1. ;;^UTILITY(U,$J,358.4,199,0)
  1. ;;=MYOCARDIAL INFARCTION^13^19
  1. ;;^UTILITY(U,$J,358.4,200,0)
  1. ;;=NONRHEUMATIC HEART VALVE^14^19
  1. ;;^UTILITY(U,$J,358.4,201,0)
  1. ;;=HEART DISEASE^7^19
  1. ;;^UTILITY(U,$J,358.4,202,0)
  1. ;;=HEART VALVE DISEASE^8^19
  1. ;;^UTILITY(U,$J,358.4,203,0)
  1. ;;=PERIPHERAL VASC DISEASE^15^19
  1. ;;^UTILITY(U,$J,358.4,204,0)
  1. ;;=RHEUMATIC HEART DISEASE^16^19
  1. ;;^UTILITY(U,$J,358.4,205,0)
  1. ;;=DEVICE/IMPLANT/GRAFT^5^19
  1. ;;^UTILITY(U,$J,358.4,206,0)
  1. ;;=SYNCOPE^17^19
  1. ;;^UTILITY(U,$J,358.4,207,0)
  1. ;;=TEAM CONFERENCE^3^20
  1. ;;^UTILITY(U,$J,358.4,208,0)
  1. ;;=SOCIAL WORKER^2^20
  1. ;;^UTILITY(U,$J,358.4,209,0)
  1. ;;=PSYCH^1^20
  1. ;;^UTILITY(U,$J,358.4,210,0)
  1. ;;=CLINICIAN^1^21
  1. ;;^UTILITY(U,$J,358.4,211,0)
  1. ;;=ADMINISTRATIVE PURPOSES^1^22
  1. ;;^UTILITY(U,$J,358.4,212,0)
  1. ;;=FAMILY CIRCUMSTANCES^2^22
  1. ;;^UTILITY(U,$J,358.4,213,0)
  1. ;;=HOUSING & ECONOMIC CIRCUM^3^22
  1. ;;^UTILITY(U,$J,358.4,214,0)
  1. ;;=MENTAL & BEHAVIORAL PROBLEMS^4^22
  1. ;;^UTILITY(U,$J,358.4,215,0)
  1. ;;=PERSONS SEEKING CONSULT^5^22
  1. ;;^UTILITY(U,$J,358.4,216,0)
  1. ;;=SCREENING FOR MENTAL/DEVELOPMENT^6^22
  1. ;;^UTILITY(U,$J,358.4,217,0)
  1. ;;=NEW PATIENT^2^23
  1. ;;^UTILITY(U,$J,358.4,218,0)
  1. ;;=ESTABLISHED PATIENT^1^23
  1. ;;^UTILITY(U,$J,358.4,219,0)
  1. ;;=CONSULTATIONS^3^23
  1. ;;^UTILITY(U,$J,358.4,220,0)
  1. ;;=MISCELLANEOUS TREATMENT^4^24
  1. ;;^UTILITY(U,$J,358.4,221,0)
  1. ;;=CHIROPRACTIC MANIPULATIVE SERVICES^2^24
  1. ;;^UTILITY(U,$J,358.4,222,0)
  1. ;;=OSTEOPATHIC MANIPULATIVE TREATMENT^5^24
  1. ;;^UTILITY(U,$J,358.4,223,0)
  1. ;;=ACUPUNCTURE^1^24
  1. ;;^UTILITY(U,$J,358.4,224,0)
  1. ;;=EDUCATION FOR SELF MGT^3^24
  1. ;;^UTILITY(U,$J,358.4,225,0)
  1. ;;=EXTREMITIES/JOINTS/MUSCLES^2^25
  1. ;;^UTILITY(U,$J,358.4,226,0)
  1. ;;=HEAD AREA/NERVES^3^25
  1. ;;^UTILITY(U,$J,358.4,227,0)
  1. ;;=CERVICAL^1^25
  1. ;;^UTILITY(U,$J,358.4,228,0)
  1. ;;=THORACIC^6^25
  1. ;;^UTILITY(U,$J,358.4,229,0)
  1. ;;=LUMBAR^4^25
  1. ;;^UTILITY(U,$J,358.4,230,0)
  1. ;;=SACRUM^5^25
  1. ;;^UTILITY(U,$J,358.4,231,0)
  1. ;;=UNSPECIFIED^7^25
  1. ;;^UTILITY(U,$J,358.4,232,0)
  1. ;;=SUBSEQUENT NRSG FACILITY CARE^2^26
  1. ;;^UTILITY(U,$J,358.4,233,0)
  1. ;;=INITIAL NRSG FACILITY CARE^1^26
  1. ;;^UTILITY(U,$J,358.4,234,0)
  1. ;;=INPT-CONSULTATIONS^3^26
  1. ;;^UTILITY(U,$J,358.4,235,0)
  1. ;;=DISCHARGE DAY VISIT^6^26
  1. ;;^UTILITY(U,$J,358.4,236,0)
  1. ;;=OTH NURSG FACILITY SVCS^4^26
  1. ;;^UTILITY(U,$J,358.4,237,0)
  1. ;;=TRANSITIONAL CARE^5^26
  1. ;;^UTILITY(U,$J,358.4,238,0)
  1. ;;=INPT VENT MGMT^3^27
  1. ;;^UTILITY(U,$J,358.4,239,0)
  1. ;;=ASSESSMENT^2^27
  1. ;;^UTILITY(U,$J,358.4,240,0)
  1. ;;=PROLONGED SERVICES^4^27
  1. ;;^UTILITY(U,$J,358.4,241,0)
  1. ;;=TEAM CONFERENCE^5^27
  1. ;;^UTILITY(U,$J,358.4,242,0)
  1. ;;=ADVANCE CARE PLANNING^1^27
  1. ;;^UTILITY(U,$J,358.4,243,0)
  1. ;;=DEMENTIA/COGNITIVE^6^28
  1. ;;^UTILITY(U,$J,358.4,244,0)
  1. ;;=MENTAL HEALTH^18^28
  1. ;;^UTILITY(U,$J,358.4,245,0)
  1. ;;=ABDOMINAL/GASTRO/DIGESTIVE^1^28
  1. ;;^UTILITY(U,$J,358.4,246,0)
  1. ;;=ANEMIA/BLOOD^2^28
  1. ;;^UTILITY(U,$J,358.4,247,0)
  1. ;;=BREAST/SKIN/HAIR/NAIL/SOFT TISSUE^3^28
  1. ;;^UTILITY(U,$J,358.4,248,0)
  1. ;;=CANCER^4^28
  1. ;;^UTILITY(U,$J,358.4,249,0)
  1. ;;=CARDIO/VASCULAR^5^28