IBDEI3J3 ; ; 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,2665,0)
;;=B DIAGNOSES^2^243
;;^UTILITY(U,$J,358.4,2666,0)
;;=G DIAGNOSES^7^243
;;^UTILITY(U,$J,358.4,2667,0)
;;=H DIAGNOSES^8^243
;;^UTILITY(U,$J,358.4,2668,0)
;;=L DIAGNOSES^11^243
;;^UTILITY(U,$J,358.4,2669,0)
;;=O DIAGNOSES^14^243
;;^UTILITY(U,$J,358.4,2670,0)
;;=U DIAGNOSES^19^243
;;^UTILITY(U,$J,358.4,2671,0)
;;=Z DIAGNOSES^23^243
;;^UTILITY(U,$J,358.4,2672,0)
;;=TELEHEALTH FACILITY FEE^1^244
;;^UTILITY(U,$J,358.4,2673,0)
;;=INFECTIOUS DISEASE^7^245
;;^UTILITY(U,$J,358.4,2674,0)
;;=NEOPLASMS^9^245
;;^UTILITY(U,$J,358.4,2675,0)
;;=HEMATOLOGY/ENDOCRINE^5^245
;;^UTILITY(U,$J,358.4,2676,0)
;;=MENTAL HEALTH^8^245
;;^UTILITY(U,$J,358.4,2677,0)
;;=NEUROLOGY^10^245
;;^UTILITY(U,$J,358.4,2678,0)
;;=OPHTHALMOLOGY^11^245
;;^UTILITY(U,$J,358.4,2679,0)
;;=GI^4^245
;;^UTILITY(U,$J,358.4,2680,0)
;;=CARDIOLOGY^1^245
;;^UTILITY(U,$J,358.4,2681,0)
;;=HERNIA^6^245
;;^UTILITY(U,$J,358.4,2682,0)
;;=GENITOURINARY^3^245
;;^UTILITY(U,$J,358.4,2683,0)
;;=SKIN^15^245
;;^UTILITY(U,$J,358.4,2684,0)
;;=ENT^2^245
;;^UTILITY(U,$J,358.4,2685,0)
;;=RHEUMATOLOGY/ORTHO^13^245
;;^UTILITY(U,$J,358.4,2686,0)
;;=RESPIRATORY^12^245
;;^UTILITY(U,$J,358.4,2687,0)
;;=SIGNS/SYMPTOMS/HX OF^14^245
;;^UTILITY(U,$J,358.4,2688,0)
;;=VASCULAR^16^245
;;^UTILITY(U,$J,358.4,2689,0)
;;=MD/NP/PA ^1^246
;;^UTILITY(U,$J,358.4,2690,0)
;;=RN/LPN/SW/OTH HC PROF^2^246
;;^UTILITY(U,$J,358.4,2691,0)
;;=TELEPHONE DIAGNOSES^1^247
;;^UTILITY(U,$J,358.4,2692,0)
;;=CHEST WALL AND NECK^1^248
;;^UTILITY(U,$J,358.4,2693,0)
;;=THORACIC^2^248
;;^UTILITY(U,$J,358.4,2694,0)
;;=OTHER PROCEDURES^3^248
;;^UTILITY(U,$J,358.4,2695,0)
;;=NEW PATIENT^2^249
;;^UTILITY(U,$J,358.4,2696,0)
;;=ESTABLISHED PATIENT^1^249
;;^UTILITY(U,$J,358.4,2697,0)
;;=CONSULTATIONS^3^249
;;^UTILITY(U,$J,358.4,2698,0)
;;=POST-OP FOLLOW-UP^4^249
;;^UTILITY(U,$J,358.4,2699,0)
;;=GENERAL SIGNS & SYMPTOMS^3^250
;;^UTILITY(U,$J,358.4,2700,0)
;;=AFTERCARE POST-OP^1^250
;;^UTILITY(U,$J,358.4,2701,0)
;;=POST-OP COMPLICATIONS^5^250
;;^UTILITY(U,$J,358.4,2702,0)
;;=CARDIOVASCULAR^2^250
;;^UTILITY(U,$J,358.4,2703,0)
;;=RESPIRATORY^7^250
;;^UTILITY(U,$J,358.4,2704,0)
;;=NEOPLASM^4^250
;;^UTILITY(U,$J,358.4,2705,0)
;;=PRE-OP^6^250
;;^UTILITY(U,$J,358.4,2706,0)
;;=NEW PATIENT^2^251
;;^UTILITY(U,$J,358.4,2707,0)
;;=ESTABLISHED PATIENT^1^251
;;^UTILITY(U,$J,358.4,2708,0)
;;=CONSULTATIONS^3^251
;;^UTILITY(U,$J,358.4,2709,0)
;;=POST OP VISIT (GLOBAL)^4^251
;;^UTILITY(U,$J,358.4,2710,0)
;;=BONE MARROW^1^252
;;^UTILITY(U,$J,358.4,2711,0)
;;=HEART^2^252
;;^UTILITY(U,$J,358.4,2712,0)
;;=HEART-LUNG^3^252
;;^UTILITY(U,$J,358.4,2713,0)
;;=LIVER^4^252
;;^UTILITY(U,$J,358.4,2714,0)
;;=LUNG^5^252
;;^UTILITY(U,$J,358.4,2715,0)
;;=PANCREAS^6^252
;;^UTILITY(U,$J,358.4,2716,0)
;;=RENAL^7^252
;;^UTILITY(U,$J,358.4,2717,0)
;;=REPAIR/RESECTION OF DONOR HEART^8^252
;;^UTILITY(U,$J,358.4,2718,0)
;;=CHRONIC PULM. HEART DISEASE^1^253
;;^UTILITY(U,$J,358.4,2719,0)
;;=DIS. OF BLOOD/FORMING ORGA^3^253
;;^UTILITY(U,$J,358.4,2720,0)
;;=HERNIA^5^253
;;^UTILITY(U,$J,358.4,2721,0)
;;=KIDNEY/PANCREAS^6^253
;;^UTILITY(U,$J,358.4,2722,0)
;;=LIVER^7^253
;;^UTILITY(U,$J,358.4,2723,0)
;;=LUNG^8^253
;;^UTILITY(U,$J,358.4,2724,0)
;;=MALIGNANT LYMPH & HEMATOP^9^253
;;^UTILITY(U,$J,358.4,2725,0)
;;=MALIGNANT NEOPLASMS SOLID ORGANS^10^253
;;^UTILITY(U,$J,358.4,2726,0)
;;=METABOLIC DISORDERS^11^253
;;^UTILITY(U,$J,358.4,2727,0)
;;=SYMPTOMS/SIGNS^12^253
;;^UTILITY(U,$J,358.4,2728,0)
;;=COMPLICATIONS OF SURGERY^2^253
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3J3 3956 printed Sep 23, 2025@20:25:49 Page 2
IBDEI3J3 ; ; 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,2665,0)
+2 ;;=B DIAGNOSES^2^243
+3 ;;^UTILITY(U,$J,358.4,2666,0)
+4 ;;=G DIAGNOSES^7^243
+5 ;;^UTILITY(U,$J,358.4,2667,0)
+6 ;;=H DIAGNOSES^8^243
+7 ;;^UTILITY(U,$J,358.4,2668,0)
+8 ;;=L DIAGNOSES^11^243
+9 ;;^UTILITY(U,$J,358.4,2669,0)
+10 ;;=O DIAGNOSES^14^243
+11 ;;^UTILITY(U,$J,358.4,2670,0)
+12 ;;=U DIAGNOSES^19^243
+13 ;;^UTILITY(U,$J,358.4,2671,0)
+14 ;;=Z DIAGNOSES^23^243
+15 ;;^UTILITY(U,$J,358.4,2672,0)
+16 ;;=TELEHEALTH FACILITY FEE^1^244
+17 ;;^UTILITY(U,$J,358.4,2673,0)
+18 ;;=INFECTIOUS DISEASE^7^245
+19 ;;^UTILITY(U,$J,358.4,2674,0)
+20 ;;=NEOPLASMS^9^245
+21 ;;^UTILITY(U,$J,358.4,2675,0)
+22 ;;=HEMATOLOGY/ENDOCRINE^5^245
+23 ;;^UTILITY(U,$J,358.4,2676,0)
+24 ;;=MENTAL HEALTH^8^245
+25 ;;^UTILITY(U,$J,358.4,2677,0)
+26 ;;=NEUROLOGY^10^245
+27 ;;^UTILITY(U,$J,358.4,2678,0)
+28 ;;=OPHTHALMOLOGY^11^245
+29 ;;^UTILITY(U,$J,358.4,2679,0)
+30 ;;=GI^4^245
+31 ;;^UTILITY(U,$J,358.4,2680,0)
+32 ;;=CARDIOLOGY^1^245
+33 ;;^UTILITY(U,$J,358.4,2681,0)
+34 ;;=HERNIA^6^245
+35 ;;^UTILITY(U,$J,358.4,2682,0)
+36 ;;=GENITOURINARY^3^245
+37 ;;^UTILITY(U,$J,358.4,2683,0)
+38 ;;=SKIN^15^245
+39 ;;^UTILITY(U,$J,358.4,2684,0)
+40 ;;=ENT^2^245
+41 ;;^UTILITY(U,$J,358.4,2685,0)
+42 ;;=RHEUMATOLOGY/ORTHO^13^245
+43 ;;^UTILITY(U,$J,358.4,2686,0)
+44 ;;=RESPIRATORY^12^245
+45 ;;^UTILITY(U,$J,358.4,2687,0)
+46 ;;=SIGNS/SYMPTOMS/HX OF^14^245
+47 ;;^UTILITY(U,$J,358.4,2688,0)
+48 ;;=VASCULAR^16^245
+49 ;;^UTILITY(U,$J,358.4,2689,0)
+50 ;;=MD/NP/PA ^1^246
+51 ;;^UTILITY(U,$J,358.4,2690,0)
+52 ;;=RN/LPN/SW/OTH HC PROF^2^246
+53 ;;^UTILITY(U,$J,358.4,2691,0)
+54 ;;=TELEPHONE DIAGNOSES^1^247
+55 ;;^UTILITY(U,$J,358.4,2692,0)
+56 ;;=CHEST WALL AND NECK^1^248
+57 ;;^UTILITY(U,$J,358.4,2693,0)
+58 ;;=THORACIC^2^248
+59 ;;^UTILITY(U,$J,358.4,2694,0)
+60 ;;=OTHER PROCEDURES^3^248
+61 ;;^UTILITY(U,$J,358.4,2695,0)
+62 ;;=NEW PATIENT^2^249
+63 ;;^UTILITY(U,$J,358.4,2696,0)
+64 ;;=ESTABLISHED PATIENT^1^249
+65 ;;^UTILITY(U,$J,358.4,2697,0)
+66 ;;=CONSULTATIONS^3^249
+67 ;;^UTILITY(U,$J,358.4,2698,0)
+68 ;;=POST-OP FOLLOW-UP^4^249
+69 ;;^UTILITY(U,$J,358.4,2699,0)
+70 ;;=GENERAL SIGNS & SYMPTOMS^3^250
+71 ;;^UTILITY(U,$J,358.4,2700,0)
+72 ;;=AFTERCARE POST-OP^1^250
+73 ;;^UTILITY(U,$J,358.4,2701,0)
+74 ;;=POST-OP COMPLICATIONS^5^250
+75 ;;^UTILITY(U,$J,358.4,2702,0)
+76 ;;=CARDIOVASCULAR^2^250
+77 ;;^UTILITY(U,$J,358.4,2703,0)
+78 ;;=RESPIRATORY^7^250
+79 ;;^UTILITY(U,$J,358.4,2704,0)
+80 ;;=NEOPLASM^4^250
+81 ;;^UTILITY(U,$J,358.4,2705,0)
+82 ;;=PRE-OP^6^250
+83 ;;^UTILITY(U,$J,358.4,2706,0)
+84 ;;=NEW PATIENT^2^251
+85 ;;^UTILITY(U,$J,358.4,2707,0)
+86 ;;=ESTABLISHED PATIENT^1^251
+87 ;;^UTILITY(U,$J,358.4,2708,0)
+88 ;;=CONSULTATIONS^3^251
+89 ;;^UTILITY(U,$J,358.4,2709,0)
+90 ;;=POST OP VISIT (GLOBAL)^4^251
+91 ;;^UTILITY(U,$J,358.4,2710,0)
+92 ;;=BONE MARROW^1^252
+93 ;;^UTILITY(U,$J,358.4,2711,0)
+94 ;;=HEART^2^252
+95 ;;^UTILITY(U,$J,358.4,2712,0)
+96 ;;=HEART-LUNG^3^252
+97 ;;^UTILITY(U,$J,358.4,2713,0)
+98 ;;=LIVER^4^252
+99 ;;^UTILITY(U,$J,358.4,2714,0)
+100 ;;=LUNG^5^252
+101 ;;^UTILITY(U,$J,358.4,2715,0)
+102 ;;=PANCREAS^6^252
+103 ;;^UTILITY(U,$J,358.4,2716,0)
+104 ;;=RENAL^7^252
+105 ;;^UTILITY(U,$J,358.4,2717,0)
+106 ;;=REPAIR/RESECTION OF DONOR HEART^8^252
+107 ;;^UTILITY(U,$J,358.4,2718,0)
+108 ;;=CHRONIC PULM. HEART DISEASE^1^253
+109 ;;^UTILITY(U,$J,358.4,2719,0)
+110 ;;=DIS. OF BLOOD/FORMING ORGA^3^253
+111 ;;^UTILITY(U,$J,358.4,2720,0)
+112 ;;=HERNIA^5^253
+113 ;;^UTILITY(U,$J,358.4,2721,0)
+114 ;;=KIDNEY/PANCREAS^6^253
+115 ;;^UTILITY(U,$J,358.4,2722,0)
+116 ;;=LIVER^7^253
+117 ;;^UTILITY(U,$J,358.4,2723,0)
+118 ;;=LUNG^8^253
+119 ;;^UTILITY(U,$J,358.4,2724,0)
+120 ;;=MALIGNANT LYMPH & HEMATOP^9^253
+121 ;;^UTILITY(U,$J,358.4,2725,0)
+122 ;;=MALIGNANT NEOPLASMS SOLID ORGANS^10^253
+123 ;;^UTILITY(U,$J,358.4,2726,0)
+124 ;;=METABOLIC DISORDERS^11^253
+125 ;;^UTILITY(U,$J,358.4,2727,0)
+126 ;;=SYMPTOMS/SIGNS^12^253
+127 ;;^UTILITY(U,$J,358.4,2728,0)
+128 ;;=COMPLICATIONS OF SURGERY^2^253
