IBDEI3BK ; ; 04-FEB-2020
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,1563,0)
;;=SAME DAY ADM/DISCHARGE^12^121
;;^UTILITY(U,$J,358.4,1564,0)
;;=INPT CONSULTATIONS^5^121
;;^UTILITY(U,$J,358.4,1565,0)
;;=INITIAL HOSPITAL CARE^6^121
;;^UTILITY(U,$J,358.4,1566,0)
;;=SUBSEQUENT HOSPITAL CARE^7^121
;;^UTILITY(U,$J,358.4,1567,0)
;;=HOSPITAL CARE D/C SERVICES^8^121
;;^UTILITY(U,$J,358.4,1568,0)
;;=SUBSEQUENT OBSERVATION CARE^10^121
;;^UTILITY(U,$J,358.4,1569,0)
;;=OBSERVATION CARE D/C SERVICES^11^121
;;^UTILITY(U,$J,358.4,1570,0)
;;=PROLONGED SERVICES^5^122
;;^UTILITY(U,$J,358.4,1571,0)
;;=VENOUS^7^122
;;^UTILITY(U,$J,358.4,1572,0)
;;=BP MONITORING^1^122
;;^UTILITY(U,$J,358.4,1573,0)
;;=MEDICATION^4^122
;;^UTILITY(U,$J,358.4,1574,0)
;;=CARDIOVASCULAR^2^122
;;^UTILITY(U,$J,358.4,1575,0)
;;=CATHETER^3^122
;;^UTILITY(U,$J,358.4,1576,0)
;;=TEAM CONFERENCE^6^122
;;^UTILITY(U,$J,358.4,1577,0)
;;=HEMODIALYSIS-ESRD^14^123
;;^UTILITY(U,$J,358.4,1578,0)
;;=PERITONEAL DIALYSIS ENCOUNTER^23^123
;;^UTILITY(U,$J,358.4,1579,0)
;;=CARDIOLOGY/CARDIORENAL SYNDROME^2^123
;;^UTILITY(U,$J,358.4,1580,0)
;;=COMPLICATIONS/OTHER^4^123
;;^UTILITY(U,$J,358.4,1581,0)
;;=CYSTIC KIDNEY DISEASE^5^123
;;^UTILITY(U,$J,358.4,1582,0)
;;=DIABETES/DIABETIC RENAL DISEASE^6^123
;;^UTILITY(U,$J,358.4,1583,0)
;;=FLUID/ELECTROLYTE DISORDER^8^123
;;^UTILITY(U,$J,358.4,1584,0)
;;=GENERAL SYMPTOMS^9^123
;;^UTILITY(U,$J,358.4,1585,0)
;;=GENITAL/URINARY^10^123
;;^UTILITY(U,$J,358.4,1586,0)
;;=HEMATOLOGY^12^123
;;^UTILITY(U,$J,358.4,1587,0)
;;=HYPERTENSION^15^123
;;^UTILITY(U,$J,358.4,1588,0)
;;=INFECTIOUS DISEASE^16^123
;;^UTILITY(U,$J,358.4,1589,0)
;;=NEPHRITIS GLUMERULONEPHRITIS^18^123
;;^UTILITY(U,$J,358.4,1590,0)
;;=NEPHRITIS INTERSTITIAL^19^123
;;^UTILITY(U,$J,358.4,1591,0)
;;=NEPHROTIC SYNDROME^21^123
;;^UTILITY(U,$J,358.4,1592,0)
;;=OBSTRUCTIVE UROPATHY^22^123
;;^UTILITY(U,$J,358.4,1593,0)
;;=TRANSPLANT^26^123
;;^UTILITY(U,$J,358.4,1594,0)
;;=CKD/KIDNEY DISEASE^3^123
;;^UTILITY(U,$J,358.4,1595,0)
;;=HEMODIALYSIS-AKI^13^123
;;^UTILITY(U,$J,358.4,1596,0)
;;=ACUTE KIDNEY INJURY^1^123
;;^UTILITY(U,$J,358.4,1597,0)
;;=GLOMERULAR DISEASE^11^123
;;^UTILITY(U,$J,358.4,1598,0)
;;=KIDNEY INVOLVMNT IN SYSTEMIC DISEASE^17^123
;;^UTILITY(U,$J,358.4,1599,0)
;;=NEPHROLITHASIS^20^123
;;^UTILITY(U,$J,358.4,1600,0)
;;=POISONING & INTOXICATIONS^24^123
;;^UTILITY(U,$J,358.4,1601,0)
;;=DIALYSIS^7^123
;;^UTILITY(U,$J,358.4,1602,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^25^123
;;^UTILITY(U,$J,358.4,1603,0)
;;=OB/GYN PROCEDURES^1^124
;;^UTILITY(U,$J,358.4,1604,0)
;;=INJECTABLES/IMMUNIZATIONS^5^124
;;^UTILITY(U,$J,358.4,1605,0)
;;=INJECTION/IMMUNIZATION ADMIN^4^124
;;^UTILITY(U,$J,358.4,1606,0)
;;=FOREIGN BODY^3^124
;;^UTILITY(U,$J,358.4,1607,0)
;;=UA/FINGERSTICK^13^124
;;^UTILITY(U,$J,358.4,1608,0)
;;=FLUSHES^2^124
;;^UTILITY(U,$J,358.4,1609,0)
;;=OTHER PROCEDURES^7^124
;;^UTILITY(U,$J,358.4,1610,0)
;;=MATERNAL CARE^6^124
;;^UTILITY(U,$J,358.4,1611,0)
;;=PREVENTIVE COUNSELING^8^124
;;^UTILITY(U,$J,358.4,1612,0)
;;=PREVENTIVE-ESTAB PT^9^124
;;^UTILITY(U,$J,358.4,1613,0)
;;=PREVENTIVE-NEW PT^10^124
;;^UTILITY(U,$J,358.4,1614,0)
;;=SUPPLIES^12^124
;;^UTILITY(U,$J,358.4,1615,0)
;;=PROLONG SERVICES^11^124
;;^UTILITY(U,$J,358.4,1616,0)
;;=NEW PATIENT^2^125
;;^UTILITY(U,$J,358.4,1617,0)
;;=ESTABLISHED PATIENT^1^125
;;^UTILITY(U,$J,358.4,1618,0)
;;=CONSULTATIONS^3^125
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BK 3774 printed Apr 09, 2024@21:04:20 Page 2
IBDEI3BK ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+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,999)
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,1563,0)
+2 ;;=SAME DAY ADM/DISCHARGE^12^121
+3 ;;^UTILITY(U,$J,358.4,1564,0)
+4 ;;=INPT CONSULTATIONS^5^121
+5 ;;^UTILITY(U,$J,358.4,1565,0)
+6 ;;=INITIAL HOSPITAL CARE^6^121
+7 ;;^UTILITY(U,$J,358.4,1566,0)
+8 ;;=SUBSEQUENT HOSPITAL CARE^7^121
+9 ;;^UTILITY(U,$J,358.4,1567,0)
+10 ;;=HOSPITAL CARE D/C SERVICES^8^121
+11 ;;^UTILITY(U,$J,358.4,1568,0)
+12 ;;=SUBSEQUENT OBSERVATION CARE^10^121
+13 ;;^UTILITY(U,$J,358.4,1569,0)
+14 ;;=OBSERVATION CARE D/C SERVICES^11^121
+15 ;;^UTILITY(U,$J,358.4,1570,0)
+16 ;;=PROLONGED SERVICES^5^122
+17 ;;^UTILITY(U,$J,358.4,1571,0)
+18 ;;=VENOUS^7^122
+19 ;;^UTILITY(U,$J,358.4,1572,0)
+20 ;;=BP MONITORING^1^122
+21 ;;^UTILITY(U,$J,358.4,1573,0)
+22 ;;=MEDICATION^4^122
+23 ;;^UTILITY(U,$J,358.4,1574,0)
+24 ;;=CARDIOVASCULAR^2^122
+25 ;;^UTILITY(U,$J,358.4,1575,0)
+26 ;;=CATHETER^3^122
+27 ;;^UTILITY(U,$J,358.4,1576,0)
+28 ;;=TEAM CONFERENCE^6^122
+29 ;;^UTILITY(U,$J,358.4,1577,0)
+30 ;;=HEMODIALYSIS-ESRD^14^123
+31 ;;^UTILITY(U,$J,358.4,1578,0)
+32 ;;=PERITONEAL DIALYSIS ENCOUNTER^23^123
+33 ;;^UTILITY(U,$J,358.4,1579,0)
+34 ;;=CARDIOLOGY/CARDIORENAL SYNDROME^2^123
+35 ;;^UTILITY(U,$J,358.4,1580,0)
+36 ;;=COMPLICATIONS/OTHER^4^123
+37 ;;^UTILITY(U,$J,358.4,1581,0)
+38 ;;=CYSTIC KIDNEY DISEASE^5^123
+39 ;;^UTILITY(U,$J,358.4,1582,0)
+40 ;;=DIABETES/DIABETIC RENAL DISEASE^6^123
+41 ;;^UTILITY(U,$J,358.4,1583,0)
+42 ;;=FLUID/ELECTROLYTE DISORDER^8^123
+43 ;;^UTILITY(U,$J,358.4,1584,0)
+44 ;;=GENERAL SYMPTOMS^9^123
+45 ;;^UTILITY(U,$J,358.4,1585,0)
+46 ;;=GENITAL/URINARY^10^123
+47 ;;^UTILITY(U,$J,358.4,1586,0)
+48 ;;=HEMATOLOGY^12^123
+49 ;;^UTILITY(U,$J,358.4,1587,0)
+50 ;;=HYPERTENSION^15^123
+51 ;;^UTILITY(U,$J,358.4,1588,0)
+52 ;;=INFECTIOUS DISEASE^16^123
+53 ;;^UTILITY(U,$J,358.4,1589,0)
+54 ;;=NEPHRITIS GLUMERULONEPHRITIS^18^123
+55 ;;^UTILITY(U,$J,358.4,1590,0)
+56 ;;=NEPHRITIS INTERSTITIAL^19^123
+57 ;;^UTILITY(U,$J,358.4,1591,0)
+58 ;;=NEPHROTIC SYNDROME^21^123
+59 ;;^UTILITY(U,$J,358.4,1592,0)
+60 ;;=OBSTRUCTIVE UROPATHY^22^123
+61 ;;^UTILITY(U,$J,358.4,1593,0)
+62 ;;=TRANSPLANT^26^123
+63 ;;^UTILITY(U,$J,358.4,1594,0)
+64 ;;=CKD/KIDNEY DISEASE^3^123
+65 ;;^UTILITY(U,$J,358.4,1595,0)
+66 ;;=HEMODIALYSIS-AKI^13^123
+67 ;;^UTILITY(U,$J,358.4,1596,0)
+68 ;;=ACUTE KIDNEY INJURY^1^123
+69 ;;^UTILITY(U,$J,358.4,1597,0)
+70 ;;=GLOMERULAR DISEASE^11^123
+71 ;;^UTILITY(U,$J,358.4,1598,0)
+72 ;;=KIDNEY INVOLVMNT IN SYSTEMIC DISEASE^17^123
+73 ;;^UTILITY(U,$J,358.4,1599,0)
+74 ;;=NEPHROLITHASIS^20^123
+75 ;;^UTILITY(U,$J,358.4,1600,0)
+76 ;;=POISONING & INTOXICATIONS^24^123
+77 ;;^UTILITY(U,$J,358.4,1601,0)
+78 ;;=DIALYSIS^7^123
+79 ;;^UTILITY(U,$J,358.4,1602,0)
+80 ;;=SUICIDE IDEATIONS/ATTEMPTS^25^123
+81 ;;^UTILITY(U,$J,358.4,1603,0)
+82 ;;=OB/GYN PROCEDURES^1^124
+83 ;;^UTILITY(U,$J,358.4,1604,0)
+84 ;;=INJECTABLES/IMMUNIZATIONS^5^124
+85 ;;^UTILITY(U,$J,358.4,1605,0)
+86 ;;=INJECTION/IMMUNIZATION ADMIN^4^124
+87 ;;^UTILITY(U,$J,358.4,1606,0)
+88 ;;=FOREIGN BODY^3^124
+89 ;;^UTILITY(U,$J,358.4,1607,0)
+90 ;;=UA/FINGERSTICK^13^124
+91 ;;^UTILITY(U,$J,358.4,1608,0)
+92 ;;=FLUSHES^2^124
+93 ;;^UTILITY(U,$J,358.4,1609,0)
+94 ;;=OTHER PROCEDURES^7^124
+95 ;;^UTILITY(U,$J,358.4,1610,0)
+96 ;;=MATERNAL CARE^6^124
+97 ;;^UTILITY(U,$J,358.4,1611,0)
+98 ;;=PREVENTIVE COUNSELING^8^124
+99 ;;^UTILITY(U,$J,358.4,1612,0)
+100 ;;=PREVENTIVE-ESTAB PT^9^124
+101 ;;^UTILITY(U,$J,358.4,1613,0)
+102 ;;=PREVENTIVE-NEW PT^10^124
+103 ;;^UTILITY(U,$J,358.4,1614,0)
+104 ;;=SUPPLIES^12^124
+105 ;;^UTILITY(U,$J,358.4,1615,0)
+106 ;;=PROLONG SERVICES^11^124
+107 ;;^UTILITY(U,$J,358.4,1616,0)
+108 ;;=NEW PATIENT^2^125
+109 ;;^UTILITY(U,$J,358.4,1617,0)
+110 ;;=ESTABLISHED PATIENT^1^125
+111 ;;^UTILITY(U,$J,358.4,1618,0)
+112 ;;=CONSULTATIONS^3^125
