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

IBDEI1LY.m

Go to the documentation of this file.
IBDEI1LY ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,121,0)
 ;;=MYOCARDIAL INFARCTION^17^14
 ;;^UTILITY(U,$J,358.4,122,0)
 ;;=NONRHEUMATIC HEART VALVE DISORDERS^18^14
 ;;^UTILITY(U,$J,358.4,123,0)
 ;;=HEART DISEASE^10^14
 ;;^UTILITY(U,$J,358.4,124,0)
 ;;=HEART VALVE DISEASE^11^14
 ;;^UTILITY(U,$J,358.4,125,0)
 ;;=PERIPHERAL VASC DISEASE^20^14
 ;;^UTILITY(U,$J,358.4,126,0)
 ;;=RHEUMATIC HEART DISEASE^23^14
 ;;^UTILITY(U,$J,358.4,127,0)
 ;;=DEVICE/IMPLANT/GRAFT^7^14
 ;;^UTILITY(U,$J,358.4,128,0)
 ;;=SYNCOPE^26^14
 ;;^UTILITY(U,$J,358.4,129,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^24^14
 ;;^UTILITY(U,$J,358.4,130,0)
 ;;=ECTOPY^8^14
 ;;^UTILITY(U,$J,358.4,131,0)
 ;;=MISCELLANEOUS^16^14
 ;;^UTILITY(U,$J,358.4,132,0)
 ;;=VENTRICULAR ARRHYTHMIAS^27^14
 ;;^UTILITY(U,$J,358.4,133,0)
 ;;=SUPRAVENTRICULAR ARRHYTHMIAS^25^14
 ;;^UTILITY(U,$J,358.4,134,0)
 ;;=OTHER CARDIAC CONDITIONS^22^14
 ;;^UTILITY(U,$J,358.4,135,0)
 ;;=PULMONARY DISEASE^21^14
 ;;^UTILITY(U,$J,358.4,136,0)
 ;;=PACEMAKER/AIC/DEFIBRILLATOR^19^14
 ;;^UTILITY(U,$J,358.4,137,0)
 ;;=ACSC CHF^1^14
 ;;^UTILITY(U,$J,358.4,138,0)
 ;;=ACSC HYPERTENSION^2^14
 ;;^UTILITY(U,$J,358.4,139,0)
 ;;=PACEMAKER^15^15
 ;;^UTILITY(U,$J,358.4,140,0)
 ;;=CORONARY ANGIOPLASTY & STENTS^3^15
 ;;^UTILITY(U,$J,358.4,141,0)
 ;;=ELECTROPHYSIOLOGICAL PROCs^7^15
 ;;^UTILITY(U,$J,358.4,142,0)
 ;;=PERIPHERAL ANGIOPLASTIES & STENTS^16^15
 ;;^UTILITY(U,$J,358.4,143,0)
 ;;=VASCULAR INJECTION PROCs^21^15
 ;;^UTILITY(U,$J,358.4,144,0)
 ;;=OTHER PROCEDURES^14^15
 ;;^UTILITY(U,$J,358.4,145,0)
 ;;=HEART CATHETERIZATIONS^8^15
 ;;^UTILITY(U,$J,358.4,146,0)
 ;;=CATHETERIZATIONS FOR INT RADIOLOGY^2^15
 ;;^UTILITY(U,$J,358.4,147,0)
 ;;=OTHER HEART CODES^13^15
 ;;^UTILITY(U,$J,358.4,148,0)
 ;;=PROSTHETIC ANEURYSM REPAIR^19^15
 ;;^UTILITY(U,$J,358.4,149,0)
 ;;=DEVICE PROGRAMMING^4^15
 ;;^UTILITY(U,$J,358.4,150,0)
 ;;=ECHO^5^15
 ;;^UTILITY(U,$J,358.4,151,0)
 ;;=EKG^6^15
 ;;^UTILITY(U,$J,358.4,152,0)
 ;;=MEDICATION ADMINISTRATION^9^15
 ;;^UTILITY(U,$J,358.4,153,0)
 ;;=MEDICATIONS^10^15
 ;;^UTILITY(U,$J,358.4,154,0)
 ;;=OTHER CARDIAC^12^15
 ;;^UTILITY(U,$J,358.4,155,0)
 ;;=STRESS TESTS^20^15
 ;;^UTILITY(U,$J,358.4,156,0)
 ;;=PREVENTIVE COUNSELING^17^15
 ;;^UTILITY(U,$J,358.4,157,0)
 ;;=MODERATE SEDATION (MS)^11^15
 ;;^UTILITY(U,$J,358.4,158,0)
 ;;=VENTRICULAR ASSIST DEVICE INSERTION^22^15
 ;;^UTILITY(U,$J,358.4,159,0)
 ;;=CARDIOVERSION^1^15
 ;;^UTILITY(U,$J,358.4,160,0)
 ;;=PROLONGED SERVICES^18^15
 ;;^UTILITY(U,$J,358.4,161,0)
 ;;=NEW PATIENT^2^16
 ;;^UTILITY(U,$J,358.4,162,0)
 ;;=ESTABLISHED PATIENT^1^16
 ;;^UTILITY(U,$J,358.4,163,0)
 ;;=CONSULTATIONS^3^16
 ;;^UTILITY(U,$J,358.4,164,0)
 ;;=MISCELLANEOUS TREATMENT^4^17
 ;;^UTILITY(U,$J,358.4,165,0)
 ;;=CHIROPRACTIC MANIPULATIVE SERVICES^2^17
 ;;^UTILITY(U,$J,358.4,166,0)
 ;;=OSTEOPATHIC MANIPULATIVE TREATMENT^5^17
 ;;^UTILITY(U,$J,358.4,167,0)
 ;;=ACUPUNCTURE^1^17
 ;;^UTILITY(U,$J,358.4,168,0)
 ;;=EDUCATION FOR SELF MGT^3^17
 ;;^UTILITY(U,$J,358.4,169,0)
 ;;=EXTREMITIES/JOINTS/MUSCLES^6^18
 ;;^UTILITY(U,$J,358.4,170,0)
 ;;=HEAD AREA/NERVES^1^18
 ;;^UTILITY(U,$J,358.4,171,0)
 ;;=CERVICAL^2^18
 ;;^UTILITY(U,$J,358.4,172,0)
 ;;=THORACIC^3^18
 ;;^UTILITY(U,$J,358.4,173,0)
 ;;=LUMBAR^4^18
 ;;^UTILITY(U,$J,358.4,174,0)
 ;;=SACRUM^5^18
 ;;^UTILITY(U,$J,358.4,175,0)
 ;;=UNSPECIFIED^7^18
 ;;^UTILITY(U,$J,358.4,176,0)
 ;;=NEW PATIENT^1^19
 ;;^UTILITY(U,$J,358.4,177,0)
 ;;=ESTABLISHED PATIENT^2^19
 ;;^UTILITY(U,$J,358.4,178,0)
 ;;=EDUCATION & TRAINING FOR SELF MGMT^4^19