IBDEI3I9 ; ; 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,879,0)
;;=IMMUNOASSAYS^8^90
;;^UTILITY(U,$J,358.4,880,0)
;;=TRANSEOPHAGEAL ECHOCARDIOGRAPHY^12^90
;;^UTILITY(U,$J,358.4,881,0)
;;=ESOPHAGUS^1^91
;;^UTILITY(U,$J,358.4,882,0)
;;=COLON^2^91
;;^UTILITY(U,$J,358.4,883,0)
;;=LIVER^3^91
;;^UTILITY(U,$J,358.4,884,0)
;;=PANCREAS^4^91
;;^UTILITY(U,$J,358.4,885,0)
;;=SMALL INTESTINE^5^91
;;^UTILITY(U,$J,358.4,886,0)
;;=STOMACH^6^91
;;^UTILITY(U,$J,358.4,887,0)
;;=POST SURGERY STATES^7^91
;;^UTILITY(U,$J,358.4,888,0)
;;=SYMPTOMS^8^91
;;^UTILITY(U,$J,358.4,889,0)
;;=SCREENING^9^91
;;^UTILITY(U,$J,358.4,890,0)
;;=NEW PATIENT HOME VISIT^2^92
;;^UTILITY(U,$J,358.4,891,0)
;;=ESTAB PATIENT HOME VISIT^1^92
;;^UTILITY(U,$J,358.4,892,0)
;;=TEAM CONFERENCE^8^93
;;^UTILITY(U,$J,358.4,893,0)
;;=PROCEDURE CODE^6^93
;;^UTILITY(U,$J,358.4,894,0)
;;=EDUCATION/TRAINING^1^93
;;^UTILITY(U,$J,358.4,895,0)
;;=IMMUNIZATIONS^2^93
;;^UTILITY(U,$J,358.4,896,0)
;;=OTH PREVENTIVE MEDICINE SVCS^3^93
;;^UTILITY(U,$J,358.4,897,0)
;;=SKIN TEST^7^93
;;^UTILITY(U,$J,358.4,898,0)
;;=PREVENTIVE MED-EST PT^4^93
;;^UTILITY(U,$J,358.4,899,0)
;;=PREVENTIVE MED-NEW PT^5^93
;;^UTILITY(U,$J,358.4,900,0)
;;=PC COMMON DIAGNOSES^1^94
;;^UTILITY(U,$J,358.4,901,0)
;;=ADMINISTRATIVE TOPICS^2^94
;;^UTILITY(U,$J,358.4,902,0)
;;=ANGINA^3^94
;;^UTILITY(U,$J,358.4,903,0)
;;=ATHEROSCLEROSIS^4^94
;;^UTILITY(U,$J,358.4,904,0)
;;=CARDIOVASCULAR^5^94
;;^UTILITY(U,$J,358.4,905,0)
;;=DERMATOLOGY^9^94
;;^UTILITY(U,$J,358.4,906,0)
;;=EAR DISORDERS^10^94
;;^UTILITY(U,$J,358.4,907,0)
;;=EENT^11^94
;;^UTILITY(U,$J,358.4,908,0)
;;=ENDOCRINE/METABOLIC^12^94
;;^UTILITY(U,$J,358.4,909,0)
;;=EYE DISORDERS^13^94
;;^UTILITY(U,$J,358.4,910,0)
;;=EYE INJURY^14^94
;;^UTILITY(U,$J,358.4,911,0)
;;=GASTROENTEROLOGY^15^94
;;^UTILITY(U,$J,358.4,912,0)
;;=GU/RENAL^16^94
;;^UTILITY(U,$J,358.4,913,0)
;;=HEADACHE^17^94
;;^UTILITY(U,$J,358.4,914,0)
;;=HEART FAILURE^18^94
;;^UTILITY(U,$J,358.4,915,0)
;;=HEART VALVE DISEASE^19^94
;;^UTILITY(U,$J,358.4,916,0)
;;=HEMATOLOGY/ONCOLOGY^20^94
;;^UTILITY(U,$J,358.4,917,0)
;;=HISTORY OF ILLNESS^21^94
;;^UTILITY(U,$J,358.4,918,0)
;;=INFECTIOUS DISEASE^22^94
;;^UTILITY(U,$J,358.4,919,0)
;;=LIVER DISEASE^23^94
;;^UTILITY(U,$J,358.4,920,0)
;;=MENTAL HEALTH^25^94
;;^UTILITY(U,$J,358.4,921,0)
;;=MOVEMENT DISORDERS^26^94
;;^UTILITY(U,$J,358.4,922,0)
;;=MUSCULOSKELETAL^27^94
;;^UTILITY(U,$J,358.4,923,0)
;;=NEUROLOGY^28^94
;;^UTILITY(U,$J,358.4,924,0)
;;=PAIN^29^94
;;^UTILITY(U,$J,358.4,925,0)
;;=PREVENTIVE HEALTH^30^94
;;^UTILITY(U,$J,358.4,926,0)
;;=PULMONARY^31^94
;;^UTILITY(U,$J,358.4,927,0)
;;=SEXUAL TRAUMA^32^94
;;^UTILITY(U,$J,358.4,928,0)
;;=SIGNS,SYMPTOMS,CONDITIONS^33^94
;;^UTILITY(U,$J,358.4,929,0)
;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^94
;;^UTILITY(U,$J,358.4,930,0)
;;=SUBSTANCE DISORDERS^35^94
;;^UTILITY(U,$J,358.4,931,0)
;;=VARICOSE VEINS^36^94
;;^UTILITY(U,$J,358.4,932,0)
;;=WOMEN'S HEALTH^37^94
;;^UTILITY(U,$J,358.4,933,0)
;;=WOUNDS-INITIAL ENCOUNTER^38^94
;;^UTILITY(U,$J,358.4,934,0)
;;=COMA^7^94
;;^UTILITY(U,$J,358.4,935,0)
;;=CAUSES OF INJURY^6^94
;;^UTILITY(U,$J,358.4,936,0)
;;=DEMENTIA^8^94
;;^UTILITY(U,$J,358.4,937,0)
;;=LONG TERM CURRENT DRUG THERAPY^24^94
;;^UTILITY(U,$J,358.4,938,0)
;;=NURSING HOME VISITS^1^95
;;^UTILITY(U,$J,358.4,939,0)
;;=PULSE OXIMETRY^12^96
;;^UTILITY(U,$J,358.4,940,0)
;;=BLOOD PRESSURE READING^2^96
;;^UTILITY(U,$J,358.4,941,0)
;;=SELF-CARE MANAGEMENT^13^96
;;^UTILITY(U,$J,358.4,942,0)
;;=INJECTIONS^10^96
;;^UTILITY(U,$J,358.4,943,0)
;;=INJECTION ADMINISTRATION^9^96
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3I9 4000 printed Dec 13, 2024@02:49:18 Page 2
IBDEI3I9 ; ; 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,879,0)
+2 ;;=IMMUNOASSAYS^8^90
+3 ;;^UTILITY(U,$J,358.4,880,0)
+4 ;;=TRANSEOPHAGEAL ECHOCARDIOGRAPHY^12^90
+5 ;;^UTILITY(U,$J,358.4,881,0)
+6 ;;=ESOPHAGUS^1^91
+7 ;;^UTILITY(U,$J,358.4,882,0)
+8 ;;=COLON^2^91
+9 ;;^UTILITY(U,$J,358.4,883,0)
+10 ;;=LIVER^3^91
+11 ;;^UTILITY(U,$J,358.4,884,0)
+12 ;;=PANCREAS^4^91
+13 ;;^UTILITY(U,$J,358.4,885,0)
+14 ;;=SMALL INTESTINE^5^91
+15 ;;^UTILITY(U,$J,358.4,886,0)
+16 ;;=STOMACH^6^91
+17 ;;^UTILITY(U,$J,358.4,887,0)
+18 ;;=POST SURGERY STATES^7^91
+19 ;;^UTILITY(U,$J,358.4,888,0)
+20 ;;=SYMPTOMS^8^91
+21 ;;^UTILITY(U,$J,358.4,889,0)
+22 ;;=SCREENING^9^91
+23 ;;^UTILITY(U,$J,358.4,890,0)
+24 ;;=NEW PATIENT HOME VISIT^2^92
+25 ;;^UTILITY(U,$J,358.4,891,0)
+26 ;;=ESTAB PATIENT HOME VISIT^1^92
+27 ;;^UTILITY(U,$J,358.4,892,0)
+28 ;;=TEAM CONFERENCE^8^93
+29 ;;^UTILITY(U,$J,358.4,893,0)
+30 ;;=PROCEDURE CODE^6^93
+31 ;;^UTILITY(U,$J,358.4,894,0)
+32 ;;=EDUCATION/TRAINING^1^93
+33 ;;^UTILITY(U,$J,358.4,895,0)
+34 ;;=IMMUNIZATIONS^2^93
+35 ;;^UTILITY(U,$J,358.4,896,0)
+36 ;;=OTH PREVENTIVE MEDICINE SVCS^3^93
+37 ;;^UTILITY(U,$J,358.4,897,0)
+38 ;;=SKIN TEST^7^93
+39 ;;^UTILITY(U,$J,358.4,898,0)
+40 ;;=PREVENTIVE MED-EST PT^4^93
+41 ;;^UTILITY(U,$J,358.4,899,0)
+42 ;;=PREVENTIVE MED-NEW PT^5^93
+43 ;;^UTILITY(U,$J,358.4,900,0)
+44 ;;=PC COMMON DIAGNOSES^1^94
+45 ;;^UTILITY(U,$J,358.4,901,0)
+46 ;;=ADMINISTRATIVE TOPICS^2^94
+47 ;;^UTILITY(U,$J,358.4,902,0)
+48 ;;=ANGINA^3^94
+49 ;;^UTILITY(U,$J,358.4,903,0)
+50 ;;=ATHEROSCLEROSIS^4^94
+51 ;;^UTILITY(U,$J,358.4,904,0)
+52 ;;=CARDIOVASCULAR^5^94
+53 ;;^UTILITY(U,$J,358.4,905,0)
+54 ;;=DERMATOLOGY^9^94
+55 ;;^UTILITY(U,$J,358.4,906,0)
+56 ;;=EAR DISORDERS^10^94
+57 ;;^UTILITY(U,$J,358.4,907,0)
+58 ;;=EENT^11^94
+59 ;;^UTILITY(U,$J,358.4,908,0)
+60 ;;=ENDOCRINE/METABOLIC^12^94
+61 ;;^UTILITY(U,$J,358.4,909,0)
+62 ;;=EYE DISORDERS^13^94
+63 ;;^UTILITY(U,$J,358.4,910,0)
+64 ;;=EYE INJURY^14^94
+65 ;;^UTILITY(U,$J,358.4,911,0)
+66 ;;=GASTROENTEROLOGY^15^94
+67 ;;^UTILITY(U,$J,358.4,912,0)
+68 ;;=GU/RENAL^16^94
+69 ;;^UTILITY(U,$J,358.4,913,0)
+70 ;;=HEADACHE^17^94
+71 ;;^UTILITY(U,$J,358.4,914,0)
+72 ;;=HEART FAILURE^18^94
+73 ;;^UTILITY(U,$J,358.4,915,0)
+74 ;;=HEART VALVE DISEASE^19^94
+75 ;;^UTILITY(U,$J,358.4,916,0)
+76 ;;=HEMATOLOGY/ONCOLOGY^20^94
+77 ;;^UTILITY(U,$J,358.4,917,0)
+78 ;;=HISTORY OF ILLNESS^21^94
+79 ;;^UTILITY(U,$J,358.4,918,0)
+80 ;;=INFECTIOUS DISEASE^22^94
+81 ;;^UTILITY(U,$J,358.4,919,0)
+82 ;;=LIVER DISEASE^23^94
+83 ;;^UTILITY(U,$J,358.4,920,0)
+84 ;;=MENTAL HEALTH^25^94
+85 ;;^UTILITY(U,$J,358.4,921,0)
+86 ;;=MOVEMENT DISORDERS^26^94
+87 ;;^UTILITY(U,$J,358.4,922,0)
+88 ;;=MUSCULOSKELETAL^27^94
+89 ;;^UTILITY(U,$J,358.4,923,0)
+90 ;;=NEUROLOGY^28^94
+91 ;;^UTILITY(U,$J,358.4,924,0)
+92 ;;=PAIN^29^94
+93 ;;^UTILITY(U,$J,358.4,925,0)
+94 ;;=PREVENTIVE HEALTH^30^94
+95 ;;^UTILITY(U,$J,358.4,926,0)
+96 ;;=PULMONARY^31^94
+97 ;;^UTILITY(U,$J,358.4,927,0)
+98 ;;=SEXUAL TRAUMA^32^94
+99 ;;^UTILITY(U,$J,358.4,928,0)
+100 ;;=SIGNS,SYMPTOMS,CONDITIONS^33^94
+101 ;;^UTILITY(U,$J,358.4,929,0)
+102 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^94
+103 ;;^UTILITY(U,$J,358.4,930,0)
+104 ;;=SUBSTANCE DISORDERS^35^94
+105 ;;^UTILITY(U,$J,358.4,931,0)
+106 ;;=VARICOSE VEINS^36^94
+107 ;;^UTILITY(U,$J,358.4,932,0)
+108 ;;=WOMEN'S HEALTH^37^94
+109 ;;^UTILITY(U,$J,358.4,933,0)
+110 ;;=WOUNDS-INITIAL ENCOUNTER^38^94
+111 ;;^UTILITY(U,$J,358.4,934,0)
+112 ;;=COMA^7^94
+113 ;;^UTILITY(U,$J,358.4,935,0)
+114 ;;=CAUSES OF INJURY^6^94
+115 ;;^UTILITY(U,$J,358.4,936,0)
+116 ;;=DEMENTIA^8^94
+117 ;;^UTILITY(U,$J,358.4,937,0)
+118 ;;=LONG TERM CURRENT DRUG THERAPY^24^94
+119 ;;^UTILITY(U,$J,358.4,938,0)
+120 ;;=NURSING HOME VISITS^1^95
+121 ;;^UTILITY(U,$J,358.4,939,0)
+122 ;;=PULSE OXIMETRY^12^96
+123 ;;^UTILITY(U,$J,358.4,940,0)
+124 ;;=BLOOD PRESSURE READING^2^96
+125 ;;^UTILITY(U,$J,358.4,941,0)
+126 ;;=SELF-CARE MANAGEMENT^13^96
+127 ;;^UTILITY(U,$J,358.4,942,0)
+128 ;;=INJECTIONS^10^96
+129 ;;^UTILITY(U,$J,358.4,943,0)
+130 ;;=INJECTION ADMINISTRATION^9^96