IBDEI3IR ; ; 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,1936,0)
;;=RELATIONAL PROBLEMS^23^177
;;^UTILITY(U,$J,358.4,1937,0)
;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^25^177
;;^UTILITY(U,$J,358.4,1938,0)
;;=SEXUAL DYSFUNCTION^26^177
;;^UTILITY(U,$J,358.4,1939,0)
;;=SLEEP DISORDERS^27^177
;;^UTILITY(U,$J,358.4,1940,0)
;;=SUBSTANCE ABUSE-ALCOHOL^30^177
;;^UTILITY(U,$J,358.4,1941,0)
;;=SUBSTANCE ABUSE-AMPHETAMINE^31^177
;;^UTILITY(U,$J,358.4,1942,0)
;;=SUBSTANCE ABUSE-CANNABIS^32^177
;;^UTILITY(U,$J,358.4,1943,0)
;;=SUBSTANCE ABUSE-HALLUCINOGEN^34^177
;;^UTILITY(U,$J,358.4,1944,0)
;;=SUBSTANCE ABUSE-OPIOID^36^177
;;^UTILITY(U,$J,358.4,1945,0)
;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^37^177
;;^UTILITY(U,$J,358.4,1946,0)
;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^38^177
;;^UTILITY(U,$J,358.4,1947,0)
;;=SUBSTANCE ABUSE-TOBACCO^39^177
;;^UTILITY(U,$J,358.4,1948,0)
;;=SUBSTANCE ABUSE-COCAINE^33^177
;;^UTILITY(U,$J,358.4,1949,0)
;;=TRAUMA/STRESSOR-RELATED DISORDERS^40^177
;;^UTILITY(U,$J,358.4,1950,0)
;;=SUBSTANCE ABUSE-INHALANT^35^177
;;^UTILITY(U,$J,358.4,1951,0)
;;=INTELLECTUAL DISABILITIES^15^177
;;^UTILITY(U,$J,358.4,1952,0)
;;=RESEARCH^24^177
;;^UTILITY(U,$J,358.4,1953,0)
;;=SOMATOFORM DISORDERS^29^177
;;^UTILITY(U,$J,358.4,1954,0)
;;=INPT H&P-NEW ADMISSION^4^178
;;^UTILITY(U,$J,358.4,1955,0)
;;=INITIAL OBSERVATION^1^178
;;^UTILITY(U,$J,358.4,1956,0)
;;=INPT CONSULTATIONS^5^178
;;^UTILITY(U,$J,358.4,1957,0)
;;=INPT-ESTABLISHED PATIENT CARE^6^178
;;^UTILITY(U,$J,358.4,1958,0)
;;=INPT DISCHARGES^7^178
;;^UTILITY(U,$J,358.4,1959,0)
;;=SUBSEQUENT OBSERVATION^2^178
;;^UTILITY(U,$J,358.4,1960,0)
;;=OBSERVATION DISCHARGE^3^178
;;^UTILITY(U,$J,358.4,1961,0)
;;=INJECTIONS/DRUGS^7^179
;;^UTILITY(U,$J,358.4,1962,0)
;;=WOUND CARE^14^179
;;^UTILITY(U,$J,358.4,1963,0)
;;=MD PROCEDURES^1^179
;;^UTILITY(U,$J,358.4,1964,0)
;;=MUSCLE NERVE TESTS^9^179
;;^UTILITY(U,$J,358.4,1965,0)
;;=TEAM CONFERENCE^11^179
;;^UTILITY(U,$J,358.4,1966,0)
;;=ACUPUNCTURE^2^179
;;^UTILITY(U,$J,358.4,1967,0)
;;=CHEMODENERVATION^6^179
;;^UTILITY(U,$J,358.4,1968,0)
;;=OTHER^10^179
;;^UTILITY(U,$J,358.4,1969,0)
;;=BACLOFEN PUMP^3^179
;;^UTILITY(U,$J,358.4,1970,0)
;;=BOTOX^4^179
;;^UTILITY(U,$J,358.4,1971,0)
;;=CARPAL TUNNEL INJECTION^5^179
;;^UTILITY(U,$J,358.4,1972,0)
;;=JNT BURSA INJ W/ US^8^179
;;^UTILITY(U,$J,358.4,1973,0)
;;=TRIGGER POINT INJECTION^12^179
;;^UTILITY(U,$J,358.4,1974,0)
;;=ULTRASOUND^13^179
;;^UTILITY(U,$J,358.4,1975,0)
;;=INITIAL EVAL FOR TBI^12^180
;;^UTILITY(U,$J,358.4,1976,0)
;;=INJURY/TRAUMA (SEQUELA)^13^180
;;^UTILITY(U,$J,358.4,1977,0)
;;=LATE EFFECTS OF CVA^14^180
;;^UTILITY(U,$J,358.4,1978,0)
;;=AMPUTATION STATUS^1^180
;;^UTILITY(U,$J,358.4,1979,0)
;;=AUDITORY^3^180
;;^UTILITY(U,$J,358.4,1980,0)
;;=BACK DIAGNOSIS^4^180
;;^UTILITY(U,$J,358.4,1981,0)
;;=BRAIN DISORDERS^5^180
;;^UTILITY(U,$J,358.4,1982,0)
;;=CARDIOPULMONARY^6^180
;;^UTILITY(U,$J,358.4,1983,0)
;;=COGNITION^7^180
;;^UTILITY(U,$J,358.4,1984,0)
;;=COMPLICATION DUE TO^8^180
;;^UTILITY(U,$J,358.4,1985,0)
;;=ARTHRITIS^2^180
;;^UTILITY(U,$J,358.4,1986,0)
;;=FRACTURES^10^180
;;^UTILITY(U,$J,358.4,1987,0)
;;=MENTAL DISORDERS^15^180
;;^UTILITY(U,$J,358.4,1988,0)
;;=MUSCULOSKELETAL/CONNECTIV^16^180
;;^UTILITY(U,$J,358.4,1989,0)
;;=GENERAL SIGNS/SYMPTOMS^11^180
;;^UTILITY(U,$J,358.4,1990,0)
;;=POST JOINT REPLACEMENT^17^180
;;^UTILITY(U,$J,358.4,1991,0)
;;=RHEUMATOID^19^180
;;^UTILITY(U,$J,358.4,1992,0)
;;=PSYCHIATRIC-PSYCHOSOC-EMO^18^180
;;^UTILITY(U,$J,358.4,1993,0)
;;=SPEECH AND LANGUAGE^20^180
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IR 3936 printed Sep 23, 2025@20:25:37 Page 2
IBDEI3IR ; ; 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,1936,0)
+2 ;;=RELATIONAL PROBLEMS^23^177
+3 ;;^UTILITY(U,$J,358.4,1937,0)
+4 ;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^25^177
+5 ;;^UTILITY(U,$J,358.4,1938,0)
+6 ;;=SEXUAL DYSFUNCTION^26^177
+7 ;;^UTILITY(U,$J,358.4,1939,0)
+8 ;;=SLEEP DISORDERS^27^177
+9 ;;^UTILITY(U,$J,358.4,1940,0)
+10 ;;=SUBSTANCE ABUSE-ALCOHOL^30^177
+11 ;;^UTILITY(U,$J,358.4,1941,0)
+12 ;;=SUBSTANCE ABUSE-AMPHETAMINE^31^177
+13 ;;^UTILITY(U,$J,358.4,1942,0)
+14 ;;=SUBSTANCE ABUSE-CANNABIS^32^177
+15 ;;^UTILITY(U,$J,358.4,1943,0)
+16 ;;=SUBSTANCE ABUSE-HALLUCINOGEN^34^177
+17 ;;^UTILITY(U,$J,358.4,1944,0)
+18 ;;=SUBSTANCE ABUSE-OPIOID^36^177
+19 ;;^UTILITY(U,$J,358.4,1945,0)
+20 ;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^37^177
+21 ;;^UTILITY(U,$J,358.4,1946,0)
+22 ;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^38^177
+23 ;;^UTILITY(U,$J,358.4,1947,0)
+24 ;;=SUBSTANCE ABUSE-TOBACCO^39^177
+25 ;;^UTILITY(U,$J,358.4,1948,0)
+26 ;;=SUBSTANCE ABUSE-COCAINE^33^177
+27 ;;^UTILITY(U,$J,358.4,1949,0)
+28 ;;=TRAUMA/STRESSOR-RELATED DISORDERS^40^177
+29 ;;^UTILITY(U,$J,358.4,1950,0)
+30 ;;=SUBSTANCE ABUSE-INHALANT^35^177
+31 ;;^UTILITY(U,$J,358.4,1951,0)
+32 ;;=INTELLECTUAL DISABILITIES^15^177
+33 ;;^UTILITY(U,$J,358.4,1952,0)
+34 ;;=RESEARCH^24^177
+35 ;;^UTILITY(U,$J,358.4,1953,0)
+36 ;;=SOMATOFORM DISORDERS^29^177
+37 ;;^UTILITY(U,$J,358.4,1954,0)
+38 ;;=INPT H&P-NEW ADMISSION^4^178
+39 ;;^UTILITY(U,$J,358.4,1955,0)
+40 ;;=INITIAL OBSERVATION^1^178
+41 ;;^UTILITY(U,$J,358.4,1956,0)
+42 ;;=INPT CONSULTATIONS^5^178
+43 ;;^UTILITY(U,$J,358.4,1957,0)
+44 ;;=INPT-ESTABLISHED PATIENT CARE^6^178
+45 ;;^UTILITY(U,$J,358.4,1958,0)
+46 ;;=INPT DISCHARGES^7^178
+47 ;;^UTILITY(U,$J,358.4,1959,0)
+48 ;;=SUBSEQUENT OBSERVATION^2^178
+49 ;;^UTILITY(U,$J,358.4,1960,0)
+50 ;;=OBSERVATION DISCHARGE^3^178
+51 ;;^UTILITY(U,$J,358.4,1961,0)
+52 ;;=INJECTIONS/DRUGS^7^179
+53 ;;^UTILITY(U,$J,358.4,1962,0)
+54 ;;=WOUND CARE^14^179
+55 ;;^UTILITY(U,$J,358.4,1963,0)
+56 ;;=MD PROCEDURES^1^179
+57 ;;^UTILITY(U,$J,358.4,1964,0)
+58 ;;=MUSCLE NERVE TESTS^9^179
+59 ;;^UTILITY(U,$J,358.4,1965,0)
+60 ;;=TEAM CONFERENCE^11^179
+61 ;;^UTILITY(U,$J,358.4,1966,0)
+62 ;;=ACUPUNCTURE^2^179
+63 ;;^UTILITY(U,$J,358.4,1967,0)
+64 ;;=CHEMODENERVATION^6^179
+65 ;;^UTILITY(U,$J,358.4,1968,0)
+66 ;;=OTHER^10^179
+67 ;;^UTILITY(U,$J,358.4,1969,0)
+68 ;;=BACLOFEN PUMP^3^179
+69 ;;^UTILITY(U,$J,358.4,1970,0)
+70 ;;=BOTOX^4^179
+71 ;;^UTILITY(U,$J,358.4,1971,0)
+72 ;;=CARPAL TUNNEL INJECTION^5^179
+73 ;;^UTILITY(U,$J,358.4,1972,0)
+74 ;;=JNT BURSA INJ W/ US^8^179
+75 ;;^UTILITY(U,$J,358.4,1973,0)
+76 ;;=TRIGGER POINT INJECTION^12^179
+77 ;;^UTILITY(U,$J,358.4,1974,0)
+78 ;;=ULTRASOUND^13^179
+79 ;;^UTILITY(U,$J,358.4,1975,0)
+80 ;;=INITIAL EVAL FOR TBI^12^180
+81 ;;^UTILITY(U,$J,358.4,1976,0)
+82 ;;=INJURY/TRAUMA (SEQUELA)^13^180
+83 ;;^UTILITY(U,$J,358.4,1977,0)
+84 ;;=LATE EFFECTS OF CVA^14^180
+85 ;;^UTILITY(U,$J,358.4,1978,0)
+86 ;;=AMPUTATION STATUS^1^180
+87 ;;^UTILITY(U,$J,358.4,1979,0)
+88 ;;=AUDITORY^3^180
+89 ;;^UTILITY(U,$J,358.4,1980,0)
+90 ;;=BACK DIAGNOSIS^4^180
+91 ;;^UTILITY(U,$J,358.4,1981,0)
+92 ;;=BRAIN DISORDERS^5^180
+93 ;;^UTILITY(U,$J,358.4,1982,0)
+94 ;;=CARDIOPULMONARY^6^180
+95 ;;^UTILITY(U,$J,358.4,1983,0)
+96 ;;=COGNITION^7^180
+97 ;;^UTILITY(U,$J,358.4,1984,0)
+98 ;;=COMPLICATION DUE TO^8^180
+99 ;;^UTILITY(U,$J,358.4,1985,0)
+100 ;;=ARTHRITIS^2^180
+101 ;;^UTILITY(U,$J,358.4,1986,0)
+102 ;;=FRACTURES^10^180
+103 ;;^UTILITY(U,$J,358.4,1987,0)
+104 ;;=MENTAL DISORDERS^15^180
+105 ;;^UTILITY(U,$J,358.4,1988,0)
+106 ;;=MUSCULOSKELETAL/CONNECTIV^16^180
+107 ;;^UTILITY(U,$J,358.4,1989,0)
+108 ;;=GENERAL SIGNS/SYMPTOMS^11^180
+109 ;;^UTILITY(U,$J,358.4,1990,0)
+110 ;;=POST JOINT REPLACEMENT^17^180
+111 ;;^UTILITY(U,$J,358.4,1991,0)
+112 ;;=RHEUMATOID^19^180
+113 ;;^UTILITY(U,$J,358.4,1992,0)
+114 ;;=PSYCHIATRIC-PSYCHOSOC-EMO^18^180
+115 ;;^UTILITY(U,$J,358.4,1993,0)
+116 ;;=SPEECH AND LANGUAGE^20^180
