- IBDEI3I2 ; ; 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,435,0)
- ;;=REPAIR-COMPLEX-FACE^23^45
- ;;^UTILITY(U,$J,358.4,436,0)
- ;;=REPAIR-COMPLEX-NK/HAND/FT^24^45
- ;;^UTILITY(U,$J,358.4,437,0)
- ;;=REPAIR-COMPLEX-TRUNK^21^45
- ;;^UTILITY(U,$J,358.4,438,0)
- ;;=TISSUE REARRANGMNT-FACE/NECK/HAND/FOOT^36^45
- ;;^UTILITY(U,$J,358.4,439,0)
- ;;=TISSUE REARRANGMNT-SCALP/ARMS/LEGS^35^45
- ;;^UTILITY(U,$J,358.4,440,0)
- ;;=TISSUE REARRANGMNT-TRUNK^34^45
- ;;^UTILITY(U,$J,358.4,441,0)
- ;;=REPAIR-COMPLEX-SCALP^22^45
- ;;^UTILITY(U,$J,358.4,442,0)
- ;;=TISSUE REARRANGMNT-EYELID/NOSE/EAR/LIP^37^45
- ;;^UTILITY(U,$J,358.4,443,0)
- ;;=BIOPSY^1^45
- ;;^UTILITY(U,$J,358.4,444,0)
- ;;=TISSUE REARRANGEMENT-ANY AREA^38^45
- ;;^UTILITY(U,$J,358.4,445,0)
- ;;=A DIAGNOSES^1^46
- ;;^UTILITY(U,$J,358.4,446,0)
- ;;=D DIAGNOSES^4^46
- ;;^UTILITY(U,$J,358.4,447,0)
- ;;=E DIAGNOSES^5^46
- ;;^UTILITY(U,$J,358.4,448,0)
- ;;=F DIAGNOSES^6^46
- ;;^UTILITY(U,$J,358.4,449,0)
- ;;=I DIAGNOSES^9^46
- ;;^UTILITY(U,$J,358.4,450,0)
- ;;=K DIAGNOSES^10^46
- ;;^UTILITY(U,$J,358.4,451,0)
- ;;=M DIAGNOSES^12^46
- ;;^UTILITY(U,$J,358.4,452,0)
- ;;=N DIAGNOSES^13^46
- ;;^UTILITY(U,$J,358.4,453,0)
- ;;=P DIAGNOSES^15^46
- ;;^UTILITY(U,$J,358.4,454,0)
- ;;=R DIAGNOSES^16^46
- ;;^UTILITY(U,$J,358.4,455,0)
- ;;=S DIAGNOSES^17^46
- ;;^UTILITY(U,$J,358.4,456,0)
- ;;=T DIAGNOSES^18^46
- ;;^UTILITY(U,$J,358.4,457,0)
- ;;=V DIAGNOSES^20^46
- ;;^UTILITY(U,$J,358.4,458,0)
- ;;=X DIAGNOSES^22^46
- ;;^UTILITY(U,$J,358.4,459,0)
- ;;=C DIAGNOSES^3^46
- ;;^UTILITY(U,$J,358.4,460,0)
- ;;=W DIAGNOSES^21^46
- ;;^UTILITY(U,$J,358.4,461,0)
- ;;=B DIAGNOSES^2^46
- ;;^UTILITY(U,$J,358.4,462,0)
- ;;=G DIAGNOSES^7^46
- ;;^UTILITY(U,$J,358.4,463,0)
- ;;=H DIAGNOSES^8^46
- ;;^UTILITY(U,$J,358.4,464,0)
- ;;=L DIAGNOSES^11^46
- ;;^UTILITY(U,$J,358.4,465,0)
- ;;=O DIAGNOSES^14^46
- ;;^UTILITY(U,$J,358.4,466,0)
- ;;=U DIAGNOSES^19^46
- ;;^UTILITY(U,$J,358.4,467,0)
- ;;=Z DIAGNOSES^23^46
- ;;^UTILITY(U,$J,358.4,468,0)
- ;;=NEW PATIENT^3^47
- ;;^UTILITY(U,$J,358.4,469,0)
- ;;=ESTABLISHED PATIENT^1^47
- ;;^UTILITY(U,$J,358.4,470,0)
- ;;=CONSULTATIONS^2^47
- ;;^UTILITY(U,$J,358.4,471,0)
- ;;=RISK FACTOR REDUCTION-INDIV^7^48
- ;;^UTILITY(U,$J,358.4,472,0)
- ;;=OTHER^3^48
- ;;^UTILITY(U,$J,358.4,473,0)
- ;;=EDUCATION/TRAINING^1^48
- ;;^UTILITY(U,$J,358.4,474,0)
- ;;=MEDICAL NUTRITION THERAPY^2^48
- ;;^UTILITY(U,$J,358.4,475,0)
- ;;=PREVENTIVE MEDICINE-NEW PT^5^48
- ;;^UTILITY(U,$J,358.4,476,0)
- ;;=PREVENTIVE MEDICINE-EST PT^4^48
- ;;^UTILITY(U,$J,358.4,477,0)
- ;;=RISK FACTOR REDUCTION-GRP^6^48
- ;;^UTILITY(U,$J,358.4,478,0)
- ;;=WOUND TREATMENT^8^48
- ;;^UTILITY(U,$J,358.4,479,0)
- ;;=DIABETES^1^49
- ;;^UTILITY(U,$J,358.4,480,0)
- ;;=NEW PATIENT^3^50
- ;;^UTILITY(U,$J,358.4,481,0)
- ;;=ESTABLISHED PATIENT^2^50
- ;;^UTILITY(U,$J,358.4,482,0)
- ;;=CONSULTATIONS^4^50
- ;;^UTILITY(U,$J,358.4,483,0)
- ;;=PROVIDER WEEKLY VISIT^1^50
- ;;^UTILITY(U,$J,358.4,484,0)
- ;;=ACCESS^2^51
- ;;^UTILITY(U,$J,358.4,485,0)
- ;;=DIALYSIS PROCEDURES^3^51
- ;;^UTILITY(U,$J,358.4,486,0)
- ;;=ESRD HOME SERVICES^4^51
- ;;^UTILITY(U,$J,358.4,487,0)
- ;;=HEMODIALYSIS OVERSIGHT^5^51
- ;;^UTILITY(U,$J,358.4,488,0)
- ;;=LAB^7^51
- ;;^UTILITY(U,$J,358.4,489,0)
- ;;=MEDICATIONS^8^51
- ;;^UTILITY(U,$J,358.4,490,0)
- ;;=MONITORING^9^51
- ;;^UTILITY(U,$J,358.4,491,0)
- ;;=OTHER^10^51
- ;;^UTILITY(U,$J,358.4,492,0)
- ;;=PATIENT EDUCATION/TEACHING^11^51
- ;;^UTILITY(U,$J,358.4,493,0)
- ;;=PATIENT MANAGEMENT^12^51
- ;;^UTILITY(U,$J,358.4,494,0)
- ;;=SUPPLIES^13^51
- ;;^UTILITY(U,$J,358.4,495,0)
- ;;=VACCINATIONS^14^51
- ;;^UTILITY(U,$J,358.4,496,0)
- ;;=DAILY DIALYSIS TXMT^1^51
- ;;^UTILITY(U,$J,358.4,497,0)
- ;;=INPATIENT DIALYSIS^6^51
- ;;^UTILITY(U,$J,358.4,498,0)
- ;;=HEMODIALYSIS-ESRD^13^52
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3I2 3972 printed Mar 13, 2025@21:54:06 Page 2
- IBDEI3I2 ; ; 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,435,0)
- +2 ;;=REPAIR-COMPLEX-FACE^23^45
- +3 ;;^UTILITY(U,$J,358.4,436,0)
- +4 ;;=REPAIR-COMPLEX-NK/HAND/FT^24^45
- +5 ;;^UTILITY(U,$J,358.4,437,0)
- +6 ;;=REPAIR-COMPLEX-TRUNK^21^45
- +7 ;;^UTILITY(U,$J,358.4,438,0)
- +8 ;;=TISSUE REARRANGMNT-FACE/NECK/HAND/FOOT^36^45
- +9 ;;^UTILITY(U,$J,358.4,439,0)
- +10 ;;=TISSUE REARRANGMNT-SCALP/ARMS/LEGS^35^45
- +11 ;;^UTILITY(U,$J,358.4,440,0)
- +12 ;;=TISSUE REARRANGMNT-TRUNK^34^45
- +13 ;;^UTILITY(U,$J,358.4,441,0)
- +14 ;;=REPAIR-COMPLEX-SCALP^22^45
- +15 ;;^UTILITY(U,$J,358.4,442,0)
- +16 ;;=TISSUE REARRANGMNT-EYELID/NOSE/EAR/LIP^37^45
- +17 ;;^UTILITY(U,$J,358.4,443,0)
- +18 ;;=BIOPSY^1^45
- +19 ;;^UTILITY(U,$J,358.4,444,0)
- +20 ;;=TISSUE REARRANGEMENT-ANY AREA^38^45
- +21 ;;^UTILITY(U,$J,358.4,445,0)
- +22 ;;=A DIAGNOSES^1^46
- +23 ;;^UTILITY(U,$J,358.4,446,0)
- +24 ;;=D DIAGNOSES^4^46
- +25 ;;^UTILITY(U,$J,358.4,447,0)
- +26 ;;=E DIAGNOSES^5^46
- +27 ;;^UTILITY(U,$J,358.4,448,0)
- +28 ;;=F DIAGNOSES^6^46
- +29 ;;^UTILITY(U,$J,358.4,449,0)
- +30 ;;=I DIAGNOSES^9^46
- +31 ;;^UTILITY(U,$J,358.4,450,0)
- +32 ;;=K DIAGNOSES^10^46
- +33 ;;^UTILITY(U,$J,358.4,451,0)
- +34 ;;=M DIAGNOSES^12^46
- +35 ;;^UTILITY(U,$J,358.4,452,0)
- +36 ;;=N DIAGNOSES^13^46
- +37 ;;^UTILITY(U,$J,358.4,453,0)
- +38 ;;=P DIAGNOSES^15^46
- +39 ;;^UTILITY(U,$J,358.4,454,0)
- +40 ;;=R DIAGNOSES^16^46
- +41 ;;^UTILITY(U,$J,358.4,455,0)
- +42 ;;=S DIAGNOSES^17^46
- +43 ;;^UTILITY(U,$J,358.4,456,0)
- +44 ;;=T DIAGNOSES^18^46
- +45 ;;^UTILITY(U,$J,358.4,457,0)
- +46 ;;=V DIAGNOSES^20^46
- +47 ;;^UTILITY(U,$J,358.4,458,0)
- +48 ;;=X DIAGNOSES^22^46
- +49 ;;^UTILITY(U,$J,358.4,459,0)
- +50 ;;=C DIAGNOSES^3^46
- +51 ;;^UTILITY(U,$J,358.4,460,0)
- +52 ;;=W DIAGNOSES^21^46
- +53 ;;^UTILITY(U,$J,358.4,461,0)
- +54 ;;=B DIAGNOSES^2^46
- +55 ;;^UTILITY(U,$J,358.4,462,0)
- +56 ;;=G DIAGNOSES^7^46
- +57 ;;^UTILITY(U,$J,358.4,463,0)
- +58 ;;=H DIAGNOSES^8^46
- +59 ;;^UTILITY(U,$J,358.4,464,0)
- +60 ;;=L DIAGNOSES^11^46
- +61 ;;^UTILITY(U,$J,358.4,465,0)
- +62 ;;=O DIAGNOSES^14^46
- +63 ;;^UTILITY(U,$J,358.4,466,0)
- +64 ;;=U DIAGNOSES^19^46
- +65 ;;^UTILITY(U,$J,358.4,467,0)
- +66 ;;=Z DIAGNOSES^23^46
- +67 ;;^UTILITY(U,$J,358.4,468,0)
- +68 ;;=NEW PATIENT^3^47
- +69 ;;^UTILITY(U,$J,358.4,469,0)
- +70 ;;=ESTABLISHED PATIENT^1^47
- +71 ;;^UTILITY(U,$J,358.4,470,0)
- +72 ;;=CONSULTATIONS^2^47
- +73 ;;^UTILITY(U,$J,358.4,471,0)
- +74 ;;=RISK FACTOR REDUCTION-INDIV^7^48
- +75 ;;^UTILITY(U,$J,358.4,472,0)
- +76 ;;=OTHER^3^48
- +77 ;;^UTILITY(U,$J,358.4,473,0)
- +78 ;;=EDUCATION/TRAINING^1^48
- +79 ;;^UTILITY(U,$J,358.4,474,0)
- +80 ;;=MEDICAL NUTRITION THERAPY^2^48
- +81 ;;^UTILITY(U,$J,358.4,475,0)
- +82 ;;=PREVENTIVE MEDICINE-NEW PT^5^48
- +83 ;;^UTILITY(U,$J,358.4,476,0)
- +84 ;;=PREVENTIVE MEDICINE-EST PT^4^48
- +85 ;;^UTILITY(U,$J,358.4,477,0)
- +86 ;;=RISK FACTOR REDUCTION-GRP^6^48
- +87 ;;^UTILITY(U,$J,358.4,478,0)
- +88 ;;=WOUND TREATMENT^8^48
- +89 ;;^UTILITY(U,$J,358.4,479,0)
- +90 ;;=DIABETES^1^49
- +91 ;;^UTILITY(U,$J,358.4,480,0)
- +92 ;;=NEW PATIENT^3^50
- +93 ;;^UTILITY(U,$J,358.4,481,0)
- +94 ;;=ESTABLISHED PATIENT^2^50
- +95 ;;^UTILITY(U,$J,358.4,482,0)
- +96 ;;=CONSULTATIONS^4^50
- +97 ;;^UTILITY(U,$J,358.4,483,0)
- +98 ;;=PROVIDER WEEKLY VISIT^1^50
- +99 ;;^UTILITY(U,$J,358.4,484,0)
- +100 ;;=ACCESS^2^51
- +101 ;;^UTILITY(U,$J,358.4,485,0)
- +102 ;;=DIALYSIS PROCEDURES^3^51
- +103 ;;^UTILITY(U,$J,358.4,486,0)
- +104 ;;=ESRD HOME SERVICES^4^51
- +105 ;;^UTILITY(U,$J,358.4,487,0)
- +106 ;;=HEMODIALYSIS OVERSIGHT^5^51
- +107 ;;^UTILITY(U,$J,358.4,488,0)
- +108 ;;=LAB^7^51
- +109 ;;^UTILITY(U,$J,358.4,489,0)
- +110 ;;=MEDICATIONS^8^51
- +111 ;;^UTILITY(U,$J,358.4,490,0)
- +112 ;;=MONITORING^9^51
- +113 ;;^UTILITY(U,$J,358.4,491,0)
- +114 ;;=OTHER^10^51
- +115 ;;^UTILITY(U,$J,358.4,492,0)
- +116 ;;=PATIENT EDUCATION/TEACHING^11^51
- +117 ;;^UTILITY(U,$J,358.4,493,0)
- +118 ;;=PATIENT MANAGEMENT^12^51
- +119 ;;^UTILITY(U,$J,358.4,494,0)
- +120 ;;=SUPPLIES^13^51
- +121 ;;^UTILITY(U,$J,358.4,495,0)
- +122 ;;=VACCINATIONS^14^51
- +123 ;;^UTILITY(U,$J,358.4,496,0)
- +124 ;;=DAILY DIALYSIS TXMT^1^51
- +125 ;;^UTILITY(U,$J,358.4,497,0)
- +126 ;;=INPATIENT DIALYSIS^6^51
- +127 ;;^UTILITY(U,$J,358.4,498,0)
- +128 ;;=HEMODIALYSIS-ESRD^13^52
