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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1LY 3811 printed Sep 23, 2025@19:47:18 Page 2
IBDEI1LY ; ; 01-FEB-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
+2 if 'DIFQR(358.4)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.4,121,0)
+2 ;;=MYOCARDIAL INFARCTION^17^14
+3 ;;^UTILITY(U,$J,358.4,122,0)
+4 ;;=NONRHEUMATIC HEART VALVE DISORDERS^18^14
+5 ;;^UTILITY(U,$J,358.4,123,0)
+6 ;;=HEART DISEASE^10^14
+7 ;;^UTILITY(U,$J,358.4,124,0)
+8 ;;=HEART VALVE DISEASE^11^14
+9 ;;^UTILITY(U,$J,358.4,125,0)
+10 ;;=PERIPHERAL VASC DISEASE^20^14
+11 ;;^UTILITY(U,$J,358.4,126,0)
+12 ;;=RHEUMATIC HEART DISEASE^23^14
+13 ;;^UTILITY(U,$J,358.4,127,0)
+14 ;;=DEVICE/IMPLANT/GRAFT^7^14
+15 ;;^UTILITY(U,$J,358.4,128,0)
+16 ;;=SYNCOPE^26^14
+17 ;;^UTILITY(U,$J,358.4,129,0)
+18 ;;=SUICIDE IDEATIONS/ATTEMPTS^24^14
+19 ;;^UTILITY(U,$J,358.4,130,0)
+20 ;;=ECTOPY^8^14
+21 ;;^UTILITY(U,$J,358.4,131,0)
+22 ;;=MISCELLANEOUS^16^14
+23 ;;^UTILITY(U,$J,358.4,132,0)
+24 ;;=VENTRICULAR ARRHYTHMIAS^27^14
+25 ;;^UTILITY(U,$J,358.4,133,0)
+26 ;;=SUPRAVENTRICULAR ARRHYTHMIAS^25^14
+27 ;;^UTILITY(U,$J,358.4,134,0)
+28 ;;=OTHER CARDIAC CONDITIONS^22^14
+29 ;;^UTILITY(U,$J,358.4,135,0)
+30 ;;=PULMONARY DISEASE^21^14
+31 ;;^UTILITY(U,$J,358.4,136,0)
+32 ;;=PACEMAKER/AIC/DEFIBRILLATOR^19^14
+33 ;;^UTILITY(U,$J,358.4,137,0)
+34 ;;=ACSC CHF^1^14
+35 ;;^UTILITY(U,$J,358.4,138,0)
+36 ;;=ACSC HYPERTENSION^2^14
+37 ;;^UTILITY(U,$J,358.4,139,0)
+38 ;;=PACEMAKER^15^15
+39 ;;^UTILITY(U,$J,358.4,140,0)
+40 ;;=CORONARY ANGIOPLASTY & STENTS^3^15
+41 ;;^UTILITY(U,$J,358.4,141,0)
+42 ;;=ELECTROPHYSIOLOGICAL PROCs^7^15
+43 ;;^UTILITY(U,$J,358.4,142,0)
+44 ;;=PERIPHERAL ANGIOPLASTIES & STENTS^16^15
+45 ;;^UTILITY(U,$J,358.4,143,0)
+46 ;;=VASCULAR INJECTION PROCs^21^15
+47 ;;^UTILITY(U,$J,358.4,144,0)
+48 ;;=OTHER PROCEDURES^14^15
+49 ;;^UTILITY(U,$J,358.4,145,0)
+50 ;;=HEART CATHETERIZATIONS^8^15
+51 ;;^UTILITY(U,$J,358.4,146,0)
+52 ;;=CATHETERIZATIONS FOR INT RADIOLOGY^2^15
+53 ;;^UTILITY(U,$J,358.4,147,0)
+54 ;;=OTHER HEART CODES^13^15
+55 ;;^UTILITY(U,$J,358.4,148,0)
+56 ;;=PROSTHETIC ANEURYSM REPAIR^19^15
+57 ;;^UTILITY(U,$J,358.4,149,0)
+58 ;;=DEVICE PROGRAMMING^4^15
+59 ;;^UTILITY(U,$J,358.4,150,0)
+60 ;;=ECHO^5^15
+61 ;;^UTILITY(U,$J,358.4,151,0)
+62 ;;=EKG^6^15
+63 ;;^UTILITY(U,$J,358.4,152,0)
+64 ;;=MEDICATION ADMINISTRATION^9^15
+65 ;;^UTILITY(U,$J,358.4,153,0)
+66 ;;=MEDICATIONS^10^15
+67 ;;^UTILITY(U,$J,358.4,154,0)
+68 ;;=OTHER CARDIAC^12^15
+69 ;;^UTILITY(U,$J,358.4,155,0)
+70 ;;=STRESS TESTS^20^15
+71 ;;^UTILITY(U,$J,358.4,156,0)
+72 ;;=PREVENTIVE COUNSELING^17^15
+73 ;;^UTILITY(U,$J,358.4,157,0)
+74 ;;=MODERATE SEDATION (MS)^11^15
+75 ;;^UTILITY(U,$J,358.4,158,0)
+76 ;;=VENTRICULAR ASSIST DEVICE INSERTION^22^15
+77 ;;^UTILITY(U,$J,358.4,159,0)
+78 ;;=CARDIOVERSION^1^15
+79 ;;^UTILITY(U,$J,358.4,160,0)
+80 ;;=PROLONGED SERVICES^18^15
+81 ;;^UTILITY(U,$J,358.4,161,0)
+82 ;;=NEW PATIENT^2^16
+83 ;;^UTILITY(U,$J,358.4,162,0)
+84 ;;=ESTABLISHED PATIENT^1^16
+85 ;;^UTILITY(U,$J,358.4,163,0)
+86 ;;=CONSULTATIONS^3^16
+87 ;;^UTILITY(U,$J,358.4,164,0)
+88 ;;=MISCELLANEOUS TREATMENT^4^17
+89 ;;^UTILITY(U,$J,358.4,165,0)
+90 ;;=CHIROPRACTIC MANIPULATIVE SERVICES^2^17
+91 ;;^UTILITY(U,$J,358.4,166,0)
+92 ;;=OSTEOPATHIC MANIPULATIVE TREATMENT^5^17
+93 ;;^UTILITY(U,$J,358.4,167,0)
+94 ;;=ACUPUNCTURE^1^17
+95 ;;^UTILITY(U,$J,358.4,168,0)
+96 ;;=EDUCATION FOR SELF MGT^3^17
+97 ;;^UTILITY(U,$J,358.4,169,0)
+98 ;;=EXTREMITIES/JOINTS/MUSCLES^6^18
+99 ;;^UTILITY(U,$J,358.4,170,0)
+100 ;;=HEAD AREA/NERVES^1^18
+101 ;;^UTILITY(U,$J,358.4,171,0)
+102 ;;=CERVICAL^2^18
+103 ;;^UTILITY(U,$J,358.4,172,0)
+104 ;;=THORACIC^3^18
+105 ;;^UTILITY(U,$J,358.4,173,0)
+106 ;;=LUMBAR^4^18
+107 ;;^UTILITY(U,$J,358.4,174,0)
+108 ;;=SACRUM^5^18
+109 ;;^UTILITY(U,$J,358.4,175,0)
+110 ;;=UNSPECIFIED^7^18
+111 ;;^UTILITY(U,$J,358.4,176,0)
+112 ;;=NEW PATIENT^1^19
+113 ;;^UTILITY(U,$J,358.4,177,0)
+114 ;;=ESTABLISHED PATIENT^2^19
+115 ;;^UTILITY(U,$J,358.4,178,0)
+116 ;;=EDUCATION & TRAINING FOR SELF MGMT^4^19
