IBDEI3IV ; ; 19-NOV-2015
;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
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
Q Q
;;^UTILITY(U,$J,358.4,2183,0)
;;=COUNSELING^3^197
;;^UTILITY(U,$J,358.4,2184,0)
;;=PREVENTIVE HEALTH ENCOUNTER^1^197
;;^UTILITY(U,$J,358.4,2185,0)
;;=HISTORY OF ILLNESS^4^197
;;^UTILITY(U,$J,358.4,2186,0)
;;=LONG TERM DRUG USE^5^197
;;^UTILITY(U,$J,358.4,2187,0)
;;=OTHER^10^197
;;^UTILITY(U,$J,358.4,2188,0)
;;=SCREENING^6^197
;;^UTILITY(U,$J,358.4,2189,0)
;;=TRANSPLANT^7^197
;;^UTILITY(U,$J,358.4,2190,0)
;;=VACCINATIONS^8^197
;;^UTILITY(U,$J,358.4,2191,0)
;;=WOMEN'S HEALTH^9^197
;;^UTILITY(U,$J,358.4,2192,0)
;;=NEW PATIENT^2^198
;;^UTILITY(U,$J,358.4,2193,0)
;;=ESTABLISHED PATIENT^1^198
;;^UTILITY(U,$J,358.4,2194,0)
;;=CONSULTATIONS^3^198
;;^UTILITY(U,$J,358.4,2195,0)
;;=IMMUNIZATION^6^199
;;^UTILITY(U,$J,358.4,2196,0)
;;=INJECTION^7^199
;;^UTILITY(U,$J,358.4,2197,0)
;;=SKIN TEST^16^199
;;^UTILITY(U,$J,358.4,2198,0)
;;=NURSING PROCEDURES^9^199
;;^UTILITY(U,$J,358.4,2199,0)
;;=MINOR PROCEDURES^8^199
;;^UTILITY(U,$J,358.4,2200,0)
;;=SPLINTS^17^199
;;^UTILITY(U,$J,358.4,2201,0)
;;=EDUCATION/TRAINING^3^199
;;^UTILITY(U,$J,358.4,2202,0)
;;=ALLERGY SHOTS^1^199
;;^UTILITY(U,$J,358.4,2203,0)
;;=EKG^4^199
;;^UTILITY(U,$J,358.4,2204,0)
;;=BEHAVIORAL CHANGE INTERVENTION^2^199
;;^UTILITY(U,$J,358.4,2205,0)
;;=OTH PREVENTIVE MEDICINE SVCS^10^199
;;^UTILITY(U,$J,358.4,2206,0)
;;=GYN PROCEDURES^5^199
;;^UTILITY(U,$J,358.4,2207,0)
;;=PREVENTIVE MED-EST PT^12^199
;;^UTILITY(U,$J,358.4,2208,0)
;;=PREVENTIVE MED-NEW PT^13^199
;;^UTILITY(U,$J,358.4,2209,0)
;;=RISK FACTOR REDUCTION^15^199
;;^UTILITY(U,$J,358.4,2210,0)
;;=PREVENTIVE GROUP COUNSELING^11^199
;;^UTILITY(U,$J,358.4,2211,0)
;;=PROLONGED SERVICE^14^199
;;^UTILITY(U,$J,358.4,2212,0)
;;=PC COMMON DIAGNOSES^1^200
;;^UTILITY(U,$J,358.4,2213,0)
;;=ADMINISTRATIVE TOPICS^2^200
;;^UTILITY(U,$J,358.4,2214,0)
;;=ANGINA^3^200
;;^UTILITY(U,$J,358.4,2215,0)
;;=ATHEROSCLEROSIS^4^200
;;^UTILITY(U,$J,358.4,2216,0)
;;=CARDIOVASCULAR^5^200
;;^UTILITY(U,$J,358.4,2217,0)
;;=DERMATOLOGY^9^200
;;^UTILITY(U,$J,358.4,2218,0)
;;=EAR DISORDERS^10^200
;;^UTILITY(U,$J,358.4,2219,0)
;;=EENT^11^200
;;^UTILITY(U,$J,358.4,2220,0)
;;=ENDOCRINE/METABOLIC^12^200
;;^UTILITY(U,$J,358.4,2221,0)
;;=EYE DISORDERS^13^200
;;^UTILITY(U,$J,358.4,2222,0)
;;=EYE INJURY^14^200
;;^UTILITY(U,$J,358.4,2223,0)
;;=GASTROENTEROLOGY^15^200
;;^UTILITY(U,$J,358.4,2224,0)
;;=GU/RENAL^16^200
;;^UTILITY(U,$J,358.4,2225,0)
;;=HEADACHE^17^200
;;^UTILITY(U,$J,358.4,2226,0)
;;=HEART FAILURE^18^200
;;^UTILITY(U,$J,358.4,2227,0)
;;=HEART VALVE DISEASE^19^200
;;^UTILITY(U,$J,358.4,2228,0)
;;=HEMATOLOGY/ONCOLOGY^20^200
;;^UTILITY(U,$J,358.4,2229,0)
;;=HISTORY OF ILLNESS^21^200
;;^UTILITY(U,$J,358.4,2230,0)
;;=INFECTIOUS DISEASE^22^200
;;^UTILITY(U,$J,358.4,2231,0)
;;=LIVER DISEASE^23^200
;;^UTILITY(U,$J,358.4,2232,0)
;;=MENTAL HEALTH^25^200
;;^UTILITY(U,$J,358.4,2233,0)
;;=MOVEMENT DISORDERS^26^200
;;^UTILITY(U,$J,358.4,2234,0)
;;=MUSCULOSKELETAL^27^200
;;^UTILITY(U,$J,358.4,2235,0)
;;=NEUROLOGY^28^200
;;^UTILITY(U,$J,358.4,2236,0)
;;=PAIN^29^200
;;^UTILITY(U,$J,358.4,2237,0)
;;=PREVENTIVE HEALTH^30^200
;;^UTILITY(U,$J,358.4,2238,0)
;;=PULMONARY^31^200
;;^UTILITY(U,$J,358.4,2239,0)
;;=SEXUAL TRAUMA^32^200
;;^UTILITY(U,$J,358.4,2240,0)
;;=SIGNS,SYMPTOMS,CONDITIONS^33^200
;;^UTILITY(U,$J,358.4,2241,0)
;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^200
;;^UTILITY(U,$J,358.4,2242,0)
;;=SUBSTANCE DISORDERS^35^200
;;^UTILITY(U,$J,358.4,2243,0)
;;=VARICOSE VEINS^36^200
;;^UTILITY(U,$J,358.4,2244,0)
;;=WOMEN'S HEALTH^37^200
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IV 3947 printed Sep 23, 2025@20:25:41 Page 2
IBDEI3IV ; ; 19-NOV-2015
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
+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,99)
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,2183,0)
+2 ;;=COUNSELING^3^197
+3 ;;^UTILITY(U,$J,358.4,2184,0)
+4 ;;=PREVENTIVE HEALTH ENCOUNTER^1^197
+5 ;;^UTILITY(U,$J,358.4,2185,0)
+6 ;;=HISTORY OF ILLNESS^4^197
+7 ;;^UTILITY(U,$J,358.4,2186,0)
+8 ;;=LONG TERM DRUG USE^5^197
+9 ;;^UTILITY(U,$J,358.4,2187,0)
+10 ;;=OTHER^10^197
+11 ;;^UTILITY(U,$J,358.4,2188,0)
+12 ;;=SCREENING^6^197
+13 ;;^UTILITY(U,$J,358.4,2189,0)
+14 ;;=TRANSPLANT^7^197
+15 ;;^UTILITY(U,$J,358.4,2190,0)
+16 ;;=VACCINATIONS^8^197
+17 ;;^UTILITY(U,$J,358.4,2191,0)
+18 ;;=WOMEN'S HEALTH^9^197
+19 ;;^UTILITY(U,$J,358.4,2192,0)
+20 ;;=NEW PATIENT^2^198
+21 ;;^UTILITY(U,$J,358.4,2193,0)
+22 ;;=ESTABLISHED PATIENT^1^198
+23 ;;^UTILITY(U,$J,358.4,2194,0)
+24 ;;=CONSULTATIONS^3^198
+25 ;;^UTILITY(U,$J,358.4,2195,0)
+26 ;;=IMMUNIZATION^6^199
+27 ;;^UTILITY(U,$J,358.4,2196,0)
+28 ;;=INJECTION^7^199
+29 ;;^UTILITY(U,$J,358.4,2197,0)
+30 ;;=SKIN TEST^16^199
+31 ;;^UTILITY(U,$J,358.4,2198,0)
+32 ;;=NURSING PROCEDURES^9^199
+33 ;;^UTILITY(U,$J,358.4,2199,0)
+34 ;;=MINOR PROCEDURES^8^199
+35 ;;^UTILITY(U,$J,358.4,2200,0)
+36 ;;=SPLINTS^17^199
+37 ;;^UTILITY(U,$J,358.4,2201,0)
+38 ;;=EDUCATION/TRAINING^3^199
+39 ;;^UTILITY(U,$J,358.4,2202,0)
+40 ;;=ALLERGY SHOTS^1^199
+41 ;;^UTILITY(U,$J,358.4,2203,0)
+42 ;;=EKG^4^199
+43 ;;^UTILITY(U,$J,358.4,2204,0)
+44 ;;=BEHAVIORAL CHANGE INTERVENTION^2^199
+45 ;;^UTILITY(U,$J,358.4,2205,0)
+46 ;;=OTH PREVENTIVE MEDICINE SVCS^10^199
+47 ;;^UTILITY(U,$J,358.4,2206,0)
+48 ;;=GYN PROCEDURES^5^199
+49 ;;^UTILITY(U,$J,358.4,2207,0)
+50 ;;=PREVENTIVE MED-EST PT^12^199
+51 ;;^UTILITY(U,$J,358.4,2208,0)
+52 ;;=PREVENTIVE MED-NEW PT^13^199
+53 ;;^UTILITY(U,$J,358.4,2209,0)
+54 ;;=RISK FACTOR REDUCTION^15^199
+55 ;;^UTILITY(U,$J,358.4,2210,0)
+56 ;;=PREVENTIVE GROUP COUNSELING^11^199
+57 ;;^UTILITY(U,$J,358.4,2211,0)
+58 ;;=PROLONGED SERVICE^14^199
+59 ;;^UTILITY(U,$J,358.4,2212,0)
+60 ;;=PC COMMON DIAGNOSES^1^200
+61 ;;^UTILITY(U,$J,358.4,2213,0)
+62 ;;=ADMINISTRATIVE TOPICS^2^200
+63 ;;^UTILITY(U,$J,358.4,2214,0)
+64 ;;=ANGINA^3^200
+65 ;;^UTILITY(U,$J,358.4,2215,0)
+66 ;;=ATHEROSCLEROSIS^4^200
+67 ;;^UTILITY(U,$J,358.4,2216,0)
+68 ;;=CARDIOVASCULAR^5^200
+69 ;;^UTILITY(U,$J,358.4,2217,0)
+70 ;;=DERMATOLOGY^9^200
+71 ;;^UTILITY(U,$J,358.4,2218,0)
+72 ;;=EAR DISORDERS^10^200
+73 ;;^UTILITY(U,$J,358.4,2219,0)
+74 ;;=EENT^11^200
+75 ;;^UTILITY(U,$J,358.4,2220,0)
+76 ;;=ENDOCRINE/METABOLIC^12^200
+77 ;;^UTILITY(U,$J,358.4,2221,0)
+78 ;;=EYE DISORDERS^13^200
+79 ;;^UTILITY(U,$J,358.4,2222,0)
+80 ;;=EYE INJURY^14^200
+81 ;;^UTILITY(U,$J,358.4,2223,0)
+82 ;;=GASTROENTEROLOGY^15^200
+83 ;;^UTILITY(U,$J,358.4,2224,0)
+84 ;;=GU/RENAL^16^200
+85 ;;^UTILITY(U,$J,358.4,2225,0)
+86 ;;=HEADACHE^17^200
+87 ;;^UTILITY(U,$J,358.4,2226,0)
+88 ;;=HEART FAILURE^18^200
+89 ;;^UTILITY(U,$J,358.4,2227,0)
+90 ;;=HEART VALVE DISEASE^19^200
+91 ;;^UTILITY(U,$J,358.4,2228,0)
+92 ;;=HEMATOLOGY/ONCOLOGY^20^200
+93 ;;^UTILITY(U,$J,358.4,2229,0)
+94 ;;=HISTORY OF ILLNESS^21^200
+95 ;;^UTILITY(U,$J,358.4,2230,0)
+96 ;;=INFECTIOUS DISEASE^22^200
+97 ;;^UTILITY(U,$J,358.4,2231,0)
+98 ;;=LIVER DISEASE^23^200
+99 ;;^UTILITY(U,$J,358.4,2232,0)
+100 ;;=MENTAL HEALTH^25^200
+101 ;;^UTILITY(U,$J,358.4,2233,0)
+102 ;;=MOVEMENT DISORDERS^26^200
+103 ;;^UTILITY(U,$J,358.4,2234,0)
+104 ;;=MUSCULOSKELETAL^27^200
+105 ;;^UTILITY(U,$J,358.4,2235,0)
+106 ;;=NEUROLOGY^28^200
+107 ;;^UTILITY(U,$J,358.4,2236,0)
+108 ;;=PAIN^29^200
+109 ;;^UTILITY(U,$J,358.4,2237,0)
+110 ;;=PREVENTIVE HEALTH^30^200
+111 ;;^UTILITY(U,$J,358.4,2238,0)
+112 ;;=PULMONARY^31^200
+113 ;;^UTILITY(U,$J,358.4,2239,0)
+114 ;;=SEXUAL TRAUMA^32^200
+115 ;;^UTILITY(U,$J,358.4,2240,0)
+116 ;;=SIGNS,SYMPTOMS,CONDITIONS^33^200
+117 ;;^UTILITY(U,$J,358.4,2241,0)
+118 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^200
+119 ;;^UTILITY(U,$J,358.4,2242,0)
+120 ;;=SUBSTANCE DISORDERS^35^200
+121 ;;^UTILITY(U,$J,358.4,2243,0)
+122 ;;=VARICOSE VEINS^36^200
+123 ;;^UTILITY(U,$J,358.4,2244,0)
+124 ;;=WOMEN'S HEALTH^37^200
