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

IBDEI3AV.m

Go to the documentation of this file.
IBDEI3AV ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.4,178,0)
 ;;=NEUROSTIMULATORS^8^29
 ;;^UTILITY(U,$J,358.4,179,0)
 ;;=SEIZURES/EPILEPSY/SPELLS^15^30
 ;;^UTILITY(U,$J,358.4,180,0)
 ;;=CEREBROVASCULAR DISEASE^2^30
 ;;^UTILITY(U,$J,358.4,181,0)
 ;;=DIZZINESS^3^30
 ;;^UTILITY(U,$J,358.4,182,0)
 ;;=ENCEPHALOPATHY^5^30
 ;;^UTILITY(U,$J,358.4,183,0)
 ;;=HEADACHE^6^30
 ;;^UTILITY(U,$J,358.4,184,0)
 ;;=MOVEMENT DISORDERS^8^30
 ;;^UTILITY(U,$J,358.4,185,0)
 ;;=NEOPLASMS^10^30
 ;;^UTILITY(U,$J,358.4,186,0)
 ;;=NEURODEGENERATIVE DISEASE^11^30
 ;;^UTILITY(U,$J,358.4,187,0)
 ;;=OTHER^13^30
 ;;^UTILITY(U,$J,358.4,188,0)
 ;;=CARDIAC DISORDERS^1^30
 ;;^UTILITY(U,$J,358.4,189,0)
 ;;=INFLAMMATORY & DEMYELINATING DISEASES^7^30
 ;;^UTILITY(U,$J,358.4,190,0)
 ;;=NEUROMUSCULAR DISORDERS^12^30
 ;;^UTILITY(U,$J,358.4,191,0)
 ;;=PAIN^14^30
 ;;^UTILITY(U,$J,358.4,192,0)
 ;;=SPINAL CONDITIONS^16^30
 ;;^UTILITY(U,$J,358.4,193,0)
 ;;=SYMPTOMS^18^30
 ;;^UTILITY(U,$J,358.4,194,0)
 ;;=VISION DISTURBANCES^19^30
 ;;^UTILITY(U,$J,358.4,195,0)
 ;;=EMG DX^4^30
 ;;^UTILITY(U,$J,358.4,196,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^17^30
 ;;^UTILITY(U,$J,358.4,197,0)
 ;;=MUSCLE ATROPHY^9^30
 ;;^UTILITY(U,$J,358.4,198,0)
 ;;=NEUROSURGERY PROCEDURES^1^31
 ;;^UTILITY(U,$J,358.4,199,0)
 ;;=PROLONGED SERVICE^2^31
 ;;^UTILITY(U,$J,358.4,200,0)
 ;;=NEW PATIENT^2^32
 ;;^UTILITY(U,$J,358.4,201,0)
 ;;=ESTABLISHED PATIENT^1^32
 ;;^UTILITY(U,$J,358.4,202,0)
 ;;=CONSULTATIONS^3^32
 ;;^UTILITY(U,$J,358.4,203,0)
 ;;=POST OP^4^32
 ;;^UTILITY(U,$J,358.4,204,0)
 ;;=HEAD/CEREBRAL^4^33
 ;;^UTILITY(U,$J,358.4,205,0)
 ;;=CERVICAL SPINE^1^33
 ;;^UTILITY(U,$J,358.4,206,0)
 ;;=THORACIC SPINE^10^33
 ;;^UTILITY(U,$J,358.4,207,0)
 ;;=LUMBO-SACRAL SPINE^5^33
 ;;^UTILITY(U,$J,358.4,208,0)
 ;;=EXTREMITIES^3^33
 ;;^UTILITY(U,$J,358.4,209,0)
 ;;=PERIPHERAL NERVE^8^33
 ;;^UTILITY(U,$J,358.4,210,0)
 ;;=CHRONIC PAIN^2^33
 ;;^UTILITY(U,$J,358.4,211,0)
 ;;=MISCELLANEOUS^6^33
 ;;^UTILITY(U,$J,358.4,212,0)
 ;;=NEOPLASM^7^33
 ;;^UTILITY(U,$J,358.4,213,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^9^33
 ;;^UTILITY(U,$J,358.4,214,0)
 ;;=ESTABLISHED PATIENT^1^34
 ;;^UTILITY(U,$J,358.4,215,0)
 ;;=CONSULTATION-CLINICIAN^2^34
 ;;^UTILITY(U,$J,358.4,216,0)
 ;;=NEW PATIENT^3^34
 ;;^UTILITY(U,$J,358.4,217,0)
 ;;=NEUROLYSIS^2^35
 ;;^UTILITY(U,$J,358.4,218,0)
 ;;=NEUROSTIMULATORS^3^35
 ;;^UTILITY(U,$J,358.4,219,0)
 ;;=OTHER PROCEDURES^4^35
 ;;^UTILITY(U,$J,358.4,220,0)
 ;;=SPINAL PROCEDURES/NERVE BLOCKS^6^35
 ;;^UTILITY(U,$J,358.4,221,0)
 ;;=TEAM CONFERENCE^7^35
 ;;^UTILITY(U,$J,358.4,222,0)
 ;;=PROLONGED SERVICES^5^35
 ;;^UTILITY(U,$J,358.4,223,0)
 ;;=ACUPUNCTURE/DRY NEEDLING^1^35
 ;;^UTILITY(U,$J,358.4,224,0)
 ;;=ABDOMINAL PAIN^1^36
 ;;^UTILITY(U,$J,358.4,225,0)
 ;;=CARDIAC^2^36
 ;;^UTILITY(U,$J,358.4,226,0)
 ;;=DIGESTIVE SYSTEM DISEASES^4^36
 ;;^UTILITY(U,$J,358.4,227,0)
 ;;=NERVOUS SYSTEM DISEASES^9^36
 ;;^UTILITY(U,$J,358.4,228,0)
 ;;=GENERAL SIGNS & SYMPTOMS^5^36
 ;;^UTILITY(U,$J,358.4,229,0)
 ;;=INFECTIOUS DISEASES^6^36
 ;;^UTILITY(U,$J,358.4,230,0)
 ;;=MALIGNANT NEOPLASMS^7^36
 ;;^UTILITY(U,$J,358.4,231,0)
 ;;=OTHER^10^36
 ;;^UTILITY(U,$J,358.4,232,0)
 ;;=PRE/POST SURGERY^11^36
 ;;^UTILITY(U,$J,358.4,233,0)
 ;;=RESPIRATORY^12^36
 ;;^UTILITY(U,$J,358.4,234,0)
 ;;=MIGRAINE^8^36
 ;;^UTILITY(U,$J,358.4,235,0)
 ;;=SUICIDE IDEATION/ATTEMPTS^13^36
 ;;^UTILITY(U,$J,358.4,236,0)
 ;;=CHRONIC PAIN DUE TO^3^36
 ;;^UTILITY(U,$J,358.4,237,0)
 ;;=ASPIRATION/INJECTION^1^37