- IBDEI3IT ; ; 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,2053,0)
- ;;=EXC-MAL LESION-FACE,MUCOUS^10^185
- ;;^UTILITY(U,$J,358.4,2054,0)
- ;;=SHAVING-EPIDERM-SCALP,NK,HAND,FT,GENITAL^31^185
- ;;^UTILITY(U,$J,358.4,2055,0)
- ;;=SHAVING-EPIDERM-FACE,MUCOUS^30^185
- ;;^UTILITY(U,$J,358.4,2056,0)
- ;;=REPAIR-SIMPLE-FACE,MUCOUS^28^185
- ;;^UTILITY(U,$J,358.4,2057,0)
- ;;=REPAIR-INTERM-NK,HAND,FT,GENITALIA^26^185
- ;;^UTILITY(U,$J,358.4,2058,0)
- ;;=REPAIR-INTERM-FACE,MUCOUS^25^185
- ;;^UTILITY(U,$J,358.4,2059,0)
- ;;=WOUND HEALING^39^185
- ;;^UTILITY(U,$J,358.4,2060,0)
- ;;=SKIN TEST^33^185
- ;;^UTILITY(U,$J,358.4,2061,0)
- ;;=MICROBIOLOGY^15^185
- ;;^UTILITY(U,$J,358.4,2062,0)
- ;;=MOHS CHEMOSURGERY^17^185
- ;;^UTILITY(U,$J,358.4,2063,0)
- ;;=INJECTIONS^14^185
- ;;^UTILITY(U,$J,358.4,2064,0)
- ;;=PEEL^19^185
- ;;^UTILITY(U,$J,358.4,2065,0)
- ;;=PHOTOTHERAPY^20^185
- ;;^UTILITY(U,$J,358.4,2066,0)
- ;;=REPAIR-COMPLEX-FACE^23^185
- ;;^UTILITY(U,$J,358.4,2067,0)
- ;;=REPAIR-COMPLEX-NK/HAND/FT^24^185
- ;;^UTILITY(U,$J,358.4,2068,0)
- ;;=REPAIR-COMPLEX-TRUNK^21^185
- ;;^UTILITY(U,$J,358.4,2069,0)
- ;;=TISSUE REARRANGMNT-FACE/NECK/HAND/FOOT^36^185
- ;;^UTILITY(U,$J,358.4,2070,0)
- ;;=TISSUE REARRANGMNT-SCALP/ARMS/LEGS^35^185
- ;;^UTILITY(U,$J,358.4,2071,0)
- ;;=TISSUE REARRANGMNT-TRUNK^34^185
- ;;^UTILITY(U,$J,358.4,2072,0)
- ;;=REPAIR-COMPLEX-SCALP^22^185
- ;;^UTILITY(U,$J,358.4,2073,0)
- ;;=TISSUE REARRANGMNT-EYELID/NOSE/EAR/LIP^37^185
- ;;^UTILITY(U,$J,358.4,2074,0)
- ;;=BIOPSY^1^185
- ;;^UTILITY(U,$J,358.4,2075,0)
- ;;=TISSUE REARRANGEMENT-ANY AREA^38^185
- ;;^UTILITY(U,$J,358.4,2076,0)
- ;;=PLASTIC SURGERY DX^1^186
- ;;^UTILITY(U,$J,358.4,2077,0)
- ;;=NAILS^2^187
- ;;^UTILITY(U,$J,358.4,2078,0)
- ;;=OTHER ORTHOTICS^3^187
- ;;^UTILITY(U,$J,358.4,2079,0)
- ;;=IMMUNIZATIONS^1^187
- ;;^UTILITY(U,$J,358.4,2080,0)
- ;;=ESTABLISHED PATIENT^1^188
- ;;^UTILITY(U,$J,358.4,2081,0)
- ;;=A^1^189
- ;;^UTILITY(U,$J,358.4,2082,0)
- ;;=B^2^189
- ;;^UTILITY(U,$J,358.4,2083,0)
- ;;=C^3^189
- ;;^UTILITY(U,$J,358.4,2084,0)
- ;;=D^4^189
- ;;^UTILITY(U,$J,358.4,2085,0)
- ;;=E^5^189
- ;;^UTILITY(U,$J,358.4,2086,0)
- ;;=F^6^189
- ;;^UTILITY(U,$J,358.4,2087,0)
- ;;=G^7^189
- ;;^UTILITY(U,$J,358.4,2088,0)
- ;;=H^8^189
- ;;^UTILITY(U,$J,358.4,2089,0)
- ;;=I^9^189
- ;;^UTILITY(U,$J,358.4,2090,0)
- ;;=L^12^189
- ;;^UTILITY(U,$J,358.4,2091,0)
- ;;=M^13^189
- ;;^UTILITY(U,$J,358.4,2092,0)
- ;;=N^14^189
- ;;^UTILITY(U,$J,358.4,2093,0)
- ;;=O^15^189
- ;;^UTILITY(U,$J,358.4,2094,0)
- ;;=P^16^189
- ;;^UTILITY(U,$J,358.4,2095,0)
- ;;=R^17^189
- ;;^UTILITY(U,$J,358.4,2096,0)
- ;;=S^18^189
- ;;^UTILITY(U,$J,358.4,2097,0)
- ;;=T^19^189
- ;;^UTILITY(U,$J,358.4,2098,0)
- ;;=U^21^189
- ;;^UTILITY(U,$J,358.4,2099,0)
- ;;=V^22^189
- ;;^UTILITY(U,$J,358.4,2100,0)
- ;;=W^23^189
- ;;^UTILITY(U,$J,358.4,2101,0)
- ;;=X^24^189
- ;;^UTILITY(U,$J,358.4,2102,0)
- ;;=Z CODES^25^189
- ;;^UTILITY(U,$J,358.4,2103,0)
- ;;=NEW PATIENT^2^190
- ;;^UTILITY(U,$J,358.4,2104,0)
- ;;=ESTABLISHED PATIENT^1^190
- ;;^UTILITY(U,$J,358.4,2105,0)
- ;;=CONSULTATION^3^190
- ;;^UTILITY(U,$J,358.4,2106,0)
- ;;=INCISION & DRAINAGE^12^191
- ;;^UTILITY(U,$J,358.4,2107,0)
- ;;=DEBRIDEMENT^6^191
- ;;^UTILITY(U,$J,358.4,2108,0)
- ;;=SHAVING EPIDERMAL/DERMAL LESIONS^26^191
- ;;^UTILITY(U,$J,358.4,2109,0)
- ;;=NAILS^16^191
- ;;^UTILITY(U,$J,358.4,2110,0)
- ;;=PARING OR CUTTING^21^191
- ;;^UTILITY(U,$J,358.4,2111,0)
- ;;=DESTRUCTION-BENIGN OR PREMALIGANT^7^191
- ;;^UTILITY(U,$J,358.4,2112,0)
- ;;=EXCISION-BENIGN LESION (EXCEPT SKIN TAG)^8^191
- ;;^UTILITY(U,$J,358.4,2113,0)
- ;;=EXCISION-MALIGNANT LESIONS^10^191
- ;;^UTILITY(U,$J,358.4,2114,0)
- ;;=REPAIR/CLOSURE^24^191
- ;;^UTILITY(U,$J,358.4,2115,0)
- ;;=BURNS^4^191
- ;;^UTILITY(U,$J,358.4,2116,0)
- ;;=BIOPSIES^3^191
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IT 3969 printed Mar 13, 2025@21:54:39 Page 2
- IBDEI3IT ; ; 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,2053,0)
- +2 ;;=EXC-MAL LESION-FACE,MUCOUS^10^185
- +3 ;;^UTILITY(U,$J,358.4,2054,0)
- +4 ;;=SHAVING-EPIDERM-SCALP,NK,HAND,FT,GENITAL^31^185
- +5 ;;^UTILITY(U,$J,358.4,2055,0)
- +6 ;;=SHAVING-EPIDERM-FACE,MUCOUS^30^185
- +7 ;;^UTILITY(U,$J,358.4,2056,0)
- +8 ;;=REPAIR-SIMPLE-FACE,MUCOUS^28^185
- +9 ;;^UTILITY(U,$J,358.4,2057,0)
- +10 ;;=REPAIR-INTERM-NK,HAND,FT,GENITALIA^26^185
- +11 ;;^UTILITY(U,$J,358.4,2058,0)
- +12 ;;=REPAIR-INTERM-FACE,MUCOUS^25^185
- +13 ;;^UTILITY(U,$J,358.4,2059,0)
- +14 ;;=WOUND HEALING^39^185
- +15 ;;^UTILITY(U,$J,358.4,2060,0)
- +16 ;;=SKIN TEST^33^185
- +17 ;;^UTILITY(U,$J,358.4,2061,0)
- +18 ;;=MICROBIOLOGY^15^185
- +19 ;;^UTILITY(U,$J,358.4,2062,0)
- +20 ;;=MOHS CHEMOSURGERY^17^185
- +21 ;;^UTILITY(U,$J,358.4,2063,0)
- +22 ;;=INJECTIONS^14^185
- +23 ;;^UTILITY(U,$J,358.4,2064,0)
- +24 ;;=PEEL^19^185
- +25 ;;^UTILITY(U,$J,358.4,2065,0)
- +26 ;;=PHOTOTHERAPY^20^185
- +27 ;;^UTILITY(U,$J,358.4,2066,0)
- +28 ;;=REPAIR-COMPLEX-FACE^23^185
- +29 ;;^UTILITY(U,$J,358.4,2067,0)
- +30 ;;=REPAIR-COMPLEX-NK/HAND/FT^24^185
- +31 ;;^UTILITY(U,$J,358.4,2068,0)
- +32 ;;=REPAIR-COMPLEX-TRUNK^21^185
- +33 ;;^UTILITY(U,$J,358.4,2069,0)
- +34 ;;=TISSUE REARRANGMNT-FACE/NECK/HAND/FOOT^36^185
- +35 ;;^UTILITY(U,$J,358.4,2070,0)
- +36 ;;=TISSUE REARRANGMNT-SCALP/ARMS/LEGS^35^185
- +37 ;;^UTILITY(U,$J,358.4,2071,0)
- +38 ;;=TISSUE REARRANGMNT-TRUNK^34^185
- +39 ;;^UTILITY(U,$J,358.4,2072,0)
- +40 ;;=REPAIR-COMPLEX-SCALP^22^185
- +41 ;;^UTILITY(U,$J,358.4,2073,0)
- +42 ;;=TISSUE REARRANGMNT-EYELID/NOSE/EAR/LIP^37^185
- +43 ;;^UTILITY(U,$J,358.4,2074,0)
- +44 ;;=BIOPSY^1^185
- +45 ;;^UTILITY(U,$J,358.4,2075,0)
- +46 ;;=TISSUE REARRANGEMENT-ANY AREA^38^185
- +47 ;;^UTILITY(U,$J,358.4,2076,0)
- +48 ;;=PLASTIC SURGERY DX^1^186
- +49 ;;^UTILITY(U,$J,358.4,2077,0)
- +50 ;;=NAILS^2^187
- +51 ;;^UTILITY(U,$J,358.4,2078,0)
- +52 ;;=OTHER ORTHOTICS^3^187
- +53 ;;^UTILITY(U,$J,358.4,2079,0)
- +54 ;;=IMMUNIZATIONS^1^187
- +55 ;;^UTILITY(U,$J,358.4,2080,0)
- +56 ;;=ESTABLISHED PATIENT^1^188
- +57 ;;^UTILITY(U,$J,358.4,2081,0)
- +58 ;;=A^1^189
- +59 ;;^UTILITY(U,$J,358.4,2082,0)
- +60 ;;=B^2^189
- +61 ;;^UTILITY(U,$J,358.4,2083,0)
- +62 ;;=C^3^189
- +63 ;;^UTILITY(U,$J,358.4,2084,0)
- +64 ;;=D^4^189
- +65 ;;^UTILITY(U,$J,358.4,2085,0)
- +66 ;;=E^5^189
- +67 ;;^UTILITY(U,$J,358.4,2086,0)
- +68 ;;=F^6^189
- +69 ;;^UTILITY(U,$J,358.4,2087,0)
- +70 ;;=G^7^189
- +71 ;;^UTILITY(U,$J,358.4,2088,0)
- +72 ;;=H^8^189
- +73 ;;^UTILITY(U,$J,358.4,2089,0)
- +74 ;;=I^9^189
- +75 ;;^UTILITY(U,$J,358.4,2090,0)
- +76 ;;=L^12^189
- +77 ;;^UTILITY(U,$J,358.4,2091,0)
- +78 ;;=M^13^189
- +79 ;;^UTILITY(U,$J,358.4,2092,0)
- +80 ;;=N^14^189
- +81 ;;^UTILITY(U,$J,358.4,2093,0)
- +82 ;;=O^15^189
- +83 ;;^UTILITY(U,$J,358.4,2094,0)
- +84 ;;=P^16^189
- +85 ;;^UTILITY(U,$J,358.4,2095,0)
- +86 ;;=R^17^189
- +87 ;;^UTILITY(U,$J,358.4,2096,0)
- +88 ;;=S^18^189
- +89 ;;^UTILITY(U,$J,358.4,2097,0)
- +90 ;;=T^19^189
- +91 ;;^UTILITY(U,$J,358.4,2098,0)
- +92 ;;=U^21^189
- +93 ;;^UTILITY(U,$J,358.4,2099,0)
- +94 ;;=V^22^189
- +95 ;;^UTILITY(U,$J,358.4,2100,0)
- +96 ;;=W^23^189
- +97 ;;^UTILITY(U,$J,358.4,2101,0)
- +98 ;;=X^24^189
- +99 ;;^UTILITY(U,$J,358.4,2102,0)
- +100 ;;=Z CODES^25^189
- +101 ;;^UTILITY(U,$J,358.4,2103,0)
- +102 ;;=NEW PATIENT^2^190
- +103 ;;^UTILITY(U,$J,358.4,2104,0)
- +104 ;;=ESTABLISHED PATIENT^1^190
- +105 ;;^UTILITY(U,$J,358.4,2105,0)
- +106 ;;=CONSULTATION^3^190
- +107 ;;^UTILITY(U,$J,358.4,2106,0)
- +108 ;;=INCISION & DRAINAGE^12^191
- +109 ;;^UTILITY(U,$J,358.4,2107,0)
- +110 ;;=DEBRIDEMENT^6^191
- +111 ;;^UTILITY(U,$J,358.4,2108,0)
- +112 ;;=SHAVING EPIDERMAL/DERMAL LESIONS^26^191
- +113 ;;^UTILITY(U,$J,358.4,2109,0)
- +114 ;;=NAILS^16^191
- +115 ;;^UTILITY(U,$J,358.4,2110,0)
- +116 ;;=PARING OR CUTTING^21^191
- +117 ;;^UTILITY(U,$J,358.4,2111,0)
- +118 ;;=DESTRUCTION-BENIGN OR PREMALIGANT^7^191
- +119 ;;^UTILITY(U,$J,358.4,2112,0)
- +120 ;;=EXCISION-BENIGN LESION (EXCEPT SKIN TAG)^8^191
- +121 ;;^UTILITY(U,$J,358.4,2113,0)
- +122 ;;=EXCISION-MALIGNANT LESIONS^10^191
- +123 ;;^UTILITY(U,$J,358.4,2114,0)
- +124 ;;=REPAIR/CLOSURE^24^191
- +125 ;;^UTILITY(U,$J,358.4,2115,0)
- +126 ;;=BURNS^4^191
- +127 ;;^UTILITY(U,$J,358.4,2116,0)
- +128 ;;=BIOPSIES^3^191
