IBDEI3I5 ; ; 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,623,0)
;;=NEOPLASMS^7^65
;;^UTILITY(U,$J,358.4,624,0)
;;=NEURODEGENERATIVE DISEASE^8^65
;;^UTILITY(U,$J,358.4,625,0)
;;=SLEEP DISORDERS^9^65
;;^UTILITY(U,$J,358.4,626,0)
;;=SPECIAL SCREENING^10^65
;;^UTILITY(U,$J,358.4,627,0)
;;=OTHER^11^65
;;^UTILITY(U,$J,358.4,628,0)
;;=IMMUNIZATION^10^66
;;^UTILITY(U,$J,358.4,629,0)
;;=INJECTION/INFUSION^12^66
;;^UTILITY(U,$J,358.4,630,0)
;;=SKIN TEST^26^66
;;^UTILITY(U,$J,358.4,631,0)
;;=NURSING PROCEDURES^18^66
;;^UTILITY(U,$J,358.4,632,0)
;;=SPLINTS^27^66
;;^UTILITY(U,$J,358.4,633,0)
;;=REPAIR-SIMPLE SCALP,NK,TRUNK,GENITALIA^24^66
;;^UTILITY(U,$J,358.4,634,0)
;;=REPAIR-SIMPLE FACE,MUCOUS^23^66
;;^UTILITY(U,$J,358.4,635,0)
;;=MODERATE SEDATION^15^66
;;^UTILITY(U,$J,358.4,636,0)
;;=INTEGUMENTARY SYSTEM^13^66
;;^UTILITY(U,$J,358.4,637,0)
;;=MUSCULOSKELETAL^16^66
;;^UTILITY(U,$J,358.4,638,0)
;;=CASTS/STRAPS^4^66
;;^UTILITY(U,$J,358.4,639,0)
;;=RESPIRATORY SYSTEM^25^66
;;^UTILITY(U,$J,358.4,640,0)
;;=CARDIOVASCULAR SYSTEM^3^66
;;^UTILITY(U,$J,358.4,641,0)
;;=DIGESTIVE SYSTEM^7^66
;;^UTILITY(U,$J,358.4,642,0)
;;=URINARY SYSTEM^28^66
;;^UTILITY(U,$J,358.4,643,0)
;;=MALE GENITAL SYSTEM^14^66
;;^UTILITY(U,$J,358.4,644,0)
;;=FEMALE GENITAL SYSTEM^9^66
;;^UTILITY(U,$J,358.4,645,0)
;;=NERVOUS SYSTEM^17^66
;;^UTILITY(U,$J,358.4,646,0)
;;=EYE & OCULAR ADNEXA^8^66
;;^UTILITY(U,$J,358.4,647,0)
;;=AUDITORY SYSTEM^1^66
;;^UTILITY(U,$J,358.4,648,0)
;;=REPAIR-INTER SCALP/NECK/TRNK/EXTREM^22^66
;;^UTILITY(U,$J,358.4,649,0)
;;=REPAIR-INTER FACE/EARS/EYELID/NOSE/LIP^20^66
;;^UTILITY(U,$J,358.4,650,0)
;;=REPAIR-INTER HANDS/FEET/EXT GENITALIA^21^66
;;^UTILITY(U,$J,358.4,651,0)
;;=BURNS^2^66
;;^UTILITY(U,$J,358.4,652,0)
;;=DESTRUCTION BENIGN LESIONS^6^66
;;^UTILITY(U,$J,358.4,653,0)
;;=PSYCHIATRY^19^66
;;^UTILITY(U,$J,358.4,654,0)
;;=CRITICAL CARE/EMERGENT^5^66
;;^UTILITY(U,$J,358.4,655,0)
;;=INJECTION ADMIN^11^66
;;^UTILITY(U,$J,358.4,656,0)
;;=EMERGENCY DEPT VISIT^2^67
;;^UTILITY(U,$J,358.4,657,0)
;;=TRIAGE ONLY (NO MD SEEN)^1^67
;;^UTILITY(U,$J,358.4,658,0)
;;=CRITICAL CARE^3^67
;;^UTILITY(U,$J,358.4,659,0)
;;=PC COMMON DIAGNOSES^1^68
;;^UTILITY(U,$J,358.4,660,0)
;;=ADMINISTRATIVE TOPICS^2^68
;;^UTILITY(U,$J,358.4,661,0)
;;=ANGINA^3^68
;;^UTILITY(U,$J,358.4,662,0)
;;=ATHEROSCLEROSIS^4^68
;;^UTILITY(U,$J,358.4,663,0)
;;=CARDIOVASCULAR^5^68
;;^UTILITY(U,$J,358.4,664,0)
;;=DERMATOLOGY^9^68
;;^UTILITY(U,$J,358.4,665,0)
;;=EAR DISORDERS^10^68
;;^UTILITY(U,$J,358.4,666,0)
;;=EENT^11^68
;;^UTILITY(U,$J,358.4,667,0)
;;=ENDOCRINE/METABOLIC^12^68
;;^UTILITY(U,$J,358.4,668,0)
;;=EYE DISORDERS^13^68
;;^UTILITY(U,$J,358.4,669,0)
;;=EYE INJURY^14^68
;;^UTILITY(U,$J,358.4,670,0)
;;=GASTROENTEROLOGY^15^68
;;^UTILITY(U,$J,358.4,671,0)
;;=GU/RENAL^16^68
;;^UTILITY(U,$J,358.4,672,0)
;;=HEADACHE^17^68
;;^UTILITY(U,$J,358.4,673,0)
;;=HEART FAILURE^18^68
;;^UTILITY(U,$J,358.4,674,0)
;;=HEART VALVE DISEASE^19^68
;;^UTILITY(U,$J,358.4,675,0)
;;=HEMATOLOGY/ONCOLOGY^20^68
;;^UTILITY(U,$J,358.4,676,0)
;;=HISTORY OF ILLNESS^21^68
;;^UTILITY(U,$J,358.4,677,0)
;;=INFECTIOUS DISEASE^22^68
;;^UTILITY(U,$J,358.4,678,0)
;;=LIVER DISEASE^23^68
;;^UTILITY(U,$J,358.4,679,0)
;;=MENTAL HEALTH^25^68
;;^UTILITY(U,$J,358.4,680,0)
;;=MOVEMENT DISORDERS^26^68
;;^UTILITY(U,$J,358.4,681,0)
;;=MUSCULOSKELETAL^27^68
;;^UTILITY(U,$J,358.4,682,0)
;;=NEUROLOGY^28^68
;;^UTILITY(U,$J,358.4,683,0)
;;=PAIN^29^68
;;^UTILITY(U,$J,358.4,684,0)
;;=PREVENTIVE HEALTH^30^68
;;^UTILITY(U,$J,358.4,685,0)
;;=PULMONARY^31^68
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3I5 3969 printed Dec 13, 2024@02:49:14 Page 2
IBDEI3I5 ; ; 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,623,0)
+2 ;;=NEOPLASMS^7^65
+3 ;;^UTILITY(U,$J,358.4,624,0)
+4 ;;=NEURODEGENERATIVE DISEASE^8^65
+5 ;;^UTILITY(U,$J,358.4,625,0)
+6 ;;=SLEEP DISORDERS^9^65
+7 ;;^UTILITY(U,$J,358.4,626,0)
+8 ;;=SPECIAL SCREENING^10^65
+9 ;;^UTILITY(U,$J,358.4,627,0)
+10 ;;=OTHER^11^65
+11 ;;^UTILITY(U,$J,358.4,628,0)
+12 ;;=IMMUNIZATION^10^66
+13 ;;^UTILITY(U,$J,358.4,629,0)
+14 ;;=INJECTION/INFUSION^12^66
+15 ;;^UTILITY(U,$J,358.4,630,0)
+16 ;;=SKIN TEST^26^66
+17 ;;^UTILITY(U,$J,358.4,631,0)
+18 ;;=NURSING PROCEDURES^18^66
+19 ;;^UTILITY(U,$J,358.4,632,0)
+20 ;;=SPLINTS^27^66
+21 ;;^UTILITY(U,$J,358.4,633,0)
+22 ;;=REPAIR-SIMPLE SCALP,NK,TRUNK,GENITALIA^24^66
+23 ;;^UTILITY(U,$J,358.4,634,0)
+24 ;;=REPAIR-SIMPLE FACE,MUCOUS^23^66
+25 ;;^UTILITY(U,$J,358.4,635,0)
+26 ;;=MODERATE SEDATION^15^66
+27 ;;^UTILITY(U,$J,358.4,636,0)
+28 ;;=INTEGUMENTARY SYSTEM^13^66
+29 ;;^UTILITY(U,$J,358.4,637,0)
+30 ;;=MUSCULOSKELETAL^16^66
+31 ;;^UTILITY(U,$J,358.4,638,0)
+32 ;;=CASTS/STRAPS^4^66
+33 ;;^UTILITY(U,$J,358.4,639,0)
+34 ;;=RESPIRATORY SYSTEM^25^66
+35 ;;^UTILITY(U,$J,358.4,640,0)
+36 ;;=CARDIOVASCULAR SYSTEM^3^66
+37 ;;^UTILITY(U,$J,358.4,641,0)
+38 ;;=DIGESTIVE SYSTEM^7^66
+39 ;;^UTILITY(U,$J,358.4,642,0)
+40 ;;=URINARY SYSTEM^28^66
+41 ;;^UTILITY(U,$J,358.4,643,0)
+42 ;;=MALE GENITAL SYSTEM^14^66
+43 ;;^UTILITY(U,$J,358.4,644,0)
+44 ;;=FEMALE GENITAL SYSTEM^9^66
+45 ;;^UTILITY(U,$J,358.4,645,0)
+46 ;;=NERVOUS SYSTEM^17^66
+47 ;;^UTILITY(U,$J,358.4,646,0)
+48 ;;=EYE & OCULAR ADNEXA^8^66
+49 ;;^UTILITY(U,$J,358.4,647,0)
+50 ;;=AUDITORY SYSTEM^1^66
+51 ;;^UTILITY(U,$J,358.4,648,0)
+52 ;;=REPAIR-INTER SCALP/NECK/TRNK/EXTREM^22^66
+53 ;;^UTILITY(U,$J,358.4,649,0)
+54 ;;=REPAIR-INTER FACE/EARS/EYELID/NOSE/LIP^20^66
+55 ;;^UTILITY(U,$J,358.4,650,0)
+56 ;;=REPAIR-INTER HANDS/FEET/EXT GENITALIA^21^66
+57 ;;^UTILITY(U,$J,358.4,651,0)
+58 ;;=BURNS^2^66
+59 ;;^UTILITY(U,$J,358.4,652,0)
+60 ;;=DESTRUCTION BENIGN LESIONS^6^66
+61 ;;^UTILITY(U,$J,358.4,653,0)
+62 ;;=PSYCHIATRY^19^66
+63 ;;^UTILITY(U,$J,358.4,654,0)
+64 ;;=CRITICAL CARE/EMERGENT^5^66
+65 ;;^UTILITY(U,$J,358.4,655,0)
+66 ;;=INJECTION ADMIN^11^66
+67 ;;^UTILITY(U,$J,358.4,656,0)
+68 ;;=EMERGENCY DEPT VISIT^2^67
+69 ;;^UTILITY(U,$J,358.4,657,0)
+70 ;;=TRIAGE ONLY (NO MD SEEN)^1^67
+71 ;;^UTILITY(U,$J,358.4,658,0)
+72 ;;=CRITICAL CARE^3^67
+73 ;;^UTILITY(U,$J,358.4,659,0)
+74 ;;=PC COMMON DIAGNOSES^1^68
+75 ;;^UTILITY(U,$J,358.4,660,0)
+76 ;;=ADMINISTRATIVE TOPICS^2^68
+77 ;;^UTILITY(U,$J,358.4,661,0)
+78 ;;=ANGINA^3^68
+79 ;;^UTILITY(U,$J,358.4,662,0)
+80 ;;=ATHEROSCLEROSIS^4^68
+81 ;;^UTILITY(U,$J,358.4,663,0)
+82 ;;=CARDIOVASCULAR^5^68
+83 ;;^UTILITY(U,$J,358.4,664,0)
+84 ;;=DERMATOLOGY^9^68
+85 ;;^UTILITY(U,$J,358.4,665,0)
+86 ;;=EAR DISORDERS^10^68
+87 ;;^UTILITY(U,$J,358.4,666,0)
+88 ;;=EENT^11^68
+89 ;;^UTILITY(U,$J,358.4,667,0)
+90 ;;=ENDOCRINE/METABOLIC^12^68
+91 ;;^UTILITY(U,$J,358.4,668,0)
+92 ;;=EYE DISORDERS^13^68
+93 ;;^UTILITY(U,$J,358.4,669,0)
+94 ;;=EYE INJURY^14^68
+95 ;;^UTILITY(U,$J,358.4,670,0)
+96 ;;=GASTROENTEROLOGY^15^68
+97 ;;^UTILITY(U,$J,358.4,671,0)
+98 ;;=GU/RENAL^16^68
+99 ;;^UTILITY(U,$J,358.4,672,0)
+100 ;;=HEADACHE^17^68
+101 ;;^UTILITY(U,$J,358.4,673,0)
+102 ;;=HEART FAILURE^18^68
+103 ;;^UTILITY(U,$J,358.4,674,0)
+104 ;;=HEART VALVE DISEASE^19^68
+105 ;;^UTILITY(U,$J,358.4,675,0)
+106 ;;=HEMATOLOGY/ONCOLOGY^20^68
+107 ;;^UTILITY(U,$J,358.4,676,0)
+108 ;;=HISTORY OF ILLNESS^21^68
+109 ;;^UTILITY(U,$J,358.4,677,0)
+110 ;;=INFECTIOUS DISEASE^22^68
+111 ;;^UTILITY(U,$J,358.4,678,0)
+112 ;;=LIVER DISEASE^23^68
+113 ;;^UTILITY(U,$J,358.4,679,0)
+114 ;;=MENTAL HEALTH^25^68
+115 ;;^UTILITY(U,$J,358.4,680,0)
+116 ;;=MOVEMENT DISORDERS^26^68
+117 ;;^UTILITY(U,$J,358.4,681,0)
+118 ;;=MUSCULOSKELETAL^27^68
+119 ;;^UTILITY(U,$J,358.4,682,0)
+120 ;;=NEUROLOGY^28^68
+121 ;;^UTILITY(U,$J,358.4,683,0)
+122 ;;=PAIN^29^68
+123 ;;^UTILITY(U,$J,358.4,684,0)
+124 ;;=PREVENTIVE HEALTH^30^68
+125 ;;^UTILITY(U,$J,358.4,685,0)
+126 ;;=PULMONARY^31^68