IBDEI3IS ; ; 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,1994,0)
;;=FITTING/ADJUSTMENT/AFTERCARE^9^180
;;^UTILITY(U,$J,358.4,1995,0)
;;=EST PATIENT^1^181
;;^UTILITY(U,$J,358.4,1996,0)
;;=NEW PATIENT^2^181
;;^UTILITY(U,$J,358.4,1997,0)
;;=CONSULTATION^3^181
;;^UTILITY(U,$J,358.4,1998,0)
;;=INJECTIONS/DRUGS^7^182
;;^UTILITY(U,$J,358.4,1999,0)
;;=WOUND CARE^15^182
;;^UTILITY(U,$J,358.4,2000,0)
;;=MD PROCEDURES^1^182
;;^UTILITY(U,$J,358.4,2001,0)
;;=MUSCLE NERVE TESTS^9^182
;;^UTILITY(U,$J,358.4,2002,0)
;;=TEAM CONFERENCE^12^182
;;^UTILITY(U,$J,358.4,2003,0)
;;=ACUPUNCTURE^2^182
;;^UTILITY(U,$J,358.4,2004,0)
;;=CHEMODENERVATION^6^182
;;^UTILITY(U,$J,358.4,2005,0)
;;=OSTEOPATHIC MANIPULATION (OMT)^10^182
;;^UTILITY(U,$J,358.4,2006,0)
;;=OTHER^11^182
;;^UTILITY(U,$J,358.4,2007,0)
;;=BACLOFEN PUMP^3^182
;;^UTILITY(U,$J,358.4,2008,0)
;;=BOTOX^4^182
;;^UTILITY(U,$J,358.4,2009,0)
;;=CARPAL TUNNEL INJECTION^5^182
;;^UTILITY(U,$J,358.4,2010,0)
;;=JNT BURSA INJ W/ US^8^182
;;^UTILITY(U,$J,358.4,2011,0)
;;=TRIGGER POINT INJECTION^13^182
;;^UTILITY(U,$J,358.4,2012,0)
;;=ULTRASOUND^14^182
;;^UTILITY(U,$J,358.4,2013,0)
;;=INITIAL EVAL FOR TBI^12^183
;;^UTILITY(U,$J,358.4,2014,0)
;;=INJURY/TRAUMA (SEQUELA)^13^183
;;^UTILITY(U,$J,358.4,2015,0)
;;=LATE EFFECTS OF CVA^14^183
;;^UTILITY(U,$J,358.4,2016,0)
;;=AMPUTATION STATUS^1^183
;;^UTILITY(U,$J,358.4,2017,0)
;;=AUDITORY^3^183
;;^UTILITY(U,$J,358.4,2018,0)
;;=BACK DIAGNOSIS^4^183
;;^UTILITY(U,$J,358.4,2019,0)
;;=BRAIN DISORDERS^5^183
;;^UTILITY(U,$J,358.4,2020,0)
;;=CARDIOPULMONARY^6^183
;;^UTILITY(U,$J,358.4,2021,0)
;;=COGNITION^7^183
;;^UTILITY(U,$J,358.4,2022,0)
;;=COMPLICATION DUE TO^8^183
;;^UTILITY(U,$J,358.4,2023,0)
;;=ARTHRITIS^2^183
;;^UTILITY(U,$J,358.4,2024,0)
;;=FRACTURES^10^183
;;^UTILITY(U,$J,358.4,2025,0)
;;=MENTAL DISORDERS^15^183
;;^UTILITY(U,$J,358.4,2026,0)
;;=MUSCULOSKELETAL/CONNECTIV^16^183
;;^UTILITY(U,$J,358.4,2027,0)
;;=GENERAL SIGNS/SYMPTOMS^11^183
;;^UTILITY(U,$J,358.4,2028,0)
;;=POST JOINT REPLACEMENT^17^183
;;^UTILITY(U,$J,358.4,2029,0)
;;=RHEUMATOID^19^183
;;^UTILITY(U,$J,358.4,2030,0)
;;=PSYCHIATRIC-PSYCHOSOC-EMO^18^183
;;^UTILITY(U,$J,358.4,2031,0)
;;=SPEECH AND LANGUAGE^20^183
;;^UTILITY(U,$J,358.4,2032,0)
;;=FITTING/ADJUSTMENT/AFTERCARE^9^183
;;^UTILITY(U,$J,358.4,2033,0)
;;=NEW PATIENT^2^184
;;^UTILITY(U,$J,358.4,2034,0)
;;=ESTABLISHED PATIENT^1^184
;;^UTILITY(U,$J,358.4,2035,0)
;;=CONSULTATIONS^3^184
;;^UTILITY(U,$J,358.4,2036,0)
;;=GLOBAL FOLLOW UP^4^184
;;^UTILITY(U,$J,358.4,2037,0)
;;=DEBRIDEMENT^2^185
;;^UTILITY(U,$J,358.4,2038,0)
;;=DESTR-BENIGN/PREMALIGNANT^6^185
;;^UTILITY(U,$J,358.4,2039,0)
;;=DEST MAL LESION-TRUNK,ARMS,LEGS^5^185
;;^UTILITY(U,$J,358.4,2040,0)
;;=EXC-BEN LESION-TRUNK,ARM,LEG^9^185
;;^UTILITY(U,$J,358.4,2041,0)
;;=EXC-MAL LESION-TRUNK,ARM,LEG^12^185
;;^UTILITY(U,$J,358.4,2042,0)
;;=INCISION & DRAINAGE^13^185
;;^UTILITY(U,$J,358.4,2043,0)
;;=MISCELLANEOUS^16^185
;;^UTILITY(U,$J,358.4,2044,0)
;;=NAILS^18^185
;;^UTILITY(U,$J,358.4,2045,0)
;;=SHAVING-EPIDERMAL-TRUNK,ARM,LEG^32^185
;;^UTILITY(U,$J,358.4,2046,0)
;;=REPAIR-SIMPLE-SCALP,NK,TRUNK^29^185
;;^UTILITY(U,$J,358.4,2047,0)
;;=REPAIR-INTERM-SCALP,TRUNK^27^185
;;^UTILITY(U,$J,358.4,2048,0)
;;=DEST MAL LES-SCALP,NK,HAND,FEET,GENITALS^4^185
;;^UTILITY(U,$J,358.4,2049,0)
;;=DEST MAL LESION-FACE,MUCOUS^3^185
;;^UTILITY(U,$J,358.4,2050,0)
;;=EXC-BEN LESION-SCALP,HANDS,FT,GENITALS^8^185
;;^UTILITY(U,$J,358.4,2051,0)
;;=EXC-BEN LESION-FACE,MUCOUS^7^185
;;^UTILITY(U,$J,358.4,2052,0)
;;=EXC-MAL LESION-SCALP,NK,HAND,FT,GENITALS^11^185
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IS 3983 printed Sep 23, 2025@20:25:38 Page 2
IBDEI3IS ; ; 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,1994,0)
+2 ;;=FITTING/ADJUSTMENT/AFTERCARE^9^180
+3 ;;^UTILITY(U,$J,358.4,1995,0)
+4 ;;=EST PATIENT^1^181
+5 ;;^UTILITY(U,$J,358.4,1996,0)
+6 ;;=NEW PATIENT^2^181
+7 ;;^UTILITY(U,$J,358.4,1997,0)
+8 ;;=CONSULTATION^3^181
+9 ;;^UTILITY(U,$J,358.4,1998,0)
+10 ;;=INJECTIONS/DRUGS^7^182
+11 ;;^UTILITY(U,$J,358.4,1999,0)
+12 ;;=WOUND CARE^15^182
+13 ;;^UTILITY(U,$J,358.4,2000,0)
+14 ;;=MD PROCEDURES^1^182
+15 ;;^UTILITY(U,$J,358.4,2001,0)
+16 ;;=MUSCLE NERVE TESTS^9^182
+17 ;;^UTILITY(U,$J,358.4,2002,0)
+18 ;;=TEAM CONFERENCE^12^182
+19 ;;^UTILITY(U,$J,358.4,2003,0)
+20 ;;=ACUPUNCTURE^2^182
+21 ;;^UTILITY(U,$J,358.4,2004,0)
+22 ;;=CHEMODENERVATION^6^182
+23 ;;^UTILITY(U,$J,358.4,2005,0)
+24 ;;=OSTEOPATHIC MANIPULATION (OMT)^10^182
+25 ;;^UTILITY(U,$J,358.4,2006,0)
+26 ;;=OTHER^11^182
+27 ;;^UTILITY(U,$J,358.4,2007,0)
+28 ;;=BACLOFEN PUMP^3^182
+29 ;;^UTILITY(U,$J,358.4,2008,0)
+30 ;;=BOTOX^4^182
+31 ;;^UTILITY(U,$J,358.4,2009,0)
+32 ;;=CARPAL TUNNEL INJECTION^5^182
+33 ;;^UTILITY(U,$J,358.4,2010,0)
+34 ;;=JNT BURSA INJ W/ US^8^182
+35 ;;^UTILITY(U,$J,358.4,2011,0)
+36 ;;=TRIGGER POINT INJECTION^13^182
+37 ;;^UTILITY(U,$J,358.4,2012,0)
+38 ;;=ULTRASOUND^14^182
+39 ;;^UTILITY(U,$J,358.4,2013,0)
+40 ;;=INITIAL EVAL FOR TBI^12^183
+41 ;;^UTILITY(U,$J,358.4,2014,0)
+42 ;;=INJURY/TRAUMA (SEQUELA)^13^183
+43 ;;^UTILITY(U,$J,358.4,2015,0)
+44 ;;=LATE EFFECTS OF CVA^14^183
+45 ;;^UTILITY(U,$J,358.4,2016,0)
+46 ;;=AMPUTATION STATUS^1^183
+47 ;;^UTILITY(U,$J,358.4,2017,0)
+48 ;;=AUDITORY^3^183
+49 ;;^UTILITY(U,$J,358.4,2018,0)
+50 ;;=BACK DIAGNOSIS^4^183
+51 ;;^UTILITY(U,$J,358.4,2019,0)
+52 ;;=BRAIN DISORDERS^5^183
+53 ;;^UTILITY(U,$J,358.4,2020,0)
+54 ;;=CARDIOPULMONARY^6^183
+55 ;;^UTILITY(U,$J,358.4,2021,0)
+56 ;;=COGNITION^7^183
+57 ;;^UTILITY(U,$J,358.4,2022,0)
+58 ;;=COMPLICATION DUE TO^8^183
+59 ;;^UTILITY(U,$J,358.4,2023,0)
+60 ;;=ARTHRITIS^2^183
+61 ;;^UTILITY(U,$J,358.4,2024,0)
+62 ;;=FRACTURES^10^183
+63 ;;^UTILITY(U,$J,358.4,2025,0)
+64 ;;=MENTAL DISORDERS^15^183
+65 ;;^UTILITY(U,$J,358.4,2026,0)
+66 ;;=MUSCULOSKELETAL/CONNECTIV^16^183
+67 ;;^UTILITY(U,$J,358.4,2027,0)
+68 ;;=GENERAL SIGNS/SYMPTOMS^11^183
+69 ;;^UTILITY(U,$J,358.4,2028,0)
+70 ;;=POST JOINT REPLACEMENT^17^183
+71 ;;^UTILITY(U,$J,358.4,2029,0)
+72 ;;=RHEUMATOID^19^183
+73 ;;^UTILITY(U,$J,358.4,2030,0)
+74 ;;=PSYCHIATRIC-PSYCHOSOC-EMO^18^183
+75 ;;^UTILITY(U,$J,358.4,2031,0)
+76 ;;=SPEECH AND LANGUAGE^20^183
+77 ;;^UTILITY(U,$J,358.4,2032,0)
+78 ;;=FITTING/ADJUSTMENT/AFTERCARE^9^183
+79 ;;^UTILITY(U,$J,358.4,2033,0)
+80 ;;=NEW PATIENT^2^184
+81 ;;^UTILITY(U,$J,358.4,2034,0)
+82 ;;=ESTABLISHED PATIENT^1^184
+83 ;;^UTILITY(U,$J,358.4,2035,0)
+84 ;;=CONSULTATIONS^3^184
+85 ;;^UTILITY(U,$J,358.4,2036,0)
+86 ;;=GLOBAL FOLLOW UP^4^184
+87 ;;^UTILITY(U,$J,358.4,2037,0)
+88 ;;=DEBRIDEMENT^2^185
+89 ;;^UTILITY(U,$J,358.4,2038,0)
+90 ;;=DESTR-BENIGN/PREMALIGNANT^6^185
+91 ;;^UTILITY(U,$J,358.4,2039,0)
+92 ;;=DEST MAL LESION-TRUNK,ARMS,LEGS^5^185
+93 ;;^UTILITY(U,$J,358.4,2040,0)
+94 ;;=EXC-BEN LESION-TRUNK,ARM,LEG^9^185
+95 ;;^UTILITY(U,$J,358.4,2041,0)
+96 ;;=EXC-MAL LESION-TRUNK,ARM,LEG^12^185
+97 ;;^UTILITY(U,$J,358.4,2042,0)
+98 ;;=INCISION & DRAINAGE^13^185
+99 ;;^UTILITY(U,$J,358.4,2043,0)
+100 ;;=MISCELLANEOUS^16^185
+101 ;;^UTILITY(U,$J,358.4,2044,0)
+102 ;;=NAILS^18^185
+103 ;;^UTILITY(U,$J,358.4,2045,0)
+104 ;;=SHAVING-EPIDERMAL-TRUNK,ARM,LEG^32^185
+105 ;;^UTILITY(U,$J,358.4,2046,0)
+106 ;;=REPAIR-SIMPLE-SCALP,NK,TRUNK^29^185
+107 ;;^UTILITY(U,$J,358.4,2047,0)
+108 ;;=REPAIR-INTERM-SCALP,TRUNK^27^185
+109 ;;^UTILITY(U,$J,358.4,2048,0)
+110 ;;=DEST MAL LES-SCALP,NK,HAND,FEET,GENITALS^4^185
+111 ;;^UTILITY(U,$J,358.4,2049,0)
+112 ;;=DEST MAL LESION-FACE,MUCOUS^3^185
+113 ;;^UTILITY(U,$J,358.4,2050,0)
+114 ;;=EXC-BEN LESION-SCALP,HANDS,FT,GENITALS^8^185
+115 ;;^UTILITY(U,$J,358.4,2051,0)
+116 ;;=EXC-BEN LESION-FACE,MUCOUS^7^185
+117 ;;^UTILITY(U,$J,358.4,2052,0)
+118 ;;=EXC-MAL LESION-SCALP,NK,HAND,FT,GENITALS^11^185
