IBDEI3J4 ; ; 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,2729,0)
;;=DONORS OF ORGANS AND TISSUES^4^253
;;^UTILITY(U,$J,358.4,2730,0)
;;=NEW PATIENT^2^254
;;^UTILITY(U,$J,358.4,2731,0)
;;=ESTABLISHED PATIENT^1^254
;;^UTILITY(U,$J,358.4,2732,0)
;;=POST-OP (GLOBAL)^3^254
;;^UTILITY(U,$J,358.4,2733,0)
;;=JOINT INJECTIONS^15^255
;;^UTILITY(U,$J,358.4,2734,0)
;;=TENDON INJECTION^25^255
;;^UTILITY(U,$J,358.4,2735,0)
;;=SKIN PROCEDURES^23^255
;;^UTILITY(U,$J,358.4,2736,0)
;;=ADMINISTRATION OF INJ MEDICATIONS^2^255
;;^UTILITY(U,$J,358.4,2737,0)
;;=EKG^11^255
;;^UTILITY(U,$J,358.4,2738,0)
;;=NOSEBLEEDS^16^255
;;^UTILITY(U,$J,358.4,2739,0)
;;=REMOVAL FB IN EAR^17^255
;;^UTILITY(U,$J,358.4,2740,0)
;;=INJECTABLE MEDICATIONS^14^255
;;^UTILITY(U,$J,358.4,2741,0)
;;=INFUSION MEDICATIONS^12^255
;;^UTILITY(U,$J,358.4,2742,0)
;;=ADMINISTRATION OF IV MEDICATIONS^3^255
;;^UTILITY(U,$J,358.4,2743,0)
;;=INHALATION SOLUTIONS THRU DME^13^255
;;^UTILITY(U,$J,358.4,2744,0)
;;=ADMINISTRATION OF DME^1^255
;;^UTILITY(U,$J,358.4,2745,0)
;;=DEMO OF METERED INHALER^10^255
;;^UTILITY(U,$J,358.4,2746,0)
;;=BLOOD TESTS^7^255
;;^UTILITY(U,$J,358.4,2747,0)
;;=BLOOD PRESSURE MEASURE^6^255
;;^UTILITY(U,$J,358.4,2748,0)
;;=BLADDER ^5^255
;;^UTILITY(U,$J,358.4,2749,0)
;;=BLOOD TRANSFUSION^8^255
;;^UTILITY(U,$J,358.4,2750,0)
;;=AIRWAY TREATMENTS^4^255
;;^UTILITY(U,$J,358.4,2751,0)
;;=BURN TREATMENT^9^255
;;^UTILITY(U,$J,358.4,2752,0)
;;=TB TEST^24^255
;;^UTILITY(U,$J,358.4,2753,0)
;;=REPAIR-SIMPLE-SCALP,NK,TRUNK^19^255
;;^UTILITY(U,$J,358.4,2754,0)
;;=REPAIR-SIMPLE-FACE,MUCOUS^18^255
;;^UTILITY(U,$J,358.4,2755,0)
;;=REPAIR-INTERM-SCALP,TRUNK^22^255
;;^UTILITY(U,$J,358.4,2756,0)
;;=REPAIR-INTERM-NK,HAND,FT,GENITALIA^21^255
;;^UTILITY(U,$J,358.4,2757,0)
;;=REPAIR-INTERM-FACE,MUCOUS^20^255
;;^UTILITY(U,$J,358.4,2758,0)
;;=OTHER^26^255
;;^UTILITY(U,$J,358.4,2759,0)
;;=PC COMMON DIAGNOSES^1^256
;;^UTILITY(U,$J,358.4,2760,0)
;;=ADMINISTRATIVE TOPICS^2^256
;;^UTILITY(U,$J,358.4,2761,0)
;;=ANGINA^3^256
;;^UTILITY(U,$J,358.4,2762,0)
;;=ATHEROSCLEROSIS^4^256
;;^UTILITY(U,$J,358.4,2763,0)
;;=CARDIOVASCULAR^5^256
;;^UTILITY(U,$J,358.4,2764,0)
;;=DERMATOLOGY^9^256
;;^UTILITY(U,$J,358.4,2765,0)
;;=EAR DISORDERS^10^256
;;^UTILITY(U,$J,358.4,2766,0)
;;=EENT^11^256
;;^UTILITY(U,$J,358.4,2767,0)
;;=ENDOCRINE/METABOLIC^12^256
;;^UTILITY(U,$J,358.4,2768,0)
;;=EYE DISORDERS^13^256
;;^UTILITY(U,$J,358.4,2769,0)
;;=EYE INJURY^14^256
;;^UTILITY(U,$J,358.4,2770,0)
;;=GASTROENTEROLOGY^15^256
;;^UTILITY(U,$J,358.4,2771,0)
;;=GU/RENAL^16^256
;;^UTILITY(U,$J,358.4,2772,0)
;;=HEADACHE^17^256
;;^UTILITY(U,$J,358.4,2773,0)
;;=HEART FAILURE^18^256
;;^UTILITY(U,$J,358.4,2774,0)
;;=HEART VALVE DISEASE^19^256
;;^UTILITY(U,$J,358.4,2775,0)
;;=HEMATOLOGY/ONCOLOGY^20^256
;;^UTILITY(U,$J,358.4,2776,0)
;;=HISTORY OF ILLNESS^21^256
;;^UTILITY(U,$J,358.4,2777,0)
;;=INFECTIOUS DISEASE^22^256
;;^UTILITY(U,$J,358.4,2778,0)
;;=LIVER DISEASE^23^256
;;^UTILITY(U,$J,358.4,2779,0)
;;=MENTAL HEALTH^25^256
;;^UTILITY(U,$J,358.4,2780,0)
;;=MOVEMENT DISORDERS^26^256
;;^UTILITY(U,$J,358.4,2781,0)
;;=MUSCULOSKELETAL^27^256
;;^UTILITY(U,$J,358.4,2782,0)
;;=NEUROLOGY^28^256
;;^UTILITY(U,$J,358.4,2783,0)
;;=PAIN^29^256
;;^UTILITY(U,$J,358.4,2784,0)
;;=PREVENTIVE HEALTH^30^256
;;^UTILITY(U,$J,358.4,2785,0)
;;=PULMONARY^31^256
;;^UTILITY(U,$J,358.4,2786,0)
;;=SEXUAL TRAUMA^32^256
;;^UTILITY(U,$J,358.4,2787,0)
;;=SIGNS,SYMPTOMS,CONDITIONS^33^256
;;^UTILITY(U,$J,358.4,2788,0)
;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^256
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3J4 3936 printed Sep 23, 2025@20:25:49 Page 2
IBDEI3J4 ; ; 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,2729,0)
+2 ;;=DONORS OF ORGANS AND TISSUES^4^253
+3 ;;^UTILITY(U,$J,358.4,2730,0)
+4 ;;=NEW PATIENT^2^254
+5 ;;^UTILITY(U,$J,358.4,2731,0)
+6 ;;=ESTABLISHED PATIENT^1^254
+7 ;;^UTILITY(U,$J,358.4,2732,0)
+8 ;;=POST-OP (GLOBAL)^3^254
+9 ;;^UTILITY(U,$J,358.4,2733,0)
+10 ;;=JOINT INJECTIONS^15^255
+11 ;;^UTILITY(U,$J,358.4,2734,0)
+12 ;;=TENDON INJECTION^25^255
+13 ;;^UTILITY(U,$J,358.4,2735,0)
+14 ;;=SKIN PROCEDURES^23^255
+15 ;;^UTILITY(U,$J,358.4,2736,0)
+16 ;;=ADMINISTRATION OF INJ MEDICATIONS^2^255
+17 ;;^UTILITY(U,$J,358.4,2737,0)
+18 ;;=EKG^11^255
+19 ;;^UTILITY(U,$J,358.4,2738,0)
+20 ;;=NOSEBLEEDS^16^255
+21 ;;^UTILITY(U,$J,358.4,2739,0)
+22 ;;=REMOVAL FB IN EAR^17^255
+23 ;;^UTILITY(U,$J,358.4,2740,0)
+24 ;;=INJECTABLE MEDICATIONS^14^255
+25 ;;^UTILITY(U,$J,358.4,2741,0)
+26 ;;=INFUSION MEDICATIONS^12^255
+27 ;;^UTILITY(U,$J,358.4,2742,0)
+28 ;;=ADMINISTRATION OF IV MEDICATIONS^3^255
+29 ;;^UTILITY(U,$J,358.4,2743,0)
+30 ;;=INHALATION SOLUTIONS THRU DME^13^255
+31 ;;^UTILITY(U,$J,358.4,2744,0)
+32 ;;=ADMINISTRATION OF DME^1^255
+33 ;;^UTILITY(U,$J,358.4,2745,0)
+34 ;;=DEMO OF METERED INHALER^10^255
+35 ;;^UTILITY(U,$J,358.4,2746,0)
+36 ;;=BLOOD TESTS^7^255
+37 ;;^UTILITY(U,$J,358.4,2747,0)
+38 ;;=BLOOD PRESSURE MEASURE^6^255
+39 ;;^UTILITY(U,$J,358.4,2748,0)
+40 ;;=BLADDER ^5^255
+41 ;;^UTILITY(U,$J,358.4,2749,0)
+42 ;;=BLOOD TRANSFUSION^8^255
+43 ;;^UTILITY(U,$J,358.4,2750,0)
+44 ;;=AIRWAY TREATMENTS^4^255
+45 ;;^UTILITY(U,$J,358.4,2751,0)
+46 ;;=BURN TREATMENT^9^255
+47 ;;^UTILITY(U,$J,358.4,2752,0)
+48 ;;=TB TEST^24^255
+49 ;;^UTILITY(U,$J,358.4,2753,0)
+50 ;;=REPAIR-SIMPLE-SCALP,NK,TRUNK^19^255
+51 ;;^UTILITY(U,$J,358.4,2754,0)
+52 ;;=REPAIR-SIMPLE-FACE,MUCOUS^18^255
+53 ;;^UTILITY(U,$J,358.4,2755,0)
+54 ;;=REPAIR-INTERM-SCALP,TRUNK^22^255
+55 ;;^UTILITY(U,$J,358.4,2756,0)
+56 ;;=REPAIR-INTERM-NK,HAND,FT,GENITALIA^21^255
+57 ;;^UTILITY(U,$J,358.4,2757,0)
+58 ;;=REPAIR-INTERM-FACE,MUCOUS^20^255
+59 ;;^UTILITY(U,$J,358.4,2758,0)
+60 ;;=OTHER^26^255
+61 ;;^UTILITY(U,$J,358.4,2759,0)
+62 ;;=PC COMMON DIAGNOSES^1^256
+63 ;;^UTILITY(U,$J,358.4,2760,0)
+64 ;;=ADMINISTRATIVE TOPICS^2^256
+65 ;;^UTILITY(U,$J,358.4,2761,0)
+66 ;;=ANGINA^3^256
+67 ;;^UTILITY(U,$J,358.4,2762,0)
+68 ;;=ATHEROSCLEROSIS^4^256
+69 ;;^UTILITY(U,$J,358.4,2763,0)
+70 ;;=CARDIOVASCULAR^5^256
+71 ;;^UTILITY(U,$J,358.4,2764,0)
+72 ;;=DERMATOLOGY^9^256
+73 ;;^UTILITY(U,$J,358.4,2765,0)
+74 ;;=EAR DISORDERS^10^256
+75 ;;^UTILITY(U,$J,358.4,2766,0)
+76 ;;=EENT^11^256
+77 ;;^UTILITY(U,$J,358.4,2767,0)
+78 ;;=ENDOCRINE/METABOLIC^12^256
+79 ;;^UTILITY(U,$J,358.4,2768,0)
+80 ;;=EYE DISORDERS^13^256
+81 ;;^UTILITY(U,$J,358.4,2769,0)
+82 ;;=EYE INJURY^14^256
+83 ;;^UTILITY(U,$J,358.4,2770,0)
+84 ;;=GASTROENTEROLOGY^15^256
+85 ;;^UTILITY(U,$J,358.4,2771,0)
+86 ;;=GU/RENAL^16^256
+87 ;;^UTILITY(U,$J,358.4,2772,0)
+88 ;;=HEADACHE^17^256
+89 ;;^UTILITY(U,$J,358.4,2773,0)
+90 ;;=HEART FAILURE^18^256
+91 ;;^UTILITY(U,$J,358.4,2774,0)
+92 ;;=HEART VALVE DISEASE^19^256
+93 ;;^UTILITY(U,$J,358.4,2775,0)
+94 ;;=HEMATOLOGY/ONCOLOGY^20^256
+95 ;;^UTILITY(U,$J,358.4,2776,0)
+96 ;;=HISTORY OF ILLNESS^21^256
+97 ;;^UTILITY(U,$J,358.4,2777,0)
+98 ;;=INFECTIOUS DISEASE^22^256
+99 ;;^UTILITY(U,$J,358.4,2778,0)
+100 ;;=LIVER DISEASE^23^256
+101 ;;^UTILITY(U,$J,358.4,2779,0)
+102 ;;=MENTAL HEALTH^25^256
+103 ;;^UTILITY(U,$J,358.4,2780,0)
+104 ;;=MOVEMENT DISORDERS^26^256
+105 ;;^UTILITY(U,$J,358.4,2781,0)
+106 ;;=MUSCULOSKELETAL^27^256
+107 ;;^UTILITY(U,$J,358.4,2782,0)
+108 ;;=NEUROLOGY^28^256
+109 ;;^UTILITY(U,$J,358.4,2783,0)
+110 ;;=PAIN^29^256
+111 ;;^UTILITY(U,$J,358.4,2784,0)
+112 ;;=PREVENTIVE HEALTH^30^256
+113 ;;^UTILITY(U,$J,358.4,2785,0)
+114 ;;=PULMONARY^31^256
+115 ;;^UTILITY(U,$J,358.4,2786,0)
+116 ;;=SEXUAL TRAUMA^32^256
+117 ;;^UTILITY(U,$J,358.4,2787,0)
+118 ;;=SIGNS,SYMPTOMS,CONDITIONS^33^256
+119 ;;^UTILITY(U,$J,358.4,2788,0)
+120 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^256
