IBDEI3B2 ; ; 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,580,0)
;;=PROVIDER WEEKLY VISIT^1^67
;;^UTILITY(U,$J,358.4,581,0)
;;=ACCESS^5^68
;;^UTILITY(U,$J,358.4,582,0)
;;=DIALYSIS PROCEDURES^6^68
;;^UTILITY(U,$J,358.4,583,0)
;;=ESRD HOME SERVICES^7^68
;;^UTILITY(U,$J,358.4,584,0)
;;=HEMODIALYSIS OVERSIGHT^1^68
;;^UTILITY(U,$J,358.4,585,0)
;;=LAB^9^68
;;^UTILITY(U,$J,358.4,586,0)
;;=MEDICATIONS^10^68
;;^UTILITY(U,$J,358.4,587,0)
;;=MONITORING^11^68
;;^UTILITY(U,$J,358.4,588,0)
;;=OTHER^12^68
;;^UTILITY(U,$J,358.4,589,0)
;;=PATIENT EDUCATION/TEACHING^13^68
;;^UTILITY(U,$J,358.4,590,0)
;;=PATIENT MANAGEMENT^14^68
;;^UTILITY(U,$J,358.4,591,0)
;;=SUPPLIES^15^68
;;^UTILITY(U,$J,358.4,592,0)
;;=VACCINATIONS^16^68
;;^UTILITY(U,$J,358.4,593,0)
;;=DAILY DIALYSIS TXMT^2^68
;;^UTILITY(U,$J,358.4,594,0)
;;=INPATIENT DIALYSIS^8^68
;;^UTILITY(U,$J,358.4,595,0)
;;=PERITONEAL DIALYSIS^3^68
;;^UTILITY(U,$J,358.4,596,0)
;;=TEAM CONFERENCE^4^68
;;^UTILITY(U,$J,358.4,597,0)
;;=HEMODIALYSIS-ESRD^14^69
;;^UTILITY(U,$J,358.4,598,0)
;;=PERITONEAL DIALYSIS ENCOUNTER^23^69
;;^UTILITY(U,$J,358.4,599,0)
;;=CARDIOLOGY/CARDIORENAL SYNDROME^2^69
;;^UTILITY(U,$J,358.4,600,0)
;;=COMPLICATIONS/OTHER^4^69
;;^UTILITY(U,$J,358.4,601,0)
;;=CYSTIC KIDNEY DISEASE^5^69
;;^UTILITY(U,$J,358.4,602,0)
;;=DIABETES/DIABETIC RENAL DISEASE^6^69
;;^UTILITY(U,$J,358.4,603,0)
;;=FLUID/ELECTROLYTE DISORDER^8^69
;;^UTILITY(U,$J,358.4,604,0)
;;=GENERAL SYMPTOMS^9^69
;;^UTILITY(U,$J,358.4,605,0)
;;=GENITAL/URINARY^10^69
;;^UTILITY(U,$J,358.4,606,0)
;;=HEMATOLOGY^12^69
;;^UTILITY(U,$J,358.4,607,0)
;;=HYPERTENSION^15^69
;;^UTILITY(U,$J,358.4,608,0)
;;=INFECTIOUS DISEASE^16^69
;;^UTILITY(U,$J,358.4,609,0)
;;=NEPHRITIS GLUMERULONEPHRITIS^18^69
;;^UTILITY(U,$J,358.4,610,0)
;;=NEPHRITIS INTERSTITIAL^19^69
;;^UTILITY(U,$J,358.4,611,0)
;;=NEPHROTIC SYNDROME^21^69
;;^UTILITY(U,$J,358.4,612,0)
;;=OBSTRUCTIVE UROPATHY^22^69
;;^UTILITY(U,$J,358.4,613,0)
;;=TRANSPLANT^26^69
;;^UTILITY(U,$J,358.4,614,0)
;;=CKD/KIDNEY DISEASE^3^69
;;^UTILITY(U,$J,358.4,615,0)
;;=HEMODIALYSIS-AKI^13^69
;;^UTILITY(U,$J,358.4,616,0)
;;=ACUTE KIDNEY INJURY^1^69
;;^UTILITY(U,$J,358.4,617,0)
;;=GLOMERULAR DISEASE^11^69
;;^UTILITY(U,$J,358.4,618,0)
;;=KIDNEY INVOLVMNT IN SYSTEMIC DISEASE^17^69
;;^UTILITY(U,$J,358.4,619,0)
;;=NEPHROLITHASIS^20^69
;;^UTILITY(U,$J,358.4,620,0)
;;=POISONING & INTOXICATIONS^24^69
;;^UTILITY(U,$J,358.4,621,0)
;;=DIALYSIS^7^69
;;^UTILITY(U,$J,358.4,622,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^25^69
;;^UTILITY(U,$J,358.4,623,0)
;;=IMMUNIZATION^10^70
;;^UTILITY(U,$J,358.4,624,0)
;;=MEDICATION^12^70
;;^UTILITY(U,$J,358.4,625,0)
;;=ORTHO/JOINTS^6^70
;;^UTILITY(U,$J,358.4,626,0)
;;=RESPIRATORY SYSTEM^13^70
;;^UTILITY(U,$J,358.4,627,0)
;;=CRITICAL CARE/PULM/SEDATION^3^70
;;^UTILITY(U,$J,358.4,628,0)
;;=GI/GYN^7^70
;;^UTILITY(U,$J,358.4,629,0)
;;=NEURO/EYE/ENT^8^70
;;^UTILITY(U,$J,358.4,630,0)
;;=LACERATIONS^5^70
;;^UTILITY(U,$J,358.4,631,0)
;;=SKIN WOUNDS/BURNS^4^70
;;^UTILITY(U,$J,358.4,632,0)
;;=PSYCHIATRY^9^70
;;^UTILITY(U,$J,358.4,633,0)
;;=COMMON PROCEDURES^1^70
;;^UTILITY(U,$J,358.4,634,0)
;;=INFUSION/INJECTION ADMIN^11^70
;;^UTILITY(U,$J,358.4,635,0)
;;=ADDITIONAL VISIT CODES^2^70
;;^UTILITY(U,$J,358.4,636,0)
;;=EMERGENCY DEPT VISIT^1^71
;;^UTILITY(U,$J,358.4,637,0)
;;=TRIAGE ONLY (NO MD SEEN)^4^71
;;^UTILITY(U,$J,358.4,638,0)
;;=ED OBS 1ST DAY-INIT^3^71
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3B2 3797 printed Sep 15, 2024@22:09:29 Page 2
IBDEI3B2 ; ; 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,580,0)
+2 ;;=PROVIDER WEEKLY VISIT^1^67
+3 ;;^UTILITY(U,$J,358.4,581,0)
+4 ;;=ACCESS^5^68
+5 ;;^UTILITY(U,$J,358.4,582,0)
+6 ;;=DIALYSIS PROCEDURES^6^68
+7 ;;^UTILITY(U,$J,358.4,583,0)
+8 ;;=ESRD HOME SERVICES^7^68
+9 ;;^UTILITY(U,$J,358.4,584,0)
+10 ;;=HEMODIALYSIS OVERSIGHT^1^68
+11 ;;^UTILITY(U,$J,358.4,585,0)
+12 ;;=LAB^9^68
+13 ;;^UTILITY(U,$J,358.4,586,0)
+14 ;;=MEDICATIONS^10^68
+15 ;;^UTILITY(U,$J,358.4,587,0)
+16 ;;=MONITORING^11^68
+17 ;;^UTILITY(U,$J,358.4,588,0)
+18 ;;=OTHER^12^68
+19 ;;^UTILITY(U,$J,358.4,589,0)
+20 ;;=PATIENT EDUCATION/TEACHING^13^68
+21 ;;^UTILITY(U,$J,358.4,590,0)
+22 ;;=PATIENT MANAGEMENT^14^68
+23 ;;^UTILITY(U,$J,358.4,591,0)
+24 ;;=SUPPLIES^15^68
+25 ;;^UTILITY(U,$J,358.4,592,0)
+26 ;;=VACCINATIONS^16^68
+27 ;;^UTILITY(U,$J,358.4,593,0)
+28 ;;=DAILY DIALYSIS TXMT^2^68
+29 ;;^UTILITY(U,$J,358.4,594,0)
+30 ;;=INPATIENT DIALYSIS^8^68
+31 ;;^UTILITY(U,$J,358.4,595,0)
+32 ;;=PERITONEAL DIALYSIS^3^68
+33 ;;^UTILITY(U,$J,358.4,596,0)
+34 ;;=TEAM CONFERENCE^4^68
+35 ;;^UTILITY(U,$J,358.4,597,0)
+36 ;;=HEMODIALYSIS-ESRD^14^69
+37 ;;^UTILITY(U,$J,358.4,598,0)
+38 ;;=PERITONEAL DIALYSIS ENCOUNTER^23^69
+39 ;;^UTILITY(U,$J,358.4,599,0)
+40 ;;=CARDIOLOGY/CARDIORENAL SYNDROME^2^69
+41 ;;^UTILITY(U,$J,358.4,600,0)
+42 ;;=COMPLICATIONS/OTHER^4^69
+43 ;;^UTILITY(U,$J,358.4,601,0)
+44 ;;=CYSTIC KIDNEY DISEASE^5^69
+45 ;;^UTILITY(U,$J,358.4,602,0)
+46 ;;=DIABETES/DIABETIC RENAL DISEASE^6^69
+47 ;;^UTILITY(U,$J,358.4,603,0)
+48 ;;=FLUID/ELECTROLYTE DISORDER^8^69
+49 ;;^UTILITY(U,$J,358.4,604,0)
+50 ;;=GENERAL SYMPTOMS^9^69
+51 ;;^UTILITY(U,$J,358.4,605,0)
+52 ;;=GENITAL/URINARY^10^69
+53 ;;^UTILITY(U,$J,358.4,606,0)
+54 ;;=HEMATOLOGY^12^69
+55 ;;^UTILITY(U,$J,358.4,607,0)
+56 ;;=HYPERTENSION^15^69
+57 ;;^UTILITY(U,$J,358.4,608,0)
+58 ;;=INFECTIOUS DISEASE^16^69
+59 ;;^UTILITY(U,$J,358.4,609,0)
+60 ;;=NEPHRITIS GLUMERULONEPHRITIS^18^69
+61 ;;^UTILITY(U,$J,358.4,610,0)
+62 ;;=NEPHRITIS INTERSTITIAL^19^69
+63 ;;^UTILITY(U,$J,358.4,611,0)
+64 ;;=NEPHROTIC SYNDROME^21^69
+65 ;;^UTILITY(U,$J,358.4,612,0)
+66 ;;=OBSTRUCTIVE UROPATHY^22^69
+67 ;;^UTILITY(U,$J,358.4,613,0)
+68 ;;=TRANSPLANT^26^69
+69 ;;^UTILITY(U,$J,358.4,614,0)
+70 ;;=CKD/KIDNEY DISEASE^3^69
+71 ;;^UTILITY(U,$J,358.4,615,0)
+72 ;;=HEMODIALYSIS-AKI^13^69
+73 ;;^UTILITY(U,$J,358.4,616,0)
+74 ;;=ACUTE KIDNEY INJURY^1^69
+75 ;;^UTILITY(U,$J,358.4,617,0)
+76 ;;=GLOMERULAR DISEASE^11^69
+77 ;;^UTILITY(U,$J,358.4,618,0)
+78 ;;=KIDNEY INVOLVMNT IN SYSTEMIC DISEASE^17^69
+79 ;;^UTILITY(U,$J,358.4,619,0)
+80 ;;=NEPHROLITHASIS^20^69
+81 ;;^UTILITY(U,$J,358.4,620,0)
+82 ;;=POISONING & INTOXICATIONS^24^69
+83 ;;^UTILITY(U,$J,358.4,621,0)
+84 ;;=DIALYSIS^7^69
+85 ;;^UTILITY(U,$J,358.4,622,0)
+86 ;;=SUICIDE IDEATIONS/ATTEMPTS^25^69
+87 ;;^UTILITY(U,$J,358.4,623,0)
+88 ;;=IMMUNIZATION^10^70
+89 ;;^UTILITY(U,$J,358.4,624,0)
+90 ;;=MEDICATION^12^70
+91 ;;^UTILITY(U,$J,358.4,625,0)
+92 ;;=ORTHO/JOINTS^6^70
+93 ;;^UTILITY(U,$J,358.4,626,0)
+94 ;;=RESPIRATORY SYSTEM^13^70
+95 ;;^UTILITY(U,$J,358.4,627,0)
+96 ;;=CRITICAL CARE/PULM/SEDATION^3^70
+97 ;;^UTILITY(U,$J,358.4,628,0)
+98 ;;=GI/GYN^7^70
+99 ;;^UTILITY(U,$J,358.4,629,0)
+100 ;;=NEURO/EYE/ENT^8^70
+101 ;;^UTILITY(U,$J,358.4,630,0)
+102 ;;=LACERATIONS^5^70
+103 ;;^UTILITY(U,$J,358.4,631,0)
+104 ;;=SKIN WOUNDS/BURNS^4^70
+105 ;;^UTILITY(U,$J,358.4,632,0)
+106 ;;=PSYCHIATRY^9^70
+107 ;;^UTILITY(U,$J,358.4,633,0)
+108 ;;=COMMON PROCEDURES^1^70
+109 ;;^UTILITY(U,$J,358.4,634,0)
+110 ;;=INFUSION/INJECTION ADMIN^11^70
+111 ;;^UTILITY(U,$J,358.4,635,0)
+112 ;;=ADDITIONAL VISIT CODES^2^70
+113 ;;^UTILITY(U,$J,358.4,636,0)
+114 ;;=EMERGENCY DEPT VISIT^1^71
+115 ;;^UTILITY(U,$J,358.4,637,0)
+116 ;;=TRIAGE ONLY (NO MD SEEN)^4^71
+117 ;;^UTILITY(U,$J,358.4,638,0)
+118 ;;=ED OBS 1ST DAY-INIT^3^71
