IBDEI3IH ; ; 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,1364,0)
;;=ENDOCRINE/METABOLIC^12^135
;;^UTILITY(U,$J,358.4,1365,0)
;;=EYE DISORDERS^13^135
;;^UTILITY(U,$J,358.4,1366,0)
;;=EYE INJURY^14^135
;;^UTILITY(U,$J,358.4,1367,0)
;;=GASTROENTEROLOGY^15^135
;;^UTILITY(U,$J,358.4,1368,0)
;;=GU/RENAL^16^135
;;^UTILITY(U,$J,358.4,1369,0)
;;=HEADACHE^17^135
;;^UTILITY(U,$J,358.4,1370,0)
;;=HEART FAILURE^18^135
;;^UTILITY(U,$J,358.4,1371,0)
;;=HEART VALVE DISEASE^19^135
;;^UTILITY(U,$J,358.4,1372,0)
;;=HEMATOLOGY/ONCOLOGY^20^135
;;^UTILITY(U,$J,358.4,1373,0)
;;=HISTORY OF ILLNESS^21^135
;;^UTILITY(U,$J,358.4,1374,0)
;;=INFECTIOUS DISEASE^22^135
;;^UTILITY(U,$J,358.4,1375,0)
;;=LIVER DISEASE^23^135
;;^UTILITY(U,$J,358.4,1376,0)
;;=MENTAL HEALTH^25^135
;;^UTILITY(U,$J,358.4,1377,0)
;;=MOVEMENT DISORDERS^26^135
;;^UTILITY(U,$J,358.4,1378,0)
;;=MUSCULOSKELETAL^27^135
;;^UTILITY(U,$J,358.4,1379,0)
;;=NEUROLOGY^28^135
;;^UTILITY(U,$J,358.4,1380,0)
;;=PAIN^29^135
;;^UTILITY(U,$J,358.4,1381,0)
;;=PREVENTIVE HEALTH^30^135
;;^UTILITY(U,$J,358.4,1382,0)
;;=PULMONARY^31^135
;;^UTILITY(U,$J,358.4,1383,0)
;;=SEXUAL TRAUMA^32^135
;;^UTILITY(U,$J,358.4,1384,0)
;;=SIGNS,SYMPTOMS,CONDITIONS^33^135
;;^UTILITY(U,$J,358.4,1385,0)
;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^135
;;^UTILITY(U,$J,358.4,1386,0)
;;=SUBSTANCE DISORDERS^35^135
;;^UTILITY(U,$J,358.4,1387,0)
;;=VARICOSE VEINS^36^135
;;^UTILITY(U,$J,358.4,1388,0)
;;=WOMEN'S HEALTH^37^135
;;^UTILITY(U,$J,358.4,1389,0)
;;=WOUNDS-INITIAL ENCOUNTER^38^135
;;^UTILITY(U,$J,358.4,1390,0)
;;=COMA^7^135
;;^UTILITY(U,$J,358.4,1391,0)
;;=CAUSES OF INJURY^6^135
;;^UTILITY(U,$J,358.4,1392,0)
;;=DEMENTIA^8^135
;;^UTILITY(U,$J,358.4,1393,0)
;;=LONG TERM CURRENT DRUG THERAPY^24^135
;;^UTILITY(U,$J,358.4,1394,0)
;;=OTHER CODES^8^136
;;^UTILITY(U,$J,358.4,1395,0)
;;=MH INTAKE CODES^7^136
;;^UTILITY(U,$J,358.4,1396,0)
;;=OTHER PSYCHOTHERAPY^9^136
;;^UTILITY(U,$J,358.4,1397,0)
;;=BIOFEEDBACK^1^136
;;^UTILITY(U,$J,358.4,1398,0)
;;=CASE MANAGEMENT^2^136
;;^UTILITY(U,$J,358.4,1399,0)
;;=INPT OR OTPT PSYTX W/O E&M^5^136
;;^UTILITY(U,$J,358.4,1400,0)
;;=INTERACTIVE COMPLEXITY ADD-ON^6^136
;;^UTILITY(U,$J,358.4,1401,0)
;;=OTPT PSYTX W E&M ADD-ON^10^136
;;^UTILITY(U,$J,358.4,1402,0)
;;=PSYCHOTHERAPY FOR CRISIS^15^136
;;^UTILITY(U,$J,358.4,1403,0)
;;=PROLONGED SERVICES ADD-ON^14^136
;;^UTILITY(U,$J,358.4,1404,0)
;;=INJECTIONS/INJECTABLES^4^136
;;^UTILITY(U,$J,358.4,1405,0)
;;=PREVENTIVE MEDICINE COUNSELING^11^136
;;^UTILITY(U,$J,358.4,1406,0)
;;=PREVENTIVE MEDICINE-EST PT^12^136
;;^UTILITY(U,$J,358.4,1407,0)
;;=PREVENTIVE MEDICINE-NEW PT^13^136
;;^UTILITY(U,$J,358.4,1408,0)
;;=CATEGORY III CODES^3^136
;;^UTILITY(U,$J,358.4,1409,0)
;;=TEAM CONFERENCE^16^136
;;^UTILITY(U,$J,358.4,1410,0)
;;=ESTABLISHED PATIENT^1^137
;;^UTILITY(U,$J,358.4,1411,0)
;;=OUTPATIENT CONSULTATIONS^3^137
;;^UTILITY(U,$J,358.4,1412,0)
;;=NEW PATIENT^2^137
;;^UTILITY(U,$J,358.4,1413,0)
;;=INPATIENT CONSULTATIONS^4^137
;;^UTILITY(U,$J,358.4,1414,0)
;;=INITIAL HOSPITAL CARE^5^137
;;^UTILITY(U,$J,358.4,1415,0)
;;=HOSPITAL CARE DISCHARGE SERVICES^7^137
;;^UTILITY(U,$J,358.4,1416,0)
;;=INITIAL OBSERVATION CARE^8^137
;;^UTILITY(U,$J,358.4,1417,0)
;;=OBSERVATION CARE DISCHARGE SERVICES^10^137
;;^UTILITY(U,$J,358.4,1418,0)
;;=INPT/OBS ADMIT/DISCHARGE SAME DATE^11^137
;;^UTILITY(U,$J,358.4,1419,0)
;;=SUBSEQUENT HOSPITAL CARE^6^137
;;^UTILITY(U,$J,358.4,1420,0)
;;=OBSERVATION SUBSEQUENT CARE^9^137
;;^UTILITY(U,$J,358.4,1421,0)
;;=DOMICILIARY EST PATIENT^12^137
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IH 3933 printed Dec 13, 2024@02:49:25 Page 2
IBDEI3IH ; ; 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,1364,0)
+2 ;;=ENDOCRINE/METABOLIC^12^135
+3 ;;^UTILITY(U,$J,358.4,1365,0)
+4 ;;=EYE DISORDERS^13^135
+5 ;;^UTILITY(U,$J,358.4,1366,0)
+6 ;;=EYE INJURY^14^135
+7 ;;^UTILITY(U,$J,358.4,1367,0)
+8 ;;=GASTROENTEROLOGY^15^135
+9 ;;^UTILITY(U,$J,358.4,1368,0)
+10 ;;=GU/RENAL^16^135
+11 ;;^UTILITY(U,$J,358.4,1369,0)
+12 ;;=HEADACHE^17^135
+13 ;;^UTILITY(U,$J,358.4,1370,0)
+14 ;;=HEART FAILURE^18^135
+15 ;;^UTILITY(U,$J,358.4,1371,0)
+16 ;;=HEART VALVE DISEASE^19^135
+17 ;;^UTILITY(U,$J,358.4,1372,0)
+18 ;;=HEMATOLOGY/ONCOLOGY^20^135
+19 ;;^UTILITY(U,$J,358.4,1373,0)
+20 ;;=HISTORY OF ILLNESS^21^135
+21 ;;^UTILITY(U,$J,358.4,1374,0)
+22 ;;=INFECTIOUS DISEASE^22^135
+23 ;;^UTILITY(U,$J,358.4,1375,0)
+24 ;;=LIVER DISEASE^23^135
+25 ;;^UTILITY(U,$J,358.4,1376,0)
+26 ;;=MENTAL HEALTH^25^135
+27 ;;^UTILITY(U,$J,358.4,1377,0)
+28 ;;=MOVEMENT DISORDERS^26^135
+29 ;;^UTILITY(U,$J,358.4,1378,0)
+30 ;;=MUSCULOSKELETAL^27^135
+31 ;;^UTILITY(U,$J,358.4,1379,0)
+32 ;;=NEUROLOGY^28^135
+33 ;;^UTILITY(U,$J,358.4,1380,0)
+34 ;;=PAIN^29^135
+35 ;;^UTILITY(U,$J,358.4,1381,0)
+36 ;;=PREVENTIVE HEALTH^30^135
+37 ;;^UTILITY(U,$J,358.4,1382,0)
+38 ;;=PULMONARY^31^135
+39 ;;^UTILITY(U,$J,358.4,1383,0)
+40 ;;=SEXUAL TRAUMA^32^135
+41 ;;^UTILITY(U,$J,358.4,1384,0)
+42 ;;=SIGNS,SYMPTOMS,CONDITIONS^33^135
+43 ;;^UTILITY(U,$J,358.4,1385,0)
+44 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^135
+45 ;;^UTILITY(U,$J,358.4,1386,0)
+46 ;;=SUBSTANCE DISORDERS^35^135
+47 ;;^UTILITY(U,$J,358.4,1387,0)
+48 ;;=VARICOSE VEINS^36^135
+49 ;;^UTILITY(U,$J,358.4,1388,0)
+50 ;;=WOMEN'S HEALTH^37^135
+51 ;;^UTILITY(U,$J,358.4,1389,0)
+52 ;;=WOUNDS-INITIAL ENCOUNTER^38^135
+53 ;;^UTILITY(U,$J,358.4,1390,0)
+54 ;;=COMA^7^135
+55 ;;^UTILITY(U,$J,358.4,1391,0)
+56 ;;=CAUSES OF INJURY^6^135
+57 ;;^UTILITY(U,$J,358.4,1392,0)
+58 ;;=DEMENTIA^8^135
+59 ;;^UTILITY(U,$J,358.4,1393,0)
+60 ;;=LONG TERM CURRENT DRUG THERAPY^24^135
+61 ;;^UTILITY(U,$J,358.4,1394,0)
+62 ;;=OTHER CODES^8^136
+63 ;;^UTILITY(U,$J,358.4,1395,0)
+64 ;;=MH INTAKE CODES^7^136
+65 ;;^UTILITY(U,$J,358.4,1396,0)
+66 ;;=OTHER PSYCHOTHERAPY^9^136
+67 ;;^UTILITY(U,$J,358.4,1397,0)
+68 ;;=BIOFEEDBACK^1^136
+69 ;;^UTILITY(U,$J,358.4,1398,0)
+70 ;;=CASE MANAGEMENT^2^136
+71 ;;^UTILITY(U,$J,358.4,1399,0)
+72 ;;=INPT OR OTPT PSYTX W/O E&M^5^136
+73 ;;^UTILITY(U,$J,358.4,1400,0)
+74 ;;=INTERACTIVE COMPLEXITY ADD-ON^6^136
+75 ;;^UTILITY(U,$J,358.4,1401,0)
+76 ;;=OTPT PSYTX W E&M ADD-ON^10^136
+77 ;;^UTILITY(U,$J,358.4,1402,0)
+78 ;;=PSYCHOTHERAPY FOR CRISIS^15^136
+79 ;;^UTILITY(U,$J,358.4,1403,0)
+80 ;;=PROLONGED SERVICES ADD-ON^14^136
+81 ;;^UTILITY(U,$J,358.4,1404,0)
+82 ;;=INJECTIONS/INJECTABLES^4^136
+83 ;;^UTILITY(U,$J,358.4,1405,0)
+84 ;;=PREVENTIVE MEDICINE COUNSELING^11^136
+85 ;;^UTILITY(U,$J,358.4,1406,0)
+86 ;;=PREVENTIVE MEDICINE-EST PT^12^136
+87 ;;^UTILITY(U,$J,358.4,1407,0)
+88 ;;=PREVENTIVE MEDICINE-NEW PT^13^136
+89 ;;^UTILITY(U,$J,358.4,1408,0)
+90 ;;=CATEGORY III CODES^3^136
+91 ;;^UTILITY(U,$J,358.4,1409,0)
+92 ;;=TEAM CONFERENCE^16^136
+93 ;;^UTILITY(U,$J,358.4,1410,0)
+94 ;;=ESTABLISHED PATIENT^1^137
+95 ;;^UTILITY(U,$J,358.4,1411,0)
+96 ;;=OUTPATIENT CONSULTATIONS^3^137
+97 ;;^UTILITY(U,$J,358.4,1412,0)
+98 ;;=NEW PATIENT^2^137
+99 ;;^UTILITY(U,$J,358.4,1413,0)
+100 ;;=INPATIENT CONSULTATIONS^4^137
+101 ;;^UTILITY(U,$J,358.4,1414,0)
+102 ;;=INITIAL HOSPITAL CARE^5^137
+103 ;;^UTILITY(U,$J,358.4,1415,0)
+104 ;;=HOSPITAL CARE DISCHARGE SERVICES^7^137
+105 ;;^UTILITY(U,$J,358.4,1416,0)
+106 ;;=INITIAL OBSERVATION CARE^8^137
+107 ;;^UTILITY(U,$J,358.4,1417,0)
+108 ;;=OBSERVATION CARE DISCHARGE SERVICES^10^137
+109 ;;^UTILITY(U,$J,358.4,1418,0)
+110 ;;=INPT/OBS ADMIT/DISCHARGE SAME DATE^11^137
+111 ;;^UTILITY(U,$J,358.4,1419,0)
+112 ;;=SUBSEQUENT HOSPITAL CARE^6^137
+113 ;;^UTILITY(U,$J,358.4,1420,0)
+114 ;;=OBSERVATION SUBSEQUENT CARE^9^137
+115 ;;^UTILITY(U,$J,358.4,1421,0)
+116 ;;=DOMICILIARY EST PATIENT^12^137