IBDEI3AZ ; ; 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,405,0)
;;=CHEST PAIN^4^53
;;^UTILITY(U,$J,358.4,406,0)
;;=CHF/MYOPATHY/TRANSPLANT^5^53
;;^UTILITY(U,$J,358.4,407,0)
;;=CORONARY ATHEROSCLEROSIS^6^53
;;^UTILITY(U,$J,358.4,408,0)
;;=GENERAL SYMPTOMS^9^53
;;^UTILITY(U,$J,358.4,409,0)
;;=HISTORY^12^53
;;^UTILITY(U,$J,358.4,410,0)
;;=HYPERTENSION/HYPOTENSION^13^53
;;^UTILITY(U,$J,358.4,411,0)
;;=INFECTION/INFLM DISEASE^14^53
;;^UTILITY(U,$J,358.4,412,0)
;;=LIPID DISORDER^15^53
;;^UTILITY(U,$J,358.4,413,0)
;;=MYOCARDIAL INFARCTION^17^53
;;^UTILITY(U,$J,358.4,414,0)
;;=NONRHEUMATIC HEART VALVE DISORDERS^18^53
;;^UTILITY(U,$J,358.4,415,0)
;;=HEART DISEASE^10^53
;;^UTILITY(U,$J,358.4,416,0)
;;=HEART VALVE DISEASE^11^53
;;^UTILITY(U,$J,358.4,417,0)
;;=PERIPHERAL VASC DISEASE^20^53
;;^UTILITY(U,$J,358.4,418,0)
;;=RHEUMATIC HEART DISEASE^23^53
;;^UTILITY(U,$J,358.4,419,0)
;;=DEVICE/IMPLANT/GRAFT^7^53
;;^UTILITY(U,$J,358.4,420,0)
;;=SYNCOPE^26^53
;;^UTILITY(U,$J,358.4,421,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^24^53
;;^UTILITY(U,$J,358.4,422,0)
;;=ECTOPY^8^53
;;^UTILITY(U,$J,358.4,423,0)
;;=MISCELLANEOUS^16^53
;;^UTILITY(U,$J,358.4,424,0)
;;=VENTRICULAR ARRHYTHMIAS^27^53
;;^UTILITY(U,$J,358.4,425,0)
;;=SUPRAVENTRICULAR ARRHYTHMIAS^25^53
;;^UTILITY(U,$J,358.4,426,0)
;;=OTHER CARDIAC CONDITIONS^22^53
;;^UTILITY(U,$J,358.4,427,0)
;;=PULMONARY DISEASE^21^53
;;^UTILITY(U,$J,358.4,428,0)
;;=PACEMAKER/AIC/DEFIBRILLATOR^19^53
;;^UTILITY(U,$J,358.4,429,0)
;;=ACSC CHF^1^53
;;^UTILITY(U,$J,358.4,430,0)
;;=ACSC HYPERTENSION^2^53
;;^UTILITY(U,$J,358.4,431,0)
;;=NEW PATIENT^2^54
;;^UTILITY(U,$J,358.4,432,0)
;;=ESTABLISHED PATIENT^1^54
;;^UTILITY(U,$J,358.4,433,0)
;;=CONSULTATIONS^3^54
;;^UTILITY(U,$J,358.4,434,0)
;;=MISCELLANEOUS TREATMENT^4^55
;;^UTILITY(U,$J,358.4,435,0)
;;=CHIROPRACTIC MANIPULATIVE SERVICES^2^55
;;^UTILITY(U,$J,358.4,436,0)
;;=OSTEOPATHIC MANIPULATIVE TREATMENT^5^55
;;^UTILITY(U,$J,358.4,437,0)
;;=ACUPUNCTURE^1^55
;;^UTILITY(U,$J,358.4,438,0)
;;=EDUCATION FOR SELF MGT^3^55
;;^UTILITY(U,$J,358.4,439,0)
;;=EXTREMITIES/JOINTS/MUSCLES^6^56
;;^UTILITY(U,$J,358.4,440,0)
;;=HEAD AREA/NERVES^1^56
;;^UTILITY(U,$J,358.4,441,0)
;;=CERVICAL^2^56
;;^UTILITY(U,$J,358.4,442,0)
;;=THORACIC^3^56
;;^UTILITY(U,$J,358.4,443,0)
;;=LUMBAR^4^56
;;^UTILITY(U,$J,358.4,444,0)
;;=SACRUM^5^56
;;^UTILITY(U,$J,358.4,445,0)
;;=UNSPECIFIED^7^56
;;^UTILITY(U,$J,358.4,446,0)
;;=COUNSELING/EDUCATION^5^57
;;^UTILITY(U,$J,358.4,447,0)
;;=PSYCHIATRIC THERAPY^10^57
;;^UTILITY(U,$J,358.4,448,0)
;;=BIOFEEDBACK THERAPY^2^57
;;^UTILITY(U,$J,358.4,449,0)
;;=BIOPSYCHOSOCIAL ASSESS/INTERVENTION^3^57
;;^UTILITY(U,$J,358.4,450,0)
;;=PHYSICAL THERAPY^9^57
;;^UTILITY(U,$J,358.4,451,0)
;;=OTHER THERAPEUTIC TECHNIQUES^8^57
;;^UTILITY(U,$J,358.4,452,0)
;;=ACUPUNTURE^1^57
;;^UTILITY(U,$J,358.4,453,0)
;;=OSTEOPATHIC MANIPULATION^7^57
;;^UTILITY(U,$J,358.4,454,0)
;;=CHIROPRACTIC MANIPULATION^4^57
;;^UTILITY(U,$J,358.4,455,0)
;;=SELF-MANAGEMENT TRAINING^11^57
;;^UTILITY(U,$J,358.4,456,0)
;;=NUTRITION APPROACHES^6^57
;;^UTILITY(U,$J,358.4,457,0)
;;=COUNSELING^2^58
;;^UTILITY(U,$J,358.4,458,0)
;;=HISTORY OF ILLNESS^7^58
;;^UTILITY(U,$J,358.4,459,0)
;;=OTHER^19^58
;;^UTILITY(U,$J,358.4,460,0)
;;=SCREENING^14^58
;;^UTILITY(U,$J,358.4,461,0)
;;=CARDIOVASCULAR DISORDER^1^58
;;^UTILITY(U,$J,358.4,462,0)
;;=DIABETIC MANAGEMENT^3^58
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3AZ 3776 printed Dec 13, 2024@02:45:15 Page 2
IBDEI3AZ ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+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,405,0)
+2 ;;=CHEST PAIN^4^53
+3 ;;^UTILITY(U,$J,358.4,406,0)
+4 ;;=CHF/MYOPATHY/TRANSPLANT^5^53
+5 ;;^UTILITY(U,$J,358.4,407,0)
+6 ;;=CORONARY ATHEROSCLEROSIS^6^53
+7 ;;^UTILITY(U,$J,358.4,408,0)
+8 ;;=GENERAL SYMPTOMS^9^53
+9 ;;^UTILITY(U,$J,358.4,409,0)
+10 ;;=HISTORY^12^53
+11 ;;^UTILITY(U,$J,358.4,410,0)
+12 ;;=HYPERTENSION/HYPOTENSION^13^53
+13 ;;^UTILITY(U,$J,358.4,411,0)
+14 ;;=INFECTION/INFLM DISEASE^14^53
+15 ;;^UTILITY(U,$J,358.4,412,0)
+16 ;;=LIPID DISORDER^15^53
+17 ;;^UTILITY(U,$J,358.4,413,0)
+18 ;;=MYOCARDIAL INFARCTION^17^53
+19 ;;^UTILITY(U,$J,358.4,414,0)
+20 ;;=NONRHEUMATIC HEART VALVE DISORDERS^18^53
+21 ;;^UTILITY(U,$J,358.4,415,0)
+22 ;;=HEART DISEASE^10^53
+23 ;;^UTILITY(U,$J,358.4,416,0)
+24 ;;=HEART VALVE DISEASE^11^53
+25 ;;^UTILITY(U,$J,358.4,417,0)
+26 ;;=PERIPHERAL VASC DISEASE^20^53
+27 ;;^UTILITY(U,$J,358.4,418,0)
+28 ;;=RHEUMATIC HEART DISEASE^23^53
+29 ;;^UTILITY(U,$J,358.4,419,0)
+30 ;;=DEVICE/IMPLANT/GRAFT^7^53
+31 ;;^UTILITY(U,$J,358.4,420,0)
+32 ;;=SYNCOPE^26^53
+33 ;;^UTILITY(U,$J,358.4,421,0)
+34 ;;=SUICIDE IDEATIONS/ATTEMPTS^24^53
+35 ;;^UTILITY(U,$J,358.4,422,0)
+36 ;;=ECTOPY^8^53
+37 ;;^UTILITY(U,$J,358.4,423,0)
+38 ;;=MISCELLANEOUS^16^53
+39 ;;^UTILITY(U,$J,358.4,424,0)
+40 ;;=VENTRICULAR ARRHYTHMIAS^27^53
+41 ;;^UTILITY(U,$J,358.4,425,0)
+42 ;;=SUPRAVENTRICULAR ARRHYTHMIAS^25^53
+43 ;;^UTILITY(U,$J,358.4,426,0)
+44 ;;=OTHER CARDIAC CONDITIONS^22^53
+45 ;;^UTILITY(U,$J,358.4,427,0)
+46 ;;=PULMONARY DISEASE^21^53
+47 ;;^UTILITY(U,$J,358.4,428,0)
+48 ;;=PACEMAKER/AIC/DEFIBRILLATOR^19^53
+49 ;;^UTILITY(U,$J,358.4,429,0)
+50 ;;=ACSC CHF^1^53
+51 ;;^UTILITY(U,$J,358.4,430,0)
+52 ;;=ACSC HYPERTENSION^2^53
+53 ;;^UTILITY(U,$J,358.4,431,0)
+54 ;;=NEW PATIENT^2^54
+55 ;;^UTILITY(U,$J,358.4,432,0)
+56 ;;=ESTABLISHED PATIENT^1^54
+57 ;;^UTILITY(U,$J,358.4,433,0)
+58 ;;=CONSULTATIONS^3^54
+59 ;;^UTILITY(U,$J,358.4,434,0)
+60 ;;=MISCELLANEOUS TREATMENT^4^55
+61 ;;^UTILITY(U,$J,358.4,435,0)
+62 ;;=CHIROPRACTIC MANIPULATIVE SERVICES^2^55
+63 ;;^UTILITY(U,$J,358.4,436,0)
+64 ;;=OSTEOPATHIC MANIPULATIVE TREATMENT^5^55
+65 ;;^UTILITY(U,$J,358.4,437,0)
+66 ;;=ACUPUNCTURE^1^55
+67 ;;^UTILITY(U,$J,358.4,438,0)
+68 ;;=EDUCATION FOR SELF MGT^3^55
+69 ;;^UTILITY(U,$J,358.4,439,0)
+70 ;;=EXTREMITIES/JOINTS/MUSCLES^6^56
+71 ;;^UTILITY(U,$J,358.4,440,0)
+72 ;;=HEAD AREA/NERVES^1^56
+73 ;;^UTILITY(U,$J,358.4,441,0)
+74 ;;=CERVICAL^2^56
+75 ;;^UTILITY(U,$J,358.4,442,0)
+76 ;;=THORACIC^3^56
+77 ;;^UTILITY(U,$J,358.4,443,0)
+78 ;;=LUMBAR^4^56
+79 ;;^UTILITY(U,$J,358.4,444,0)
+80 ;;=SACRUM^5^56
+81 ;;^UTILITY(U,$J,358.4,445,0)
+82 ;;=UNSPECIFIED^7^56
+83 ;;^UTILITY(U,$J,358.4,446,0)
+84 ;;=COUNSELING/EDUCATION^5^57
+85 ;;^UTILITY(U,$J,358.4,447,0)
+86 ;;=PSYCHIATRIC THERAPY^10^57
+87 ;;^UTILITY(U,$J,358.4,448,0)
+88 ;;=BIOFEEDBACK THERAPY^2^57
+89 ;;^UTILITY(U,$J,358.4,449,0)
+90 ;;=BIOPSYCHOSOCIAL ASSESS/INTERVENTION^3^57
+91 ;;^UTILITY(U,$J,358.4,450,0)
+92 ;;=PHYSICAL THERAPY^9^57
+93 ;;^UTILITY(U,$J,358.4,451,0)
+94 ;;=OTHER THERAPEUTIC TECHNIQUES^8^57
+95 ;;^UTILITY(U,$J,358.4,452,0)
+96 ;;=ACUPUNTURE^1^57
+97 ;;^UTILITY(U,$J,358.4,453,0)
+98 ;;=OSTEOPATHIC MANIPULATION^7^57
+99 ;;^UTILITY(U,$J,358.4,454,0)
+100 ;;=CHIROPRACTIC MANIPULATION^4^57
+101 ;;^UTILITY(U,$J,358.4,455,0)
+102 ;;=SELF-MANAGEMENT TRAINING^11^57
+103 ;;^UTILITY(U,$J,358.4,456,0)
+104 ;;=NUTRITION APPROACHES^6^57
+105 ;;^UTILITY(U,$J,358.4,457,0)
+106 ;;=COUNSELING^2^58
+107 ;;^UTILITY(U,$J,358.4,458,0)
+108 ;;=HISTORY OF ILLNESS^7^58
+109 ;;^UTILITY(U,$J,358.4,459,0)
+110 ;;=OTHER^19^58
+111 ;;^UTILITY(U,$J,358.4,460,0)
+112 ;;=SCREENING^14^58
+113 ;;^UTILITY(U,$J,358.4,461,0)
+114 ;;=CARDIOVASCULAR DISORDER^1^58
+115 ;;^UTILITY(U,$J,358.4,462,0)
+116 ;;=DIABETIC MANAGEMENT^3^58
